| 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,IBZ K IBXDATA S (Z,IBZ)=0 F S IBZ=$O(IBXSAVE("CCOB",IBZ)) Q:'IBZ I IBZ<$$COBN^IBCEF(IBXIEN) S Z=Z+1,IBXDATA(Z)=$E("PST",IBZ) I Z>1 D ID^IBCEF2(Z,"COB1") |
| 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. It relies on the
existence of the IBXSAVE("CCOB",COBSEQ) array that was previously extracted.
For other than the first occurrence, the RECORD ID 'COB1' must be output.
Only output 1 record per COB sequence.
|