Routine: LRBEBA

Information

LRBEBA ;DALOI/JAH/FHS - SCI, EI, AND LRBEDGX QUESTIONS ;8/10/04

Source file <LRBEBA.m>

Name	Comments	DBIA/ICR reference
QUES(LRBEDFN,LRBESMP,LRBESPC,TST,DT,LRBEAR,LRBEDP)	; Start asking questions
SCI(LRBEDFN,LRBECDT,LRBEQT)	; Ask the Indicator Questions
GETI(LRBEA)	; Get type of Indicator
ERRMSG(MT)	; Display Error Message
SDG1(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEAR)	; Set the diagnois ; and indicators file #69
SDOS(LRODT,LRSN,LRTN,LRBECDT)	; Set DOS for CIDC
CCPT(LRBECPT,LRBECDT,LRBEAR)	; Check the status of the CPT (CSV)
EMSGCPT(LRBEAR)	; Print out Inactive CPTs
BAWRK(LRODT,LRSN,LRI,LRBEY,LRTEST,LRBEDEL,LRBEVST,LRBEROLL,ORIEN)	; Send the Billing Information to PCE
KILL	;
GEDT(LRODT,LRSN,LRBETST)	; Get the Date of Service
GCDT(LRODT,LRSN)	; Get the collection date/time