STANDARD DATA DICTIONARY #61.4 -- DISEASE FIELD FILE 9/29/25 PAGE 1
STORED IN ^LAB(61.4, (3215 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the DISEASE file of SNOMED.
IDENTIFIED BY: SNOMED CODE (#2)[R]
POINTED TO BY: DISEASE field (#.01) of the DISEASE sub-field (#63.15) of the ORGAN/TISSUE sub-field (#63.12) of the SURGICAL
PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63)
DISEASE field (#.01) of the DISEASE sub-field (#63.21) of the AUTOPSY ORGAN/TISSUE sub-field (#63.2) of the LAB DATA
File (#63)
DISEASE field (#.01) of the DISEASE sub-field (#63.215) of the EM ORGAN/TISSUE sub-field (#63.212) of the EM
sub-field (#63.02) of the LAB DATA File (#63)
DISEASE field (#.01) of the DISEASE sub-field (#63.915) of the CYTOPATH ORGAN/TISSUE sub-field (#63.912) of the
CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
DISEASE CODE field (#13) of the SUSPENSE sub-field (#160.075) of the ONCOLOGY PATIENT File (#160)
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(B), SNOMED CODE(C), SYNONYM(D)
61.4,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>90!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 09, 1989
HELP-PROMPT: Answer must be 3-90 characters in length.
DESCRIPTION:
The name of the disease.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 61.4^B
1)= S ^LAB(61.4,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.4,"B",$E(X,1,30),DA)
61.4,2 SNOMED CODE 0;2 FREE TEXT (Required)
ENTER CHARACTERS FOLLOWING 'D-' IN SNOMED REFERENCE BOOK
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1"D-".E)!(X?1"D"1N.E) X I $D(X) S Y=$O(^LAB(61.4,"C",X,0)) I Y>0 K:
'$D(^LAB(61.4,Y,0)) ^LAB(61.4,"C",X,Y) I $D(^LAB(61.4,Y,0)) K X W *7,!," ALREADY AN ENTRY",! Q
LAST EDITED: SEP 11, 1984
HELP-PROMPT: ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
DESCRIPTION:
The characters following "D-" in the SNOMED reference book.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.4^C
1)= S ^LAB(61.4,"C",$E(X,1,30),DA)=""
2)= K ^LAB(61.4,"C",$E(X,1,30),DA)
61.4,3 SYNONYMS 1;0 Multiple #61.41 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains common synonyms or misspellings of this disease.
61.41,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains synonyms, abbreviations, or common misspellings of this disease.
CROSS-REFERENCE: 61.4^D
1)= S ^LAB(61.4,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.4,"D",$E(X,1,30),DA(1),DA)
61.4,5 JOURNAL REFERENCE JR;0 Multiple #61.411 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains Journal references that apply to this disease.
61.411,.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 disease.
61.411,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.411,2 MEDICAL JOURNAL 0;3 POINTER TO LAB JOURNAL FILE (#95)
LAST EDITED: JUL 14, 1993
DESCRIPTION:
The name of the medical journal containing the article.
61.411,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.411,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.411,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.411,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 disease is involved, this
field requires a YES entry.
61.411,7 TOPOGRAPHY RESTRICTION 1;0 Multiple #61.421 (Add New Entry without Asking)
61.421,.01 TOPOGRAPHY RESTRICTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.UN) X
LAST EDITED: FEB 22, 1986
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION: To restrict printing references for certain organ/tissues with the
selected disease enter one or more characters of the topography code
(ex. for lung enter 28). No entry no restriction.
61.4,6 ABBREVIATION 0;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
DESCRIPTION:
This is a 1 to 5 character abbreviation for the disease. It is used as a unique code for it.
CROSS-REFERENCE: 61.4^B^MNEMONIC
1)= S ^LAB(61.4,"B",$E(X,1,30),DA)=1
2)= K ^LAB(61.4,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
LAB JOURNAL (#95) JOURNAL REFERENCE:MEDICAL JOURNAL (#2)
INPUT TEMPLATE(S):
LRAPDIS JUL 09, 1986 USER #0
LRAPDR JUL 09, 1986 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):