STANDARD DATA DICTIONARY #627 -- DSM3 FILE 9/29/25 PAGE 1
STORED IN ^DIC(627, (350 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
DSM3 Diagnoses. This file is no longer active. It will be removed when no longer clinically relevant.
Exported with data.
COMPILED CROSS-REFERENCE ROUTINE:
YSXRAW
IDENTIFIED BY: *ICDA NUMBER (#1)[R]
POINTED TO BY: *PRINCIPAL DSM-III DIAGNOSIS field (#102) of the MEDICAL RECORD File (#90)
*X DSM-III DIAGNOSIS field (#102.6) of the MEDICAL RECORD File (#90)
*DSM-III DIAGNOSIS field (#.01) of the *DSM-III DIAGNOSIS sub-field (#90.04) of the MEDICAL RECORD File (#90)
*PAST PRINCIPAL DX field (#.01) of the *PAST PRINCIPAL DX sub-field (#90.06) of the MEDICAL RECORD File (#90)
*PAST X DIAGNOSIS field (#.01) of the *PAST X DIAGNOSIS sub-field (#90.07) of the MEDICAL RECORD File (#90)
CROSS
REFERENCED BY: *NAME(B), *ICDA NUMBER(D), *KEYWORD FRAGMENTS(E)
627,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1) X
LAST EDITED: AUG 10, 1993
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION: This number is the official DSM 3 diagnosis number. It has been placed in the field which reflects
the internal entry number. Added diagnoses should follow this.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
627,.01 *NAME 0;1 FREE TEXT (Required)
DIAGNOSIS
INPUT TRANSFORM: K:$L(X)>100!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: OCT 04, 1983
HELP-PROMPT: ANSWER MUST BE 2-100 CHARACTERS IN LENGTH
DESCRIPTION: This is the official name of the DSM 3 diagnosis. It should be in caps and lower case. A few long
names are abbreviated to avoid screen wraparound on display at lookup.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 627^B
1)= S ^DIC(627,"B",$E(X,1,30),DA)=""
2)= K ^DIC(627,"B",$E(X,1,30),DA)
627,1 *ICDA NUMBER 0;2 FREE TEXT (Required)
ICDA9 NUMBER
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X
HELP-PROMPT: Enter the DSM III code
DESCRIPTION: This is the International Classification of Diseases code number for the DSM 3 diagnosis. Not
currently displayed to users, it will be available to MAS if they need to use the ICDA code for
their statistics.
CROSS-REFERENCE: 627^D
1)= S ^DIC(627,"D",$E(X,1,30),DA)=""
2)= K ^DIC(627,"D",$E(X,1,30),DA)
627,2 *DSMIII SPECIFICATION 0;3 FREE TEXT (Required)
DSMIII SPECIFICATION
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X
LAST EDITED: FEB 16, 1984
HELP-PROMPT: ANSWER MUST BE 3-8 CHARACTERS IN LENGTH
DESCRIPTION:
This is the DSM 3 code number.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
627,3 *KEYWORD FRAGMENTS 2;1 FREE TEXT
KEYWORD FRAGMENTS
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S X=" "_X K:$L(X)>200!($L(X)<3) X
LAST EDITED: OCT 04, 1983
HELP-PROMPT: Type in KEYWORDS or KEYWORD fragments separated by blank spaces to name the diagnosis. For example,
'MAJ DEP' will display the various Major Depressions.
DESCRIPTION: This field contains, in capital letters, the KEY words describing the diagnosis. The multiple
keyword fragment lookup allows looking up that diagnosis by several keywords (including synonyms).
For example, 'HEROIN' will work as well as 'OPIATE' for looking up opiate dependency. One can look
up this diagnosis by typing keyword fragments separated by blank spaces: e.g. 'HER DEP' or 'OPIA
DEP'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 627^E^KWIC
1)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^DIC(627,"E",I
,DA)=""
2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(627,"E",I,DA)
627,4 *NUMERIC ; COMPUTED
NUMERIC
MUMPS CODE: S Y(627,4,1)=$S($D(^DIC(627,D0,0)):^(0),1:"") S X=$P(Y(627,4,1),U,2)
ALGORITHM: ICDA NUMBER
DESCRIPTION:
This field is pulled from the ICDA number.
627,20 DSM DISORDER IEN 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
This is the new IEN in the DSM (627.7) file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):