Routine: PSGWONDM

Information

PSGWONDM ;BHAM ISC/MPH,PTD,CML,KKA-Enter an On-Demand Request - for Pharmacy Use ; 19 May 93 / 9:19 AM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	^%DT NOW^%DTC (,IX)^DIC YN^DICN ^DIE
Auto Replenishment Ward Stock	3	DIENEW^PSGWOD2 EN^PSGWODP ^PSGWSET

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

Entry Points

Name	Comments	DBIA/ICR reference
ASK
DATE
DT
AOU
ITEM
BACKOD
RD
NEWI
UPD
EXP
DONE
END
BOT
HELP

External References

Name	Field # of Occurrence
^%DT	DT
NOW^%DTC	ITEM+2
^DIC	AOU+1, ITEM+1, BACKOD
IX^DIC	DATE+1
YN^DICN	ASK, RD
^DIE	UPD, EXP
DIENEW^PSGWOD2	NEWI
EN^PSGWODP	END+2
^PSGWSET	PSGWONDM+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: PSGWONDM+4
Function Call: WRITE	Prompt: !!,"Do you wish to use a Bar Code Reader" Line Location: ASK+0
Function Call: READ	Formatting: !! Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: " Variable: PSGWDT Timeout: DTIME Line Location: DATE+0
Function Call: READ	Formatting: ! Prompt: "Select AOU: " Variable: X Timeout: DTIME 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	Formatting: ! Prompt: "Select ITEM: " Variable: X Timeout: DTIME 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: ! Variable: "Do you wish to continue the demand request" S %=2 D YN^DICN G Timeout: %<0!(%="") Line Location: RD+0
Function Call: READ	Formatting: !! Prompt: "Do you wish to print a copy of this on-demand request ? N//" Variable: ANS Timeout: DTIME 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",!," and quantities dispensed." Line Location: END+1
Function Call: WRITE	Prompt: !,"PLEASE ANSWER ""YES"" OR ""NO""." Line Location: HELP+0
Routine Call	DIC Line Location: AOU+1 ITEM+1 BACKOD
Routine Call	DIC Line Location: DATE+1
Routine Call	DIE Line Location: UPD EXP

FileMan Files Accessed Via FileMan Db Call

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
^PSI(58.1 - [#58.1]	AOU+2, AOU+3, ITEM+2, EXP
^PSI(58.3 - [#58.3]	BACKOD+1
^PSI(58.5 - [#58.5]	UPD*

Label References

Name	Line Occurrences
AOU	AOU, AOU+2, ITEM
ASK	ASK
BOT	ASK, AOU, ITEM, END
DATE	PSGWONDM+3, DATE+1, DT, AOU, AOU+2
DONE	RD
END	DATE, RD, END+1
HELP	ASK, RD
ITEM	ITEM, ITEM+1, DONE
NEWI	BACKOD
RD	RD

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK, ASK+1, ITEM+2, RD, DONE!, BOT!
%DT	DT*, BOT!
%DT(0	DT*!
%H	BOT!
%I	BOT!
%W	BOT!
ADT	DT*, UPD, BOT!
AMISFL	AOU+1, AOU+2, UPD, BOT!
ANS	END*, END+1, END+2, BOT!
AOU	AOU+2*, AOU+3, ITEM+1, ITEM+2, BACKOD+1, UPD, EXP, BOT!
BCFLG	PSGWONDM+3, ASK+1, AOU, AOU+1, ITEM, ITEM+1, EXP, BOT!
BDT	DT*, ITEM+2, BOT!
BON	BACKOD*, BACKOD+1, DONE!, BOT!
BOT	BACKOD, BACKOD+1, BACKOD+2, RD, DONE!, BOT!
C	BOT!
CAT	DT*, UPD, BOT!
D	DATE+1*, BOT!
D0	BOT!
D1	BOT!
D2	BOT!
DA	UPD, EXP, BOT!
DA(1	ITEM+1, UPD, EXP*
DI	BOT!
DIC	DATE+1!, AOU+1!, ITEM+1!, BACKOD, EXP!, BOT!
DIC("DR"	ITEM+1*
DIC("S"	AOU+1, ITEM+1
DIC(0	DATE+1, AOU+1, ITEM+1, BACKOD
DIE	UPD!, EXP!, BOT!
DLAYGO	BOT!
DQ	BOT!
DR	NEWI+1, EXP, DONE!, BOT!
DR(2	NEWI+1*
DRGDA	DONE!, BOT!
DTIME	DATE, AOU, ITEM, END
DUZ	ITEM+2, NEWI+1
EDITDT	ITEM+2*, NEWI+1, DONE!, BOT!
EDT	DT*, BOT!
ITEM	ITEM+1*, UPD, EXP, BOT!
J	BACKOD+1*, DONE!, BOT!
KEY	BOT!
NEWI	ITEM+1*, ITEM+2, NEWI, NEWI+1, EXP, DONE!, BOT!
OLD	DONE!, BOT!
PREV	ITEM+2*, NEWI+1, DONE!, BOT!
PRTFLG	PSGWONDM+3, UPD, END, BOT!
PSGDR	ITEM+1, BACKOD, UPD, DONE!, BOT!
PSGWAOU	AOU+2*, UPD, BOT!
PSGWD	BOT!
PSGWDN	ITEM+1*, UPD, DONE!, BOT!
PSGWDRG	BOT!
PSGWDT	DATE*, DATE+1, DT, BOT!
PSGWDUZ	ITEM+2*, NEWI+1, DONE!, BOT!
PSGWFLG	PSGWONDM+2*, BOT+1!
PSGWODT	DT*, NEWI+1, BOT!
PSGWSITE	PSGWONDM+2, AOU+2, BOT+1!
PSGWV	DATE*, BOT!
QD	UPD, DONE!, BOT!
X	DATE+1, DT, AOU, AOU+1, AOU+2, ITEM, ITEM+1, BACKOD*, DONE!, BOT!
Y	DT, AOU+2, ITEM+1, ITEM+2, BACKOD, DONE!, BOT!

Customize PDF page

Package: Auto Replenishment Ward Stock