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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ORWDBA7

Package: Order Entry Results Reporting

Routine: ORWDBA7


Information

ORWDBA7 ;;SLC/GSS Billing Awareness (CIDC-Clinical Indicators Data Capture)

Source Information

Source file <ORWDBA7.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 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

Used in RPC

RPC Name Call Tags
ORWDBA7 GETIEN9 GETIEN9
ORWDBA7 ISWITCH ISWITCH

Global Variables Directly Accessed

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

Label References

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*

Marked Items

Name Field # of Occurrence
$T(@TAGROU CKROUTAG+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All