Routine: ADGICUT

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
IHS Changes To ADT	2	(KILL,TIME)^ADGUTIL PRTOPT^ADGVAR
VA Fileman	2	^%DT ^DIR

Package

Total

Call Graph

Kernel

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

IHS Changes To ADT

(KILL,TIME)^ADGUTIL PRTOPT^ADGVAR

VA Fileman

^%DT ^DIR

Package	Total	Caller Graph
Registration	1	DG IHS QA ICU

Package

Total

Caller Graph

Registration

DG IHS QA ICU

Name	Field # of Occurrence
^%DT	BDATE, EDATE
^%ZIS	EDATE+4
HOME^%ZIS	END
^%ZISC	QUE+2, END1+2
^%ZTLOAD	QUE+2
KILL^ADGUTIL	END1+2
TIME^ADGUTIL	HDR+5
PRTOPT^ADGVAR	END1+1
^DIR	NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"TRANSFERS TO ICU REPORT",!! Line Location: ADGICUT+3
Function Call: WRITE	Prompt: @IOF Line Location: END1+2
Function Call: WRITE	Prompt: !!,$E($P(^DPT(DFN,0),U),1,18) Line Location: 2+6
Function Call: WRITE	Prompt: ?20,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6) Line Location: 2+7
Function Call: WRITE	Prompt: ?30,$E(DGAD,4,5)_"/"_$E(DGAD,6,7)_"/"_$E(DGAD,2,3)_"@"_$E(DGTM,1,4) Line Location: 2+10
Function Call: WRITE	Prompt: ?45,$E(DGTD,4,5)_"/"_$E(DGTD,6,7)_"/"_$E(DGTD,2,3)_"@"_$E(DGTM,1,4) Line Location: 2+12
Function Call: WRITE	Prompt: ?61,$E($P(DGY,U,10),1,15) Line Location: 2+13
Function Call: WRITE	Prompt: !!,"*** THERE IS NO ICU WARD SET UP ON YOUR SYSTEM **",!!! Line Location: NOICU+1
Function Call: WRITE	Prompt: !,DGLINE Line Location: HDR+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HDR+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGFAC)/2,DGFAC Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !,Y,!,DGLINE Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Patient",?21,"Chart #",?32,"Admit Date",?45,"Transfer Date" Line Location: HDR+7
Function Call: WRITE	Prompt: ?60,"Admitting Diagnosis",!,DGLIN1,! Line Location: HDR+8
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: NEWPG+2
Routine Call	%ZIS Line Location: EDATE+4

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	2+7
^DD("DD"	HDR+6
^DGPM - [#405]	2, 2+3, 2+8
^DGPM("AMV2"	DATES+3, DATES+5, DATES+7
^DIC(4 - [#4]	INIT+1
^DIC(42 - [#42]	ICU, ICU+1, ICU+4
^DPT - [#2]	2+6
^VA(200 - [#200]	INIT+1

Name	Line Occurrences
2	DATES+7
DATES	ICU
END	BDATE+1, EDATE+1, EDATE+4
END1	NOICU+2
HDR	DATES, NEWPG+1, NEWPG+2
ICU	ICU+1, ICU+4, ICU+5
INIT	EDATE+4
NEWPG	2+14
NOICU	DATES
QUE	EDATE+4

Name	Field # of Occurrence
^("I"	ICU+1
^(0	2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BDATE, EDATE
>> %DT("A"	BDATE, EDATE
>> %ZIS	EDATE+4*
>> DFN	DATES+4, DATES+5, DATES+7, 2+6, 2+7
>> DGAD	2+9*, 2+10
>> DGADM	2+3*, 2+8
DGBDT	BDATE+1*, END!, DATES+2
>> DGDT	DATES+2, DATES+3, DATES+5, DATES+7, 2+11
>> DGDUZ	INIT+1*, HDR+4
DGEDT	EDATE+1*, END!, DATES+3
>> DGFAC	INIT+1*, HDR+4
DGICU	INIT+6!, DATES
DGICU(	ICU+5*, 2+2
>> DGLIN1	INIT+2*, HDR+8
>> DGLINE	INIT+2*, HDR+2, HDR+6
>> DGPAGE	INIT+1, HDR+1, HDR+2, HDR+5
>> DGSTOP	INIT+3, DATES+4, DATES+5, DATES+7, NEWPG+1, NEWPG+2*
>> DGTD	2+11*, 2+12
>> DGTM	2+9, 2+10, 2+11, 2+12
>> DGTR	DATES+6, DATES+7, 2, 2+3
>> DGTY	HDR+4*, HDR+5
>> DGX	INIT+6, ICU, ICU+1, ICU+4, ICU+5, 2*, 2+1, 2+2
>> DGY	2+8*, 2+9, 2+13
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	HDR+6
DUZ	INIT+1
DUZ(2	INIT+1, 2+7
IO	EDATE+4
IO("Q"	EDATE+4, QUE!
IOF	ADGICUT+3, END1+2, HDR+1
IOSL	2+14
IOST	END1+1, NEWPG+1, HDR+1
>> POP	EDATE+4
U	INIT+1, ICU+4, DATES+4, DATES+5, DATES+7, 2+1, 2+2, 2+3, 2+6, 2+7 , 2+9, 2+13, NEWPG+2
>> X	BDATE, EDATE, NEWPG+2
Y	BDATE+1, EDATE+1, END!, HDR+6*
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("DGBDT"	QUE+1*
>> ZTSAVE("DGEDT"	QUE+1*
ZTSK	QUE+2!

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGICUT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END1	;***> eoj
DATES
BDATE
END
HDR	;***> subrtn to print heading
NOICU	;***> subrtn called if facility doesn't have an ICU
INIT	;***> initialize variables
2
QUE
NEWPG	;***> subrtn for end of page control
EDATE
ICU