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):