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

Package: Order Entry Results Reporting

Routine: ORCDPS2


Information

ORCDPS2 ;SLC/MKB-Pharmacy dialog utilities ;Feb 18, 2021@14:20:11

Source Information

Source file <ORCDPS2.m>

Entry Points

Name Comments DBIA/ICR reference
COMPLEX() ; -- Single or complex?
CP1
DOSES ; -- Available common doses
D1 ; -- Entry from ORCMED,NF^ORCDPS to build list
CHDOSE ; -- Kill dependent values if inst ORI of dose changes
EXDOSE ; -- Exit Action
EXD1 ; -- Kill dangling conjunction, [re]build Sig, get Qty info
SIG ; -- Create ORDIALOG(SIG) from Instructions PROMPT,ORDOSE,ORDRUG,ORCAT
; Return text in ^TMP("ORWORD",$J,SIG,INST)
; [also called from PSJ^ORCSEND1 to build child orders]
PTR(X) ; -- Ptr to prompt OR GTX X
DOSE() ; -- Dosage
WORD(X) ; -- Words for number X
RTE() ; -- Expansion of route
SCH() ; -- [outpatient] expansion of schedule
DUR() ; -- Duration
CONJ() ; -- Conjunction
DOSETEXT
PI ; -- Include Pt Instructions w/Sig in Outpt order?
CLEARWP ; -- Clear INST of wp field PROMPT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the amount of this drug that the patient is to receive as a dose,",!,"NOT as the number of units per dose."
  • Line Location: CHDOSE+3
Function Call: WRITE
  • Prompt: $C(7),!,"Instructions may not be longer than 60 characters."
  • Line Location: CHDOSE+5
Function Call: WRITE
  • Prompt: $C(7),!,"WARNING: Dosage check may not occur."
  • Line Location: CHDOSE+16
Function Call: WRITE
  • Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!"
  • Line Location: EXDOSE+4
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: EXDOSE+5
Function Call: WRITE
  • Prompt: $C(7),!,"Cannot determine dispense drug - some defaults and order checks may not occur!"
  • Line Location: EXDOSE+12
Function Call: WRITE
  • Prompt: !,$S(I=1:"Patient Instructions: ",1:" ")_ORTX(I)
  • Line Location: PI+9
Info |  Source |  Entry Points |  Interaction Calls