{ PROC HV024 }
  box   QHCLUST => HV024;
        1 -  56 => 1;       { North Central }
       57 - 113 => 2;       { North East }
      114 - 189 => 3;       { North West }
      190 - 244 => 4;       { South East }
      245 - 309 => 6;       { South West }
      310 - 365 => 5;       { South South }
  endbox;
{ PROC HV025 }
  HV025 = QHTYPE;
  box HV024 : HV025 => HV023;
          1 :     1 => 1;      { North Central - urban }
          1 :     2 => 2;      { North Central - rural }
          2 :     1 => 3;      { North East - urban }
          2 :     2 => 4;      { North East - rural }
          3 :     1 => 5;      { North West - urban }
          3 :     2 => 6;      { North West - rural }
          4 :     1 => 7;      { South East - urban }
          4 :     2 => 8;      { South East - rural }
          5 :     1 => 9;      { South West - urban }
          5 :     2 => 10;     { South West - rural }
          6 :     1 => 11;     { South South - urban }
          6 :     2 => 12;     { South South - rural }
  endbox;
{ PROC HV026 }
  HV026 = QHLOCAL-1;
  { if HV025 = 2 then HV026 = 3; endif; }