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