Routine: DGPTFM

Package	Total	Call Graph
Registration	17	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 PTFICD^DGPTFUT ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10 D^DGPTUTL CPT^DGPTUTL1
VA FileMan	3	^DIE $$EXTERNAL^DILFD ^DIR
DRG Grouper	2	$$GETDATE^ICDGTDRG $$ICDDATA^ICDXCODE
Scheduling	1	CL^SDCO21

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

Entry Points

Name	Comments	DBIA/ICR reference
GET	;set m,m3 local array of movement records
DIAG	;
WD	;
WD1	;
WD2	;
NDG
SER	;
SERV	;
SD	;
SD1	;
SD2	;
NSR
WR
PRO	;load 401p code before 2871000
PROC	; Display procedures in field 45.01 - 45.05
ENC	;G PRO1:$Y>7,PRO1:'$P(DGZPRF,U,3)
PF
CKSCI(IEN)
NPR
NPS
DONE
PRO1	;SET MENU TYPE AND DISPLAY MENU
A
PRV
X	;
X1
Z	;
EN
PGBR

External References

Name	Field # of Occurrence
ICDINFO^DGAPI	PF+1
IN^DGHELP	A+3
ORDER^DGPTF	GET+6, NDG+2
Q^DGPTF	A+3
EN1^DGPTF4	DONE
^DGPTFJ	A+3
MAS^DGPTFJC	PRO1+4
^DGPTFM	X+1, X1, X1+1
EN^DGPTFM0	EN
PRC^DGPTFM0	SERV+4
HELP^DGPTFM1A	A+6
MOB^DGPTFM2	GET+7
XREF^DGPTFM21	PF+1
GETVAR^DGPTFM6	GET+7
SD3^DGPTFM8	SERV+2
WD3^DGPTFM8	DIAG+3
PTFICD^DGPTFUT	WD+5, SD+2
$$GETLABEL^DGPTIC10	WD+3, SD2+1, PROC+6, PF+9
EFFDATE^DGPTIC10	DGPTFM+6, WD+2, PRO1+2
WRITECOD^DGPTIC10	WD1+3, SD1+3, PROC+10, PF+12
D^DGPTUTL	WD2+2, SD2+1, PF+2
CPT^DGPTUTL1	PF+7
^DIE	X1+1
$$EXTERNAL^DILFD	WR+1
^DIR	PGBR
$$GETDATE^ICDGTDRG	PRO1+3
$$ICDDATA^ICDXCODE	WD1+1, SD1+1, PROC+8, PF+11
CL^SDCO21	GET+7, PF+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIAG+2
Function Call: WRITE	Prompt: ! Line Location: DIAG+3
Function Call: WRITE	Prompt: !?2,"Movement Diagnosis: ",$$GETLABEL^DGPTIC10(DGPTDAT,"D") Line Location: WD+3
Function Call: WRITE	Prompt: !,?L1,$J(M2,3)," " Line Location: WD1+2
Function Call: WRITE	Prompt: !," " Condition for execution: $X>73 Line Location: WD1+4
Function Call: WRITE	Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")" Line Location: WD1+4
Function Call: WRITE	Prompt: @IOF,HEAD,?70 Line Location: WD1+7
Function Call: WRITE	Prompt: ! Line Location: WD1+7
Function Call: WRITE	Prompt: !?L5,"Move #",+L6 Line Location: WD2+2
Function Call: WRITE	Prompt: " D/C" Condition for execution: +Z=1 Line Location: WD2+2
Function Call: WRITE	Prompt: " ",Y," " Line Location: WD2+2
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+3
Function Call: WRITE	Prompt: $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10) Line Location: WD2+5
Function Call: WRITE	Prompt: $E($P(^(0),U,1),1,10) Line Location: WD2+6
Function Call: WRITE	Prompt: ! Line Location: SERV+1
Function Call: WRITE	Prompt: ! Line Location: SERV+2
Function Call: WRITE	Prompt: @IOF,HEAD,?70 Line Location: SD1+5
Function Call: WRITE	Prompt: ! Line Location: SD1+5
Function Call: WRITE	Prompt: !?L5,L6,"-Surgery date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P") Line Location: SD2+1
Function Call: WRITE	Prompt: @IOF,HEAD,?70 Line Location: WR+0
Function Call: WRITE	Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS)) Line Location: WR+1
Function Call: WRITE	Prompt: !,$J(P2P,3)," " Line Location: PROC+10
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+9
Function Call: WRITE	Prompt: DS," Related Diagnosis",$$GETLABEL^DGPTIC10(+DGZPRF(J),"D")," ",DS Line Location: PF+9
Function Call: WRITE	Prompt: ! 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: WRITE	Prompt: ! Line Location: PRO1+8
Function Call: WRITE	Prompt: Z Line Location: PRO1+8
Function Call: WRITE	Prompt: Z Line Location: PRO1+8
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRO1+9
Function Call: WRITE	Prompt: !," ^=Abort <RET> to Continue:<",DGNUM,">// " Line Location: PRO1+9
Function Call: WRITE	Prompt: !,"*WARNING: This is a Community Care 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	Variable: RC Timeout: DTIME 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+1
Routine Call	DIE Line Location: X1+1
Routine Call	DIR Line Location: PGBR

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	EXTERNAL^DILFD

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	GET+2, NDG, NSR
^("401P"	PROC+3, NPR
^("P"	GET+3
^(0	WD2+6, 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+9*, A+3, A+5
CD	PF+10, PF+11, PF+12, PF+15, PF+19!
>> CKSCI	PF+10, CKSCI+2, CKSCI+5
>> DA	X1+1*
>> DA(1	X1+1*
>> DFN	GET+7, PF+1
>> DGIDTS	WR+1
DGINFO	CKSCI+1~, CKSCI+2*, CKSCI+3, CKSCI+8
>> DGLOC	PF+10, PF+14, PF+15
>> DGLST	PF*
DGMMORE	DGPTFM+5~, DGPTFM+12*
DGMOVCNT	DGPTFM+5~, DGPTFM+7, DGPTFM+8
DGMPOA	WD+1~, WD+7*, WD1+4, WD1+6
DGNUM	PRO1+4*, PRO1+9!
>> DGPC	GET+8*
DGPMORE	DGPTFM+5~, DGPTFM+13*
>> DGPRCNT	DGPTFM+11*, DGPTFM+12, DGPTFM+13, PRO+3
>> DGPROC	PROC+4*, PROC+6
DGPROCNT	DGPTFM+5~, DGPTFM+7, DGPTFM+10, DGPTFM+12, DGPTFM+13
>> DGPTDAT	WD+3, PROC+6
>> DGPTFE	PRO1+5, A+2
>> DGST	PRO1+4
>> DGSTRT	PF, PF+10, PF+15
DGSURCNT	DGPTFM+5~, DGPTFM+7, DGPTFM+9, DGPTFM+12
>> DGVI	Z+1
>> DGVO	Z+1
DGX401	SD+2, SD+4!
DGX401(	SD+3
DGX501	WD+5, WD+10!
DGX501(	WD+6
DGZDIAG	DIAG+1*, SER+1!, PRO+1!, PROC+13!, PRO1+4, A+5
>> DGZPRF	ENC+1, PF, PF+2, PF+7, PF+17, PF+18, PRO1+4, A+5
>> DGZPRF(	PF, PF+1, PF+3, PF+4, PF+5, PF+7, PF+9, PF+10, PF+11, PF+12 , PF+14, PF+16, PF+17
DGZPRO	DIAG+1!, SER+1!, PRO+2*, PROC+13!, PRO1+4, A+5
DGZSER	DIAG+1!, SER+2*, SERV+3!, PRO+1!, PROC+13!, PRO1+4, A+5
DGZSUR	DIAG+1!, SER+1!, PRO+1!, PROC+13!, PRO1+4, A+5
>> DIE	X1+1*
DIR	PGBR~
DIR("A"	PGBR*
DIR(0	PGBR*
>> DP	X1+1*
DR	X1+1*!
DS	PF+9*, PF+19!
DT	PRO1+3
DTIME	PRO1+9, X+1
EFFDATE	DGPTFM+5~, WD1+1, WD1+3, SD1+1, SD1+3, SD2+1, PROC+8, PROC+10, PRO1+2, PRO1+3
>> HEAD	WD1+7, SD1+5, WR
I	DGPTFM+8, DGPTFM+9, DGPTFM+10, DGPTFM+11, GET+1, GET+2, GET+3, NDG, NSR, PF+19! , CKSCI+4, CKSCI+7, CKSCI+8
>> I1	DGPTFM+8, DGPTFM+9, DGPTFM+10, DGPTFM+11, GET+1, GET+2, GET+3, GET+8, NDG, NDG+2 , NSR*, NSR+1
ICDVDT	PRO1+1~, PRO1+3*
ICPTVDT	PRO1+1~, PRO1+3*
IEN	CKSCI~, CKSCI+1, CKSCI+2
IMPDATE	DGPTFM+5~
IOF	WD1+7, SD1+5, WR
IOSL	WD1+7, SD1+5, PRO1+4
>> J	DIAG+3, WD+5, WD1+6, SERV+2, SD+2, SD1+4, PF*, PF+1, PF+2, PF+3 , PF+4, PF+5, PF+7, PF+9, PF+10, PF+11, PF+12, PF+14, PF+15, PF+16 , PF+17, PF+18, A+5
>> J1	WD+6, WD1+6, SD+3, SD1+4, PROC+7*, PROC+12
K	PF+7*, PF+10, PF+14, PF+15, PF+16, PF+17, PF+18, PF+19!
L	WD+6, WD+7, WD+8, WD1+1, WD1+3, WD1+6, SD+3, SD1+1, SD1+3, SD1+4 , PROC+7, PROC+8, PROC+10, PF+3, PF+4, PF+19!, CKSCI+4, PRV, PRV+1
L1	WD+6, WD1+2, WD1+6, SD+3, SD1+3, SD1+4, PF+6, PF+10, PF+16*, PF+17 , PF+18, PF+19!
>> L2	PROC+9*
>> L3	WD+6, SD+3
>> L5	DIAG+3, WD2+2, SERV+2, SD2+1
>> L6	DIAG+3, WD2+2, SERV+2, SD2+1
M	DGPTFM+4!, NDG!, CKSCI+5*
M(	GET+2, GET+3, WD+5, WD1+6, WD2+2, NDG*, X+3, X1, X1+1
M1	DGPTFM+4!, GET+10!, NDG!
M2	DGPTFM+4!, GET+10!, GET+11, WD1+1, WD1+2, WD1+6, NDG!*
M3	DGPTFM+4!
M3(	GET+2*, WD2+2
MT	GET+6!, NDG+2!
N	WD1+1, WD1+4, WD1+5, SD1+1, SD1+3, PROC+8, PROC+9, PROC+11, PF+11, PF+13 , PF+19!
>> NL	DIAG+3, SERV+2
P	DGPTFM+4!
P1	DGPTFM+4!
P1P	DGPTFM+4!, PRO+4!
P2	DGPTFM+4!
P2P	DGPTFM+4!, PRO+4!, PROC+7, PROC+10, PROC+12
P2P(	PROC+12!*
>> PGBRK	PF+2, PF+6, PF+7, PF+10, PF+17*
>> PM	DIAG+3, NDG+2*, X+1, X+3
PR	PROC+4*, PROC+5!
>> PROC	PRO+5, PROC+3, PROC+4, PROC+7, NPR
PS2	DGPTFM+4!, PF, PF+7, PF+15
PS2(	PF+15*
>> PTF	DGPTFM+6, DGPTFM+8, DGPTFM+9, DGPTFM+10, DGPTFM+11, GET+1, GET+3, GET+7, WD+2, WD+5 , NDG, SD+2, NSR, PROC+3, PF+1, NPR, PRO1+2, PRO1+3, A+4, X1+1
>> RC	X+1, X+2, X+3, X1, X1+1
S	DGPTFM+4!, NSR!
S(	SD+2, SD2+1, NSR*
S1	DGPTFM+4!, SER+4!, NSR!
S2	DGPTFM+4!, SER+4!, SER+5, SD1+2, SD1+3, SD1+4, NSR!, NSR+1*
S2(	SD1+4!*
SDCLY	DGPTFM+4!, GET+7, PF+1
SDCLY(	CKSCI+4
>> ST	GET+11, DIAG+3, DIAG+4, NDG+2, SER+5, SERV+2, PRO+4, NPR, A+5
>> ST1	A+5*
>> SU	SERV+2, NSR+1*
U	DGPTFM+11, GET+3, GET+7, WD+7, WD1+4, WD1+5, WD1+6, WD2+2, WD2+3, WD2+4 , WD2+5, WD2+6, SD1+3, SD1+4, PROC+9, PROC+11, ENC+1, PF, PF+2, PF+3 , PF+4, PF+5, PF+7, PF+10, PF+13, PF+14, PF+15, PF+16, PF+17, PF+18 , CKSCI+7, CKSCI+8, PRO1+4, A+2, A+4, A+5, PRV
X	PRO1+4, A+3, A+4, A+6, PGBR~
X1	DGPTFM+4!
>> XREF(	CKSCI+1, CKSCI+2
Y	WD2+2, SD2+1, PF*, PF+2, PGBR~
Z	WD1+7, WD2+2, WD2+4, WD2+5, SD1+5, WR, PRO1+5, PRO1+6, PRO1+7, PRO1+8! , A, A+1, A+2, A+6, X+1, X+3*, Z+1
Z3	WD2+1~, WD2+2*, WD2+3

Customize PDF page

Package: Registration

Routine: DGPTFM

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: