Routine: DGPTF4

Package	Total	Call Graph
Registration	16	Q^DGPTF CLS^DGPTF2 ACT^DGPTF41 (CEN,Z,Z1)^DGPTF5 EN1^DGPTFD OPEN^DGPTFDEL Z^DGPTFM PRN2^DGPTFM8 ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10 HELP^DGPTMSGD $$RTEN^DGPTR4 VERCHK^DGPTRI3 CHK701^DGPTSCAN UP701^DGPTSPQ SUDO1^DGPTSUDO ($$CKPOS,D,HANG)^DGPTUTL
VA FileMan	3	(,FILE)^DIE $$EXTERNAL^DILFD ^DIR
DRG Grouper	1	$$ICDDATA^ICDXCODE

Package	Total	Caller Graph
Registration	6	DGPTC1 DGPTF1 DGPTF2 DGPTF41 DGPTFM DGPTFMO

Entry Points

Name	Comments	DBIA/ICR reference
WR	;
EN
AS	;
EN1	;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN
EN2
JUMP
X
CLS	;
O
Q
NOT
Z
Z1
CEN
DSP	;
POA(TEXT)	; -- Returns POA Text
POA1	;Y:PRESENT ON ADMISSION;N:NOT PRESENT ON ADMISSION;U:INSUFFICIENT DOCUM TO PRESENT ON ADMISSION;W:UNABLE TO DETERM IF PRESENT ON ADMISSION
PGBR

External References

Name	Field # of Occurrence
Q^DGPTF	Q
CLS^DGPTF2	CLS+13
ACT^DGPTF41	X
CEN^DGPTF5	CEN
Z^DGPTF5	Z
Z1^DGPTF5	Z1
EN1^DGPTFD	EN2+3
OPEN^DGPTFDEL	O+2
Z^DGPTFM	WR+1
PRN2^DGPTFM8	EN1+21
$$GETLABEL^DGPTIC10	EN1+5
EFFDATE^DGPTIC10	EN1+3
WRITECOD^DGPTIC10	EN1+8, DSP+3
HELP^DGPTMSGD	CLS+12
$$RTEN^DGPTR4	AS+2
VERCHK^DGPTRI3	CLS+1
CHK701^DGPTSCAN	EN1+19
UP701^DGPTSPQ	EN1+19
SUDO1^DGPTSUDO	CLS+9
$$CKPOS^DGPTUTL	AS+7
D^DGPTUTL	EN
HANG^DGPTUTL	CLS+1, CLS+6, CLS+7, CLS+10, O
^DIE	O, NOT
FILE^DIE	EN2+7
$$EXTERNAL^DILFD	WR+1, EN+1, EN+2, EN+5, EN+10
^DIR	PGBR
$$ICDDATA^ICDXCODE	EN1+4, DSP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,HEAD,?72 Line Location: WR+1
Function Call: WRITE	Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS)) Line Location: WR+1
Function Call: WRITE	Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS)) Line Location: WR+1
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: $S($P(B(0),U,11)=1:"Date of Disch: ",1:"Census Date : ") Line Location: EN+0
Function Call: WRITE	Prompt: $S($P(B(0),U,11)=1:"Date of Disch: ",1:"Census Date : ") Line Location: EN+0
Function Call: WRITE	Prompt: !," Type of Disch: ",$$EXTERNAL^DILFD(45,72,,$P(B(70),U,3)) Line Location: EN+1
Function Call: WRITE	Prompt: ?41,"Disch Status: ",$$EXTERNAL^DILFD(45,72.1,,$P(B(70),U,14)) Line Location: EN+2
Function Call: WRITE	Prompt: !," Place of Disp: ",$S($D(^DIC(45.6,+$P(B(70),U,6),0)):$E($P(^(0),U,1),1,21),1:"") Line Location: EN+3
Function Call: WRITE	Prompt: ?40 Line Location: EN+4
Function Call: WRITE	Prompt: " Out Treat: ",$P("YES^^NO",U,+$P(B(70),U,4)) Line Location: EN+4
Function Call: WRITE	Prompt: !?6,"Means Test: ",$$EXTERNAL^DILFD(45,10,,$P(B(0),U,10)) Line Location: EN+5
Function Call: WRITE	Prompt: ?42,"VA Auspices: ",$S($P(B(70),U,5)=1:"YES",$P(B(70),U,5)=2:"NO",1:"") Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: " Receiv facil: " Line Location: EN+7
Function Call: WRITE	Prompt: " Receiv facil: " Line Location: EN+7
Function Call: WRITE	Prompt: !," C&P Status: ",$$EXTERNAL^DILFD(45,78,,$P(B(70),U,9)),?47,"Income: $",DGINC Line Location: EN+10
Function Call: WRITE	Prompt: !," ASIH Days: ",$P(B(70),U,8) Line Location: AS+3
Function Call: WRITE	Prompt: ?40,"SC Percentage: ",$S($P(A(.3),U)="Y":$P(A(.3),U,2)_"%",1:"") Line Location: AS+4
Function Call: WRITE	Prompt: ?60,"Transmitted: ["_DGRSC_"%]" Line Location: AS+5
Function Call: WRITE	Prompt: !,?39,"Period Of Serv: " Line Location: AS+6
Function Call: WRITE	Prompt: ! Line Location: EN1+7
Function Call: WRITE	Prompt: " Principal Diagnosis: ",ICDLABEL Line Location: EN1+7
Function Call: WRITE	Prompt: " (POA=",$S($P(DGPTPOA,U)]"":$P(DGPTPOA,U),1:"''"),")" Line Location: EN1+14
Function Call: WRITE	Prompt: !?5,"Secondary Diag: ",ICDLABEL Line Location: EN1+15
Function Call: WRITE	Prompt: X Line Location: JUMP+2
Function Call: WRITE	Prompt: !!,7,"Unable to release DRG ",DRG,". Please verify data entered.",7 Line Location: CLS+6
Function Call: WRITE	Prompt: !!,7,"Unable to release DRG ",DRG,". Please verify data entered.",7 Line Location: CLS+7
Function Call: WRITE	Prompt: !,"Updating TRANSFER DRGs..." Line Location: CLS+9
Function Call: WRITE	Prompt: !,"Cannot close with Discharge date in future." Line Location: CLS+10
Function Call: WRITE	Prompt: !," NOT CLOSED " Line Location: O+0
Function Call: WRITE	Prompt: !!,"Unable to close without a ",$S('$D(DRG):"DRG being calculated.",'DGDD:" discharge date.",1:" facility specified"),!!,7,7 Line Location: NOT+1
Function Call: WRITE	Prompt: !," " Condition for execution: $X>73 Line Location: DSP+5
Function Call: WRITE	Prompt: " (POA=",$S(DGPOA]"":DGPOA,1:"''"),")" Line Location: DSP+5
Routine Call	DIE Line Location: O NOT
Routine Call	DIE Line Location: EN2+7
Routine Call	DIR Line Location: PGBR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGM - [#45.5]	CLS+11!
^DGM("PT"	CLS+11!, CLS+12
^DGP(45.84 - [#45.84]	EN2+4, JUMP+4, O
^DGPM - [#405]	AS+7
^DGPM("APTF"	AS+7
^DGPT - [#45]	EN1+1, EN1+12, EN1+21, EN2+1, CLS+9, NOT
^DIC(21 - [#21]	AS+7
^DIC(42.4 - [#42.4]	EN
^DIC(45.6 - [#45.6]	EN+3

Label References

Name	Line Occurrences
CEN	CLS+8
DSP	EN1+16, EN1+17
EN1	CLS+1, CLS+6, CLS+7, CLS+8, CLS+10, CLS+12, O, O+3, NOT, NOT+1
NOT	CLS+2
O	JUMP+4
PGBR	EN1+18, DSP+7
WR	EN1+1, EN1+18, DSP+7
Z	EN, EN+4, EN+7, EN1+7
Z1	EN, EN+7

Naked Globals

Name	Field # of Occurrence
^("ODS"	AS+7
^(0	EN, EN+3, AS+7, EN2+1, EN2+4
^(300	EN1+21
^(70	EN1+1
^(71	EN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A(	AS+2, AS+4, AS+5, AS+7
AGE	JUMP!
B	JUMP!
B(0	EN, EN+5
B(101	EN+8, AS+7
B(70	EN, EN+1, EN+2, EN+3, EN+4, EN+6, EN+7, EN+10, AS+3, EN1+1* , EN1+4, EN1+8, EN1+11, EN1+16
B(71	EN1+1*, EN1+17
CC	JUMP!
DA	EN2+2, JUMP!, O, NOT*
DAM	JUMP!
>> DFN	EN2+2, CLS+11, CLS+12
DG300	EN1+21*!
>> DGADM	CLS+9*
DGALL	CLS+12!
>> DGCST	CLS+8
>> DGDAT	CLS+6
>> DGDD	JUMP+4, CLS+2, CLS+10, NOT+1
DGERR	CLS+1!
>> DGFC	CLS+2, NOT*
DGFDA	EN2+5~
DGFDA(	EN2+6*
>> DGIDTS	WR+1
DGINC	EN+8, EN+9, EN+10, EN+11!
DGMSG	EN2+5~
>> DGN	O, O+1
>> DGPOA	EN1+16, EN1+17, DSP+5
>> DGPR	JUMP+1
>> DGPTDAT	EN1+5
DGPTF	EN1+19, CLS+12!
DGPTIFN	O+2*, O+3!
DGPTPOA	EN1+12~*, EN1+14, EN1+16, EN1+17
>> DGPTTMP	EN1+4*, EN1+9, EN1+11, EN1+14
DGRSC	AS+1~, AS+2*, AS+5
DGRTY	O+2*, O+3!
>> DGST	EN1+19, JUMP+4, O, O+1, O+2*
DIC	JUMP!
DIE	JUMP!, O, NOT
DIR	PGBR~
DIR("A"	PGBR*
DIR(0	PGBR*
DOB	JUMP!
DR	JUMP!, O, NOT
DRG	EN1+1!, EN2!, EN2+4, EN2+6, JUMP+4, CLS+2, CLS+6, CLS+7, NOT+1
DRGCAL	JUMP!
DT	CLS+10
DXLS	JUMP!
EFFDATE	EN1+2~, EN1+4, EN1+8, DSP+3, DSP+4
EXP	JUMP!
>> HEAD	WR+1
I	EN1+16, EN1+17, JUMP!, CLS+11*, DSP+1, DSP+3, DSP+4
>> ICDLABEL	EN1+5*, EN1+7, EN1+11, EN1+15
IMPDATE	EN1+2~
IOF	WR+1
IOSL	EN1+18, DSP+7
J	EN1+2~
J2	DSP+2~, DSP+4*, DSP+5, DSP+6
>> K	EN1+16, EN1+17, DSP+1, DSP+3, DSP+4
L1	JUMP!
L2	JUMP!
POA	POA+1~
POA(	POA+7
POA("N"	POA+4*
POA("U"	POA+5*
POA("W"	POA+6*
POA("Y"	POA+3*
>> PTF	AS+7, EN1+1, EN1+3, EN1+12, EN1+19, EN1+21, EN2+1, EN2+4, EN2+6, JUMP+4 , CLS+1, CLS+9, O, O+2, NOT
S	JUMP!
SEX	JUMP!
TEXT	POA~, POA+2, POA+7
U	EN, EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+10 , AS+2, AS+3, AS+4, AS+5, AS+7, EN1+4, EN1+8, EN1+9, EN1+11, EN1+14 , EN2+1, EN2+4, CLS+9, NOT, DSP+1, DSP+3, DSP+4, DSP+5, DSP+6
X	WR+1!, JUMP+2!, CLS+12*, PGBR~
Y	EN*, PGBR~
>> Z	WR+1, EN, EN+4, EN+7, EN1+7*
>> Z1	EN, EN+7

Customize PDF page

Package: Registration

Routine: DGPTF4

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: