Routine: LRXREF

Information

LRXREF ;SLC/RWA/DALOI/FHS - BUILD CROSS-REFERENCES FOR RE-INDEX ; 17-Oct-2014 09:22 ; MKK

Source file <LRXREF.m>

Package	Total	Caller Graph
Lab Service	15	COMMENT ^LAM ACCESSION NUMBER CODE COLLECTION DATE/TIME RESULT SPECIMEN # SYNONYM ^LRT(67 RESULTS TREATING SPECIALITY WKLD CODE ^LAB(64.21 ^LAB(64.22 ^LRT(67.1

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	AR1+1, AP+2, AL+1
^DIC(42.4 - [#42.4]	TRIGTS+1, TRIGTS9+1
^LAC("LRKILL"	LRKILL+4!
^LAM - [#64]	TRIG+3, TRIG9+3
^LAM("E"	TRIG+3, TRIG9+3
^LR - [#63]	AC1+2*, AR1+1, AP+2, AL+1
^LRO(67.9 - [#67.9]	TRIG+3, TRIGTS+1
^LRO(67.99999	TRIG9+3, TRIGTS9+1
^LRO(68 - [#68]	AVS1+1, AVS2!, AVS3!, AVS4
^LRO(69 - [#69]	AN1, AN2!, AR1, AR2, AR3!, AP+1, AP+2, AP1, AP2!, AL+1 , AL+2, AL1, AL2!
^VA(200 - [#200]	AP+1

Name	Field # of Occurrence
^(0	AN1, AN2, AR1+1, AP+1, AP+2, AL+1
^(3	AVS1+1, AVS4

Name	Field # of Occurrence
>> %	UP+1*
%1	LAM185+1~, LAM185+2*
>> DA	AVS1+1, AVS2, AVS3, AVS4, AN1, AN2, AR1, AP+1, AP+2, AL+1 , AL+2, TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1
>> DA(1	AVS1+1, AVS2, AVS3, AVS4, AC1+2, AN1, AN2, AR1, AP+1, AP+2 , AL+1, AL+2, TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1
>> DA(2	AVS1+1, AVS2, AVS3, AVS4, AC1+2, TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1
>> DA(3	TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1
>> DA(4	TRIGTS+1, TRIGTS9+1
DFN	AR1+1, AP+2, AP1!, AP2!, AL+1*, AL1!, AL2!
>> DIU(0	AVS1+1, AVS2, AVS3, AVS4, AC1+2
DUZ	AC1+2
LRDATE	AP+1, AP1!, AP2!, AL+1, AL1!, AL2!
LRDFN	AR1+1, AR2!, AR3!, AP+2, AP1!, AP2!, AL+1*, AL1!, AL2!
LRDPF	AR1+1, AP+2, AP1!, AP2!, AL+1*, AL1!, AL2!
LRDT	AR1*, AR2!, AR3!
LRGN	AR1+1, AR2!, AR3!, AP+2, AP1!, AP2!, AL+1*, AL1!, AL2!
LRLLOC	AR1, AR2!, AR3!, AL+2, AL1!, AL2!
LRPHY	AP+1*, AP1!, AP2!
LRPNM	AR1+1, AR2!, AR3!, AP+2, AP1!, AP2!, AL+1*, AL1!, AL2!
U	AVS1+1, AVS2, AVS3, AVS4, AC1+2, AN1, AN2, AR1, AR1+1, AP+1 , AP+2, AL+1, AL+2, TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1
>> X	AC1+2, AR1, UP+1, TRIG+3, TRIGTS+1, TRIG9+3, TRIGTS9+1, LAM185+2

Name	Comments	DBIA/ICR reference
AR1
AR2
AR3
AP2
AP1
AN1
AN2
LAM185	;Trigger logic to set TYPE(#5) of CODE (#18) of WKLD CODE (#64)
AL2
AL1
AVS2
LRKILL	; This cross-reference will be reset when the cumulative runs. Due
TRIGTS9	;Trigger to stuff treating specialty name into .03 field of ^DD(67.999991148
TRIG	;Trigger LAB Workload
AL	;Build and kill "AL" cross-reference inFile 69, when results available
AP	;Build and kill "AP" cross-refernce in File 69, when results available
TRIG9	;Trigger for LAB Workload
UP	;Convert lower to upper case.
TRIGTS	;Trigger to stuff treating specialty name into .03 field of ^DD(67.91148
AVS1	;Rebuild "AVS" cross-reference in file 68 for Re-index utility
AC1	;Build "AC" cross-reference when comment is deleted from a verified
AVS3
AVS4