Name | Value |
---|---|
FORM FIELD REFERENCE | IB 837 TRANSMISSION |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
PAD CHARACTER | NO PAD REQUIRED |
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. |