Routine: ADGRALQ

Information

ADGRALQ ; IHS/ADC/PDW/ENM - QUEUE LIST OF READMISSIONS ; [ 03/25/1999 11:48 AM ]

Source file <ADGRALQ.m>

Package	Total	Caller Graph
Registration	1	DG IHS QA READMIT LIST

Name	Comments	DBIA/ICR reference
ALL	;***> choose one or all wards or services
DATE2
END
DEV
ONE	;***> choose which ward or service to print
QUE
DATE
TYPE
SELECT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ADGRALQ+3
Function Call: WRITE	Prompt: !!!?20,"PRINT LIST OF READMISSIONS",!! Line Location: ADGRALQ+3
Function Call: WRITE	Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",! Line Location: DATE2+1
Function Call: WRITE	Prompt: 7,?40,"* INACTIVE WARD **" Line Location: ONE+3
Function Call: WRITE	Prompt: 7,!?35,"* NOT AN ADMITTING SERVICE! **" Line Location: ONE+4
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: SELECT ALL+3 ONE+1
Routine Call	%ZIS Line Location: DEV

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

Name	Field # of Occurrence
^("I"	ONE+3

Name	Field # of Occurrence
>> %DT	DATE, DATE2
>> %DT("A"	DATE, DATE2
>> %ZIS	DEV*
DGBDT	DATE+1*, DATE2+1, END!
DGEDT	DATE2, DATE2+1, DATE2+2, END!
DGI	QUE+1*, END!
DGSRT	ALL+3, ONE+5, END!
DGTYP	SELECT+1*, SELECT+2, ALL+2, ONE+1, ONE+3, ONE+4, END!
DIR	TYPE!, ALL+1!, ONE+1!, END!
DIR("A"	TYPE, TYPE+1, TYPE+2, SELECT, ALL+2*
DIR("B"	ALL+3*
DIR(0	SELECT, ALL+1, ONE+1*
>> DIRUT	ALL+4
DT	DATE2+2
>> DTOUT	SELECT+1, ONE+2
>> DUOUT	SELECT+1, ONE+2
IO	DEV
IO("Q"	DEV, QUE!
IOF	ADGRALQ+3
>> POP	DEV
U	ONE+3, ONE+4
>> X	DATE, DATE2, DATE2+2, SELECT+1, ONE+2
>> X1	DATE2+2*
>> X2	DATE2+2*
Y	DATE+1, DATE2, SELECT+1, ALL+3, ONE+2, ONE+3, ONE+4, ONE+5, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!