Routine: LRBEBA2

Information

LRBEBA2 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;8/10/04

Source file <LRBEBA2.m>

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