Routine: ORWDBA1

Package	Total	Call Graph
Order Entry Results Reporting	2	$$ORFMDAT^ORWDBA3 $$CHKPS1^ORWDBA5
DRG Grouper	1	$$ICDDX^ICDCODE
Integrated Billing	1	$$CIDC^IBBAPI
Kernel	1	$$DT^XLFDT
Scheduling	1	CL^SDCO21
Toolkit	1	$$GET^XPAR
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORWDBA18 ORWDBA3 ORWDBA4 ORWDBA7

Entry Points

Name	Comments	DBIA/ICR reference
RCVORCI(Y,DIAG)	;Receive order related Clinical Indicators & Diagnoses from GUI ; Store data in ^OR(100,ODN,5.1) & ^OR(100,0DN,5.2)
TFGUIGBL(GUI)	;Convert Treatment Factors from GUI to Global order & format
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
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
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
BASTAT()	; Internal version of BASTATUS ; Returns 0 if disabled or 1 if enabled
SCLST(Y,DFN,ORLST)	; RPC for compiling appropriate TxF's ; RPC titled ORWDBA1 SCLST
TFGBLGUI(GBL)	;Convert Treatment Factors from Global to GUI order & format
SCPRE(DR,DFN)	; Dialog validation, to ask BA questions
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)
CPLSTBA(TEST,PTIFN,ORIFNS)	; set-up SC/TFs for BA
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

Name	Field # of Occurrence
NOW^%DTC	SCPRE+10
$$CIDC^IBBAPI	CPLSTBA+17
$$ICDDX^ICDCODE	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

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

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*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDBA1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: