Routine: PSGWTOT2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"NO USAGE FOR ",ITNAM," FOR SELECTED DATES." Line Location: PRINT+1
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: !?5,"AREA OF USE",?55,"DATE: ",$$PSGWDT^PSGWUTL1,!,"ITEM",?15,"INVENTORY DATE",?35,"DISPENSE QUANTITY",! Line Location: HDR+2
Function Call: WRITE	Prompt: "-" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?5,"==> ",$P(^PSI(58.1,AOU,0),"^"),!,ITNAM,!! Line Location: SUB+2
Function Call: WRITE	Prompt: !?15,$P(Y,"@")," ",$P(Y,"@",2),?43,$J(QD,4) Line Location: WRTLN+0
Function Call: WRITE	Prompt: !?43,"-----" Line Location: SUBTOT+2
Function Call: WRITE	Prompt: !?12,"SUBTOTAL AUTO REPL.",?40,"+",?43,$J(ARQD,4),! Condition for execution: TYP="AR" Line Location: SUBTOT+2
Function Call: WRITE	Prompt: !?12,"SUBTOTAL ON DEMAND",?40,"+",?43,$J(ODQD,4),! Condition for execution: TYP="OD" Line Location: SUBTOT+2
Function Call: WRITE	Prompt: !?12,"SUBTOTAL RETURNS",?40,"-",?43,$J(RTQD,4),! Condition for execution: TYP="RT" Line Location: SUBTOT+2
Function Call: WRITE	Prompt: !?42,"=======",!,"TOTAL DISPENSED",?43,$J(DRGQD,4) Line Location: TOTAL+0
Function Call: WRITE	Prompt: !!?38 Line Location: GRTOT+2
Function Call: WRITE	Prompt: "=" Line Location: GRTOT+2
Function Call: WRITE	Prompt: !,"TOTAL USAGE FOR ALL AREAS IS:",?43,$J(GRTOT,4) Line Location: GRTOT+3
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1
Routine Call	DIE Line Location: INVLP+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+1, WRTLN
^PSI(58.1 - [#58.1]	AOULP, DRG, INVLP, INVLP+2, ODLP, ODLP+1, RETLP, RETLP+1, SUB+2
^PSI(58.19 - [#58.19]	INVLP, INVLP+1
^TMP("PSGWUSE"	ENQ+1!, INVLP+2, ODLP+1, RETLP+1*, PRINT+1, AOU, TYP, DT, END!

Label References

Name	Line Occurrences
AOU	TYP
AOULP	DRG
DONE	PRINT+1, AOU
DRG	RETLP
DT	DT+4
END	PRTQUE+2, AOU, TYP, DT+4
GRTOT	AOU
HDR	PRINT+1, PRINT+2, PRTCHK+2
INVLP	INVLP+1, INVLP+3
OD	INVLP
ODLP	ODLP+2
PRINT	AOULP, DRG
PRTCHK	TYP, DT+4, SUB+1, SUBTOT+1, GRTOT+1
PRTQUE	AOULP, DRG
RET	ODLP
RETLP	RETLP+2
SUB	AOU
SUBTOT	DT
TOTAL	TYP
TYP	SUBTOT+3
WRTLN	DT+4

Name	Field # of Occurrence
^(0	INVLP

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWTOT2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR	;
RET	;RETURNS
RETLP
PRINT	;PRINT USAGE REPORT FOR SINGLE DRUG BY AOU
DT
DRG
SUB	;
INVLP
ODLP
AOU
GRTOT	;
TOTAL
END
SUBTOT	;
AOULP
ENQ	;ENTRY POINT WHEN QUEUED.
AR	;INVENTORIES
PRTCHK	;
OD	;ON DEMANDS
WRTLN
DONE
TYP