Sub-Field: 9000028.04

Parent File	Name	Number	Package
PODIATRY HISTORY(#9000028)	AMPUTATIONS	9000028.04	IHS Patient

Parent File

Name

Number

Package

AMPUTATIONS

9000028.04

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AMPUTATION	0;1	SET	'1' FOR BKA; '2' FOR AKA; '3' FOR TM; '4' FOR T1; '5' FOR T2; '6' FOR T3; '7' FOR T4; '8' FOR T5; '9' FOR R1; '10' FOR R2; '11' FOR R3; '12' FOR R4; '13' FOR R5; LAST EDITED: `JAN 25, 2003` CROSS-REFERENCE: `9000028.04^B` 1)= S ^AUPNPOD(DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPOD(DA(1),4,"B",$E(X,1,30),DA)
.02	SIDE	0;2	SET	'R' FOR RIGHT; 'L' FOR LEFT; LAST EDITED: `JAN 25, 2003`
.03	COMMENT	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 25, 2003` HELP-PROMPT: `Answer must be 1-20 characters in length.`

AMPUTATION

0;1

SET

CROSS-REFERENCE: 9000028.04^B

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

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

SIDE

0;2

SET

COMMENT

0;3

FREE TEXT