Routine: ORCDPSH

Information

ORCDPSH ;SLC/CLA-Pharmacy dialog utilities-Non-VA Meds ;14-May-2010 11:04;PLS

Source Information

Source file <ORCDPSH.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Pharmacy Data Management	4	EN^PSSDIN EN^PSSGS0 START^PSSJORDF DOSE^PSSORUTL
Order Entry Results Reporting	1	$$PTR^ORCD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
NFI(OI)	; -- Show NFI restrictions, if exist
PTR(X)	; -- Return ptr to prompt OR GTX X
EN(TYPE)	; -- entry action for Meds dialogs
ENOI	; -- setup OI prompt
CONT()	; -- Press return to cont or ^ to stop
ORDITM(OI)	; -- Check OI inactive date & type, get dependent info
EN1	; -- setup Non-VA Meds dialog for quick order editor using ORDG
DEFRTE	; -- Get default route
EXIT	; -- exit action for Meds dialogs
CHANGED(X)	; -- Kill dependent values when prompt X changes
ROUTES	; -- Get allowable med routes
CKSCH	; -- validate schedule [Called from P-S Action]
OI2	; -get selectable routes, doses [also called from NF^ORCDPS]
OI1	; ck NF status (don't care if outside meds are formulary or not)
WAIT	; -- Wait for user

External References

Name	Field # of Occurrence
^DIR	CONT+3
$$PTR^ORCD	EN+6
EN^PSSDIN	NFI+3
EN^PSSGS0	CKSCH+2
START^PSSJORDF	OI2+1
DOSE^PSSORUTL	OI2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"This drug may not be used in an outside med order." Line Location: ORDITM+4
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 or one of your own,",!,"up to 20 characters.",! Line Location: CKSCH+4
Routine Call	DIR Line Location: CONT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(100.98 - [#100.98]	EN+1, EN1+1
^ORD(101.41 - [#101.41]	PTR+1
^ORD(101.43 - [#101.43]	ORDITM+2, NFI+2
^TMP("ORWORD"	EN+6!, CHANGED+9!
^TMP("PSJINS"	CHANGED+5!
^TMP("PSJMR"	EN+2!, EN1+3!, CHANGED+5!, OI2+1, ROUTES+2, DEFRTE+2, EXIT+3!
^TMP("PSJNOUN"	EN+2!, EN1+3!, CHANGED+5!, EXIT+3!
^TMP("PSJSCH"	EN+2!, EN1+3!, CHANGED+5!, EXIT+3!
^TMP("PSSDIN"	NFI+3, NFI+5, NFI+6, NFI+9!

Label References

Name	Line Occurrences
$$CONT	NFI+7
$$PTR	EN+4, EN+5, CHANGED+7
CHANGED	CKSCH+3
WAIT	ORDITM+4

Naked Globals

Name	Field # of Occurrence
^(	NFI+6, ROUTES+2
^(0	ORDITM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	ROUTES+1~, ROUTES+2, ROUTES+3
DG	EN1+1~*
DIR	CONT+1~
DIR("A"	CONT+2*
DIR(0	CONT+1*
DIROUT	CONT+1~
DIRUT	CONT+1~
DONE	CKSCH+5!
DTIME	WAIT+1
DTOUT	CONT+1~, CONT+3
DUOUT	CONT+1~, CONT+3
>> EDITONLY	DEFRTE+3*
I	CHANGED+1~, CHANGED+8, NFI+1~, NFI+4, NFI+5, NFI+6, ROUTES+1~, ROUTES+2*
>> INST	DEFRTE+1, DEFRTE+2
INST1	DEFRTE+1~*, DEFRTE+2, DEFRTE+3
>> IOBM	NFI+4
>> IOTM	NFI+4
J	NFI+1~, NFI+6*
LCNT	NFI+1~, NFI+4, NFI+7
MAX	NFI+1~, NFI+4*, NFI+7
NAME	CHANGED+1~, CHANGED+6*, CHANGED+7
OI	ORDITM~, ORDITM+1, ORDITM+2, NFI~, NFI+2
ORCAT	EN+1, EN1+2, OI2+1, EXIT+2!
ORCOMPLX	EXIT+2!
ORCOPAY	CHANGED+4!, EXIT+2!
>> ORDG	EN+1*, EN1+1
>> ORDIALOG(	EN+4!, EN+5!, EN+6, ENOI+1, CHANGED+8!, CHANGED+9!, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1 , DEFRTE+3, CKSCH+1, CKSCH+3
ORDOSE	CHANGED+4!, OI2+2, OI2+3, OI2+4!, EXIT+2!
ORDOSE(1	OI2+4
ORDRUG	CHANGED+4!, EXIT+2!
ORDSUP	CHANGED+4!, EXIT+2!
>> OREDIT	EN+3, EN+6
OREFILLS	CHANGED+4!, EXIT+2!
>> ORENEW	EN+3
>> ORESET	CKSCH+1
>> OREWRITE	EN+3
>> ORI	CKSCH+1, CKSCH+3
ORINPT	EN1+2*, EXIT+2!
ORIV	ORDITM+3*, EXIT+2!
>> ORNP	EXIT+1*
OROI	EXIT+2!
OROUTE	CHANGED+4!, EXIT+2!
ORPKG	EXIT+2!
ORPS	ORDITM+2~*, ORDITM+3, ORDITM+4
ORQTY	CHANGED+4!, EXIT+2!
ORQTYUNT	CHANGED+4!, EXIT+2!
>> ORQUIT	ORDITM+4*
ORSCH	CHANGED+4!, EXIT+2!
ORSD	CHANGED+4!, CKSCH+1!, EXIT+2!
>> ORVP	OI2+3
ORX	CKSCH+1~*, CKSCH+2, CKSCH+3
>> ORXFER	EN+3
ORXNP	EXIT+1, EXIT+2!
P	CHANGED+1~, CHANGED+6*
>> PROMPT	ENOI+1, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1, DEFRTE+3, CKSCH+1, CKSCH+3
PROMPTS	CHANGED+1~, CHANGED+2, CHANGED+3, CHANGED+6
PSJNOPC	EXIT+2!
PSOI	ORDITM+2~, OI2+1, OI2+3, NFI+1~, NFI+2, NFI+3, NFI+5, NFI+6, NFI+9
PTR	CHANGED+1~, CHANGED+7*, CHANGED+8, CHANGED+9
>> REQD	ROUTES+4*
STOP	NFI+1~, NFI+6, NFI+7*
TYPE	EN~
U	EN1+1, CHANGED+6, ORDITM+2, ORDITM+3, ORDITM+4, NFI+2, ROUTES+2, DEFRTE+2
X	CHANGED~, CHANGED+2, NFI+1~, NFI+6, NFI+8, CONT+1~, WAIT+1~, ROUTES+1~, ROUTES+2*, PTR~ , PTR+1
Y	CONT+1~, CONT+3, CONT+4, DEFRTE+2!, DEFRTE+3*!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDPSH

Call Graph Total: 6