Routine: PSGWEXR

Information

PSGWEXR ;BHAM ISC/CML-Drug Expiration Date Report by Selected Date Range/AOU ; 18 Jun 93 / 10:36 AM [ 09/28/95 11:55 AM ]

Package	Total	Call Graph
Auto Replenishment Ward Stock	3	PRINT^PSGWEXR1 PRINT^PSGWEXR2 SEL^PSGWUTL1
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW EXP REPORT

Name	Comments	DBIA/ICR reference
QUIT
EN
HELP	;
START	;ENTRY POINT WHEN QUEUED
AOUCNT
DEV
BDT
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
ASKAOU	;
EDT
SET	;
ASKSORT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"NO DATA FOUND FOR THIS DATE RANGE!",! Line Location: EDT+1
Function Call: WRITE	Prompt: !!?5,"Since you have chosen multiple AOUs,",!?5,"please select a sort order for the report:",!!?5,"(1) Date/Drug/AOU or (2) Date/AOU/Drug" Line Location: AOUCNT+2
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: AOUCNT+4
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: READ	Prompt: "Enter '1' or '2' or ""^"" to Exit ==> " Formatting: !! Timeout: DTIME Variable: SORT Line Location: ASKSORT+1
Function Call: WRITE	Prompt: !!,?5,"Enter '1' to sort by Expiration Date, then Drug, then AOU.",!?5,"Enter '2' to sort by Expiration Date, then AOU, then Drug.",!?5,"Enter ""^"" to Exit." Line Location: HELP+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKAOU+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PSI(58.1 - [#58.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SET+1
^PSI(58.1 - [#58.1]	EDT+1, EN, ASKAOU+3, AOUCNT, START+2, SET+1
^TMP("PSGWEXR"	START+1!, PRTQUE+3!, SET+2*

Name	Line Occurrences
AOUCNT	EN+1
ASKSORT	AOUCNT+2
BDT	EDT+1
HELP	ASKSORT+1
QUIT	BDT, EDT, EN, ASKAOU+2, AOUCNT, AOUCNT+3, DEV, DEV+3
SET	START+2

Name	Field # of Occurrence
^("I"	EN, ASKAOU+3
^(0	SET+1

Name	Field # of Occurrence
%	QUIT!
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%H	QUIT!
%I	QUIT!
%Z	QUIT!
%ZIS	DEV!*
%ZIS("B"	DEV*
AOU	ASKAOU+3, START+2, QUIT!, SET+1, SET+2
AOULP	ASKAOU+2, AOUCNT, DEV+2, PRTQUE+2, QUIT!
AOULP(	EN!, ASKAOU+1, ASKAOU+3, AOUCNT*, START+2
AOUNM	QUIT!, SET+1*, SET+2
BDT	BDT, EDT, EDT+1, START+1, START+2, QUIT!
CNT	AOUCNT*, AOUCNT+2, QUIT!, SET+2
DIC	ASKAOU+1*!
DIC("S"	ASKAOU+1*
DIC(0	ASKAOU+1*
DRG	START+2*, QUIT!, SET+1
DRGNM	QUIT!, SET+1*, SET+2
DT	EN, ASKAOU+3
DTIME	ASKSORT+1
EDT	EDT*, EDT+1, START+2, QUIT!
EXDT	START+2*, QUIT!, SET+2
G	DEV+2, PRTQUE+2, QUIT!
HDT	QUIT!
HH	QUIT!
IGDA	QUIT!
IO	DEV+4
IO("Q"	DEV+1!, QUIT!
ION	DEV+1
IOP	DEV!
JJ	EN, ASKAOU+1, AOUCNT, QUIT!, ASKSORT+1
LN	QUIT!
LOC	QUIT!
LOCFLG	AOUCNT*, START+3, PRTQUE+1, QUIT!
P1	QUIT!
P2	QUIT!
PG	QUIT!
>> POP	DEV
PSGWIO	DEV+1*, PRTQUE+1, QUIT!
SEL	EN, EN+1, QUIT!
SORT	AOUCNT+2, AOUCNT+3, QUIT!, SET+2, ASKSORT+1, ASKSORT+2*, HELP+1
TAB	QUIT!
X	ASKAOU+2, ASKAOU+3, QUIT!
Y	BDT, EDT, ASKAOU+1, QUIT!
>> ZTDESC	DEV+2, PRTQUE+1
ZTDTH	DEV+1!, PRTQUE+1*
ZTIO	DEV+1, PRTQUE+1!
>> ZTQUEUED	START+3
>> ZTRTN	DEV+2, PRTQUE+1
ZTSAVE	DEV+1!, PRTQUE+1!
ZTSAVE(	DEV+2, PRTQUE+2
ZTSAVE("AOULP("	DEV+2, PRTQUE+2
ZTSAVE("^TMP(""PSGWEXR"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+3!, QUIT!