Sub-Field: 90.04

Parent File	Name	Number	Package
MEDICAL RECORD(#90)	*DSM-III DIAGNOSIS	90.04	Mental Health

Details

Field #	Name	Loc	Type	Details
.001	*NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999`
.01	*DSM-III DIAGNOSIS	0;1	POINTER TO DSM3 FILE (#627)	**********************REQUIRED FIELD********************** DSM3(#627) LAST EDITED: `OCT 05, 1984` HELP-PROMPT: `ENTER DSM-III CODE NUMBER OR ONE MOST DESCRIPTIVE WORD.` CROSS-REFERENCE: `90.04^B` `1)= S ^MR(DA(1),"DX","B",$E(X,1,30),DA)=""` `2)= K ^MR(DA(1),"DX","B",$E(X,1,30),DA)`
1	*DSM-III QUALIFIER DATE	1;0	DATE Multiple #90.05	90.05 DESCRIPTION: `DX entries are qualified with PROVISIONAL, BY HISTORY, VERIFIED, etc. DX qualifier date must be entered first.`
2	*STATUS	0;2	SET	LAST EDITED: `MAR 01, 1984`
3	*STATUS DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2990000X) X` LAST EDITED: `FEB 15, 1984` HELP-PROMPT: `TYPE A DATE BETWEEN 1980 AND 1999`