STANDARD DATA DICTIONARY #62.47 -- LAB CODE MAPPING FILE 3/24/25 PAGE 1
STORED IN ^LAB(62.47, (70 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Used to map standard code system concepts to the related area of the Laboratory package database. It supports mapping codes used in
the role identifying the result or expressing the answer.
Examples of result codes are LOINC and VA NLT Test Result codes such as LOINC code 11475-1 MICROORGANISM IDENTIFIED:
PRID:PT:XXX:NOM:CULTURE which represents the concept of organism identified.
Examples of answer codes are SNOMED CT code 23506009 which is the term 'normal flora' or SNOMED CT code 30334005 AEROMONAS
SALMONICIDA (ORGANISM) which represents the name of the organism identified.
This file should not export its data via the standard KIDS data export mechanism. Because local codes can have the same identifier
as national codes, the KIDS install may inadvertently overwrite local codes. Data exports should use a different mechanism, such
as using KIDS Transport global to load the data onto the target system.
PRIMARY KEY: A (#74)
Uniqueness Index: C (#1078)
File, Field: 1) DATABASE CODE (62.47,.03)
POINTED TO BY: ALTERNATE CONCEPT field (#.04) of the LAB CODE MAPPING File (#62.47)
OVERRIDE CONCEPT field (#.04) of the IDENTIFIER sub-field (#62.4701) of the LAB CODE MAPPING File (#62.47)
CROSS
REFERENCED BY: RELATED ENTRY(AE), MESSAGE CONFIGURATION(AG), CONCEPT(B)
INDEXED BY: CODING SYSTEM & IDENTIFIER & PURPOSE (AC), MESSAGE CONFIGURATION & CODING SYSTEM & IDENTIFIER & PURPOSE & NATIONAL
STANDARD (AC1), CODING SYSTEM & IDENTIFIER & PURPOSE & NATIONAL STANDARD (AC2), CODING SYSTEM & IDENTIFIER &
OVERRIDE CONCEPT & PURPOSE (AD), MESSAGE CONFIGURATION & CODING SYSTEM & IDENTIFIER & PURPOSE & NATIONAL STANDARD
(AD1), CODING SYSTEM & IDENTIFIER (AF), IDENTIFIER (AH), DATABASE CODE (C)
62.47,.001 SEQUENCE NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X K:($G(DIUTIL)'="VERIFY FIELDS"&'$G(LRFPRIV)) X
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Type a number between 1 and 9999, 0 Decimal Digits.
DESCRIPTION:
Sequence number (IEN).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62.47,.01 CONCEPT 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Answer must be 3-45 characters in length.
DESCRIPTION: Indicates the nature of the codes and what area of the laboratory the concept relates.
CROSS-REFERENCE: 62.47^B
1)= S ^LAB(62.47,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.47,"B",$E(X,1,30),DA)
62.47,.02 LR SUBSCRIPT 0;2 SET (Required)
'CH' FOR CHEM, HEM, TOX, RIA, SER, etc.;
'MI' FOR MICROBIOLOGY;
'EM' FOR ELECTRON MICROSCOPY;
'SP' FOR SURGICAL PATHOLOGY;
'CY' FOR CYTOLOGY;
'AU' FOR AUTOPSY;
'BB' FOR BLOOD BANK;
LAST EDITED: OCT 31, 2006
HELP-PROMPT: This represents the functional area of the Lab.
DESCRIPTION:
Lab Data file (#63) subscript for this entry.
62.47,.03 DATABASE CODE 0;3 POINTER TO LAB ELECTRONIC CODES FILE (#64.061) (Required) (Key field)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(63)),U)'=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: OCT 31, 2006
HELP-PROMPT: Select the related database code entry.
DESCRIPTION: For 'result' type codes this field indicates the related area of the Laboratory package database
where answers to this code area to be stored. The database code indicates the storage location
within the Laboratory package.
TECHNICAL DESCR:
SCREEN: S DIC("S")="I $P($G(^(63)),U)'="""""
EXPLANATION: Only allow selection of codes related to database entries.
FIELD INDEX: C (#1078) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#74), File #62.47
Short Descr: Cross-reference database code with mapping concept
Description: Establish relationship between concept and related database storage location. Used to allow the
same 'answer' code to be associated with multiple concepts and determine which concept the 'answer'
code is to be associated with for a specific instance.
Example is SNOMED CT code 23506009 is the term 'normal flora'. This term can be the 'answer' used
in several places within the Lab DATA file (#63).
Set Logic: S ^LAB(62.47,"C",X,DA)=""
Kill Logic: K ^LAB(62.47,"C",X,DA)
Whole Kill: K ^LAB(62.47,"C")
X(1): DATABASE CODE (62.47,.03) (Subscr 1) (forwards)
62.47,.04 ALTERNATE CONCEPT 0;4 POINTER TO LAB CODE MAPPING FILE (#62.47)
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Select the alternate concept related to this concept.
DESCRIPTION: Used to designate an alternate concept when the answer associated with this concept is not in a
form that can be stored within the current VistA database.
Example is when VistA expects to store the answer as a pointer to a VistA file and the instance of
an answer is free text.
This field will point to a concept that will allow the answer to be stored in a field which can
accept the answer.
62.47,1 IDENTIFIER 1;0 Multiple #62.4701
LAST EDITED: FEB 06, 2006
DESCRIPTION:
The Identifier contains the codes/codesets that are associated with this Concept.
IDENTIFIED BY: CODING SYSTEM(#.02)[R]
62.4701,.01 IDENTIFIER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X D:$G(X)]"" CODSETOK^LA7VLCM3(DA(1),$G(DA),X,,1)
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is the code or id associated with an instance of this concept. The identifier in
conjunction with CODING SYSTEM field (#.02) indicates its use and source.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 62.4701^B
1)= S ^LAB(62.47,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.47,DA(1),1,"B",$E(X,1,30),DA)
FIELD INDEX: AH (#1077) REGULAR IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Whole file IDENTIFIER index
Description: Used primarily with Option LA7V 62.47 FIND IDENTIFIER that allows the user to display all #62.47
entries for a specific Identifier.
Set Logic: S ^LAB(62.47,"AH",$E(X,1,30),DA(1),DA)=""
Kill Logic: K ^LAB(62.47,"AH",$E(X,1,30),DA(1),DA)
Whole Kill: K ^LAB(62.47,"AH")
X(1): IDENTIFIER (62.4701,.01) (Subscr 1) (Len 30) (forwards)
RECORD INDEXES: AC (#1071) (WHOLE FILE #62.47), AC1 (#1072) (WHOLE FILE #62.47), AC2 (#1073) (WHOLE FILE #62.47),
AD (#1074) (WHOLE FILE #62.47), AD1 (#1075) (WHOLE FILE #62.47), AF (#1076) (WHOLE FILE #62.47)
62.4701,.02 CODING SYSTEM 0;2 FREE TEXT (Required)
INPUT TRANSFORM: D ITP02^LA7XREF
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Answer 1-15 characters, Uppercase (e.g., LN, SCT, L, 99*).
DESCRIPTION: Identifies the name of the coding system which this code is derived from.
TECHNICAL DESCR:
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 62.4701^C
1)= S ^LAB(62.47,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^LAB(62.47,DA(1),1,"C",$E(X,1,30),DA)
RECORD INDEXES: AC (#1071) (WHOLE FILE #62.47), AC1 (#1072) (WHOLE FILE #62.47), AC2 (#1073) (WHOLE FILE #62.47),
AD (#1074) (WHOLE FILE #62.47), AD1 (#1075) (WHOLE FILE #62.47), AF (#1076) (WHOLE FILE #62.47)
62.4701,.03 PURPOSE 0;3 SET
'1' FOR RESULT;
'2' FOR ANSWER;
LAST EDITED: SEP 06, 2006
HELP-PROMPT: Select the role or purpose this code is used.
DESCRIPTION: Classifies the code as a result or answer code.
Codes from HL7 OBX segment field OBX-3 should be classified as result codes.
Example is LOINC code 11475-1 MICROORGANISM IDENTIFIED: PRID:PT:XXX:NOM:CULTURE that represents
the concept of organism identified.
Codes from HL7 OBX segment field OBX-5 should be classified as answer codes.
Example is SNOMED CT code 30334005 AEROMONAS SALMONICIDA (ORGANISM) that represent the name of
organism identified.
TECHNICAL DESCR:
RECORD INDEXES: AC (#1071) (WHOLE FILE #62.47), AC1 (#1072) (WHOLE FILE #62.47), AC2 (#1073) (WHOLE FILE #62.47),
AD (#1074) (WHOLE FILE #62.47), AD1 (#1075) (WHOLE FILE #62.47)
62.4701,.04 OVERRIDE CONCEPT 0;4 POINTER TO LAB CODE MAPPING FILE (#62.47)
LAST EDITED: MAR 29, 2006
HELP-PROMPT: Select the related concept entry.
DESCRIPTION: For 'answer' type codes this field indicates the related area of the Laboratory package database
where answers to this code are to be stored.
It is used when the 'answer' that is associated with a 'result' code cannot not be stored in the
usual VistA Laboratory LAB DATA file (#63) field.
Example: SNOMED CT code 23506009 is the term 'normal flora'. This term can be the 'answer' used
in several places within the Lab DATA file (#63). If it is associated as the 'answer' to a
microorganism identified code instead of being stored as an entry in the ETIOLOGY FIELD file
(#61.2) it would be stored as a comment.
TECHNICAL DESCR:
RECORD INDEXES: AD (#1074) (WHOLE FILE #62.47)
62.4701,.05 NATIONAL STANDARD 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Is this entry nationally released code?
DESCRIPTION: This field indicates whether this entry was distributed nationwide. If not, then it was entered
locally.
SCREEN: S DIC("S")="I ($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFPRIV)!('$G(LRFPRIV)&Y=0)"
EXPLANATION: Do not allow local entries to be flagged as national.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 62.4701^AC
1)= S ^LAB(62.47,DA(1),1,"AC",$E(X,1,30),DA)=""
2)= K ^LAB(62.47,DA(1),1,"AC",$E(X,1,30),DA)
RECORD INDEXES: AC1 (#1072) (WHOLE FILE #62.47), AC2 (#1073) (WHOLE FILE #62.47), AD1 (#1075) (WHOLE FILE #62.47)
62.4701,2.1 RELATED ENTRY 2;1 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
61.2 1 ET n Select ETIOLOGY
62.06 2 AB n Select ANTIBIOTIC
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Select the related entry to link this code/codeset to.
DESCRIPTION: Links this code/codeset to an entry in one of the pointed-to files. This allows the system to
determine how to translate a code/codeset to a file entry.
CROSS-REFERENCE: 62.47^AE
1)= S ^LAB(62.47,"AE",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(62.47,"AE",$E(X,1,30),DA(1),DA)
LAB(62.47,"AE",Pointed-To File,DA(1),DA)
Identify entries in the pointed-to files that are mapped to #62.47 entries.
62.4701,2.2 MESSAGE CONFIGURATION 2;2 POINTER TO LA7 MESSAGE PARAMETER FILE (#62.48)
LAST EDITED: OCT 24, 2012
HELP-PROMPT: For local codes, select the interface this code is associated with.
DESCRIPTION: When the related identifier (code) is from a local coding system then this field indicates for
which specific interface the code is associated with. Local codes are interface specific.
CROSS-REFERENCE: 62.47^AG
1)= S ^LAB(62.47,"AG",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(62.47,"AG",$E(X,1,30),DA(1),DA)
^LAB(62.47,"AG",R6248,R6247,R624701)=""
RECORD INDEXES: AC1 (#1072) (WHOLE FILE #62.47), AD1 (#1075) (WHOLE FILE #62.47)
FILES POINTED TO FIELDS
LA7 MESSAGE PARAMETER (#62.48) IDENTIFIER:MESSAGE CONFIGURATION (#2.2)
LAB CODE MAPPING (#62.47) ALTERNATE CONCEPT (#.04)
IDENTIFIER:OVERRIDE CONCEPT (#.04)
LAB ELECTRONIC CODES (#64.061) DATABASE CODE (#.03)
Subfile #62.4701
Record Indexes:
AC (#1071) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Cross-reference used to lookup code/system for 'result' role.
Description:
Set Logic: S ^LAB(62.47,"AC",X(1),X(2),X(3),DA(1),DA)=""
Set Cond: S X=$S(X(4)=1:1,1:0)
Kill Logic: K ^LAB(62.47,"AC",X(1),X(2),X(3),DA(1),DA)
Whole Kill: K ^LAB(62.47,"AC")
X(1): CODING SYSTEM (62.4701,.02) (Subscr 1) (forwards)
X(2): IDENTIFIER (62.4701,.01) (Subscr 2) (forwards)
X(3): Computed Code: S X=$P($G(^LAB(62.47,DA(1),0)),U,3)
(Subscr 3)
X(4): PURPOSE (62.4701,.03) (forwards)
AC1 (#1072) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Cross-reference used to lookup local, 'result' codes specific to an interface.
Description:
Set Logic: S ^LAB(62.47,"AC1",X(1),X(2),X(3),X(4),DA(1),DA)=""
Set Cond: S X=$S((X(5)=1&(+X(6)=0)):1,1:0)
Kill Logic: K ^LAB(62.47,"AC1",X(1),X(2),X(3),X(4),DA(1),DA)
Whole Kill: K ^LAB(62.47,"AC1")
X(1): MESSAGE CONFIGURATION (62.4701,2.2) (Subscr 1) (forwards)
X(2): CODING SYSTEM (62.4701,.02) (Subscr 2) (forwards)
X(3): IDENTIFIER (62.4701,.01) (Subscr 3) (forwards)
X(4): Computed Code: S X=$P($G(^LAB(62.47,DA(1),0)),U,3)
(Subscr 4)
X(5): PURPOSE (62.4701,.03) (forwards)
X(6): NATIONAL STANDARD (62.4701,.05) (forwards)
AC2 (#1073) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Cross-reference used to lookup code/system for national, 'result' codes.
Set Logic: S ^LAB(62.47,"AC2",X(1),X(2),X(3),X(4),DA(1),DA)=""
Set Cond: S X=$S((X(5)=1&(X(6)=1)):1,1:0)
Kill Logic: K ^LAB(62.47,"AC2",X(1),X(2),X(3),X(4),DA(1),DA)
Kill Cond: Q
Whole Kill: K ^LAB(62.47,"AC2")
X(1): Computed Code: S X=$P($G(^LAB(62.47,DA(1),0)),U,2)
(Subscr 1) (forwards)
X(2): CODING SYSTEM (62.4701,.02) (Subscr 2) (forwards)
X(3): IDENTIFIER (62.4701,.01) (Subscr 3) (forwards)
X(4): Computed Code: S X=$P($G(^LAB(62.47,DA(1),0)),U,3)
(Subscr 4)
X(5): PURPOSE (62.4701,.03) (forwards)
X(6): NATIONAL STANDARD (62.4701,.05) (forwards)
AD (#1074) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Cross-reference to lookup codes used for 'answer' role.
Set Logic: S ^LAB(62.47,"AD",DA(1),X(1),X(2),X(3),DA)=""
Set Cond: S X=$S(X(4)=2:1,1:0)
Kill Logic: K ^LAB(62.47,"AD",DA(1),X(1),X(2),X(3),DA)
Whole Kill: K ^LAB(62.47,"AD")
X(1): CODING SYSTEM (62.4701,.02) (Subscr 1) (forwards)
X(2): IDENTIFIER (62.4701,.01) (Subscr 2) (forwards)
X(3): OVERRIDE CONCEPT (62.4701,.04) (Subscr 3) (forwards)
X(4): PURPOSE (62.4701,.03) (forwards)
AD1 (#1075) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: Cross-reference used to lookup local, 'answer' codes specific to an interface.
Description:
Set Logic: S ^LAB(62.47,"AD1",DA(1),X(1),X(2),X(3),X(4),DA)=""
Set Cond: S X=$S((X(5)=2&(X(6)=0)):1,1:0)
Kill Logic: K ^LAB(62.47,"AD1",DA(1),X(1),X(2),X(3),X(4),DA)
Whole Kill: K ^LAB(62.47,"AD1")
X(1): MESSAGE CONFIGURATION (62.4701,2.2) (Subscr 1) (forwards)
X(2): CODING SYSTEM (62.4701,.02) (Subscr 2) (forwards)
X(3): IDENTIFIER (62.4701,.01) (Subscr 3) (forwards)
X(4): Computed Code: S X=$P($G(^LAB(62.47,DA(1),0)),U,3)
(Subscr 4)
X(5): PURPOSE (62.4701,.03) (forwards)
X(6): NATIONAL STANDARD (62.4701,.05) (forwards)
AF (#1076) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#62.47)
Short Descr: CODING SYSTEM used.
Description: ^LAB(62.47,"AF",CODING SYSTEM,IDENTIFIER,DA(1),DA)
All CODING SYSTEMs and IDENTIFIERs in the file. This is used primarily to flag entries in File #61.2 that have
their SNOMED CT ID mapped in this file. This alerts the user that the #61.2 entry is in use for their LEDI
system and should not be changed without updating file #62.47.
Set Logic: S ^LAB(62.47,"AF",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)=""
Kill Logic: K ^LAB(62.47,"AF",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)
Whole Kill: K ^LAB(62.47,"AF")
X(1): CODING SYSTEM (62.4701,.02) (Subscr 1) (Len 30) (forwards)
X(2): IDENTIFIER (62.4701,.01) (Subscr 2) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):