*********************************************;
* Clinical data set questions:              *;
* VI. Data Processing                       *;
*********************************************;
libname course 'c:\My Documents\My SAS Files\sasmanual\course'; 

data diab;
	set course.test4 end=last;
	array dx(10) diag01-diag10;
	retain countdiab count_rec 0;
	finddiab = 0;
	do i=1 to 10;
		if substr (dx(i),1,3)='250' then do;
			finddiab=1;
		countdiab=countdiab+1;
 	end;
	end;
	if finddiab = 1 then count_rec = count_rec +1;
	if last then output;
	label countdiab = 'Number of Diabetic Diagnostic Codes in the Data'
	      count_rec = 'Number of records with a diagnostic code for diabetes';
run;

proc print data=diab label;
	var countdiab count_rec;
	title 'Total Number of Diabetes Diagnoses and Hospital Records with Diabetes Diagnosed';
run;