Routine: ORWDBA7

Package	Total	Call Graph
Order Entry Results Reporting	4	EN^ORERR $$SC^ORQ21 ($$BASTAT,TFSTGS)^ORWDBA1 $$ORFMDAT^ORWDBA3
DRG Grouper	1	($$CODEN,$$ICDDX)^ICDCODE
Integrated Billing	1	$$CIDC^IBBAPI
Kernel	1	$$REPEAT^XLFSTR
Lab Service	1	$$UPDOR^LRBEBA4
Outpatient Pharmacy	1	$$EN^PSOHLNE3
Radiology Nuclear Medicine	1	$$CPRSUPD^RABWORD1

Package

Total

Call Graph

Order Entry Results Reporting

EN^ORERR $$SC^ORQ21 ($$BASTAT,TFSTGS)^ORWDBA1 $$ORFMDAT^ORWDBA3

DRG Grouper

($$CODEN,$$ICDDX)^ICDCODE

$$CIDC^IBBAPI

$$REPEAT^XLFSTR

$$UPDOR^LRBEBA4

$$EN^PSOHLNE3

Radiology Nuclear Medicine

$$CPRSUPD^RABWORD1

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORCSEND

Package

Total

Caller Graph

Order Entry Results Reporting

ORCSEND

Entry Points

Name	Comments	DBIA/ICR reference
TFGBLTBL(GBL)	;Convert Tx Factors from Global to TBL (HL7) order & format ; Note: this does not set Tx Factors in ZCL segment format but rather ; AO^IR^SC^EC^MST^HNC^CV^SHD ('^' delimited string) format
CONDTLD	;Consult Detailed Display Compile for CIDC/BA (called by GMRCSLM2) ; Input: ORIFN and GMRCCT defined in GMRCSLM2 ; Output: CIDCARY = array of CIDC display lines for GMRCSLM2 display
GETIEN9(Y,ICD9)	;Return IEN for an ICD9 code (RPC: ORWDBA7 GETIEN9)
BDOEDIT	; Backdoor entered orders edit in CPRS - entry point ; Data Flow> Ancillary creates a back door order which is incomplete ; and thus edited in CPRS GUI. The ancillary needs to know ; what Dx and TF's are edited thus this tag calls three ; ancillary APIs, passing the Dx and TF data to them.
CKROUTAG(TAGROU)	;Check if valid tag and routine ; Temporary check until all the ancillaries have their API's built
ISWITCH(Y,DFN)	;Return 0 if don't ask (no ins) or 1 to ask CIDC quest (yes ins)
VAR	;Create VAR array for tracking error in ^ORYX("ORERR",err#)
OUTPUT	; Call ancillary's API to store data after checking for it's existence

External References

Name	Field # of Occurrence
$$CIDC^IBBAPI	ISWITCH+1
$$CODEN^ICDCODE	GETIEN9+1
$$ICDDX^ICDCODE	CONDTLD+13
$$UPDOR^LRBEBA4	OUTPUT+5
EN^ORERR	BDOEDIT+21, BDOEDIT+40, BDOEDIT+44
$$SC^ORQ21	CONDTLD+25
$$BASTAT^ORWDBA1	BDOEDIT+19
TFSTGS^ORWDBA1	TFGBLTBL+10
$$ORFMDAT^ORWDBA3	CONDTLD+6
$$EN^PSOHLNE3	OUTPUT+10
$$CPRSUPD^RABWORD1	OUTPUT+15
$$REPEAT^XLFSTR	CONDTLD+26

RPC Name	Call Tags
ORWDBA7 GETIEN9	GETIEN9
ORWDBA7 ISWITCH	ISWITCH

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	BDOEDIT+34
^OR(100 - [#100]	BDOEDIT+25, BDOEDIT+27, BDOEDIT+29, BDOEDIT+30, BDOEDIT+32, BDOEDIT+34, CONDTLD+8, CONDTLD+11, CONDTLD+24

Name	Line Occurrences
$$CKROUTAG	OUTPUT+4, OUTPUT+9, OUTPUT+14
$$TFGBLTBL	BDOEDIT+32
OUTPUT	BDOEDIT+36
VAR	BDOEDIT+21, BDOEDIT+40, BDOEDIT+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANCILARY	BDOEDIT+23~, BDOEDIT+34*, BDOEDIT+39, OUTPUT+3, OUTPUT+8, OUTPUT+13
BGNRCCT	CONDTLD+3~, CONDTLD+4*
>> CIDCARY(	CONDTLD+17, CONDTLD+18, CONDTLD+21, CONDTLD+25
DFN	ISWITCH~, ISWITCH+1
DXIEN	CONDTLD+3~, CONDTLD+11*, CONDTLD+13
DXN	BDOEDIT+23~, BDOEDIT+25, BDOEDIT+29, BDOEDIT+30
DXOF	CONDTLD+3~, CONDTLD+9, CONDTLD+19, CONDTLD+20
DXV	CONDTLD+3~, CONDTLD+15*, CONDTLD+20
EYE	CONDTLD+3~, CONDTLD+24*, CONDTLD+25
GBL	TFGBLTBL~, TFGBLTBL+12
>> GMRCCT	CONDTLD+4, CONDTLD+17, CONDTLD+18, CONDTLD+21, CONDTLD+25, CONDTLD+26
ICD9	GETIEN9~, GETIEN9+1, CONDTLD+3~, CONDTLD+15*, CONDTLD+20
ICDR	CONDTLD+3~, CONDTLD+13*, CONDTLD+15
J	TFGBLTBL+7~, TFGBLTBL+12, TFGBLTBL+14, TFGBLTBL+15
LINE	CONDTLD+3~, CONDTLD+20, CONDTLD+21, CONDTLD+23, CONDTLD+25
MSG	BDOEDIT+21, BDOEDIT+23~, BDOEDIT+39, BDOEDIT+40, BDOEDIT+43*, BDOEDIT+44
NTF	TFGBLTBL+7~, TFGBLTBL+8*, TFGBLTBL+12, TFGBLTBL+15
OCT	CONDTLD+3~, CONDTLD+4, CONDTLD+8, CONDTLD+11, CONDTLD+16, CONDTLD+22
ORDX	BDOEDIT+23~, OUTPUT+5, OUTPUT+10, OUTPUT+15, VAR+4
ORDX(	BDOEDIT+30*
ORFMDAT	CONDTLD+3~, CONDTLD+6*, CONDTLD+13
>> ORIFN	BDOEDIT+21, BDOEDIT+25, BDOEDIT+27, BDOEDIT+29, BDOEDIT+30, BDOEDIT+32, BDOEDIT+34, OUTPUT+5, OUTPUT+10, OUTPUT+15 , VAR+3, CONDTLD+6, CONDTLD+8, CONDTLD+11, CONDTLD+24
ORITEM	BDOEDIT+23~, BDOEDIT+27*, OUTPUT+5, OUTPUT+10, OUTPUT+15, VAR+2
ORSCEI	BDOEDIT+23~, BDOEDIT+32*, OUTPUT+5, OUTPUT+10, OUTPUT+15, VAR+5
PTIEN	BDOEDIT+23~, BDOEDIT+25*, OUTPUT+5, OUTPUT+10, OUTPUT+15, VAR+1
RT	BDOEDIT+23~, BDOEDIT+25, BDOEDIT+38, BDOEDIT+42, OUTPUT+4, OUTPUT+9, OUTPUT+14
SUCCESS	BDOEDIT+23~, BDOEDIT+25, BDOEDIT+42, OUTPUT+5, OUTPUT+10, OUTPUT+15
TAGROU	BDOEDIT+23~, CKROUTAG~
TBL	TFGBLTBL+7~, TFGBLTBL+8, TFGBLTBL+15, TFGBLTBL+17
TF	TFGBLTBL+7~, TFGBLTBL+12, TFGBLTBL+14, CONDTLD+3~, CONDTLD+24
TF(	TFGBLTBL+14*, TFGBLTBL+15
TFGBL	TFGBLTBL+7~, TFGBLTBL+14
TFGUI	TFGBLTBL+7~
TFO	BDOEDIT+23~
TFTBL	TFGBLTBL+7~, TFGBLTBL+15
U	BDOEDIT+25, BDOEDIT+34, TFGBLTBL+12, TFGBLTBL+14, TFGBLTBL+15, CONDTLD+15, CONDTLD+24
VAR	BDOEDIT+21, BDOEDIT+23~, BDOEDIT+40, BDOEDIT+44
VAR("DFN"	VAR+1*
VAR("ORDX"	VAR+4*
VAR("ORIFN"	VAR+3*
VAR("ORITEM"	VAR+2*
VAR("ORSCEI"	VAR+5*
>> X	CONDTLD+26*
Y	ISWITCH~, ISWITCH+1, GETIEN9~, GETIEN9+1

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDBA7

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items