Routine: LRBEBA4

Information

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

Source file <LRBEBA4.m>

Name	Comments	DBIA/ICR reference
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.
PANEL	;Entry point for panel cpt
SP60
HCPCS
NLT
SPCPT
SCPT(CPT,TDAT)	; Get the CPT/HCPCS Code
GCPT(LRBETST,LRBECDT,LRSPEC)	; Get the CPT
UPDOR(DFN,ORITEM,ORIEN,ORDX,ORSCEI)	; Update CIDC information from OERR	ICR #4775 Status: Active Usage: Private
WORK	; Enter the updated information into file
KILL(LRBEODT,LRBESN,LRBETN)	; Kill the existing DGX and SC/EI
SET(DFN,ORDX,ORSCEI)	; Set #69 with new DGX and SC/EI
SDG1(LRODT,LRSN,LRBETN,DFN,LRBEAR)	; Set the diagnois ; and indicators file #69
EMSG(LRBETYP)	; Return Error Message
BLRSB(LRSB,LRBEIENT,LRBETST,LRBEY)	; Build the LRSB global
CHKINP(LRDFN,LRBEDAT)	; Check for Inpatient Status)
RFLX()	; Ask the Reflex Question
DEFAULT	;Set Default diagnosis
GEPRO(LRBEAA)	; Provider - Responsible Official
GOPRO(LRODT,LRSN)	; Get the Ordering Provider