IBCEF7 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am
Source file <IBCEF7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALLPROV | ;called from #364.5 entry "N-ALL CUR/OTH PROVIDER INFO"
|
|
| PRV1(IB399) | ;
|
|
| OTHSBID(IBXIEN,IBZOUT) | ;
|
|
| ELMADD2(IBXIEN,IBP,IBARR) | ;
|
|
| OTHADD2(IBXIEN,IBZOUT) | ;
|
|
| FR2PAT(IBDFN,IBINS) | ;information about "other insured" address
|
|
| ELMADDR(IBXIEN,IBP,IBARR) | ;
|
|
| OTHADDR(IBXIEN) | ;
|
|
| PROVPTR(IBIEN399,IBFUNC) | ;
|
|
| PROVSSN(IBIEN399) | ;
|
|
| GETNMEL(IBFULL,IBEL) | ;Get name element
|
|
| PROVIDER(IB399,IBPROV,IBRES) | ;
|
|
| PROVINF(IB399,IBPRNUM,IBRES,IBSORT,IBINSTP) | ;
|
|
| PSPRV(IBIFN) | ; Returns information for bill ien IBIFN for purchased svc
; Returns 4 digit data in following format: ; 1st digit: 0 if not outside facility ; 1 if outside facility ; 2nd digit: 0 if not non-VA provider for rendering/attending ; 1 if non-VA provider for rendering/attending ; 3rd digit: 0 if not purchased svc ; 1 if purchased svc ; 4th digit: 0 if 1500 bill ; 1 if UB bill |
|
| PSPRVQ | ||
| CHKADD | ;CHECK ALL ADDRESS ELEMENTS PRESENT IF NOT KILL ALL ADDRESS ELEMENTS
|
