Routine: PSGWDR

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC ^DIK
Auto Replenishment Ward Stock	1	($$PSGWDT,HELP,SEL,SS)^PSGWUTL1

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT ^DIC ^DIK

Auto Replenishment Ward Stock

($$PSGWDT,HELP,SEL,SS)^PSGWUTL1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW RETURNS BREAKDOWN

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW RETURNS BREAKDOWN

Entry Points

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZISC	END
^%ZTLOAD	DEV+2
^DIC	ASKAOU
^DIK	DRGLP+1
$$PSGWDT^PSGWUTL1	HDR+2
HELP^PSGWUTL1	PRTCHK+1
SEL^PSGWUTL1	EDT+1
SS^PSGWUTL1	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: EN+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO RETURNS FOR SELECTED DATE RANGE." Line Location: PRINT+1
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: AOULP+1
Function Call: WRITE	Prompt: !!,"----------",!,DRG Line Location: DRLP+0
Function Call: WRITE	Prompt: !?35,RETPRT,?51,$J(LOCQD,4) Line Location: RLP+2
Function Call: WRITE	Prompt: ?65,RSN Line Location: RLP+2
Function Call: WRITE	Prompt: !?65,RSN Line Location: RLP+3
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: !,"RETURNS BREAKDOWN 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: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: !!?5,"AREA OF USE" Line Location: HDR+2
Function Call: WRITE	Prompt: ?55,"DATE: ",$$PSGWDT^PSGWUTL1,! Line Location: HDR+2
Function Call: WRITE	Prompt: !?37,"RETURN",?50,"QUANTITY",?65,"RETURN",!?14,"ITEM",?38,"DATE",?50,"RETURNED",?65,"REASON",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: ASKAOU
Routine Call	%ZIS Line Location: DEV

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	RLP, HDR+1
^PSDRUG - [#50]	DRGLP+1, DRGLP+2
^PSI(58.1 - [#58.1]	ASKAOU+2, DRGLP, RETLP, AOULP+1, SET+1
^PSI(58.2 - [#58.2]	HDR+1
^TMP("PSGWRET"	ENQ+1!, PRINT+1, AOULP, DRLP, RLP, END!, SET+2*

Label References

Name	Line Occurrences
AOU	DRGLP
AOULP	DRLP
DONE	PRINT+1, AOULP
DRGLP	DRGLP+1, RETLP
DRLP	RLP
EN	EDT+1
END	BDT, EDT, EDT+1, ASKAOU+1, EN, DEV, DEV+2, AOULP, DRLP, RLP+2
HDR	PRINT+1, AOULP+1, PRTCHK+2
PRINT	AOU
PRTCHK	AOULP, DRLP, RLP+2, RLP+3
RETLP	RETLP+1
RLP	RLP+4
RSN	RLP+2, RLP+3
SET	RETLP

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%H	END!
%I	END!
%ZIS	DEV!*
%ZIS("B"	DEV*
ALL	END!
ANS	END!, PRTCHK+1*
AOU	ASKAOU+2, ENQ+1, AOU, DRGLP, DRGLP+1, RETLP, PRINT+1, AOULP*, AOULP+1, DRLP , RLP, END!, SET+1, SET+2
AOULP	ASKAOU+1, EN, DEV+1, END!
AOULP(	ASKAOU, ASKAOU+2, AOU
BDT	BDT*, EDT, RETLP, END!, HDR+1
CNT	RLP+1*, RLP+3, END!
DA	DRGLP+1*, END!
DA(1	DRGLP+1*
DIC	ASKAOU*!
DIC(0	ASKAOU*
DIK	DRGLP+1*!
DRG	AOULP+1, DRLP, RLP, END!
DRGDA	DRUG+1, DRGLP, DRGLP+1, RETLP, END!, SET+1
DRGNAME	DRGLP+2*, END!, SET+2
DRGNM	DRGLP*, DRGLP+1, DRGLP+2, END!
DT	AOULP+1
DTIME	PRTCHK+1
EDT	EDT*, RETLP, END!, HDR+1
G	DEV+1*, END!
IGDA	END!, HDR+1
IO	DEV+3
IO("Q"	DEV+1!, END!
IOF	DONE, HDR+1
IOP	DEV!
IOSL	DRLP, RLP+2, RLP+3
IOST	DONE, DONE+1, PRTCHK+1
J	END!, HDR+3*
JJ	ASKAOU*, END!
LL	RLP+3, END!, SET+1
LOC	END!
LOCQD	RLP*, RLP+2, END!
LOCR	RLP*, END!
LOCRSN	RLP, RLP+1, RLP+2, RLP+3, END!
PGCT	ENQ+1, AOULP, AOULP+1, END!, HDR+1, HDR+3
>> POP	DEV
QD	END!, SET+1*, SET+2
QFLG	PRINT+1, AOULP, DRLP, RLP+2, DONE+1, END!, PRTCHK+1
RET	DRLP, RLP, END!
RETDT	RET+1, RETLP, END!, SET+1, SET+2
RETPRT	RLP*, RLP+2, END!
RSN	RLP+2, RLP+3, END!, SET+1, SET+2, RSN
SEL	EDT+1, END!, HDR+1
X	ASKAOU+1, ASKAOU+2, END!
Y	BDT, EDT, ASKAOU, RLP, END!, HDR+1
>> ZTDESC	DEV+1*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
>> ZTSAVE("AOULP("	DEV+1*
ZTSK	DEV+2!, END!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWDR

Information

Source Information

Call Graph

Call Graph Total: 7

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
DRUG	;LOOP THROUGH DRUGS FOR AOU
RSN
EN
DRGLP
DRLP
ENQ	;ENTRY POINT WHEN QUEUED
AOULP
RET	;RETURNS
PRTCHK	;
DEV
HDR	;PRINT REPORT HEADER
BDT
AOU
SET	;
RETLP
ASKAOU
EDT
PRINT	;
DONE
RLP
END