Routine: PSGWLSI2

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

Package

Total

Call Graph

NOW^%DTC ^DIR

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWLSI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"==> ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+0
Function Call: WRITE	Prompt: !?8,DRG,?55,$S($P(LOC,"^")'="":$P(LOC,"^"),1:"NOT LISTED"),?74,$S($P(LOC,"^",2)'="":$J($P(LOC,"^",2),6),1:"NOT LISTED") Line Location: DRLOOP+1
Function Call: WRITE	Prompt: ?119,$S(EXP:Y,1:"NOT LISTED") Line Location: DRLOOP+3
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: !,"ALPHABETICAL LISTING OF AOU STOCK"," - 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",?104,"MINIMUM QTY",?119,"EXPIRATION",!?18,"ITEM",?57,"LOCATION",?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"	DRLOOP+2, HDR+2
^PSDRUG - [#50]	DRGLP
^PSI(58.1 - [#58.1]	DRGLP, INACT, INACT+1, SETGL, AOULP
^PSI(58.2 - [#58.2]	HDR+2
^TMP("PSGWSTK"	ENQ+1!, SETGL+1*, AOULP, DRLOOP, END!

Name	Field # of Occurrence
^("EXP"	SETGL
^(0	INACT*, INACT+1, SETGL

Name	Field # of Occurrence
%	INACT+1, END!, HDR+2
%H	END!
%I	END!
ANS	END!
AOU	ENQ+1, AOU, DRGLP, INACT, INACT+1, SETGL, SETGL+1, PRINT, AOULP, DRLOOP , END!
AOULP	END!
AOULP(	AOU
AUTO	DONE+1*, END!
DIR	HDR+1!
DIR(0	HDR+1*
DRG	AOULP, DRLOOP, DRLOOP+1, END!
DRGDA	DRUG+1, DRGLP, INACT, INACT+1, SETGL, END!
DRGNAME	DRGLP*, SETGL+1, END!
DRGNM	DRGLP*, END!
DTIME	DONE+1
EXP	SETGL, SETGL+1, DRLOOP+2, DRLOOP+3, END!
G	END!
IGDA	END!, HDR+2
IO("Q"	END!
IOF	DONE, HDR+2
IOSL	DRLOOP+1
IOST	DONE, DONE+1, HDR+1
J	END!
JJ	END!
LN	ENQ+1*, END!, HDR+3
LOC	DRLOOP*, DRLOOP+1, DRLOOP+2, END!
LOCN	SETGL*, SETGL+1, END!
MIN	SETGL*, SETGL+1, END!
OUT	ENQ+1, AOULP, DRLOOP+1, END!, HDR+1
PGCT	ENQ+1, END!, HDR+1, HDR+2, HDR+3
RELEV	SETGL*, SETGL+1, END!
SEL	END!, HDR+2
STLEV	SETGL*, SETGL+1, END!
X	END!
Y	INACT+1, DRLOOP+2, DRLOOP+3, END!, HDR+1, HDR+2*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTSK	END!

Information