IBCEF72 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am
Source file <IBCEF72.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CH35591(IBINSCO,IBFRMTYP,IBCARE) | ;
|
|
| FINDEIN(IBXIEN,IBPROV,IBFAC,IBS) | ; find EIN for facility/ SSN for person
; IBXIEN = ien of bill entry file 399 ; IBFAC = 1 if facility, 0 if individual provider ; IBPROV = ien of provider (vp format) ; IBS = 1 if person's EIN should be returned if there, otherwise SSN ; FUNCTION RETURNS ; EIN or SSN ^ 24 for EIN, 34 for SSN or null if none found |
|
| NONVAID(IBXIEN,IBX,IBFAC,IBS) | ; Find the non-VA provider default id
; IBXIEN = the ien of the bill (file 399) ; IBX = id data returned if passed by reference ; IBFAC = 1 if getting the id for the facility or 0 for rendering prov ; IBS = 1 if getting id for person, but need the EIN if there ; Function returns the id^type of id^person/facility flag: ; Type of id: 1 = SSN 2 = EIN 0 = not found ; person/facility: 1 = person 2 = facility |
|
| NONVAQ | ||
| PROVSEQ(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBSEGM) | ;
|
|
| OUTPRVID(IBXIEN,IBXSAVE) | ; Extract the outside provider or facility ids
; into IBXSAVE array ; Function returns 1 if person or 2 if facility ids or "" if neither |
|
| OUTPRV(IBREC,IBXIEN,IBXSAVE) | ; Extract the outside provider or facility ids
; into IBXSAVE array ; Function returns 1 if person or 2 if facility ids or "" if neither ; IBREC = the record whose ids should be returned |
|
| OTHINS(IB399,IBRES) | ;
|
|
| OTHINSID(IB399,IBRES) | ;insurance EDI
|
|
| OTHINADR(IB399,IBRES,IBADDFLD) | ;insurance EDI
|
|
| SFIDQ(IBXIEN,IBXSAVE,IBXDATA) | ; Find the service facility id qualifier for
; 837 record SUB2-5 |
|
| OTHP36(IBXIEN,IBZOUT) | ||
| GETSSN(IBPTR) | ||
| PADNDC(Z) | ;PAD LEADING ZERO'S INTO A NON 5-4-2 FORMAT NDC NUMBER
|
