Routine: LRBEBA2

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Lab Service	5	SDG1^LRBEBA $$GMOD^LRBEBA2 ($$GMOD,EN,GDGX,GOREF)^LRBEBA21 SLROT^LRBEBA3 ($$GEPRO,$$GOPRO,DEFAULT,GPRO)^LRBEBA4
VA Fileman	3	^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
DRG Grouper	1	$$ICDDX^ICDEX
IHS Changes To Lab	1	$$MODEXIST^BLRUTIL4

Package	Total	Caller Graph
Lab Service	12	LR7OB3 LR7OB69 LR7OF0 LR7OF1 LRBEBA LRBEBA2 LRBEBA21 LRBEBA3 LRBEBA31 LRCAPPH1 LRFAST LRORDST
IHS Changes To Lab	1	BLR7OB1

Package

Total

Caller Graph

Lab Service

LR7OB3 LR7OB69 LR7OF0 LR7OF1 LRBEBA LRBEBA2 LRBEBA21 LRBEBA3
LRBEBA31 LRCAPPH1 LRFAST LRORDST

IHS Changes To Lab

BLR7OB1

Entry Points

Name	Comments	DBIA/ICR reference
SOP2	;Process atomic test CPT code
GDG1(LRODT,SN,IFN)	; diagnosis and indicators back to CPRS
BLDAR(LRBEDFN,LRODT,LRSN,LRTN,LRBESMP,LRBESPC,LRBETST,LRBEAR)	; Build array ; with diagnosis and indicator info
STDN(LRODT,LRBESN,LRBETEST,LRBEAR1)	; Test and Data Number
SACC(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEX)	; Set Accession
SOP(LRBEDFN,LRBESB,LRBEAR1,LRBEPAN,LRBEROLL)	;Outpatient Resulting
GPOS(LRBESB,LRBEDN)	; Get the Place of Service
BLDAR2(LRBETST,XTEST,LRBESMP,LRBESPC)	;
SLROT(LRXST,LRTEST,LRBEOT)	;
GMOD(LRBEAA,LRBECPT)	; Get external service modifier
SDGX69(J,LRBEIEN)	; Set the diagnosis into #69
SDG1(IFN,CTR,LRBEMSG)	; Setup the DG1 segment For CPRS
DG1(LRBESTG)	; Set the DG1 segment into the ^TMP
CARR(LRBEAR,LRBEARR,LRBESAMP,LRBESPEC,LRTSTS)	; Change the array to only ; the specimen that needs to go
ZCL(LRBESTG)	; Set the ZCL segment into the ^TMP

External References

Name	Field # of Occurrence
$$MODEXIST^BLRUTIL4	SOP+1
^DIC	STDN+4
FILE^DIE	SOP+23
UPDATE^DIE	SDGX69+17
$$GET1^DIQ	SDG1+4, CARR+4, SOP+18, SOP+19, SOP+20
$$ICDDX^ICDEX	SDG1+6
SDG1^LRBEBA	SACC+3
$$GMOD^LRBEBA2	SOP2+18
$$GMOD^LRBEBA21	GMOD+4
EN^LRBEBA21	SOP+12
GDGX^LRBEBA21	SOP2+20
GOREF^LRBEBA21	SOP2+8
SLROT^LRBEBA3	SLROT+1
$$GEPRO^LRBEBA4	SOP+8
$$GOPRO^LRBEBA4	SOP+8
DEFAULT^LRBEBA4	BLDAR+15
GPRO^LRBEBA4	SOP2+7

FileNo	Call Tags
^LR - [#63]	GET1^DIQ
69.03	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	BLDAR+20, BLDAR+21, BLDAR+22, BLDAR2+3, BLDAR2+4
^LR - [#63]	SOP2+9, SOP2+11, SOP2+13*
^LRO(69 - [#69]	SDGX69+6, GDG1+3, GDG1+4, BLDAR+4, BLDAR+6, BLDAR+7, BLDAR+14, STDN+5, STDN+6, SOP+15
^TMP("LRX"	GDG1+6, GDG1+7, SDG1+2, SDG1+3
^TMP("OR"	DG1+2, DG1+5, ZCL+2, ZCL+4, SDGX69+3, SDGX69+4

Name	Line Occurrences
$$GPOS	SOP2+19
BLDAR2	BLDAR+19, BLDAR+23
CARR	SACC+2
SOP2	SOP+22

Name	Field # of Occurrence
^(0	BLDAR+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CTR	SDG1~, SDG1+8, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16*
>> DFN	CARR+4, CARR+5
DGX	BLDAR2+1~, BLDAR2+5*, BLDAR2+6, BLDAR2+8
DIC	STDN+3*, STDN+4!, SOP+4~
DIC(0	STDN+3*
IFN	GDG1~, GDG1+3, GDG1+4, GDG1+6, GDG1+7, SDG1~, SDG1+2, SDG1+3
J	SDGX69~, SDGX69+3, SDGX69+4
>> LRAA	SOP+8, SOP2+18
LRBE21	SOP+5~, SOP+10*, SOP+12, SOP+14
LRBEA	STDN+1~, STDN+2*, STDN+4, STDN+7, STDN+8
LRBEAA	GMOD~, GMOD+4
LRBEAR	CARR~, CARR+3, BLDAR~, SOP2+20
LRBEAR(	BLDAR+12, BLDAR+17, BLDAR2+5, BLDAR2+6, BLDAR2+8, SOP2+26
LRBEAR1	STDN~, SOP~, SOP2+8, SOP2+20
LRBEAR1(	STDN+7, STDN+8*, SOP+9, SOP+22
LRBEARR	CARR~, CARR+3*
LRBEARR(	CARR+7, CARR+9!, CARR+11, CARR+13!, CARR+15, CARR+16!
LRBEB	STDN+1~, STDN+5*, STDN+6, STDN+8
LRBEC	STDN+1~, STDN+6*, STDN+8
>> LRBECDT	SOP+20*, SOP+21, SOP2+7, SOP2+22
LRBECNT	GDG1+1~, GDG1+2, GDG1+7
LRBECPT	GMOD~, GMOD+3, GMOD+4, SOP+7!, SOP+23, SOP2+17*, SOP2+18, SOP2+21, SOP2+25
LRBECPT(	SOP2+7, SOP2+16, SOP2+17, SOP2+25
LRBED	STDN+1~, STDN+7*, STDN+8
LRBEDFN	CARR+2~, CARR+4, CARR+5, CARR+7, CARR+9, CARR+11, CARR+13, CARR+15, CARR+16, BLDAR~ , BLDAR+12, BLDAR+17, BLDAR2+5, BLDAR2+6, BLDAR2+8, SOP~, SOP2+26
LRBEDGX	DG1+1~, DG1+4, DG1+5, SDGX69+1~, GDG1+1~, SDG1+1~, SDG1+4, SDG1+7, BLDAR+11*, BLDAR+12 , SOP+4~, SOP2+20
LRBEDGX(	SOP2+21, SOP2+22, SOP2+23, SOP2+24
LRBEDMSG	BLDAR+2!, BLDAR+17
LRBEDN	SOP+4~, SOP+22*, SOP2+2, SOP2+3, SOP2+4, SOP2+5, SOP2+7, SOP2+8, SOP2+9, SOP2+11 , SOP2+13, SOP2+19, SOP2+20, SOP2+26, GPOS~, GPOS+1
LRBEDX	STDN+1~
LRBEEDT	SOP+4~, SOP+7*
LRBEEPRO	SOP+4~, SOP+7, SOP+8, SOP2+22
LRBEFIL	SDGX69+1~, SDGX69+2*, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13, SDGX69+14 , SDGX69+15, SDGX69+16
LRBEIEN	SDGX69~, SDGX69+5, SDGX69+6, SDG1+1~
LRBEIEN2	SDGX69+1~, SDGX69+5, SDGX69+6, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13 , SDGX69+14, SDGX69+15, SDGX69+16
LRBEIND	ZCL+1~, ZCL+3*, ZCL+4
LRBEMOD	GMOD+2~, GMOD+4, GMOD+5, SOP2+18, SOP2+21
LRBEMSG	SDG1~, SDG1+8, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16 , BLDAR+2!, BLDAR+8, BLDAR+9, BLDAR+10*, BLDAR+12
>> LRBENO	BLDAR+15
LRBEODT	BLDAR+2!, BLDAR+3*
LRBEOPRO	SOP+4~, SOP+7, SOP+8, SOP2+22
LRBEOT	SLROT~, SLROT+1
LRBEPAN	SOP~
LRBEPAN(	SOP+12
LRBEPOS	SOP+5~, SOP2+19*, SOP2+22
LRBEPTDT	SDGX69+1~, SDGX69+4, SDGX69+6, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13 , SDGX69+14, SDGX69+15, GDG1+1~, GDG1+4, GDG1+5, GDG1+6, GDG1+7, SDG1+1~, SDG1+3, SDG1+4 , SDG1+6, SDG1+7, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16 , BLDAR+2!, BLDAR+3, STDN+1~
LRBEQTY	SOP+4~, SOP+7, SOP2+6, SOP2+22
>> LRBERES	SOP2+5, SOP2+11
LRBEROLL	SOP~
LRBESAMP	CARR~, CARR+8
LRBESB	SOP~, SOP2+19, GPOS~
LRBESB(	SOP2+2, SOP2+3, SOP2+4, SOP2+5, GPOS+1
LRBESEQ	SDGX69+1~, SDGX69+2, SDGX69+3, SDGX69+4, SDGX69+5, SDGX69+7, SDGX69+16, GDG1+1~, GDG1+3, GDG1+4 , SDG1+1~, SDG1+2, SDG1+3, SDG1+8, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14 , SDG1+15, SDG1+16, BLDAR+2!, BLDAR+6, BLDAR+7, BLDAR+14
LRBESMP	CARR+2~, CARR+6, CARR+7, CARR+8, CARR+9, CARR+11, CARR+13, CARR+15, CARR+16, BLDAR~ , BLDAR+12, BLDAR+17, BLDAR+19, BLDAR+23, BLDAR2~, BLDAR2+5, BLDAR2+6, BLDAR2+8
LRBESN	STDN~, STDN+3, STDN+5, STDN+6
LRBESPC	CARR+2~, CARR+10, CARR+11, CARR+12, CARR+13, CARR+15, CARR+16, BLDAR~, BLDAR+12, BLDAR+17 , BLDAR+19, BLDAR+23, BLDAR2~, BLDAR2+5, BLDAR2+6, BLDAR2+8
LRBESPEC	CARR~, CARR+12
LRBESTG	DG1~, DG1+4, ZCL~, ZCL+3, SOP+4~, SOP2+21, SOP2+22, SOP2+23, SOP2+24, SOP2+25* , SOP2+26
LRBETEST	STDN~
LRBETEST(	STDN+2, STDN+4, STDN+7, STDN+8
LRBETNUM	DG1+1~, DG1+2, DG1+3, DG1+5, ZCL+1~, ZCL+2*, ZCL+4
LRBETS	CARR+2~, CARR+14, CARR+15, CARR+16
LRBETST	BLDAR~, BLDAR+4, BLDAR+12, BLDAR+17, BLDAR+19, BLDAR+20, BLDAR+21, BLDAR+23, BLDAR2~, BLDAR2+5 , BLDAR2+6, SOP+4~, SOP+9*, SOP+12, SOP+15, SOP+22, SOP2+20, SOP2+21, SOP2+22, SOP2+23 , SOP2+24
LRBETSTX	SOP2+1~, SOP2+7, SOP2+16, SOP2+17, SOP2+25
LRBEX	ZCL+1~, ZCL+3, ZCL+4, SDG1+1~, SDG1+7, SDG1+8, SACC~, SACC+2
LRBEXMSG	SDG1+1~, SDG1+6*, SDG1+7
LRBEZ	SACC+1~, SACC+2, SACC+3
LRD	BLDAR+2!, BLDAR+7*, BLDAR+8, BLDAR+9, BLDAR+10, BLDAR+11
LRDBEDGX	BLDAR+2!, BLDAR+16, BLDAR+17
>> LRDFN	CARR+4, SOP2+9, SOP2+11, SOP2+13
LRFDA	SDGX69+1~
LRFDA(1	SOP+23*
LRFDA(99	SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13, SDGX69+14, SDGX69+15, SDGX69+16
LRFDAIEN	SDGX69+1~
LRFDAIEN(	SDGX69+7*
LRI	BLDAR+18~, BLDAR+20, BLDAR+21, BLDAR2+1~, BLDAR2+2, BLDAR2+3, BLDAR2+4, SOP2+16, SOP2+17, SOP2+25 , SOP2+26
>> LRIDT	SOP2+9, SOP2+11, SOP2+13
LRODT	SDGX69+6, GDG1~, GDG1+3, GDG1+4, SACC~, SACC+3, BLDAR~, BLDAR+3, BLDAR+4, BLDAR+6 , BLDAR+7, BLDAR+14, STDN~, STDN+3, STDN+5, STDN+6, SOP+8, SOP+15, SOP+17, SOP2+8
LRORREFN	SOP+5~, SOP+7*, SOP2+8, SOP2+24
LRSAMP	SDGX69+3, SDGX69+4, SACC~, SACC+2, SACC+3
>> LRSDT	SDGX69+3, SDGX69+4
LRSN	SDGX69+6, SACC~, SACC+3, BLDAR~, BLDAR+4, BLDAR+6, BLDAR+7, BLDAR+14, SOP+8, SOP+15 , SOP+17, SOP2+8
LRSPEC	SDGX69+3, SDGX69+4, SACC~, SACC+2, SACC+3, SOP2+7
>> LRSS	SOP2+9, SOP2+11, SOP2+13
>> LRSX	DG1+2, DG1+5, ZCL+2, ZCL+4
LRTEST	SLROT~, SLROT+1
LRTN	SACC~, SACC+3, BLDAR~, BLDAR+4*, BLDAR+5, BLDAR+6, BLDAR+7, BLDAR+14
LRTNX	BLDAR+18~, BLDAR+21, BLDAR+22, BLDAR+23, BLDAR2+1~, BLDAR2+4, BLDAR2+8
LRTNXID	BLDAR+18~, BLDAR+22*, BLDAR+23
LRTSTS	SACC~, SACC+2, SACC+3, CARR~, CARR+16
LRX	BLDAR2+1~, BLDAR2+6*, BLDAR2+7, BLDAR2+8
LRXST	SLROT~, SLROT+1
>> LRXZ	SDGX69+3, SDGX69+4
>> LRY	SOP+15, SOP+16, SOP+17, SOP+18, SOP+19, SOP+20, SOP+23
>> ORIEN	SOP+19
OUT	SOP2+1~, SOP2+9, SOP2+11, SOP2+15
>> SAMP	DG1+2, DG1+5, ZCL+2, ZCL+4
SN	GDG1~, GDG1+3, GDG1+4
>> SPEC	DG1+2, DG1+5, ZCL+2, ZCL+4
>> STARTDT	DG1+2, DG1+5, ZCL+2, ZCL+4
>> TYPE	DG1+2, DG1+5, ZCL+2, ZCL+4
U	ZCL+4, SDGX69+6, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13, SDGX69+14 , SDGX69+15, SDG1+4, SDG1+6, SDG1+7, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14 , SDG1+15, SDG1+16, BLDAR+8, BLDAR+9, BLDAR+10, BLDAR+22, STDN+4, STDN+7, STDN+8, SOP2+3 , SOP2+4, SOP2+5, SOP2+11, SOP2+13, SOP2+21, SOP2+22, SOP2+23, SOP2+24, SOP2+25, GPOS+1
X	STDN+1~, STDN+4*
XTEST	BLDAR2~, BLDAR2+3, BLDAR2+4
Y	STDN+1~, STDN+4, STDN+5, STDN+6

Customize PDF page

Package: Lab Service

Routine: LRBEBA2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 13

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: