STANDARD DATA DICTIONARY #61.2 -- ETIOLOGY FIELD FILE 9/29/25 PAGE 1
STORED IN ^LAB(61.2, (4568 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the ETIOLOGY file of SNOMED
FILE SCREEN (SCR-node) : I 1 Q:'$D(LRSS) Q:'(LRSS="MI") I $L($P(^(0),U,5)),"RPVMBF"[$P(^(0),U,5)
POINTED TO BY: LOCAL ORGANISM ENTRY field (#2) of the ORGANISM CODE sub-field (#61.391) of the LABORATORY INSTRUMENT CODE File
(#61.39)
ORGANISM (SCREEN) field (#1) of the ALTERNATE SCREEN sub-field (#62.08) of the ANTIMICROBIAL SUSCEPTIBILITY File
(#62.06)
*ORGANISM field (#.01) of the *ORGANISM sub-field (#62.081) of the SUSCEPTIBILITY RESULT sub-field (#62.061) of the
ANTIMICROBIAL SUSCEPTIBILITY File (#62.06)
ORGANISM (INTERP) field (#1) of the ALTERNATE INTERPRETATION sub-field (#62.091) of the SUSCEPTIBILITY RESULT
sub-field (#62.061) of the ANTIMICROBIAL SUSCEPTIBILITY File (#62.06)
ORGANISM field (#.01) of the ORGANISM sub-field (#62.44) of the MICRO CARD TYPE sub-field (#62.43) of the AUTO
INSTRUMENT File (#62.4)
RELATED ENTRY field (#2.1) of the IDENTIFIER sub-field (#62.4701) of the LAB CODE MAPPING File (#62.47)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#63.17) of the MORPHOLOGY sub-field (#63.16) of the ORGAN/TISSUE
sub-field (#63.12) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#63.217) of the MORPHOLOGY sub-field (#63.216) of the EM
ORGAN/TISSUE sub-field (#63.212) of the EM sub-field (#63.02) of the LAB DATA File (#63)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#63.23) of the MORPHOLOGY sub-field (#63.22) of the AUTOPSY
ORGAN/TISSUE sub-field (#63.2) of the LAB DATA File (#63)
ORGANISM field (#.01) of the ORGANISM sub-field (#63.3) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File
(#63)
PARASITE field (#.01) of the PARASITE sub-field (#63.34) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File
(#63)
FUNGUS/YEAST field (#.01) of the FUNGUS/YEAST sub-field (#63.37) of the MICROBIOLOGY sub-field (#63.05) of the LAB
DATA File (#63)
MYCOBACTERIUM field (#.01) of the MYCOBACTERIUM sub-field (#63.39) of the MICROBIOLOGY sub-field (#63.05) of the LAB
DATA File (#63)
VIRUS field (#.01) of the VIRUS sub-field (#63.43) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#63.917) of the MORPHOLOGY sub-field (#63.916) of the CYTOPATH
ORGAN/TISSUE sub-field (#63.912) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
ASSOCIATED NAME field (#.01) of the ASSOCIATED NAME sub-field (#64.023) of the WKLD CODE File (#64)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#69.53) of the LAB SEARCH/EXTRACT File (#69.5)
ETIOLOGY field (#.01) of the ETIOLOGY sub-field (#104.109) of the MDRO TOOLS LAB SEARCH/EXTRACT File (#104.1)
CROSS
REFERENCED BY: SCT CODE STATUS(AC), NAME(B), ABBREVIATION(B), SYNONYM(C), SNOMED CODE(D), *BIOCHEMICAL WORKUP(E),
SNOMED CT ID(F)
INDEXED BY: SNOMED CT ID (AD), NAME & SNOMED CT ID (AERT)
LAST MODIFIED: MAR 1,2018@14:18:02
61.2,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 21, 2013
HELP-PROMPT: Answer must be 2-80 characters in length.
DESCRIPTION:
The name of the etiologic (causative) agent.
TECHNICAL DESCR: When this field is modified by non-interactive means, the variable LRFMERTS should be defined.
LRFMERTS is used by the AERT xref to determine if the field is being edited by a user or by a
process.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 61.2^B
1)= S ^LAB(61.2,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,"B",$E(X,1,30),DA)
RECORD INDEXES: AERT (#895)
61.2,1.6 CLASS/GROUP-TRIBE/FAMILY 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The class/group or tribe/family that this etiologic agent belongs to.
61.2,2 SNOMED CODE 0;2 FREE TEXT
ENTER CHARACTERS FOLLOWING 'E-' IN SNOMED REFERENCE BOOK
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?.AN) X I '$D(DIU(0)),$D(X) S Y=$O(^LAB(61.2,"D",X,0)) I Y>0 K:'$D(^LAB(61.2
,Y,0)) ^LAB(61.2,"D",X,Y) I $D(^LAB(61.2,Y,0)) K X D EN^DDIOL("ALREADY AN ENTRY",,"$C(7),!") Q
LAST EDITED: SEP 11, 1984
HELP-PROMPT: ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
DESCRIPTION:
The characters following "E-" in the SNOMED reference book.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.2^D
1)= S ^LAB(61.2,"D",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,"D",$E(X,1,30),DA)
61.2,3 GRAM STAIN 0;3 SET
'P' FOR GRAM POSITIVE;
'N' FOR GRAM NEGATIVE;
'I' FOR INDETERMINATE;
LAST EDITED: JUL 19, 1984
HELP-PROMPT: Enter P for gram positive or N for gram negative or I for indeterminate
DESCRIPTION:
If applicable enter if this is a gram positive, gram negative, or indeterminate organism.
61.2,3.5 *BIOCHEMICAL WORKUP 3;0 Multiple #61.23 (Add New Entry without Asking)
DESCRIPTION:
No longer used. To be deleted after this version.
61.23,.01 *BIOCHEMICAL WORKUP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>21!($L(X)<2) X
LAST EDITED: MAY 03, 1987
HELP-PROMPT: ANSWER MUST BE 2-21 CHARACTERS IN LENGTH
DESCRIPTION:
No longer used. To be deleted after this version.
CROSS-REFERENCE: 61.2^E
1)= S ^LAB(61.2,"E",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.2,"E",$E(X,1,30),DA(1),DA)
61.2,4 IDENTIFIER 0;5 SET
'B' FOR BACTERIUM;
'F' FOR FUNGUS;
'P' FOR PARASITE;
'M' FOR MYCOBACTERIUM;
'V' FOR VIRUS;
'C' FOR CHEMICAL;
'D' FOR DRUG;
'R' FOR RICKETTSIAE;
'A' FOR PHYSICAL AGENT;
LAST EDITED: MAR 14, 2006
DESCRIPTION:
This field identifies the category into which this etiologic agent falls.
61.2,5 JOURNAL REFERENCE JR;0 Multiple #61.21 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. You may enter Journal references that apply to this etiologic agent.
61.21,.01 TITLE OF ARTICLE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Title of an article that discusses the named etiologic agent.
61.21,1 AUTHOR(S) 0;2 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Author(s) of the named article.
61.21,2 MEDICAL JOURNAL 0;3 POINTER TO LAB JOURNAL FILE (#95)
LAST EDITED: JUN 16, 1984
DESCRIPTION:
The name of the medical journal containing the article.
61.21,3 VOLUME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
The volume number/name that contains the article.
61.21,4 STARTING PAGE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
The first page of the article.
61.21,5 DATE 0;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 09, 1984
DESCRIPTION:
Date of article.
61.21,6 LIST ON PATIENT RECORD 0;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 09, 1984
DESCRIPTION: If this reference is to be listed on a patient record whenever this etiologic agent is involved,
this field requires a YES entry.
61.21,7 TOPOGRAPHY RESTRICTION 1;0 Multiple #61.24 (Add New Entry without Asking)
61.24,.01 TOPOGRAPHY RESTRICTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAR 05, 1986
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION: To restrict printing references for certain organ/tissues with the selected
etiology enter one or more characters of the topography code.
(Ex. for lung enter 28). If no entry there will be no restriction. A topography restriction
does not apply to microbiology reports.
61.2,6 ABBREVIATION 0;7 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
DESCRIPTION: This must be a 1 to 5 character abbreviation for this etiologic agent and will be used as a unique
code for it.
CROSS-REFERENCE: 61.2^B^MNEMONIC
1)= S ^LAB(61.2,"B",$E(X,1,30),DA)=1
2)= K ^LAB(61.2,"B",$E(X,1,30),DA)
61.2,7 SYNONYM 2;0 Multiple #61.22 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. Enter synonyms or common misspellings of this etiologic agent.
61.22,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-200 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains synonyms, abbreviations, or common misspellings of this etiologic agent.
CROSS-REFERENCE: 61.2^C
1)= S ^LAB(61.2,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.2,"C",$E(X,1,30),DA(1),DA)
61.2,8 SUSCEPTIBILITY EDIT TEMPLATE 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) X:X="?" ^DD(61.2,8,4) Q:X="?"!$D(DIU(0
)) S DIC(0)="EQM",DIC="^DIE(",DIC("S")="I $P(^(0),U,4)=63" D ^DIC S X=$P(Y,U,2) K:Y<1 X
LAST EDITED: JUL 26, 1988
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: Contains the edit template name that this etiologic agent is associated with. Determines the set
of antibiotics that will be shown for editing when this organism is chosen.
EXECUTABLE HELP: S X="?",DIC(0)="Q",DIC="^DIE(",DIC("S")="I $P(^(0),U,4)=63",D="B" K DO D DQ^DICQ K DIC S DIC=DIE D
DO^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
61.2,9 *SENSITIVITY DISPLAY TEMPLATE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAY 03, 1987
DESCRIPTION:
No longer used. Will be deleted after this version.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
61.2,10 HEALTH DEPT REPORT 0;9 SET
'1' FOR YES;
LAST EDITED: APR 03, 1984
DESCRIPTION: If this etiologic agent is to be included on the Health Department Report, this field must contain
a YES entry.
61.2,11 ETIOLOGY WKLD CODE 9;0 POINTER Multiple #61.211
LAST EDITED: MAR 15, 1991
DESCRIPTION: This field contains a list of possible WKLD codes from which a technologist may choose additional
work load. If this particular isolate requires extra work in order to isolate or identify it, then
list those possible WKLD codes here. The technologist will only be able to select from this list.
Therefore the list should be complete.
61.211,.01 ETIOLOGY WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: FEB 11, 1993
DESCRIPTION: Enter a WKLD code which can be associated with the isolation and identification of the this
particular organism. The verifier will be able to select from these entries for additional work
load.
NOTE: THIS FIELD IS ONLY USED FOR MICROBIOLOGY WORKLOAD.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^61.211^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,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,2) X ^DD(61.211,.01,1,1,1.4)
1.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=
1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.211,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=
1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
DELETE VALUE)= @
FIELD)= WKLD CODE
CROSS-REFERENCE:61.211^B
1)= S ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)
61.211,1 ETIOLOGY WKLD CODE # 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<9) X
LAST EDITED: JUL 07, 1992
HELP-PROMPT: Answer must be 9 characters in length.
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ETIOLOGY WKLD CODE field of the ETIOLOGY WKLD CODE sub-field of the ETIOLOGY FIELD
File
61.211,2 MULTIPLY BY 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 27, 1990
HELP-PROMPT: Type a Number between 1 and 20, 0 Decimal Digits
DESCRIPTION:
If this WKLD code should be counted more than once, enter the number here. The default is 1.
61.2,20 SNOMED CT ID SCT;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>18!($L(X)<6)!'(X?6.18N) X D:$D(X) IT612F20^LRXREF
LAST EDITED: JUN 03, 2009
HELP-PROMPT: Enter a valid SNOMED CT Identifier (6-18 numeric).
DESCRIPTION: This is the SNOMED CT concept id number for this entry. If this entry is null then the entry is
either unmapped or no valid SNOMED concept term exists to map this entry.
This field is not editable except by Lab software.
TECHNICAL DESCR: Field added via patch LR*5.2*350.
-----------------------------
The SNOMED CT concept identifiers assigned by The International Health Terminology Standards
Development Organisation has the following specifications.
The SCTID data type is a 64-bit integer, which is subject to the following constraints:
Only positive integer values are permitted.
The minimum permitted value is 100,000 (6 digits)
The maximum permitted value is 999,999,999,999,999,999 (18-digits).
As a result of rules for the partition-identifier and check-digit, many
integers within this range are not valid SCTIDs.
Storage of these identifiers in this file is of data type free text with a 6-18 character length
and a numeric pattern match. This conforms to the The Department of Veterans Affairs M Programming
Standards and Conventions 2008. The VA SACC has reviewed and indicated this data storage is within
standards and conventions.
------------------------------
The SNOMED CT ID (SCTID) field needs to be a valid SNOMED CT concept.
The INPUT TRANSFORM checks if the SCT code is valid. If not the INPUT TRANSFORM fails.
------------------------------
This field is modified only by non-interactive means via updates from the VA Standard Terminology
Services.
The variable LRFMERTS is used by the AERT xref to determine if the field is being edited by a user
or by a process.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.2^F
1)= S ^LAB(61.2,"F",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,"F",$E(X,1,30),DA)
Cross reference on the SNOMED CT code assigned to this entry.
FIELD INDEX: AD (#894) MUMPS IR ACTION
Short Descr: Special xref for valid SCT and duplicate SCT screening
Set Logic: N LRY S LRY=$$SCTCHK^LRXREF($G(X2(1)),DA) D:LRY<1 DELSCT^LRXREF(DA)
Set Cond: S X=$S('$D(LRFMERTS):1,1:0)
Kill Logic: Q
X(1): SNOMED CT ID (61.2,20) (Subscr 1) (forwards)
RECORD INDEXES: AERT (#895)
61.2,21 SCT CODE STATUS SCT;2 SET
'P' FOR PREFERRED TERM;
'S' FOR SYNONYM;
'L' FOR LOCAL;
'R' FOR REFERRED;
'X' FOR NO APPLICABLE MAPPING;
'LN' FOR NEW TERM PENDING LEXICON UPDATE;
'RN' FOR STS REQUEST NEW CODE;
'E' FOR ERROR;
LAST EDITED: JUN 05, 2009
HELP-PROMPT: Enter the status of this term's mapping to SNOMED CT.
DESCRIPTION: This field indicate the status or disposition of this entry.
P = SNOMED Preferred term
S = SNOMED Synonym term
L = Local spelling of a SNOMED term (miss-spelled)
R = Referred to national coders to determine if acceptable
X = No applicable mapping
LN = New term pending LEXICON release/update.
RN = STS Request New Code
E = Error encountered when applying STS disposition to file entry.
SCREEN: S DIC("S")="I ($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFMERTS)"
EXPLANATION: Locks field to prevent editing other than by Lab software.
CROSS-REFERENCE: 61.2^AC
1)= S ^LAB(61.2,"AC",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,"AC",$E(X,1,30),DA)
This cross reference will sort the entries based on their mapping status or the SCT designation as
to term type.
61.2,22 SCT TOP CONCEPT SCT;3 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""SCT"",($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFMERTS)" D ^DIC K DIC S DIC
=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JUN 05, 2009
HELP-PROMPT: Select the SNOMED Hierarchy associated with this term.
DESCRIPTION: This field Identifies the SNOMED CT top level concept for this SNOMED code. This is useful to
determine the proper code when the spelling of the terms are identical but have different concept
(meaning).
SCREEN: S DIC("S")="I $P(^(0),U,11)=""SCT"",($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFMERTS)"
EXPLANATION: Select only SCT Concept termsand prevents editing other than by Lab software
61.2,23 SCT STATUS DATE SCT1;0 DATE Multiple #61.223 (Add New Entry without Asking)
LAST EDITED: MAR 13, 2006
DESCRIPTION: This multiple tracks the status change of SNOMED SCT codes that have been referred to the STS team
to determine if this SCT code is not a valid SCT code or it is a valid SCT code pending
release/update of the LEXICON file.
61.223,.01 SCT STATUS DATE 0;1 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",'$G(LRFMERTS) K X
LAST EDITED: JUN 08, 2009
HELP-PROMPT: Enter the date the status was changed.
DESCRIPTION:
The date the status was changed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.223^B
1)= S ^LAB(61.2,DA(1),"SCT1","B",$E(X,1,30),DA)=""
2)= K ^LAB(61.2,DA(1),"SCT1","B",$E(X,1,30),DA)
61.223,1 SCT STATUS CHANGED TO 0;2 SET
'P' FOR PREFERRED TERM;
'S' FOR SYNONYM;
'L' FOR LOCAL;
'R' FOR REFERRED;
'X' FOR NO APPLICABLE MAPPING;
'LN' FOR NEW TERM PENDING LEXICON UPDATE;
'RN' FOR STS REQUEST NEW CODE;
'E' FOR ERROR;
LAST EDITED: JUN 08, 2009
HELP-PROMPT: Enter the status of this term's mapping to SNOMED CT.
DESCRIPTION: This field track the status of terms referred to the STS team to determine if this code is a
valid VHA SNOMED SCT term.
SCREEN: S DIC("S")="I ($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFMERTS)"
EXPLANATION: Locks field to prevent editing other than by Lab software.
61.223,2 SCT TRANSACTION NUMBER 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",'$G(LRFMERTS) K X
LAST EDITED: JUN 08, 2009
HELP-PROMPT: Answer must be 1-45 characters in length
DESCRIPTION: Transaction number generated by Laboratory software when referring a term for mediation by STS
and mapping to SNOMED CT.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
61.223,3 SCT STATUS USER 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 12, 2009
HELP-PROMPT: Enter the user who performed the SCT code resolution.
DESCRIPTION: Store the user who initiated the process to apply the STS SNOMED CT code resolution or the
original mapping to this file entry.
61.223,4 SCT COMMENT TEXT 1;0 WORD-PROCESSING #61.2231 (NOWRAP) (IGNORE "|")
LAST EDITED: JUN 08, 2009
DESCRIPTION: Contains text or comments related to the mapping of a term to SNOMED CT. The text can relate to
information submitted to STS for the term to be mapped, the comments returned by STS related to
the mapping and any comments when attempting to apply the disposition from STS.
LAST EDITED: JUN 08, 2009
HELP-PROMPT: Enter the comment thatt accompanies the STS disposition.
DESCRIPTION: Contains text or comments related to the mapping of a term to SNOMED CT. The text can relate
to information submitted to STS for the term to be mapped, the comments returned by STS related
to the mapping and any comments when attempting to apply the disposition from STS.
61.2,64.9102 INACTIVE DATE 64.91;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 18, 2017
HELP-PROMPT: Enter the date this ETIOLOGY entry should no longer be considered available.
DESCRIPTION:
This is the date on or after which the entry will no longer be active.
FILES POINTED TO FIELDS
LAB ELECTRONIC CODES (#64.061) SCT TOP CONCEPT (#22)
LAB JOURNAL (#95) JOURNAL REFERENCE:MEDICAL JOURNAL (#2)
NEW PERSON (#200) SCT STATUS DATE:SCT STATUS USER (#3)
WKLD CODE (#64) ETIOLOGY WKLD CODE:ETIOLOGY WKLD CODE (#.01)
File #61.2
Record Indexes:
AERT (#895) RECORD MUMPS ACTION
Short Descr: Send ERT alert if needed.
Description: Action cross reference for sending ERT alerts when an entry is added or modified.
Set Logic: D TASK^LRERT1(61.2,DA)
Set Cond: S X=$S('$D(LRFMERTS):1,1:0)
Kill Logic: Q
Kill Cond: S X=0
X(1): NAME (61.2,.01) (forwards)
X(2): SNOMED CT ID (61.2,20) (forwards)
INPUT TEMPLATE(S):
LRAPER JUL 09, 1986 USER #0
LRAPETI JUL 09, 1986 USER #0
LRMIETI INACTIVE DATE AUG 21, 2017@09:58 USER #0
This input template is for updatinging the Inactive Date field in
the Etiology Field File. it is for use by the LIM or the Microbiology
Supervisor.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):