ORWDBA1 ; SLC OIFO/DKK/GSS - Order Dialogs Billing Awareness ;12/04/12 09:39
Source file <ORWDBA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | $$ORFMDAT^ORWDBA3 $$CHKPS1^ORWDBA5 |
| DRG Grouper | 1 | $$ICDDATA^ICDXCODE |
| Integrated Billing | 1 | $$CIDC^IBBAPI |
| Kernel | 1 | $$DT^XLFDT |
| Scheduling | 1 | CL^SDCO21 |
| Toolkit | 1 | $$GET^XPAR |
| VA FileMan | 1 | NOW^%DTC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 9 | ORWDBA1 BASTATUS ORWDBA1 GETORDX ORWDBA1 ORPKGTYP ORWDBA1 RCVORCI ORWDBA1 SCLST ORWDBA18 ORWDBA3 ORWDBA4 ORWDBA7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETORDX(Y,ORIEN) | ; Retrieve Diagnoses for an order - RPC
; Input: ; ORIEN Order Internal ID# ; Output: ; Y Array of Diagnoses (Dx) - Y(#)=#^DxInt#^ICD9^DxDesc^TxF ; Variables used: ; CT Counter for # of Dx related to order ; DXIEN Dx internal ID ; DXN Internal (to ^OR(100)) sequence # for Dx storage ; DXREC Dx record from Order file ; DXV Dx description ; ICD9 External ICD9 # ; TXFACTRS Treatment Factors (TxF) |
|
| SCLST(Y,DFN,ORLST) | ; RPC for compiling appropriate TxF's
; RPC titled ORWDBA1 SCLST |
|
| CPLSTBA(TEST,PTIFN,ORIFNS) | ; set-up SC/TFs for BA
|
|
| SCPRE(DR,DFN) | ; Dialog validation, to ask BA questions
|
|
| ORPKGTYP(Y,ORLST) | ; Build BA supported packages array
; GMRC=Prosthetics, LR=Lab, PSO=Pharmacy, RA=Radiology |
|
| ORPKG1(TEST,ORIFNS) | ; Order for package BA supports? TEST(ORI)=1 is YES
|
|
| BASTATUS(Y) | ;RPC to retrieve the status of the Billing Awareness software
; Y = Returned Value (1=BA usable, 0=BA not-usable) ; Check for installation of CIDC ancillary build |
|
| BASTAT() | ; Internal version of BASTATUS
; Returns 0 if disabled or 1 if enabled |
|
| RCVORCI(Y,DIAG) | ;Receive order related Clinical Indicators & Diagnoses from GUI
; Store data in ^OR(100,ODN,5.1) & ^OR(100,0DN,5.2) |
|
| TFSTGS | ; Set Treatment Factor strings sequence order
; TFGBL is order of TxFs in ^OR(100,ORIEN,5) & ^OR(100,ORIEN,5.2) ; TFGUI is order of TxFs to/from GUI ; TFTBL is order of TxFs for table SD008 (used in ZCL segment) ; NOTE: change examples in TFGUIGBL and TFGBLGUI if order changed |
|
| TFGUIGBL(GUI) | ;Convert Treatment Factors from GUI to Global order & format
|
|
| TFGBLGUI(GBL) | ;Convert Treatment Factors from Global to GUI order & format
|
|
| PRVKEY(X) | ;Check for active & provider key - to be deleted in CPRS v26
|
|
| ORESKEY(X) | ;Does 'X' hold ORES key, returns: 1=true, 0=false
|
| RPC Name | Call Tags |
|---|---|
| ORWDBA1 ORPKGTYP | ORPKGTYP |
| ORWDBA1 RCVORCI | RCVORCI |
| ORWDBA1 SCLST | SCLST |
| ORWDBA1 BASTATUS | BASTATUS |
| ORWDBA1 GETORDX | GETORDX |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | CPLSTBA+14, CPLSTBA+18, ORPKGTYP+5, ORPKGTYP+7 |
| ^OR(100 - [#100] | GETORDX+16, GETORDX+17, GETORDX+22, GETORDX+24, GETORDX+28, CPLSTBA+25, CPLSTBA+26, CPLSTBA+27, ORPKG1+6, ORPKG1+7 , ORPKG1+9, ORPKG1+10, ORPKG1+17, ORPKG1+18, ORPKG1+19, RCVORCI+8!, RCVORCI+12*, RCVORCI+20*, RCVORCI+21*, RCVORCI+22* |
| ^ORD(101.43 - [#101.43] | ORPKG1+19 |
| ^VA(200 - [#200] | PRVKEY+3, PRVKEY+4 |
| ^XPD(9.7 - [#9.7] | BASTATUS+3 |
| ^XUSEC("ORES" | ORESKEY+2 |
| ^XUSEC("PROVIDER" | PRVKEY+6 |
| Name | Line Occurrences |
|---|---|
| $$BASTAT | CPLSTBA+17 |
| $$TFGBLGUI | GETORDX+28 |
| $$TFGUIGBL | RCVORCI+11 |
| CPLSTBA | SCLST+9 |
| ORPKG1 | ORPKGTYP+9 |
| SCPRE | CPLSTBA+21 |
| TFSTGS | TFGUIGBL+9, TFGBLGUI+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SCPRE+10 |
| CPNODE | SCPRE+6~, SCPRE+8*, SCPRE+13*, SCPRE+15, SCPRE+16, SCPRE+17, SCPRE+18, SCPRE+19, SCPRE+20, SCPRE+21 , SCPRE+22 |
| CT | GETORDX+14~, GETORDX+15*, GETORDX+18, GETORDX+29*, SCPRE+6~, SCPRE+8*, SCPRE+13* |
| DFN | SCLST~, SCLST+9, CPLSTBA+17, CPLSTBA+21, SCPRE~, SCPRE+5, SCPRE+10 |
| DIAG | RCVORCI~ |
| DIAG( | RCVORCI+5, RCVORCI+6, RCVORCI+11, RCVORCI+16, RCVORCI+17 |
| DR | CPLSTBA+21, CPLSTBA+29, SCPRE~, SCPRE+8*, SCPRE+15*, SCPRE+16*, SCPRE+17*, SCPRE+18*, SCPRE+19*, SCPRE+20* , SCPRE+21*, SCPRE+22*, SCPRE+34* |
| DUZ | CPLSTBA+17 |
| DXIEN | GETORDX+14~, GETORDX+24*, GETORDX+25, GETORDX+29, RCVORCI+3~, RCVORCI+17*, RCVORCI+18, RCVORCI+21, RCVORCI+22 |
| DXN | GETORDX+14~, GETORDX+15*, GETORDX+22*, GETORDX+24, GETORDX+29 |
| DXREC | GETORDX+14~, GETORDX+24* |
| DXV | GETORDX+14~, GETORDX+26*, GETORDX+29 |
| GBL | TFGUIGBL+5~, TFGUIGBL+6*, TFGUIGBL+13*, TFGUIGBL+14, TFGBLGUI~, TFGBLGUI+10 |
| GMRCPROS | SCLST+8~, ORPKGTYP+7*, ORPKG1+18 |
| GUI | TFGUIGBL~, TFGUIGBL+11, TFGBLGUI+5~, TFGBLGUI+6*, TFGBLGUI+12*, TFGBLGUI+13 |
| I | CPLSTBA+17*, SCPRE+6~, SCPRE+13*, SCPRE+33*, SCPRE+34, ORPKGTYP+4*, ORPKG1+2* |
| ICD9 | GETORDX+14~, GETORDX+26*, GETORDX+29 |
| ICDR | GETORDX+14~, GETORDX+25*, GETORDX+26 |
| J | TFGUIGBL+5~, TFGUIGBL+11*, TFGUIGBL+12, TFGUIGBL+13*, TFGBLGUI+5~, TFGBLGUI+10*, TFGBLGUI+11, TFGBLGUI+12* |
| NTF | TFGUIGBL+5~, TFGUIGBL+6*, TFGUIGBL+11, TFGUIGBL+13, TFGUIGBL+14, TFGBLGUI+5~, TFGBLGUI+6*, TFGBLGUI+10, TFGBLGUI+12 |
| OCDXCT | RCVORCI+3~, RCVORCI+4*, RCVORCI+19*, RCVORCI+20, RCVORCI+21, RCVORCI+22 |
| OCT | RCVORCI+3~, RCVORCI+16*, RCVORCI+17 |
| ODN | RCVORCI+3~, RCVORCI+4*, RCVORCI+5*, RCVORCI+6, RCVORCI+11, RCVORCI+16, RCVORCI+17 |
| OIREC | ORPKGTYP+2~, ORPKG1+19*, ORPKG1+20 |
| OIV | ORPKGTYP+2~ |
| OIV( | ORPKG1+2*, ORPKG1+20 |
| OIVN | ORPKGTYP+2~, ORPKG1+19*, ORPKG1+20* |
| ORD | SCLST+8~, CPLSTBA+24*, CPLSTBA+25, CPLSTBA+26, CPLSTBA+27, CPLSTBA+29, ORPKG1+3*, ORPKG1+4, ORPKG1+6, ORPKG1+7 , ORPKG1+9, ORPKG1+10, ORPKG1+17, ORPKG1+18, ORPKG1+19 |
| ORFMDAT | GETORDX+14~, GETORDX+20*, GETORDX+25, RCVORCI+14*, RCVORCI+17 |
| ORI | SCLST+8~, CPLSTBA+6*, CPLSTBA+24*, CPLSTBA+28, CPLSTBA+29, ORPKG1+1*, ORPKG1+3*, ORPKG1+8, ORPKG1+9, ORPKG1+20 , ORPKG1+21 |
| ORIEN | GETORDX~, GETORDX+16, GETORDX+17, GETORDX+20, GETORDX+22, GETORDX+24, GETORDX+28, RCVORCI+3~, RCVORCI+6*, RCVORCI+7 , RCVORCI+8, RCVORCI+12, RCVORCI+14, RCVORCI+20, RCVORCI+21, RCVORCI+22 |
| ORIFNS | CPLSTBA~, ORPKG1~ |
| ORIFNS( | CPLSTBA+28, ORPKG1+3, ORPKG1+8 |
| ORLST | SCLST~, SCLST+9, ORPKGTYP~, ORPKGTYP+9 |
| ORLST( | CPLSTBA+24, CPLSTBA+29 |
| ORPKG | SCLST+8~, CPLSTBA+17*, CPLSTBA+18, ORPKGTYP+4*, ORPKGTYP+5 |
| ORPKG( | CPLSTBA+14*, CPLSTBA+18*, CPLSTBA+27, ORPKGTYP+5*, ORPKG1+10, ORPKG1+17 |
| ORSDCARY | SCPRE+6~, SCPRE+7!, SCPRE+10 |
| ORSDCARY( | SCPRE+13 |
| ORX | SCPRE+6~, SCPRE+8* |
| ORX( | SCPRE+34 |
| PTD | PRVKEY+1~, PRVKEY+4*, PRVKEY+5 |
| PTIFN | CPLSTBA~ |
| SCI | RCVORCI+3~, RCVORCI+11*, RCVORCI+12 |
| TEST | CPLSTBA~, ORPKG1~ |
| TEST( | CPLSTBA+27, CPLSTBA+29*, ORPKG1+3*, ORPKG1+9*, ORPKG1+20*, ORPKG1+21* |
| TF | SCPRE+6~, SCPRE+8*, SCPRE+13*, TFGUIGBL+5~, TFGUIGBL+11*, TFGUIGBL+12, TFGBLGUI+5~, TFGBLGUI+10*, TFGBLGUI+11 |
| TF( | TFGUIGBL+12*, TFGUIGBL+13, TFGBLGUI+11*, TFGBLGUI+12 |
| TFGBL | TFSTGS+5*, TFGUIGBL+5~, TFGUIGBL+13, TFGBLGUI+5~, TFGBLGUI+11 |
| TFGUI | TFSTGS+6*, TFGUIGBL+5~, TFGUIGBL+12, TFGBLGUI+5~, TFGBLGUI+12 |
| TFTBL | TFSTGS+7*, TFGUIGBL+5~, TFGBLGUI+5~ |
| TXFACTRS | GETORDX+14~, GETORDX+28*, GETORDX+29 |
| U | GETORDX+24, GETORDX+26, GETORDX+29, CPLSTBA+26, CPLSTBA+27, SCPRE+13, SCPRE+15, SCPRE+16, SCPRE+17, SCPRE+18 , SCPRE+19, SCPRE+20, SCPRE+21, SCPRE+22, SCPRE+34, ORPKG1+1*, ORPKG1+2, ORPKG1+7, ORPKG1+10, ORPKG1+17 , ORPKG1+18, ORPKG1+20, RCVORCI+11, RCVORCI+16, RCVORCI+17, RCVORCI+20, TFGUIGBL+12, TFGUIGBL+13, TFGUIGBL+14, TFGBLGUI+10 , TFGBLGUI+11, TFGBLGUI+12 |
| X | SCPRE+6~, SCPRE+8*, SCPRE+15*, SCPRE+16*, SCPRE+17*, SCPRE+18*, SCPRE+19*, SCPRE+20*, SCPRE+21*, SCPRE+22* , PRVKEY~, PRVKEY+2, PRVKEY+3, PRVKEY+4, PRVKEY+6, ORESKEY~, ORESKEY+1, ORESKEY+2 |
| Y | GETORDX~, GETORDX+16*, GETORDX+17*, GETORDX+18*, SCLST~, SCLST+9, ORPKGTYP~, ORPKGTYP+9, BASTATUS~, BASTATUS+3* , BASTATUS+4, BASTATUS+6*, RCVORCI~, RCVORCI+4*, RCVORCI+7*, RCVORCI+23* |
| Y( | GETORDX+29* |
