Sub-Field: 9000011.18

Parent File	Name	Number	Package
PROBLEM(#9000011)	CLINICAL COURSE	9000011.18	IHS Patient

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINICAL COURSE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 15, 2013` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `9000011.18^B` 1)= S ^AUPNPROB(DA(1),18,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPROB(DA(1),18,"B",$E(X,1,30),DA)
.019	CLINICAL COURSE PREFERRED TERM		COMPUTED	MUMPS CODE: `S Y(9000011.18,.019,1)=$S($D(^AUPNPROB(D0,18,D1,0)):^(0),1:"") S X=$P(Y(9000011.18,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)` ALGORITHM: `AUPNPT(#.01)`

CLINICAL COURSE

0;1

FREE TEXT

CROSS-REFERENCE: 9000011.18^B

1)= S ^AUPNPROB(DA(1),18,"B",$E(X,1,30),DA)=""

2)= K ^AUPNPROB(DA(1),18,"B",$E(X,1,30),DA)

CLINICAL COURSE PREFERRED TERM

COMPUTED

MUMPS CODE: S Y(9000011.18,.019,1)=$S($D(^AUPNPROB(D0,18,D1,0)):^(0),1:"") S X=$P(Y(9000011.18,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
ALGORITHM: AUPNPT(#.01)