Sub-Field: 1964000.023

Information

Parent File	Name	Number	Package
DIABETES REGISTER CRSU(#1964000)	RETINOPATHY	1964000.023	Uncategorized

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RETINOPATHY,DATE DX	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 29, 1990` CROSS-REFERENCE: `1964000.023^B` 1)= S ^DIZ(1964000,DA(1),13,"B",$E(X,1,30),DA)="" 2)= K ^DIZ(1964000,DA(1),13,"B",$E(X,1,30),DA)
1	TYPE	0;2	SET	'1' FOR STAGE I; '2' FOR STAGE II; '3' FOR STAGE III; LAST EDITED: `APR 29, 1990`

RETINOPATHY,DATE DX

0;1

DATE

CROSS-REFERENCE: 1964000.023^B

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

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

TYPE

0;2

SET