Sub-Field: 90.1

Parent File	Name	Number	Package
MEDICAL RECORD(#90)	*ICD9 DIAGNOSIS	90.1	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: `AUG 28, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999`
.01	*ICD9 DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `AUG 29, 1984` CROSS-REFERENCE: `90.1^B` `1)= S ^MR(DA(1),"PHDX","B",$E(X,1,30),DA)=""` `2)= K ^MR(DA(1),"PHDX","B",$E(X,1,30),DA)`
1	*ICD9 QUALIFIER DATE	1;0	DATE Multiple #90.11	90.11 DESCRIPTION: `Sets date for entry type, e.g., provisional, verified, etc.`
2	*STATUS	0;2	SET	LAST EDITED: `AUG 28, 1984`
3	*STATUS DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 28, 1984`