STANDARD DATA DICTIONARY #615 -- MH CLINICAL FILE FILE 9/29/25 PAGE 1
STORED IN ^YS(615, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File stores data produced from the Problem List Option of the Mental Health System.
Exported with data.
COMPILED CROSS-REFERENCE ROUTINE: YSXRAJ
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B), PROBLEM(C)
615,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X Q
DESCRIPTION: This name points to the Patient file. It is the name of the patient for whom the problem list is
being made. To search data bases, or to print out problem lists by ward or clinic, use the
'Problist' name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 615^B
1)= S ^YS(615,"B",$E(X,1,30),DA)=""
2)= K ^YS(615,"B",$E(X,1,30),DA)
615,1 PROBLEM PL;0 POINTER Multiple #615.01 (Add New Entry without Asking)
DESCRIPTION:
This is the name of the problem category used in the Mental Health package.
615.01,.01 PROBLEM 0;1 POINTER TO PROBLEM FILE (#620) (Multiply asked)
INPUT TRANSFORM: S DINUM=X Q
OUTPUT TRANSFORM: S SCR=$P($G(Y(0)),U,2)
LAST EDITED: APR 23, 1999
DESCRIPTION: Problem, pointing to the 'Problem' file is the title of the problem selected for the 'Problist'
patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 615^C
1)= S ^YS(615,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^YS(615,"C",$E(X,1,30),DA(1),DA)
615.01,1 SPECIFY OTHER PROBLEM 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>70!($L(X)<3) X
LAST EDITED: JUN 13, 1984
HELP-PROMPT: ANSWER MUST BE 3-70 CHARACTERS IN LENGTH
DESCRIPTION: This is free text describing a problem 'Other' not found covered by the other specific problems
in the 'Problem' file. Only one 'Specify Other Problem' entry may be made. Multiple entries may
be made in the 'Specify Other Indicator' field.
615.01,2 PRIORITY 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION: This determines the order in which the Problem is presented to the user and printed. It is used
in the critical item screen and problem list printouts.
615.01,3 ONSET DATE 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date of problem onset. Requested when a problem is entered.
615.01,4 RECORDED DATE 0;5 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 08, 1987
DESCRIPTION:
Date problem was recorded. Mandatory, time of day important.
615.01,5 STAFF 0;6 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
Person entering problem on the list. Points to New Person file.
615.01,6 SCREEN 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: JUN 13, 1984
HELP-PROMPT: ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
DESCRIPTION:
This is the alphabetical key which associates a problem with its indicators.
615.01,7 PROBLEM INDICATOR 1;0 POINTER Multiple #615.02 (Add New Entry without Asking)
DESCRIPTION:
This is the problem indicator selected by the staff for that problem.
615.02,.01 PROBLEM INDICATOR 0;1 POINTER TO INDICATOR FILE (#625) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[$P(^DIC(620,DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 12, 1991
SCREEN: S DIC("S")="I $P(^(0),U,2)[$P(^DIC(620,DA,0),U,2)"
EXPLANATION: INDICATORS ASSOCIATED WITH SPECIFIC PROBLEMS
615.02,1 SPECIFY OTHER INDICATOR 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>70!($L(X)<3) X
LAST EDITED: DEC 12, 1991
HELP-PROMPT: ANSWER MUST BE 3-70 CHARACTERS IN LENGTH
DESCRIPTION: This free text entry allows adding another indicator not found in the pre-set list associated
with that problem.
615.02,2 STAFF 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 12, 1991
DESCRIPTION:
Person entering the indicator.
615.02,3 INDICATOR DATE 0;4 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 04, 1984
DESCRIPTION:
Date problem indicator was entered.
615.01,8 STATUS DATE 2;0 DATE Multiple #615.03 (Add New Entry without Asking)
DESCRIPTION:
Date that problem's status (Active, Inactive, Resolved, Reformulated) was added.
615.03,.01 DATE/TIME OF PROBLEM STATUS 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 15, 1984
HELP-PROMPT: TO ENTER STATUS OF A PROBLEM (E.G., ACTIVE, INACTIVE) THE DATE MUST FIRST BE ENTERED.
DESCRIPTION:
DATE PROBLEM STATUS WAS ENTERED OR CHANGED
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
615.03,1 STATUS 0;2 SET (Required)
'AC' FOR active;
'IN' FOR inactive;
'RA' FOR reactived;
'RF' FOR reformulated;
'RS' FOR resolved;
'RA' FOR ra (reactivated);
'RF' FOR rf (reformulated);
'RS' FOR rs (resolved);
LAST EDITED: FEB 18, 1992
DESCRIPTION:
Indicates status (e.g., Active, Inactive, Reformulated, Resolved) of the problem.
615.03,2 REFORMULATE TO 0;3 SET (Required)
'DSM' FOR dsm (DSM-III-R) diagnosis;
'ICD' FOR icd (ICD9) diagnosis;
'EP' FOR existing problem;
'NP' FOR new problem;
'OT' FOR other problem;
'EP' FOR ep (existing problem);
'NP' FOR np (new problem);
'OT' FOR op (other problem);
LAST EDITED: FEB 18, 1992
DESCRIPTION:
Problem name to which an existing problem has been reformulated.
615.03,3 REFORMULATION 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<.01)!(X?.E1"."4N.N) X
LAST EDITED: JUN 28, 1984
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 99999
DESCRIPTION: This number reflects the number of the problem, the DSM3 number or ICD9 number to which the
old problem has been reformulated.
615.03,4 STAFF 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 12, 1991
DESCRIPTION:
Person who has entered or changed the problem status.
FILES POINTED TO FIELDS
INDICATOR (#625) PROBLEM INDICATOR:PROBLEM INDICATOR (#.01)
NEW PERSON (#200) PROBLEM:STAFF (#5)
PROBLEM INDICATOR:STAFF (#2)
STATUS DATE:STAFF (#4)
PATIENT (#2) NAME (#.01)
PROBLEM (#620) PROBLEM:PROBLEM (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):