Global: ^MR

FileMan FileNo	FileMan Filename	Package
90	MEDICAL RECORD	Mental Health

Package	Total	Routines
Health Summary	1	GMTSMHPE
Mental Health	1	^YSG("INP"

Package	Total	Routines
Health Summary	1	GMTSMHPE

Package	Total	FileMan Files
DRG Grouper	1	ICD DIAGNOSIS(#80)[113, 113.6, #90.1(.01), #90.16(.01), #90.17(.01)]
Kernel	1	NEW PERSON(#200)[106, 109, #90.01(29), #90.05(2), #90.06(2), #90.07(2), #90.11(2), #90.16(2), #90.17(2)]
Mental Health	1	DSM3(#627)[102, 102.6, #90.04(.01), #90.06(.01), #90.07(.01)]
Registration	1	PATIENT(#2)[.01]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 06, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999` DESCRIPTION: `This is the internal file number of the diagnosis.`
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `AUG 30, 1984` DESCRIPTION: `This is the patient's name.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90^B` `1)= S ^MR("B",$E(X,1,30),DA)=""` `2)= K ^MR("B",$E(X,1,30),DA)`
100	PHY	PE;0	DATE Multiple #90.01	90.01 DESCRIPTION: `This field contains the results of the physical examination.`
101	*PRINCIPAL DSM-III DX DATE	DX1;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 10, 1984` DESCRIPTION: `This is the date the principal DSM-II diagnosis was entered.`
102	*PRINCIPAL DSM-III DIAGNOSIS	DX1;2	POINTER TO DSM3 FILE (#627)	**********************REQUIRED FIELD********************** DSM3(#627) LAST EDITED: `OCT 11, 1984` DESCRIPTION: `This is the DSM-III code for the diagnosis which is the primary reason for treatment.`
102.4	*X DSM-III DIAGNOSIS DATE	DX1;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2990000X) X` LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `TYPE A DATE BETWEEN 1970 AND 1999` DESCRIPTION: `This is the date the DSM-III X diagnosis was entered.`
102.6	*X DSM-III DIAGNOSIS	DX1;4	POINTER TO DSM3 FILE (#627)	**********************REQUIRED FIELD********************** DSM3(#627) LAST EDITED: `OCT 12, 1984` DESCRIPTION: `This is the DSM-III diagnosis accounting for the largest percentage of the length of stay.`
103	*DSM-III DIAGNOSIS	DX;0	POINTER Multiple #90.04	90.04 DESCRIPTION: `This is the code of the DSM-III diagnosis.`
104	*AXIS 4	DXM;1	SET	'1' FOR NONE; '2' FOR MINIMAL; '3' FOR MILD; '4' FOR MODERATE; '5' FOR SEVERE; '6' FOR EXTREME; '7' FOR CATASTROPHIC; '0' FOR UNSPECIFIED; LAST EDITED: `FEB 24, 1984` DESCRIPTION: `This is the rating code for severity of psychosicial stressor.` CROSS-REFERENCE: `^^TRIGGER^90^105` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,104,1,1,1.4)` `1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X S %=$P(DIH,U,3,999),^("DXM")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= TODAY` `DELETE VALUE)= NO EFFECT` `FIELD)= AXIS 4 DATE` CROSS-REFERENCE: `^^TRIGGER^90^106` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,3) S DIU=X K Y S X=DUZ X ^DD(90,104,1,2,1.4)` `1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^("DXM")=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= AXIS 4 BY`
105	*AXIS 4 DATE	DXM;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2990000X) X` LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `TYPE A DATE BETWEEN 1970 AND 1999` DESCRIPTION: `This is the date a given psychosocial stressor code is entered.` NOTES: `TRIGGERED by the *AXIS 4 field of the MEDICAL RECORD File`
106	*AXIS 4 BY	DXM;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 25, 1984` DESCRIPTION: `This is the name of the user entering a given psychosical stressor code.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the *AXIS 4 field of the MEDICAL RECORD File`
107	*AXIS 5	DXM;4	SET	'1' FOR SUPERIOR; '2' FOR VERY GOOD; '3' FOR GOOD; '4' FOR FAIR; '5' FOR POOR; '6' FOR VERY POOR; '7' FOR GROSSLY IMPAIRED; '0' FOR UNSPECIFIED; LAST EDITED: `FEB 24, 1984` DESCRIPTION: `This is the rating code for highest level of adaptive functioning past year.` CROSS-REFERENCE: `^^TRIGGER^90^108` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,5) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,107,1,1,1.4)` `1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),^("DXM")=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= TODAY` `DELETE VALUE)= NO EFFECT` `FIELD)= AXIS 5 D` CROSS-REFERENCE: `^^TRIGGER^90^109` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,6) S DIU=X K Y S X=DUZ X ^DD(90,107,1,2,1.4)` `1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),^("DXM")=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= AXIS 5 B`
108	*AXIS 5 DATE	DXM;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2990000X) X` LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `TYPE A DATE BETWEEN 1970 AND 1999` DESCRIPTION: `This is the date a given adaptive functioning code is entered.` NOTES: `TRIGGERED by the *AXIS 5 field of the MEDICAL RECORD File`
109	*AXIS 5 BY	DXM;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 25, 1984` DESCRIPTION: `This is the name of the user entering a given adaptive functioning code.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the *AXIS 5 field of the MEDICAL RECORD File`
110	*PAST PRINCIPAL DX	PDX;0	POINTER Multiple #90.06	90.06 DESCRIPTION: `This is the past DSM-III diagnosis that was the primary reason for treatment.`
111	*PAST X DIAGNOSIS	XDX;0	POINTER Multiple #90.07	90.07 DESCRIPTION: `This is the past DSM-III code which accounted for the largest percentage of the length of stay.`
112	*PRINCIPLE ICD9 DX DATE	DX2;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 1984` DESCRIPTION: `This is the date the principal ICD9 diagnosis was entered.`
113	*PRINCIPAL ICD9 DIAGNOSIS	DX2;2	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) LAST EDITED: `OCT 12, 1984` DESCRIPTION: `This is the ICD9 code for the diagnosis which is the primary reason for treatment.`
113.4	*X ICD9 DIAGNOSIS DATE	DX2;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 1984` DESCRIPTION: `This is the date the ICD9 X diagnosis was entered.`
113.6	*X ICD9 DIAGNOSIS	DX2;4	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `OCT 12, 1984` DESCRIPTION: `This is the ICD9 diagnosis accounting for the largest percentage of the length of stay.`
115	*ICD9 DIAGNOSIS	PHDX;0	POINTER Multiple #90.1	90.1 DESCRIPTION: `This is the code of the ICD9 diagnosis.`
116	*PAST PRINCIPAL ICD9 DX	PPDX;0	POINTER Multiple #90.16	90.16 DESCRIPTION: `This is the past ICD9 diagnosis that was the primary reason for treatment.`
117	*PAST ICD9 X DIAGNOSIS	XPDX;0	POINTER Multiple #90.17	90.17 DESCRIPTION: `This is the past ICD9 diagnosis code which accounted for the largest percentage of length of stay.`

Customize PDF page

Package: Mental Health

Global: ^MR

Information

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 23