Routine: ORCDPSIV

Package	Total	Call Graph
Pharmacy Data Management	3	ZERO^PSS51P1 EN^PSSGS0 ($$IVDEA,IVDEA)^PSSUTIL1
Inpatient Medications	2	ORINF^PSIVSP ENVOL^PSJORUT2
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
Order Entry Results Reporting	2	($$INPT,$$PTR,$$VAL)^ORCD ($$IVQOVAL,IVDOSFRM)^ORWDPS33
Toolkit	1	$$GET^XPAR
VA Fileman	1	IX^DIC

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORCACT ORCACT2 ORCMED ORWDXM2

Name	Comments	DBIA/ICR reference
IVRTEENT	;
ROUTECHK	;
PREMIX()	; -- Returns 1 or 0, if IV base is a premix solution
VOLUME	; -- get allowable volumes for solution
IVRTESCR(Y)	;
IVPSI	;INPUT-TRANSFORM
ISONETIM(SCH)	;
INACTIVE(TYPE)	; -- Check OI inactive date
RTEDISP(ROUTES)	;
MEDPROV()	; -- Return ordering med provider
ENRATE	; -- set display text, help based on IV TYPE
CHANGED(TYPE)	; -- Kill dependent values when OI changes
VALDURA(X)	;-- Validate IV duration/limitation
LVROUTES	;
UNITS	; -- get allowable units for current additive
BIVOI(ARRAY)	;
IVPS1X	;
VALIDAYS(X)	; -- Validate IV duration
IVPSI1	; ASK ON CONDITION
PROVIDER	; -- Check provider, if authorized to write med orders
CKSCH	; -- validate schedule [Called from P-S Action]
INF	; -- input transform for INFUSION RATE

Name	Field # of Occurrence
IX^DIC	MEDPROV+4
$$INPT^ORCD	INACTIVE+9
$$PTR^ORCD	ISONETIM+6, UNITS+2, UNITS+5, PREMIX+2
$$VAL^ORCD	VOLUME+2
$$IVQOVAL^ORWDPS33	IVRTESCR+3
IVDOSFRM^ORWDPS33	LVROUTES+3
ORINF^PSIVSP	INF+28
ENVOL^PSJORUT2	VOLUME+3, UNITS+3
ZERO^PSS51P1	ISONETIM+4
EN^PSSGS0	CKSCH+2
$$IVDEA^PSSUTIL1	INACTIVE+12
IVDEA^PSSUTIL1	INACTIVE+10
$$NOW^XLFDT	PROVIDER+5, INACTIVE+3
$$UP^XLFSTR	INF+12, VALIDAYS+4, IVPSI+5
$$GET^XPAR	PROVIDER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Enter a standard schedule for administering this medication." Line Location: CKSCH+4
Function Call: WRITE	Prompt: $C(7),!!,"OREMAS key holders may not enter medication orders." Line Location: PROVIDER+1
Function Call: WRITE	Prompt: $C(7),!!,NAME_" is not authorized to write medication orders!" Line Location: PROVIDER+4
Function Call: WRITE	Prompt: $C(7),!!,NAME_" is no longer authorized to write medication orders!" Line Location: PROVIDER+5
Function Call: WRITE	Prompt: !,"You must select another provider to continue.",! Line Location: PROVIDER+6
Function Call: WRITE	Prompt: $C(7),!,"This "_X_" may not be ordered anymore. Please select another." Line Location: INACTIVE+5
Function Call: WRITE	Prompt: $C(7),!,"This item may not be ordered as "_X_"." Line Location: INACTIVE+8
Function Call: WRITE	Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!" Line Location: INACTIVE+13
Function Call: WRITE	Prompt: $C(7),!,"This order will require a wet signature!" Line Location: INACTIVE+14
Function Call: WRITE	Prompt: !," (Units for this additive are "_UNITS_")" Line Location: UNITS+6
Function Call: WRITE	Prompt: !!,"The selected route is not a valid route for this order." Line Location: IVRTEENT+7
Function Call: WRITE	Prompt: !,"Select a new route for this order from the list of routes below." Line Location: IVRTEENT+8
Function Call: WRITE	Prompt: !!,"The route defined for this order is an invalid route." Line Location: ROUTECHK+6
Function Call: WRITE	Prompt: !,"You will need to define a new route for this order." Line Location: ROUTECHK+7
Function Call: WRITE	Prompt: !,"Infuse Over Time must be a whole number." Line Location: INF+3
Function Call: WRITE	Prompt: !,"Infuse Over Time cannot exceed 4 characters for minutes." Line Location: INF+4
Function Call: WRITE	Prompt: !,"Infuse Over Time must be a whole number." Line Location: INF+8
Function Call: WRITE	Prompt: !,"Infusion Rate required a leading numeric value." Line Location: INF+20
Function Call: WRITE	Prompt: !,"Infusion Rate cannot exceed one decimal place." Line Location: INF+21
Function Call: WRITE	Prompt: !,"Spaces are not allow in the duration." Line Location: IVPSI+2
Function Call: WRITE	Prompt: !,!,"Duration cannot start with a zero." Line Location: IVPSI+3
Function Call: WRITE	Prompt: !,!,"Invalid duration or total volume.",!,"Duration has to be integer value!" Line Location: IVPSI+4
Function Call: WRITE	Prompt: !,"Continuous IV Orders cannot have DOSES as a duration." Line Location: IVPSI+7
Function Call: WRITE	Prompt: !,"Invalid number of Doses.",! Line Location: IVPSI+8
Function Call: WRITE	Prompt: !,!,"Invalid duration or total volume.",! Line Location: IVPSI+9
Function Call: WRITE	Prompt: !,!,"Invalid duration or total volume.",! Line Location: IVPSI+12
Function Call: WRITE	Prompt: !,!,"Invalid duration or total volume.",!,"Duration has to be integer value!",! Line Location: IVPSI+15
Function Call: WRITE	Prompt: !,!,"Invalid duration or total volume",! Line Location: IVPSI+18
Function Call: WRITE	Prompt: !,"This field is optional a value does not need to be entered." Line Location: IVPSI1+12
Function Call: WRITE	Prompt: !,!,"Enter the length of administrative time or total volume for IV fluid order followed by ML or CC for milliliters, L for liters, D for days, H for hours or DOSES to set limitation." Line Location: IVPSI1+13
Function Call: WRITE	Prompt: !,"(Examples: 1500ML, 1000CC, 1L, 3D, 72H, or 10DOSES)",! Line Location: IVPSI1+14
Function Call: WRITE	Prompt: !,"This field is optional a value does not need to be entered." Line Location: IVPS1X+1
Routine Call	DIC Line Location: MEDPROV+4

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.41 - [#101.41]	CHANGED+7
^ORD(101.43 - [#101.43]	INACTIVE+3, INACTIVE+6, INACTIVE+11, VOLUME+2, UNITS+2, PREMIX+4
^TMP($J	ISONETIM+3!, ISONETIM+5, ISONETIM+11!
^VA(200 - [#200]	PROVIDER+2, PROVIDER+3, INACTIVE+13
^XUSEC("OREMAS"	PROVIDER+1

Name	Line Occurrences
$$IVRTESCR	IVRTEENT+5, ROUTECHK+4
$$MEDPROV	PROVIDER+6
BIVOI	LVROUTES+2, IVRTESCR+2
IVPS1X	IVPSI1+9
ROUTECHK	INACTIVE+9, INACTIVE+15
RTEDISP	IVRTEENT+9, LVROUTES+4

Name	Field # of Occurrence
^(	INACTIVE+3
^("PS"	INACTIVE+13
^(0	INACTIVE+13
^(20	PROVIDER+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALPHA	INF+1~, INF+13, INF+14, INF+15, INF+16, INF+22, INF+23, INF+24, INF+26, INF+27*
ARRAY	IVRTEENT+1~, IVRTEENT+9, BIVOI~, LVROUTES+1~, LVROUTES+2, LVROUTES+3, IVRTESCR+1~, IVRTESCR+2, IVRTESCR+3
ARRAY(	BIVOI+6*
BASE	PREMIX+1~, PREMIX+2*, PREMIX+3, PREMIX+4
CNT	VOLUME+1~, VOLUME+5, VOLUME+6, VOLUME+9, BIVOI+1~, BIVOI+2, BIVOI+6, RTEDISP+1~, RTEDISP+2, RTEDISP+3 , ROUTECHK+1~, INF+1~, INF+6, INF+7, INF+15, INF+16, INF+23, INF+24, INF+26*, INF+27
D	MEDPROV+1~, MEDPROV+2*
DEA	INACTIVE+1~, INACTIVE+12*, INACTIVE+14
DIC	MEDPROV+1~, MEDPROV+2*
DIC("A"	MEDPROV+2*
DIC("S"	MEDPROV+3*
DIC(0	MEDPROV+2*
DIR	IVRTEENT+1~
DUR	ISONETIM+1~, ISONETIM+6*, ISONETIM+7, ISONETIM+8
DURI	IVPSI1+1~, IVPSI1+3*, IVPSI1+4, IVPSI1+7
DURV	IVPSI1+1~, IVPSI1+4*, IVPSI1+5, IVPSI1+6, IVPSI1+7
DUZ	PROVIDER+1
EXIT	INACTIVE+1~, INACTIVE+9, IVRTEENT+4, INF+1~, INF+17, INF+18, INF+20, INF+21, INF+23, INF+26*
FAIL	INF+1~, INF+5, INF+6, INF+7, INF+8
I	CHANGED+1~, CHANGED+8, INACTIVE+1~, INACTIVE+6, VOLUME+1~, VOLUME+5, VOLUME+7, VOLUME+8, UNITS+1~, UNITS+4 , PREMIX+1~, PREMIX+3, PREMIX+4, VALIDAYS+1~, VALIDAYS+4
IEN	ROUTECHK+1~
>> INST	INACTIVE+2, VOLUME+2, UNITS+2, UNITS+5
INT	IVPSI1+8~
IVTYPE	IVPSI1+8~
LDEC	INF+1~, INF+19*, INF+20, INF+23, INF+24
MSG	ENRATE+1~, ENRATE+3, ENRATE+4
NAME	PROVIDER+2~, PROVIDER+3, PROVIDER+4, PROVIDER+5, CHANGED+1~, CHANGED+6*, CHANGED+7
NUM	BIVOI+1~, BIVOI+5*, BIVOI+6
OI	INACTIVE+1~, INACTIVE+2*, INACTIVE+3, INACTIVE+6, INACTIVE+11
OIIEN	BIVOI+1~, BIVOI+4*, BIVOI+5, BIVOI+6
ONETIME	IVPSI1+8~
>> ORDIALOG(	CKSCH+1, CKSCH+3, ISONETIM+7, ISONETIM+8, CHANGED+8!, CHANGED+9!, INACTIVE+2, VOLUME+1!, VOLUME+8, VOLUME+9 , UNITS+2, UNITS+5, PREMIX+3, PREMIX+4, IVRTEENT+4, IVRTEENT+6, BIVOI+5, BIVOI+6, ROUTECHK+3, ROUTECHK+5* , ENRATE+2, ENRATE+4, ENRATE+8, ENRATE+14, IVPSI1+4, IVPSI1+7
>> ORDIALOG("B"	IVRTEENT+3, BIVOI+4, ROUTECHK+2, ENRATE+7, IVPSI1+3
>> ORESET	CKSCH+1
>> ORI	CKSCH+1, CKSCH+3
>> ORIVTYPE	ENRATE+1, INF+2, INF+10, IVPSI+7, IVPSI1+9
>> ORNP	PROVIDER+2, PROVIDER+3, PROVIDER+6*, INACTIVE+13
>> OROTSCH	IVPSI1+2
ORQUIT	PROVIDER+1, PROVIDER+4, PROVIDER+5, PROVIDER+6!, INACTIVE+4, INACTIVE+7, INACTIVE+12, INACTIVE+13
ORSD	CKSCH+1!
>> ORTYPE	IVRTEENT+2
ORX	CKSCH+1~*, CKSCH+2, CKSCH+3
>> ORXNP	PROVIDER+6*
ORY	VOLUME+1~, VOLUME+3, UNITS+1~, UNITS+3
ORY(	VOLUME+5, VOLUME+7, UNITS+4
ORY(0	UNITS+4
OTYPE	BIVOI+1~, BIVOI+3*, BIVOI+4
P	CHANGED+1~, CHANGED+6*
>> PROMPT	CKSCH+1, CKSCH+3, INACTIVE+2, VOLUME+1, VOLUME+8, VOLUME+9, ENRATE+2, ENRATE+4
PROMPTS	CHANGED+1~, CHANGED+2, CHANGED+3, CHANGED+4, CHANGED+5, CHANGED+6
PS	PROVIDER+2~, PROVIDER+4, PROVIDER+5, PROVIDER+6, PREMIX+1~, PREMIX+4*, PREMIX+5
PSOI	INACTIVE+1~, INACTIVE+11, INACTIVE+12, VOLUME+1~, VOLUME+2, VOLUME+3, UNITS+1~, UNITS+2*, UNITS+3
PTR	CHANGED+1~, CHANGED+7*, CHANGED+8, CHANGED+9
RATEI	ENRATE+6~, ENRATE+7*, ENRATE+8, ENRATE+14
RATEV	ENRATE+6~, ENRATE+8*, ENRATE+9, ENRATE+10, ENRATE+11
RDEC	INF+1~, INF+19*, INF+21, INF+25, INF+26, INF+27
RIEN	IVRTEENT+1~, IVRTEENT+3, IVRTEENT+4, IVRTEENT+6, ROUTECHK+2, ROUTECHK+3, ROUTECHK+5
ROUTE	ROUTECHK+1~
ROUTES	LVROUTES+1~, LVROUTES+3, LVROUTES+4, RTEDISP~, IVRTESCR+1~
ROUTES(	RTEDISP+2, RTEDISP+3
SCH	ISONETIM~, ISONETIM+2, ISONETIM+4, IVPSI1+8~
SCHNAME	IVPSI1+8~
TEMP	INF+1~, INF+11*, INF+12
>> TEMPX	IVPSI1+6*, IVPSI1+7
TIME	ENRATE+6~, ENRATE+10, ENRATE+12, ENRATE+13, ENRATE+14
TROUTE	IVRTEENT+1~, IVRTEENT+4, IVRTEENT+5, ROUTECHK+3, ROUTECHK+4
TYPE	CHANGED~, CHANGED+2, CHANGED+3, CHANGED+4, CHANGED+5, INACTIVE~, INACTIVE+1*, INACTIVE+4, INACTIVE+6, INACTIVE+7 , INACTIVE+12, IVPSI1+8~
U	PROVIDER+2, PROVIDER+3, PROVIDER+4, PROVIDER+5, CHANGED+6, INACTIVE+6, INACTIVE+11, INACTIVE+13, VOLUME+2, UNITS+2 , UNITS+4, PREMIX+5, IVRTEENT+3, BIVOI+4, RTEDISP+3, ROUTECHK+2, ENRATE+7, VALIDAYS+6, IVPSI1+3
UNIT	ENRATE+6~, ENRATE+11*, ENRATE+13
UNITS	UNITS+1~, UNITS+4, UNITS+5, UNITS+6, VALIDAYS+1~, VALIDAYS+3, VALIDAYS+6
VALUE	IVRTESCR+1~, IVRTESCR+3*, ROUTECHK+1~
X	MEDPROV+1~, INACTIVE+1~, INACTIVE+4, INACTIVE+5, INACTIVE+7, INACTIVE+8, ENRATE+1~, ENRATE+2, ENRATE+3, ENRATE+5 , INF+3!, INF+4!, INF+6, INF+7, INF+8!, INF+9!, INF+11, INF+12, INF+14!, INF+15 , INF+16, INF+18!, INF+19, INF+30!, VALIDAYS~, VALIDAYS+2, VALIDAYS+4, VALDURA~, VALDURA+1!, IVPSI+1 , IVPSI+2!, IVPSI+3!, IVPSI+4, IVPSI+5, IVPSI+6, IVPSI+7!, IVPSI+8!, IVPSI+9, IVPSI+10, IVPSI+11 , IVPSI+12, IVPSI+13, IVPSI+14, IVPSI+15, IVPSI+16, IVPSI+17, IVPSI+18, IVPSI+19!
X1	VALIDAYS+1~, VALIDAYS+3, VALIDAYS+4, VALIDAYS+5
X2	VALIDAYS+1~, VALIDAYS+3, VALIDAYS+4, VALIDAYS+6
XORY	VOLUME+1~
XORY(	VOLUME+7*, VOLUME+8
Y	MEDPROV+1~, MEDPROV+4, MEDPROV+5, PREMIX+1~, PREMIX+2, PREMIX+3, PREMIX+5, PREMIX+6, IVRTESCR~, IVRTESCR+3 , VALIDAYS+1~, VALIDAYS+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDPSIV

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items