*THIS PROGRAM IS USED TO CONVERT NEBRASKA'S LAYOUT INTO INTER-JURISDICTIONAL EXCHANGE RECORDS;
*THIS PROGAM IS BROKEN INTO 8 PARTS BECAUSE WHEN THE NCHS CONVERSION WAS FIRST CREATED SEVERAL
 YEARS AGO, PC'S MEMORY COULD NOT HANDLE IT.  PROBABLY NOT AN ISSUE NOW;

 FILENAME OUT 'e:\MONTHLY\NCHS\DATA\NE01001e.NNE';

 FILENAME BTH1 'y:\winvrs\birth\export\bth2001.DAT';

DATA BTH1;
 INFILE BTH1 LRECL=1400 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    SEX=SEX
    DOBYR=YEAR OF BIRTH
    RECCODE=USED TO 0 FILL THE FIRST POSITION OF CERTIFICATE NUMBER (SINCE OURS IS 5 DIGITS)
    DOBMONTH=MONTH OF BIRTH
    DOBDAY=DAY OF BIRTH
    TYPE=TYPE OF PLACE OF BIRTH
    ATTEND=ATTENDANT AT BIRTH
    MBIRTH=BIRTH PLACE OF MOTHER
    MDOBMNTH=MOTHERS MONTH OF BIRTH
    MDOBDAY=MOTHERS DAY OF BIRTH
    MDOBYR=MOTHERS YEAR OF BIRTH
    FDOBMNTH=FATHERS MONTH OF BIRTH
    FDOBDAY=FATHERS DAY OF BIRTH
    FDOBYR=FATHERS YEAR OF BIRTH
    NOWLIVE=LIVE BIRTHS, NOW LIVING
    NOWDEAD=LIVE BIRTHS, NOW DEAD
    OTHTERM=NUMBER OF OTHER TERMINATIONS
    DOLLBMN=MONTH OF LAST LIVE BIRTH
    DOLLBYR=YEAR OF LAST LIVE BIRTH
    DOLNMMN=MONTH OF LAST NORMAL MENSES
    DOLNMDAY=DAY OF LAST NORMAL MENSES
    DOLNMYR=YEAR OF LAST NORMAL MENSES
    MPCB=MONTH PRENATAL CARE BEGAN
    VISITS=NUMBER OF PRENATAL VISITS
    WGHTUNIT=BIRTH WEIGHT UNIT
    LBS=POUNDS
    OUNCES=OUNCES
    GRAMS=GRAMS
    CLINGEST=CLINICAL ESTIMATE OF GESTATION
    PLURAL=PLURALITY
    APGARO=APGAR SCORE AT 1 MINUTE
    APGARF=APGAR SCORE AT 5 MINUTES
    MARITAL=MARITAL STATUS
    ANCESTM=ANCESTRY OF MOTHER
    RACEM=RACE OF MOTHER
    EDUCM=EDUCATION OF MOTHER
    ANCESTF=ANCESTRY OF FATHER
    RACEF=RACE OF FATHER
    EDUCF=EDUCATION OF FATHER
    HOSP=HOSPITAL CODE (NCHS SAID WE CAN GET FEEDBACK FROM THEM BY HOSPITAL)
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
       */

 INPUT CERT $ 4-8 SHIPNUM $ 2-3 SEX $ 170 DOBYR $ 175-178 RECCODE 1 DOBMONTH $ 171-172
  DOBDAY $ 173-174 TYPE $ 179 ATTEND $ 185  MBIRTH $ 348-349 MDOBMNTH $ 350-351
  MDOBDAY $ 352-353 MDOBYR $ 354-357 FDOBMNTH $ 581-582 FDOBDAY $ 583-584 FDOBYR $ 585-588
  NOWLIVE $ 590-591 NOWDEAD $ 592-593 OTHTERM $ 594-595 DOLLBMN $ 596-597
  DOLLBYR $ 600-601 DOLNMMN $ 608-609 DOLNMDAY $ 610-611 DOLNMYR $ 612-615 MPCB $ 616
  VISITS $ 617-618 WGHTUNIT $ 619 LBS $ 620-621 OUNCES $ 622-623 GRAMS $ 620-623
  CLINGEST $ 625-626 PLURAL $ 627 APGARO $ 628-629 APGARF $ 630-631 MARITAL $ 634
  ANCESTM $ 638-639 RACEM $ 640 EDUCM $ 641-642 ANCESTF $ 649-650 RACEF $ 651 EDUCF $ 652-653
  HOSP $ 779-782 ADOPT $ 635-637 DESC $ 163-166 FLAG 1272 CFIRST $ 9-58 CMIDDLE $ 59-108
  CLAST $ 109-158 TIME $ 879-882 AMPM $ 883 COUNTY $ 915-927 TOWN $ 928-957 HOSPITAL $ 885-914
  MOMFIRST $ 194-243 MOMMID $ 244-293 MOMLAST $ 791-840 MOMMAID $ 294-343 MOMTITLE $ 344-347
  MOMZIP $ 418-426 COUNTYR $ 1068-1079 CITYR $ 398-415 ADDRESS $ 363-397 LIMITS $ 958
  DADFIRST $ 427-476 DADMID $ 477-526 DADLAST $ 527-576 DADTITLE $ 577-580 MOMSSA $ 841-849
  DADSSA $ 850-858 OCCMOM $ 643-645 OCCDAD $ 654-656 INDMOM $ 646-648 INDDAD $ 657-659
  TERMMON $ 602-603 TERMYEAR $ 604-607 ORDER $ 1260 MOMTRAN $ 632 BABYTRAN $ 633
  LIVEYEAR $ 598-601 STRES 358-359;


  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;
     IF FLAG=0 OR FLAG=2;

   *CONVERT OUR FLAG CODES INTO REPLACEMENT RECORD CODES;
    FLAGR=0;
    IF FLAG=0 THEN FLAGR=2;
    IF (FLAG=1 OR FLAG=2) THEN FLAGR=1;

     IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
     ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 IF MBIRTH='AL' THEN MBIRTH='01';
 IF MBIRTH='AK' THEN MBIRTH='02';
 IF MBIRTH='AZ' THEN MBIRTH='03';
 IF MBIRTH='AR' THEN MBIRTH='04';
 IF MBIRTH='CA' THEN MBIRTH='05';
 IF MBIRTH='CO' THEN MBIRTH='06';
 IF MBIRTH='CT' THEN MBIRTH='07';
 IF MBIRTH='DE' THEN MBIRTH='08';
 IF MBIRTH='DC' THEN MBIRTH='09';
 IF MBIRTH='FL' THEN MBIRTH='10';
 IF MBIRTH='GA' THEN MBIRTH='11';
 IF MBIRTH='HI' THEN MBIRTH='12';
 IF MBIRTH='ID' THEN MBIRTH='13';
 IF MBIRTH='IL' THEN MBIRTH='14';
 IF MBIRTH='IN' THEN MBIRTH='15';
 IF MBIRTH='IA' THEN MBIRTH='16';
 IF MBIRTH='KS' THEN MBIRTH='17';
 IF MBIRTH='KY' THEN MBIRTH='18';
 IF MBIRTH='LA' THEN MBIRTH='19';
 IF MBIRTH='ME' THEN MBIRTH='20';
 IF MBIRTH='MD' THEN MBIRTH='21';
 IF MBIRTH='MA' THEN MBIRTH='22';
 IF MBIRTH='MI' THEN MBIRTH='23';
 IF MBIRTH='MN' THEN MBIRTH='24';
 IF MBIRTH='MS' THEN MBIRTH='25';
 IF MBIRTH='MO' THEN MBIRTH='26';
 IF MBIRTH='MT' THEN MBIRTH='27';
 IF MBIRTH='NE' THEN MBIRTH='28';
 IF MBIRTH='NV' THEN MBIRTH='29';
 IF MBIRTH='NH' THEN MBIRTH='30';
 IF MBIRTH='NJ' THEN MBIRTH='31';
 IF MBIRTH='NM' THEN MBIRTH='32';
 IF MBIRTH='NY' THEN MBIRTH='33';
 IF MBIRTH='NC' THEN MBIRTH='34';
 IF MBIRTH='ND' THEN MBIRTH='35';
 IF MBIRTH='OH' THEN MBIRTH='36';
 IF MBIRTH='OK' THEN MBIRTH='37';
 IF MBIRTH='OR' THEN MBIRTH='38';
 IF MBIRTH='PA' THEN MBIRTH='39';
 IF MBIRTH='RI' THEN MBIRTH='40';
 IF MBIRTH='SC' THEN MBIRTH='41';
 IF MBIRTH='SD' THEN MBIRTH='42';
 IF MBIRTH='TN' THEN MBIRTH='43';
 IF MBIRTH='TX' THEN MBIRTH='44';
 IF MBIRTH='UT' THEN MBIRTH='45';
 IF MBIRTH='VT' THEN MBIRTH='46';
 IF MBIRTH='VA' THEN MBIRTH='47';
 IF MBIRTH='WA' THEN MBIRTH='48';
 IF MBIRTH='WV' THEN MBIRTH='49';
 IF MBIRTH='WI' THEN MBIRTH='50';
 IF MBIRTH='WY' THEN MBIRTH='51';
 IF MBIRTH='PR' THEN MBIRTH='52';
 IF MBIRTH='VI' THEN MBIRTH='53';
 IF MBIRTH='GU' THEN MBIRTH='54';
 IF MBIRTH='CD' THEN MBIRTH='55';
 IF MBIRTH='CU' THEN MBIRTH='56';
 IF MBIRTH='MX' THEN MBIRTH='57';
 IF MBIRTH='FF' THEN MBIRTH='59';
 IF MBIRTH='  ' THEN MBIRTH='99';

 IF (MBIRTH NE '01' AND
  MBIRTH NE '02' AND
  MBIRTH NE '03' AND
  MBIRTH NE '04' AND
  MBIRTH NE '05' AND
  MBIRTH NE '06' AND
  MBIRTH NE '07' AND
  MBIRTH NE '08' AND
  MBIRTH NE '09' AND
  MBIRTH NE '10' AND
  MBIRTH NE '11' AND
  MBIRTH NE '12' AND
  MBIRTH NE '13' AND
  MBIRTH NE '14' AND
  MBIRTH NE '15' AND
  MBIRTH NE '16' AND
  MBIRTH NE '17' AND
  MBIRTH NE '18' AND
  MBIRTH NE '19' AND
  MBIRTH NE '20' AND
  MBIRTH NE '21' AND
  MBIRTH NE '22' AND
  MBIRTH NE '23' AND
  MBIRTH NE '24' AND
  MBIRTH NE '25' AND
  MBIRTH NE '26' AND
  MBIRTH NE '27' AND
  MBIRTH NE '28' AND
  MBIRTH NE '29' AND
  MBIRTH NE '30' AND
  MBIRTH NE '31' AND
  MBIRTH NE '32' AND
  MBIRTH NE '33' AND
  MBIRTH NE '34' AND
  MBIRTH NE '35' AND
  MBIRTH NE '36' AND
  MBIRTH NE '37' AND
  MBIRTH NE '38' AND
  MBIRTH NE '39' AND
  MBIRTH NE '40' AND
  MBIRTH NE '41' AND
  MBIRTH NE '42' AND
  MBIRTH NE '43' AND
  MBIRTH NE '44' AND
  MBIRTH NE '45' AND
  MBIRTH NE '46' AND
  MBIRTH NE '47' AND
  MBIRTH NE '48' AND
  MBIRTH NE '49' AND
  MBIRTH NE '50' AND
  MBIRTH NE '51' AND
  MBIRTH NE '52' AND
  MBIRTH NE '53' AND
  MBIRTH NE '54' AND
  MBIRTH NE '55' AND
  MBIRTH NE '56' AND
  MBIRTH NE '57' AND
  MBIRTH NE '59' AND
  MBIRTH NE '  ') THEN MBIRTH='59';


  IF LIMITS='Y' THEN LIMITS='1';
  IF LIMITS='N' THEN LIMITS='2';


  *CONVERTS OUR BIRTH ORDER TO EXCHANGE CODES;
  ORDERC='00';
  IF ORDER='0' THEN ORDERC='98';
  IF ORDER='1' THEN ORDERC='01';
  IF ORDER='2' THEN ORDERC='02';
  IF ORDER='3' THEN ORDERC='03';
  IF ORDER='4' THEN ORDERC='04';
  IF ORDER='5' THEN ORDERC='05';
  IF ORDER IN ('6','7','8') THEN ORDERC='06';
  IF ORDER='9' THEN ORDERC='99';

 *RECORD CODE--SINCE OUR CERTIFICATE NUMBER IS FIVE DIGITS, THIS ZERO FILLS THE FIRST DIGIT.;

  IF RECCODE=' ' THEN RECCODE=0;


 *CONVERTS PRENATAL VISITS IF MORE THAN 49;
  IF (VISITS GE '50' AND VISITS LE '98') THEN VISITS='49';

 *MAKES SURE UNKNOWN BIRTH WEIGHT IS CORRECT;
  IF (WGHTUNIT='2' AND GRAMS='0000') THEN WGHTUNIT='9';
  IF GRAMS='9999' THEN WGHTUNIT='9';
  IF WGHTUNIT='9' THEN GRAMS='9999';


 *CONVERTS NEBRASKA ANCESTRY CODES TO NCHS HISPANIC ORIGIN CODES;
  IF ANCESTM='01' THEN HISPANCM='1';
  IF ANCESTM='02' THEN HISPANCM='2';
  IF ANCESTM='03' THEN HISPANCM='3';
  IF ANCESTM='04' THEN HISPANCM='4';
  IF ANCESTM='05' THEN HISPANCM='5';
  IF (ANCESTM GE '06' AND ANCESTM LE '24') THEN HISPANCM='0';
  IF (ANCESTM GE '25' AND ANCESTM LE '98') THEN HISPANCM='9';
  IF ANCESTM='99' THEN HISPANCM='9';

  IF ANCESTF='01' THEN HISPANCF='1';
  IF ANCESTF='02' THEN HISPANCF='2';
  IF ANCESTF='03' THEN HISPANCF='3';
  IF ANCESTF='04' THEN HISPANCF='4';
  IF ANCESTF='05' THEN HISPANCF='5';
  IF (ANCESTF GE '06' AND ANCESTF LE '24') THEN HISPANCF='0';
  IF (ANCESTF GE '25' AND ANCESTF LE '98') THEN HISPANCF='9';
  IF ANCESTF='99' THEN HISPANCF='9';
  IF ANCESTF='  ' THEN HISPANCF='9';


*THE FOLLOWING ITEMS HAVE BEEN DELETED BY NCHS AND SHOULD BE SET TO 99;

  DOLLBMN='99';
  DOLLBYR='99';


 PROC SORT DATA=BTH1; BY CERT;

 FILENAME BTH2 'y:\winvrs\birth\export\bth2001.dat';
DATA BTH2;
 INFILE BTH2 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    OCC=PLACE OF BIRTH STATE, CITY, COUNTY CODES
  */

 INPUT CERT $ 4-8  FLAG 1272 ADOPT $ 635-637 DESC $ 163-166 OCC 1255-1259  STRES 358-359;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

    IF FLAG=0 OR FLAG=2;
    IF CERT LT '30000';  IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS NEBRASKA (STATE, CITY, COUNTY) PLACE OF BIRTH CODES TO NCHS CODES;
  IF OCC=28101 THEN OCC=28701;
  IF OCC=28102 THEN OCC=28702;
  IF OCC=28202 THEN OCC=28702;
  IF OCC=28106 THEN OCC=28706;
  IF OCC=28107 THEN OCC=28707;
  IF OCC=28109 THEN OCC=28709;
  IF OCC=28110 THEN OCC=28710;
  IF OCC=28210 THEN OCC=28710;
  IF OCC=28310 THEN OCC=28710;
  IF OCC=28410 THEN OCC=28710;
  IF OCC=28111 THEN OCC=28711;
  IF OCC=28211 THEN OCC=28711;
  IF OCC=28112 THEN OCC=28712;
  IF OCC=28113 THEN OCC=28713;
  IF OCC=28213 THEN OCC=28713;
  IF OCC=28313 THEN OCC=28713;
  IF OCC=28413 THEN OCC=28713;
  IF OCC=28114 THEN OCC=28714;
  IF OCC=28115 THEN OCC=28715;
  IF OCC=28116 THEN OCC=28716;
  IF OCC=28117 THEN OCC=28717;
  IF OCC=28118 THEN OCC=28718;
  IF OCC=28119 THEN OCC=28719;
  IF OCC=28120 THEN OCC=28720;
  IF OCC=28220 THEN OCC=28720;
  IF OCC=28121 THEN OCC=28721;
  IF OCC=28122 THEN OCC=28722;
  IF OCC=28222 THEN OCC=28722;
  IF OCC=28123 THEN OCC=28723;
  IF OCC=28223 THEN OCC=28723;
  IF OCC=28124 THEN OCC=28724;
  IF OCC=28224 THEN OCC=28724;
  IF OCC=28324 THEN OCC=28724;
  IF OCC=28126 THEN OCC=28726;
  IF OCC=28226 THEN OCC=28726;
  IF OCC=28127 THEN OCC=28727;
  IF OCC=28227 THEN OCC=28727;
  IF OCC=28128 THEN OCC=28728;
  IF OCC=28228 THEN OCC=28728;
  IF OCC=28328 THEN OCC=28728;
  IF OCC=28428 THEN OCC=28728;
  IF OCC=28129 THEN OCC=28729;
  IF OCC=28130 THEN OCC=28730;
  IF OCC=28131 THEN OCC=28731;
  IF OCC=28133 THEN OCC=28733;
  IF OCC=28233 THEN OCC=28733;
  IF OCC=28134 THEN OCC=28734;
  IF OCC=28234 THEN OCC=28734;
  IF OCC=28136 THEN OCC=28736;
  IF OCC=28140 THEN OCC=28740;
  IF OCC=28240 THEN OCC=28740;
  IF OCC=28141 THEN OCC=28741;
  IF OCC=28142 THEN OCC=28742;
  IF OCC=28145 THEN OCC=28745;
  IF OCC=28245 THEN OCC=28745;
  IF OCC=28147 THEN OCC=28747;
  IF OCC=28148 THEN OCC=28748;
  IF OCC=28149 THEN OCC=28749;
  IF OCC=28150 THEN OCC=28750;
  IF OCC=28151 THEN OCC=28751;
  IF OCC=28153 THEN OCC=28753;
  IF OCC=28154 THEN OCC=28754;
  IF OCC=28254 THEN OCC=28754;
  IF OCC=28155 THEN OCC=28755;
  IF OCC=28255 THEN OCC=28755;
  IF OCC=28355 THEN OCC=28755;
  IF OCC=28156 THEN OCC=28756;
  IF OCC=28256 THEN OCC=28756;
  IF OCC=28160 THEN OCC=28760;
  IF OCC=28260 THEN OCC=28760;
  IF OCC=28360 THEN OCC=28760;
  IF OCC=28460 THEN OCC=28760;
  IF OCC=28161 THEN OCC=28761;
  IF OCC=28162 THEN OCC=28762;
  IF OCC=28262 THEN OCC=28762;
  IF OCC=28163 THEN OCC=28763;
  IF OCC=28164 THEN OCC=28764;
  IF OCC=28165 THEN OCC=28765;
  IF OCC=28166 THEN OCC=28766;
  IF OCC=28266 THEN OCC=28766;
  IF OCC=28167 THEN OCC=28767;
  IF OCC=28168 THEN OCC=28768;
  IF OCC=28169 THEN OCC=28769;
  IF OCC=28170 THEN OCC=28770;
  IF OCC=28270 THEN OCC=28770;
  IF OCC=28171 THEN OCC=28771;
  IF OCC=28172 THEN OCC=28772;
  IF OCC=28173 THEN OCC=28773;
  IF OCC=28174 THEN OCC=28774;
  IF OCC=28176 THEN OCC=28776;
  IF OCC=28276 THEN OCC=28776;
  IF OCC=28376 THEN OCC=28776;
  IF OCC=28177 THEN OCC=28777;
  IF OCC=28277 THEN OCC=28777;
  IF OCC=28377 THEN OCC=28777;
  IF OCC=28477 THEN OCC=28777;
  IF OCC=28577 THEN OCC=28777;
  IF OCC=28178 THEN OCC=28778;
  IF OCC=28278 THEN OCC=28778;
  IF OCC=28378 THEN OCC=28778;
  IF OCC=28179 THEN OCC=28779;
  IF OCC=28279 THEN OCC=28779;
  IF OCC=28379 THEN OCC=28779;
  IF OCC=28180 THEN OCC=28780;
  IF OCC=28280 THEN OCC=28780;
  IF OCC=28181 THEN OCC=28781;
  IF OCC=28184 THEN OCC=28784;
  IF OCC=28185 THEN OCC=28785;
  IF OCC=28187 THEN OCC=28787;
  IF OCC=28188 THEN OCC=28788;
  IF OCC=28189 THEN OCC=28789;
  IF OCC=28289 THEN OCC=28789;
  IF OCC=28190 THEN OCC=28790;
  IF OCC=28290 THEN OCC=28790;
  IF OCC=28191 THEN OCC=28791;
  IF OCC=28193 THEN OCC=28793;

PROC SORT DATA=BTH2; BY CERT;

 FILENAME BTH3 'y:\winvrs\birth\export\bth2001.dat';

DATA BTH3;
 INFILE BTH3 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;

 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    RESSTCCO=NEBRASKA RESIDENT STATE CITY COUNTY CODES
 */

 INPUT CERT $ 4-8 RESSTCCO $ 358-362 FLAG 1272 ADOPT $ 635-637 DESC $ 163-166 STRES 358-359;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

  IF FLAG=0 OR FLAG=2;
  IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS NEBRASKA RESIDENCE CODES TO NCHS CODES;
  IF RESSTCCO='28101' THEN RESSTCCO='28006';
  IF RESSTCCO='28102' THEN RESSTCCO='28702';
  IF RESSTCCO='28202' THEN RESSTCCO='28702';
  IF RESSTCCO='28106' THEN RESSTCCO='28706';
  IF RESSTCCO='28107' THEN RESSTCCO='28707';
  IF RESSTCCO='28109' THEN RESSTCCO='28709';
  IF RESSTCCO='28110' THEN RESSTCCO='28710';
  IF RESSTCCO='28210' THEN RESSTCCO='28007';
  IF RESSTCCO='28310' THEN RESSTCCO='28710';
  IF RESSTCCO='28410' THEN RESSTCCO='28710';
  IF RESSTCCO='28111' THEN RESSTCCO='28711';
  IF RESSTCCO='28211' THEN RESSTCCO='28711';
  IF RESSTCCO='28112' THEN RESSTCCO='28712';
  IF RESSTCCO='28113' THEN RESSTCCO='28713';
  IF RESSTCCO='28213' THEN RESSTCCO='28713';
  IF RESSTCCO='28313' THEN RESSTCCO='28713';
  IF RESSTCCO='28413' THEN RESSTCCO='28713';
  IF RESSTCCO='28114' THEN RESSTCCO='28714';
  IF RESSTCCO='28115' THEN RESSTCCO='28715';
  IF RESSTCCO='28116' THEN RESSTCCO='28716';
  IF RESSTCCO='28117' THEN RESSTCCO='28717';
  IF RESSTCCO='28118' THEN RESSTCCO='28718';
  IF RESSTCCO='28119' THEN RESSTCCO='28719';
  IF RESSTCCO='28120' THEN RESSTCCO='28720';
  IF RESSTCCO='28220' THEN RESSTCCO='28720';
  IF RESSTCCO='28121' THEN RESSTCCO='28721';
  IF RESSTCCO='28122' THEN RESSTCCO='28722';
  IF RESSTCCO='28222' THEN RESSTCCO='28722';
  IF RESSTCCO='28123' THEN RESSTCCO='28723';
  IF RESSTCCO='28223' THEN RESSTCCO='28723';
  IF RESSTCCO='28124' THEN RESSTCCO='28724';
  IF RESSTCCO='28224' THEN RESSTCCO='28724';
  IF RESSTCCO='28324' THEN RESSTCCO='28724';
  IF RESSTCCO='28126' THEN RESSTCCO='28726';
  IF RESSTCCO='28226' THEN RESSTCCO='28726';
  IF RESSTCCO='28127' THEN RESSTCCO='28004';
  IF RESSTCCO='28227' THEN RESSTCCO='28727';
  IF RESSTCCO='28128' THEN RESSTCCO='28728';
  IF RESSTCCO='28228' THEN RESSTCCO='28011';
  IF RESSTCCO='28328' THEN RESSTCCO='28728';
  IF RESSTCCO='28428' THEN RESSTCCO='28728';
  IF RESSTCCO='28129' THEN RESSTCCO='28729';
  IF RESSTCCO='28130' THEN RESSTCCO='28730';
  IF RESSTCCO='28131' THEN RESSTCCO='28731';
  IF RESSTCCO='28133' THEN RESSTCCO='28733';
  IF RESSTCCO='28233' THEN RESSTCCO='28733';
  IF RESSTCCO='28134' THEN RESSTCCO='28001';
  IF RESSTCCO='28234' THEN RESSTCCO='28734';
  IF RESSTCCO='28136' THEN RESSTCCO='28736';
  IF RESSTCCO='28140' THEN RESSTCCO='28005';
  IF RESSTCCO='28240' THEN RESSTCCO='28740';
  IF RESSTCCO='28141' THEN RESSTCCO='28741';
  IF RESSTCCO='28142' THEN RESSTCCO='28742';
  IF RESSTCCO='28145' THEN RESSTCCO='28745';
  IF RESSTCCO='28245' THEN RESSTCCO='28745';
  IF RESSTCCO='28147' THEN RESSTCCO='28747';
  IF RESSTCCO='28148' THEN RESSTCCO='28748';
  IF RESSTCCO='28149' THEN RESSTCCO='28749';
  IF RESSTCCO='28150' THEN RESSTCCO='28750';
  IF RESSTCCO='28151' THEN RESSTCCO='28751';
  IF RESSTCCO='28153' THEN RESSTCCO='28753';
  IF RESSTCCO='28154' THEN RESSTCCO='28754';
  IF RESSTCCO='28254' THEN RESSTCCO='28754';
  IF RESSTCCO='28155' THEN RESSTCCO='28755';
  IF RESSTCCO='28255' THEN RESSTCCO='28008';
  IF RESSTCCO='28355' THEN RESSTCCO='28755';
  IF RESSTCCO='28156' THEN RESSTCCO='28010';
  IF RESSTCCO='28256' THEN RESSTCCO='28756';
  IF RESSTCCO='28160' THEN RESSTCCO='28760';
  IF RESSTCCO='28260' THEN RESSTCCO='28760';
  IF RESSTCCO='28360' THEN RESSTCCO='28009';
  IF RESSTCCO='28460' THEN RESSTCCO='28760';
  IF RESSTCCO='28161' THEN RESSTCCO='28761';
  IF RESSTCCO='28162' THEN RESSTCCO='28762';
  IF RESSTCCO='28262' THEN RESSTCCO='28762';
  IF RESSTCCO='28163' THEN RESSTCCO='28763';
  IF RESSTCCO='28164' THEN RESSTCCO='28764';
  IF RESSTCCO='28165' THEN RESSTCCO='28765';
  IF RESSTCCO='28166' THEN RESSTCCO='28766';
  IF RESSTCCO='28266' THEN RESSTCCO='28766';
  IF RESSTCCO='28167' THEN RESSTCCO='28767';
  IF RESSTCCO='28168' THEN RESSTCCO='28768';
  IF RESSTCCO='28169' THEN RESSTCCO='28769';
  IF RESSTCCO='28170' THEN RESSTCCO='28770';
  IF RESSTCCO='28270' THEN RESSTCCO='28770';
  IF RESSTCCO='28171' THEN RESSTCCO='28003';
  IF RESSTCCO='28172' THEN RESSTCCO='28772';
  IF RESSTCCO='28173' THEN RESSTCCO='28773';
  IF RESSTCCO='28174' THEN RESSTCCO='28774';
  IF RESSTCCO='28274' THEN RESSTCCO='28774';
  IF RESSTCCO='28176' THEN RESSTCCO='28776';
  IF RESSTCCO='28276' THEN RESSTCCO='28776';
  IF RESSTCCO='28376' THEN RESSTCCO='28776';
  IF RESSTCCO='28177' THEN RESSTCCO='28002';
  IF RESSTCCO='28277' THEN RESSTCCO='28777';
  IF RESSTCCO='28377' THEN RESSTCCO='28777';
  IF RESSTCCO='28477' THEN RESSTCCO='28012';
  IF RESSTCCO='28577' THEN RESSTCCO='28777';
  IF RESSTCCO='28178' THEN RESSTCCO='28778';
  IF RESSTCCO='28278' THEN RESSTCCO='28778';
  IF RESSTCCO='28378' THEN RESSTCCO='28778';
  IF RESSTCCO='28179' THEN RESSTCCO='28779';
  IF RESSTCCO='28279' THEN RESSTCCO='28779';
  IF RESSTCCO='28379' THEN RESSTCCO='28013';
  IF RESSTCCO='28180' THEN RESSTCCO='28780';
  IF RESSTCCO='28280' THEN RESSTCCO='28780';
  IF RESSTCCO='28181' THEN RESSTCCO='28781';
  IF RESSTCCO='28184' THEN RESSTCCO='28784';
  IF RESSTCCO='28185' THEN RESSTCCO='28785';
  IF RESSTCCO='28187' THEN RESSTCCO='28787';
  IF RESSTCCO='28188' THEN RESSTCCO='28788';
  IF RESSTCCO='28189' THEN RESSTCCO='28789';
  IF RESSTCCO='28289' THEN RESSTCCO='28789';
  IF RESSTCCO='28190' THEN RESSTCCO='28790';
  IF RESSTCCO='28290' THEN RESSTCCO='28790';
  IF RESSTCCO='28191' THEN RESSTCCO='28791';
  IF RESSTCCO='28193' THEN RESSTCCO='28793';
  IF RESSTCCO='59999' THEN RESSTCCO='59   ';

 PROC SORT DATA=BTH3; BY CERT;

 FILENAME BTH4 'y:\winvrs\birth\export\bth2001.dat';
  DATA BTH4;
 INFILE BTH4 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    MEDANEM=MEDICAL RISK FACTORS-ANEMIA
    MEDCARD=MEDICAL RISK FACTORS-CARDIAC DISEASE
    MEDLUNG=MEDICAL RISK FACTORS-ACUTE OR CHRONIC LUNG DISEASE
    MEDRSK4=MEDICAL RISK FACTORS-DIABETES
    MEDRSK5=MEDICAL RISK FACTORS-GESTATIONAL
    MEDRSK6=MEDICAL RISK FACTORS-INSULIN-DEPENDENT
    MEDHERP=MEDICAL RISK FACTORS-GENITAL HERPES
    MEDRSK8=MEDICAL RISK FACTORS-HYDRAMNIOS
    MEDRSK9=MEDICAL RISK FACTORS-OLIGOHYDRAMNIOS
    MEDHEMO=MEDICAL RISK FACTORS-HEMOGLOBINOPATHY
    MEDHYPC=MEDICAL RISK FACTORS-HYPERTENSION, CHRONIC
    MEDRSK12=MEDICAL RISK FACTORS-HYPERTENSION, PREGNANCY-INDUCED
    MEDECLA=MEDICAL RISK FACTORS-ECLAMPSIA
    MEDCERV=MEDICAL RISK FACTORS-INCOMPETENT CERVIX
    MEDBIGG=MEDICAL RISK FACTORS-PREVIOUS INFANT 4000+ GRAMS
    MEDSMLL=MEDICAL RISK FACTORS-PREVIOUS PRETERM OR SMALL-FOR-GESTATIONAL-AGE INFANT
    MEDRENL=MEDICAL RISK FACTORS-RENAL DISEASE
    MEDRHSE=MEDICAL RISK FACTORS-BLOOD GROUP SENSITIZATION
    MEDUTER=MEDICAL RISK FACTORS-UTERINE BLEEDING
    MEDRSK20=MEDICAL RISK FACTORS-PRE-ECLAMPSIA
    MEDRSK21=MEDICAL RISK FACTORS-OTHER SEXUALLY TRANSMITTED DISEASE
    MEDRSK22=MEDICAL RISK FACTORS-OTHER
    MEDNONE=MEDICAL RISK FACTORS-NONE/NOT REPORTED
      */

 INPUT   CERT $ 4-8  FLAG 1272  ADOPT $ 635-637 DESC $ 163-166
  MEDANEM $ 660 MEDCARD $ 661 MEDLUNG $ 662 MEDRSK4 $ 663 MEDRSK5 $ 664 MEDRSK6 $ 665
  MEDHERP $ 666 MEDRSK8 $ 667 MEDRSK9 $ 668 MEDHEMO $ 669 MEDHYPC $ 670 MEDRSK12 $ 671
  MEDECLA $ 672 MEDCERV $ 673 MEDBIGG $ 674 MEDSMLL $ 675 MEDRENL $ 676 MEDRHSE $ 677
  MEDUTER $ 678 MEDRSK20 $ 679 MEDRSK21 $ 680 MEDRSK22 $ 681 MEDNONE $ 682 STRES 358-359;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

  IF FLAG=0 OR FLAG=2;
  IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');
 *CONVERTS MEDICAL RISK FACTORS OF PREGNANCY TO NCHS DETAIL;

 *DIABETES;
 IF MEDRSK4='0' AND MEDRSK5='0' AND MEDRSK6='0' THEN MEDDIAB='0';
 IF MEDRSK4='1' OR MEDRSK5='1' OR MEDRSK6='1' THEN MEDDIAB='1';

 *HYDRAMNIOS-OLIGOHYDRAMNIOS;
 IF MEDRSK8='0' AND MEDRSK9='0' THEN MEDHYOL='0';
 IF MEDRSK8='1' OR MEDRSK9='1' THEN MEDHYOL='1';

  *PREGNANCY ASSOCIATED HYPERTENSION-INCLUDES PRE ECLAMPSIA;
 IF MEDRSK12='0' AND MEDRSK20='0' THEN MEDHYPP='0';
 IF MEDRSK12='1' OR MEDRSK20='1' THEN MEDHYPP='1';

 *OTHER SEXUALLY TRANSMITTED DISEASE AND OTHER
  INTO OTHER;
 IF MEDRSK21='0' AND MEDRSK22='0' THEN MEDOTHR='0';
 IF MEDRSK21='1' OR MEDRSK22='1' THEN MEDOTHR='1';


 PROC SORT DATA=BTH4; BY CERT;

 FILENAME BTH5 'y:\winvrs\birth\export\bth2001.dat';

  DATA BTH5;
 INFILE BTH5 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    TOBACCO=TOBACCO USE
    TOBNUM=NUMBER USED PER DAY
    ALCOHOL=ALCOHOL USE
    ALCNUM=NUMBER DRINKS PER WEEK
    WGHTGAIN=MOTHERS WEIGHT GAIN
    OBAMNIO=AMNIOCENTESES
    OBPROC2=FETAL MONITORING
    OBPROC3=ELECTRONIC
    OBPROC4=AUSCULATION
    OBPROC5=INDUCTION OF LABOR
    OBPROC6=PITOCIN
    OBPROC7=OTHER INDUCTION
    OBPROC8=STIMULATION OF LABOR
    OBPROC9=PITOCIN
    OBPROC10=OTHER PITOCIN
    OBTOCOL=TOCOLYSIS
    OBULTRA=ULTRASOUND
    OBPROC13=SCALP PH
    OBPROC14=<7.20
    OBPROC15=>7.20
    OBPROC16=OTHER
    OBNONE=NONE/NOT CLASSIFIABLE
      */

 INPUT  CERT $ 4-8  FLAG 1272  ADOPT $ 635-637 DESC $ 163-166 STRES 358-359
  TOBACCO $ 683 TOBNUM $ 684-685 ALCOHOL $ 686 ALCNUM $ 687-688 WGHTGAIN $ 689-690
  OBAMNIO $ 691 OBPROC2 $ 692 OBPROC3 $ 693 OBPROC4 $ 694 OBPROC5 $ 695 OBPROC6 $ 696
  OBPROC7 $ 697 OBPROC8 $ 698 OBPROC9 $ 699 OBPROC10 $ 700 OBTOCOL $ 701 OBULTRA $ 702
  OBPROC13 $ 703 OBPROC14 $ 704 OBPROC15 $ 705 OBPROC16 $ 706 OBNONE $ 707;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

   IF FLAG=0 OR FLAG=2;
   IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS NEGATIVE WEIGHT GAIN OF MOTHER TO 00;
  IF WGHTGAIN LT '00' THEN WGHTGAIN='00';
       /*
  IF TOBNUM='98' THEN TOBNUM='99';
  IF ALCNUM='98' THEN ALCNUM='99';
       */
 *CONVERTS OBSTETRIC PROCEDURES TO NCHS DETAIL;

 *ELECTRONIC FETAL MONITORING;
 IF OBPROC2='0' AND OBPROC3='0' AND OBPROC4='0' THEN OBEFM='0';
 IF OBPROC2='1' OR OBPROC3='1' OR OBPROC4='1' THEN OBEFM='1';

 *INDUCTION OF LABOR;
 IF OBPROC5='0' AND OBPROC6='0' AND OBPROC7='0' THEN OBINDUC='0';
 IF OBPROC5='1' OR OBPROC6='1' OR OBPROC7='1' THEN OBINDUC='1';

 *STIMULATION OF LABOR;
 IF OBPROC8='0' AND OBPROC9='0' AND OBPROC10='0' THEN OBSTIMU='0';
 IF OBPROC8='1' OR OBPROC9='1' OR OBPROC10='1' THEN OBSTIMU='1';

 *OTHER;
 IF OBPROC13='0' AND OBPROC14='0' AND OBPROC15='0' AND
   OBPROC16='0' THEN OBOTHER='0';
 IF OBPROC13='1' OR OBPROC14='1' OR OBPROC15='1' OR
   OBPROC16='1' THEN OBOTHER='1';

 PROC SORT DATA=BTH5; BY CERT;

 FILENAME BTH6 'y:\winvrs\birth\export\bth2001.dat';

  DATA BTH6;
 INFILE BTH6 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    COMPFEB=COMPLICATONS OF LABOR/DELIVERY FEBRIL
    COMPMEC=COMPLICATONS OF LABOR/DELIVERY MECONIUM, MODERATE/HEAVY
    COMPPREM=COMPLICATONS OF LABOR/DELIVERY PREMATURE RUPTURE OF MEMBRANE (>12 HOURS)
    COMPABR=COMPLICATONS OF LABOR/DELIVERY ABRUPTIO PLACENTA
    COMPPLAC=COMPLICATONS OF LABOR/DELIVERY PLACENTA PREVIA
    COMPEXBL=COMPLICATONS OF LABOR/DELIVERY OTHER EXCESSIVE BLEEDING
    COMPSEDL=COMPLICATONS OF LABOR/DELIVERY SEIZURES DURING LABOR
    COMPPREC=COMPLICATONS OF LABOR/DELIVERY PRECIPITOUS LABOR (<3 HOURS)
    COMPPROL=COMPLICATONS OF LABOR/DELIVERY PROLONGED LABOR (>20 HOURS)
    COMPDYSE=COMPLICATONS OF LABOR/DELIVERY DYSFUNCTIONAL LABOR
    COMPBREE=COMPLICATONS OF LABOR/DELIVERY BREECH/MALPRESENTATION
    COMPCEPH=COMPLICATONS OF LABOR/DELIVERY CEPHALOPELVIC DISPROPORTION
    COMPCORD=COMPLICATONS OF LABOR/DELIVERY CORD PROLAPSE
    COMPANES=COMPLICATONS OF LABOR/DELIVERY ANESTHETIC COMPLICATIONS
    COMPFET=COMPLICATONS OF LABOR/DELIVERY FETAL DISTRESS
    EVENTS16=COMPLICATONS OF LABOR/DELIVERY PRETERM LABOR
    EVENTS17=COMPLICATONS OF LABOR/DELIVERY OTHER
    COMPNONE=COMPLICATONS OF LABOR/DELIVERY NONE/NOT CLASSIFIABLE
   */


 INPUT  CERT $ 4-8   FLAG 1272  ADOPT $ 635-637 DESC $ 163-166 STRES 358-359
  COMPFEB $ 708 COMPMEC $ 709 COMPPREM $ 710 COMPABR $ 711 COMPPLAC $ 712 COMPEXBL $ 713
  COMPSEDL $ 714 COMPPREC $ 715 COMPPROL $ 716 COMPDYSE $ 717 COMPBREE $ 718 COMPCEPH $ 719
  COMPCORD $ 720 COMPANES $ 721 COMPFET $ 722 EVENTS16 $ 723 EVENTS17 $ 724 COMPNONE $ 725;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

   IF FLAG=0 OR FLAG=2;
   IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS EVENTS OF LABOR AND/OR DELIVERY TO NCHS DETAIL;


 *OTHER;
 IF EVENTS16='0' AND EVENTS17='0' THEN COMPOTHR='0';
 IF EVENTS16='1' OR EVENTS17='1' THEN COMPOTHR='1';

 PROC SORT DATA=BTH6; BY CERT;

 FILENAME BTH7 'y:\winvrs\birth\export\bth2001.dat';
  DATA BTH7;
 INFILE BTH7 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    METHVAG=METHOD OF DELIVERY VAGINAL
    METHVBAC=METHOD OF DELIVERY VAGINAL BIRTH AFTER PREVIOUS C-SECTION
    METHOD3=METHOD OF DELIVERY PRIMARY C-SECTION
    METHOD4=METHOD OF DELIVERY CLASSICAL C-SECTION (VERTICAL)
    METHOD5=METHOD OF DELIVERY TRANSVERSE C-SECTION
    METHREPC=METHOD OF DELIVERY REPEAT C-SECTION
    METHOD7=METHOD OF DELIVERY FORCEPS
    METHOD8=METHOD OF DELIVERY FORCEPS-LOW
    METHOD9=METHOD OF DELIVERY FORCEPS-MID
    METHVAC=METHOD OF DELIVERY VACUUM
    METHNC=METHOD OF DELIVERY NOT CLASSIFIABLE
    ABNANEM=ABNORMAL CONDITIONS OF THE NEWBORN ANEMIA (HCT.<39/HGB.<13)
    ABNALC=ABNORMAL CONDITIONS OF THE NEWBORN FETAL ALCOHOL SYNDROME
    ABNORM3=ABNORMAL CONDITIONS OF THE NEWBORN HYALINE MEMBRANE DISEASE
    ABNMEC=ABNORMAL CONDITIONS OF THE NEWBORN MECONIUM ASPIRATION SYNDROME
    ABNORM5=ABNORMAL CONDITIONS OF THE NEWBORN RDS (RESPIRATORY DISTRESS SYNDROME)
    ABNLT=ABNORMAL CONDITIONS OF THE NEWBORN ASSISTED VENTILATION <30 MINUTES
    ABNORM7=ABNORMAL CONDITIONS OF THE NEWBORN ASSISTED VENTILATION >30 MINUTES
    ABNSEIZ=ABNORMAL CONDITIONS OF THE NEWBORN SEIZURES
    ABNORM9=ABNORMAL CONDITIONS OF THE NEWBORN OXYGEN NEED >4 HOURS
    ABNORM10=ABNORMAL CONDITIONS OF THE NEWBORN POSITIVE DRUG SCREEN
    ABNORM11=ABNORMAL CONDITIONS OF THE NEWBORN NEONATAL DRUG ADDICTION
    ABNORM12=ABNORMAL CONDITIONS OF THE NEWBORN OTHER
    ABNNONE=ABNORMAL CONDITIONS OF THE NEWBORN NONE
  */
 INPUT  CERT $ 4-8  FLAG 1272   ADOPT $ 635-637 DESC $ 163-166   STRES 358-359
  METHVAG $ 726 METHVBAC $ 727 METHOD3 $ 728 METHOD4 $ 729 METHOD5 $ 730 METHREPC $ 731
  METHOD7 $ 732 METHOD8 $ 733 METHOD9 $ 734 METHVAC $ 735 METHNC $ 736 ABNANEM $ 737
  ABNALC $ 738 ABNORM3 $ 739 ABNMEC $ 740 ABNORM5 $ 741 ABNLT $ 742 ABNORM7 $ 743
  ABNSEIZ $ 744 ABNORM9 $ 745 ABNORM10 $ 746 ABNORM11 $ 747 ABNORM12 $ 748 ABNNONE $ 749;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

   IF FLAG=0 OR FLAG=2;
   IF CERT LT '30000'; IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS METHOD OF DELIVERY TO NCHS DETAIL;

  *PRIMARY C-SECTION;
 IF METHOD3='0' AND METHOD4='0' AND METHOD5='0' THEN METHPRIC='0';
 IF METHOD3='1' OR METHOD4='1' OR METHOD5='1' THEN METHPRIC='1';

  *FORCEPS;
 IF METHOD7='0' AND METHOD8='0' AND METHOD9='0' THEN METHFORC='0';
 IF METHOD7='1' OR METHOD8='1' OR METHOD9='1' THEN METHFORC='1';

 *CONVERTS ABNORMAL CONDITIONS OF THE NEWBORN TO NCHS DETAIL;

 *HYALINE MEMBRANE DISEASE/RESPIRATORY DISTRESS SYNDROME;
 IF ABNORM3='0' AND ABNORM5='0' THEN ABNHYAL='0';
 IF ABNORM3='1' OR ABNORM5='1' THEN ABNHYAL='1';

 *ASSISTED VENTILATION >= 30 MIN AND OXYGEN NEED >4 HOURS;
 IF ABNORM7='0' AND ABNORM9='0' THEN ABNGE='0';
 IF ABNORM7='1' OR ABNORM9='1' THEN ABNGE='1';

 *BIRTH INJURY;
  ABNINJ='0';

 *OTHER;
 IF ABNORM10='0' AND ABNORM11='0' AND ABNORM12='0' THEN ABNOTHR='0';
 IF ABNORM10='1' OR ABNORM11='1' OR ABNORM12='1' THEN ABNOTHR='1';

 PROC SORT DATA=BTH7; BY CERT;

 FILENAME BTH8 'y:\winvrs\birth\export\bth2001.dat';

  DATA BTH8;
 INFILE BTH8 LRECL=1280 MISSOVER;
 *READS IN NEBRASKA BIRTH RECORDS. THE FOLLOWING DEFINES THE INPUT FIELDS;
 /* CERT=CERTIFICATE NUMBER
    ADOPT=ADOPT CODE FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    DESC=DESCRIPTION FIELD (NEBRASKA USE ONLY-USED TO PULL OUT THE CORRECT RECORD FOR STATISTICS)
    FLAG=FLAG CODE (USED TO PULL OF RECORDS THAT HAVE NOT BEEN SENT OR CORRECTED RECORDS)
    BDANEN=CONGENITAL ANOMALY OF CHILD ANENCEPHALUS
    BDSPIN=CONGENITAL ANOMALY OF CHILD SPINA BIFIDA/MENINGOCELE
    BDHYDR=CONGENITAL ANOMALY OF CHILD HYDROCEPHALUS
    BDMICR=CONGENITAL ANOMALY OF CHILD MICROCEPHALUS
    BDOCNSA=CONGENITAL ANOMALY OF CHILD OTHER CENTRAL NERVOUS SYSTEM ANOMALIES
    DEFECT6=CONGENITAL ANOMALY OF CHILD VENTRICULAR SEPTAL DEFECT
    DEFECT7=CONGENITAL ANOMALY OF CHILD ATRIAL SEPTAL DEFECT
    DEFECT8=CONGENITAL ANOMALY OF CHILD OTHER HEART ANOMALIES
    DEFECT9=CONGENITAL ANOMALY OF CHILD PATENT DUCTUS ARTERIOSUS
    DEFECT10=CONGENITAL ANOMALY OF CHILD OTHER CIRCULATORY/RESPIRATORY ANOMALIES
    BDRECT=CONGENITAL ANOMALY OF CHILD RECTAL ATRESIA/STENOSIS
    DEFECT12=CONGENITAL ANOMALY OF CHILD TRACHEO-ESOPHAGEAL FISTULA
    DEFECT13=CONGENITAL ANOMALY OF CHILD ESOPHAGEAL ATRESIA
    DEFECT14=CONGENITAL ANOMALY OF CHILD OMPHALOCELE
    DEFECT15=CONGENITAL ANOMALY OF CHILD GASTROSCHISIS
    BDOGA=CONGENITAL ANOMALY OF CHILD OTHER GASTROINTESTINAL ANOMALIES
    BDMALF=CONGENITAL ANOMALY OF CHILD MALFORMED GENITALIA
    BDRENAL=CONGENITAL ANOMALY OF CHILD RENAL AGENESIS
    BDOUA=CONGENITAL ANOMALY OF CHILD OTHER UROGENITAL ANOMALIES
    DEFECT20=CONGENITAL ANOMALY OF CHILD CLEFT LIP
    DEFECT21=CONGENITAL ANOMALY OF CHILD CLEFT PALATE
    BDPOLY=CONGENITAL ANOMALY OF CHILD POLYDACTYLY/SYNDACTYLY/ADACTYLY
    BDCLUB=CONGENITAL ANOMALY OF CHILD CLUB FOOT
    BDDIAP=CONGENITAL ANOMALY OF CHILD DIAPHRAGMATIC HERNIA
    BDOMIA=CONGENITAL ANOMALY OF CHILD OTHER MUSCULOSKELETAL/INTEGUMENTAL ANOMALIES
    BDDOWN=CONGENITAL ANOMALY OF CHILD PRESUMPTIVE DOWN'S SYNDROME
    BDOCA=CONGENITAL ANOMALY OF CHILD OTHER CHROMOSOMAL ANOMALIES
    BDOTHR=CONGENITAL ANOMALY OF CHILD OTHER
    BDNONE=CONGENITAL ANOMALY OF CHILD NONE/NOT CLASSIFIABLE
     */

 INPUT  CERT $ 4-8  FLAG 1272  ADOPT $ 635-637 DESC $ 163-166   STRES 358-359
  BDANEN $ 750 BDSPIN $ 751 BDHYDR $ 752
  BDMICR $ 753 BDOCNSA $ 754 DEFECT6 $ 755
  DEFECT7 $ 756 DEFECT8 $ 757 DEFECT9 $ 758
  DEFECT10 $ 759 BDRECT $ 760 DEFECT12 $ 761
  DEFECT13 $ 762 DEFECT14 $ 763 DEFECT15 $ 764
  BDOGA $ 765 BDMALF $ 766 BDRENAL $ 767
  BDOUA $ 768 DEFECT20 $ 769 DEFECT21 $ 770
  BDPOLY $ 771 BDCLUB $ 772 BDDIAP $ 773
  BDOMIA $ 774 BDDOWN $ 775 BDOCA $ 776
  BDOTHR $ 777 BDNONE $ 778;

  *FOR CORRECTIONS;
  *BASED ON SYSTEM UPDATE DATE;
  *0=NEVER SENT, 1=SENT, 2=NEEDS RESENT;

   IF FLAG=0 OR FLAG=2;
   IF CERT LT '30000';  IF (STRES GE 1 AND STRES LE 27) OR (STRES GE 29 AND STRES LE 55);

*USED TO PULL OFF ONE RECORD OUT OF THE FILE;
  IF (DESC NE 'VOID' AND DESC NE 'DEL') AND (ADOPT EQ '   ' OR
       ADOPT EQ '6  ' OR ADOPT EQ 'AC ' OR ADOPT EQ '4  ');

 *CONVERTS CONGENITAL ANOMALIES OF CHILD;

 *HEART ANOMALIES;
 IF DEFECT6='0' AND DEFECT7='0' AND DEFECT8='0' THEN BDHEART='0';
 IF DEFECT6='1' OR DEFECT7='1' OR DEFECT8='1' THEN BDHEART='1';

 *OTHER CIRCULATORY/RESPIRATORY ANOMALIES;
 IF DEFECT9='0' AND DEFECT10='0' THEN BDOCRA='0';
 IF DEFECT9='1' OR DEFECT10='1' THEN BDOCRA='1';

 *TRACHEO-ESOPHAGEAL ATRESIA;
 IF DEFECT12='0' AND DEFECT13='0' THEN BDTRACH='0';
 IF DEFECT12='1' OR DEFECT13='1' THEN BDTRACH='1';

 *OMPHALOCELE/GASTROSCHISIS;
 IF DEFECT14='0' AND DEFECT15='0' THEN BDOMPH='0';
 IF DEFECT14='1' OR DEFECT15='1' THEN BDOMPH='1';

 *CLEFT LIP/PALATE;
 IF DEFECT20='0' AND DEFECT21='0' THEN BDCLEFT='0';
 IF DEFECT20='1' OR DEFECT21='1' THEN BDCLEFT='1';


   *AGEM=AGE OF MOTHER
   *AGEF=AGE OF FATHER

*DO NOT COLLECT AGE OF MOTHER OR FATHER ON CERTIFICATE, ALWAYS A CALCULATED AGE BASED ON DATES
 OF BIRTH.  THEREFORE, THIS FIELD IS ALWAYS UNKNOWN (99);

 AGEM='99';
 AGEF='99';

 PROC SORT DATA=BTH8; BY CERT;

*THIS MERGES EACH PART OF THE CONVERSION BACK TOGETHER;
 DATA TOTAL; MERGE BTH1 BTH2 BTH3 BTH4 BTH5 BTH6 BTH7 BTH8; BY CERT;

*WRITES THE RECORD OUT IN NCHS FORMAT AND DETAIL;
 FILE OUT LRECL=1475;
 PUT @3 RECCODE 1. @4 CERT $ 5. @9 DOBMONTH $ 2. @11 DOBDAY $ 2. @15 SEX $ 1.
 @16 OCC 5. @21 TYPE $ 1. @22 ATTEND $ 1. @23 MDOBMNTH $ 2. @25 MDOBDAY $ 2. @29 MBIRTH $ 2.
 @31 RESSTCCO $ 5. @36 FDOBMNTH $2. @38 FDOBDAY $ 2.  @42 HISPANCM $ 1. @43 HISPANCF $ 1.
 @44 RACEM $ 1. @45 RACEF $ 1. @46 EDUCM $ 2. @48 EDUCF $ 2. @50 NOWLIVE $ 2. @52 NOWDEAD $ 2.
 @54 OTHTERM $ 2. @56 DOLLBMN $ 2. @58 DOLLBYR $ 2. @60 MARITAL $ 1. @61 DOLNMMN $ 2.
 @63 DOLNMDAY $ 2. @66 MPCB $ 1. @69 VISITS $ 2. @71 WGHTUNIT $ 1. @72 GRAMS $ 4.
 @76 CLINGEST $ 2. @78 PLURAL $ 1. @79 APGARO $ 2. @81 APGARF $ 2. @83 MEDNONE $ 1.
 @84 MEDANEM $ 1. @85 MEDCARD $ 1. @86 MEDLUNG $ 1. @87 MEDDIAB $ 1.  @88 MEDHERP $ 1.
 @89 MEDHYOL $ 1. @90 MEDHEMO $ 1. @91 MEDHYPC $ 1. @92 MEDHYPP $ 1. @93 MEDECLA $ 1.
 @94 MEDCERV $ 1. @95 MEDBIGG $ 1. @96 MEDSMLL $ 1. @97 MEDRENL $ 1. @98 MEDRHSE $ 1.
 @99 MEDUTER $ 1. @100 MEDOTHR $ 1. @117 TOBACCO $ 1. @118 TOBNUM $ 2. @120 ALCOHOL $ 1.
 @121 ALCNUM $ 2. @123 WGHTGAIN $ 2. @125 OBNONE $ 1. @126 OBAMNIO $ 1. @127 OBEFM $ 1.
 @128 OBINDUC $ 1. @129 OBSTIMU $ 1. @130 OBTOCOL $ 1. @131 OBULTRA $ 1. @132 OBOTHER $ 1.
 @139 COMPNONE $ 1. @140 COMPFEB $ 1. @141 COMPMEC $ 1. @142 COMPPREM $ 1. @143 COMPABR $ 1.
 @144 COMPPLAC $ 1. @145 COMPEXBL $ 1. @146 COMPSEDL $ 1. @147 COMPPREC $ 1. @148 COMPPROL $ 1.
 @149 COMPDYSE $ 1. @150 COMPBREE $ 1. @151 COMPCEPH $ 1. @152 COMPCORD $ 1. @153 COMPANES $ 1.
 @154 COMPFET $ 1. @155 COMPOTHR $ 1. @171 METHNC $ 1. @172 METHVAG $ 1. @173 METHVBAC $ 1.
 @174 METHPRIC $ 1. @175 METHREPC $ 1. @176 METHFORC $ 1. @177 METHVAC $ 1. @183 ABNNONE $ 1.
 @184 ABNANEM $ 1. @185 ABNINJ $ 1. @186 ABNALC $ 1. @187 ABNHYAL $ 1. @188 ABNMEC $ 1.
 @189 ABNLT $ 1. @190 ABNGE $ 1. @191 ABNSEIZ $ 1. @192 ABNOTHR $ 1. @201 BDNONE $ 1.
 @202 BDANEN $ 1. @203 BDSPIN $ 1. @204 BDHYDR $ 1. @205 BDMICR $ 1. @206 BDOCNSA $ 1.
 @207 BDHEART $ 1. @208 BDOCRA $ 1. @209 BDRECT $ 1. @210 BDTRACH $ 1. @211 BDOMPH $ 1.
 @212 BDOGA $ 1. @213 BDMALF $ 1. @214 BDRENAL $ 1. @215 BDOUA $ 1. @216 BDCLEFT $ 1.
 @217 BDPOLY $ 1. @218 BDCLUB $ 1. @219 BDDIAP $ 1. @220 BDOMIA $ 1. @221 BDDOWN $ 1.
 @222 BDOCA $ 1. @223 BDOTHR $ 1. @224 DOBYR $ 4.  @228 MDOBYR $ 4. @232 FDOBYR $ 4.
 @236 DOLNMYR $ 4. @245 AGEM $ 2. @247 AGEF $ 2. @321 CFIRST $ 50. @371 CMIDDLE $ 50.
 @421 CLAST $ 50. @471 TIME $ 4. @475 AMPM $ 1. @476 COUNTY $ 13. @501 TOWN $ 30.
 @551 HOSPITAL $ 30. @601 MOMFIRST $ 50. @651 MOMMID $ 50. @701 MOMLAST $ 50. @751 MOMMAID $ 50.
 @801 MOMTITLE $ 4. @808 MOMZIP $ 9. @817 COUNTYR $ 12. @842 CITYR $ 18. @892 ADDRESS $ 35.
 @942 LIMITS $ 1. @943 DADFIRST $ 50. @993 DADMID $ 50. @1043 DADLAST $ 50. @1093 DADTITLE $ 4.
 @1100 MOMSSA $ 9. @1109 DADSSA $ 9. @1143 OCCMOM $ 3. @1171 OCCDAD $ 3. @1199 INDMOM $ 3.
 @1227 INDDAD $ 3. @1360 TERMMON $ 2. @1362 TERMYEAR $ 4. @1366 ORDERC $ 2. @1368 MOMTRAN $ 1.
 @1419 BABYTRAN $ 1. @1470 FLAGR $ 1. @1471 LIVEYEAR $ 4.;

RUN;