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

Package: Order Entry Results Reporting

Routine: ORCDVBEC


Information

ORCDVBEC ;SLC/MKB-Utility functions for VBECS dialogs ;2/11/08 11:04

Source Information

Source file <ORCDVBEC.m>

Entry Points

Name Comments DBIA/ICR reference
PTR(X) ; -- Returns pointer to #101.41 of prompt OR GTX X
EN ; -- entry action
EX ; -- exit action
XHELP ; -- display OI's in groups
PSAOI ; -- set ORASK flags or show GenWrdInstructions for OI instance
MOD ; -- get allowable modifier values
PSAMT ; -- Post-Selection Action for Amount, to validate and format
; only allow numeric entry for now, until GUI can accept volume
SPCSTS ; -- set Specimen Status by component [Entry Action]
EXOI ; -- setup dialog parameters for selected items
COMP ; -- Handle component-specific tasks [from EXOI]
; Uses ORCOMP, ORVB(comp)
C1
FIRST(DFN,TEST) ; -- returns array reference to first data node
; in ^TMP("LRRR",$J,DFN) for TEST
ADDTAS ; -- adds T&S to order, sets ORTAS=1
; Expects PROMPT=OI, ORTEST
CHANGED ; -- Kill dependent values when Component changes
DTW ; -- Comp D/T Wanted to specimen exp d/t for TAS [DTW Exit Action]
UID(OK) ; -- [re]set the Specimen UID if DTW changes
REASON ; -- get allowable reasons
ENTYPE ; -- set up Coll Type
LAB60(X) ; -- Return file 60 ien for VBECS OI ID
ENSURG ; -- Get list of surgeries from ORVB("SURGERY")
CKMSBOS ; -- check if MSBOS limit exists, was exceeded [from PSA]
ENURG ; -- Get list of urgencies from #101.42, parameter
ASKURG() ; -- ask unless PreOp, set default
PREOP() ; -- Returns 1 or 0, if order is for pre-op

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Blood Bank orders are not available yet!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$S(INDEX["C":"Choose from Blood Components:",1:"or Diagnostic Tests:")
  • Line Location: XHELP+4
Function Call: WRITE
  • Prompt: !," "_X
  • Line Location: XHELP+8
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: XHELP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: XHELP+11
Function Call: WRITE
  • Prompt: $C(7),!,"This component or test has already been selected!",!
  • Line Location: PSAOI+1
Function Call: WRITE
  • Prompt: ORWRD(WRD,I,0),!
  • Line Location: PSAOI+8
Function Call: WRITE
  • Prompt: !,$C(7),"Enter the number of units needed, from 1-99."
  • Line Location: PSAMT+3
Function Call: WRITE
  • Prompt: !,$$PAD^ORCHTAB($P(ORZ,U,15),8)_$J($P(ORZ,U,2),9)_" "_$$PAD^ORCHTAB($P(ORZ,U,3),3)_$$PAD^ORCHTAB($P(ORZ,U,4),11)_$$PAD^ORCHTAB($P(ORZ,U,5),10)_$$DATETIME^ORCHTAB(ORTDT)_" "_$$PAD^ORCHTAB($P(ORZ,U,16),15)_$P(ORZ,U,6)
  • Line Location: C1+9
Function Call: WRITE
  • Prompt: !," "_@ORTMP
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: !!,"NOTE: The nursing blood administration order must be entered separately."
  • Line Location: C1+13
Function Call: WRITE
  • Prompt: !!,"Type & Screen added for new specimen."
  • Line Location: ADDTAS+4
Function Call: WRITE
  • Prompt: !," >> No blood is required for this procedure!",!
  • Line Location: CKMSBOS+2
Function Call: WRITE
  • Prompt: !," >> Requested #units of "_$P($G(^ORD(101.43,+X,0)),U)_" exceeds MSBOS limit of "_LIMIT_"!",!
  • Line Location: CKMSBOS+8
Info |  Source |  Entry Points |  Interaction Calls