LRBLAUD1 ;TOG/CYM -AUDIT TRAIL UTILITY ;4/30/97 14:00
Source file <LRBLAUD1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DISP | ; When editing Unit Disposition, gets
; all associated data in files 65 and 63 that are also cleaned up ; and saves variables in the case the Disposition is Edited and the ; appropriate patient's transfusion record needs to be cleaned up. ; If so, these entries are then added to the audit trail. |
|
DISP1 | ; Actual code that adds data removed from the system when a
; disposition is deleted when using the option LRBLSED. |
|
AUDIT | ||
K | ; Kills variables created during editing of a disposition
|
|
DISP4 | ; Actual code used to evaluate when the DISPOSITION field (4.1)
; is edited and the software edits/deletes associated ; fields. Each field is evaluated and if there is a change ; the changes are captured on the audit trail. |
|
DISP5 | ; If Disposition is edited to TRANSFUSE, routine LRBLJED creates
; a patient transfusion record in file 63. Following code adds ; those changes to the audit trail. |
|
MOD | ; At the beginning of an edit session, collects all data
; in the MODIFIED TO/FROM field multiple, puts into a ; BEGM() array and counts total for later comparison. |
|
MOD2 | ; If a disposition of MODIFY is deleted, collects all data in the
; MODIFY TO/FROM field multiple (from the BEGM() array), and adds ; to the audit trail before the software deletes the entries. |
|
MOD3 | ; Counts MODIFY TO/FROM entries after unit is modified.
; If total entries after modification < total entries before ; modification puts deleted entry onto the audit trail |
|
CHECK |