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  | All
Print Page as PDF
Routine: ORWDBA1

Package: Order Entry Results Reporting

Routine: ORWDBA1


Information

ORWDBA1 ; SLC OIFO/DKK/GSS - Order Dialogs Billing Awareness ;12/04/12 09:39

Source Information

Source file <ORWDBA1.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Order Entry Results Reporting 9 ORWDBA1 BASTATUS  ORWDBA1 GETORDX  ORWDBA1 ORPKGTYP  ORWDBA1 RCVORCI  ORWDBA1 SCLST  ORWDBA18  ORWDBA3  ORWDBA4  
ORWDBA7  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC SCPRE+10
$$CIDC^IBBAPI CPLSTBA+17
$$ICDDATA^ICDXCODE GETORDX+25, RCVORCI+17
$$ORFMDAT^ORWDBA3 GETORDX+20, RCVORCI+14
$$CHKPS1^ORWDBA5 BASTATUS+6, BASTAT+2
CL^SDCO21 SCPRE+10
$$DT^XLFDT PRVKEY+5
$$GET^XPAR CPLSTBA+17

Used in RPC

RPC Name Call Tags
ORWDBA1 ORPKGTYP ORPKGTYP
ORWDBA1 RCVORCI RCVORCI
ORWDBA1 SCLST SCLST
ORWDBA1 BASTATUS BASTATUS
ORWDBA1 GETORDX GETORDX

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables  | All