Routine: ADGSIL1

Package

Total

Call Graph

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

$$HRCN^ADGF PRTOPT^ADGVAR

EN^DIQ1 ^DIR

Package	Total	Caller Graph
Registration	1	DG IHS SI/DNR LIST

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!! Line Location: ADGSIL1+3
Function Call: WRITE	Prompt: ?10,"PATIENTS CURRENTLY ON SERIOUSLY ILL/DO NOT RESUSCITATE LIST",!! Line Location: ADGSIL1+4
Function Call: WRITE	Prompt: !!?28,$$HD1,! Line Location: WRT+3
Function Call: WRITE	Prompt: !,$E(NAME,1,20),?23,$P(N,U,4) Line Location: 1+1
Function Call: WRITE	Prompt: ?32,$E($P($G(^VA(200,+$P(N,U,3),0)),U),1,12) Line Location: 1+2
Function Call: WRITE	Prompt: ?48,$P(N,U),?57,$P(N,U,5),?63,$E($G(^DIC(45.7,+$P(N,U,2),0)),1,3) Line Location: 1+3
Function Call: WRITE	Prompt: ?69,$E($P(N,U,6),4,5)_"/"_$E($P(N,U,6),6,7)_"/"_$E($P(N,U,6),2,3) Line Location: 1+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+1
Function Call: WRITE	Prompt: ?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HD+2
Function Call: WRITE	Prompt: !!?22,"SERIOUSLY ILL/DO NOT RESUSCITATE LIST",! Line Location: HD+3
Function Call: WRITE	Prompt: ?34,"for ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),!! Line Location: HD+4
Function Call: WRITE	Prompt: !,"Patient Name",?23,"Chart #",?32,"Provider",?48,"Age" Line Location: HD+5
Function Call: WRITE	Prompt: ?57,"WD",?63,"SRV",?69,"Entered" Line Location: HD+6
Function Call: WRITE	Prompt: @IOF Line Location: Q+2
Routine Call	%ZIS Line Location: Q+2
Routine Call	DIR Line Location: NPG+2
Routine Call	%ZIS Line Location: ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	VAR+3
^DIC(45.7 - [#45.7]	1+3
^DPT - [#2]	VAR+1, VAR+2
^DPT("CN"	LW+2, LW+3
^TMP("DGZSIL"	ADGSIL1+3!, START+1!, VAR+5, VAR+6, WRT+2, WRT+4, WRT+5, 1
^UTILITY("DIQ1"	AGE+2!, AGE+3!
^VA(200 - [#200]	1+2

Name	Field # of Occurrence
^(	VAR+2
^("DAC"	VAR+1

Name	Field # of Occurrence
>> %ZIS	ZIS+1*
CDT	LW+1~, VAR+3*, VAR+4, WRT+1~
CON	LW+1~, VAR+3*, VAR+5, VAR+6, WRT+1~
DA	AGE+1~, AGE+2*
DFN	LW+1~, LW+3, VAR+1, VAR+2, VAR+5, VAR+6, WRT+1~, WRT+5, 1, AGE+2 , AGE+3
DIC	AGE+1~, AGE+2*
DIR	NPG+2!
DIR(0	NPG+2*
>> DIRUT	WRT+5, NPG+2
DR	AGE+1~, AGE+2*
DT	HD+4
IO	WRT+2
IO("Q"	A+2, Q+2!
IOF	ADGSIL1+3, HD+1, Q+2
IOSL	1+5
IOST	HD+1, NPG+1, Q+1
N	LW+1~, VAR+1, VAR+3, WRT+1~, 1, 1+1, 1+2, 1+3, 1+4
NAME	LW+1~, VAR+2, VAR+5, VAR+6, WRT+1~, WRT+4, WRT+5, 1, 1+1
>> POP	A+1
PR	LW+1~, VAR+2*, VAR+4, WRT+1~
>> SI	WRT+2*, WRT+4, WRT+5, 1, HD1+1
TS	LW+1~, VAR+2*, VAR+4, WRT+1~
U	VAR+1, VAR+2, VAR+3, VAR+4, 1+1, 1+2, 1+3, 1+4
UTL	LW+1~, VAR+4*, VAR+5, VAR+6, WRT+1~
WARD	LW+1~, LW+2*, LW+3, VAR+3, VAR+4, WRT+1~
WD	LW+1~, VAR+3*, WRT+1~
X	LW+1~, WRT+1~, AGE+1~, AGE+3*, AGE+4
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
ZTSK	Q+2!

Information