ORWDBA1 ; SLC OIFO/DKK/GSS - Order Dialogs Billing Awareness ;12/04/12 09:39
Source file <ORWDBA1.m>
| 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 |
