Routine: DGPTF4

Call Graph Total: 17

Package	Total	Call Graph
Registration	14	Q^DGPTF CLS^DGPTF2 ACT^DGPTF41 (CEN,Z,Z1)^DGPTF5 EN1^DGPTFD OPEN^DGPTFDEL Z^DGPTFM PRN2^DGPTFM8 HELP^DGPTMSGD $$RTEN^DGPTR4 CHK701^DGPTSCAN UP701^DGPTSPQ SUDO1^DGPTSUDO ($$CKPOS,D,HANG)^DGPTUTL
DRG Grouper	2	$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG
VA Fileman	1	(,FILE)^DIE

Package

Total

Call Graph

Q^DGPTF CLS^DGPTF2 ACT^DGPTF41 (CEN,Z,Z1)^DGPTF5 EN1^DGPTFD OPEN^DGPTFDEL Z^DGPTFM PRN2^DGPTFM8
HELP^DGPTMSGD $$RTEN^DGPTR4 CHK701^DGPTSCAN UP701^DGPTSPQ SUDO1^DGPTSUDO ($$CKPOS,D,HANG)^DGPTUTL

DRG Grouper

$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG

VA Fileman

(,FILE)^DIE

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

Package

Total

Caller Graph

Registration

DGPTC1 DGPTF1 DGPTF2 DGPTF41 DGPTFM DGPTFMO

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+11
HELP^DGPTMSGD	CLS+12
$$RTEN^DGPTR4	AS+2
CHK701^DGPTSCAN	EN1+9
UP701^DGPTSPQ	EN1+9
SUDO1^DGPTSUDO	CLS+9
$$CKPOS^DGPTUTL	AS+8
D^DGPTUTL	EN
HANG^DGPTUTL	CLS+6, CLS+7, CLS+10, O
^DIE	O, NOT
FILE^DIE	EN2+7
$$ICDDX^ICDCODE	EN1+3, EN1+5, DSP
$$GETDATE^ICDGTDRG	EN1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,HEAD,?72 Line Location: WR+1
Function Call: WRITE	Prompt: !,X 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: " Line Location: EN+1
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1),?41 Line Location: EN+1
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1),?41 Line Location: EN+1
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+2
Function Call: WRITE	Prompt: ?40 Line Location: EN+3
Function Call: WRITE	Prompt: " Out Treat: ",$P("YES^^NO",U,+$P(B(70),U,4)) Line Location: EN+3
Function Call: WRITE	Prompt: !?6,"Means Test: " Line Location: EN+4
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1) Line Location: EN+4
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+5
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: " Receiv facil: " Line Location: EN+6
Function Call: WRITE	Prompt: " Receiv facil: " Line Location: EN+6
Function Call: WRITE	Prompt: !," C&P Status: " Line Location: EN+9
Function Call: WRITE	Prompt: $E($P($P(L,L1,2),";",1),1,24),?47,"Income: $",DGINC Line Location: EN+9
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+7
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: " Principal Diagnosis: ",$S(DGPTTMP&$P(DGPTTMP,U,10):$P(DGPTTMP,U,4)_"("_$P(DGPTTMP,U,2)_")",1:"") Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: JUMP+2
Function Call: WRITE	Prompt: X Line Location: JUMP+3
Function Call: WRITE	Prompt: !!,7,"Unable to release DRG ",DRG,". Please verify data entered.",7 Line Location: CLS+1
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: ?40,$P(J,U,4)_"("_$P(J,U,2)_")" Line Location: DSP+1
Routine Call	DIE Line Location: O NOT
Routine Call	DIE Line Location: EN2+7

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

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

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

Name	Field # of Occurrence
^("ODS"	AS+8
^(0	EN, EN+2, AS+8, EN2+1, EN2+4
^(300	EN1+11
^(70	EN1+1
^(71	EN1+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A(	AS+2, AS+4, AS+5, AS+8
AGE	JUMP!
B	JUMP!
B(0	EN, EN+4
B(101	EN+7, AS+8
B(70	EN, EN+1, EN+2, EN+3, EN+5, EN+6, EN+9, AS+3, EN1+1*, EN1+3 , EN1+5, EN1+6, EN1+7
B(71	EN1+1*, EN1+8
CC	JUMP!
DA	EN2+2, JUMP!, O, NOT*
DAM	JUMP!
>> DFN	EN2+2, CLS+11, CLS+12
DG300	EN1+11*!
>> DGADM	CLS+9*
DGALL	CLS+12!
>> DGCST	CLS+8
>> DGDAT	CLS+6
>> DGDD	JUMP+5, CLS, CLS+10, NOT+1
>> DGFC	CLS, NOT*
DGFDA	EN2+5~
DGFDA(	EN2+6*
DGINC	EN+7, EN+8, EN+9, EN+10!
DGMSG	EN2+5~
>> DGN	O, O+1
>> DGPR	JUMP+1
>> DGPTDAT	EN1+2*, EN1+3, EN1+5, DSP
DGPTF	EN1+9, CLS+12!
DGPTIFN	O+2*, O+3!
>> DGPTTMP	EN1+3, EN1+4, EN1+5, EN1+6
DGRSC	AS+1~, AS+2*, AS+5
DGRTY	O+2*, O+3!
>> DGST	EN1+9, JUMP+5, O, O+1, O+2*
DIC	JUMP!
DIE	JUMP!, O, NOT
DOB	JUMP!
DR	JUMP!, O, NOT
DRG	EN1+1!, EN2!, EN2+4, EN2+6, JUMP+5, CLS, CLS+6, CLS+7, NOT+1
DRGCAL	JUMP!
DT	CLS+10
DXLS	JUMP!
EXP	JUMP!
>> HEAD	WR+1
I	EN1+7, EN1+8, JUMP!, CLS+11*, DSP, DSP+1
IOF	WR+1
>> J	DSP*, DSP+1, DSP+2
>> K	EN1+7, EN1+8, DSP
>> L	EN+1, EN+4, EN+9*
L1	EN+1, EN+4, EN+9*, JUMP!
L2	JUMP!
>> PTF	AS+8, EN1+1, EN1+2, EN1+9, EN1+11, EN2+1, EN2+4, EN2+6, JUMP+5, CLS+9 , O, O+2, NOT
S	JUMP!
SEX	JUMP!
U	EN, EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+9, AS+2 , AS+3, AS+4, AS+5, AS+8, EN1+3, EN1+4, EN1+5, EN1+6, EN2+1, EN2+4 , CLS+9, NOT, DSP, DSP+1, DSP+2
X	WR+1!, JUMP+3!, CLS+12*
>> Y	EN*
>> Z	WR+1, EN, EN+3, EN+6, EN1+4*
>> Z1	EN, EN+6

Customize PDF page

Package: Registration

Routine: DGPTF4

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

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:

Name	Comments	DBIA/ICR reference
Q
EN
CEN
EN2
O
JUMP
EN1	;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN
AS	;
DSP
WR	;
NOT
X
Z
Z1
CLS