| FORMAT CODE |
N Z,Z0,Z1 K IBXDATA,IBXSAVE S Z=$$COBN^IBCEF(IBXIEN),Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,"I"_Z1)) S Z0=Z0+1,IBXSAVE(Z0)=$$INSSECID^IBCEF21(IBXIEN,"PAT",Z1) |
| FORMAT CODE DESCRIPTION |
Extract the string(s) of other payer patient ID information into the
function.
IBXSAVE(Z0) array. This will be used to populate the rest of this OI3
segment.
Z is the current payer sequence number (1,2, or 3)
Z0 is a counter and subscript of IBXSAVE(1) thru IBXSAVE(2)
Z1 is the loop variable through all possible insurances on the claim
If Z1'=Z and insurance is defined for insurance# Z1, then increment the
Z0 counter variable and store the string returned from the $$INSSECID
|
