Sub-Field: 90.05

Parent File	Name	Number	Package
90.04	*DSM-III QUALIFIER DATE	90.05	Mental Health

Details

Field #	Name	Loc	Type	Details
.01	*DSM-III QUALIFIER DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DT` `LAST EDITED: FEB 15, 1984` `DESCRIPTION:` `Diagnosis entries are qualified with PROVISIONAL, BY HISTORY, VERIFIED, etc. Diagnosis qualifier date must be entered first.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 90.04^CH^MUMPS` `1)= S ^MR(DA(2),"DX","CH",9999999-X,DA(1),DA)=""` `2)= K ^MR(DA(2),"DX","CH",9999999-X,DA(1),DA)`
1	*DSM-III 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: `NOV 27, 1984` HELP-PROMPT: `Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	*ACCESS CODE	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 19, 1989`
3	*COMMENT	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>65!($L(X)<2) X` LAST EDITED: `JAN 19, 1989` HELP-PROMPT: `ANSWER MUST BE 2-65 CHARACTERS IN LENGTH`
6	*OLD COMMENT	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH`