STANDARD DATA DICTIONARY #627.8 -- DIAGNOSTIC RESULTS - MENTAL HEALTH FILE 3/24/25 PAGE 1
STORED IN ^YSD(627.8, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File contains the results of the Diagnosis Option in the Mental Health System.
"AC" Xref - DFN, Inverse Date, Dx, Status, IFN.
Used to list dx as Active, Inactive, etc.
"AE" Xref - Type (DSM or ICD DIAGNOSIS), DFN, System Dte, Dx, DFN.
Used for reference.
"AF" Xref - DFN, Inverse Date, DX, IFN.
Used for historical listing.
"AG" Xref - Type (DSM or ICD DIAGNOSIS), DFN, Dx, IFN.
Used for listing duplicate diagnoses.
COMPILED CROSS-REFERENCE ROUTINE: YSXRAY
CROSS
REFERENCED BY: CONDITION(AC), DXLS(AD), DIAGNOSIS(AE), DIAGNOSIS(AF), DIAGNOSIS(AG), DXLS(AH), SEVERITY CODE(AX4), AXIS 5(AX5),
FILE ENTRY DATE(B), PATIENT NAME(C)
627.8,.01 FILE ENTRY DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=$P($H,",",2),Y=Y_"."_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_
(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X
DESCRIPTION:
Date/time patient data entered into file. Transparent to user.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 627.8^B
1)= S ^YSD(627.8,"B",$E(X,1,30),DA)=""
2)= K ^YSD(627.8,"B",$E(X,1,30),DA)
627.8,.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: SEP 03, 1996
DESCRIPTION:
Patient name. Set through the routine, ^YSLRP.
CROSS-REFERENCE: 627.8^C
1)= S ^YSD(627.8,"C",$E(X,1,30),DA)=""
2)= K ^YSD(627.8,"C",$E(X,1,30),DA)
627.8,.03 DATE/TIME OF DIAGNOSIS 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date and time of diagnosis as indicated by person formulating the dx.
627.8,.04 DIAGNOSIS BY 0;4 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
Person responsible for dx. Not necessarily the transcriber.
627.8,.05 TRANSCRIBER 0;5 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
Person entering data into the file. Transparent to user.
627.8,1 DIAGNOSIS 1;1 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
80 2 I n ICD DIAGNOSIS
627.5 1 D n DSM-III-R
627.7 3 4 n DSM
INPUT TRANSFORM: D DXVALID^YSDXUTL
LAST EDITED: APR 11, 2012
HELP-PROMPT: Enter a DSM code for Axes 1 or 2; an ICD DIAGNOSIS Code for Axis 3.
DESCRIPTION: The diagnosis is a condition which may be responsible for the evaluation or admission to clinical
care.
CROSS-REFERENCE: 627.8^AE^MUMPS
1)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z"),^YSD(627.8,"AE",X1,$P(^YSD(627.8,DA,0),"^",2),$P(^YSD(62
7.8,DA,0),"^",3),$E(X,1,30),DA)=""
2)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z") K ^YSD(627.8,"AE",X1,$P(^YSD(627.8,DA,0),"^",2),$P(^YSD(
627.8,DA,0),"^",3),$E(X,1,30),DA)
CROSS-REFERENCE: 627.8^AF^MUMPS
1)= S ^YSD(627.8,"AF",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30)
,DA)=""
2)= K ^YSD(627.8,"AF",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30)
,DA)
CROSS-REFERENCE: 627.8^AG^MUMPS
1)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z"),^YSD(627.8,"AG",X1,$P(^YSD(627.8,DA,0),"^",2),$E(X,1,30)
,DA)=""
2)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z") K ^YSD(627.8,"AG",X1,$P(^YSD(627.8,DA,0),"^",2),$E(X,1,3
0),DA)
627.8,5 STATUS (V/P/R/I/N/RU) 1;2 SET (Required)
'v' FOR VERIFIED;
'p' FOR PROVISIONAL;
'r' FOR REFORMULATED;
'i' FOR INACTIVE;
'n' FOR NOT FOUND;
'ru' FOR RULE OUT;
DESCRIPTION:
This is a SET of codes defining the status of the diagnosis.
627.8,7 CONDITION 1;4 SET (Required)
'A' FOR ACTIVE;
'I' FOR INACTIVATED;
DESCRIPTION: States whether a dx is clinically active or inactive. (Active is based on the status of verified
or provisional. All others are considered inactive.)
CROSS-REFERENCE: 627.8^AC^MUMPS
1)= S ^YSD(627.8,"AC",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),$P(^YSD(627.8,D
A,1),"^"),X,DA)=""
2)= K ^YSD(627.8,"AC",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),$P(^YSD(627.8,D
A,1),"^"),X,DA)
627.8,8 INACTIVATED DATE 1;5 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION: When a dx status changes from active to inactive, this flags is set. This permits the system to
show only truly active dx while maintaining a history of the dx's status.
627.8,9 STATUS CHANGED 1;6 SET
'Y' FOR YES;
'N' FOR NO;
DESCRIPTION:
Indicates if this dx's status has been changes from Active to Inactive.
627.8,10 DXLS 1;3 SET (Required)
'y' FOR YES;
'n' FOR NO;
'c' FOR CHANGED;
DESCRIPTION: This is the diagnosis accounting for the largest % of length of stay for an admission. There may
only be ONE DXLS (DSM or ICD DIAGNOSIS) per admission.
This information may not be the same as that stored in the Patient Treatment Folder (PTF).
CROSS-REFERENCE: 627.8^AD^MUMPS
1)= S:X="y" ^YSD(627.8,"AD",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),DA)=
""
2)= K:X="y" ^YSD(627.8,"AD",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),DA)
CROSS-REFERENCE: 627.8^AH^MUMPS
1)= I "yc"[X S ^YSD(627.8,"AH",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),DA)=""
2)= I "yc"[X K ^YSD(627.8,"AH",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),DA)
627.8,50 MODIFIERS 5;0 POINTER Multiple #627.82 (Add New Entry without Asking)
DESCRIPTION:
Modifiers further clarify the diagnosis. They are entered in accordance with the DSM-IV Manual.
627.82,.01 MODIFIER 0;1 POINTER TO DSM MODIFIERS FILE (#627.9) (Multiply asked)
DESCRIPTION:
Each dx has a modifier or group of modifiers to further define itself.
CROSS-REFERENCE: 627.82^B
1)= S ^YSD(627.8,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^YSD(627.8,DA(1),5,"B",$E(X,1,30),DA)
627.82,1 NUMBER OF ANSWER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
DESCRIPTION:
Stores the response made by the responsible party to the modifier.
627.82,2 STANDS FOR 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
DESCRIPTION:
Actual narrative of modifier. Stored to speed printout of lists and reports.
627.8,60 PSYCHOSOCIAL STRESSOR 60;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
HELP-PROMPT: Short, descriptive narrative of stressor (1-60 characters in length).
DESCRIPTION: A stressor frequently plays a precipitating role in a disorder or it may also be a consequence of
the person's psychopathology.
627.8,61 SEVERITY CODE 60;2 SET
'1' FOR NONE;
'2' FOR MILD;
'3' FOR MODERATE;
'4' FOR SEVERE;
'5' FOR EXTREME;
'6' FOR CATASTROPHIC;
'0' FOR INADEQUATE INFORMATION/NO CHANGE IN CONDITION;
HELP-PROMPT: Enter degree (0-6) of severity of psychosocial stressor.
DESCRIPTION: Axis 4 provides a scale, the Severity of Psychosocial Stressors Scale, for coding overall severity
of a psychosocial stressor or multiple psychosocial stressors that have occurred in the year
preceding the current evaluation.
CROSS-REFERENCE: 627.8^AX4^MUMPS
1)= N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,"AX4",$P(X1,U,2),9999999-$P(X1,U,3),DA)=""
2)= N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,"AX4",$P(X1,U,2),9999999-$P(X1,U,3),DA)
627.8,65 AXIS 5 60;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 26, 1997
HELP-PROMPT: Type a number (1-100) relevant to the GAF Scale.
DESCRIPTION: Axis 5 permits the clinician to indicate his/her overall judgment of a person's psychological,
social and occupation functioning on a scale, the Global Assessment of Functioning (GAF Scale),
that assesses mental illness.
CROSS-REFERENCE: 627.8^AX5^MUMPS
1)= N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,"AX5",$P(X1,U,2),9999999-$P(X1,U,3),DA)=""
2)= N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,"AX5",$P(X1,U,2),9999999-$P(X1,U,3),DA)
627.8,66 PATIENT TYPE 60;4 SET
'I' FOR In-Patient;
'O' FOR Out-Patient;
LAST EDITED: JUN 15, 1998
HELP-PROMPT: Please enter 'I' for In-Patient or 'O' for Out-Patient
DESCRIPTION:
Patient Type indicates that the patient is either an 'I'n-Patient or 'O'ut-Patient.
627.8,80 COMMENT 80;0 WORD-PROCESSING #627.81 (NOWRAP)
DESCRIPTION:
This is additional comments describing this diagnosis.
FILES POINTED TO FIELDS
DSM (#627.7) DIAGNOSIS (#1)
DSM MODIFIERS (#627.9) MODIFIERS:MODIFIER (#.01)
DSM-III-R (#627.5) DIAGNOSIS (#1)
ICD DIAGNOSIS (#80) DIAGNOSIS (#1)
NEW PERSON (#200) DIAGNOSIS BY (#.04)
TRANSCRIBER (#.05)
PATIENT (#2) PATIENT NAME (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):