Routine: PSOORED3

Package	Total	Call Graph
Outpatient Pharmacy	5	(ASK,RTE,SCH)^PSOBKDED EN^PSOFSIG VER^PSOORED7 (CON,CON1,DUPD,DUR1,FNM,JFN,M1,NOU,STR,UPD,VER)^PSOOREDX (QTY,SCH)^PSOSIG
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSOORED1 PSOORED2 PSOORED4 PSOORED5 PSOORED6 PSOORED7 PSOVER1

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	UDSIG+3
^DIR	DUPD+4, DUR+2, JUMP+5
ASK^PSOBKDED	ASK
RTE^PSOBKDED	RTE+1
SCH^PSOBKDED	SCH
EN^PSOFSIG	CON+12, EXQ
VER^PSOORED7	CON+12
CON^PSOOREDX	CON
CON1^PSOOREDX	CON+4
DUPD^PSOOREDX	DUPD+2
DUR1^PSOOREDX	DUR+4
FNM^PSOOREDX	JUMP+2
JFN^PSOOREDX	JUMP+6
M1^PSOOREDX	M1
NOU^PSOOREDX	NOU
STR^PSOOREDX	DUPD+7
UPD^PSOOREDX	CON+4
VER^PSOOREDX	VER
QTY^PSOSIG	CON+14
SCH^PSOSIG	SCH+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Dispense Units Per Dose is Required!!",! Line Location: DUPD+6
Function Call: WRITE	Prompt: " ("_SCHEX_")" Line Location: SCH+3
Function Call: WRITE	Prompt: !,?10,"Invalid Entry - nothing to delete!!" Line Location: CON+2
Function Call: WRITE	Prompt: !,"Field Name Must Be At Least 3 Characters in Length",! Line Location: JUMP+1
Function Call: WRITE	Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",! Line Location: JUMP+3
Function Call: WRITE	Prompt: !,AR_". "_$P(FLDNM,"^",2)_": "_$S(NM="ROU"&($G(PSORXED($P(FLDNM,"^"),AR))):$P(^PS(51.2,PSORXED($P(FLDNM,"^"),AR),0),"^"),1:$G(PSORXED($P(FLDNM,"^"),AR))) Line Location: JUMP+4
Routine Call	DIR Line Location: DUPD+4 DUR+2 JUMP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	JUMP+4
^PSRX - [#52]	CON+10, CON+11, UDSIG+1, UDSIG+2, UDSIG+3, UDSIG+4, UDSIG+5, UDSIG+6, UDSIG+7, UDSIG+9* , UDSIG+10, UDSIG+11, UDSIG+12, UDSIG+13, DOLST, DOLST+6, DOLST+8, UPDSIG+1!, UPDSIG+2, UPDSIG+3*

Label References

Name	Line Occurrences
@(	JUMP+1, JUMP+3, JUMP+5, JUMP+6
ASK	CON+5
CNON	NOU1+1
CON	CON+2, CON+4
DOLST	PSOORED3+7
DUPD	ASK+4, VER+2, DUPD+6
EX	UDSIG+14, EXQ, JUMP+7
EX1	CON+13
EXQ	ASK+1, VER+1, DUPD+5, NOU+1, RTE+3, SCH+1, DUR+3, CON+1, CON+4
JUMP	ASK, VER, DUPD+4, NOU, RTE+2, SCH, DUR+2, CON
KV	DOSE+4, DUR, JUMP+5
M1	CON+12, EXQ
NOU1	DUPD+1
RTE	NOU1, NOU+2
SCH	SCH+2

Naked Globals

Name	Field # of Occurrence
^(	DOLST
^(0	UDSIG+1, UPDSIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UDSIG+3, UDSIG+4
A	UDSIG+2, UDSIG+3, UDSIG+4*, UDSIG+5, UDSIG+6, UDSIG+8!
>> AR	JUMP+4*
>> AR1	JUMP+4*, JUMP+5
CKX	CON+4~*, CON+12!
>> D	CON+11, UDSIG+1, UPDSIG+2*
DENT	CON+6*, CON+7, CON+8!
DIR	CON+5!, KV!
DIR("A"	DUR, JUMP+5
DIR("B"	DUPD+3!, DUR+1!
DIR(0	DUR, JUMP+5
DIRUT	ASK+1, CON+4, KV!, JUMP+5
DOOR	DOSE+4!
DOSE	EX+1!, EX1!
DOSE("DD"	CNON+4
DOSE("LD"	DUPD+1
DOSEOR	DOSE+4!, EX+1!, EX1!
>> DRET	RTE*
DTOUT	VER+1, DUPD+5, NOU+1, RTE+3, SCH+1, DUR+3, CON+1, KV!
DUOUT	VER+1, DUPD+5, NOU+1, RTE+3, SCH+1, DUR+3, CON+1, KV!
DUPD	DUPD+1!, EX+1!, EX1!
DUR	DUR+1, EX1!
DURA	EX+2!
DUZ	UDSIG+3, UDSIG+4
ENT	DOSE+4, ASK+4, VER+2, VER+3, DUPD+1, DUPD+3, NOU1, NOU1+3, NOU+2, NOU+5 , RTE, SCH+3, SCH+4, DUR+1, CON+2, CON+3, CON+5, CON+6, CON+13, UDSIG+9 , UDSIG+10, EX+1!, CNON+2, CNON+11, CNON+12
ENTS	EX1!
ERTE	EX1!
EXP	DUR!
FIELD	DOSE+4!, VER, DUPD+4, NOU, SCH, DUR+2, CON, CON+9!, JUMP+1, JUMP+3 , JUMP+5, JUMP+6
FLDNM	JUMP+3!, JUMP+4, JUMP+6
I	DOSE+1, UDSIG+2, UDSIG+6, UDSIG+8!, UDSIG+10, UDSIG+11, UDSIG+12, DOLST*, DOLST+1, DOLST+3 , DOLST+4, DOLST+5, DOLST+6
>> INST	DOLST*, DOLST+1, DOLST+2, DOLST+3, DOLST+4, DOLST+5
JUMP	ASK!, RTE+1!, RTE+2!
NM	JUMP+3!, JUMP+4
NOUN	DOSE+3!, NOU1+3, NOU+2!, NOU+3, NOU+4, EX+1!, EX1!, CNON+1, CNON+10!
OLENT	DOLST+5*, DOLST+7!
PSODOSE	DOSE+3!*, EX+1!, EXQ
>> PSODRUG("IEN"	CNON+4
PSONDEF	NOU1+2~, NOU+3, NOU+4
PSONLG	CNON+3~, CNON+5*, CNON+6, CNON+7, CNON+11, CNON+12
PSONLL	CNON+3~, CNON+4*, CNON+5, CNON+7, CNON+11, CNON+12
PSONLT	CNON+3~, CNON+7*, CNON+8, CNON+11
>> PSOREEDQ	CON+16
PSORTE	EX+1!
PSORXED	DOSE+3, CON+12, CON+14, EXQ!*, DOLST1~
PSORXED(	JUMP+4
PSORXED("CONJUNCTION"	CON+2, CON+3, CON+5, CON+8!, UDSIG+11, EX+2!, DOLST+5
PSORXED("DFLG"	EXQ*
PSORXED("DOSE	ORDERED" , DUPD+1!, DUPD+3, NOU1, CON+7!, UDSIG+10, EX+1!, DOLST+1*, CNON+2, CNON+11
PSORXED("DOSE"	DOSE+1, DUPD+1, CON+6, CON+7!, UDSIG+10, EX+1!, DOLST+1*, DOLST+7
PSORXED("DURATION"	DUR+1, CON+8!, UDSIG+11, EX+2!, DOLST+3*
PSORXED("ENT"	DOSE+1, DOSE+2, SCH+4, CON+13, DOLST+7!, JUMP+4
PSORXED("INS"	DOLST+8*
PSORXED("IRXN"	CON+10, CON+11, UDSIG+1, UDSIG+2, UDSIG+3, UDSIG+4, UDSIG+5, UDSIG+6, UDSIG+7, UDSIG+9 , UDSIG+10, UDSIG+11, UDSIG+12, UDSIG+13, DOLST, DOLST+6, DOLST+8, UPDSIG+1, UPDSIG+2, UPDSIG+3
PSORXED("NOUN"	NOU1+3, NOU+2!, NOU+5, CON+7!, UDSIG+10, EX+1!, DOLST+1, CNON+11, CNON+12*
PSORXED("ODOSE"	CON+7!, UDSIG+12, EX+2!, DOLST+6*
PSORXED("QTY"	CON+14, CON+15*, UDSIG+3
PSORXED("ROUTE"	RTE, CON+7!, UDSIG+11, EX+1!, DOLST+4*
PSORXED("SCHEDULE"	SCH+3, CON+8!, UDSIG+11, EX+2!, DOLST+4
PSORXED("SIG"	CON+11*
PSORXED("UNITS"	UDSIG+10, DOLST+1*
PSORXED("VERB"	ASK+4, VER+2!, VER+3, CON+7!, UDSIG+11, EX+1!, DOLST+5*
PSOSCH	SCH+3!, EX1!
PSOSIGFL	CON+12, CON+13, EXQ!
>> PSOVER	CON+12, CON+16
QTY	CON+14!*, UDSIG+3!
QTYHLD	CON+14!*, CON+15, CON+16!
QUIT	ASK+2!, RTE+4!, CON+9*
ROU	DOSE+3!, ASK!, ASK+2!, RTE+1!, RTE+4!, EX1!
RTE	DOSE+3!, EX1!
SCH	SCH+2*, SCH+3!, EX+1!, EX1!
SCHEX	SCH+3!
SIG	UDSIG+8!, EX+1!
SIG(	UDSIG+1, UPDSIG+2
SIG(0	UDSIG
>> SIGOK	CON+13*
STRE	DOSE+3!, EX1!
U	VER, DUPD+4, NOU, SCH, DUR+2, CON
UNITN	DOSE+3!, EX1!
UNITS	DOSE+4!
VERB	DOSE+3!, ASK+4, VER+2!, VER+3*, EX+1!, EX1!
X	DOSE+4!, VER, VER+2, VER+3, DUPD+4, DUPD+6, NOU, NOU+2, NOU+3, NOU+4 , NOU+5, SCH, SCH+3!, DUR+2, CON, CON+2, CON+3, CON+4, EX+2!, EX1! , JUMP+1, JUMP+3!
Y	DOSE+4!, SCH+2, SCH+3!, CON+3, CON+4, EX+2!, EX1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORED3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RTE
DOLST
VER
SCH
DOLST1(PSORXED)	;
EXQ
UPDSIG	;updates sig
DOSE	;adds dosing info
JUMP	;jump to fields
DUPD	;
UDSIG
KV
M1
EX	;
EX1
ASK
NOU
DUR
NOU1
CNON	;
CON