; ---- Log missing/incorrect field errors for
; specific fields in UPLOAD LOG file (#8925.4),
; in multiple fl. TIU*1*81 moved from TIUPEVNT
FIXX
FLDISP
; ---- Alert follow-up action for missing field errors
WHOGETS(TIUY,TIUTYP)
; ---- Who gets filing error/missing field alerts;
; Get 8925.95 (document parameter) recipients.
; ---- TIUTYP is title IFN in 8925.1 if valid title was uploaded, else
; is IFN of entry from $HDR line: e.g. PROGRESS NOTES
; Starts at initial TIUTYP; goes up hierarchy til it finds entry.
; ---- TIU*1*81 Don't new TIUDAD HERE!
FIXED(DIC,DA,DR)
; ---- Evaluate whether the field has been filled in
; TIU*1*81 moved from TIUPEVNT
FLDRSLV(ERRDA)
; ---- Evaluate missing field errors; mark resolved
; TIU*1*81 moved from TIUPEVNT
RECDISP(DIC,DA)
; ---- Call DIQ to display the existing record
; TIU*1*81 moved from TIUPEVNT
FLDALRT(EVNTDA,EVNTDA1,ERRMSG)
; ---- Send alerts for missing field errors
; TIU*1*81 moved from TIUPEVNT