Sub-Field: 9000028.03

Information

Parent File	Name	Number	Package
PODIATRY HISTORY(#9000028)	GRAFTS	9000028.03	IHS Patient

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	GRAFT DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 27, 2003` CROSS-REFERENCE: `9000028.03^B` 1)= S ^AUPNPOD(DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPOD(DA(1),3,"B",$E(X,1,30),DA)
.02	GRAFT DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 25, 2003` HELP-PROMPT: `Answer must be 1-80 characters in length.`

GRAFT DATE

0;1

DATE

CROSS-REFERENCE: 9000028.03^B

1)= S ^AUPNPOD(DA(1),3,"B",$E(X,1,30),DA)=""

2)= K ^AUPNPOD(DA(1),3,"B",$E(X,1,30),DA)

GRAFT DESCRIPTION

0;2

FREE TEXT