Sub-Field: 1964000.065

Information

Parent File	Name	Number	Package
DIABETES REGISTER CRSU(#1964000)	SMOKING HISTORY	1964000.065	Uncategorized

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SMOKING HISTORY DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 30, 1990` CROSS-REFERENCE: `1964000.065^B` 1)= S ^DIZ(1964000,DA(1),23,"B",$E(X,1,30),DA)="" 2)= K ^DIZ(1964000,DA(1),23,"B",$E(X,1,30),DA)
1	PACK YEARS	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `APR 30, 1990` HELP-PROMPT: `Type a Number between 0 and 200, 1 Decimal Digit`

SMOKING HISTORY DATE

0;1

DATE

CROSS-REFERENCE: 1964000.065^B

1)= S ^DIZ(1964000,DA(1),23,"B",$E(X,1,30),DA)=""

2)= K ^DIZ(1964000,DA(1),23,"B",$E(X,1,30),DA)

PACK YEARS

0;2

NUMBER