/**************************************************************************\

PROGRAM:       C:\\MEPS\PROG\EXAMPLE06.SAS

DESCRIPTION:  	THIS EXAMPLE SHOWS THE USE OF THE DIABETES CARE SUPPLEMENT
               (DCS) WEIGHT VARIABLE, DIABW03F) FOR GENERATING ESTIMATES
               FOR ANALYSES USING QUESTIONS FROM THE DCS.
               
               NOTE THAT THE POPULATION CHARACTERISTICS FILE RELEASED IN 
               MAY OF EACH YEAR HAS A PRELIMINARY VERSION OF THE DCS
               WEIGHT VARIABLE (DIABW03P ON THE 2003 FILE, HC-073).
               
               TWO DCS VARIABLES ARE USED:
               
               (1) DSA1C53  (NUMBER OF TIMES TESTED FOR HEMOGLOBIN A1C)
               (2) DSINSU53 (DIABETES TREATED WITH INSULIN INJECTIONS?)
               
INPUT FILES:  	C:\MEPS\DATA\H79.SAS7BDAT (2003 FULL-YEAR DATA FILE)               

\**************************************************************************/

FOOTNOTE 'PROGRAM: C:\MEPS\PROG\EXAMPLE06.SAS';

LIBNAME CDATA V8 'C:\MEPS\DATA' ;

TITLE1 'AHRQ MEPS DATA USERS WORKSHOP -- JULY 2006';
TITLE2 'DIABETES CARE SUPPLEMENT ESTIMATES';

PROC FORMAT;
   VALUE A1CF
   -9 = '-9 NOT ASCERTAINED'
   -8 = '-8 DK'
   -1 = '-1 INAPPLICABLE'
   1-20 = '1-20 TIMES'
   21-50 = '21-50 TIMES'
   50-HIGH = '51 TIMES OR MORE';
   VALUE INSF
   -9 = '-9 NOT ASCERTAINED'
   -8 = '-8 DK' 
   -1 = '-1 INAPPLICABLE'
   1 = '1 YES'
   0 = '0  NO';
RUN;

DATA FY2003;
   SET CDATA.H79 (KEEP= DUPERSID DIABW03F VARSTR VARPSU
                        DSA1C53 DSINSU53);
RUN;

PROC SURVEYFREQ DATA= FY2003 ;
   STRATA VARSTR;
   CLUSTER VARPSU;
   WEIGHT DIABW03F;
   TABLES DSA1C53 DSINSU53 ;
   FORMAT DSA1C53 A1CF. DSINSU53 INSF. ;
RUN;