Routine: PSGWNU1

Information

PSGWNU1 ;BHAM ISC/PTD,CML-Print Drugs (Items) with NO Usage for Selected Date Range - CONTINUED ; 23 Mar 93 / 12:54 PM

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

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWNU

Name	Comments	DBIA/ICR reference
END
HDR	;PRINT REPORT HEADER
AOULP
MSG
DONE
DRLP
PRINT	;PRINT ZERO USAGE REPORT FOR ALL DRUGS BY AOU
PRTCHK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO ITEMS WITH ZERO USAGE FOR SELECTED DATE RANGE." Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"==> ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+0
Function Call: WRITE	Prompt: "*" Line Location: DRLP+2
Function Call: WRITE	Prompt: ?48,$P(Y,"@") Line Location: DRLP+3
Function Call: WRITE	Prompt: ?64,"INCLUDES RETURNS" Condition for execution: RET="Y" Line Location: DRLP+3
Function Call: WRITE	Prompt: ?48,"NO DISPENSE DATES FOUND" Line Location: DRLP+4
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"ITEMS WITH ZERO USAGE FROM " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"AREA OF USE",?55,"DATE: ",$$PSGWDT^PSGWUTL1 Line Location: HDR+2
Function Call: WRITE	Prompt: !?8,"NO USAGE FOR:",?45,"DATE LAST DISPENSED:",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: WRITE	Prompt: !!!,"For each ""*"" printed, 90 days have passed from",!,"the date item was last dispensed to current date." Line Location: MSG+0
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DRLP+3, HDR+1
^PSI(58.1 - [#58.1]	AOULP
^PSI(58.2 - [#58.2]	HDR+1
^TMP("PSGWNU"	PRINT+1, AOULP, DRLP, DRLP+1, END!

Name	Field # of Occurrence
%	PRINT+1, END+1!
%H	END+1!
%I	END+1!
ALL	END!
ANS	END!, PRTCHK+1*
AOU	PRINT+1, AOULP, DRLP, DRLP+1, END!
AOULP	END!
AR	DRLP+1*, END!
ARDT	END!
ASTER	DRLP+2*, END!
BDT	END!, HDR+1
CURDT	PRINT+1*, DRLP+2, END!
DA	END+1!
DRG	AOULP, DRLP, DRLP+1, DRLP+3, END!
DRGDA	END!
DRGNAME	END!
DRGNM	END!
DRGQD	END!
DTIME	PRTCHK+1
EDT	END!, HDR+1
G	END+1!
IGDA	END+1!, HDR+1
INVDA	END!
INVDT	END!
INVN	END!
IO("Q"	END+1!
IOF	DONE, HDR+1
IOSL	DRLP
IOST	DRLP, DONE, DONE+1, PRTCHK+1
J	DRLP+2, END!, HDR+3
JJ	END!
LOC	DRLP+1*, END!
LSTDT	DRLP+1*, DRLP+2, DRLP+3, DRLP+4, END!
OD	DRLP+1*, END!
ODA	END!
ODT	END!
PGCT	PRINT+1, END!, HDR+1, HDR+3, PRTCHK+1
PSGWIO	END!
QD	END!
QFLG	PRINT+1, AOULP, DRLP, DONE+1, END!, PRTCHK+1
RET	DRLP+1*, DRLP+3, END!
RETDT	END!
RFLG	END!
SEL	END+1!, HDR+1
X	DRLP+2, END!
>> X1	DRLP+2*
>> X2	DRLP+2*
Y	DRLP+3, END!, HDR+1
ZTIO	END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTSK	END!