options ps=58 ls=70 nocenter pageno=1 compress=yes obs=max; * o71130 t71130 e71130 o71060 t70760 e70760 o70810 o70560; * 71130; data o71130; *Card 1 of 3 cards; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1130 1-4 rev1130 5 id1130 6-14 /*same as NINDB number*/ req1130 15-17 stud1130 18-22 f07a1130 23-24 /*Month*/ f07b1130 25-26 /*Day*/ f07c1130 27-28 /*Year*/ f08_1130 $ 29-30 f09_1130 31-33 f10_1130 34-36 f11_1130 37-39 f12_1130 40-42 f13_1130 43-45 f14_1130 46-48 f15_1130 49-51 f16_1130 52-54 f17_1130 55-57 f18_1130 58-60 f19_1130 61-63 f20_1130 64-66; label f10_1130= 'cox a2'; label f11_1130 ='cox a4'; label f12_1130 ='cox a8'; label f13_1130 ='cox a9'; label f14_1130 ='cox b1'; label f15_1130 ='cox b2'; label f16_1130 ='cox b3'; label f17_1130 ='cox b4'; label f18_1130 ='cox b5'; label f19_1130 ='cox b6'; label f20_1130 ='cytomegalo virus'; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-72 below; data w71130; *Card 2 of 3 cards; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=2 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2130 1-4 rev2130 5 id2130 6-14 /*same as NINDB number*/ req2130 15-17 stud2130 18-22 f02a2130 23-24 /*Month*/ f02b2130 25-26 /*Day*/ f02c2130 27-28 /*Year*/ f02d2130 $ 29-30 f03_2130 31-33 f04_2130 34-36 f05_2130 37-39 f06_2130 40-42 f07_2130 43-45 f08_2130 46-48 f09_2130 49-51 f10_2130 52-54 f11_2130 55-57 f12_2130 58-60 f13_2130 61-63 f14_2130 64-66 f15_2130 67-69 f16_2130 70-72; label f03_2130= 'echo 6'; label f04_2130 ='echo 9'; label f05_2130= 'echo 11'; label f06_2130 ='echo 16'; label f07_2130 ='echo 20'; label f08_2130 ='eastern equine encephalitis'; label f09_2130 ='st louis e'; label f10_2130 ='western equine e'; label f11_2130 ='flu a'; label f12_2130 ='flu b'; label f13_2130 ='flu c'; label f14_2130 ='herpes'; label f15_2130 ='mumps'; label f16_2130 ='para influenza 1'; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-63 below; data e71130; *Card 3 of 3 cards; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=3 and reqnum=007 and studynum=71130; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form3130 1-4 rev3130 5 id3130 6-14 /*same as NINDB number*/ req3130 15-17 stud3130 18-22 f02a3130 23-24 /*Month*/ f02b3130 25-26 /*Day*/ f02c3130 27-28 /*Year*/ f02d3130 $ 29-30 f03_3130 31-33 f04_3130 34-36 f05_3130 37-39 f06_3130 40-42 f07_3130 43-45 f08_3130 46-48 f09_3130 49-51 f10_3130 52-54 f11_3130 55-57 f12_3130 58-60 f13_3130 61-63; label f03_3130= 'para 2'; label f04_3130= 'para 3'; label f05_3130= 'polio 1'; label f06_3130= 'polio 2'; label f07_3130= 'polio 3' ; label f08_3130= 'psitticosis'; label f09_3130= 'reo'; label f10_3130= 'rubella'; label f11_3130= 'rubeola'; label f12_3130= 'respiratory synctial'; label f13_3130= 'varicella'; run; *71060; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-60 below; data o71060; *Card 1 of 2 cards; infile 'c:\acpp\ascii\CARD8131.asc ' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=006 and studynum=71060; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1060 1-4 rev1060 5 id1060 6-14 /*same as NINDB number*/ req1060 15-17 stud1060 18-22 f07a1060 23-24 /*Month*/ f07b1060 25-26 /*Day*/ f07c1060 27-28 /*Year*/ f08_1060 $ 29-30 f09_1060 31-33 f10_1060 34-36 f11_1060 37-39 f12_1060 40-42 f13_1060 43-45 f14_1060 46-48 f15_1060 49-51 f16_1060 52-54 f17_1060 55-57 f18_1060 58-60 ; label f09_1060='flu a'; label f10_1060 ='flu b'; label f11_1060 ='flu c'; label f12_1060 ='reo'; label f13_1060 ='mumps'; label f14_1060 ='echo 6'; label f15_1060 ='rs'; label f16_1060 ='herpes' label f17_1060 ='cmv'; label f18_1060 ='rubeola'; run; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-51 below; data w71060; *Card 2 of 2 cards; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=2 and reqnum=006 and studynum=71060; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2060 1-4 rev2060 5 id2060 6-14 /*same as NINDB number*/ req2060 15-17 stud2060 18-22 f02a2060 23-24 /*Month*/ f02b2060 25-26 /*Day*/ f02c2060 27-28 /*Year*/ f02d2060 $ 29-30 f03_2060 31-33 f04_2060 34-36 f05_2060 37-39 f06_2060 40-42 f07_2060 43-45 f08_2060 46-48 f09_2060 49-51; label f03_2060='cox b1'; label f04_2060='cox b2'; label f05_2060='cox b3'; label f06_2060='cox b4'; label f07_2060='cox b5'; label f08_2060='cox b6'; label f09_2060='rubella'; run; *70760; *inputs cardform 18131, request numbers 005 and 006, study number 70760; *field names will be f00_1760 -- the 1 stands for card 1 and the 760 stands for the last three digits of the unique study number 70760, card 2 will be f00_2760 and card 3 f00_3760; *NOTE: Two cards are present (first and last specimens) for every subject and its two matched control cases with columns 1-50 below; data o70760_card1; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=1 and reqnum in(005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1760 1-4 rev1760 5 id1760 6-14 /*same as NINDB number*/ req1760 15-17 stud1760 18-22 f07a1760 23-24 /*Month*/ f07b1760 25-26 /*Year*/ f08_1760 $ 27-28 f09_1760 29 f10_1760 30-32 f11_1760 33-35 f12_1760 36-38 f13_1760 39-41 f14_1760 42-44 f15_1760 45-47 f16_1760 48-50; label f10_1760= 'salivary gland virus'; label f11_1760= 'herpes simplex'; label f12_1760= 'flu a'; label f13_1760= 'flu b'; label f14_1760= 'flu c'; label f15_1760= 'varicella'; label f16_1760= 'rubella'; run; *Two cards are present (first and last specimens) for every subject case and its two matched control cases with columns 1-77 as above; data w70760; *Card 2 of 3 cards for study number 70760 and request numbers 005 and 006; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=2 and reqnum in(005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form2760 1-4 rev2760 5 id2760 6-14 /*same as NINDB number*/ req2760 15-17 stud2760 18-22 f02a2760 23-24 /*Month*/ f02b2760 25-26 /*Year*/ f02c2760 $ 27-28 f02d2760 29 f03_2760 30-32 f04_2760 33-35 f05_2760 36-38 f06_2760 39-41 f07_2760 42-44 f08_2760 45-47 f09_2760 48-50 f10_2760 51-53 f11_2760 54-56 f12_2760 57-59 /*request 005 only, otherwise blank*/ f13_2760 60-62 /*request 005 only, otherwise blank*/ f14_2760 63-65 f15_2760 66-68 f16_2760 69-71 f17_2760 72-74 /*request 006 only, otherwise blank*/ f18_2760 75-77 /*request 006 only, otherwise blank*/; label f03_2760= 'polio 1'; label f04_2760= 'polio 2'; label f05_2760= 'polio 3'; label f06_2760= 'cox b1'; label f07_2760= 'cox b2'; label f08_2760= 'cox b3'; label f09_2760= 'cox b4'; label f10_2760= 'cox b5'; label f11_2760= 'cox b6'; label f12_2760= 'eee'; label f13_2760= 'wee'; label f14_2760= 'para3'; label f15_2760= 'mumps'; label f16_2760= 'rs'; label f17_2760= 'para 1'; label f18_2760= 'para 2'; run; *Two cards are present (first and last specimens) for every subject case and its two matched control cases with columns 1-65 as above.; data e70760; *Card 3 of 3 cards for study number 70760 and request numbers 005 and 006; infile 'c:\acpp\ascii\CARD8131.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22@; * @ allows the conditional input; if card=3 and reqnum in (005,006) and studynum=70760; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form3760 1-4 rev3760 5 id3760 6-14 /*same as NINDB number*/ req3760 15-17 stud3760 18-22 f02a3760 23-24 /*Month*/ f02b3760 25-26 /*Year*/ f02c3760 $ 27-28 f02d3760 29 f03_3760 30-32 f04_3760 33-35 f05_3760 36-38 f06_3760 39-41 f07_3760 42-44 f08_3760 45-47 f09_3760 48-50 f10_3760 51-53 f11_3760 54-56 f12_3760 57-59 /*request 005 only, otherwise blank*/ f13_3760 60-62 /*REQUEST 006 ONLY, OTHERWISE BLANK -- NOT SURE ABOUT THIS!!!! */ f14_3760 63-65; label f03_3760='adeno'; label f04_3760='cox a2'; label f05_3760='cox a4'; label f06_3760='cox a8'; label f07_3760='cox a9'; label f08_3760='echo 6'; label f09_3760='echo 9'; label f10_3760='echo 11'; label f11_3760='echo 16'; label f12_3760='psitticosis'; label f13_3760='echo 10' label f14_3760='echo 20'; run; *70810; *inputs cardform 18132, request number 002, study number 70810; *field names will be f00_1810 -- the 1 stands for card 1 and the 560 stands for the last three digits of the unique study number 70810; *MORE THAN ONE CARD MAY BE PRESENT WITH COLUMNS 1-42 BELOW. CARD SEQUENCE NUMBER IS IN COLUMN 19 -- DO NOT UNDERSTAND THIS!!!!! ; *NOTE: There is not a field 12 in this dataset; data o70810; *Card 1 of 1 cards; infile 'c:\acpp\ascii\card8132.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=002 and studynum=70810; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1810 1-4 rev1810 5 id1810 6-14 /*same as NINDB number*/ req1810 15-17 stud1810 18-22 f07a1810 23-24 /*Month*/ f07b1810 25-26 /*Day*/ f07c1810 27-28 /*Year*/ f08_1810 $ 29-30 f09_1810 31-34 f10_1810 35 f11_1810 36 f13_1810 39-42 f14_1810 43; label f09_1810='rubella virus titer'; label f10_1810='rabbit kidney'; label f11_1810='clinical infection serology'; * no field 12; label f13_1810='clinical infections'; label f14_1810='clinical infection serology'; run; * 70560; *inputs cardform 18132, request number 001, study number 70560; *field names will be f00_1560 -- the 1 stands for card 1 and the 560 stands for the last three digits of the unique study number 70560; data o70560; *Card 1 of 1 cards; infile 'c:\acpp\ascii\card8132.asc ' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; * if card=1 and reqnum=001 and studynum=70560; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1560 1-4 rev1560 5 id1560 6-14 /*same as NINDB number*/ req1560 15-17 stud1560 18-22 f07a1560 $ 23-24 /*Month*/ /*Line 10949, column 24 is written as a D so was created as text*/ f07b1560 25-26 /*Year*/ f08_1560 $ 27-28 f09_1560 29 f10_1560 30-31 f11_1560 32-35 f12_1560 36 f13_1560 37; label f08_1560='Specimen number and period drawn '; label f09_1560=' '; label f10_1560=' '; label f11_1560=' Toxo titer level'; label f12_1560=' Toxo titer level recode'; label f13_1560=' > four-fold rise'; run; proc freq data= _all_; where site=37; tables site studynum reqnum; run; *inputs cardform 18132, request number 002, study number 70810; *field names will be f00_1810 -- the 1 stands for card 1 and the 560 stands for the last three digits of the unique study number 70810; *MORE THAN ONE CARD MAY BE PRESENT WITH COLUMNS 1-42 BELOW. CARD SEQUENCE NUMBER IS IN COLUMN 19 -- DO NOT UNDERSTAND THIS!!!!! ; *NOTE: There is not a field 12 in this dataset; data ser18132_study70810; *Card 1 of 1 cards; infile 'c:\acpp\ascii\card8132.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; if card=1 and reqnum=002 and studynum=70810; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1810 1-4 rev1810 5 id1810 6-14 /*same as NINDB number*/ req1810 15-17 stud1810 18-22 f07a1810 23-24 /*Month*/ f07b1810 25-26 /*Day*/ f07c1810 27-28 /*Year*/ f08_1810 $ 29-30 f09_1810 31-34 f10_1810 35 f11_1810 36 f13_1810 39-42 f14_1810 43; run; *inputs cardform 18133, request number 001, study number 71150; *field names will be f00_1150 -- the 1 stands for card 1 and the 150 stands for the last three digits of the unique study number 71150; data ser18133_study71150; *Card 1 of 1 cards; infile 'c:\acpp\ascii\card8133.asc' lrecl=81; * uses column input; input card 1 reqnum 15-17 studynum 18-22 @; * @ allows the conditional input; * if card=1 and reqnum=001 and studynum=71150; input /* condition*/ nindb 6-14 site 6-7 familyno 8-12 pregnancy 13 plurality 14 person 13-14 sitefam 6-12 form1150 1-4 rev1150 5 id1150 6-14 /*same as NINDB number*/ req1150 15-17 stud1150 18-22 f07_1150 23 f08_1150 24-27 f09_1150 28-31 f10_1150 32-35; run; proc freq ; where site=37; tables studynum*reqnum; run; proc freq data=ser18131_study71130_card1; tables site req1130 stud1130 f08_1130 -- f20_1130; title 'ser18131_study71130_card1'; run; proc freq data=ser18131_study71130_card2; tables site req2130 stud2130 f02d2130 -- f16_2130; title 'ser18131_study71130_card2'; run; proc freq data=ser18131_study71130_card3; tables site req3130 stud3130 f02d3130 -- f13_3130; title 'ser18131_study71130_card3'; run; proc freq data=ser18132_study70560; tables site req1560 stud1560 f08_1560 f11_1560 -- f13_1560; title 'ser18132_study70560'; run; proc freq data=ser18132_study70810; tables site req1810 stud1810 f08_1810 -- f14_1810; title 'ser18132_study70810'; run; proc freq data=ser18133_study71150; tables site req1150 stud1150 f07_1150 -- f10_1150; title 'ser18133_study71150'; run; proc freq data=ser18131_study71130_card1; where site=37; tables req1130 stud1130 f08_1130 -- f20_1130; title 'ser18131_study71130_card1_JHU'; run; proc freq data=ser18131_study71130_card2; where site=37; tables req2130 stud2130 f02d2130 -- f16_2130; title 'ser18131_study71130_card2_JHU'; run; proc freq data=ser18131_study71130_card3; where site=37; tables req3130 stud3130 f02d3130 -- f13_3130; title 'ser18131_study71130_card3_JHU'; run; proc freq data=ser18132_study70560; where site=37; tables req1560 stud1560 f08_1560 f11_1560 -- f13_1560; title 'ser18132_study70560_JHU'; run; proc freq data=ser18132_study70810; where site=37; tables req1810 stud1810 f08_1810 -- f14_1810; title 'ser18132_study70810_JHU'; run; proc freq data=ser18133_study71150; where site=37; tables req1150 stud1150 f07_1150 -- f10_1150; title 'ser18133_study71150_JHU'; run; proc freq data=ser18131_study71130_card1; where site in (05,37,71); tables req1130 stud1130 f08_1130 -- f20_1130; title 'ser18131_study71130_card1_BIG3'; run; proc freq data=ser18131_study71130_card2; where site in (05,37,71); tables req2130 stud2130 f02d2130 -- f16_2130; title 'ser18131_study71130_card2_BIG3'; run; proc freq data=ser18131_study71130_card3; where site in (05,37,71); tables req3130 stud3130 f02d3130 -- f13_3130; title 'ser18131_study71130_card3_BIG3'; run; proc freq data=ser18132_study70560; where site in (05,37,71); tables req1560 stud1560 f08_1560 f11_1560 -- f13_1560; title 'ser18132_study70560_BIG3'; run; proc freq data=ser18132_study70810; where site in (05,37,71); tables req1810 stud1810 f08_1810 -- f14_1810; title 'ser18132_study70810_BIG3'; run; proc freq data=ser18133_study71150; where site in (05,37,71); tables req1150 stud1150 f07_1150 -- f10_1150; title 'ser18133_study71150_BIG3'; run; Proc print data='c:\ncpp\sas\serology_forms'; run;