/* ohxdenAB.sas*/
/* Date created 3/12/2005*/
/* Combine NHANES Oral Health Dentition Datasets for 1999-2000 and 2001-2002 */
/* Variable SDDSRVYR=1 for 1999-2000 and SDDSRVYR=2 for 2001-2002            */
/* Acknowledgements:  
    Thanks to Tom Wall, American Dental Association Health Policy Resources Center, for 
    debugging earlier version of program.
*/

LIBNAME NHANESA "K:/DOH/EVERYONE/NHANES/NHANES19992000/OriginalFiles/data_SASV8";
LIBNAME NHANESB "K:/DOH/EVERYONE/NHANES/NHANES20012002/OriginalFiles/data_SASV8";
LIBNAME NHANESAB "K:/DOH/EVERYONE/NHANES/NHANES19992002/AnalysisFiles";

/*Rename variables in ohxdent 1999-2000 to same name as in ohxden_b 2001-2002*/
/*This step is the same as program ohxtoohd.sas, except for the libnames*/

data NHANESA.ohxden_A;
 set NHANESA.ohxdent;

*Set length of coronal caries tooth call variables to 1 and type to character
  Codes are all one letter: D,E,J,K,M,R,S,T,U,X,Y,Z;
length OHD02CTC OHD03CTC OHD04CTC OHD05CTC OHD06CTC OHD07CTC OHD08CTC
  OHD09CTC OHD10CTC OHD11CTC OHD12CTC OHD13CTC OHD14CTC OHD15CTC
  OHD18CTC OHD19CTC OHD20CTC OHD21CTC OHD22CTC OHD23CTC OHD24CTC
  OHD25CTC OHD26CTC OHD27CTC OHD28CTC OHD29CTC OHD30CTC OHD31CTC $1.;

*Set length of coronal caries surface call variables to 5 and type to character
  Variables contain string of up to 5 numbers that are combinations of: 0,1,2,3,4,5,6,7,8,9
  Treating as numeric would cause leading '0' to be omitted erroneously;
length OHD02CSC OHD03CSC OHD04CSC OHD05CSC OHD06CSC OHD07CSC OHD08CSC
  OHD09CSC OHD10CSC OHD11CSC OHD12CSC OHD13CSC OHD14CSC OHD15CSC
  OHD18CSC OHD19CSC OHD20CSC OHD21CSC OHD22CSC OHD23CSC OHD24CSC
  OHD25CSC OHD26CSC OHD27CSC OHD28CSC OHD29CSC OHD30CSC OHD31CSC $10.;

 *array tooth count variables with OHX prefix - numeric variables;
 array ohxtc(32)
  OHX01TC OHX02TC OHX03TC OHX04TC OHX05TC OHX06TC OHX07TC OHX08TC
  OHX09TC OHX10TC OHX11TC OHX12TC OHX13TC OHX14TC OHX15TC OHX16TC
  OHX17TC OHX18TC OHX19TC OHX20TC OHX21TC OHX22TC OHX23TC OHX24TC
  OHX25TC OHX26TC OHX27TC OHX28TC OHX29TC OHX30TC OHX31TC OHX32TC
 ;

 *array coronal caries tooth call variables with OHX prefix - character variables;
 array ohxctc(28)$
  OHX02CTC OHX03CTC OHX04CTC OHX05CTC OHX06CTC OHX07CTC OHX08CTC
  OHX09CTC OHX10CTC OHX11CTC OHX12CTC OHX13CTC OHX14CTC OHX15CTC
  OHX18CTC OHX19CTC OHX20CTC OHX21CTC OHX22CTC OHX23CTC OHX24CTC
  OHX25CTC OHX26CTC OHX27CTC OHX28CTC OHX29CTC OHX30CTC OHX31CTC
 ;

 *array coronal caries surface call variables with OHX prefix - character variables;
 array ohxcsc(28)$
  OHX02CSC OHX03CSC OHX04CSC OHX05CSC OHX06CSC OHX07CSC OHX08CSC
  OHX09CSC OHX10CSC OHX11CSC OHX12CSC OHX13CSC OHX14CSC OHX15CSC
  OHX18CSC OHX19CSC OHX20CSC OHX21CSC OHX22CSC OHX23CSC OHX24CSC
  OHX25CSC OHX26CSC OHX27CSC OHX28CSC OHX29CSC OHX30CSC OHX31CSC
 ;

 /*array new tooth count variables with OHD prefix - numeric variables*/
 array ohdtc(32)
  OHD01TC OHD02TC OHD03TC OHD04TC OHD05TC OHD06TC OHD07TC OHD08TC
  OHD09TC OHD10TC OHD11TC OHD12TC OHD13TC OHD14TC OHD15TC OHD16TC
  OHD17TC OHD18TC OHD19TC OHD20TC OHD21TC OHD22TC OHD23TC OHD24TC
  OHD25TC OHD26TC OHD27TC OHD28TC OHD29TC OHD30TC OHD31TC OHD32TC
 ;

  /*array new coronal caries tooth call variables with OHD prefix - character variables*/
 array ohdctc(28)$
  OHD02CTC OHD03CTC OHD04CTC OHD05CTC OHD06CTC OHD07CTC OHD08CTC
  OHD09CTC OHD10CTC OHD11CTC OHD12CTC OHD13CTC OHD14CTC OHD15CTC
  OHD18CTC OHD19CTC OHD20CTC OHD21CTC OHD22CTC OHD23CTC OHD24CTC
  OHD25CTC OHD26CTC OHD27CTC OHD28CTC OHD29CTC OHD30CTC OHD31CTC
 ;

/*array new coronal caries surface call variables with OHD prefix - character variables*/
 array ohdcsc(28)$
  OHD02CSC OHD03CSC OHD04CSC OHD05CSC OHD06CSC OHD07CSC OHD08CSC
  OHD09CSC OHD10CSC OHD11CSC OHD12CSC OHD13CSC OHD14CSC OHD15CSC
  OHD18CSC OHD19CSC OHD20CSC OHD21CSC OHD22CSC OHD23CSC OHD24CSC
  OHD25CSC OHD26CSC OHD27CSC OHD28CSC OHD29CSC OHD30CSC OHD31CSC
 ;

 /*Populate new tooth call variables with OHD prefix*/
 do i=1 to 32;
  ohdtc(i)=ohxtc(i);
 end;
 drop i;

 /*Populate new coronal caries tooth and surface call variables with OHD 
prefix*/
 do i=1 to 28;
  ohdctc(i)=ohxctc(i);
  ohdcsc(i)=ohxcsc(i);
 end;
 drop i;

 drop
  OHX01TC OHX02TC OHX03TC OHX04TC OHX05TC OHX06TC OHX07TC OHX08TC
  OHX09TC OHX10TC OHX11TC OHX12TC OHX13TC OHX14TC OHX15TC OHX16TC
  OHX17TC OHX18TC OHX19TC OHX20TC OHX21TC OHX22TC OHX23TC OHX24TC
  OHX25TC OHX26TC OHX27TC OHX28TC OHX29TC OHX30TC OHX31TC OHX32TC
 
  OHX02CTC OHX03CTC OHX04CTC OHX05CTC OHX06CTC OHX07CTC OHX08CTC
  OHX09CTC OHX10CTC OHX11CTC OHX12CTC OHX13CTC OHX14CTC OHX15CTC
  OHX18CTC OHX19CTC OHX20CTC OHX21CTC OHX22CTC OHX23CTC OHX24CTC
  OHX25CTC OHX26CTC OHX27CTC OHX28CTC OHX29CTC OHX30CTC OHX31CTC
 
  OHX02CSC OHX03CSC OHX04CSC OHX05CSC OHX06CSC OHX07CSC OHX08CSC
  OHX09CSC OHX10CSC OHX11CSC OHX12CSC OHX13CSC OHX14CSC OHX15CSC
  OHX18CSC OHX19CSC OHX20CSC OHX21CSC OHX22CSC OHX23CSC OHX24CSC
  OHX25CSC OHX26CSC OHX27CSC OHX28CSC OHX29CSC OHX30CSC OHX31CSC
 ;

 run;

 /*Set length of coronal caries variables to same length */
 data NHANESB.ohxden_b;
 set NHANESB.ohxden_b;

 *Set length of coronal caries tooth call variables to 1 and type to character
  Codes are all one letter: D,E,J,K,M,R,S,T,U,X,Y,Z;
length OHD02CTC OHD03CTC OHD04CTC OHD05CTC OHD06CTC OHD07CTC OHD08CTC
  OHD09CTC OHD10CTC OHD11CTC OHD12CTC OHD13CTC OHD14CTC OHD15CTC
  OHD18CTC OHD19CTC OHD20CTC OHD21CTC OHD22CTC OHD23CTC OHD24CTC
  OHD25CTC OHD26CTC OHD27CTC OHD28CTC OHD29CTC OHD30CTC OHD31CTC $1.;

*Set length of coronal caries surface call variables to 5 and type to character
  Variables contain string of up to 5 numbers that are combinations of: 0,1,2,3,4,5,6,7,8,9
  Treating as numeric would cause leading '0' to be omitted erroneously;
length   OHD02CSC OHD03CSC OHD04CSC OHD05CSC OHD06CSC OHD07CSC OHD08CSC
  OHD09CSC OHD10CSC OHD11CSC OHD12CSC OHD13CSC OHD14CSC OHD15CSC
  OHD18CSC OHD19CSC OHD20CSC OHD21CSC OHD22CSC OHD23CSC OHD24CSC
  OHD25CSC OHD26CSC OHD27CSC OHD28CSC OHD29CSC OHD30CSC OHD31CSC $10.;
run;

/*sort data sets for merge*/
proc sort data=NHANESA.ohxden_a; /*Oral Health Dentition 1999-2000*/
 by SEQN;
proc sort data=NHANESB.ohxden_b; /*Oral Health Dentition 2001-2002*/
 by SEQN;
run;

/*Combine 1999-2000 and 2001-2002 Oral Health Dentition datasets*/
data NHANESAB.ohxdenAB;
set NHANESA.ohxden_a NHANESB.ohxden_b;
run;

/*end ohxdenAB.sas*/