Sub-Field: 9000040.11

Parent File	Name	Number	Package
ADVANCE DIRECTIVE(#9000040)	DATE OF ENTRY	9000040.11	IHS Patient

Details

Field #	Name	Loc	Type	Details
.01	DATE OF ENTRY	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 2004` CROSS-REFERENCE: `9000040.11^B` 1)= S ^AUPNADVD(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^AUPNADVD(DA(1),11,"B",$E(X,1,30),DA)
.02	ADVANCE DIRECTIVE	0;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 03, 2005`
.03	TYPE	0;3	POINTER TO ELIGIBILITY MODIFIERS FILE (#9000030)	ELIGIBILITY MODIFIERS(#9000030) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)[""A""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 18, 2004` SCREEN: `S DIC("S")="I $P(^(0),U,2)[""A"""` EXPLANATION: `Enter ADVANCE DIRECTIVE NOTICE`
.04	REASON	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 17, 2004` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Enter the reason patient did not provide ADVANCE DIRECTIVE