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: ORCDPS1

Package: Order Entry Results Reporting

Routine: ORCDPS1


Information

ORCDPS1 ;SLC/MKB-Pharmacy dialog utilities ;Nov 13, 2019@09:12:46

Source Information

Source file <ORCDPS1.m>

Entry Points

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

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+5
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: DEA+6
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+11
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: ORDITM+12
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
Info |  Source |  Entry Points |  Interaction Calls