Routine: PSGWTOT1

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	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+1
^PSDRUG - [#50]	DRGLP+1, DRGLP+2
^PSI(58.1 - [#58.1]	AOU, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1, AOULP+1
^PSI(58.19 - [#58.19]	ENQ+3
^TMP("PSGWUSE"	ENQ+2!, ENQ+3, INVLP+1, SETGL, PRINT+1, AOULP, DRLP, END!

Name	Field # of Occurrence
^("I"	AOULP+1

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
ANS	END!, PRTCHK+1*
AOU	AOU, DRGLP, DRGLP+1, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1, SETGL , PRINT+1, AOULP*, AOULP+1, DRLP, END!
AOUFL	AOU, DRGLP, END!
ARQD	AR+1, INVLP+1, SETGL, END!
BDT	ENQ+3, ODLP+1, RETLP+1, END!, HDR+1
DA	DRGLP+1*!, END!
DA(1	DRGLP+1*
DIK	DRGLP+1*!
DRG	AOULP+1, DRLP, END!
DRGDA	DRUG+1, DRGLP, DRGLP+1, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1, END!
DRGNAME	DRGLP+2*, SETGL, END!
DRGNM	DRGLP*, DRGLP+1, DRGLP+2, END!
DRGQD	AR+1, INVLP+1, ODLP+1, RETLP+1, SETGL, END!
DT	AOULP+1
DTIME	PRTCHK+1
EDT	ENQ+3, ODLP+1, RETLP+1, END!, HDR+1
G	PRTQUE+1*, END!
INVDA	AR+1, INVLP, INVLP+1, END!
INVDT	ENQ+3*, END!
INVN	ENQ+2, ENQ+3, END!
IOF	DONE, HDR+1
IOSL	DRLP
IOST	DONE, DONE+1, PRTCHK+1
ITMFL	END!
ITNAM	END!
J	ENQ+3, END!, HDR+3
LOC	DRLP*, END!
ODA	OD+1, ODLP, ODLP+1, END!
ODQD	AR+1, ODLP+1, SETGL, END!
ODT	ODLP*, ODLP+1, END!
PGCT	PRINT+1, AOULP, AOULP+1, END!, HDR+1, HDR+2
PSGWIO	PRTQUE+1, END!
QD	INVLP+1, ODLP+1, RETLP+1*, END!
QFLG	PRINT+1, AOULP, DRLP, DONE+1, END!, PRTCHK+1
RETDT	RET+1, RETLP, RETLP+1, END!
RTQD	AR+1, RETLP+1, SETGL, END!
X	END!
Y	END!, HDR+1*
>> ZTDESC	PRTQUE+1*
>> ZTDTH	PRTQUE+1*
ZTIO	PRTQUE+1!*, END!
>> ZTQUEUED	AOU, DRGLP, END+2
>> ZTREQ	END+2*
>> ZTRTN	PRTQUE+1*
ZTSAVE	PRTQUE+1!
ZTSAVE(	PRTQUE+1*
ZTSAVE("^TMP(""PSGWUSE"",$J,"	PRTQUE+1*
ZTSK	END!

Information

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