Routine: LRBEBA4

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	UPDATE^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
Kernel	2	$$NOW^XLFDT $$GET^XUA4A72
DRG Grouper	1	$$CPT^ICPTCOD
Lab Service	1	BAWRK^LRBEBA
Registration	1	INP^VADPT

Package	Total	Caller Graph
Lab Service	13	LRBEBA2 LRBEBA21 LRBEBA3 LRBEPEND LRBEPRPT LRFAST LRORD1 LRORDST LROW LROW2A LRTSTJAM LRVER3 LRVR3
Order Entry Results Reporting	1	ORWDBA7

Package

Total

Caller Graph

Lab Service

LRBEBA2 LRBEBA21 LRBEBA3 LRBEPEND LRBEPRPT LRFAST LRORD1 LRORDST
LROW LROW2A LRTSTJAM LRVER3 LRVR3

Order Entry Results Reporting

ORWDBA7

Entry Points

Name	Comments	DBIA/ICR reference
GEPRO(LRBEAA)	; Provider - Responsible Official
UPDOR(DFN,ORITEM,ORIEN,ORDX,ORSCEI)	; Update CIDC information from OERR	ICR #4775 Status: Active Usage: Private
RFLX()	; Ask the Reflex Question
BLRSB(LRSB,LRBEIENT,LRBETST,LRBEY)	; Build the LRSB global
NLT
KILL(LRBEODT,LRBESN,LRBETN)	; Kill the existing DGX and SC/EI
DEFAULT	;Set Default diagnosis
EMSG(LRBETYP)	; Return Error Message
CHKINP(LRDFN,LRBEDAT)	; Check for Inpatient Status)
WORK	; Enter the updated information into file
GOPRO(LRODT,LRSN)	; Get the Ordering Provider
SCPT(CPT,TDAT)	; Get the CPT/HCPCS Code
SP60
HCPCS
SET(DFN,ORDX,ORSCEI)	; Set #69 with new DGX and SC/EI
SPCPT
SDG1(LRODT,LRSN,LRBETN,DFN,LRBEAR)	; Set the diagnois ; and indicators file #69
GPRO(LRBEDN,LRBECDT,LRBESPC,LRBETST)	; Get the Procedure (CPT) ; A qualified coder will setup the CPTs in #60. The routine look for ; CPTs by specimen, then HCPCS, and lasty, by a default.
GCPT(LRBETST,LRBECDT,LRSPEC)	; Get the CPT
PANEL	;Entry point for panel cpt

External References

Name	Field # of Occurrence
UPDATE^DIE	SDG1+20
^DIK	KILL+5
$$GET1^DIQ	HCPCS+1, NLT+2, SPCPT+1, UPDOR+12, UPDOR+13, UPDOR+14, UPDOR+15, UPDOR+16, UPDOR+18, WORK+4 , WORK+6, WORK+7, BLRSB+2, BLRSB+3, BLRSB+4, BLRSB+6, BLRSB+7, CHKINP+3, CHKINP+4, GEPRO+2 , GEPRO+3, GOPRO+2, GOPRO+4
GETS^DIQ	GCPT+3
^DIR	RFLX+5
$$CPT^ICPTCOD	HCPCS+3, NLT+15, SPCPT+3, SCPT+1, GCPT+10
BAWRK^LRBEBA	WORK+13
INP^VADPT	CHKINP+6
$$NOW^XLFDT	UPDOR+3
$$GET^XUA4A72	GEPRO+3, GOPRO+3, GOPRO+5

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
60.01	GETS^DIQ
^LR - [#63]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
69.01	GET1^DIQ
69.02	GET1^DIQ
69.03	GET1^DIQ
^LAB(69.9 - [#69.9]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	GPRO+4, BLRSB+8, BLRSB+13, BLRSB+14, BLRSB+15
^LAM - [#64]	NLT+4, NLT+11, NLT+12
^LAM("C"	NLT+10
^LR - [#63]	BLRSB+9, BLRSB+16
^LRO(69 - [#69]	UPDOR+20, WORK+3, KILL+3, SDG1+3, DEFAULT+3, DEFAULT+4
^XTMP("LRPCELOG"	UPDOR+1, UPDOR+3, UPDOR+4, UPDOR+6

Name	Line Occurrences
$$EMSG	UPDOR+17, UPDOR+19, WORK+12
BLRSB	WORK+9
GCPT	SP60
KILL	WORK+10
SDG1	WORK+11
SET	WORK+10
WORK	UPDOR+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	GCPT+1~, GCPT+4*, GCPT+5, GCPT+6
ARR	GCPT+1~
ARR(	GCPT+6*, GCPT+8, GCPT+9
CPT	SCPT~, SCPT+1
DA	KILL+1~, KILL+3*
DA(1	KILL+2*, KILL+3, KILL+4
DA(2	KILL+2*, KILL+3, KILL+4
DA(3	KILL+2*, KILL+3, KILL+4
DFN	UPDOR~, UPDOR+4, UPDOR+18, WORK+10, WORK+11, SET~, SET+3, SET+4, SDG1~, SDG1+4 , SDG1+6, SDG1+7, CHKINP+2, CHKINP+3*
DIC	PANEL+1~, GOPRO+1~
DIK	KILL+1~, KILL+4*
DIR	RFLX+3~
DIR("A"	RFLX+4*
DIR(0	RFLX+5*
DIRUT	RFLX+3~, RFLX+6
DT	GEPRO+3, GOPRO+3, GOPRO+5
DTOUT	RFLX+3~, RFLX+6
DUOUT	RFLX+3~, RFLX+6
I	NLT+1~, NLT+9*, NLT+10, NLT+16
LRAA	UPDOR+9~, WORK+5, WORK+13, BLRSB+3
>> LRAD	BLRSB+2*
>> LRAN	BLRSB+4*
LRBEA	SET+1~, SET+2, SET+3, SET+4, SDG1+2~, SDG1+4, SDG1+6, SDG1+7
LRBEAA	BLRSB+1~, BLRSB+3*, BLRSB+5, BLRSB+6, GEPRO~, GEPRO+2
LRBEAD	BLRSB+1~, BLRSB+2*, BLRSB+5
LRBEAN	BLRSB+1~, BLRSB+4*, BLRSB+5
LRBEAR	UPDOR+8~, WORK+8!, WORK+11, SDG1~
LRBEAR(	SET+3, SET+4, SDG1+4, SDG1+6, SDG1+7
LRBEAR60	GCPT+1~
LRBEAR60(	GCPT+4, GCPT+5, GCPT+6
LRBEAX	GCPT+1~, GCPT+9, GCPT+10, GCPT+11, GCPT+12
LRBECDT	GPRO~, SP60, HCPCS+3, NLT+13, NLT+15, SPCPT+3, GCPT~, GCPT+7, GCPT+10
>> LRBECPT	PANEL+3, HCPCS+1, HCPCS+2, HCPCS+3, HCPCS+4, HCPCS+5, NLT+14, NLT+15, NLT+16, NLT+17 , NLT+18, NLT+19, SPCPT+1, SPCPT+2, SPCPT+3, SPCPT+4, GCPT+2
>> LRBECPT(	SP60, HCPCS+5, NLT, NLT+9, NLT+16, NLT+17, NLT+18, NLT+19!, SPCPT, SPCPT+4 , GCPT+12*
LRBEDAT	CHKINP~, CHKINP+6
LRBEDFN	UPDOR+8~, UPDOR+12*, UPDOR+18
>> LRBEDMSG	DEFAULT+2, DEFAULT+7, DEFAULT+8, DEFAULT+9, DEFAULT+10
LRBEDN	GPRO~, GPRO+4
LRBEEMS	EMSG+1~, EMSG+4*, EMSG+5
LRBEFIL	SDG1+2~, SDG1+3*, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16 , SDG1+17, SDG1+18
LRBEFND	WORK+1~, WORK+2, WORK+5, WORK+12
LRBEIDT	BLRSB+1~, BLRSB+7*
LRBEIEN	PANEL+1~, GCPT+1~, GCPT+2, GCPT+3, UPDOR+8~, UPDOR+11, UPDOR+12, UPDOR+13, UPDOR+14, UPDOR+15 , UPDOR+16, WORK+4, WORK+6, WORK+9, SDG1+2~, SDG1+8*, SDG1+9, SDG1+10, SDG1+11, SDG1+12 , SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18
LRBEIEN2	BLRSB+1~, BLRSB+5*, BLRSB+7
LRBEIENT	BLRSB~, BLRSB+2, BLRSB+3, BLRSB+4
LRBENLT	PANEL+1~, NLT+1~, NLT+2, NLT+3, NLT+4, NLT+10, NLT+11, NLT+12
LRBEODT	KILL~
LRBEPDGX	SDG1+2~, SDG1+5, SDG1+6, SDG1+7, SDG1+9
LRBEPRO	GEPRO+1~, GEPRO+2, GEPRO+3, GEPRO+4, GOPRO+1~, GOPRO+2, GOPRO+3, GOPRO+5*, GOPRO+6
>> LRBEPTDT	SDG1+7*, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18
LRBERES	WORK+1~, WORK+13*
LRBERMS	UPDOR+8~, UPDOR+10, UPDOR+16, UPDOR+17, UPDOR+18, UPDOR+19, UPDOR+21, WORK+12
LRBESB	BLRSB+1~
LRBESN	KILL~
LRBESPC	GPRO~, PANEL+2
LRBESS	BLRSB+1~, BLRSB+6*
LRBET	BLRSB+1~, BLRSB+14*, BLRSB+15
LRBETN	UPDOR+8~, WORK+2, WORK+3, WORK+4, WORK+6, WORK+8, WORK+9, WORK+10, WORK+11, KILL~ , KILL+2, SDG1~, SDG1+3, SDG1+8
LRBETNM	WORK+1~, WORK+7*, WORK+8
LRBETNUM	SDG1+2~, SDG1+3, SDG1+8, SDG1+9, SDG1+19
LRBETST	GPRO~, GPRO+6, SP60, HCPCS+1, HCPCS+5, NLT, NLT+2, NLT+9, NLT+16, NLT+17 , NLT+18, NLT+19, SPCPT, SPCPT+1, SPCPT+4, GCPT~, GCPT+2, GCPT+12, WORK+1~, WORK+6 , WORK+7, WORK+8, WORK+9, BLRSB~, BLRSB+8, BLRSB+12, BLRSB+13, BLRSB+14, BLRSB+19
LRBETYP	UPDOR+8~, EMSG~, EMSG+2, EMSG+3
LRBETYPN	EMSG+1~, EMSG+2, EMSG+3, EMSG+4
LRBEVST	UPDOR+9~, UPDOR+20*, WORK+13
LRBEY	UPDOR+9~, WORK+9, WORK+13, BLRSB~
LRBEY(	BLRSB+12, BLRSB+19
LRBEZ	WORK+1~, WORK+13
LRBEZ(	WORK+8*
>> LRCDEF	NLT+7
LRD	DEFAULT+1~, DEFAULT+4*, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+8, DEFAULT+9
>> LRDBEDGX	DEFAULT+2, DEFAULT+6
>> LRDBUG	DEFAULT+10
LRDFN	UPDOR+8~, UPDOR+12*, BLRSB+9, BLRSB+16, CHKINP~, CHKINP+3, CHKINP+4
>> LRDPF	CHKINP+4*, CHKINP+5
LRERR	SDG1+2~
LRFDA	SDG1+2~
LRFDA(99	SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18
LRFDAIEN	SDG1+2~
LRFDAIEN(	SDG1+9*
LRI	PANEL+3, HCPCS+5, NLT+16, NLT+17, NLT+18, NLT+19, SPCPT+4, GCPT+2, GCPT+12, UPDOR+2~ , UPDOR+5, UPDOR+6, DEFAULT+1~, DEFAULT+3*, DEFAULT+4
>> LRIDT	BLRSB+7*, BLRSB+9, BLRSB+16
LRLLOC	UPDOR+9~, UPDOR+14*
LRLNOW	UPDOR+2~, UPDOR+3*, UPDOR+4, UPDOR+6
LRN	PANEL+1~, NLT+1~, NLT+11*, NLT+12
LRNM	NLT+1~, NLT+4*, NLT+5, NLT+6, NLT+7, NLT+8
LRNM(	NLT+9, NLT+10, NLT+16
LRNM(1	NLT+5*
LRNM(2	NLT+7*
LRNM(3	NLT+8*
LRODT	UPDOR+8~, UPDOR+10*, UPDOR+11, UPDOR+20, WORK+3, WORK+10, WORK+11, WORK+13, KILL+2, SDG1~ , SDG1+3, SDG1+8, DEFAULT+3, DEFAULT+4, GOPRO~, GOPRO+2
LRORD	UPDOR+8~, UPDOR+10*, UPDOR+16
LRSAMP	UPDOR+9~, UPDOR+13*
LRSB	UPDOR+9~, WORK+9, BLRSB~
LRSB(	BLRSB+9, BLRSB+10!, BLRSB+11!, BLRSB+16, BLRSB+17!, BLRSB+18!
LRSN	UPDOR+8~, UPDOR+11*, UPDOR+20, WORK+3, WORK+10, WORK+11, WORK+13, KILL+2, SDG1~, SDG1+3 , SDG1+8, DEFAULT+3, DEFAULT+4, GOPRO~, GOPRO+2
LRSPEC	PANEL+2, SP60, GCPT~, GCPT+2, UPDOR+9~, UPDOR+15
>> LRSS	BLRSB+6*, BLRSB+9, BLRSB+16
LRX	NLT+1~, NLT+12*, NLT+13, NLT+14, DEFAULT+1~
LRY	DEFAULT+1~
NX	BLRSB+1~, BLRSB+13*, BLRSB+14
ORDX	UPDOR~, WORK+10, SET~
ORDX(	UPDOR+5, UPDOR+6, SET+2, SET+3, SET+4
ORDX(0	UPDOR+7
ORIEN	UPDOR~, UPDOR+4, WORK+4, WORK+13
ORITEM	UPDOR~, UPDOR+4, UPDOR+10, UPDOR+11
ORSCEI	UPDOR~, UPDOR+4, UPDOR+7, WORK+10, SET~, SET+3
SUFX	NLT+1~, NLT+6*, NLT+7, NLT+8
TDAT	SCPT~, SCPT+1
U	HCPCS+4, HCPCS+5, NLT+4, NLT+13, NLT+15, SPCPT+3, GCPT+11, GCPT+12, UPDOR+4, SET+4 , SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18, BLRSB+8 , BLRSB+11, BLRSB+15, BLRSB+18, DEFAULT+7, DEFAULT+8, DEFAULT+9
VAIN	CHKINP+1~
VAIN(1	CHKINP+7
VAINDT	CHKINP+1~, CHKINP+6*
X	GPRO+4, PANEL+1~, GCPT+1~, GCPT+8, GCPT+9, GEPRO+1~, GOPRO+1~, GOPRO+4*, GOPRO+5
XX	GCPT+1~, GCPT+7, GCPT+8, BLRSB+1~, BLRSB+8, BLRSB+9, BLRSB+10, BLRSB+11, BLRSB+12, BLRSB+15* , BLRSB+16, BLRSB+17, BLRSB+18, BLRSB+19
Y	GPRO+4*, GPRO+5, GPRO+6, PANEL+1~, RFLX+3~, RFLX+7, GOPRO+1~

Customize PDF page

Package: Lab Service

Routine: LRBEBA4

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 14

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: