Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^YSD(627.8

Package: Mental Health

Global: ^YSD(627.8

Information

FileMan FileNo	FileMan Filename	Package
627.8	DIAGNOSTIC RESULTS - MENTAL HEALTH	Mental Health

Description

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.

Accessed By FileMan Db Calls, Total: 15

Pointer To FileMan Files, Total: 6

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	FILE ENTRY DATE	0;1	DATE	**********************REQUIRED FIELD********************** 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)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) 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)`
.03	DATE/TIME OF DIAGNOSIS	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
.04	DIAGNOSIS BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) DESCRIPTION: `Person responsible for dx. Not necessarily the transcriber.`
.05	TRANSCRIBER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) DESCRIPTION: `Person entering data into the file. Transparent to user.`
1	DIAGNOSIS	1;1	VARIABLE POINTER	ICD DIAGNOSIS(#80) DSM-III-R(#627.5) DSM(#627.7) 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(627.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,30),DA)`
5	STATUS (V/P/R/I/N/RU)	1;2	SET	**********************REQUIRED FIELD********************** '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.`
7	CONDITION	1;4	SET	**********************REQUIRED FIELD********************** '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,DA,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,DA,1),"^"),X,DA)`
8	INACTIVATED DATE	1;5	DATE	**********************REQUIRED FIELD********************** 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.`
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.`
10	DXLS	1;3	SET	**********************REQUIRED FIELD********************** '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)`
50	MODIFIERS	5;0	POINTER Multiple #627.82	627.82 DESCRIPTION: `Modifiers further clarify the diagnosis. They are entered in accordance with the DSM-IV Manual.`
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.`
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)`
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)`
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.`
80	COMMENT	80;0	WORD-PROCESSING #627.81	DESCRIPTION: `This is additional comments describing this diagnosis.`

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All