*! ehcvsrc.ado 3/29/94                                  (sg28: STB-22)
program define ehcvsrc
    version 3.1
    local options "Cutoff(real .05)"
    parse "`*'"
    preserve
    tempvar x
    mcompp p2-p13, scheffe(`x')
    label var p2 B
    label var p3 C
    label var p4 D
    label var p5 E
    label var p6 F
    label var p7 G
    label var p8 H
    label var p9 I
    label var p10 J
    label var p11 K
    label var p12 L
    label var p13 M
    label var p14 N
    label var p15 O
    label var p16 P
    label var p17 Q
    label var p18 R
    label var p19 S
    label var p20 T
    label var p21 U
    label var p22 V
    label var p23 W
    label var p24 X
    label var p25 Y
    label var p26 Z
    label var p27 AA
    label var p28 BB
    label var p29 CC
    label var p30 DD
    label var p31 EE
    label var p32 FF
    label var p33 GG
    label var p34 HH
    mcompr3 `x', default(A) label /*
      */ great(Gr1 Gr2 Gr3 Gr4 Gr5 Gr6 Gr7 Gr8 Gr9 Gr10 Gr11 Gr12 Gr13) /*
      */ less(Le1 Le2 Le3 Le4 Le5 Le6 Le7 Le8 Le9 Le10 Le11 Le12 Le13) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p14-p16, scheffe(`x') nocons
    mcompr3 `x' , label great(Gr14 Gr15 Gr16) less(Le14 Le15 Le16) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p17-p19, scheffe(`x') nocons
    mcompr3 `x' , label great(Gr17 Gr18 Gr19) less(Le17 Le18 Le19) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p20-p23, scheffe(`x') nocons
    mcompr3 `x' , label great(Gr20 Gr21 Gr22 Gr23) /*
      */ less(Le20 Le21 Le22 Le23) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p24-p26, scheffe(`x') nocons
    mcompr3 `x', label great(Gr24 Gr25 Gr26) /*
      */ less(Le24 Le25 Le26) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p27-p32, scheffe(`x') nocons
    mcompr3 `x', label /*
      */ great(Gr27 Gr28 Gr29 Gr30 Gr31 Gr32) /*
      */ less(Le27 Le28 Le29 Le30 Le31 Le32) /*
      */ cutoff(`cutoff')
    drop `x'
    mcompp p33-p34, scheffe(`x') nocons
    mcompr3 `x' ,  /*
      */ great(Gr33 Gr34) /*
      */ less(Le33 Le34) /*
      */ cutoff(`cutoff')
end

/* assumes p1 omitted,
           p1-p13 are massachussets
           p14-p16 are new york
           p17-p19 are rochester
           p20-p23 are tampa
           p24-p26 are texas
           p27-p32 are california
           p33-p34 are national
*/