STANDARD DATA DICTIONARY #61.6 -- OCCUPATION FIELD FILE 9/29/25 PAGE 1
STORED IN ^LAB(61.6, (1507 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the OCCUPATION field of SNOMED
IDENTIFIED BY: SNOMED CODE (#2)[R]
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(B), SNOMED CODE(C), SYNONYM(D)
61.6,.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 job.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 61.6^B
1)= S ^LAB(61.6,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.6,"B",$E(X,1,30),DA)
61.6,2 SNOMED CODE 0;2 FREE TEXT (Required)
ENTER CHARACTERS FOLLOWING 'J-' IN SNOMED REFERENCE BOOK
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1"J-".E)!(X?1"J"1N.E) X I $D(X) S Y=$O(^LAB(61.6,"C",X,0)) I Y>0 K:
'$D(^LAB(61.6,Y,0)) ^LAB(61.6,"C",X,Y) I $D(^LAB(61.6,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 "J-" in the SNOMED reference book.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.6^C
1)= S ^LAB(61.6,"C",$E(X,1,30),DA)=""
2)= K ^LAB(61.6,"C",$E(X,1,30),DA)
61.6,3 SYNONYMS 1;0 Multiple #61.61 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains synonyms or common misspellings of this job.
61.61,.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
LAST EDITED: JUL 29, 1983
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains synonyms, abbreviations, or common misspellings of this job.
CROSS-REFERENCE: 61.6^D
1)= S ^LAB(61.6,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.6,"D",$E(X,1,30),DA(1),DA)
61.6,5 JOURNAL REFERENCE JR;0 Multiple #61.62 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains journal references that apply to this job.
61.62,.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 job.
61.62,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.62,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.62,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.62,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.62,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.62,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 job is involved, this field
requires a YES entry.
61.6,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 this job. It is used as a unique code for it.
CROSS-REFERENCE: 61.6^B^MNEMONIC
1)= S ^LAB(61.6,"B",$E(X,1,30),DA)=1
2)= K ^LAB(61.6,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
LAB JOURNAL (#95) JOURNAL REFERENCE:MEDICAL JOURNAL (#2)
INPUT TEMPLATE(S):
LRAPOCC JUL 09, 1986 USER #0
LRAPOR JUL 09, 1986 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):