Routine: DGPTOLC2

Information

DGPTOLC2 ;ALB/AS/ADL,HIOFO/FT - SUMMARY BY ADM RPT, lists diagnoses,sur,pro (cont.) ;3/19/15 11:44am

Package	Total	Call Graph
Registration	6	^DGPMLOS PTFICD^DGPTFUT ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10 Q2^DGPTOLC1 LO^DGUTL IN5^VADPT
VA FileMan	2	(,NOW)^%DTC FIELD^DID
DRG Grouper	1	$$ICDDATA^ICDXCODE
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPTOLC1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;called from DGPTOLC1
E	;
CRT
HD
D
S	; --
C	; --Print Diagnosis and POA display
P1	; -- Print Procedure Code
DT
BS
LOS
CONT
DGPRO

External References

Name	Field # of Occurrence
^%DTC	E+9
NOW^%DTC	EN+1
^DGPMLOS	HD+2
PTFICD^DGPTFUT	D+6, D+12
$$GETLABEL^DGPTIC10	D+4, D+10, S+1, S+5, S+6, C+3
EFFDATE^DGPTIC10	E+1
WRITECOD^DGPTIC10	C+5, P1+4
Q2^DGPTOLC1	EN+4
LO^DGUTL	EN+1
FIELD^DID	E+5
$$ICDDATA^ICDXCODE	C+2, P1+2
IN5^VADPT	DGPRO+1
$$FMTE^XLFDT	EN+1, 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+4
Function Call: WRITE	Prompt: ?40,"(Discharge 501)" Condition for execution: DGMD(DGS)=1 Line Location: D+4
Function Call: WRITE	Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"D") Line Location: D+4
Function Call: WRITE	Prompt: !!,"Discharge Move: (701/2/3 Diagnoses)",$$GETLABEL^DGPTIC10(EFFDATE,"D"),! Line Location: D+10
Function Call: WRITE	Prompt: !!,"Surgery Date: " Line Location: S+1
Function Call: WRITE	Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P") Line Location: S+1
Function Call: WRITE	Prompt: !!,"Procedure Date: " Line Location: S+6
Function Call: WRITE	Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P") Line Location: S+6
Function Call: WRITE	Prompt: !,"Total LOS: ",$S(DGLOS>0:DGLOS,1:"1") Condition for execution: DGFEE Line Location: S+10
Function Call: WRITE	Prompt: ! Line Location: S+10
Function Call: WRITE	Prompt: !,"Diagnosis Codes, (cont.)",$$GETLABEL^DGPTIC10(EFFDATE,"D") Line Location: C+3
Function Call: WRITE	Prompt: " ["_$S($P(DGDXPOA,U,2)]"":$P(DGDXPOA,U,2),1:" ")_"]" Line Location: C+8
Function Call: WRITE	Prompt: " Codes, (cont.)" Line Location: P1+3
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

FileNo	Call Tags
^DPT - [#2]	FIELD^DID

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
BS	D+4
C	D+8, D+14
CONT	S+10
CRT	C+3, P1+3
D	EN+3
DGPRO	E+11
DT	HD, HD+1, D+4, S+1, S+6
E	EN+3
HD	EN+3
LOS	D+4
P1	S+2, S+4, S+5, S+7, S+9
S	D

Naked Globals

Name	Field # of Occurrence
^(	E+2, E+7, E+10, D+1, S+1, S+6
^("401P"	S+5
^("P"	E+11
^(0	EN+3, E+2, E+10, E+11, D+1, D+3, BS
^(70	E+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+1, E+4, E+6, E+8, LOS
>> D1	E+9*
>> DFN	EN+3*, E+2, E+7, E+10
DG501	D+5!, D+6, D+15!
DG501(	D+8
>> DG70	E+9*, E+10, E+11, HD+1, D+9, D+10
DG701	D+11!, D+12, D+15!
DG701(	D+14
>> DGADM	EN+2, EN+3, E+9, HD
>> DGBS	D+3, BS
>> DGC	S+2, S+4, S+5, S+7, S+9*, P1+1, P1+2, P1+4
>> DGDT	EN+1*, HD
DGDXPOA	D+8, D+14, D+15!, C+1, C+2, C+5, C+8
>> DGELIG	E+2*, HD+1
DGF	S+1*, S+5!, P1+3
>> DGFEE	E+9*, HD+1, D+4, S+10
DGFLDERR	E+3~
DGFLDPTR	E+3~
DGFLDPTR("POINTER"	E+6
DGLOOP	D+7, D+8, D+13, D+14, D+15!, C+4
>> DGLOS	E+9, S+10, LOS+1
>> DGLV	E+9, LOS, LOS+1
>> DGM	D+3, D+10, LOS
DGMD	D+1!*
DGMD(	D+1*, D+2, D+4, D+6
>> DGNAME	EN+2*
>> DGPG	EN+3, HD+3
>> DGPMIFN	EN+3*, HD+2, HD+3
>> DGPRO	E+10, E+11, HD+2, DGPRO+1, DGPRO+2
>> DGPT	EN+1, EN+3, HD
>> DGPTF(	EN+2*!, EN+3
>> DGPTTMP	C+2, C+6, C+7, P1+2, P1+5
>> DGPTX	EN+3*
>> DGS	D+1, D+2, D+4, D+6, S+1, S+3, S+6, S+8
>> DGSTAT	E+8*, HD+1
>> DGSUR	S+1, S+3, S+4, S+5, S+6, S+8*, S+9, P1+1, P1+2, P1+4
DT	EN+1, E+9
DTIME	CRT, CONT+1
>> EFFDATE	D+4, D+10, S+1, S+5, S+6, C+2, C+3, C+5, P1+2, P1+4
IOF	HD
IOSL	C+3, P1+3, CONT
IOST	CRT, S+10
>> PTF	EN+2, EN+3, E+1, E+9, E+11, HD, HD+3, D, D+1, D+2 , D+6, D+12, S+1, S+3, S+5, S+6, S+8, DGPRO
U	S+4, S+9, C+1, C+2, C+5, C+6, C+7, C+8, P1+2, P1+5
VAIP	DGPRO+1!, DGPRO+2!
VAIP("E"	DGPRO*, DGPRO+1
VAIP(7	DGPRO+1
>> X	E+7, E+8, E+9, HD, HD+1, HD+2, D+3, S+1, S+6, DT , DGPRO*
>> X1	E+9*
>> X2	E+9*
>> Y	CRT, CONT, CONT+1*

Customize PDF page

Package: Registration