Routine: DGOIL1

Package	Total	Call Graph
Registration	4	(%,DQ,HDR)^DGOIL ^DGOIL2 EN1^DGPTFD (INP,PID)^VADPT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	1	DGOIL

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	; -- Print without ward breakout
PRINT2	; -- Print with ward breakout, if DGDRG add DRG data
END
BED	; -- Print room and treating specialty
EN1	; ; - tasked entry , no ward breakout
EN2	; ; - tasked entry, with ward breakout, no drg
NUM
EN3	; ; - tasked entry, with ward breakout, with drg info
PRINT	; -- print line for one entry
DRG	; - calculate DRG from PTF and print on total line

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"BAD 'CN' CROSS REFERENCE FOR WARD ",W,", PATIENT NUMBER",DFN,!! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$P(X,"^",10),$P(X,"^",9),$E(N,1,17),?19,VA("BID") Line Location: PRINT+5
Function Call: WRITE	Prompt: !?41,"TOTAL" Line Location: PRINT2+3
Function Call: WRITE	Prompt: ?27,Y,?38,$E(W,1,10) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?49 Line Location: NUM+0
Function Call: WRITE	Prompt: $J(+$P(X,"^",L),5) Line Location: NUM+0
Function Call: WRITE	Prompt: ?76,"No DRG can be calculated" Line Location: DRG+2
Function Call: WRITE	Prompt: ?112,NTT,"/",LTT,?120,PNT,"/",PLT,?128,FLG Line Location: DRG+6
Function Call: WRITE	Prompt: !,?48,$J("("_DGL_")",7) Line Location: DRG+7
Function Call: WRITE	Prompt: !?38,"Rm: ",VAIN(5),?55,"Spec: ",$E($P(VAIN(3),"^",2),1,19) Line Location: BED+1

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	PRINT+3, DRG+1
^DPT - [#2]	DRG+2
^ICD - [#80.2]	DRG+3

Name	Field # of Occurrence
^(0	PRINT+3, DRG+1, DRG+2, DRG+3

Name	Field # of Occurrence
>> AFFIL	DRG+3
AGE	DRG+2*, END!
>> DFN	PRINT+3, DRG+2
>> DGBEG	EN1+3, EN2+3, EN3+3*
>> DGBRK	PRINT+6, NUM+1, EN1+3, EN2+3, EN3+3*
DGCPT	DRG+2*!
>> DGDRG	PRINT2+4, EN1+3, EN2+3, EN3+3*
>> DGEND	EN1+3, EN2+3, EN3+3*
DGL	PRINT+4*, DRG+4, END!
>> DGPM	PRINT+3, PRINT+4, DRG+1
>> DGPMIFN	PRINT+4*
>> DGWARD	EN1+3*
>> DGWRD	EN2+3, EN3+3
DRG	DRG+2*, DRG+3, END!
DRGCAL	DRG+2, DRG+3, DRG+4, DRG+5, END!
>> DUOUT	PRINT+1
FLG	DRG+5*, DRG+6, END!
I	PRINT+2~
IOSL	PRINT+1
J	PRINT+2~
K	PRINT+2~
>> L	NUM*
LTT	DRG+4, DRG+5, DRG+6, END!
>> M	PRINT2+2*
>> N	PRINT+5
NTT	DRG+4, DRG+5, DRG+6, END!
PLN	END!
PLT	DRG+4*, DRG+5, DRG+6, END!
PNT	DRG+4*, DRG+5, DRG+6, END!
PTF	DRG+1*, END!
SEX	DRG+2*, END!
U	DRG+1, DRG+2, DRG+3, DRG+4, DRG+5
VA	END!
VA("BID"	PRINT+5
VAERR	END!
>> VAIN(3	BED+1
>> VAIN(5	BED+1
>> W	PRINT+3, PRINT2+2*, PRINT1+2
W1	PRINT2+2*, END!
>> X	PRINT+4, PRINT+5, PRINT2+2, PRINT2+3*, PRINT1+1, NUM
>> X(	PRINT2+2
>> X(0	PRINT2+1
>> X(1	PRINT2+3
>> X3	PRINT+4, PRINT2+3
>> Y	PRINT2+2, PRINT1+1, PRINT1+2