Routine: DGPTOLC2

Package	Total	Call Graph
Registration	4	^DGPMLOS Q2^DGPTOLC1 LO^DGUTL IN5^VADPT
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	(,NOW)^%DTC

Package	Total	Caller Graph
Registration	1	DGPTOLC1

Entry Points

External References

Name	Field # of Occurrence
^%DTC	E+1
NOW^%DTC	EN
^DGPMLOS	HD+2
Q2^DGPTOLC1	EN+3
LO^DGUTL	EN
$$ICDDX^ICDCODE	C
$$ICDOP^ICDCODE	P1
$$GETDATE^ICDGTDRG	C, P1
IN5^VADPT	DGPRO+1
$$FMTE^XLFDT	EN, DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?21,"PATIENT SUMMARY by ADMISSION",!!?51,"Run Date: ",DGDT,!,DGPT,?32,"SSN: ",$P(^DPT(+^DGPT(PTF,0),0),"^",9),?51,"Admitted: " Line Location: HD+0
Function Call: WRITE	Prompt: !,"Elig: ",DGELIG," (",DGSTAT,")",?50,"Discharge: " Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: HD+1
Function Call: WRITE	Prompt: "Fee Basis" Condition for execution: DGFEE Line Location: HD+1
Function Call: WRITE	Prompt: "Total LOS: " Line Location: HD+2
Function Call: WRITE	Prompt: $S(X>0:X,1:"1") Line Location: HD+2
Function Call: WRITE	Prompt: $S(X>0:X,1:"1") Line Location: HD+2
Function Call: WRITE	Prompt: ?55,"PTF #: ",PTF,?72,"Pg: ",DGPG Line Location: HD+3
Function Call: WRITE	Prompt: !,"* indicates the most recent PROVIDER entered for this admission",! Condition for execution: DGPMIFN>0 Line Location: HD+3
Function Call: WRITE	Prompt: !!,"Movement Date: " Line Location: D+2
Function Call: WRITE	Prompt: ?40,"(Discharge 501)" Condition for execution: DGMD(DGS)=1 Line Location: D+2
Function Call: WRITE	Prompt: !!,"Discharge Move: (701/2/3 Diagnoses)",! Line Location: D+3
Function Call: WRITE	Prompt: !!,"Surgery Date: " Line Location: S+0
Function Call: WRITE	Prompt: !!,"Procedure Date: " Line Location: S+2
Function Call: WRITE	Prompt: !,"Total LOS: ",$S(DGLOS>0:DGLOS,1:"1") Condition for execution: DGFEE Line Location: S+3
Function Call: WRITE	Prompt: ! Line Location: S+3
Function Call: WRITE	Prompt: !,"Diagnosis Codes, (cont.)" Line Location: C+1
Function Call: WRITE	Prompt: ?10,$P(DGICD,"^",3)_" ("_$P(DGICD,"^",1)_")" Line Location: C+2
Function Call: WRITE	Prompt: " Codes, (cont.)" Line Location: P1+1
Function Call: WRITE	Prompt: !?10,$P(DGICD,"^",4)_" ("_$P(DGICD,"^")_")" Line Location: P1+2
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(X,"5DF")," ","0") Line Location: DT+0
Function Call: WRITE	Prompt: "@"_$E(X,1,2)_":"_$E(X_"0000",3,4) Line Location: DT+0
Function Call: WRITE	Prompt: !,"Losing Specialty: ",DGBS Line Location: BS+0
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: READ	Prompt: "Enter <RETURN> to continue" Formatting: ?20 Timeout: DTIME Variable: Y Line Location: CONT+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	E
^DGPM - [#405]	DGPRO
^DGPM("APTF"	EN+2, DGPRO
^DGPT - [#45]	EN+2, E+1, E+3, HD, D, D+1, D+2, S, S+1, S+2
^DIC(42.4 - [#42.4]	BS
^DIC(8 - [#8]	E
^DPT - [#2]	E, E+2, HD
^VA(200 - [#200]	E+2, E+3

Name	Field # of Occurrence
^(	E, E+2, D+1, S, S+2
^("401P"	S+1
^("P"	E+3
^(0	EN+2, E, E+2, E+3, D+1, D+2, BS
^(70	E+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN, E, LOS*
>> D1	E+1*
>> DFN	EN+2*, E, E+2
>> DG70	E+1*, E+2, E+3, HD+1, D+3
>> DGADM	EN+1, EN+2, E+1, HD
>> DGBS	D+2, BS
>> DGC	D+2, D+3, S, S+1, S+2*, C, C+2, P1
>> DGDT	EN*, HD
>> DGELIG	E*, HD+1
DGF	S*, S+1!, P1+1
>> DGFEE	E+1*, HD+1, D+2, S+3
>> DGICD	C, C+2, P1, P1+2
>> DGLOS	E+1, S+3, LOS+1
>> DGLV	E+1, LOS, LOS+1
>> DGM	D+2, D+3, C, LOS
DGMD	D+1!*
DGMD(	D+1*, D+2
>> DGNAME	EN+1*
>> DGPG	EN+2, HD+3
>> DGPMIFN	EN+2*, HD+2, HD+3
>> DGPRO	E+2, E+3, HD+2, DGPRO+1, DGPRO+2
>> DGPT	EN, EN+2, HD
>> DGPTF(	EN+1*!, EN+2
>> DGPTTMP	C, P1
>> DGPTX	EN+2*
>> DGS	D+1, D+2, S, S+2
>> DGSTAT	E*, HD+1
>> DGSUR	S, S+1, S+2*, P1
DT	EN, E+1
DTIME	CRT, CONT+1
IOF	HD
IOSL	C+1, P1+1, CONT
IOST	CRT, S+3
>> PTF	EN+1, EN+2, E+1, E+3, HD, HD+3, D, D+1, D+2, S , S+1, S+2, C, P1, DGPRO
U	C, P1
VAIP	DGPRO+1!, DGPRO+2!
VAIP("E"	DGPRO*, DGPRO+1
VAIP(7	DGPRO+1
>> X	E, E+1, HD, HD+1, HD+2, D+2, S, S+2, DT, DGPRO*
>> X1	E+1*
>> X2	E+1*
>> Y	CRT, CONT, CONT+1*

Customize PDF page

Package: Registration

Routine: DGPTOLC2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
BS	D+2
C	D+2, D+3
CONT	S+3
CRT	C+1, P1+1
D	EN+2
DGPRO	E+3
DT	HD, HD+1, D+2, S, S+2
E	EN+2
HD	EN+2
LOS	D+2
P1	S, S+1, S+2
S	D