Routine: ADGADPL

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

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HTFM)^XLFDT

VA Fileman

^%DT ^%DTC ^DIR

IHS Changes To ADT

KILL^ADGUTIL PRTOPT^ADGVAR

Package	Total	Caller Graph
Registration	1	DG IHS CEN ADPL

Package

Total

Caller Graph

Registration

DG IHS CEN ADPL

Entry Points

Name	Comments	DBIA/ICR reference
END1
HEAD	;***> print heading
BDATE	; -- ask users for beginning date
END
DEV	; -- ask user for printing device
NEWPG	;***> end of page control
END2
QUE
TIME	; -- SUBRTN to print time
PRINT	;***> Print report
CALC	;EP; -- calculate of ADPL
EDATE	; -- ask user for ending date
SELECT	; -- have user select report by ward or by service

Name	Field # of Occurrence
^%DT	BDATE+1, EDATE+1
^%DTC	PRINT+8
^%ZIS	DEV+1
HOME^%ZIS	END
^%ZISC	QUE+2, END2
^%ZTLOAD	QUE+2
KILL^ADGUTIL	END2
PRTOPT^ADGVAR	END1
^DIR	SELECT+2, NEWPG+2
$$FMTE^XLFDT	TIME+2
$$HTFM^XLFDT	TIME+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!?18,"AVERAGE DAILY PATIENT LOAD BY WARD OR SERVICE",!! Line Location: ADGADPL+4
Function Call: WRITE	Prompt: !! Line Location: SELECT+1
Function Call: WRITE	Prompt: ! Line Location: BDATE+1
Function Call: WRITE	Prompt: !!?5,DGW Line Location: PRINT+13
Function Call: WRITE	Prompt: ?45,$J(DGA(DGW),3),?60,$J(DGAV,5,2),! Line Location: PRINT+16
Function Call: WRITE	Prompt: !,DGLIN1,!?10,"TOTAL:",?45,$J(DGT,3),?60,$J(DGAT,5,2),! Line Location: PRINT+18
Function Call: WRITE	Prompt: @IOF Line Location: END2+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: DGDUZ,?80-$L(DGFAC)\2,DGFAC Line Location: HEAD+2
Function Call: WRITE	Prompt: ?70,"Page ",DGPAGE Line Location: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+4
Function Call: WRITE	Prompt: ?80-$L(X)/2,X Line Location: HEAD+6
Function Call: WRITE	Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?25,DGDTLIN,!! Line Location: HEAD+7
Function Call: WRITE	Prompt: ?5,$S(DGFORM=1:"WARD",1:"SERVICE"),?40,"INPATIENT DAYS",?60,"ADPL" Line Location: HEAD+8
Function Call: WRITE	Prompt: !!,DGLIN Line Location: HEAD+9
Function Call: WRITE	Prompt: $P($$FMTE^XLFDT(X,"2P")," ",2,3) Line Location: TIME+2
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: SELECT+2 NEWPG+2
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	CALC+12, CALC+16, CALC+17
^ADGWD - [#9009011]	CALC+3, CALC+7, CALC+8
^DIC(4 - [#4]	PRINT+4
^DIC(42 - [#42]	CALC+4, CALC+5
^DIC(45.7 - [#45.7]	CALC+13, CALC+14
^VA(200 - [#200]	PRINT+3

Name	Line Occurrences
BDATE	EDATE+2
CALC	DEV+1
END	SELECT+3, DEV+1
END2	PRINT+17
HEAD	PRINT+9, NEWPG+1, NEWPG+3
NEWPG	PRINT+11
PRINT	CALC+1
QUE	DEV+1
SELECT	BDATE+2
TIME	HEAD+4

Name	Field # of Occurrence
^(0	CALC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BDATE+1, EDATE+1
>> %DT("A"	BDATE+1, EDATE+1
>> %ZIS	DEV+1*
>> DGA(	CALC+9, CALC+18, PRINT+10, PRINT+12, PRINT+14, PRINT+15, PRINT+16
>> DGAT	PRINT+9, PRINT+15, PRINT+18
>> DGAV	PRINT+14*, PRINT+15, PRINT+16
DGBDT	BDATE+2*, END!, CALC+6, CALC+15, PRINT+6, PRINT+8
>> DGD	CALC+6, CALC+7, CALC+8, CALC+15, CALC+16, CALC+17
>> DGDTLIN	PRINT+6*, HEAD+7
>> DGDUZ	PRINT+3*, HEAD+2
DGEDT	EDATE+2*, END!, CALC+7, CALC+16, PRINT+6, PRINT+8
>> DGFAC	PRINT+4*, HEAD+2
DGFORM	SELECT+3*, END!, CALC+1, HEAD+5, HEAD+8
>> DGL	PRINT+8*, PRINT+14
>> DGLIN	PRINT+5*, HEAD+9
>> DGLIN1	PRINT+5*, PRINT+18
>> DGPAGE	PRINT+3, NEWPG+2, HEAD+1, HEAD+3
>> DGSTOP	PRINT+4, PRINT+10, PRINT+11, PRINT+17, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGT	PRINT+9, PRINT+15, PRINT+18
>> DGW	CALC+2, CALC+3, CALC+4, CALC+5, CALC+7, CALC+8, CALC+11, CALC+12, CALC+13, CALC+14 , CALC+16, CALC+17, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16
>> DGWN	CALC+4, CALC+5, CALC+9, CALC+13, CALC+14, CALC+18
DIR	SELECT+1!, NEWPG+2!
DIR("A"	SELECT+2*
DIR(0	SELECT+1, NEWPG+2
DT	HEAD+7
DUZ	PRINT+3
DUZ(2	PRINT+4
>> I	QUE+1*
IO	DEV+1
IO("Q"	DEV+1, QUE!
IOF	ADGADPL+4, END2, HEAD+1
IOSL	PRINT+11
IOST	END1, NEWPG+1, HEAD+1
>> POP	DEV+1
U	CALC+4, CALC+8, CALC+13, CALC+14, CALC+17, PRINT+3, PRINT+4, PRINT+10, PRINT+11, PRINT+17 , NEWPG+3
X	BDATE+1, EDATE+1, CALC+8, CALC+9, CALC+17, CALC+18, PRINT+8, NEWPG+2, HEAD+5, HEAD+6 , TIME+1~, TIME+2
>> X1	PRINT+8*
>> X2	PRINT+8*
Y	SELECT+3, BDATE+2, EDATE+2, END!, CALC+17*, CALC+18
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGADPL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: