STANDARD DATA DICTIONARY #627 -- DSM3 FILE 6/27/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):