N IBZ S IBXDATA=$P($$QUAL^IBCF22(IBXIEN,15,.IBXSAVE,.IBZ),U,1) I $D(IBZ) M IBXSAVE("DATE")=IBZ
DESCRIPTION
This is accident date or Last x-ray date or Acute Manifestation of
Chronic Condition date or Prescription date or Initial Treatment Date or
Latest Visit/Consultation date.