Routine: DGPTFM

Call Graph Total: 19

Package	Total	Call Graph
Registration	15	ICDINFO^DGAPI IN^DGHELP (ORDER,Q)^DGPTF EN1^DGPTF4 ^DGPTFJ MAS^DGPTFJC ^DGPTFM (EN,PRC)^DGPTFM0 HELP^DGPTFM1A MOB^DGPTFM2 XREF^DGPTFM21 GETVAR^DGPTFM6 (SD3,WD3)^DGPTFM8 D^DGPTUTL CPT^DGPTUTL1
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG
Scheduling	1	CL^SDCO21
VA Fileman	1	^DIE

Package

Total

Call Graph

ICDINFO^DGAPI IN^DGHELP (ORDER,Q)^DGPTF EN1^DGPTF4 ^DGPTFJ MAS^DGPTFJC ^DGPTFM (EN,PRC)^DGPTFM0
HELP^DGPTFM1A MOB^DGPTFM2 XREF^DGPTFM21 GETVAR^DGPTFM6 (SD3,WD3)^DGPTFM8 D^DGPTUTL CPT^DGPTUTL1

DRG Grouper

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

Scheduling

CL^SDCO21

VA Fileman

^DIE

Package	Total	Caller Graph
Registration	13	DGPTF1 DGPTF4 DGPTFJC DGPTFM DGPTFM0 DGPTFM1 DGPTFM1A DGPTFM2 DGPTFM3 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM7

Package

Total

Caller Graph

Registration

DGPTF1 DGPTF4 DGPTFJC DGPTFM DGPTFM0 DGPTFM1 DGPTFM1A DGPTFM2
DGPTFM3 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM7

External References

Name	Field # of Occurrence
ICDINFO^DGAPI	PF+1
IN^DGHELP	A+3
ORDER^DGPTF	GET+1, NDG+1
Q^DGPTF	A+3
EN1^DGPTF4	DONE
^DGPTFJ	A+3
MAS^DGPTFJC	PRO1+3
^DGPTFM	X+1, X1, X1+1
EN^DGPTFM0	EN
PRC^DGPTFM0	SERV+1
HELP^DGPTFM1A	A+6
MOB^DGPTFM2	GET+1
XREF^DGPTFM21	PF+1
GETVAR^DGPTFM6	GET+1
SD3^DGPTFM8	SERV
WD3^DGPTFM8	DIAG
D^DGPTUTL	WD2+1, SD2, PF+2
CPT^DGPTUTL1	PF+7
^DIE	X1+1
$$ICDDX^ICDCODE	WD1, PF+10
$$ICDOP^ICDCODE	SD1, PROC+1
$$GETDATE^ICDGTDRG	WD1, SD1, PROC+1, PF+10, PRO1+2
CL^SDCO21	GET+1, PF+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIAG+0
Function Call: WRITE	Prompt: ! Condition for execution: L3 Line Location: WD1+1
Function Call: WRITE	Prompt: ?L1*40,$J(M2,3)," ",$J(L4,7)," ",$E($P(L2,U,3),1,25) Line Location: WD1+1
Function Call: WRITE	Prompt: ?L5*40,"Move #",+L6 Line Location: WD2+1
Function Call: WRITE	Prompt: " D/C" Condition for execution: +Z=1 Line Location: WD2+1
Function Call: WRITE	Prompt: " ",Y," " Line Location: WD2+1
Function Call: WRITE	Prompt: " <",$S($P(Z3,U,18)=1:"",1:"N"),"SC"_$S($P(Z3,U,26)="Y":",AO",1:"")_$S($P(Z3,U,27)="Y":",IR",1:"")_$S($P(Z3,U,28)="Y":",SWAC",1:"")_$S($P(Z3,U,32)="Y":",SHAD",1:"")_">" Line Location: WD2+2
Function Call: WRITE	Prompt: $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10) Line Location: WD2+4
Function Call: WRITE	Prompt: $E($P(^(0),U,1),1,10) Line Location: WD2+5
Function Call: WRITE	Prompt: ! Line Location: SERV+0
Function Call: WRITE	Prompt: ! Condition for execution: L3 Line Location: SD1+1
Function Call: WRITE	Prompt: ?L1*40,$J(S2,3)," ",$J(L4,7)," ",$E($P(L2,U,4),1,25) Line Location: SD1+1
Function Call: WRITE	Prompt: ! Condition for execution: NL Line Location: SD2+0
Function Call: WRITE	Prompt: ?L5*40,L6,"-Surgery date: ",Y Line Location: SD2+0
Function Call: WRITE	Prompt: @IOF,HEAD,?70 Line Location: WR+0
Function Call: WRITE	Prompt: $J(P2,3)," ",$J(L4,7)," ",$E($P(L2,"^",4),1,25) Line Location: PROC+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>45 Line Location: PROC+2
Function Call: WRITE	Prompt: !,J,"-CPT Capture Date/Time: ",Y Line Location: PF+2
Function Call: WRITE	Prompt: " (cont.)" Condition for execution: ($P(DGZPRF,U,2)-1!($G(PGBRK))) Line Location: PF+2
Function Call: WRITE	Prompt: !,?5,"Referring or Ordering Provider: " Line Location: PF+3
Function Call: WRITE	Prompt: !,?5,"Rendering Provider: " Line Location: PF+4
Function Call: WRITE	Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U) Line Location: PF+5
Function Call: WRITE	Prompt: !,?2,PS2," " Line Location: PF+7
Function Call: WRITE	Prompt: !,?4 Line Location: PF+8
Function Call: WRITE	Prompt: DS," Related Diagnosis ",DS Line Location: PF+8
Function Call: WRITE	Prompt: !,?8,CD," ",$P(N,U,3) Line Location: PF+11
Function Call: WRITE	Prompt: ! Line Location: PRO1+3
Function Call: WRITE	Prompt: !! Line Location: PRO1+4
Function Call: WRITE	Prompt: Z Line Location: PRO1+4
Function Call: WRITE	Prompt: Z Line Location: PRO1+4
Function Call: WRITE	Prompt: ! Line Location: PRO1+5
Function Call: WRITE	Prompt: Z Line Location: PRO1+5
Function Call: WRITE	Prompt: Z Line Location: PRO1+5
Function Call: WRITE	Prompt: ! Line Location: PRO1+6
Function Call: WRITE	Prompt: Z Line Location: PRO1+6
Function Call: WRITE	Prompt: Z Line Location: PRO1+6
Function Call: WRITE	Prompt: ! Line Location: PRO1+7
Function Call: WRITE	Prompt: Z Line Location: PRO1+7
Function Call: WRITE	Prompt: Z Line Location: PRO1+7
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRO1+8
Function Call: WRITE	Prompt: !," ^=Abort <RET> to Continue:<",DGNUM,">// " Line Location: PRO1+8
Function Call: WRITE	Prompt: !,"*WARNING: This is a Fee Basis PTF record* 801 encounters are not allowed." Line Location: A+4
Function Call: WRITE	Prompt: $P(^(0),U) Line Location: PRV+0
Function Call: WRITE	Prompt: L Line Location: PRV+1
Function Call: READ	Timeout: DTIME Variable: RC Line Location: X+1
Function Call: WRITE	Prompt: !!,"Delete Patient move <1",$S(PM<3:"",1:"-"_(PM-1)),">: " Line Location: X+1
Function Call: WRITE	Prompt: ! Line Location: X+2
Function Call: WRITE	Prompt: !!,"Enter the record # to delete from the PTF file, 1",$S(PM<3:"",1:"-"_(PM-1)) Line Location: X+3
Function Call: WRITE	Prompt: !,*7,"Cannot delete discharge movement",! Line Location: X1+0
Function Call: WRITE	Prompt: " ",RC,"-DELETED***" Line Location: X1+1
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO Line Location: Z+0
Routine Call	DIE Line Location: X1+1

Name	Line Occurrences (* Changed, ! Killed)
^DGICD9(46.1 - [#46.1]	CKSCI+2
^DGPT - [#45]	GET, GET+1, NDG, NSR, NPR, A+4
^DIC(42.4 - [#42.4]	WD2+3, WD2+4
^SC - [#44]	PF+5
^TMP("PTF"	DGPTFM+2!
^UTILITY($J	GET+2!, WD1+1!*
^VA(200 - [#200]	PRV

Label References

Name	Line Occurrences
@(	A+5, A+6
CKSCI	PF+12
DGPTFM	A+4
DIAG	NDG+1
GET	NDG+1
NPR	PRO
PF	NPS
PRO	SER, NPR
PRO1	DIAG, SER, SERV, PRO, ENC, PF+19
PRV	PF+3, PF+4
SD	SERV
SD1	SD
SD2	SERV
SER	DIAG+1
SERV	SER, NSR+1
WD	DIAG
WD1	WD
WD2	DIAG
WR	GET+2, NDG, NSR+1, PROC, NPR, NPS, A+5, EN
X	X+3
X1	X+1
Z	WR

Name	Field # of Occurrence
^(	GET, NDG, NSR
^("401P"	NPR
^("P"	GET
^(0	WD2+5, PRV

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A+6
>> A	A+3*, A+6, X+2
>> ANS	PRO1+8*, A+3, A+5
CD	PF+9, PF+10, PF+11, PF+13*, PF+19!
>> CKSCI	PF+9, CKSCI+2, CKSCI+5
>> DA	X1+1*
>> DA(1	X1+1*
>> DFN	GET+1, PF+1
DGINFO	CKSCI+1~, CKSCI+2*, CKSCI+3, CKSCI+7
>> DGLOC	PF+9, PF+12, PF+13
>> DGLST	PF*
DGNUM	PRO1+3*, PRO1+8!
>> DGPC	GET+2*
>> DGPTFE	PRO1+4, A+2
>> DGST	PRO1+3
>> DGSTRT	PF, PF+9, PF+13
>> DGVI	Z
>> DGVO	Z
DGZDIAG	DIAG*, SER!, PRO!, PROC+3!, PRO1+3, A+5
>> DGZPRF	ENC, PF, PF+2, PF+7, PF+15, PF+16, PRO1+3, A+5
>> DGZPRF(	PF, PF+1, PF+3, PF+4, PF+5, PF+7, PF+9, PF+12, PF+14, PF+15
DGZPRO	DIAG!, SER!, PRO*, PROC+3!, PRO1+3, A+5
DGZSER	DIAG!, SER*, PRO!, PROC+3!, PRO1+3, A+5
DGZSUR	DIAG!, SER!, PRO!, PROC+3!, PRO1+3, A+5
>> DIE	X1+1*
>> DP	X1+1*
DR	X1+1*!
>> DS	PF+8*
DT	PRO1+2
DTIME	PRO1+8, X+1
>> HEAD	WR
I	GET, NDG, NSR, PF+19!, CKSCI+4, CKSCI+6, CKSCI+7
>> I1	GET, GET+2, NDG, NDG+1, NSR*, NSR+1
ICDVDT	PRO1+1~, PRO1+2*
ICPTVDT	PRO1+1~, PRO1+2*
IEN	CKSCI~, CKSCI+1, CKSCI+2
IOF	WR
IOSL	PRO1+3
>> J	DIAG, WD, WD1+1, SERV, SD, SD1+1, PF*, PF+1, PF+2, PF+3 , PF+4, PF+5, PF+7, PF+9, PF+12, PF+13, PF+14, PF+15, PF+16, A+5
>> J1	WD, WD1+1, SD, SD1+1, PROC+1*, PROC+2
K	PF+7*, PF+9, PF+12, PF+13, PF+14, PF+15, PF+16, PF+19!
L	WD, WD1, SD, SD1, PROC+1, PF+3, PF+4, PF+19!, CKSCI+4, PRV , PRV+1
L1	WD, WD1+1, SD, SD1+1, PF+6, PF+9, PF+14*, PF+15, PF+16, PF+19!
>> L2	WD1, WD1+1, SD1, SD1+1, PROC+1*, PROC+2
>> L3	WD, WD1+1, SD, SD1+1
>> L4	WD1, WD1+1, SD1, SD1+1, PROC+1*, PROC+2
>> L5	DIAG, WD2+1, SERV, SD2
>> L6	DIAG, WD2+1, SERV, SD2
M	DGPTFM+2!, NDG!, CKSCI+5*
M(	GET, DIAG, WD, WD1+1, WD2+1, NDG, X+3, X1, X1+1
M1	DGPTFM+2!, GET+2!, NDG!
M2	DGPTFM+2!, GET+2!, WD1, WD1+1, NDG!*
M3	DGPTFM+2!
M3(	GET*, WD2+1
MT	GET+1!, NDG+1!
N	WD1, SD1, PROC+1, PF+10, PF+11, PF+19!
>> NL	DIAG, WD2+1, SERV, SD2*
P1	PRO!
P2	PRO!, PROC+1, PROC+2
P2(	PROC+2!*
>> PGBRK	PF+2, PF+6, PF+7, PF+9, PF+15*
>> PM	DIAG, NDG+1*, X+1, X+3
>> PROC	PRO, PROC, PROC+1, NPR*
PS2	DGPTFM+2!, PF, PF+7, PF+13
PS2(	PF+13*
>> PTF	GET, GET+1, WD1, NDG, SD1, NSR, PROC+1, PF+1, PF+10, NPR , PRO1+2, A+4, X1+1
>> RC	X+1, X+2, X+3, X1, X1+1
S	DGPTFM+2!, NSR!
S(	SERV, SD, SD2, NSR*
S1	DGPTFM+2!, SER!, NSR!
S2	DGPTFM+2!, SER!, SD1, SD1+1, NSR!, NSR+1*
S2(	SD1+1!*
SDCLY	DGPTFM+2!, GET+1, PF+1
SDCLY(	CKSCI+4
>> ST	GET+2, DIAG, DIAG+1, NDG+1, SER, SERV, PRO, NPR, A+5
>> ST1	A+5*
>> SU	SERV, NSR+1*
U	GET, GET+1, WD, WD1, WD1+1, WD2+1, WD2+2, WD2+3, WD2+4, WD2+5 , SD, SD1, SD1+1, PROC+1, ENC, PF, PF+2, PF+3, PF+4, PF+5 , PF+7, PF+9, PF+10, PF+11, PF+12, PF+13, PF+14, PF+15, PF+16, CKSCI+6 , CKSCI+7, PRO1+3, A+2, A+4, A+5, PRV
>> X	PRO1+3, A+3, A+4, A+6
>> XREF(	CKSCI+1, CKSCI+2
>> Y	WD2+1, SD2, PF*, PF+2
Z	WD2+1, WD2+3, WD2+4, WR, PRO1+4, PRO1+5, PRO1+6, PRO1+7!, A, A+1 , A+2, A+6, X+1, X+3*, Z
Z3	WD2~, WD2+1*, WD2+2

Customize PDF page

Package: Registration

Routine: DGPTFM

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
WD
SD1
SD2
CKSCI(IEN)
PRO1	;SET MENU TYPE AND DISPLAY MENU
EN
DONE
WR
SERV
SER
GET
PRO
PRV
PF
NSR
X1
A
ENC
NDG
X	;
Z
DIAG
WD1
WD2
SD
PROC
NPS
NPR