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,Z0,IBZ K IBXDATA S (IBZ,Z0)=0 F S IBZ=$O(IBXSAVE("MIA45",IBZ)) Q:'IBZ S Z0=Z0+1,Z=0 F S Z=$O(IBXSAVE("MIA45",IBZ,Z)) Q:'Z I $P($G(IBXSAVE("MIA45",IBZ,Z,5)),U)'="" S IBXDATA(Z0)=$P(IBXSAVE("MIA45",IBZ,Z,5),U) Q |
FORMAT CODE DESCRIPTION | This data element relies on the previous extract of COB data for other insurance into the IBXSAVE("MIA45",COB,n,5) array. Extract the first piece for this data. Output only the first REMARKS CODE(1) found for each COB sequence. |