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

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Order Entry Results Reporting 5 ($$DUP,$$VAL)^ORCD  GETIMES^ORCDLR1  PTINFO^ORCDVBC1  ($$DATETIME,$$PAD)^ORCHTAB  $$TEST^ORCSEND2  
Kernel 2 $$HL7TFM^XLFDT  $$UP^XLFSTR  
Lab Service 2 RR^LR7OR1  GCOM^LR7OR3  
VA FileMan 2 ^%DT  ^DIR  
Registration 1 $$SITE^VASITE  
Toolkit 1 GETLST^XPAR  
VBECS 1 OEAPI^VBECA3  

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

Package Total Caller Graph
Order Entry Results Reporting 2 ORWDXM4  ORWDXVB  

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

External References

Name Field # of Occurrence
^%DT DTW+3
^DIR PREOP+4
RR^LR7OR1 C1+1
GCOM^LR7OR3 PSAOI+7
$$DUP^ORCD PSAOI+1
$$VAL^ORCD ENSURG+1
GETIMES^ORCDLR1 ENTYPE+7
PTINFO^ORCDVBC1 EN+4
$$DATETIME^ORCHTAB C1+9
$$PAD^ORCHTAB C1+9
$$TEST^ORCSEND2 PSAOI+5
$$SITE^VASITE EN+3
OEAPI^VBECA3 EN+1, EN+4
$$HL7TFM^XLFDT DTW+4
$$UP^XLFSTR MOD+6, PSAMT+4, REASON+6, ENSURG+7, ENURG+7
GETLST^XPAR MOD+2, REASON+2

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
Routine Call
  • DIR
  • Line Location:
    • PREOP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ENTYPE+5, LAB60+3
^ORD(101.41 - [#101.41] PTR+1
^ORD(101.42 - [#101.42] ENSURG+1, ENURG+2, ENURG+5, ASKURG+3
^ORD(101.43 - [#101.43] EN+11, XHELP+5, XHELP+6, XHELP+7, PSAOI+3, PSAOI+6, SPCSTS+3, EXOI+4, ADDTAS+3, LAB60+2
CKMSBOS+5, CKMSBOS+8
^SC - [#44] EN+2
^TMP("LRRR" C1+1!, C1+12!, FIRST+3, FIRST+4, FIRST+5

Label References

Name Line Occurrences
$$FIRST C1+4
$$LAB60 ENTYPE+4
$$PREOP ASKURG+3
$$PTR EN+9, SPCSTS+2, C1CHANGED+2, UID+2, CKMSBOS+3
ADDTAS EXOI+9, COMP+6, DTW+5
CHANGED EXOI+8
COMP EXOI+8
UID DTW+6

Naked Globals

Name Field # of Occurrence
^( XHELP+6, FIRST+4
^(0 EN+11, PSAOI+3, EXOI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTW+2~, DTW+3*
AMT CKMSBOS+1~, CKMSBOS+3*, CKMSBOS+7
C EN+2~, EN+6*
CNT XHELP+1~, XHELP+2*, XHELP+9*, ENSURG+3~*, ENSURG+6*, ENSURG+8, ENURG+1~*, ENURG+6*, ENURG+8
COMP EXOI+1~, EXOI+2*, EXOI+5*, EXOI+8, CKMSBOS+1~, CKMSBOS+5*, CKMSBOS+6
D XHELP+1~, XHELP+7*
DA FIRST+2~, FIRST+4*, FIRST+5
DFN FIRST~, FIRST+3, FIRST+4, FIRST+5
DIR PREOP+1~
DIR("?" PREOP+3*
DIR("A" PREOP+2*
DIR("B" PREOP+4*
DIR(0 PREOP+2*
DIROUT PREOP+1~
DIRUT PREOP+1~
DIV EN+2~*, EN+3
DONE XHELP+1~, XHELP+3, XHELP+5, XHELP+6, XHELP+10*, PSAOI+1!, PSAMT+3!, PSAMT+6!
DT EN+3
DTIME XHELP+10
DTOUT PREOP+1~, PREOP+4
DUOUT PREOP+1~, PREOP+4
EXP DTW+2~, DTW+4*, DTW+5
>> FIRST EXOI+8, ASKURG+2
I EN+9~, EN+10*, PSAOI+2~, PSAOI+8*, MOD+1~, MOD+3*, MOD+4, MOD+5, CHANGED+1~, CHANGED+2*
, UID+1~, UID+3*, UID+4, UID+5, REASON+1~, REASON+3*, REASON+4, REASON+5, ENTYPE+2~, ENTYPE+3*
, LAB60+1~, LAB60+2*, ENSURG+3~*, ENSURG+4*, CKMSBOS+1~, CKMSBOS+4*, CKMSBOS+5, CKMSBOS+7, ENURG+1~, ENURG+5*
ENURG+6, ENURG+7
IDT FIRST+2~, FIRST+3*, FIRST+4, FIRST+5
INDEX XHELP+1~, XHELP+3*, XHELP+4, XHELP+5, XHELP+6, XHELP+7
>> INST SPCSTS+1, SPCSTS+2, SPCSTS+4, DTW+3, ASKURG+2, ASKURG+3, ASKURG+4
IOSL XHELP+9
J CHANGED+1~, CHANGED+3*
LC ENTYPE+2~*, ENTYPE+3, ENTYPE+5*, ENTYPE+6
LIMIT CKMSBOS+1~, CKMSBOS+6*, CKMSBOS+7, CKMSBOS+8
N EN+2~, EN+6*, COMP+3~, COMP+5*
NAME PSAOI+2~, PSAOI+5*
NM LAB60+1~, LAB60+2*, LAB60+3
OI SPCSTS+2~*, SPCSTS+3, CKMSBOS+1~, CKMSBOS+3*, CKMSBOS+4, CKMSBOS+5
OK DTW+2~, DTW+4*, DTW+5*, DTW+6, UID~, UID+4
ORASK EX+1!, PSAOI+3*, PSAOI+4, SPCSTS+1, EXOI+2!
>> ORC COMP+4*, COMP+5, COMP+6
ORCOLLCT EX+1!
ORCOMP EN+8*, EN+12*, EX+1!, EXOI+8*, EXOI+9, COMP+4, CKMSBOS+2
>> ORDIALOG( EN+10, XHELP+2, MOD+1, MOD+5*, MOD+6*, MOD+7*, PSAMT+7*, SPCSTS+1!, SPCSTS+2, SPCSTS+4*
EXOI+3, EXOI+4, C1+6*, ADDTAS+2, ADDTAS+3*, CHANGED+3!, CHANGED+4!, DTW+3, UID+3, UID+4
, UID+5*, REASON+1, REASON+5*, REASON+6*, REASON+7*, ENSURG+2, ENSURG+6*, ENSURG+7*, ENSURG+8*, CKMSBOS+4
CKMSBOS+5, CKMSBOS+7, ENURG+1, ENURG+6*, ENURG+7*, ENURG+8*, ASKURG+2, ASKURG+3*, ASKURG+4*
ORDIV EX+1!
>> OREDIT EN+8
>> ORESET PSAOI+4
>> OREVENT EN+5
>> OREWRITE EN+8
ORHDR COMP+3~, C1+7, C1+8, C1+10*, C1+12
ORI PSAOI+1, PSAMT+7, EXOI+1~, EXOI+3*, EXOI+4, COMP+3~, COMP+4*, C1*, C1+6*, ADDTAS+2~*
ADDTAS+3
ORIMTIME EX+1!, ENTYPE+7
ORITM EX+1!
>> ORL EN+2, EX+2*
ORMSBOS EX+1!
ORMSBOS( EN+6*, CKMSBOS+6
OROOT COMP+3~, C1+10*, C1+11
ORP COMP+3~, C1*, C1+6
>> ORQUIT EN+1*, PREOP+4*
ORSTN EN+2~, EN+3*, EN+4
ORSURG EX+1!, ENSURG+2!
ORSURG( ENSURG+5*, CKMSBOS+2
ORT PSAOI+2~, PSAOI+5*, PSAOI+6*, PSAOI+7, COMP+3~, COMP+5*, C1*, C1+1, C1+4
ORTAS EN+8*, EX+1!, EXOI+2*, EXOI+6*, EXOI+9, COMP+6, ADDTAS+5*, DTW+5
ORTDT COMP+3~, C1+5*, C1+6, C1+9
ORTEST EN+8*, EN+13*, EX+1!, EXOI+7*, ADDTAS+5*, ENTYPE+3
ORTEST("Lab C ollSamp" , EXOI+7!, ENTYPE+1, ENTYPE+6*
ORTIME EX+1!, ENTYPE+7
ORTMP COMP+3~, C1+4*, C1+5, C1+10, C1+11*
ORTST COMP+3~
ORTST( COMP+5*, C1
>> ORTYPE EN+4, EXOI+9, COMP+2, DTW+1, ASKURG+2
ORVB EN+4, EX+1!
ORVB( EN+6, SPCSTS+4, COMP+5, COMP+6
ORVB("ABORH" EXOI+9
ORVB("SPECIMEN" EN+5*, SPCSTS+4, COMP+6, DTW+1, DTW+4, UID+4
ORVB("SURGERY" ENSURG+4
>> ORVP EN+4, C1+1, C1+4
ORWRD PSAOI+2~, PSAOI+7
ORWRD( PSAOI+8
ORX MOD+1~, MOD+2, MOD+7, REASON+1~, REASON+2, REASON+7
ORX( MOD+3, MOD+4, REASON+3, REASON+4
ORXL EX+2!
ORZ COMP+3~, C1+5*, C1+6, C1+9
P EN+9~*, EN+10
>> PROMPT XHELP+2, PSAOI+1, MOD+1, MOD+5, MOD+6, MOD+7, PSAMT+7, SPCSTS+1, SPCSTS+4, EXOI+3
EXOI+4, ADDTAS+2, ADDTAS+3, DTW+3, REASON+1, REASON+5, REASON+6, REASON+7, ENSURG+2, ENSURG+6
ENSURG+7, ENSURG+8, ENURG+1, ENURG+6, ENURG+7, ENURG+8, ASKURG+2, ASKURG+3, ASKURG+4
PTR CHANGED+1~, CHANGED+2*, CHANGED+3, CHANGED+4
>> REQD ENSURG+1*
SCREEN XHELP+1~, XHELP+2*, XHELP+7
SPCSTS UID+1~, UID+2*, UID+3, UID+4, UID+5
SYN XHELP+1~, XHELP+6*
T ENTYPE+2~, ENTYPE+4*, ENTYPE+5
TEST EXOI+1~, EXOI+2*, EXOI+6*, EXOI+7, FIRST~, FIRST+4
U EN+2, EN+3, EN+6, EN+11, EN+12, EN+13, PSAOI+5, PSAOI+6, MOD+4, MOD+5
SPCSTS+3, SPCSTS+4, EXOI+4, EXOI+5, EXOI+6, EXOI+9, COMP+4, COMP+6, C1+6, C1+9
ADDTAS+5, UID+4, REASON+4, REASON+5, ENTYPE+3, ENTYPE+5, LAB60+2, ENSURG+1, ENSURG+5, ENSURG+6
CKMSBOS+2, CKMSBOS+5, CKMSBOS+6, CKMSBOS+8, ENURG+6
V ENTYPE+2~, ENTYPE+3*, ENTYPE+4
WRD PSAOI+2~, PSAOI+7*, PSAOI+8
X PTR~, PTR+1, EN+2~, EN+6*, EN+9~, EN+10*, EN+11*, EN+12, EN+13, XHELP+1~
XHELP+5*, XHELP+6, XHELP+8, MOD+1~, MOD+4*, MOD+5, MOD+6, PSAMT+2~, PSAMT+4*, SPCSTS+2~
SPCSTS+3*, SPCSTS+4, EXOI+1~, EXOI+4*, EXOI+5, EXOI+6, DTW+2~, DTW+3*, UID+1~, UID+4*
, UID+5, REASON+1~, REASON+4*, REASON+5, REASON+6, LAB60~, LAB60+2, ENSURG+3~, ENSURG+4*, ENSURG+5*
ENSURG+6, ENSURG+7, CKMSBOS+1~, CKMSBOS+5*, CKMSBOS+8, ENURG+1~, ENURG+2*, ENURG+5, ENURG+6, ENURG+7
, PREOP+1~
X0 EN+9~, EN+11*, EN+12, PSAOI+2~, PSAOI+3*, PSAOI+5, EXOI+1~, EXOI+4*, EXOI+5, EXOI+6
X1 PSAMT+2~, PSAMT+4*, PSAMT+6, PSAMT+7
X2 PSAMT+2~
Y XHELP+1~, XHELP+5*, XHELP+6*, XHELP+7, PSAOI+3, PSAOI+4, PSAMT+3, PSAMT+4, FIRST+2~*, FIRST+3
, FIRST+4*, FIRST+5*, FIRST+6, DTW+2~, DTW+3, DTW+5, LAB60+1~, LAB60+3*, LAB60+4, CKMSBOS+1
CKMSBOS+2, CKMSBOS+6, ASKURG+1~*, ASKURG+3*, ASKURG+5, PREOP+1~, PREOP+5
Y0 XHELP+1~, XHELP+7*
Z XHELP+1~, XHELP+10*

Marked Items

Name Field # of Occurrence
$T(OEAPI^VBECA3 EN+1
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