LRBLAUD ;TOG/CYM - AUDIT TRAIL MULTIPLE FIELDS 9/3/97 14:32
Source file <LRBLAUD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AFTB( | BLD1+4* |
| >> AFTBLD | BLD1+3*, BLD1+4*, BLD1+5 |
| >> AFTP( | PAT1+7* |
| >> AFTPAT | PAT1+6*, PAT1+7*, PAT1+8, PAT1+12 |
| >> AFTR( | REL1+4* |
| >> AFTREL | REL1+3*, REL1+4*, REL1+5 |
| >> BEGB( | BLD+3* |
| >> BEGB1 | BLD4+3 |
| >> BEGB1( | BLD3+6*, BLD4+4 |
| >> BEGBLD | BLD+2*, BLD+3*, BLD1+5 |
| >> BEGBLD1 | BLD3+5*, BLD3+6* |
| >> BEGP( | PAT+3* |
| >> BEGPAT | PAT+2*, PAT+3*, PAT1+8, PAT1+12 |
| >> BEGR( | REL+3* |
| >> BEGREL | REL+2*, REL+3*, REL1+5 |
| >> BLD | BLD+2*, BLD+3*, BLD1+3*, BLD1+4* |
| >> BLD1 | BLD3+5*, BLD3+6*, BLD4+4* |
| >> BNODE | BLD2+2, BLD4+4* |
| LRCOMP | K+1! |
| LRCOMPID | K+1! |
| >> LRDFN | BLD+3, BLD1+4, BLD3+6 |
| LRDIPD | K+1! |
| LRDISP | K+1! |
| LRDIST | K+1! |
| LRDSP | K+1! |
| LRENTP | K+1! |
| >> LRIEN | REL+3, REL1+4, PAT+3, PAT1+7, BLD+3, BLD1+4, BLD3+6 |
| >> LRM | REL1+6*, REL1+7, REL1+8, REL1+9, REL1+10, REL1+11, REL1+12, REL1+13, PAT1+9*, PAT1+10 , PAT1+11, BLD2+2*, BLD2+3, BLD2+4, BLD2+5, BLD2+6, BLD2+7, BLD2+8, BLD2+9, BLD2+10 , BLD2+11 |
| LROLD | K+1! |
| LRPERS | K+1! |
| LRPHYS | K+1! |
| LRPOOL | K+1! |
| LRPROVN | K+1! |
| LRPTR | K+1! |
| LRPTRANS | K+1! |
| LRPTREC | K+1! |
| LRREACT | K+1! |
| LRREC | K+1! |
| LRRECRX | K+1! |
| LRRXTYPE | K+1! |
| LRTRDT | K+1! |
| LRTS | K+1! |
| LRTSNUM | K+1! |
| LRTYPE | K+1! |
| LRUNABO | K+1! |
| LRUNRH | K+1! |
| LRVOL | K+1! |
| NODE | REL1+6, REL1+14! |
| >> O | REL1+7*, REL1+8*, REL1+9*, REL1+10*, REL1+11*, REL1+12*, REL1+13*, PAT1+10*, PAT1+11*, BLD2+3* , BLD2+4*, BLD2+5*, BLD2+6*, BLD2+7*, BLD2+8*, BLD2+9*, BLD2+10*, BLD2+11*, AUDIT, CHECK |
| >> PAT | PAT+2*, PAT+3*, PAT1+6*, PAT1+7* |
| >> PNODE | PAT1+9 |
| >> REL | REL+2*, REL+3*, REL1+3*, REL1+4* |
| U | REL1+7, REL1+8, REL1+9, REL1+10, REL1+11, REL1+12, REL1+13, PAT1+10, PAT1+11, BLD2+3 , BLD2+4, BLD2+5, BLD2+6, BLD2+7, BLD2+8, BLD2+9, BLD2+10, BLD2+11 |
| >> X | AUDIT*, CHECK |
| >> Z | REL1+7*, REL1+8*, REL1+9*, REL1+10*, REL1+11*, REL1+12*, REL1+13*, PAT1+10*, PAT1+11*, BLD2+3* , BLD2+4*, BLD2+5*, BLD2+6*, BLD2+7*, BLD2+8*, BLD2+9*, BLD2+10*, BLD2+11* |
