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 | K IBXDATA N Z,Z0 S Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z S Z0=$P(IBXSAVE("OUTPT",Z),U,7) S:$P(Z0,",",3) IBXDATA(Z)=$P(Z0,",",3) |
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 previously extract IBXSAVE array. If any service line data is found, the data is output. Data is taken from the third ',' delimited piece of the extracted data. |