Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^LAB(64.061

Package: Lab Service

Global: ^LAB(64.061


Information

FileMan FileNo FileMan Filename Package
64.061 LAB ELECTRONIC CODES Lab Service

Description

Directly Accessed By Routines, Total: 20

Package Total Routines
Lab Service 16 LR153    LR232    LRCKF64    LREPI1    LRLNC0    LRLNC1    LRLNCC    LRLNCHL7
LRLNCLK    LRLNCPRT    LRLNCST    ^LAB(61    LRLNCTOP    LRLNCX    LRSRVR7    ^LAB(62.05
Automated Lab Instruments 2 LA7MUSPM    LA7SMU    
IHS Lab LOINC Surveillance 2 BLSMIT    BLSULLF    

Accessed By FileMan Db Calls, Total: 31

Package Total Routines
Automated Lab Instruments 18 LA7COBRA    LA7COBRB    LA7COBXA    LA7CORC    LA7PURG    LA7SM2    LA7SMP0    LA7VCIN3
LA7VIN3    LA7VLIN3    LA7VMSG1    LA7VOBRA    LA7VOBRB    LA7VOBXA    LA7VORC    LA7VORM
LA7VQIN3    LA7VRIN3    
Lab Service 12 LR232    LR232P    LRDPAREF    LRLNC63    LRLNCDEL    LRLNCTOP    LRORD    LRORDB
LRORDGUI    LRSRVR2    LRVER1    LRWLST1    
IHS Changes To Lab 1 BLRAG09E    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
Lab Service 7 TOPOGRAPHY FIELD(#61)[.09, .0961]    URGENCY(#62.05)[4]    LAB ELECTRONIC CODES(#64.061)[63.3]    LAB NLT/CPT CODES(#64.81)[#64.8117(64)]    LAB LOINC(#95.3)[1.5, 1.6, 1.7, 2, 3, 3.1, 4, 5, 7]    WKLD CODE(#64)[25.2, 25.3, #64.02(.01), #64.02(1)]    LAB PENDING ORDERS ENTRY(#69.6)[6, #69.64(5)]    
Automated Lab Instruments 3 LAB SHIPPING MANIFEST(#62.8)[#62.801(1.13), #62.801(1.23), #62.801(2.13), #62.801(2.23), #62.801(2.33)]    LAB SHIPPING EVENT(#62.85)[.05]    LAB SHIPPING CONFIGURATION(#62.9)[#62.9001(1.15), #62.9001(1.25), #62.9001(2.15), #62.9001(2.25), #62.9001(2.35)]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Lab Service 4 TOPOGRAPHY FIELD(#61)[#64.614(.01)]    URGENCY(#62.05)[#64.614(.01)]    LAB ELECTRONIC CODES(#64.061)[63.3]    LAB ELECTRONIC SUBTYPES(#64.062)[10]    

Fields, Total: 18

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  MAR 15, 2006
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • DELETE TEST:  1,0)= I 1
  • CROSS-REFERENCE:  64.061^B^MUMPS
    1)= S ^LAB(64.061,"B",$E(X,1,70),DA)=""
    2)= K ^LAB(64.061,"B",$E(X,1,70),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.





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)





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





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.





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




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.





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.





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.





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.





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.





10
SUBTYPE
0;10
POINTER TO LAB ELECTRONIC SUBTYPES FILE (#64.062)
LAB ELECTRONIC SUBTYPES(#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 ^DICR
    CREATE VALUE)= SUBTYPE:ABBR
    DELETE VALUE)= @
    FIELD)= `11





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





12
LEX ABBREV
1;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  AUG 13, 2006
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  If this entry is an SCT Heirarchical term, this field contains the Lexicon abbrevation 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.





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:  FEB 26, 2007
  • DESCRIPTION:  This field contains the LAB DATA (#63) file subscript. The entry indicates the sufile subsript where data should be stored.
    When selecting database data storage location, screen on this field.





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.





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.





63.3
SCT TOP CONCEPT
63;4
POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
LAB ELECTRONIC CODES(#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:  JAN 31, 2006
  • DESCRIPTION:  
    This field points to the SNOMED CT Top Level Concepts (heirarchy). 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 heirarchy/top concepts





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







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
All