LRBLAUD ;TOG/CYM - AUDIT TRAIL MULTIPLE FIELDS 9/3/97 14:32
Source file <LRBLAUD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REL | ; Gets original relocation episodes for a unit, sets into the
; BEGR() array and counts total for later comparison |
|
| REL1 | ; Gets relocation episodes for unit after editing, sets into AFTR()
; array, counts total. If total after edit < original total, then ; entire deleted record is built onto the audit trail |
|
| PAT | ; Gets all unit's Patient Xmatched/Assigned episodes, sets into
; the BEGP() array & counts total for later comparison |
|
| PAT1 | ; Gets all Patients Xmatched/Assigned for a unit after editing and
; puts into AFTP() array. If total after editing < original total ; then the deleted patient Xmatched/Assigned node is built onto the ; audit trail. The input template then call line BLD3 to get the ; associated Blood Sample date/time multiple & include this on the ; audit trail also. |
|
| BLD | ; Gets all original blood samples for a patient, sets into the
; BEGB() array and counts total for later comparison |
|
| BLD1 | ; Gets patient blood samples after editing, set into AFTB() array,
; counts total. If total after editing < original total, then the ; deleted node is built onto the audit trail. |
|
| BLD2 | ; Actual code that puts the Blood Sample Date/Time subfields
; into the audit trail. |
|
| BLD3 | ; Gets all Blood Sample date/time assigned to a particular
; LRDFN, sets into BEGB1() array, counts total. This is so ; that the audit trail is built for this submultiple node ; in the case that the entire Patient Xmatched/Assigned node ; is deleted. |
|
| BLD4 | ; If a Patients Xmatched/Assigned entry has been deleted, adds
; adds any Blood Sample Date/time entries for that deleted ; patient to the audit trail. |
|
| AUDIT | ||
| K | ; Kills variables created during editing of a disposition
|
|
| CHECK |
