Routine: PSGWTOT1

Information

PSGWTOT1 ;BHAM ISC/PTD,CML-Print Usage Report for All Drugs for a single AOU or ALL AOUs ; 23 Mar 93 / 1:02 PM

Name	Comments	DBIA/ICR reference
ENQ	;ENTRY POINT WHEN QUEUED
AOU
DRUG	;LOOP THROUGH DRUGS FOR AOU
DRGLP
AR	;AUTOMATIC REPLENISHMENT INVENTORIES
INVLP
OD	;ON DEMAND REQUESTS
ODLP
RET	;RETURNS
RETLP
SETGL
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRINT	;PRINT USAGE REPORT FOR ALL DRUGS BY AOU
AOULP
DRLP
DONE
END
HDR	;PRINT REPORT HEADER
PRTCHK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO USAGE FOR SELECTED DATE RANGE." Line Location: PRINT+1
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: AOULP+1
Function Call: WRITE	Prompt: !,DRG,?42,$J($P(LOC,"^"),4),?51,$J($P(LOC,"^",2),4),?62,$J($P(LOC,"^",3),4),?72,$J($P(LOC,"^",4),4) Line Location: DRLP+0
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: !,"USAGE REPORT 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: !,"ITEM",?35,"DISPENSE QUANTITY",!?42,"TOTAL",?49,"AUTO REPL",?60,"ON DEMAND",?72,"RETURNS" Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRTCHK+1