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* |