Routine: PSGWLSI1

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIK ^DIR
Kernel	1	^%ZISC

Package

Total

Call Graph

NOW^%DTC ^DIK ^DIR

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWLSI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"==> ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+0
Function Call: WRITE	Prompt: !?6,"TYPE: ",$S(TYP=9999:"UNCLASSIFIED BY TYPE",$D(^PSI(58.16,TYP,0)):$P(^(0),"^"),1:"TYPE NAME HAS BEEN DELETED IN FILE 58.16") Line Location: TYPLP+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,"AOU STOCK LIST BY TYPE/LOCATION"," - DATE: ",Y,?121,"PAGE: ",PGCT Line Location: HDR+2
Function Call: WRITE	Prompt: !,"FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^") Line Location: HDR+2
Function Call: WRITE	Prompt: !!?2,"AREA OF USE",!?10,"TYPE",?104,"MINIMUM QTY",?119,"EXPIRATION",!?15,"LOCATION",?44,"ITEM",?72,"STOCK LEVEL",?87,"REORDER LEVEL",?104,"TO DISPENSE",?122,"DATE",!,LN Line Location: HDR+3
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EXPLP+2, HDR+2
^PSDRUG - [#50]	SETGL, SETGL+1
^PSI(58.1 - [#58.1]	XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL+2, SETGL+3, AOULP
^PSI(58.16 - [#58.16]	TYPLP
^PSI(58.2 - [#58.2]	HDR+2
^TMP("PSGWSTK"	ENQ+1!, SETGL+4*, AOULP, TYPLP, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP , END!

Name	Field # of Occurrence
^("EXP"	SETGL+3
^(0	BUILD*, BUILD+1, SETGL+1, SETGL+2, SETGL+3, TYPLP

Name	Field # of Occurrence
%	BUILD+1, END!, HDR+2
%H	END!
%I	END!
ANS	END!
AOU	ENQ+1, AOU, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL, SETGL+2, SETGL+3 , SETGL+4, PRINT, AOULP, TYPLP, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP , END!
AOULP	END!
AOULP(	AOU
AUTO	DONE+1*, END!
DA	SETGL*, END!
DA(1	SETGL*
DIK	SETGL*!
DIR	HDR+1!
DIR(0	HDR+1*
DRGDA	XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL, SETGL+2, SETGL+3, END!
DRGNAME	SETGL+1, SETGL+4, LOCNLP, DRGLP*, STLP, RELP, MINLP, EXPLP, EXPLP+1, END!
DRGNM	XREF*, SETGL, SETGL+1, END!
DTIME	DONE+1
EXP	SETGL+3, SETGL+4, MINLP, EXPLP*, EXPLP+2, EXPLP+3, END!
G	END!
IGDA	END!, HDR+2
IO("Q"	END!
IOF	DONE, HDR+2
IOSL	TYPLP, EXPLP
IOST	DONE, DONE+1, HDR+1
J	END!
JJ	END!
K	BUILD+2, BUILD+3, SETGL+4, END!
LN	ENQ+1*, END!, HDR+3
LOCN	SETGL+2, SETGL+4, TYPLP, LOCNLP*, DRGLP, STLP, RELP, MINLP, EXPLP, EXPLP+1 , END!
MIN	SETGL+3, SETGL+4, RELP, MINLP*, EXPLP, EXPLP+2, END!
OUT	ENQ+1, AOULP, TYPLP, EXPLP, END!, HDR+1
PGCT	ENQ+1, END!, HDR+1, HDR+2, HDR+3
RELEV	SETGL+3, SETGL+4, STLP, RELP*, MINLP, EXPLP, EXPLP+2, END!
SEL	END!, HDR+2
STLEV	SETGL+2, SETGL+4, DRGLP, STLP*, RELP, MINLP, EXPLP, EXPLP+1, END!
TYP	BUILD+3, AOULP, TYPLP*, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP, END!
X	END!
Y	BUILD+1, EXPLP+2, EXPLP+3, END!, HDR+1, HDR+2*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
ZTSK	END!

Information