Routine: LRBLAUD

Package	Total	Call Graph
Lab Service	1	EN^LRUD

Entry Points

Name	Comments	DBIA/ICR reference
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.
AUDIT
PAT	; Gets all unit's Patient Xmatched/Assigned episodes, sets into ; the BEGP() array & 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
CHECK
REL	; Gets original relocation episodes for a unit, sets into the ; BEGR() array and counts total for later comparison
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.
BLD2	; Actual code that puts the Blood Sample Date/Time subfields ; into the audit trail.
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.
K	; Kills variables created during editing of a disposition
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.

External References

Name	Field # of Occurrence
EN^LRUD	AUDIT, CHECK

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	REL+3, REL1+4, PAT+3, PAT1+7, BLD+3, BLD1+4, BLD3+6

Label References

Name	Line Occurrences
AUDIT	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
BLD2	BLD1+5, BLD4+4
BLD4	PAT1+12

Local Variables

Legend:

>>	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

Customize PDF page

Package: Lab Service

Routine: LRBLAUD

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: