if stratum in (145,146,147,148) then cstratum=432;
if stratum in (151,152) then cstratum=433;
if stratum in (153,154) then cstratum=434;
if stratum in (156,157,158) then cstratum=435;
if stratum in (160,161) then cstratum=436;
if stratum in (164,165) then cstratum=437;
if stratum in (167,168) then cstratum=438;
if stratum in (169,170,171,172) then cstratum=439;
if stratum in (176,177,180) then cstratum=440;
if stratum in (181,182) then cstratum=441;
if stratum in (186,187) then cstratum=442;
if stratum in (189,190) then cstratum=443;
if stratum in (194,196) then cstratum=444;
if stratum in (197,199) then cstratum=445;
if stratum in (202,203) then cstratum=446;
if stratum in (205,206) then cstratum=447;
if stratum in (207,208) then cstratum=448;
if stratum in (211,212) then cstratum=449;
if stratum in (214,215) then cstratum=450;
if stratum in (216,217) then cstratum=451;
if stratum in (218,219) then cstratum=452;
if stratum in (222,223,224,225) then cstratum=453;
if stratum in (230,232) then cstratum=454;
if stratum in (234,236,237) then cstratum=455;
if stratum in (238,239) then cstratum=456;
if stratum in (241,242) then cstratum=457;
if stratum in (244,245,246) then cstratum=458;
if stratum in (249,250) then cstratum=459;
if stratum in (252,253) then cstratum=460;
if stratum in (256,257) then cstratum=461;
if stratum in (258,259) then cstratum=462;
if stratum in (263,264) then cstratum=463;
if stratum in (265,266) then cstratum=464;
if stratum in (268,269,270) then cstratum=465;
if stratum in (271,272,273) then cstratum=466;
if stratum in (278,279,280,283,284,285) then cstratum=466;
if stratum in (289,290,291,292) then cstratum=467;
if stratum in (296,297) then cstratum=468;
if stratum in (299,300) then cstratum=469;
if stratum in (307,308,309) then cstratum=470;
if stratum in (311,312,313) then cstratum=471;
if stratum in (321,322) then cstratum=472;
if stratum in (314,315) then cstratum=473;
if stratum in (324,325) then cstratum=474;
if stratum in (328,329,330) then cstratum=475;
if stratum in (333,334) then cstratum=476;
if stratum in (335,336,337,338,339) then cstratum=477;
/*** DEFINE UP-TO-DATE STATUS FOR EACH VACCINE AND SERIES ***/
if b_numdtp>=4 then b_utddtp=1;
else b_utddtp=2;
if b_numdtp>=3 then b_utddt3=1;
else b_utddt3=2;
if b_numpol>=3 then b_utdpol=1;
else b_utdpol=2;
if b_nummmr>=1 then b_utdmmr=1;
else b_utdmmr=2;
if b_numhib>=3 then b_utdhib=1;
else b_utdhib=2;