STANDARD DATA DICTIONARY #620 -- PROBLEM FILE                                                                     9/29/25    PAGE 1
STORED IN ^DIC(620,  (29 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                      (VERSION 5.01)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File stores the 29 clinical problems developed for use by the Mental Health System.  
   
Exported with data.  


COMPILED CROSS-REFERENCE ROUTINE: YSXRAU
              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

POINTED TO BY: PROBLEM field (#.01) of the PROBLEM sub-field (#615.01) of the MH CLINICAL FILE File (#615) 
               

CROSS
REFERENCED BY: PROBLEM(B), PROBLEM(C), UPPER(D)



620,.001      NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      JAN 27, 1984 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 99 
              DESCRIPTION:
                                This is the internal entry number.  


620,.01       PROBLEM                0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              LAST EDITED:      DEC 13, 1991 
              HELP-PROMPT:      ANSWER MUST BE 3-75 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the name of the problem category used in the Mental Health package problem list.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

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

              CROSS-REFERENCE:  620^C^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(620,"C",I
                                ,DA)=""

                                2)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(620,"C",I,DA)


620,1         SCREEN                 0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
              LAST EDITED:      DEC 12, 1984 
              HELP-PROMPT:      ANSWER MUST BE 1-2 CHARACTERS IN LENGTH 
              DESCRIPTION:      Screen is a code which pulls indicators having this code in their 'Screen' field in association
                                with the parent 'Problem'. Screen is generally a single upper case or lower case letter. The 
                                'Other' problem has A1 as its screen.  


620,2         UPPER                  1;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<3) X
              LAST EDITED:      MAY 17, 1984 
              HELP-PROMPT:      ANSWER MUST BE 3-75 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the problem name in uppercase.  It is used as a cross reference.  

              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  620^D^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(620,"D",I
                                ,DA)=""

                                2)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(620,"D",I,DA)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):