N IBZ S IBXDATA=$$EVENT^IBCF22(IBXIEN,.IBXSAVE,,.IBZ) I $D(IBZ) M IBXSAVE("DATE")=IBZ
DESCRIPTION
Fileman formatted date. The data for box 14 on HCFA-1500 for bill entry
IBXIEN. Check first for occurrence codes for illness date, or for accident
date or for last menstrual period, then event date on bill. When one of
these is found, use it.