Routine: PSGWTR

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW TRANSFER ENTRIES

Entry Points

External References

Name	Field # of Occurrence
HOME^%ZIS	QUE+3
^%ZTLOAD	QUE+3
^DIC	DICF, DICT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will copy the stock entries from one AOU into AOUs",!,"you select. Inactive or duplicate items will not be transferred." Line Location: PSGWTR+2
Function Call: WRITE	Prompt: !,"Choosing to copy stock items into multiple AOUs will allow you",!,"to choose up to 10 AOUs at one time." Line Location: PSGWTR+3
Function Call: WRITE	Prompt: !!?5,"Do you wish to copy stock items INTO:",!?5,"(1) ONE Area of Use, or",!?5,"(2) multiple Areas of Use",!!,"Select ""1"" or ""2"": " Line Location: HOWMANY+0
Function Call: WRITE	Prompt: !!,"Answer ""1"" if transfer to only ONE AOU is desired,",!,"answer ""2"" if the same stock list is to be copied into more than one AOU." Line Location: HOWMANY+2
Function Call: WRITE	Prompt: !!?5,"Do you wish to transfer:",!?5,"(1) Drug (item) name only, or",!?5,"(2) Drug name, stock level, and location, or",!?5,"(3) Drug name, stock level, location, and type.",!!,"Select ""1"", ""2"", or ""3"": " Line Location: WHAT+0
Function Call: WRITE	Prompt: !!,"Answer ""1"" if transfer of ONLY drug name is desired,",!,"answer ""2"" if you wish to copy drug name, stock level, and location, or",!,"answer ""3"" if you wish to transfer drug name, stock level, location, and types." Line Location: WHAT+2
Function Call: WRITE	Prompt: ! Line Location: DICF+0
Function Call: WRITE	Prompt: ! Line Location: DICF+0
Function Call: WRITE	Prompt: 7,7,!!?5,"NOT ALLOWED to transfer out of and into SAME Area of Use!" Line Location: SURE+0
Function Call: WRITE	Prompt: !?5,$P(^PSI(58.1,J,0),"^") Line Location: SURE+1
Function Call: WRITE	Prompt: !!?5,"I will transfer ",$S(TR=2:"drug name, stock level, and location.",TR=3:"drug name, stock level, location, and types.",1:"drug name only.") Line Location: SURE+2
Function Call: WRITE	Prompt: *7,!!,"Answer ""yes"" if you wish to transfer stock entries.",!,"Answer ""no"" or <return> if you do not.",!! Line Location: SURE+4
Function Call: WRITE	Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by MailMan when the transfer is completed.",! Line Location: QUE+0
Function Call: WRITE	Prompt: !,"TRANSFER FILE ENTRIES queued!" Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"You may not transfer TO additional AOUs at this time.",!,"Enter the option again to transfer to more AOUs." Line Location: LIMIT+0
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIC Line Location: DICF DICT

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AOUF	DICF*, SURE, SURE+1, END!
AOUT	QUE+1*, END!
CHS	HOWMANY*, HOWMANY+1, DICT, END!
CT	PSGWTR+2, DICT, END!
DIC	DICF!, DICT!
DIC("A"	DICF, DICT
DIC(0	DICF, DICT
DTIME	HOWMANY, WHAT, SURE+3
DUZ	PSGWTR+2
G	QUE+2*, END!
J	SURE+1, QUE+1, END!
>> LOC("TR"	PSGWTR+2!, DICT*, SURE, SURE+1, QUE+1, END!
PSGWDUZ	PSGWTR+2*, END!
TR	WHAT*, WHAT+1, SURE+2, END!
X	SURE+3*, SURE+4, END!
Y	DICF, DICT, END!
ZTDESC	QUE+2*, END!
ZTDTH	QUE+2*, END!
ZTIO	QUE+2*, END!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
ZTRTN	QUE+2*, END!
ZTSAVE	END!
ZTSAVE(	QUE+2*
ZTSK	END!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWTR

Information

Source Information

Call Graph

Call Graph Total: 3

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

Local Variables

Legend:

Name	Line Occurrences
DICF	WHAT+1
DICT	DICT
END	HOWMANY+1, WHAT+1, DICF, DICT, SURE, SURE+1, SURE+4
HOWMANY	HOWMANY+2
LIMIT	DICT
SURE	DICT, SURE+4, LIMIT
WHAT	HOWMANY+1, WHAT+2