STANDARD DATA DICTIONARY #627.5 -- DSM-III-R FILE                                                                 6/27/25    PAGE 1
STORED IN ^DIC(627.5,  (316 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 5.01)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File contains the DSM-III-R codes and descriptions.  These codes are now stored in the DSM (^YSD(627.7,) file.  This file will be
deleted in a future release.  
    
Exported with data.  


COMPILED CROSS-REFERENCE ROUTINE: YSXRAX
IDENTIFIED BY: ICD9 NUMBER (#1)[R]

POINTED TO BY: DIAGNOSIS field (#1) of the DIAGNOSTIC RESULTS - MENTAL HEALTH File (#627.8) 
               

CROSS
REFERENCED BY: DIAGNOSIS(B), ICD9 NUMBER(D), KEY WORD FRAGMENTS(E)



627.5,.01     DIAGNOSIS              0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      ANSWER MUST BE 3-200 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the DSMIII-R diagnosis name.  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  627.5^B 
                                1)= S ^DIC(627.5,"B",$E(X,1,30),DA)=""
                                2)= K ^DIC(627.5,"B",$E(X,1,30),DA)


627.5,1       ICD9 NUMBER            0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3) X
              LAST EDITED:      DEC 02, 1988 
              HELP-PROMPT:      ANSWER MUST BE VALID ICD9 CODE CONSISTING OF 3-6 CHARACTERS (e.g., 301.00, 301.70, V15.81) 
              DESCRIPTION:
                                This is the DSMIII-R and ICD9 code number.  There is no longer a unique DSMIII number.  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  627.5^D 
                                1)= S ^DIC(627.5,"D",$E(X,1,30),DA)=""
                                2)= K ^DIC(627.5,"D",$E(X,1,30),DA)


627.5,2       QUALIFIER STRING       2;0 POINTER Multiple #627.51 (Add New Entry without Asking)

              DESCRIPTION:
                                This is a multiple valued field with subfields.  


627.51,.01      QUALIFIER STRING       0;1 POINTER TO DSM MODIFIERS FILE (#627.9) (Multiply asked)

                LAST EDITED:      NOV 18, 1988 
                DESCRIPTION:      This is a DIAGNOSIS qualifier, a description that helps to more completely define the DIAGNOSIS. 
                                  Actually stored in this field is a pointer value pointing to the DSM-III-R MODIFIERS file #627.9.  

                CROSS-REFERENCE:  627.51^B 
                                  1)= S ^DIC(627.5,DA(1),2,"B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(627.5,DA(1),2,"B",$E(X,1,30),DA)




627.5,3       DSM DISORDER IEN       0;3 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      NOV 30, 1993 
              HELP-PROMPT:      Type a Number between 1 and 9999, 0 Decimal Digits 
              DESCRIPTION:
                                This is the new IEN in the DSM (627.7) file.  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^

627.5,5       KEY WORD FRAGMENTS     1;1 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>250!($L(X)<2) X
              HELP-PROMPT:      ANSWER MUST BE 2-250 CHARACTERS IN LENGTH 
              DESCRIPTION:      This is a string of KEY WORDS each of which is used as a lookup word to assist in finding the
                                desired DIAGNOSIS.  

              CROSS-REFERENCE:  627.5^E^KWIC 
                                1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC
                                ")'[I S ^DIC(627.5,"E",I,DA)=""

                                2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^DIC(62
                                7.5,"E",I,DA)


627.5,15      SHORT TITLE            3;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
              LAST EDITED:      DEC 09, 1987 
              HELP-PROMPT:      ANSWER MUST BE 2-30 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                A 2-30 character description of the more lengthy diagnosis narrative.  



      FILES POINTED TO                      FIELDS

DSM MODIFIERS (#627.9)            QUALIFIER STRING:QUALIFIER STRING (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):