Name | Value |
---|---|
FORM FIELD REFERENCE | LEGACY UB-92 |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | N Z,Q K IBXDATA F Z=1:1 Q:$G(IBXSAVE("OCCS",Z))="" S Q=$$DATE^IBCF2($P(IBXSAVE("OCCS",Z),U,3),,1) S:Z'>2 IBXDATA(Z)=Q D:Z>2 XOCCS^IBCEF3($P(IBXSAVE("OCCS",Z),U)_U_$$DATE^IBCF2($P(IBXSAVE("OCCS",Z),U,2),,1)_U_Q,Z) K IBXSAVE("OCCS",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("OCCS") extracted previously. This field outputs the 1st and 2nd occurrences of occurrence span code 'to date' formatted as MMDDYY found in the third '^' piece of the IBXSAVE("OCCS",n) array data element. |