Routine: ADGPTLQ

Information

ADGPTLQ ; IHS/ADC/PDW/ENM - QUEUE PATIENT LIST ; [ 03/25/1999 11:48 AM ]

Source file <ADGPTLQ.m>

Package	Total	Caller Graph
Registration	1	DG IHS INPAT LIST BY WARD

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!!,"Print Patient List: ",! Line Location: SELECT+0
Function Call: WRITE	Prompt: 7,?40,"* INACTIVE WARD **" Line Location: WARD+4
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: SELECT1 WARD+1 WARD+3
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARD+4

Name	Field # of Occurrence
^("I"	WARD+4

Name	Field # of Occurrence
>> %ZIS	DEV*
DGO	SELECT1+1*, SELECT1+3, END!
DGWST	SELECT1+3, WARD+2, WARD+5*, END!
DIR	SELECT+1!, WARD!, WARD+3!, END!
DIR("A"	SELECT+1, SELECT+2, SELECT+3, SELECT+4, SELECT+5, SELECT1, WARD*
DIR("B"	WARD*
DIR(0	SELECT1, WARD, WARD+3*
>> DIRUT	SELECT1+1, WARD+3
>> DTOUT	WARD+1
>> DUOUT	WARD+1
IO("Q"	DEV, QUE!
IOF	SELECT
>> POP	DEV
U	WARD+4
Y	SELECT1+1, WARD+2, WARD+3, WARD+4, WARD+5, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("DGO"	QUE+1*
>> ZTSAVE("DGWST"	QUE+1*
ZTSK	QUE+2!