{ ************************************************************************* } { Table 8.29 } if M15 in 20:27,30:33 then { Born in a health facility } s453aw = default; NumBHF = default; if M15 in 20:27 then T829Col = 1; elseif M15 in 30:33 then T829Col = 2; endif; DeliveCost = (-1); if S449(MIDX) in 0:99990 then { Logically, the one place that could carry a 0 cost value - a 0 in all others gets shunted to this variable } DeliveCost = S449(MIDX); { A straight assignment here, thus no correction for (-1) needed } else if S448BA(MIDX) in 1:99990 then DeliveCost = DeliveCost + S448BA(MIDX) endif; if S448BB(MIDX) in 1:99990 then DeliveCost = DeliveCost + S448BB(MIDX) endif; if S448BC(MIDX) in 1:99990 then DeliveCost = DeliveCost + S448BC(MIDX) endif; if S448BD(MIDX) in 1:99990 then DeliveCost = DeliveCost + S448BD(MIDX) endif; if DeliveCost >= 0 then { If any value was provided (including just 1 Rupee)... } DeliveCost = DeliveCost + 1; { ... then correct for the original (-1) value } endif; endif; { Include only cases where a valid cost can be ascertained } if DeliveCost >= 0 then xtab(T829, rweight * DeliveCost); xtab(T829d, rweight); endif; T829Col = default; if S453A(MIDX) = 1 then s453aw = 1; else s453aw = default; endif; NumBHF = 1; xtab(T829, rweight); endif;