STANDARD DATA DICTIONARY #64.061 -- LAB ELECTRONIC CODES FILE                                                     3/24/25    PAGE 1
STORED IN ^LAB(64.061,  (9231 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                  (VERSION 5.2)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Lab Electronic Codes file contains a collection of codes used in electronic messaging. Some of these codes originated in
established recognized sources (i.e. HL7 tables). Other codes are unique to the laboratory package needs or requirements.  
 
This file is a standard file for many types of terms used in electronic messaging.  


IDENTIFIED BY: TYPE (#7), DESCRIPTION (#8)

POINTED TO BY: LEDI HL7 field (#.09) of the TOPOGRAPHY FIELD File (#61) 
               TIME ASPECT field (#.0961) of the TOPOGRAPHY FIELD File (#61) 
               SCT TOP CONCEPT field (#22) of the TOPOGRAPHY FIELD File (#61) 
               SCT TOP CONCEPT field (#22) of the ETIOLOGY FIELD File (#61.2) 
               SCT TOP CONCEPT field (#22) of the COLLECTION SAMPLE File (#62) 
               LEDI HL7 field (#4) of the URGENCY File (#62.05) 
               DATABASE CODE field (#.03) of the LAB CODE MAPPING File (#62.47) 
               PATIENT HEIGHT UNITS field (#1.13) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8) 
               PATIENT WEIGHT UNITS field (#1.23) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8) 
               COLLECTION VOLUME UNITS field (#2.13) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8) 
               COLLECTION DURATION UNITS field (#2.23) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File 
                   (#62.8) 
               COLLECTION WEIGHT UNITS field (#2.33) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8) 
               EVENT CODE field (#.05) of the LAB SHIPPING EVENT File (#62.85) 
               PATIENT HEIGHT UNITS field (#1.15) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION File 
                   (#62.9) 
               PATIENT WEIGHT UNITS field (#1.25) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION File 
                   (#62.9) 
               COLLECTION VOLUME UNITS field (#2.15) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION 
                   File (#62.9) 
               COLLECTION DURATION UNITS field (#2.25) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION 
                   File (#62.9) 
               COLLECTION WEIGHT UNITS field (#2.35) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION 
                   File (#62.9) 
               ORDER TYPE field (#5) of the ORDERED TEST sub-field (#63.07) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field 
                   (#63.04) of the LAB DATA File (#63) 
               DISPOSITION field (#10) of the ORDERED TEST sub-field (#63.07) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field 
                   (#63.04) of the LAB DATA File (#63) 
               ORDERED TYPE field (#5) of the ORDERED TEST sub-field (#63.5) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA 
                   File (#63) 
               DISPOSITION field (#10) of the ORDERED TEST sub-field (#63.5) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA 
                   File (#63) 
               ORDER TYPE field (#5) of the ORDERED TEST sub-field (#63.51) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA 
                   File (#63) 
               DISPOSITION field (#10) of the ORDERED TEST sub-field (#63.51) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB 
                   DATA File (#63) 
               ORDER TYPE field (#5) of the ORDERED TEST sub-field (#63.52) of the EM sub-field (#63.02) of the LAB DATA File (#63) 
               DISPOSITION field (#10) of the ORDERED TEST sub-field (#63.52) of the EM sub-field (#63.02) of the LAB DATA File 
                   (#63) 
               ORDER TYPE field (#5) of the ORDERED TEST sub-field (#63.53) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB 
                   DATA File (#63) 
               DISPOSITION field (#10) of the ORDERED TEST sub-field (#63.53) of the SURGICAL PATHOLOGY sub-field (#63.08) of the 
                   LAB DATA File (#63) 
               TIME ASPECT field (#25.2) of the WKLD CODE File (#64) 
               UNITS field (#25.3) of the WKLD CODE File (#64) 
               MI/AP DATABASE CODE field (#63) of the WKLD CODE File (#64) 
               TIME ASPECT field (#.01) of the TIME ASPECT sub-field (#64.02) of the SPECIMEN sub-field (#64.01) of the WKLD CODE 
                   File (#64) 
               UNITS field (#1) of the TIME ASPECT sub-field (#64.02) of the SPECIMEN sub-field (#64.01) of the WKLD CODE File 
                   (#64) 
               SCT TOP CONCEPT field (#63.3) of the LAB ELECTRONIC CODES File (#64.061) 
               MI/AP DATABASE CODE field (#64) of the TRANSPORT sub-field (#64.8117) of the LAB NLT/CPT CODES File (#64.81) 
               SPECIMEN STATUS field (#6) of the LAB PENDING ORDERS ENTRY File (#69.6) 
               TEST STATUS field (#5) of the ORDERED TESTS sub-field (#69.64) of the LAB PENDING ORDERS ENTRY File (#69.6) 
               CHALLENGE field (#1.5) of the LAB LOINC File (#95.3) 
               ADJUSTMENT field (#1.6) of the LAB LOINC File (#95.3) 
               NON-PATIENT SPECIMEN field (#1.7) of the LAB LOINC File (#95.3) 
               PROPERTY field (#2) of the LAB LOINC File (#95.3) 
               TIME ASPECT field (#3) of the LAB LOINC File (#95.3) 
               TIME MODIFIER field (#3.1) of the LAB LOINC File (#95.3) 
               SYSTEM field (#4) of the LAB LOINC File (#95.3) 
               SCALE TYPE field (#5) of the LAB LOINC File (#95.3) 
               CLASS field (#7) of the LAB LOINC File (#95.3) 
               UNITS field (#10) of the LAB LOINC File (#95.3) 
               

CROSS
REFERENCED BY: HL7 TABLE(AC), NAME(B), NAME(C), HL7 ABBR(D), LOINC ABBR(E), LAB ABBR(F), TYPE(G), NAME(VR)

    LAST MODIFIED: JAN 20,2025@16:00:50

64.061,.001   SEQUENCE                   NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
              LAST EDITED:      MAY 02, 2016 
              HELP-PROMPT:      Type a number between 1 and 99999, 0 decimal digits. 
              DESCRIPTION:
                                IEN Internal Entry Number of LAB ELECTRONIC CODES FILE 64.061 


64.061,.01    NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
              LAST EDITED:      MAR 15, 2006 
              HELP-PROMPT:      Answer must be 1-240 characters in length. 
              DESCRIPTION:
                                Electronic code name used in electronic messaging.  

              DELETE TEST:      1,0)= I 1

              CROSS-REFERENCE:  64.061^B^MUMPS 
                                1)= S ^LAB(64.061,"B",$E(X,1,240),DA)=""
                                2)= K ^LAB(64.061,"B",$E(X,1,240),DA)

              CROSS-REFERENCE:  64.061^C^MUMPS 
                                1)= D UP^LRXREF S ^LAB(64.061,"C",X,DA)=""
                                2)= D UP^LRXREF K ^LAB(64.061,"C",X,DA)
                                This MUMPS cross reference stores the electronic code name in upper case and is used for look-up
                                and sorting purposes.  The format for the cross reference stored is below.  
                                 
                                   ^LAB(64.061,"C",Code Name in Upper Case,IEN) = "" 


              CROSS-REFERENCE:  64.061^VR^MUMPS 
                                1)= S ^LAB(64.061,"VR")=$G(^LAB(64.061,"VR"))
                                2)= Q
                                3)= This cross reference tracks version numbers
                                This cross reference is set during file installation or updates.  



64.061,1      LOINC ABBR             0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
              LAST EDITED:      SEP 11, 2003 
              HELP-PROMPT:      Answer must be 1-70 characters in length. 
              CROSS-REFERENCE:  64.061^E^MUMPS 
                                1)= S ^LAB(64.061,"E",X,DA)=""
                                2)= K ^LAB(64.061,"E",X,DA)


64.061,2      HL7 ABBR               0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
              LAST EDITED:      AUG 24, 2001 
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
                                UNEDITABLE
              CROSS-REFERENCE:  64.061^D 
                                1)= S ^LAB(64.061,"D",$E(X,1,30),DA)=""
                                2)= K ^LAB(64.061,"D",$E(X,1,30),DA)
                                Quick reference to find entry by the HL7 code 



64.061,3      LAB ABBR               0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
              LAST EDITED:      JUL 08, 1997 
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
              CROSS-REFERENCE:  64.061^F 
                                1)= S ^LAB(64.061,"F",$E(X,1,30),DA)=""
                                2)= K ^LAB(64.061,"F",$E(X,1,30),DA)
                                Quick reference to find entry by lab code.  



64.061,4      ASSOCIATED FILES       7;0          VARIABLE POINTER  Multiple #64.614

64.614,.01      ASSOCIATED FILES       0;1        VARIABLE POINTER

                FILE  ORDER  PREFIX    LAYGO  MESSAGE
                   61   1    LAB(61,      n   Topography 
               62.05    2    LAB(62.05,       Urgency 
                                         
                LAST EDITED:      JAN 08, 1997 
                CROSS-REFERENCE:  64.614^B 
                                  1)= S ^LAB(64.061,DA(1),7,"B",$E(X,1,30),DA)=""
                                  2)= K ^LAB(64.061,DA(1),7,"B",$E(X,1,30),DA)
                                  3)= Required Index for Variable Pointer




64.061,5      HL7 TABLE              0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
              LAST EDITED:      DEC 21, 2005 
              HELP-PROMPT:      Answer must be 2-10 characters in length. 
              CROSS-REFERENCE:  64.061^AC 
                                1)= S ^LAB(64.061,"AC",$E(X,1,30),DA)=""
                                2)= K ^LAB(64.061,"AC",$E(X,1,30),DA)
                                3)= HL7 table X-Ref
                                This X-reference is used to determine the HL7 table source.  



64.061,6      ATTRIBUTE              0;6 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
              LAST EDITED:      NOV 13, 2000 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 

64.061,7      TYPE                   0;7 SET

                                'U' FOR UPDATE/STATUS; 
                                'S' FOR SPECIMEN; 
                                'P' FOR PRIORITY; 
                                'E' FOR EVENT; 
                                'M' FOR MEASUREMENTS; 
                                'G' FOR GENERAL; 
                                'C' FOR CHALLENGE; 
                                'PR' FOR PROPERTY; 
                                'A' FOR ADJUSTMENT; 
                                'CL' FOR CLASS; 
              LAST EDITED:      SEP 10, 2003 
              CROSS-REFERENCE:  64.061^G 
                                1)= S ^LAB(64.061,"G",$E(X,1,30),DA)=""
                                2)= K ^LAB(64.061,"G",$E(X,1,30),DA)
                                To check for correct entry according to type.  



64.061,8      DESCRIPTION            0;8 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      SEP 11, 2003 
              HELP-PROMPT:      Answer must be 2-40 characters in length. 

64.061,9      LOINC TABLE            0;9 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      SEP 21, 1998 
              HELP-PROMPT:      Type a Number between 0 and 200, 0 Decimal Digits 
              DESCRIPTION:
                                This field contains the number of the LOINC table from the LOINC Users' Guide.  


64.061,10     SUBTYPE                0;10 POINTER TO LAB ELECTRONIC SUBTYPES FILE (#64.062)

              LAST EDITED:      NOV 09, 2000 
              DESCRIPTION:
                                This field is used to further define properties. Can be used as screen element.  

              CROSS-REFERENCE:  ^^TRIGGER^64.061^11 
                                1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.061,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X 
                                S DIU=X K Y X ^DD(64.061,10,1,1,1.1) S DIH=$G(^LAB(64.061,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=
                                64.061,DIG=11 D ^DICR

                                1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.062,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.062
                                ,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)

                                2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.061,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X 
                                S DIU=X K Y S X="" S DIH=$G(^LAB(64.061,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=64.061,DIG=11 D ^D
                                ICR

                                CREATE VALUE)= SUBTYPE:ABBR
                                DELETE VALUE)= @
                                FIELD)= `11


64.061,11     SCREEN                 0;11 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
              LAST EDITED:      AUG 13, 2006 
              HELP-PROMPT:      Answer must be 1-3 characters in length 
              DESCRIPTION:      This field contains a screen value triggered by SUBTYPE (#10) field. Look can be done on this file
                                by indicating how the returned value should be screened.  

                                UNEDITABLE
              NOTES:            TRIGGERED by the SUBTYPE field of the LAB ELECTRONIC CODES File 


64.061,12     LEX ABBREV             1;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
              LAST EDITED:      APR 18, 2016 
              HELP-PROMPT:      Answer must be 1-4 characters in length. 
              DESCRIPTION:      If this entry is an SCT Hierarchical term, this field contains the Lexicon abbreviation for this
                                concept. This abbreviation should be passed to the Lexicon (LEX API) for term look-up. This
                                abbreviation is used by the LEX API to scope the returned values when a SCT text term's SCT code is
                                requested.  


64.061,63     SUBSCRIPT              63;1 SET

                                'EM' FOR EM; 
                                'CH' FOR CH; 
                                'BB' FOR BB; 
                                'MI' FOR MI; 
                                'SP' FOR SP; 
                                'AU' FOR AU; 
                                'CY' FOR CY; 
              LAST EDITED:      APR 18, 2016 
              DESCRIPTION:      This field contains the LAB DATA (#63) file subscript. The entry indicates the subfile subscript
                                where data should be stored.  
                                 
                                When selecting database data storage location, screen on this field.  


64.061,63.1   FILE/SUBFILE           63;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
              LAST EDITED:      DEC 14, 2005 
              HELP-PROMPT:      Answer must be 2-10 characters in length. 
              DESCRIPTION:
                                This file contains the subfile where the data should be stored for this subscript.  


64.061,63.2   FIELD NUMBER           63;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
              LAST EDITED:      DEC 20, 2005 
              HELP-PROMPT:      Answer must be 1-20 characters in length. 
              DESCRIPTION:      This filed contains the field number of the subfile or the subscript; where results should be
                                stored.  


64.061,63.3   SCT TOP CONCEPT        63;4 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)

              INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,11)=""SCT""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      APR 26, 2016 
              DESCRIPTION:      This field points to the SNOMED CT Top Level Concepts (hierarchy). Only those entries associated
                                with SNOMED mapping may have this association established.  

              SCREEN:           S DIC("S")="I $P(^(0),U,11)=""SCT"""
              EXPLANATION:      Select only SCT hierarchy/top concepts
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


64.061,63.5   STORAGE FILE           63;5 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>62)!(X<61)!(X?.E1"."2N.N)!('$D(^DIC(X,0))) X
              LAST EDITED:      MAR 20, 2006 
              HELP-PROMPT:      Type a Number between 61 and 62, 1 Decimal Digit 
              DESCRIPTION:      This field contains the file that this SCT concept term is stored in the Laboratory Package number
                                space. Enter a valid file number between 60-69.9999.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER



      FILES POINTED TO                      FIELDS

LAB ELECTRONIC CODES (#64.061)    SCT TOP CONCEPT (#63.3)

LAB ELECTRONIC SUBTYPES (#64.062)  SUBTYPE (#10)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):