Sub-Field: 120.869999911

Parent File	Name	Number	Package
ADVERSE REACTION ASSESSMENT(#120.86)	UNASSESSABLE	120.869999911	Adverse Reaction Tracking

Details

Field #	Name	Loc	Type	Details
.01	UNASSESSABLE	0;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 09, 2011` HELP-PROMPT: `Enter the date/time the patient could not be assessed for allergies` DESCRIPTION: Multiple to document patients who could not be assessed for allergies CROSS-REFERENCE: `120.869999911^B` 1)= S ^GMR(120.86,DA(1),9999999.11,"B",$E(X,1,30),DA)="" 2)= K ^GMR(120.86,DA(1),9999999.11,"B",$E(X,1,30),DA)
1	REASON	0;2	POINTER TO BEH ALLERGY VALUES FILE (#90460.05)	BEH ALLERGY VALUES(#90460.05) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 2010` HELP-PROMPT: `Enter the reason the patient could not be assessed` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""A"""` EXPLANATION: `Only allow entry that are type unable to assess`
2	USER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 12, 2010` HELP-PROMPT: `User who determined patient could not be assessed`
3	RESOLVED	0;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 12, 2010` HELP-PROMPT: `Date/time that patient could be assessed for allergies`
4	RESOLVED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 12, 2010` HELP-PROMPT: `Enter user who resolved the allergy assessment`
5	COMMENT	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `DEC 07, 2010` HELP-PROMPT: `Answer must be 3-60 characters in length`