Routine: PSOORED5

Package	Total	Call Graph
Outpatient Pharmacy	7	(ASK,SCH)^PSOBKDED EN^PSOFSIG SIG^PSOHELP CNON^PSOORED3 UPD^PSOORED6 (CON,CON1,DUR1,FNM,JFN,NOU,STR,UPD,VER)^PSOOREDX (QTY,SCH)^PSOSIG
VA Fileman	3	NOW^%DTC ^DIC ^DIR

Package

Total

Call Graph

(ASK,SCH)^PSOBKDED EN^PSOFSIG SIG^PSOHELP CNON^PSOORED3 UPD^PSOORED6 (CON,CON1,DUR1,FNM,JFN,NOU,STR,UPD,VER)^PSOOREDX (QTY,SCH)^PSOSIG

VA Fileman

NOW^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOBKDED PSODIR PSOORED1 PSOORED2 PSOORFI3 PSOORNE4

Package

Total

Caller Graph

Outpatient Pharmacy

PSOBKDED PSODIR PSOORED1 PSOORED2 PSOORFI3 PSOORNE4

External References

Name	Field # of Occurrence
NOW^%DTC	CON+17
^DIC	RTE+10
^DIR	DUPD+5, RTE+6, DUR+2, JUMP+8
ASK^PSOBKDED	ASK
SCH^PSOBKDED	SCH
EN^PSOFSIG	CON+7
SIG^PSOHELP	CON+6
CNON^PSOORED3	NOU1
UPD^PSOORED6	UPD+1
CON^PSOOREDX	CON
CON1^PSOOREDX	CON+4
DUR1^PSOOREDX	DUR+4
FNM^PSOOREDX	JUMP+3
JFN^PSOOREDX	JUMP+9
NOU^PSOOREDX	NOU
STR^PSOOREDX	DUPD+8
UPD^PSOOREDX	CON+4
VER^PSOOREDX	VER
QTY^PSOSIG	CON+9
SCH^PSOSIG	SCH+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Dispense Units Per Dose is Required!!",! Line Location: DUPD+7
Function Call: WRITE	Prompt: !,"NOUN: "_$G(NOUN) Line Location: NOU1+1
Function Call: WRITE	Prompt: !,"NOUN: "_PSORXED("NOUN",ENT) Line Location: NOU1+2
Function Call: WRITE	Prompt: X_" "_$G(ERTE) Line Location: RTE+9
Function Call: WRITE	Prompt: " "_$P(Y(0),"^",2) Line Location: RTE+10
Function Call: WRITE	Prompt: " ("_SCHEX_")" Line Location: SCH+2
Function Call: WRITE	Prompt: !,?10,"Invalid Entry - nothing to delete!!" Line Location: CON+2
Function Call: WRITE	Prompt: $C(7),!!,"All Dosing Instructions must be entered before Jumping to other Fields!",!! Line Location: JUMP+1
Function Call: WRITE	Prompt: !,"Field Name Must Be At Least 3 Characters in Length",! Line Location: JUMP+2
Function Call: WRITE	Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",! Line Location: JUMP+4
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+5
Routine Call	DIC Line Location: RTE+10
Routine Call	DIR Line Location: DUPD+5 RTE+6 DUR+2 JUMP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	RTE+1
^PS(51.2 - [#51.2]	RTE+5, RTE+9, JUMP+5
^PS(55 - [#55]	LAN+2
^PSDRUG - [#50]	LAN+4, LAN+6, LAN+8, LAN+9
^PSRX - [#52]	CON+13, CON+14, CON+15, CON+16, CON+17, CON+18, CON+19, CON+20, CON+21, CON+22* , CON+23, CON+24, CON+25*

Label References

Name	Line Occurrences
@(	JUMP+1, JUMP+2, JUMP+4, JUMP+8, JUMP+9
ASK	CON+5
CON	CON+2, CON+4
DUPD	ASK+4, ASK+5, VER+2, DUPD+7
EX	ASK, VER+2, DUPD+6, NOU+1, SCH+1, DUR+3, CON+1, CON+4, CON+25, JUMP+10
EX1	EX+2
JUMP	ASK+1, VER+1, DUPD+5, NOU, RTE+6, SCH, DUR+2, CON
KV	DOSE+2, DUPD+2, RTE+4, DUR, JUMP+6
NOU1	DUPD+1
RTE	NOU1, NOU1+1, NOU1+2, NOU+1, RTE+10
SCH	RTE, RTE+8, RTE+9, SCH+1

Name	Field # of Occurrence
^(0	CON+13, CON+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CON+17
A	CON+14, CON+17, CON+18, CON+19, CON+20!
>> AR	JUMP+5*
>> AR1	JUMP+5*, JUMP+8
>> COPY	CON+4, CON+11, JUMP+7
>> D	CON+13*
>> DIC	RTE+10*
>> DIC("S"	RTE+10*
>> DIC(0	RTE+10*
DIR	CON+5!, KV!
DIR("?"	RTE+4*
DIR("A"	DUPD+2, RTE+4, DUR, JUMP+7, JUMP+8*
DIR("B"	DUPD+4!, RTE+5!, DUR+1*!
DIR(0	DUPD+2, RTE+4, DUR, JUMP+8
DIRUT	ASK, CON+4, KV!, JUMP+8
DOSE	EX1!, LAN+8
DOSE(	LAN+7
DOSE("LD"	DUPD+1
DOSEOR	DOSE+2!, EX1!
DRET	RTE+1, RTE+2, RTE+5, RTE+8*, RTE+9!
DTOUT	VER+2, DUPD+6, NOU+1, RTE+7, SCH+1, DUR+3, CON+1, EX, KV!
DUOUT	VER+2, DUPD+6, NOU+1, RTE+7, SCH+1, DUR+3, CON+1, EX, KV!
DUPD	DOSE+2!, DUPD+1!, DUPD+4, NOU1, EX1!
DUR	DUR+1, EX1!
DURA	EX1!
DUZ	CON+17
ENT	DOSE+2, ASK+4, ASK+5, VER+2, VER+3, DUPD+1, DUPD+2, DUPD+3, DUPD+4, NOU1+1 , NOU1+2, NOU+1, NOU+4, RTE, RTE+1, RTE+2, RTE+5, RTE+8, RTE+9, RTE+11 , SCH+2, SCH+3, DUR+1, CON+2, CON+3, CON+5, CON+7, CON+21, CON+22, EX1! , LAN+7, LAN+9
ENTS	EX1!
ERTE	RTE+8!, RTE+9, RTE+11*, EX1!
EXP	DUR!
FIELD	DOSE+2!, VER+1, DUPD+5, NOU, RTE+6, SCH, DUR+2, CON*, JUMP+1, JUMP+2 , JUMP+4, JUMP+8, JUMP+9
FLDNM	JUMP+4!, JUMP+5, JUMP+9
I	CON+14, CON+19, CON+20!, CON+22, CON+23, CON+24, LAN+8, LAN+9, LAN+10!
>> II	LAN+2, LAN+3, LAN+5, LAN+6
>> INS1	CON+6
JUMP	ASK+1!
NM	JUMP+4!, JUMP+5
NOUN	NOU1+1, NOU+1!, NOU+2, NOU+3, EX1!
>> OLENT	DOSE+2*
>> OR0	LAN+2
>> OTHDOS(	LAN+3
>> PSODFN	LAN+2
>> PSODIR("DFLG"	RTE+7*
>> PSODRUG("IEN"	LAN+1, LAN+4, LAN+6, LAN+8, LAN+9
>> PSODRUG("OI"	RTE+1
>> PSOFROM	CON+11, JUMP+7
PSONDEF	NOU1~, NOU+2, NOU+3
>> PSONEW("DFLG"	EX*
>> PSONEW("DOSE	ORDERED" , LAN+2
>> PSONEW("DOSE"	LAN+5, LAN+6
>> PSONEW("ODOSE"	LAN+6*
>> PSOORRNW	CON+8
>> PSOREEDT	CON+8, CON+11, EX+2
PSORTE	EX1!
>> PSORX("EDIT"	ASK+5, NOU1+1, NOU1+2, RTE, EX+2
PSORXED	DOSE1~, CON+7, CON+9, EX+2
PSORXED(	JUMP+5
PSORXED("CONJUNCTION"	CON+2, CON+3*, CON+5, CON+23, EX+3!
PSORXED("DOSE	ORDERED" , DUPD+1!, DUPD+4, CON+22, EX+3!
PSORXED("DOSE"	DUPD+1, DUPD+3*, CON+22, CON+24, EX+3!
PSORXED("DURATION"	DUR+1, CON+23, EX+3!
PSORXED("ENT"	SCH+3, CON+7, JUMP+5
PSORXED("INS"	CON+6
PSORXED("IRXN"	CON+13, CON+14, CON+15, CON+16, CON+17, CON+18, CON+19, CON+20, CON+21, CON+22 , CON+23, CON+24, CON+25
PSORXED("NOUN"	DUPD+2, NOU1+1, NOU1+2, NOU+1!, NOU+4, CON+22, EX+3!
PSORXED("ODOSE"	EX+3!, LAN+7, LAN+9
PSORXED("QTY"	CON+9, CON+10*
PSORXED("ROUTE"	RTE, RTE+1, RTE+2, RTE+5, RTE+8, RTE+9, RTE+11*, CON+23, EX+3!
PSORXED("SCHEDULE"	SCH+2*, CON+23, EX+3!, JUMP+1
PSORXED("SIG"	CON+6*
PSORXED("UNITS"	CON+22
PSORXED("VERB"	ASK+4, ASK+5, VER+2!, VER+3, CON+23, EX+3!
PSOSCH	SCH+2!, EX1!
>> PSOSIGFL	CON+4*, CON+12, EX+2
QI	LAN+2!, LAN+4*, LAN+6
QII	LAN+2!, LAN+4, LAN+6, LAN+8!, LAN+9, LAN+10!
>> QTY	CON+9*
QTYHLD	CON+9!*, CON+10, CON+11!
QUIT	DOSE+1~, ASK+2!
ROU	DOSE+2!, ASK*!, ASK+2!, EX1!
RTE	RTE+3!, RTE+5, RTE+8!, RTE+9, RTE+11, EX1!
SCH	SCH+1*, SCH+2!, EX1!
SCHEX	SCH+2!
SIG	CON+20!, EX+3!
SIG(	CON+13
SIG(0	CON+7
>> SIGOK	CON+7*
STRE	DOSE+2!, EX1!
U	VER+1, DUPD+5, NOU, RTE+6, RTE+10, SCH, DUR+2, CON
UNITN	EX1!
UNITS	DOSE+2!
VERB	ASK+4, VER+2!, VER+3*, EX1!
X	DOSE+2!, VER+1, VER+2, VER+3, DUPD+5, DUPD+7, NOU, NOU+1, NOU+2, NOU+3 , NOU+4, RTE+6, RTE+8, RTE+9, RTE+10, RTE+11, SCH, SCH+2!, DUR+2, CON , CON+2, CON+3, CON+4, CON+6*, EX1!, JUMP+2, JUMP+4!
Y	DOSE+2!, RTE+10, RTE+11, SCH+1, SCH+2!, CON+3, CON+4, EX1!, LAN+7
Y(0	RTE+10, RTE+11

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORED5

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RTE
LAN	;
VER
SCH
DOSE1(PSORXED)	;for new rxs
UPD	;updates dosing array
DOSE	;pre-poe rx
JUMP	;
DUPD	;
KV
EX
EX1
ASK
NOU
DUR
NOU1
CON