Routine: PSDORD3

Information

PSDORD3 ;BIR/LTL - Reg 2 Nurse CS Order Request Entry (batch) ;6 Jan 95

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC FILE^DICN ^DIE ^DIR
Controlled Substances	1	DRUG^PSDORD

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
Controlled Substances	1	PSDORD

Entry Points

Name	Comments	DBIA/ICR reference
QTY
NOMAX
END
DIE	;create the order request
DIE2

External References

Name	Field # of Occurrence
NOW^%DTC	DIE2+2
FILE^DICN	DIE2+1
^DIE	DIE2+3
^DIR	QTY+12, NOMAX+8, NOMAX+18
DRUG^PSDORD	NOMAX, NOMAX+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests," Line Location: NOMAX+12
Function Call: WRITE	Prompt: !!,(PSDQTY\PSDR(1))," order" Line Location: NOMAX+14
Function Call: WRITE	Prompt: " for ",PSDR(1)," ",NBKU,"." Line Location: NOMAX+16
Function Call: WRITE	Prompt: ! Line Location: NOMAX+17
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: NOMAX+19
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created.",! Line Location: NOMAX+20
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: NOMAX+21
Function Call: WRITE	Prompt: ?10,!!,"processing now..." Line Location: DIE2+2
Routine Call	DIE Line Location: DIE2+3
Routine Call	DIR Line Location: QTY+12 NOMAX+8 NOMAX+18

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	QTY+2, QTY+6, NOMAX+21, DIE+1, DIE+2, DIE2*, DIE2+4, DIE2+5

Label References

Name	Line Occurrences
DIE	NOMAX, NOMAX+21
DIE2	DIE2
END	QTY+12, NOMAX, NOMAX+2, NOMAX+18
NOMAX	NOMAX+2
QTY	NOMAX+2, NOMAX+19

Naked Globals

Name	Field # of Occurrence
^(0	QTY+6, DIE+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, DIE2+2
%DT	END!
%H	END!
%I	END!
CNT	QTY, NOMAX+9, NOMAX+11*, NOMAX+12, NOMAX+15, NOMAX+17, NOMAX+20, NOMAX+21, END!
CNT1	END!
DA	NOMAX+17!, END!, DIE2+1!, DIE2+3*
DA(1	DIE2+1, DIE2+3
DA(2	DIE2+1, DIE2+3
DD	DIE2+1!
DIC	END!, DIE2+1!*
DIC(0	DIE2+1*
DIE	END!, DIE2+1!*, DIE2+3!
>> DILOCKTM	DIE+1
DINUM	END!, DIE2+1*
DIR	QTY+12!, NOMAX+8!, NOMAX+17!, NOMAX+18!, END!
DIR("?"	QTY+8, QTY+9, QTY+10, QTY+11, NOMAX+8, NOMAX+17, NOMAX+18*
DIR("A"	QTY+5, QTY+7, NOMAX+5, NOMAX+6, NOMAX+7, NOMAX+17
DIR("B"	QTY+5, NOMAX+6, NOMAX+17*
DIR(0	QTY+4, NOMAX+4, NOMAX+17*
DIROUT	END!
DIRUT	NOMAX+2, NOMAX+17!, NOMAX+18, END!
DIWF	END!
DIWL	END!
DIWR	END!
DO	DIE2+1!
DR	END!, DIE2+1!, DIE2+3*!
DTOUT	END!
DUOUT	END!
LN	END!
MSG	END!
MSG1	END!
NAOU	QTY+6, NOMAX+21, END+1!, DIE+1, DIE+2, DIE2, DIE2+1, DIE2+3, DIE2+4, DIE2+5
NAOUN	QTY+8, END+1!
NBKU	QTY+5, QTY+6, QTY+7, QTY+9, QTY+11, NOMAX+4, NOMAX+6, NOMAX+7, NOMAX+13, NOMAX+16 , END+1!
NPKG	QTY+5, NOMAX, NOMAX+2, NOMAX+3, NOMAX+4, NOMAX+6, NOMAX+7, END+1!
OK	END+1!
OKTYP	END+1!
ORD	QTY!, NOMAX+21*, END+1!
PSDA	NOMAX+21, END+1!, DIE2*, DIE2+1, DIE2+3, DIE2+4
PSDA(	NOMAX+21, DIE2+4
PSDOUT	QTY*, NOMAX, NOMAX+22, END+1!
PSDQTY	QTY+12, NOMAX+2, NOMAX+3, NOMAX+4, NOMAX+6, NOMAX+8, NOMAX+9, NOMAX+11, NOMAX+14, NOMAX+20 , NOMAX+21*, END+1!, DIE2+3
PSDR	QTY+2, QTY+6, NOMAX+21, END+1!, DIE+1, DIE+2, DIE2, DIE2+1, DIE2+3, DIE2+4 , DIE2+5
PSDR(1	QTY+2*, QTY+7, QTY+9, QTY+11, NOMAX, NOMAX+2, NOMAX+9, NOMAX+11, NOMAX+14, NOMAX+16 , NOMAX+20, NOMAX+21
PSDR(2	QTY, NOMAX+9, NOMAX+13, NOMAX+15, NOMAX+20*
PSDRD	END+1!
PSDRN	QTY+10, QTY+11, NOMAX+5, NOMAX+21, END+1!
PSDS	QTY+2, END+1!, DIE2+3
PSDT	END+1!, DIE2+2*, DIE2+3
PSDUZ	END+1!, DIE2+3
PSDUZN	END+1!
REQD	END+1!
TEXT	END+1!
TYPE	END+1!
U	QTY+2, QTY+6
WORD	END+1!
X	END+1!, DIE2+1*
Y	QTY+12, NOMAX, NOMAX+2*, NOMAX+3, NOMAX+8, NOMAX+19, NOMAX+20, END+1!

Customize PDF page

Package: Controlled Substances