TIUPEVN1 ; SLC/JER - Event logger Cont'd ;05/20/10 14:09
Source file <TIUPEVN1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIELDS(EVNTDA,MSG) | ; ---- Log missing/incorrect field errors for
; specific fields in UPLOAD LOG file (#8925.4), ; in multiple fl. TIU*1*81 moved from TIUPEVNT |
|
| FLDALRT(EVNTDA,EVNTDA1,ERRMSG) | ; ---- Send alerts for missing field errors
; TIU*1*81 moved from TIUPEVNT |
|
| FLDISP | ; ---- Alert follow-up action for missing field errors
|
|
| RECDISP(DIC,DA) | ; ---- Call DIQ to display the existing record
; TIU*1*81 moved from TIUPEVNT |
|
| FIXED(DIC,DA,DR) | ; ---- Evaluate whether the field has been filled in
; TIU*1*81 moved from TIUPEVNT |
|
| FIXX | ||
| FLDRSLV(ERRDA) | ; ---- Evaluate missing field errors; mark resolved
; TIU*1*81 moved from TIUPEVNT |
|
| 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! |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
