************************************************************************************************* ;
* THIS IS AN EXAMPLE OF A PROGRAM THAT CAN BE USED TO READ IN THE                 * ;
* LINKED NHIS-HUD AND NHANES-HUD FEASIBILITY STUDY ASCII FILES.                   * ;
*                                                                                 * ;
* TO DOWNLOAD AND SAVE THE LINKED NCHS-HUD FEASIBILITY STUDY                      * ;
* ASCII FILES TO YOUR HARD DRIVE, FOLLOW THESE STEPS:                             * ;
*                                                                                 * ;
* STEP 1: DESIGNATE A FOLDER ON YOUR HARD DRIVE TO DOWNLOAD THE LINKED            * ;
*         NHIS-HUD AND NHANES-HUD FEASIBILITY STUDY ASCII FILES. IN THIS          * ;
*         EXAMPLE, THE DATA WILL BE SAVED TO: 'C:\Feasibility Study Data\'        * ;
*                                                                                 * ;
* STEP 2: DOWNLOAD THE ASCII DATA FROM THE NCHS WEB SITE.                         * ;
*         GO TO THE NCHS WEB SITE (LINK BELOW) AND DOWNLOAD THE LINKED            * ;
*        NHIS-HUD AND NHANES-HUD FEASIBILITY STUDY ASCII FILES TO THE FOLDER      * ;
*        'C:\Feasibility Study Data\'                                             * ;
*                                                                                 * ;
*
* ftp://ftp.cdc.gov/pub/Health_Statistics/NCHS/datalinkage/hud/HUD_FEASIBILITY_NHIS.ascii
* ftp://ftp.cdc.gov/pub/Health_Statistics/NCHS/datalinkage/hud/HUD_FEASIBILITY_NHANES.ascii
*                                                                                 * ;
*                                                                                 * ;
* IMPORTANT INFORMATION REGARDING THE SURVEY ID VARIABLE:                         * ;
*                                                                                 * ;
*  FOR NHIS USE PUBLICID AS THE ID VARIABLE                                       * ;
*  FOR NHANES USE SEQN AS THE ID VARIABLE                                         * ;
*                                                                                 * ;
************************************************************************************************* ;

/*READ IN THE LINKED NHIS-HUD FEASIBILITY STUDY ASCII FILE */

filename intext "C:\Feasibility Study Data\HUD_FEASIBILITY_NHIS.ascii" ; 

data Feasibility_NHIS ;
 infile intext lrecl=65 ;

     input      @1  PUBLICID	        	$CHAR14. 
                @16 SURVEY_NAME                 $CHAR16. 
                @40 HUD_MATCH_STATUS            1.
                @42 EVER_HCV                    1.
                @44 EVER_HUD                    1.
                @46 EVER_MF                     1.
                @48 EVER_PH                     1.
  	    ;	

     attrib 
	     PUBLICID           length=$14.  label='NHIS PUBLIC ID'
	     SURVEY_NAME        length=$16.  label='SURVEY NAME'
	     HUD_MATCH_STATUS   length=3.    label='NCHS-HUD MATCH STATUS'
	     EVER_HCV           length=3.    label='EVER LINKED TO HCV'
	     EVER_HUD           length=3.    label='EVER LINKED TO HUD'
	     EVER_MF            length=3.    label='EVER LINKED TO MF'
	     EVER_PH            length=3.    label='EVER LINKED TO PH'
;

proc contents data=Feasibility_NHIS  varnum ;
  run ;

  proc freq data=Feasibility_NHIS  (drop=PUBLICID ) ;
    tables _all_ /missing ;
  run ;

**************************************************************************************;
/*READ IN THE LINKED NHANES-HUD FEASIBILITY STUDY ASCII FILE */


filename intext "C:\Feasibility Study Data\HUD_FEASIBILITY_NHANES.ascii" ; 

data Feasibility_NHANES ;
 infile intext lrecl=65 ;

     input      @1  SEQN                        5. 
                @16 SURVEY_NAME                 $CHAR16. 
                @40 HUD_MATCH_STATUS            1.
                @42 EVER_HCV                    1.
                @44 EVER_HUD                    1.
                @46 EVER_MF                     1.
                @48 EVER_PH                     1.
  	    ;	

      attrib 
	     SEQN               length=5.    label='NHANES SEQUENCE NUMBER' format=z05.
	     SURVEY_NAME        length=$16.  label='SURVEY NAME'
	     HUD_MATCH_STATUS   length=3.    label='NCHS-HUD MATCH STATUS'
	     EVER_HCV           length=3.    label='EVER LINKED TO HCV'
	     EVER_HUD           length=3.    label='EVER LINKED TO HUD'
	     EVER_MF            length=3.    label='EVER LINKED TO MF'
	     EVER_PH            length=3.    label='EVER LINKED TO PH'
;

proc contents data=Feasibility_NHANES  varnum ;
  run ;

  proc freq data=Feasibility_NHANES  (drop=SEQN ) ;
    tables _all_ /missing ;
  run ;