STANDARD DATA DICTIONARY #64.1 -- WKLD DATA FILE 3/24/25 PAGE 1 STORED IN ^LRO(64.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the Laboratory Workload data. CROSS REFERENCED BY: INSTITUTION(B) 64.1,.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4) (Required) INPUT TRANSFORM: I $D(X) S DINUM=X LAST EDITED: AUG 23, 1993 DESCRIPTION: This is the medical center which will be credited with the work completed. TECHNICAL DESCR: This field is determined by the DUZ(2) of the user. Data comes from ^DD(68.14,2,0) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 64.1^B 1)= S ^LRO(64.1,"B",$E(X,1,30),DA)="" 2)= K ^LRO(64.1,"B",$E(X,1,30),DA) 64.1,.03 DATE 1;0 DATE Multiple #64.11 (Add New Entry without Asking) DESCRIPTION: This is the date that the work was verified or completed. 64.11,.01 DATE 0;1 DATE (Multiply asked) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X LAST EDITED: MAR 24, 1993 TECHNICAL DESCR: Data come from the 1 st piece of ^DD(68.14,1,0) separated by "." NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 64.11^B 1)= S ^LRO(64.1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^LRO(64.1,DA(1),1,"B",$E(X,1,30),DA) Standard B X-Ref 64.11,.03 DATA REPORTED 0;2 SET '1' FOR YES; LAST EDITED: MAR 20, 1993 HELP-PROMPT: This field is normally set by Step 1 of LMIP data collection. DESCRIPTION: After the data has been extracted by Step 1 of LMIP reporting process this field is set to yes after being compiled into the LAB MONTHLY WORKLOADS file (#67.9). 64.11,1 WKLD CODE 1;0 POINTER Multiple #64.111 (Add New Entry without Asking) DESCRIPTION: Multiple field. Contains information about the WKLD code. 64.111,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked) INPUT TRANSFORM: I $D(X) S DINUM=X OUTPUT TRANSFORM: S Y(0)=Y I Y S Y=$P($G(^LAM(+Y,0)),U) I $L(Y) S:$P(^(0),U,5) Y="+"_Y LAST EDITED: DEC 22, 1993 DESCRIPTION: This field points to the WKLD code file 64 This file contains all of the specific information for the code. The file is up dated by the developing ISC. All official code will be exported by the package TECHNICAL DESCR: Not all of the possible combination of WKLD codes or exported with the file. As the site needs a specific method WKLD code the software will generate the required WKLD code and place it into the file. All of the basic WKLD codes are exported with the package. The additional WKLD codes are created from the WKLD Suffix code file #64.2. Data comes from ^DD(68.14,.01,0) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^64.111^.03 1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1 ,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,3) X ^DD(64.11 1,.01,1,1,1.4) 1.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64 .111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1 ,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(64.111,.01,1,1,2.4) 2.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64 .111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$P(^LAM(DA,0),U,3) DELETE VALUE)= @ FIELD)= UNIT WEIGHT Automatic stuff of unit weight during STD/QC/REP/MANUAL edit option. CROSS-REFERENCE:^^TRIGGER^64.111^.04 1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1 ,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(64.111,.01,1,2,1.1) X ^DD(64.111,.01 ,1,2,1.4) 1.1)= S X=DIV S X=$P(^LAM(DA,0),U,11) 1.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=64 .111,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1 ,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(64.111,.01,1,2,2.4) 2.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=64 .111,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$P(^LAM(DA,0),U,11) DELETE VALUE)= @ FIELD)= CONST Auto stuff constituent weight during STD/QC/REPS/MANUAL edit option. CROSS-REFERENCE:64.111^B 1)= S ^LRO(64.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^LRO(64.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) 64.111,.03 UNIT WEIGHT 0;2 NUMBER INPUT TRANSFORM:K:+X'=X!(X>900)!(X<0)!(X?.E1"."2N.N) X LAST EDITED: SEP 27, 1994 HELP-PROMPT: Type a Number between 0 and 900, 1 Decimal Digit DESCRIPTION: Automatically filled in. WRITE AUTHORITY:^ NOTES: TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the DATE sub-field of the WKLD DATA File 64.111,.04 CONSTITUENT WT 0;3 NUMBER INPUT TRANSFORM:K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X LAST EDITED: JAN 14, 1991 HELP-PROMPT: Type a Number between 0 and 500, 1 Decimal Digit DESCRIPTION: Automatically filled in. WRITE AUTHORITY:^ NOTES: TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the DATE sub-field of the WKLD DATA File 64.111,1 ACCESSION WKLD CODE TIME 1;0 Multiple #64.1111 (Add New Entry without Asking) LAST EDITED: MAR 29, 1991 DESCRIPTION: Multiple field. Contains information about the accession. 64.1111,.01 ACCESSION WKLD CODE TIME 0;1 NUMBER (Multiply asked) INPUT TRANSFORM:K:+X'=X!(X>2400)!(X<.0001)!(X?.E1"."5N.N) X S:$D(X) DINUM=X LAST EDITED: MAR 29, 1991 HELP-PROMPT: Type a Number between .0001 and 2400, 4 Decimal Digits DESCRIPTION: This hour and seconds when the test was verified. TECHNICAL DESCR: This is the second piece of ^DD(68.14,1,0) separated by "." NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 64.1111,1 LAB TEST 0;2 POINTER TO LABORATORY TEST FILE (#60) LAST EDITED: DEC 31, 1990 DESCRIPTION: This is the test in ^LAB(60 which was verified. TECHNICAL DESCR: Data come from ^DD(68.04,.01,0) 64.1111,2 WEIGHT MULTIPLIER 0;3 NUMBER INPUT TRANSFORM:K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X LAST EDITED: SEP 27, 1994 HELP-PROMPT: Type a Number between -1000 and 1000, 0 Decimal Digits DESCRIPTION: This number is used to multiply the weight of the WKLD code. This may be more than one if the test requires the same WKLD code more than once. This number is taken from the old field in ^LAB(60 under WKLD code called default WKLD Code. If this field is blank, the software assume a value of 1 to be used. TECHNICAL DESCR: Data comes from ^DD(68.14,.02,0) 64.1111,5 LAB DIVISION 0;6 SET 'AP' FOR ANATOMIC PATHOLOGY; 'CP' FOR CLINICAL PATHOLOGY; LAST EDITED: MAR 26, 1991 DESCRIPTION: This is the overall area to which this workload is to be credited. This should be the largest administrative/functional area of the laboratory service. TECHNICAL DESCR: Data is from ^DD(68,.19,0) 64.1111,6 MAJ. SECT. 0;7 POINTER TO ACCESSION FILE (#68) LAST EDITED: MAR 26, 1991 DESCRIPTION: This should be the next smallest area of the laboratory service after the MAJ. SECT. This field is used to further break down the workload. Generally this will be the ACCESSION area into which the order was accessioned. However, this may not be always true. To allow for flexibility in this matter, this field is controlled by the worklist used during the verification process. Even if the verification method used itself, does not require a work list, one can control this field via that worklist. There are two new fields in the LOAD/WORK LIST file (#68.2). One of these fields is MAJOR ACCESSION AREA. What ever value is entered here will be used to tabulate the workload for this test. If none is entered the test accession area will be used. TECHNICAL DESCR: This data is from ^DD(68.14,4,0) 64.1111,7 SUBSECTION 0;8 POINTER TO ACCESSION FILE (#68) LAST EDITED: MAR 26, 1991 DESCRIPTION: This field represents the smallest functional unit of the laboratory service. If there is a area smaller than the MAJ. ACC AREA, enter that area here. Not all laboratories will have a smaller work area. If the field is blank the MAJ. ACC AREA will be used. For example the MAJ. ACC AREA may be CHEMISTRY and the LAB SUBSECTION could be STAT LAB Of course these must exist in the ACCESSION AREA file and may be used only for this purpose. This field is also works like the MAJ. ACC AREA, in that it is attached to a LOAD/WORK LIST. It is controlled by selecting a worklist during verification. TECHNICAL DESCR: This data comes from ^DD(68.14,5,0) 64.1111,7.5 WORK AREA 0;25 POINTER TO ACCESSION FILE (#68) LAST EDITED: MAY 19, 1994 DESCRIPTION: This field points to an area which you wish workload data to be compiled by. This is field assumes the default of field #7 (Subsection) if not filled in. 64.1111,8 ACC NO. 0;9 FREE TEXT INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X LAST EDITED: DEC 31, 1990 HELP-PROMPT: Answer must be 4-20 characters in length. DESCRIPTION: This is the printable accession number CH 0101 1 TECHNICAL DESCR: This data comes from ^DD(68.02,15,0) 64.1111,9 PATIENT 0;10 VARIABLE POINTER (Required) FILE ORDER PREFIX LAYGO MESSAGE 2 1 2 n Patient 62.3 2 62.3 n Control Name 65 3 65 n Blood Inventory 65.5 4 65.5 n Blood Donor 67 5 67 n Referral 67.1 6 67.1 n Research 67.2 7 67.2 n Sterilizer 67.3 8 67.3 n Environmental 67.4 9 67.4 n Non Patient Workload 200 11 11 n Person LAST EDITED: JAN 02, 1991 DESCRIPTION: Contain the file and the entry number for the accession specimen. If this field is manually edited, knowledge of variable pointer format is required. TECHNICAL DESCR: Is a combination of ^DD(68.02,.01,0) AND ^DD(68.02,.02,0) 64.1111,10 ORIGINAL ACC DATE 0;11 DATE INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X LAST EDITED: SEP 27, 1994 DESCRIPTION: The data the specimen originally accessed. Used this date to compute turn around times. TECHNICAL DESCR: Data comes from ^DD(68.02,2,0) 64.1111,11 DATE ORDERED 0;12 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: DEC 31, 1990 DESCRIPTION: This date when the test was ordered. This is the date in ^LRO(69. This can be used to look specific order information. TECHNICAL DESCR: Data come from ^DD(68.02,3,0) 64.1111,12 SPECIMEN NO. 0;13 NUMBER INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: DEC 31, 1990 HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits DESCRIPTION: This the internal file number for the order date in ^LRO(69, DATE ORDERED,1,SPECIMEN NO., one can reference the ORDER FILE TECHNICAL DESCR: Data comes from ^DD(68.02,4,0) 64.1111,13 SPECIMEN 0;14 POINTER TO TOPOGRAPHY FIELD FILE (#61) LAST EDITED: JUL 17, 1993 DESCRIPTION: The specimen which was collected for this test. 64.1111,14 REPORT ROUTING LOCATION 0;15 FREE TEXT INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X LAST EDITED: DEC 31, 1990 HELP-PROMPT: Answer must be 1-20 characters in length. DESCRIPTION: This is the abbreviation of the reporting location. Not to be confused with the ordering location. TECHNICAL DESCR: Data comes from ^DD(68.02,6,0) 64.1111,15 PROVIDER 0;16 POINTER TO NEW PERSON FILE (#200) LAST EDITED: NOV 30, 1993 DESCRIPTION: The doctor which ordered the lab test TECHNICAL DESCR: This data is from ^DD(68.02,6.5,0) This field presently points to ^DIC(6, but when file 200 is used the DD's must be changed. 64.1111,16 TREATING SPECIALITY 0;17 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) LAST EDITED: DEC 31, 1990 DESCRIPTION: This is the treating specialty of the ordering location. As you know, out patient location do not have treating specialties assigned in the file. Therefore this field maybe blank. NOTE ** DONT USE THIS FIELD FOR SORTING THE FILE. TECHNICAL DESCR: Data come from ^DD(68.02,6.6,0) 64.1111,17 LOG IN PERSON 0;18 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 09, 1991 DESCRIPTION: This is the person who logged the specimen into the laboratory. TECHNICAL DESCR: Data come from ^DD(68.02,6.7,0) 64.1111,18 LOCATION TYPE 0;19 SET 'Z' FOR OTHER; 'M' FOR MODULE; 'W' FOR WARD; 'N' FOR NON-CLINIC STOP; 'F' FOR FILE AREA; 'I' FOR IMAGING; 'OR' FOR OPERATION ROOM; 'C' FOR CLINIC; 'B' FOR BLOOD BANK; LAST EDITED: JAN 10, 1996 DESCRIPTION: The ordering location type. The default is OTHER. This field also describes the workload source, e.g. in patient, out patient, or blood bank. TECHNICAL DESCR: Data comes from ^DD(68.02,92,0) In the case of blood bank workload, the collection routine puts 'B' here. 64.1111,19 COUNT FOR WORKLOAD 0;20 SET '1' FOR YES; '0' FOR NO; LAST EDITED: FEB 25, 1991 DESCRIPTION: Used by the software during report generation. It indicate this data has already be tabulated. 64.1111,20 ORDERING LOCATION 0;21 POINTER TO HOSPITAL LOCATION FILE (#44) LAST EDITED: DEC 31, 1990 DESCRIPTION: This is the ordering location. This can be used to address hospital location test request. This field is different from REPORT ROUTING LOCATION. TECHNICAL DESCR: Data comes from ^DD(68.02,94,0) 64.1111,21 INVERSE DATE COMPLETED 0;22 NUMBER INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."7N.N) X LAST EDITED: DEC 31, 1990 HELP-PROMPT: Type a Number between 1 and 99999999999, 6 Decimal Digits DESCRIPTION: This is the number which was used to store the verified value in the ^LR(LRDFN,"CH",INVERSE DATE COMPLETED)=VALUE TECHNICAL DESCR: Data come from ^DD(68.02,13.5,0) 64.1111,22 URGENCY 0;23 POINTER TO URGENCY FILE (#62.05) LAST EDITED: DEC 31, 1990 TECHNICAL DESCR: Data come from ^DD(68.04,1,0) 64.1111,23 VERIFY TECH. 0;24 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 09, 1991 DESCRIPTION: This the first technologist to verify the test results. This field is not updated during editing for errors or other test which were apart of the original test. TECHNICAL DESCR: Data come from ^DD(68.14,2,0) 64.1111,24 COMPUTED WEIGHT ; COMPUTED MUMPS CODE: X ^DD(64.1111,24,9.2) S Y(64.1111,24,2)=X S X=$P(Y(64.1111,24,3),U,2)+$P(Y(64.1111,24,3),U,3),Y=X,X =Y(64.1111,24,2),X=X*Y S X=$J(X,0,1) 9.2 = S Y(64.1111,24,3)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:""),Y(64.1111,24,1)=$S($D(^LRO(64.1 ,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(64.1111,24,1),U,3) ALGORITHM: WEIGHT MULTIPLIER*(UNIT WEIGHT+CONSTITUENT WT) (ALWAYS 1 DECIMAL DIGITS) 64.111,2 STANDARDS S;1 NUMBER INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA ,"S")),U,1)) LAST EDITED: NOV 04, 1993 HELP-PROMPT:Type a Number between -1000 and 100000, 0 Decimal Digits DESCRIPTION: This field will contain the number of standards used in any one day. Since standards are not accessioned, this is the only way to record their number. After each verify session the technologist is prompted for the number of standards this run. That number is recorded here. TECHNICAL DESCR: This field can be changed via a tasked routine. As the technologist is verifying a test, a record is maintained in the ^XTMP("LRCAP" ,$H,DUZ,LAB TEST) global. The task routine looks at this global and add the standard count to this field. This will prevent a technologist from being locked out of this field during multiple user attempting to access this node. The root of this global contains the number of standards,QC,REPEATS and MANUAL to be added to the count. ^XTMP("LRCAP",$H,DUZ)=STANDARDS^QC^REPEATS^MANUAL The institution is in the ZTSAVE array of the task job. There is also an edit template provided for manual entry into this field. 64.111,3 QC S;2 NUMBER INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA ,"S")),U,2)) LAST EDITED: NOV 04, 1993 HELP-PROMPT:Type a Number between -1000 and 100000, 0 Decimal Digits DESCRIPTION: This field contains the number of QC which were done on this date. This field is similar to the STANDARDS field, except it also contained Quality Control which was accessioned and verified in the normal manner. TECHNICAL DESCR: See the description for STANDARDS 64.111,4 REPEATS S;3 NUMBER INPUT TRANSFORM:K:+X'=X!(X>10000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA, "S")),U,3)) LAST EDITED: NOV 04, 1993 HELP-PROMPT:Type a Number between -1000 and 10000, 0 Decimal Digits 64.111,5 MANUAL INPUT WORKLOAD S;4 NUMBER INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<-10000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,D A,"S")),U,4)) LAST EDITED: NOV 04, 1993 HELP-PROMPT:Type a Number between -10000 and 100000, 0 Decimal Digits 64.11,2 TODAY'S COMMENTS 2;0 WORD-PROCESSING #64.112 LAST EDITED: JAN 11, 1991 64.1,1 GENERAL COMMENTS 2;0 WORD-PROCESSING #64.12 DESCRIPTION: General comments relating to this code can be entered in this field. These comment are used only by the site at this time. They are not transmitted by version 5.2 to the national data base. LAST EDITED: JAN 11, 1991 CROSS-REFERENCE: 64.12^B 1)= S ^LRO(64.1,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^LRO(64.1,DA(1),2,"B",$E(X,1,30),DA) 64.1,2 WKLD CODE COMMENTS 3;0 POINTER Multiple #64.13 DESCRIPTION: If there are specific comments about this wkld code the site wish to record for their own purposes, they may be entered in this field. These comments are not included in any national rolled up data. 64.13,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked) INPUT TRANSFORM: I $D(X) S DINUM=X LAST EDITED: JAN 12, 1991 NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 64.13,1 COMMENTS 1;0 WORD-PROCESSING #64.131 LAST EDITED: JAN 12, 1991 FILES POINTED TO FIELDS ACCESSION (#68) ACCESSION WKLD CODE TIME:MAJ. SECT. (#6) SUBSECTION (#7) WORK AREA (#7.5) FACILITY TREATING SPECIALTY (#45.7) ACCESSION WKLD CODE TIME:TREATING SPECIALITY (#16) HOSPITAL LOCATION (#44) ACCESSION WKLD CODE TIME:ORDERING LOCATION (#20) INSTITUTION (#4) INSTITUTION (#.01) LABORATORY TEST (#60) ACCESSION WKLD CODE TIME:LAB TEST (#1) NEW PERSON (#200) ACCESSION WKLD CODE TIME:PROVIDER (#15) LOG IN PERSON (#17) VERIFY TECH. (#23) TOPOGRAPHY FIELD (#61) ACCESSION WKLD CODE TIME:SPECIMEN (#13) URGENCY (#62.05) ACCESSION WKLD CODE TIME:URGENCY (#22) WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01) WKLD CODE COMMENTS:WKLD CODE (#.01) INPUT TEMPLATE(S): LR WKLD COMMENTS MAR 21, 1991@11:19 USER #0 LR WKLD MANUAL INPUT FEB 08, 1991@17:32 USER #0 LR WKLD STD/QC/REPS APR 09, 1991@13:59 USER #0 PRINT TEMPLATE(S): LRAR ARCHIVE WKLD DATA 64.1 FEB 16, 1996 USER #0 SORT TEMPLATE(S): FORM(S)/BLOCK(S):