©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORWDBA7 ;;SLC/GSS Billing Awareness (CIDC-Clinical Indicators Data Capture)
Source file <ORWDBA7.m>
| 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 | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 1 | ORCSEND |
| 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
|
| 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 |
| >> | 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* |
| Name | Field # of Occurrence |
|---|---|
| $T(@TAGROU | CKROUTAG+2 |