| FORMAT CODE |
N Z,Z0,Z1 K IBXDATA S Z0=0 F Z=4:4 Q:$G(IBXSAVE("OCC",Z))="" S Z0=Z0+1,Z1=$$DATE^IBCF2($P(IBXSAVE("OCC",Z),U,2),,1) S:Z'>8 IBXDATA(Z0)=Z1 D:Z>8 XOCC^IBCEF3($P(IBXSAVE("OCC",Z),U)_U_Z1,Z0,35) K IBXSAVE("OCC",Z) |
| FORMAT CODE DESCRIPTION |
This data element is a group data element where more than one occurrence
might be expected. It relies on the presence of data in array
IBXSAVE("OCC") extracted previously. This field outputs the 4th and 8th
occurrences of occurrence code 'from date' formatted as MMDDYY found in the
second '^' piece of the IBXSAVE("OCC",n) array data element.
Any overflow codes (12,16,...) are output on a separate page.
|
