N Z S Z=$P($G(IBXSAVE("OIDEM")),U,2) S:Z'="M"&(Z'="") IBXDATA="X" K IBXSAVE("OIDEM")
FORMAT CODE DESCRIPTION
This field relies on the existence of the IBXSAVE("OIDEM") variable
previously extracted. The second '^' piece contains the sex and if this
is not a null and is not an 'M', this field's value is 'X'.