Routine: PSGWEXR2

Information

PSGWEXR2 ;BHAM ISC/CML-Print Drug Expiration Date Report by Selected Date Range/AOU for AOUs with Locations ; 23 Mar 93 / 12:52 PM

Package	Total	Call Graph
Auto Replenishment Ward Stock	1	($$PSGWDT,HELP,SS)^PSGWUTL1
Kernel	1	^%ZISC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWEXR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: PRT+1
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"=> ",Y Line Location: W1+1
Function Call: WRITE	Prompt: ! Condition for execution: CNT>1 Line Location: W2+1
Function Call: WRITE	Prompt: !?12,P1 Line Location: W2+1
Function Call: WRITE	Prompt: "/(",$P(^SC(LOC,0),"^"),")" Line Location: W2+1
Function Call: WRITE	Prompt: !,?25,P2 Line Location: W3+1
Function Call: WRITE	Prompt: "/(",$E($P(^SC(LOC,0),"^"),1,22),")" Line Location: W3+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !?26,"DRUG EXPIRATION DATE REPORT",?70,"PAGE ",PG Line Location: HDR+1
Function Call: WRITE	Prompt: !?TAB,"FOR ",AOUNM," (LOCATION - ",LOCNM,")" Line Location: HDR+1
Function Call: WRITE	Prompt: !?22,"FOR PERIOD " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: "FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^"),! Line Location: HDR+3
Function Call: WRITE	Prompt: "=> DATE",!?12 Line Location: HDR+4
Function Call: WRITE	Prompt: "ITEM",!,LN Line Location: HDR+5
Function Call: WRITE	Prompt: "ITEM",!?25,"AOU/(LOCATION)",!,LN Line Location: HDR+6
Function Call: WRITE	Prompt: "AOU/(LOCATION)",!?25,"ITEM",!,LN Line Location: HDR+7
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	W1+1, HDR+2
^PSI(58.1 - [#58.1]	PRINT+2, W2+1, W3+1
^PSI(58.2 - [#58.2]	HDR+3
^SC - [#44]	PRINT+2, W2+1, W3+1
^TMP("PSGWEXR"	PRT+1, PRT+2, QUIT!, W2+1, W3+1

Name	Field # of Occurrence
^(	W2+1

Name	Field # of Occurrence
%	QUIT!
%H	QUIT!
%I	QUIT!
%Z	QUIT!
ANS	QUIT!, PRTCHK+1*
AOU	PRINT+1, PRINT+2, QUIT!, W2+1, W3+1
AOULP	QUIT!
AOULP(	PRINT+2
AOUNM	PRINT+1, PRINT+2, QUIT!, HDR+1
BDT	QUIT!, HDR+2
CNT	PRINT+2, PRT+2, QUIT!, W2+1, HDR+1, HDR+5
DRG	QUIT!
DRGNM	QUIT!
DTIME	PRTCHK+1
EDT	QUIT!, HDR+2
EXDT	PRT+2*, QUIT!, W1+1, W2+1, W3+1
G	QUIT!
HDT	QUIT!, HDR+1*, HDR+2
HH	QUIT!, W3+1*
IGDA	QUIT!, HDR+3
IO("Q"	QUIT!
IOF	DONE, HDR+1
IOSL	W1+1, W2+1, W3+1
IOST	DONE, DONE+1, PRTCHK+1
JJ	PRT+2, QUIT!, W2+1
LN	PRINT+1*, QUIT!, HDR+5, HDR+6, HDR+7
LOC	QUIT!, W2+1, W3+1
LOCFLG	QUIT!
LOCNM	PRINT+1, PRINT+2, QUIT!, HDR+1
P1	PRT+2*, QUIT!, W2+1, W3+1
P2	PRT+2, QUIT!, W3+1
PG	PRINT+1, QUIT!, HDR+1
QFLG	PRINT+1, PRT+2, DONE+1, QUIT!, W1+1, W2+1, W3+1, PRTCHK+1
SEL	QUIT!, HDR+3
SORT	QUIT!, W2+1, W3+1, HDR+6
TAB	PRINT+2*, QUIT!, HDR+1
X	QUIT!
Y	QUIT!, W1+1, HDR+2
>> ZTQUEUED	QUIT+1
>> ZTREQ	QUIT+1*
ZTSK	QUIT!