Routine: DGPTFM4

Call Graph Total: 15

Package	Total	Call Graph
Registration	10	$$GETCUR^DGNTAPI $$FILEHNC^DGNTAPI1 (ORDER,Q)^DGPTF ^DGPTFJ 501^DGPTFJC (,Z)^DGPTFM M^DGPTFM1 PRN2^DGPTFM8 CHK501^DGPTSCAN (D,MT,PM)^DGPTUTL
VA Fileman	3	^DIC ^DIE ^DIK
DRG Grouper	2	$$ICDDX^ICDCODE ($$DRGD,$$GETDATE)^ICDGTDRG

Package

Total

Call Graph

$$GETCUR^DGNTAPI $$FILEHNC^DGNTAPI1 (ORDER,Q)^DGPTF ^DGPTFJ 501^DGPTFJC (,Z)^DGPTFM M^DGPTFM1 PRN2^DGPTFM8
CHK501^DGPTSCAN (D,MT,PM)^DGPTUTL

VA Fileman

^DIC ^DIE ^DIK

DRG Grouper

$$ICDDX^ICDCODE ($$DRGD,$$GETDATE)^ICDGTDRG

Package	Total	Caller Graph
Registration	3	DGPTFJC DGPTFM1 DGPTFM6

Package

Total

Caller Graph

Registration

DGPTFJC DGPTFM1 DGPTFM6

External References

Name	Field # of Occurrence
$$GETCUR^DGNTAPI	M+11
$$FILEHNC^DGNTAPI1	X1+5
ORDER^DGPTF	MOB+1
Q^DGPTF	Q
^DGPTFJ	X+2
501^DGPTFJC	X
^DGPTFM	NEXM, ADD+1, ASKPRO, ASKPRO+4, NOPROC
Z^DGPTFM	WR+1
M^DGPTFM1	X+2
PRN2^DGPTFM8	M+18
CHK501^DGPTSCAN	X1
D^DGPTUTL	M
MT^DGPTUTL	X1+10
PM^DGPTUTL	X1+8
^DIC	ADD+1
^DIE	X1
^DIK	ASKPRO+3
$$ICDDX^ICDCODE	M+16
$$DRGD^ICDGTDRG	M+21
$$GETDATE^ICDGTDRG	M+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,HEAD,?70 Line Location: WR+1
Function Call: WRITE	Prompt: !,?62,"Discharge Movement" Line Location: WR+1
Function Call: WRITE	Prompt: !! Line Location: M+0
Function Call: WRITE	Prompt: "Date of Move: " Line Location: M+0
Function Call: WRITE	Prompt: "Date of Move: " Line Location: M+0
Function Call: WRITE	Prompt: !," Leave days: ",$P(M1,U,3),?44,"Pass days: ",$P(M1,U,4) Line Location: M+1
Function Call: WRITE	Prompt: !,"Treated for SC Condition: ",$S($P(M3,U,18)=1:"Yes",1:"No") Line Location: M+2
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Potentially Related to Combat: ",$S($P(M3,U,31)="Y":"Yes",1:"No") Line Location: M+4
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for AO Condition: ",$S($P(M3,U,26)="Y":"Yes",1:"No") Line Location: M+5
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for IR Condition: ",$S($P(M3,U,27)="Y":"Yes",1:"No") Line Location: M+6
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for service in SW Asia: ",$S($P(M3,U,28)="Y":"Yes",1:"No") Line Location: M+7
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for MST Condition: ",$S($P(M3,U,29)="Y":"Yes",1:"No") Line Location: M+9
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for HEAD/NECK CA Condition: ",$S($P(M3,U,30)="Y":"Yes",1:"No") Line Location: M+13
Function Call: WRITE	Prompt: @($S(NL#2:"!",1:"?37")),"Treated for Project 112/SHAD: ",$S($P(M3,U,32)="Y":"Yes",1:"No") Line Location: M+14
Function Call: WRITE	Prompt: !! Line Location: M+16
Function Call: WRITE	Prompt: " DX: " Line Location: M+16
Function Call: WRITE	Prompt: $S(+DGPTTMP>0:$P(DGPTTMP,U,4)_" ("_$P(DGPTTMP,U,2)_")",1:"**********-"_L),!?17 Line Location: M+17
Function Call: WRITE	Prompt: *7 Condition for execution: DRG=998!(DRG=999)!((DRG=468!(DRG=469)!(DRG=470))&(+$P($G(M1),U,10)<3071001)) Line Location: M+19
Function Call: WRITE	Prompt: !!?14,"TRANSFER DRG: ",DRG Line Location: M+19
Function Call: WRITE	Prompt: !,DGDX(DGDS) Line Location: M+22
Function Call: WRITE	Prompt: ! Line Location: JUMP+0
Function Call: WRITE	Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'M' ",$S(DGPTFE:" to add a patient movement",1:"to edit Treat. Specialty"),", '^N' for screen N, or '^' to abort:<",DGNUM,">// " Line Location: X+1
Function Call: WRITE	Prompt: !,"Enter '^' to stop the display and edit of data",!,"'^N' to jump to screen #N (appears in upper right of screen '<N>'",!,"<RET> to continue on to the next screen or 1-2 to edit:" Line Location: PR+0
Function Call: WRITE	Prompt: !?10,"1-",$S(DGPTFE:"Date of movement, Losing Specialty, ",1:""),"Leave and Pass days",!?10,"2-ICD DIAGNOSIS CODES" Line Location: PR+1
Function Call: WRITE	Prompt: !,"You may also enter 1-2",! Line Location: PR+2
Function Call: READ	Prompt: "Enter <RET>: " Formatting: !! Timeout: DTIME Variable: X Line Location: PR+3
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO Line Location: Z+0
Function Call: WRITE	Prompt: " " Line Location: Z+1
Function Call: WRITE	Prompt: Z Line Location: Z1+1
Function Call: READ	Timeout: DTIME Variable: DGPROC Line Location: ASKPRO+0
Function Call: WRITE	Prompt: !!,"Delete procedure record <",$P(DGPNUM,",",2,99),"> : " Line Location: ASKPRO+0
Function Call: WRITE	Prompt: !!,"Enter the record # to delete from the PTF file <",$P(DGPNUM,",",2,99),">",! Line Location: ASKPRO+1
Function Call: WRITE	Prompt: !!,*7,"No procedures to delete",! Line Location: NOPROC+0
Routine Call	DIE Line Location: X1
Routine Call	DIC Line Location: ADD+1

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	EN, EN+1, WR, X1+9, ADD, MOB, R+1, R+2
^DIC(42.4 - [#42.4]	M

Name	Line Occurrences
ASKPRO	ASKPRO+1
EN	X1+11, NEXM
MOB	EN
NEXM	EN, X+2
NOPROC	R+1, R+2
Q	X+2
WR	PR+3
X1	ADD+2
Z	M, M+16
Z1	M

Name	Field # of Occurrence
^(	MOB
^("P"	EN+1
^(0	M, ADD
^(300	WR

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	X1, ASKPRO+2!, ASKPRO+3!, ASKPRO+4!
DA(1	ADD+1, ASKPRO+3
>> DFN	M+11, X1+5
DG300	WR*, M+18, JUMP!
>> DGADM	X1+9*
>> DGDS	M+21, M+22
DGDX	M+20~
DGDX(	M+22
DGJ	ASKPRO+2~, ASKPRO+3*
>> DGJUMP	X1*
DGMOV	X1*!
>> DGN	Z
DGNTARR	M+10!, M+11, X1+5, X1+6!
DGNTARR("STAT"	M+12, X1+4
DGNUM	X*, X+1, X+2!
DGPMAN	X1+8~
DGPMCA	X1+8~
DGPNUM	R+3, R+4, ASKPRO!, ASKPRO+1, ASKPRO+4!
DGPROC	R+3, ASKPRO!, ASKPRO+1, ASKPRO+3, ASKPRO+4!
DGPTF	X1*!
>> DGPTFE	X+1, X1, PR+1
>> DGPTTMP	M+16*, M+17
>> DGST	X
>> DGVI	Z
>> DGVO	Z
>> DGZM0	DGPTFM4+4, EN, EN+1, WR, WR+1, X, X1, NEXM, ADD*, ADD+2
DIC	ADD+1*!
DIC(0	ADD+1*
DIE	X1*!, ADD+1!
DIK	ASKPRO+3*, ASKPRO+4!
DR	X1*!
>> DRG	M+19*, M+21
DTIME	X+1, PR+3, ASKPRO
DXD	M+20~, M+21*
>> HEAD	WR+1
>> I	M+16, JUMP, ADD, ADD+1, ADD+2, MOB, Z1*
>> I1	MOB*, MOB+1
IOF	WR+1
IOST	Z
>> L	M, M+16, M+17, ADD*
>> L1	ADD*, ADD+1, ADD+2
M	EN, X1!, MOB!
M(	EN, EN+1, WR, WR+1, X, X1, NEXM, ADD+2, MOB
M1	EN, EN+1, M, M+1, M+16, M+19, M+21, MOB!
M2	MOB!*
M3	EN~, M+2, M+4, M+5, M+6, M+7, M+9, M+12, M+13, M+14 , X1+4
NL	M+3~, M+4, M+5, M+6, M+7, M+9, M+13*, M+14, M+15!
>> P(	R+3, ASKPRO+3
>> PM	MOB+1*
>> PTF	EN, EN+1, WR, M+16, X1, X1+9, ADD, ADD+1, MOB, R+1 , R+2, ASKPRO+3
U	EN+1, M, M+1, M+2, M+4, M+5, M+6, M+7, M+9, M+12 , M+13, M+14, M+16, M+17, M+19, M+21, X1+4, ADD, ASKPRO
>> X	X+1, X+2, X1, PR+3, ADD+1, ADD+2
>> Y	M*, ADD+1
>> Z	WR+1, M, M+16, Z, Z1*, Z1+1
>> Z1	M*, Z1

Customize PDF page

Package: Registration

Routine: DGPTFM4

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PR
Q
EN
Z
M
JUMP
ADD
R	;DELETE PROCEDURE RECORD
NOPROC
WR
NEXM
MOB
X
ASKPRO
X1
Z1