Sub-Field: 9000011.13

Parent File	Name	Number	Package
PROBLEM(#9000011)	SEVERITY	9000011.13	IHS Patient

Details

Field #	Name	Loc	Type	Details
.01	SEVERITY	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 14, 2013` HELP-PROMPT: `Enter a Severity SNOMED.` AUDIT: `EDITED OR DELETED` CROSS-REFERENCE: `9000011.13^B` 1)= S ^AUPNPROB(DA(1),13,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPROB(DA(1),13,"B",$E(X,1,30),DA)
.019	SEVERITY PREFERRED TERM		COMPUTED	MUMPS CODE: `S Y(9000011.13,.019,1)=$S($D(^AUPNPROB(D0,13,D1,0)):^(0),1:"") S X=$P(Y(9000011.13,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)` ALGORITHM: `AUPNPT(#.01)`
.02	ENTERED BY	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 31, 2013`
.03	DATE/TIME ENTERED	0;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 31, 2013`
.04	MODIFIED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 07, 2013`
.05	DATE/TIME MODIFIED	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2013`