| 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,"SUB",Z1) |
| FORMAT CODE DESCRIPTION |
Qualifier for date of initial treatment.
counter variable and store the string returned from the $$INSSECID
function.
IBXSAVE(Z0) array. This will be used to populate pieces 9 thru 14 of this
OI5 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
|
