Routine: PSGWRAC

Information

PSGWRAC ;BHAM ISC/CML-Print AOU Status for AMIS - Inpatient Site, Returns, and AMIS Count ; 19 Mar 93 / 8:35 AM

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT NOW^%DTC
Auto Replenishment Ward Stock	1	(HELP,SS)^PSGWUTL1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW AOU RET/AMIS CT PRINT

Name	Comments	DBIA/ICR reference
QUIT	;
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR	;HEADER
PRTCHK	;
DEV
ENQ	;ENTRY POINT WHEN QUEUED
AOU
WRTDATA	;DATA LINES
DONE
BUILD	;BUILD DATA ELEMENTS
PRINT	;
SETGL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option prints a list of active AOUs displaying the following data:",!!?5,"1. INPATIENT SITE",!?5,"2. RETURNS CREDITED TO",!?5,"3. COUNT ON AMIS" Line Location: PSGWRAC+3
Function Call: WRITE	Prompt: !!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!! Line Location: PSGWRAC+4
Function Call: WRITE	Prompt: !,"You MUST create AOUs before running this report!" Line Location: PSGWRAC+5
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !?17,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !,AOUNM,?31,$S(SITE="ZZSITE":"NONE LISTED",1:SITE),?64,RET,?74,ACNT Line Location: WRTDATA+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !?22,"AOU LISTING - RETURNS AND AMIS COUNT",?70,"PAGE: ",PG,!?31,"PRINTED: ",HDT,!!?74,"COUNT",!?62,"RETURNS",?74,"ON",!,"AREA OF USE (AOU)",?33,"INPATIENT SITE",?60,"CREDITED TO AMIS?",!,LN Line Location: HDR+1
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^PS(59.4 - [#59.4]	SETGL+1
^PSI(58.1 - [#58.1]	PSGWRAC+5, AOU, BUILD+1, BUILD+2, SETGL+1
^TMP("PSGWRAC"	AOU!, SETGL+2*, PRTQUE+2!, PRINT+2, PRINT+3, QUIT+2!

Name	Field # of Occurrence
%	PSGWRAC+2, PSGWRAC+5!, QUIT+1!
%DT	PRINT+1*, QUIT+1!
%H	PSGWRAC+5!, QUIT+1!
%I	PSGWRAC+5!, QUIT+1!
%ZIS	DEV!*
%ZIS("B"	DEV*
ACNT	BUILD+2, SETGL+2, PRINT+3, QUIT+1!, WRTDATA+1
ANS	QUIT+1!, PRTCHK+1*
AOU	AOU*, BUILD+1, BUILD+2, SETGL+1, QUIT+1!
AOUNM	BUILD+2, SETGL+2, PRINT+1, PRINT+3*, QUIT+1!, WRTDATA+1
DA	QUIT+1!
DT	BUILD+1
DTIME	PRTCHK+1
HDT	PRINT+1*, QUIT+1!, HDR+1
IO	DEV+3
IO("Q"	DEV+1!, QUIT+1!
IOF	DONE, HDR+1
ION	DEV+1
IOP	DEV!
IOSL	WRTDATA+1
IOST	DONE, DONE+1, PRTCHK+1
LL	PRINT+3*, QUIT+1!
LN	PRINT+1*, QUIT+1!, HDR+1
LOC	BUILD+2*, QUIT+1!
PG	PRINT+1, QUIT+1!, HDR+1
>> POP	DEV
PSGWDT	PSGWRAC+2*, PSGWRAC+5!, QUIT+1!
PSGWIO	DEV+1*, PRTQUE+1, QUIT+1!
QFLG	PRINT+1, PRINT+3, DONE+1, QUIT+1!, WRTDATA+1, PRTCHK+1
RET	BUILD+2, SETGL+2, PRINT+3, QUIT+1!, WRTDATA+1
SITE	SETGL+1, SETGL+2, PRINT+1, PRINT+3, QUIT+1!, WRTDATA+1
X	PRINT+1*, QUIT+1!
Y	PRINT+1, QUIT+1!
>> ZTDESC	DEV+1, PRTQUE+1
ZTDTH	DEV+1!, PRTQUE+1*
ZTIO	DEV+1, PRTQUE+1!, QUIT+1!
>> ZTQUEUED	AOU, QUIT+3
>> ZTREQ	QUIT+3*
>> ZTRTN	DEV+1, PRTQUE+1
ZTSAVE	DEV+1!, PRTQUE+1!
ZTSAVE("PSGWDT"	DEV+1*
ZTSAVE("PSGWIO"	DEV+1*
ZTSAVE("^TMP(""PSGWRAC"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!, QUIT+1!