| FORMAT CODE |
N Z,A,B K IBXDATA S:'$D(IBXSAVE("LCOB")) IBXNOREQ=1 S (Z,B)=0 F S Z=$O(IBXSAVE("LCOB",Z)) Q:'Z S:'$O(IBXSAVE("LCOB",Z,"COB",0)) IBXNOREQ=1 S A=0 F S A=$O(IBXSAVE("LCOB",Z,"COB",A)) Q:'A S B=B+1,IBXDATA(B)=Z I B>1 D ID^IBCEF2(B,"LCOB") |
| FORMAT CODE DESCRIPTION |
This data element assumes the existence of the IBXSAVE array for each line
item (LCOB) that was previously extracted. If the line has COB data
associated with it, output the line # for each COB sequence found for the
line. For every line output > 1, output the 'LCOB' record id.
|
