Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTR0

Package: Registration

Routine: DGPTR0


Information

DGPTR0 ;MJK/JS/ADL/TJ,HIOFO/FT - PTF TRANSMISSION ;4/21/15 11:28am

Source Information

Source file <DGPTR0.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 8 $$CVEDT^DGCV  UP^DGHELP  $$GETSTAT^DGMSTAPI  EFFDATE^DGPTIC10  HEAD^DGPTR1  (501,FILL,SAVE)^DGPTR2  $$CKPOS^DGPTUTL  $$EMGRES^DGUTL  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Scheduling 1 $$SHAD^SDCO22  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTFTR  

Entry Points

Name Comments DBIA/ICR reference
ENTER0
P401 ; -- setup 401P transaction
SAVE ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
PTFNMFT(DG10) ;this function will format the name of the patient for
; transmission of the 101 record to Austin. In addition, this
; function will be used by OPC so that the format will be consistent
; for OPC and PTF.
; INPUT : DG10 - .01 field from the patient record.
; OUTPUT: name in the format proper format.
; A = <12 - characters of last name padded with blanks>
; B = <1 - first initial of fist name>
; C = <1 - first initial of middle name>
; returns :ABC <14 - characters>
DGNAM
Q
SUR ;
401 ; -- setup 401 transactions
ENTER
101 ; -- setup 101 transmission
; control data and name
501

External References

Name Field # of Occurrence
$$CVEDT^DGCV 101+40
UP^DGHELP DGNAM+1
$$GETSTAT^DGMSTAPI 101+38
EFFDATE^DGPTIC10 P401+2, SUR+8
HEAD^DGPTR1 DGPTR0+14
501^DGPTR2 501
FILL^DGPTR2 101+48, P401+7, SUR+19
SAVE^DGPTR2 SAVE+1
$$CKPOS^DGPTUTL 101+19
$$EMGRES^DGUTL 101+45
$$GET1^DIQ 101+47
^DIR SUR+5
$$ICDDATA^ICDXCODE P401+5, SUR+10
$$SHAD^SDCO22 101+43

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HL(779.004 - [#779.004] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] 101+17
^DGPM("APTF" 101+17
^DGPT - [#45] 101+19, P401+1, P401+3, 401+1, SUR+1, SUR+16
^DIC(11 - [#11] 101+12
^DIC(21 - [#21] 101+16
^DIC(45.1 - [#45.1] 101+4
^DIC(45.3 - [#45.3] SUR+6
^DIC(45.88 - [#45.88] SUR+16
^DIC(5 - [#5] 101+27, 101+29
^UTILITY($J 401+1!, SUR+2*, SUR+3

Label References

Name Line Occurrences
$$PTFNMFT 101+2
401 P401+1
501 401+1, SUR+1
DGNAM PTFNMFT+11
ENTER DGPTR0+13, 101+6, 101+20, 101+31, 101+47, SUR+7
ENTER0 101+27, 101+29, 101+36
SAVE 101+48, P401+7, SUR+19
SUR SUR+1, SUR+2, SUR+19

Naked Globals

Name Field # of Occurrence
^( SUR+1, SUR+2
^("401P" P401+1, P401+3
^("ODS" 101+17
^(0 101+4, 101+12, 101+16, 101+27, 101+29, SUR+2, SUR+6
^(300 SUR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DG0 DGPTR0+11, DGPTR0+13, 101+8, 101+33, 101+38, 101+40, 101+43, 101+45
DG10 DGPTR0+9, 101+2, 101+12, 101+14, PTFNMFT~, PTFNMFT+11
>> DG101 101+4, 101+6, 101+8, 101+35, 101+36
>> DG11 101+27, 101+29, 101+31, 101+47
>> DG32 101+16
>> DG321 101+22, 101+24
>> DG41 P401+1*, P401+3*, P401+4*, P401+5
>> DG52 101+10
>> DG70 101+33
>> DGAO 101+22*
DGAUX SUR+1*, SUR+16*, SUR+17, SUR+18!
>> DGDOB 101+14*
>> DGERR SUR+3*
>> DGHEAD DGPTR0+14*, 101+2, P401+1, SUR+6
>> DGNAM DGNAM, DGNAM+2*, PTFNMFT+11*, PTFNMFT+12
>> DGNT 101+24*
DGPOS 101+16*, 101+17*, 101+19*, 101+20, 101+22, 101+24, 101+25!
DGPTDAT P401+2~, SUR+8~
DGPTEDT P401+6!
>> DGPTTMP P401+5*, SUR+10*
>> DGSUD SUR+2*, SUR+3, SUR+6
>> DGSUR SUR+1*, SUR+2, SUR+6, SUR+7, SUR+9*, SUR+10
DIR SUR+5!
DIR("A" SUR+5*
DIR("B" SUR+5*
DIR(0 SUR+5*
E 101+24*, 101+25!
EFFDATE P401+2~, P401+5, SUR+8~, SUR+10
>> F SUR+2*, SUR+3, SUR+4
G 101+22*, 101+25!
I P401+5*, 401+1*, SUR+1*, DGNAM*, PTFNMFT+10~
IMPDATE P401+2~, SUR+8~
>> J 101+17, P401+1, P401+2, P401+3, 401+1, SUR+1, SUR+8, SUR+16
>> K P401+4*, SUR+9*, SUR+10*
>> L DGPTR0+13*, 101+6*, 101+20*, 101+27*, 101+29*, 101+31*, 101+36*, 101+47*, P401+4*, SUR+7*
, SUR+9*, ENTER, ENTER0
>> PTF 101+19
>> T1 101+2, 101+50, P401+1, SUR+2, SUR+6
>> T2 SUR+2
U DGPTR0+9, DGPTR0+11, DGPTR0+13, 101+2, 101+4, 101+6, 101+8, 101+10, 101+12, 101+14
, 101+16, 101+19, 101+22, 101+24, 101+27, 101+29, 101+33, 101+35, 101+45, 101+47
, P401+4, P401+5, SUR+6, SUR+9, SUR+10, SUR+16, SUR+17, ENTER, ENTER0
X DGPTR0+9*, DGPTR0+11*, DGPTR0+13*, 101+6*, 101+20*, 101+27*, 101+29*, 101+31*, 101+36*, 101+38*
, 101+40*, 101+41*, 101+43*, 101+45*, 101+47*, SUR+7*, ENTER, ENTER0, DGNAM*, DGNAM+1
, DGNAM+2, PTFNMFT+10~
>> Y DGPTR0+9*, DGPTR0+11*, DGPTR0+13*, DGPTR0+14*, 101+2*, 101+4*, 101+6*, 101+8*, 101+10*, 101+12*
, 101+14*, 101+25*, 101+33*, 101+35*, 101+38*, 101+40*, 101+41*, 101+43*, 101+45*, 101+50*
, P401+1*, P401+5*, P401+7, SUR+3, SUR+6*, SUR+10*, SUR+13*, SUR+17*, ENTER*, ENTER0*
>> Z DGPTR0+13*, 101+6*, 101+20*, 101+27*, 101+29*, 101+31*, 101+36*, 101+47*, SUR+7*, ENTER
, ENTER0, DGNAM*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All