TIUPEVNT ; SLC/JER,AJB - Event logger for upload/filer ;Sep 18, 2021@22:54:45
Source file <TIUPEVNT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN(BUFDA,ETYPE,ECODE,TIUTYPE,FDA,MSG) | ; ---- Controls branching
|
|
LOG(BUFDA,ETYPE,ECODE,TIUTYPE,EVNTDA,FDA,MSG) | ; ---- Register event in
; TIU UPLOAD LOG file ; (#8925.4) |
|
ERRMSG(ETYPE,ECODE,TIUTYPE,FDA,MSG) | ; ---- Set error messages
|
|
ERRMSX | ||
ALERT(BUFDA,ERRMSG,EVNTDA) | ; ---- Send alerts for filing errors
|
|
DISPLAY | ; ---- Alert followup action for filing errors
|
|
DISPX | ||
WRITEHDR(EVNTDA,TIUTYPE,TIUINQ) | ; ---- Write header to screen
|
|
VALID(TIULINE,TIUFLD,TIUVALID) | ;Is header missing valid Author or DDT?
|
|
ALERTDEL(DA) | ; ---- Delete alerts associated with a given record
|
|
RESOLVE(EVNTDA,ECHO) | ; ---- Indicate resolution of error
|
|
INQRHELP | ; Help for Upload Error Inquire to Patient Record prompt
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^TIU(8925 - [#8925] | CHK^DIE |
^TIU(8925.4 - [#8925.4] | Classic Fileman Calls |