Routine: ORCDVBEC

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

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORWDXM4 ORWDXVB ^ORD(101.41 ITEMS

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, C1, CHANGED+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*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDVBEC

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items