Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls