Routine: PSGWPL

Package	Total	Call Graph
Auto Replenishment Ward Stock	3	WRTGRP^PSGWPI2 (END,ENQ)^PSGWPL0 ^PSGWSET
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	2	PSGW INVENTORY PICK LIST PSGWPL0

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	RD2+1
HOME^%ZIS	DEV+1
^%ZTLOAD	DEV+1
^DIC	DIC
WRTGRP^PSGWPI2	EN2+3
END^PSGWPL0	DIC, RD, RD2, RD2+1, DEV+1
ENQ^PSGWPL0	DEV+2
^PSGWSET	PSGWPL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"You may not run the Pick List because you have the",!,?5,"""Merge Inventory Sheet and Pick List"" site parameter set to ""YES""." Line Location: PSGWPL+3
Function Call: WRITE	Prompt: !!,"Pick List can't be run for inventory # ",PSGWIDA,!,"You must first print the inventory sheet",!,"using the Inventory Sheet Print Option.",! Line Location: DIC+1
Function Call: READ	Prompt: "Print total for each item on pharmacy pick list? Y// " Formatting: ! Timeout: DTIME Variable: X Line Location: RD+0
Function Call: READ	Prompt: "Print sub-total for each item by AOU? Y// " Formatting: !! Timeout: DTIME Variable: X1 Line Location: RD2+0
Function Call: WRITE	Prompt: !,"Right margin for this printout is 132!",!! Line Location: RD2+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: RD2+1
Function Call: WRITE	Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print total for each item on pharmacy pick list will give totals",!,"without showing sub-total breakdown for each area of use.",! Line Location: HELP1+0
Function Call: WRITE	Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print sub-total for each item by AOU will give a total to dispense,",!,"as well as a sub-total for each AOU requesting that item.",! Line Location: HELP2+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: EN2+1
Function Call: WRITE	Prompt: !,"WARD STOCK PICK LIST FOR " Line Location: EN2+1
Function Call: WRITE	Prompt: ?26,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"AOU INVENTORY GROUP MISSING" Line Location: EN2+2
Function Call: WRITE	Prompt: !,"GROUP: " Line Location: EN2+3
Function Call: WRITE	Prompt: !!,?83,"INVENTORIED BY ____________________________",! Line Location: EN2+4
Function Call: WRITE	Prompt: !,?10,"ITEM",?51,"STOCK",?58,"QUICK",?71,"ON",?91,"BACKORDERED",?106,"TO BE",?115,"ACT DISPENSED" Line Location: EN2+5
Function Call: WRITE	Prompt: !,?51,"LEVEL",?58,"CODE",?71,"HAND",?105,"DISPENSED",?115,"IF < TO BE",! Line Location: EN2+6
Function Call: WRITE	Prompt: "-" Line Location: EN2+7
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: EN2+9
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: DIC
Routine Call	%ZIS Line Location: RD2+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+1, EN2+1
^PSI(58.1 - [#58.1]	EN2+9
^PSI(58.19 - [#58.19]	DIC+1, EN2+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RD2+1!*
%ZIS("B"	RD2+1*
DIC	DIC*!
DIC("A"	DIC*
DIC(0	DIC*
DT	EN1+1, EN2+9
DTIME	RD, RD2
>> G	DEV*
>> I	EN2+7*
IO	DEV+2
IO("Q"	DEV!
IOF	EN2+1
IOP	RD2+1!
>> NOPRT	EN1+1*
>> POP	RD2+1
>> PSGDA	EN2+9
>> PSGPAGE	EN1+1, EN2+1, EN2+4, EN2+8
PSGST	EN1+1!, RD2*, DEV
>> PSGTODAY	EN1+1*, EN2+1
>> PSGW("PO"	EN1+1!
>> PSGWFLG	PSGWPL+2*
PSGWIDA	DIC*, DIC+1!, EN2+1, EN2+2
>> PSGWIN	EN2+1
>> PSGWSITE	PSGWPL+2, PSGWPL+3
>> X	RD*, RD2
>> X1	RD2*
>> Y	DIC, EN1+1, EN2+1
>> ZTDESC	DEV*
>> ZTRTN	DEV*
>> ZTSAVE(	DEV*
>> ZTSAVE("PSGST"	DEV*
ZTSK	DEV+1!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWPL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

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
RD2
DEV
DIC
RD
EN1	; PSGWIDA = DA of inventory being edited
EN2	;Print Pick List Headings
HELP2
HELP1