Sub-Field: 120.899999912

Parent File	Name	Number	Package
PATIENT ALLERGIES(#120.8)	INACTIVATE	120.899999912	Adverse Reaction Tracking

Details

Field #	Name	Loc	Type	Details
.01	INACTIVATE	0;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:X<1 X` LAST EDITED: `OCT 12, 2010` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `120.899999912^B` 1)= S ^GMR(120.8,DA(1),9999999.12,"B",$E(X,1,30),DA)="" 2)= K ^GMR(120.8,DA(1),9999999.12,"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)=""I""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 2010` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""I"""` EXPLANATION: `Only allow valid entries for reason to inactivate`
2	INACTIVATE BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 12, 2010`
3	REACTIVATE	0;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:X<1 X` LAST EDITED: `OCT 12, 2010` HELP-PROMPT: `(No range limit on date)`
4	REACTIVATE BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 12, 2010`