Routine: PSGWODRN

Information

PSGWODRN ;BHAM ISC/MPH,PTD,CML-Enter an On-Demand Request - for Nursing Staff ;Oct 17, 2017@14:48

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	^%DT (,IX)^DIC YN^DICN ^DIE $$GET1^DIQ
Auto Replenishment Ward Stock	2	DEV^PSGWODP ^PSGWSET
Kernel	1	^%ZTLOAD
Toolkit	1	$$GET^XPAR

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 NURSING EDIT

Entry Points

Name	Comments	DBIA/ICR reference
ASK
DATE
DT
AOU
ITEM
BACKOD
UPD
DONE
END	;
BOT
AUTOQ	;Patch to Auto queue Ward Stock Request to pharmacy printer (PSGW2.319)

External References

Name	Field # of Occurrence
^%DT	DT
^%ZTLOAD	AUTOQ+4
^DIC	AOU+1, ITEM+1, BACKOD
IX^DIC	DATE+1
YN^DICN	ASK
^DIE	UPD+2
$$GET1^DIQ	UPD+1, END+2, AUTOQ+2
DEV^PSGWODP	END+6
^PSGWSET	PSGWODRN+3
$$GET^XPAR	UPD+1

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+5
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	Formatting: !! Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: NOW // " Variable: ODT Timeout: DTIME Line Location: DATE+0
Function Call: READ	Formatting: ! Prompt: "Select MEDICATION AREA OF USE: " 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: WRITE	Prompt: !,"Stock Level Allowed is ",$$GET1^DIQ(58.11,IEN,1),"." Line Location: UPD+1
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+4
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+5
Routine Call	DIC Line Location: AOU+1 ITEM+1 BACKOD
Routine Call	DIC Line Location: DATE+1
Routine Call	DIE Line Location: UPD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(1 - [#3.5]	GET1^DIQ
^PSI(58.1 - [#58.1]	Classic Fileman Calls
58.11	GET1^DIQ
^PSI(58.3 - [#58.3]	Classic Fileman Calls

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

Label References

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

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, BOT!
%DT	DT*, BOT!
%DT(0	DT*!
%W	BOT!
>> ALL	END+6, AUTOQ+1
AMISFL	DT, AOU+2, UPD+2, BOT!
ANS	END+4*, END+5, END+6, BOT!
AOU	AOU+2*, AOU+3, ITEM+1, BACKOD+1, UPD+1, UPD+2, BOT!
>> AOULP	AUTOQ+3
BCFLG	PSGWODRN+4, ASK+1, AOU, AOU+1, ITEM, ITEM+1, BOT!
>> BDT	END+6, AUTOQ+1
D	DATE+1*, BOT!
D0	BOT!
D1	BOT!
D2	BOT!
DA	UPD+2*, BOT!
DA(1	ITEM+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+2*, BOT!
DIE("NO^"	UPD+2*
DLAYGO	BOT!
DQ	BOT!
DR	UPD+2*, DONE!, BOT!
DR(2	UPD*
DR(3	UPD*
DRGDA	BOT!
DTIME	DATE, AOU, ITEM, END+4
DUZ	UPD
>> EDT	END+6, AUTOQ+1
>> G	AUTOQ+3*
IEN	UPD+1~*!, DONE!
ITEM	ITEM+1*, UPD+1, BOT!
J	BACKOD+1*, DONE!
KEY	BOT!
ODT	DATE, DATE+1, DT, UPD, END+6, BOT!, AUTOQ+1
PRTFLG	DT, UPD+2, END+1, BOT!
PSGBON	BACKOD*, BACKOD+1, DONE!, BOT!
PSGBOT	BACKOD, BACKOD+1, BACKOD+2, UPD, UPD+2, DONE!, BOT!
PSGDR	ITEM+1, BACKOD, UPD+2, DONE!, BOT!
PSGWADT	DT*, UPD+2, BOT!
PSGWAOU	AOU+2*, UPD+2, BOT!
PSGWCAT	DT*, UPD+2, BOT!
PSGWDN	ITEM+1*, UPD+2, DONE!, BOT!
PSGWFLG	PSGWODRN+3*, BOT!
PSGWITMC	PSGWODRN+2~, ITEM, DONE, END+3!, BOT!
PSGWOLD	DONE!, BOT!
PSGWQD	UPD+2, DONE!, BOT!
PSGWSITE	PSGWODRN+3, AOU+2, END+2, BOT!, AUTOQ+2
PSGWTEMP	END+2~*, END+3!, 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!
ZTDEC	AUTOQ+5!
>> ZTDESC	AUTOQ+3*
>> ZTDTH	AUTOQ+3*
ZTIO	AUTOQ+2*, AUTOQ+5!
ZTRTN	AUTOQ+3*, AUTOQ+5!
ZTSAVE	AUTOQ+5!
ZTSAVE(	AUTOQ+3*
ZTSAVE("AOULP*"	AUTOQ+3*

Customize PDF page

Package: Auto Replenishment Ward Stock