Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ORCDPSIV

Package: Order Entry Results Reporting

Routine: ORCDPSIV


Information

ORCDPSIV ;SLC/MKB-Pharmacy IV dialog utilities ;06/17/10

Source Information

Source file <ORCDPSIV.m>

Call Graph

Call Graph

Call Graph Total: 13

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Order Entry Results Reporting 7 ORADDFQT  ORCACT  ORCACT2  ORCMED  ORWDXM2  ^ORD(101.41  ITEMS  

Entry Points

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

External References

Name Field # of Occurrence
IX^DIC MEDPROV+4
$$INPT^ORCD INACTIVE+9
$$PTR^ORCD ISONETIM+6, UNITS+2, UNITS+5, PREMIX+2
$$RECALL^ORCD ADDFRD+6
$$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
$$IV^PSSDSAPA ADDFRD+9
EN^PSSGS0 CKSCH+2
$$IVDEA^PSSUTIL1 INACTIVE+12
IVDEA^PSSUTIL1 INACTIVE+10
$$NOW^XLFDT PROVIDER+5, INACTIVE+3
$$UP^XLFSTR ADDFRQI+1, INF+12, VALIDAYS+4, IVPSI+5
$$GET^XPAR PROVIDER+1
$$PRDEA^XUSER INACTIVE+14

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: !,"Select from the list of the codes below to assign an additive frequency for this additive."
  • Line Location: ADDFRQC+2
Function Call: WRITE
  • Prompt: !,"A = All Bags"
  • Line Location: ADDFRQC+3
Function Call: WRITE
  • Prompt: !,"1 = 1 Bag/Day"
  • Line Location: ADDFRQC+4
Function Call: WRITE
  • Prompt: !,"S = See Comments"
  • Line Location: ADDFRQC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDFRQC+6
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+14
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: INACTIVE+15
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: IVDURT+4
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: IVDURT+5
Function Call: WRITE
  • Prompt: !,"(Examples: 1500ML, 1000CC, 1L, 3D, 72H, or 10DOSES)",!
  • Line Location: IVDURT+6
Function Call: WRITE
  • Prompt: !,"This field is optional a value does not need to be entered."
  • Line Location: IVDURX+1
Routine Call
  • DIC
  • Line Location:
    • MEDPROV+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101.41 - [#101.41] ADDFRD+4, ADDFRD+5, CHANGED+7, CHANGED+11
^ORD(101.43 - [#101.43] ADDFRD+8, 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+14
^XUSEC("OREMAS" PROVIDER+1

Label References

Name Line Occurrences
$$IVRTESCR IVRTEENT+5, ROUTECHK+4
$$MEDPROV PROVIDER+6
ADDFRQC ADDFRQI+2
BIVOI LVROUTES+2, IVRTESCR+2
IVDURT IVPSI1+9, IVDURH+1
IVDURX IVDURT+1
ROUTECHK INACTIVE+9, INACTIVE+16
RTEDISP IVRTEENT+9, LVROUTES+4

Naked Globals

Name Field # of Occurrence
^( INACTIVE+3
^(0 INACTIVE+14
^(20 PROVIDER+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDFRIEN ADDFRD+1~, ADDFRD+4*
ADDIEN ADDFRD+1~, ADDFRD+5*, ADDFRD+7
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+15
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~, 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 ADDFRD~, ADDFRD+6, ADDFRD+7, 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+10*, CHANGED+11
NUM BIVOI+1~, BIVOI+5*, BIVOI+6
OI ADDFRD+1~, ADDFRD+7*, ADDFRD+8, INACTIVE+1~, INACTIVE+2*, INACTIVE+3, INACTIVE+6, INACTIVE+11
OIIEN BIVOI+1~, BIVOI+4*, BIVOI+5, BIVOI+6
ONETIME IVPSI1+8~
ORDEA INACTIVE+1~, INACTIVE+14*
ORDIALOG ADDFRD~
ORDIALOG( CKSCH+1, CKSCH+3*, ISONETIM+7, ISONETIM+8*, ADDFRD+7, CHANGED+8, CHANGED+12!, CHANGED+14!, 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, CHANGED+12
>> ORIVTYPE ADDFRD+3, ADDFRQC+1, ENRATE+1, INF+2, INF+10, IVPSI+7, IVPSI1+9, IVDURH+1
>> ORNP PROVIDER+2, PROVIDER+3, PROVIDER+6*, INACTIVE+14
>> OROTSCH IVPSI1+2
ORQUIT PROVIDER+1*, PROVIDER+4*, PROVIDER+5*, PROVIDER+6!, INACTIVE+4*, INACTIVE+7*, INACTIVE+12, INACTIVE+14*
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+10*
PROMPT CKSCH+1, CKSCH+3, ADDFRD~, ADDFRD+6, INACTIVE+2, VOLUME+1, VOLUME+8, VOLUME+9, ENRATE+2, ENRATE+4
PROMPTS CHANGED+1~, CHANGED+2*, CHANGED+3*, CHANGED+4*, CHANGED+6*, CHANGED+8*, CHANGED+10
PS PROVIDER+2~*, PROVIDER+4, PROVIDER+5, PROVIDER+6*, PREMIX+1~, PREMIX+4*, PREMIX+5
PSOI ADDFRD+1~, ADDFRD+8*, ADDFRD+9, 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+11*, CHANGED+12, CHANGED+14
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
RESULT ADDFRD+1~, ADDFRD+2*, ADDFRD+3, ADDFRD+4, ADDFRD+5, ADDFRD+6*, ADDFRD+7, ADDFRD+8, ADDFRD+9*, ADDFRD+10*
, ADDFRD+11
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, ISONETIM+5, IVPSI1+8~
SCHNAME IVPSI1+8~
TEMP INF+1~, INF+11*, INF+12
TEMPX IVPSI1+1~, 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~, IVDURT~, IVDURT+1
U ADDFRD+8, PROVIDER+2, PROVIDER+3, PROVIDER+4, PROVIDER+5, CHANGED+8, CHANGED+10, INACTIVE+6, INACTIVE+11, INACTIVE+14
, 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 ADDFRQI+1*, ADDFRQI+2!, ADDFRQI+3*, ADDFRQI+4*, ADDFRQI+5*, 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*

Marked Items

Name Field # of Occurrence
$T(IVDEA^PSSUTIL1 INACTIVE+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All