Routine: ADGING21

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

(,C,NOW)^%DTC ^DIR

PRTOPT^ADGVAR

Package	Total	Caller Graph
Registration	1	DG IHS INPAT UR21

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Total: ",TOT,!! Line Location: LP+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,25) Line Location: WRT+3
Function Call: WRITE	Prompt: ?27,$J($P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),9) Line Location: WRT+4
Function Call: WRITE	Prompt: ?37,$J(X,3) Line Location: WRT+6
Function Call: WRITE	Prompt: ?42,$E(WRD,1,5) Line Location: WRT+7
Function Call: WRITE	Prompt: ?48,$P(Y,",",1) Line Location: WRT+9
Function Call: WRITE	Prompt: ?57,X Line Location: WRT+10
Function Call: WRITE	Prompt: ?63,$E($P(^AUPNPAT(DFN,11),U,18),1,12) Line Location: WRT+11
Function Call: WRITE	Prompt: ?76,$E($P(^DIC(45.7,^DPT(DFN,.103),0),U),1,3) Line Location: WRT+12
Function Call: WRITE	Prompt: @IOF Line Location: HDH+2
Function Call: WRITE	Prompt: !,"PATIENTS WITH ",DGND," INPATIENT DAYS OR MORE" Line Location: HDH+4
Function Call: WRITE	Prompt: ?65,Y Line Location: HDH+6
Function Call: WRITE	Prompt: !?5,"NAME",?31,"HRCN",?37,"AGE",?42,"WARD",?48,"ADM DT" Line Location: HDH+7
Function Call: WRITE	Prompt: ?57,"LOS",?63,"COMMUNITY",?76,"SRV" Line Location: HDH+8
Function Call: WRITE	Prompt: !,X Line Location: HDH+10
Routine Call	%ZIS Line Location: Q+2
Routine Call	DIR Line Location: A+3 NEWPG+1
Routine Call	%ZIS Line Location: ZIS+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	WRT+4, WRT+11
^DD("DD"	WRT+8, HDH+5
^DGPM - [#405]	LP+7, WRT+8, WRT+10
^DIC(45.7 - [#45.7]	WRT+12
^DPT - [#2]	WRT+3, WRT+5, WRT+12
^DPT("CN"	LP+4, LP+5, LP+6

Name	Field # of Occurrence
>> %ZIS	ZIS+1*
ADM	LP+1~, LP+3, LP+6, LP+7, WRT+8, WRT+10
DFN	LP+1~, LP+3, LP+5, LP+6, WRT+3, WRT+4, WRT+5, WRT+11, WRT+12
DGND	A+4*, A+5, A+6, A+7, DT+2, HDH+4, Q+3!
DGPG	LP+2, HDH+2, HDH+3, Q+3!
DGSTOP	LP+2, LP+4, LP+5, LP+8, WRT+2, NEWPG+1, Q+1, Q+3!
DGZDT	DT+2*, LP+7, Q+3!
DIR	A+1~, NEWPG+1!
DIR("?"	A+2*
DIR("A"	A+1*
DIR(0	A+1, NEWPG+1
DIRUT	A+3, Q+3!
DT	DT+2, WRT+5, WRT+10
DUZ(2	WRT+4
IO	LP+2
IO("Q"	A+8, ZIS+3
IOF	HDH+2
IOM	HDH+9
ION	TM+1
IOSL	WRT+2
IOST	HDH+2, NEWPG+1, Q+1
>> POP	A+8, ZIS+2
TOT	LP+1~, LP+3, LP+7, LP+9
U	A+5, LP+4, LP+5, LP+8, WRT+2, WRT+3, WRT+4, WRT+5, WRT+11, WRT+12 , NEWPG+1
WRD	LP+1~, LP+3, LP+4, LP+5, LP+6, WRT+7
X	DT+1~, DT+2, WRT+1~, WRT+5, WRT+6, WRT+10, HDH+1~, HDH+5, HDH+9, HDH+10 , NEWPG+1
X1	DT+1~, DT+2, WRT+1~, WRT+5, WRT+10*
X2	DT+1~, DT+2, WRT+1~, WRT+5, WRT+10*
Y	A+4, WRT+1~, WRT+8, WRT+9, HDH+1~, HDH+5, HDH+6
>> ZTDESC	TM+1*
>> ZTIO	TM+1*
>> ZTRTN	TM+1*
>> ZTSAVE("DGND"	TM+2*

Information