Routine: PSGWODRN

Package	Total	Call Graph
VA Fileman	4	^%DT (,IX)^DIC YN^DICN ^DIE
Auto Replenishment Ward Stock	2	DEV^PSGWODP ^PSGWSET

Package

Total

Call Graph

VA Fileman

^%DT (,IX)^DIC YN^DICN ^DIE

Auto Replenishment Ward Stock

DEV^PSGWODP ^PSGWSET

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW ON-DEMAND NURSING EDIT

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW ON-DEMAND NURSING EDIT

Name	Field # of Occurrence
^%DT	DT
^DIC	AOU+1, ITEM+1, BACKOD
IX^DIC	DATE+1
YN^DICN	ASK
^DIE	UPD+1
DEV^PSGWODP	END+2
^PSGWSET	PSGWODRN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option can be used with a Bar Code Reader and a printed listing from",!,"the option 'LIST BAR CODED STOCK ITEMS'.",!!,"If you choose to use a bar code reader, you MUST use it to enter both",!,"the AOU and the ITEM." Line Location: PSGWODRN+4
Function Call: WRITE	Prompt: !!,"Do you wish to use a Bar Code Reader" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"PLEASE ANSWER 'YES' OR 'NO'." Line Location: ASK+0
Function Call: READ	Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: NOW // " Formatting: !! Timeout: DTIME Variable: ODT Line Location: DATE+0
Function Call: READ	Prompt: "Select MEDICATION AREA OF USE: " Formatting: ! Timeout: DTIME Variable: X Line Location: AOU+0
Function Call: WRITE	Prompt: *7," ??",!,"Wand the bar code. It should be in the format of an 'A' followed by a series",!,"of number(s). Ex. - 'A123'" Line Location: AOU+0
Function Call: READ	Prompt: "Select ITEM: " Formatting: ! Timeout: DTIME Variable: X Line Location: ITEM+0
Function Call: WRITE	Prompt: *7," ??",!,"Wand the bar code. It should be in the format of an 'I' followed by a series",!,"of number(s). Ex. - 'I123'" Line Location: ITEM+0
Function Call: READ	Prompt: "Do you wish to print a copy of this on-demand request ? N//" Formatting: !! Timeout: DTIME Variable: ANS Line Location: END+0
Function Call: WRITE	Prompt: !!,"Answer ""Y"" or ""N"". If you answer yes, the program will print a ""pick list"" or",!,"hard copy of this on-demand request. The report lists the date, AOU, items,",!,"quantities, and person entering request." Line Location: END+1
Routine Call	DIE Line Location: UPD+1
Routine Call	DIC Line Location: AOU+1 ITEM+1 BACKOD
Routine Call	DIC Line Location: DATE+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	UPD+1
^PSI(58.1 - [#58.1]	AOU+2, AOU+3
^PSI(58.3 - [#58.3]	BACKOD+1
^PSI(58.5 - [#58.5]	UPD+1*

Name	Line Occurrences
AOU	AOU, AOU+2
ASK	ASK
BOT	ASK, DATE, AOU, AOU+2, ITEM, END
DATE	PSGWODRN+3, DATE+1, DT
END	ITEM, END+1
ITEM	ITEM, ITEM+1, DONE
UPD	BACKOD

Name	Field # of Occurrence
^(	BACKOD+1
^(0	AOU+3*, BACKOD+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK*, ASK+1, BOT!
%DT	DT*, BOT!
%DT(0	DT*!
%W	BOT!
>> ALL	END+2*
AMISFL	DT, AOU+2, UPD+1, BOT!
ANS	END*, END+1, END+2, BOT!
AOU	AOU+2*, AOU+3, ITEM+1, BACKOD+1, UPD+1, BOT!
BCFLG	PSGWODRN+3, ASK+1, AOU, AOU+1, ITEM, ITEM+1, BOT!
>> BDT	END+2*
D	DATE+1*, BOT!
D0	BOT!
D1	BOT!
D2	BOT!
DA	UPD+1*, BOT!
DA(1	ITEM+1, UPD+1
DI	BOT!
DIC	DATE+1!, AOU+1!, ITEM+1!, BACKOD!
DIC("S"	AOU+1, ITEM+1
DIC(0	DATE+1, AOU+1, ITEM+1, BACKOD
DIE	UPD+1*!, BOT!
DLAYGO	BOT!
DQ	BOT!
DR	UPD*, DONE!, BOT!
DR(2	UPD*
DRGDA	BOT!
DTIME	DATE, AOU, ITEM, END
DUZ	UPD
>> EDT	END+2*
ITEM	ITEM+1*, UPD+1, BOT!
J	BACKOD+1*, DONE!
KEY	BOT!
ODT	DATE, DATE+1, DT, UPD, END+2, BOT!
PRTFLG	DT, UPD+1, END, BOT!
PSGBON	BACKOD*, BACKOD+1, DONE!, BOT!
PSGBOT	BACKOD, BACKOD+1, BACKOD+2, UPD, DONE!, BOT!
PSGDR	ITEM+1, BACKOD, UPD+1, DONE!, BOT!
PSGWADT	DT*, UPD+1, BOT!
PSGWAOU	AOU+2*, UPD+1, BOT!
PSGWCAT	DT*, UPD+1, BOT!
PSGWDN	ITEM+1*, UPD+1, DONE!, BOT!
PSGWFLG	PSGWODRN+2*, BOT!
PSGWOLD	DONE!, BOT!
PSGWQD	UPD+1, DONE!, BOT!
PSGWSITE	PSGWODRN+2, AOU+2, BOT!
PSGWV	DATE*, BOT!
X	DATE+1, DT, AOU, AOU+1, AOU+2, ITEM, ITEM+1, BACKOD*, DONE!
Y	DT, AOU+2, ITEM+1, BACKOD, DONE!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWODRN

Information

Source Information

Call Graph

Call Graph Total: 6

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: