Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: LRBLAUD1

Package: Lab Service

Routine: LRBLAUD1


Information

LRBLAUD1 ;TOG/CYM -AUDIT TRAIL UTILITY ;4/30/97 14:00

Source Information

Source file <LRBLAUD1.m>

Entry Points

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
Info |  Source |  Entry Points