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