| FORMAT CODE |
N C,Z,Z0,IBZ M IBZ=IBXDATA K IBXDATA S C=$$OTHINS1^IBCEF2(IBXIEN) F Z=1,2 I $G(IBZ(Z))'="",$E(C,Z) S:$$WNRBILL^IBEFUNC(IBXIEN,$E(C,Z)) $P(IBZ(Z),U)="MEDICARE" S IBXSAVE("OI#",Z)=$P(IBZ(Z),U,2,3),IBXDATA(Z)=$P(IBZ(Z),U) |
| FORMAT CODE DESCRIPTION |
This is a group data element so more than 1 occurrence of a value is
possible for the data element in the IBXDATA array. If any other insurance
insurance company data is found, the data is formatted as the name of the
insurance company from the insurance company file.
Saves the claim office id and payer id in IBXSAVE array.
If other insurance is MEDICARE WNR, output is MEDICARE.
|
