IBCEF71 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;31-JUL-03
Source file <IBCEF71.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OTHPAYC(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBVAL) | ;
|
|
| OTHPAYV(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBFLDTYP,IBSEQN) | ;
|
|
| ISINSUR(IBINS,IBXIEN) | ;
|
|
| PRACT(IB399INS,IB399FRM,IB399CAR,IBPROV,IBARR,IBPROVTP,IBINSTP,IBFILE,IBINS) | ;
|
|
| ALLPRFAC(IBXIEN,IBXSAVE) | ; Return all non-VA/outside facility prov ids
; and all VA alternate prov ids ; IBXIEN = ien file 399 ; IBXSAVE = subscripted array returned |
|
| OTHID(IBXSAVE,IBXDATA,IBXIEN,PRIDSEQ,PRTYP,IBQ,IBFAC) | ; From data in IBXSAVE,
; determine id or qualifier to output in the 837 records OP* ; Returns IBXDATA array IBXDATA(n)=data ; IBXIEN = ien of the bill-file 399 ; PRIDSEQ = sequence of the payer id needed ; PRTYP = provider type to check for data ; IBQ = 1 if qualifier needed, 0/null if id needed ; IBFAC = 1 if facility id, 0 for individual provider id ; |
|
| SETSEQ(IBXIEN,IBXSAVE,IBXDATA,PRTYP,IBFAC,IBOP) | ; Sets up IBXSAVE("OSQ")
; array for other id seq in 837 records OP* ; Returns IBXDATA(n)=cob seq indicator for ids ; IBXIEN = ien of bill-399 ; PRTYP = the provider type to check for data for indiv provider ; IBFAC = 1 if facility id, 0 for individual provider id ; IBOP = segement # in OP being output |
|
| PSPRV(IBIFN) | ;
|
|
| OP22 | ;Output Formatter 364.7 extract code, OP2-2
|
