Sub-Field: 90.11

Parent File	Name	Number	Package
90.1	*ICD9 QUALIFIER DATE	90.11	Mental Health

Details

Field #	Name	Loc	Type	Details
.01	*ICD9 QUALIFIER DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 29, 1984` DESCRIPTION: `Diagnosis entries are qualified by PROVISIONAL, BY HISTORY, VERIFIED, etc. Diagnosis qualifier date must be entered first.` CROSS-REFERENCE: `90.1^CH^MUMPS` `1)= S ^MR(DA(2),"PHDX","CH",9999999-X,DA(1),DA)=""` `2)= K ^MR(DA(2),"PHDX","CH",9999999-X,DA(1),DA)`
1	*ICD9 QUALIFIER	0;2	SET	**********************REQUIRED FIELD********************** 'P' FOR PROVISIONAL; 'R' FOR RULE OUT; 'H' FOR BY HISTORY; 'V' FOR VERIFIED; 'N' FOR NOT FOUND; INPUT TRANSFORM: `I $D(V),(X="V"),'V K X W "MUST HAVE CLINICAL PRIVILEGE TO VERIFY" Q` LAST EDITED: `FEB 11, 1985` HELP-PROMPT: `Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	*USER	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `AUG 28, 1984`
3	*COMMENT	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<3) X` LAST EDITED: `AUG 28, 1984` HELP-PROMPT: `ANSWER MUST BE 3-70 CHARACTERS IN LENGTH`