Routine: ORCDPS1

Package	Total	Call Graph
Pharmacy Data Management	6	EN^PSSDIN EN^PSSGS0 START^PSSJORDF DOSE^PSSORUTL EN1^PSSUTIL1 $$OIDEA^PSSUTLA1
Order Entry Results Reporting	5	($$INPT,$$PTR)^ORCD $$TYPE^OREVNTX IMOLOC^ORIMO $$HL7DUR^ORMBLDPS $$DRAFT^ORWDX2
Outpatient Pharmacy	3	$$SC^PSOCP QTYX^PSOSIG (DSUP,MAX)^PSOSIGDS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORCDPS ORCDPS3 ORCMED ORWDPS3

Entry Points

Name	Comments	DBIA/ICR reference
EN(TYPE)	; -- entry action for Meds dialogs
CHANGED(X)	; -- Kill dependent values when prompt X changes
ORDITM(OI)	; -- Check OI, get dependent info
DEFRTE	; -- Get default route
DEA	; -- ck DEA# of ordering provider if SchedII drug
MAXREFS	; -- Get max refills allowed [Entry Action]
OI2	; -get routes, doses [also called from NF^ORCDPS]
OI1	; -ck NF status
QTY()	; -- Return default quantity [Expects ORDSUP]
ENOI	; -- setup OI prompt
EN1	; -- setup Meds dialog for quick order editor using ORDG
ROUTES	; -- Get med routes
WAIT	; -- Wait for user
DEFCONJ	; -- Set default conjuction for previous instance [P-S Action]
DSUP	; -- Get max/default days supply
QTYQ
CONT()	; -- Cont or stop?
ENCONJ	; -- Get allowable values, if req'd for INST
NFI(OI)	; -- Show NFI restrictions, if exist
PTR(X)	; -- Return ptr to prompt OR GTX X
EXIT	; -- exit action for Meds
CKSCH	; -- validate schedule [Called from P-S Action]
ASKSC()	; -- Return 1 or 0, if SC prompt should be asked

External References

Name	Field # of Occurrence
^DIR	OI1+13, CONT+3
$$INPT^ORCD	EN+1
$$PTR^ORCD	EN+16
$$TYPE^OREVNTX	MAXREFS+4
IMOLOC^ORIMO	EN+2
$$HL7DUR^ORMBLDPS	QTY+9
$$DRAFT^ORWDX2	EN+15
$$SC^PSOCP	ASKSC+1
QTYX^PSOSIG	QTY+14
DSUP^PSOSIGDS	DSUP+3
MAX^PSOSIGDS	MAXREFS+5
EN^PSSDIN	NFI+3
EN^PSSGS0	CKSCH+2
START^PSSJORDF	OI2+1
DOSE^PSSORUTL	OI2+3
EN1^PSSUTIL1	OI1+4
$$OIDEA^PSSUTLA1	DEA+3, ORDITM+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This order may not be placed at this location!" Line Location: EN+11
Function Call: WRITE	Prompt: $C(7),!!,"NOTE: This will create an outpatient prescription for an inpatient!",! Line Location: EN+17
Function Call: WRITE	Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!" Line Location: DEA+4
Function Call: WRITE	Prompt: $C(7),!,"This order will require a wet signature!" Line Location: DEA+5
Function Call: WRITE	Prompt: $C(7),!,"This drug may not be used in an outpatient order." Line Location: ORDITM+4
Function Call: WRITE	Prompt: $C(7),!,"This drug may not be used in an inpatient order." Line Location: ORDITM+6
Function Call: WRITE	Prompt: $C(7),!,"This drug may not be ordered for an outpatient." Line Location: ORDITM+7
Function Call: WRITE	Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!" Line Location: ORDITM+10
Function Call: WRITE	Prompt: $C(7),!,"This order will require a wet signature!" Line Location: ORDITM+11
Function Call: WRITE	Prompt: !!,"* This medication is not in the formulary! *" Line Location: OI1+2
Function Call: WRITE	Prompt: !," There are no formulary alternatives entered for this item." Line Location: OI1+5
Function Call: WRITE	Prompt: !," Please consult with your pharmacy before ordering it." Line Location: OI1+6
Function Call: WRITE	Prompt: !," Formulary alternatives:" Line Location: OI1+13
Function Call: WRITE	Prompt: ! Line Location: NFI+4
Function Call: WRITE	Prompt: !,X Line Location: NFI+8
Function Call: WRITE	Prompt: ! Line Location: NFI+9
Function Call: WRITE	Prompt: !,"Press <return> to continue ..." Line Location: WAIT+1
Function Call: WRITE	Prompt: $C(7),!,"Enter a standard schedule for administering this medication" Line Location: CKSCH+4
Function Call: WRITE	Prompt: ".",! Line Location: CKSCH+5
Function Call: WRITE	Prompt: " or one of your own,",!,"up to 20 characters.",! Line Location: CKSCH+6
Function Call: WRITE	Prompt: !,"No refills allowed." Line Location: MAXREFS+7
Routine Call	DIR Line Location: OI1+13 CONT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN+10
^ORD(100.98 - [#100.98]	EN+6, EN1+1
^ORD(101.41 - [#101.41]	PTR+1
^ORD(101.43 - [#101.43]	EN+11, DEA+2, ORDITM+2, OI1+8, OI1+10, NFI+2, ROUTES+4, MAXREFS+2
^TMP("ORWORD"	EN+15!, EN+16!, CHANGED+10!
^TMP("PSJINS"	CHANGED+5!
^TMP("PSJMR"	EN+7!, EN1+4!, CHANGED+5!, OI2+1, ROUTES+2, DEFRTE+2, EXIT+3!
^TMP("PSJNOUN"	EN+7!, EN1+4!, CHANGED+5!, EXIT+3!
^TMP("PSJSCH"	EN+7!, EN1+4!, CHANGED+5!, EXIT+3!
^TMP("PSSDIN"	NFI+3, NFI+5, NFI+6, NFI+9!
^VA(200 - [#200]	DEA+4, ORDITM+10

Label References

Name	Line Occurrences
$$CONT	NFI+7
$$PTR	EN+12, EN+13, EN+14, CHANGED+8, DEFCONJ+3, DEFCONJ+4, ENCONJ+1, QTY+3, QTY+4, QTY+5
CHANGED	OI1+15, CKSCH+3
QTYQ	QTY+2, QTY+11
WAIT	ORDITM+4, ORDITM+6, ORDITM+7, ORDITM+8

Naked Globals

Name	Field # of Occurrence
^(	NFI+6, ROUTES+2
^("PS"	DEA+4, ORDITM+10
^(0	DEA+4, ORDITM+2, ORDITM+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	OI1+3~, OI1+7, OI1+9, OI1+10, OI1+11, OI1+13, ROUTES+1~, ROUTES+2, ROUTES+3
CONJ	DEFCONJ+1~, DEFCONJ+3, DEFCONJ+5, QTY+4, QTY+10
D	ENOI+1~*, ENOI+2, ENOI+3
DEAFLG	DEA+1~, DEA+3, DEA+5, ORDITM+9~, ORDITM+11
DG	EN1+1~*, EN1+2
DIR	OI1+3~, CONT+1~
DIR("?"	OI1+12*
DIR("A"	OI1+10, OI1+11, CONT+2*
DIR(0	OI1+11, CONT+1
DIROUT	CONT+1~
DIRUT	CONT+1~
DONE	DEA+4!, CKSCH+5!
DOSE	QTY+1~, QTY+4*, QTY+7
DTIME	WAIT+1
DTOUT	OI1+3~, OI1+14, CONT+1~, CONT+3
DUOUT	OI1+3~, OI1+14, CONT+1~, CONT+3
DUR	DEFCONJ+1~, DEFCONJ+4, DEFCONJ+5, QTY+1~, QTY+5, QTY+9
>> EDITONLY	DEFRTE+3*
I	CHANGED+1~, CHANGED+9, NFI+1~, NFI+4, NFI+5, NFI+6, ROUTES+1~, ROUTES+2, QTY+1~, QTY+6 , QTY+7, QTY+8, QTY+9, QTY+10
>> INST	OI1+16, DEFRTE+1, DEFRTE+2, ENCONJ+2, MAXREFS+6, MAXREFS+7, MAXREFS+10
INST1	DEFRTE+1~*, DEFRTE+2, DEFRTE+3
INSTR	QTY+1~, QTY+3*, QTY+6
>> IOBM	NFI+4
>> IOTM	NFI+4
J	NFI+1~, NFI+6*
LAST	DEFCONJ+1~, DEFCONJ+2*, DEFCONJ+3, DEFCONJ+4, DEFCONJ+5
LCNT	NFI+1~, NFI+4, NFI+7
MAX	NFI+1~, NFI+4*, NFI+7
NAME	CHANGED+1~, CHANGED+7*, CHANGED+8
OI	EN+10~, EN+11, ORDITM~, ORDITM+1, ORDITM+2, OI1+15, OI1+16, NFI~, NFI+2
>> OR0	EN+4
ORCAT	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+9, EN+13, EN+17, EN1+2 , EN1+3*, ENOI+2, ENOI+3, DEA+3, ORDITM+4, ORDITM+5, ORDITM+9, OI1+4, OI2+1, OI2+3 , ROUTES+4, CKSCH+2, CKSCH+5, ENCONJ+3, ENCONJ+4, MAXREFS+1, EXIT+2!
ORCOMPLX	EXIT+2!
ORCOPAY	CHANGED+4!, EXIT+2!
>> ORDG	EN+6*, EN1+1
>> ORDIALOG(	EN+12!, EN+13!, EN+15!, EN+16, ENOI+1, ENOI+2, ENOI+4, ENOI+5, CHANGED+9!, CHANGED+10! , OI1+16, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1, DEFRTE+3, CKSCH+1, CKSCH+3, DEFCONJ+2, DEFCONJ+3 , DEFCONJ+4, DEFCONJ+5, ENCONJ+2, ENCONJ+3, ENCONJ+4, DSUP+5, QTY+6, QTY+7, QTY+8, QTY+9 , QTY+10, MAXREFS+6, MAXREFS+7, MAXREFS+8, MAXREFS+9, MAXREFS+10*
ORDOSE	CHANGED+4!, OI2+2, OI2+3, OI2+4!, EXIT+2!
ORDOSE(1	OI2+4
ORDRUG	CHANGED+4!, DSUP+2, QTY+2, QTY+12, MAXREFS+3, ASKSC+1, EXIT+2!
ORDSUP	CHANGED+4!, QTY+2, QTY+13, MAXREFS+5, EXIT+2!
>> OREDIT	EN+4, EN+8, EN+16
OREFILLS	CHANGED+4!, CHANGED+6!, MAXREFS+6*, MAXREFS+7, MAXREFS+8, MAXREFS+9, MAXREFS+10, EXIT+2!
>> ORENEW	EN+4, EN+8, OI1+1
>> ORESET	CKSCH+1
>> OREVENT	MAXREFS+4
>> OREWRITE	EN+4, EN+8
>> ORI	CKSCH+1, CKSCH+3, DEFCONJ+2
>> ORIFN	EN+10, EN+15
ORINPT	EN+1, EN+2, EN+5, EN+9, EN+17, EN1+2, EN1+3, ENOI+3, ORDITM+6, ORDITM+7 , EXIT+2!
ORIV	ORDITM+3*, ORDITM+7, EXIT+2!
>> ORL	EN+2
>> ORNP	DEA+4, ORDITM+10, EXIT+1*
OROI	OI1+16*, ROUTES+4, MAXREFS+2, EXIT+2!
OROUTE	CHANGED+4!, EXIT+2!
ORPKG	EXIT+2!
ORPS	ORDITM+2~*, ORDITM+3, ORDITM+4, ORDITM+6, OI1+1
ORPSOI	ORDITM+2~, ORDITM+9, OI1+4, OI1+17, OI2+1, OI2+3
ORPSOI(	OI1+7
ORPSOI("OI"	OI1+9*, OI1+15, OI1+16, OI1+17
ORPSOI(0	OI1+4
ORQTY	CHANGED+4!, EXIT+2!
ORQTYUNT	CHANGED+4!, EXIT+2!
>> ORQUIT	EN+8, EN+9, EN+11, ORDITM+4, ORDITM+5, ORDITM+6, ORDITM+7, ORDITM+8, ORDITM+10, OI1+14
ORSCH	CHANGED+4!, EXIT+2!
ORSD	CHANGED+4!, CKSCH+1!, EXIT+2!
>> ORTYPE	DEA+1, ORDITM+8, ROUTES+4, DSUP+5
>> ORVP	EN+2, OI2+3, DSUP+2, QTY+12, MAXREFS+3, ASKSC+1
ORX	OI1+3~, OI1+8, OI1+9, OI1+10, CKSCH+1~, CKSCH+2, CKSCH+3, DSUP+1~, DSUP+3, QTY+1~ , QTY+6, QTY+7!, QTY+11, QTY+14, MAXREFS+1~, MAXREFS+5
ORX("CONJUNCTION"	QTY+10*
ORX("DAYS SUP	PLY" , DSUP+3, QTY+13, MAXREFS+5
ORX("DISCHARGE"	MAXREFS+4*
ORX("DOSE ORD	ERED" , QTY+8*
ORX("DRUG"	DSUP+2, QTY+12, MAXREFS+3*
ORX("DURATION"	QTY+9*
ORX("ITEM"	MAXREFS+2*
ORX("MAX"	MAXREFS+6
ORX("PATIENT"	DSUP+2, QTY+12, MAXREFS+3*
ORX("QTY"	QTY+14
ORX("SCHEDULE"	QTY+8*
>> ORXFER	EN+8, EN+15
ORXNP	EXIT+1, EXIT+2!
P	CHANGED+1~, CHANGED+7, ENCONJ+1~, ENCONJ+2
>> PROMPT	ENOI+1, ENOI+2, ENOI+4, ENOI+5, OI1+16, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1, DEFRTE+3 , CKSCH+1, CKSCH+3, DEFCONJ+2, ENCONJ+3, ENCONJ+4, DSUP+5, MAXREFS+6, MAXREFS+7, MAXREFS+8, MAXREFS+9 , MAXREFS+10
PROMPTS	CHANGED+1~, CHANGED+2, CHANGED+3, CHANGED+6*, CHANGED+7
PSJNOPC	EXIT+2!
PSOI	DEA+1~, DEA+2, DEA+3, NFI+1~, NFI+2, NFI+3, NFI+5, NFI+6, NFI+9
PSX	OI1+3~, OI1+7*, OI1+8, OI1+9
PTR	CHANGED+1~, CHANGED+8*, CHANGED+9, CHANGED+10
>> REQD	ROUTES+4, ENCONJ+2
SCH	QTY+1~, QTY+5*, QTY+8
STOP	NFI+1~, NFI+6, NFI+7*
TYPE	EN~, EN+1
U	EN+4, EN1+1, DEA+2, DEA+4, CHANGED+7, ORDITM+2, ORDITM+3, ORDITM+4, ORDITM+6, ORDITM+10 , OI1+1, OI1+9, OI1+10, OI1+17, NFI+2, ROUTES+2, ROUTES+4, DEFRTE+2, ENCONJ+4, MAXREFS+2 , MAXREFS+8
WP	EN+14~*, EN+15
X	CHANGED~, CHANGED+2, CHANGED+6, OI1+3~, NFI+1~, NFI+6, NFI+8, CONT+1~, WAIT+1~, ROUTES+1~ , ROUTES+2, QTY+1~, QTY+7, QTY+8, QTY+9, MAXREFS+1~, MAXREFS+6, MAXREFS+10, PTR~, PTR+1
Y	DEA+2, OI1+3~, OI1+14, OI1+15, OI1+16, OI1+17, CONT+1~, CONT+3, CONT+4, DEFRTE+2! , DEFRTE+3!, DSUP+1~, DSUP+3, DSUP+5, QTY+1~, QTY+2, QTY+14, QTYQ

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDPS1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: