******************************************************************************;
* recode following items to 1/2 items to 1/0 in order to sum for comorb score ;
******************************************************************************;
array twopt 
        q43a q43b q43c q43d q43e q43f q43g q43h q43i q43j 
	q44a q44b q44c q44d q44e q44f q44g q44h q44i q44j 
	q44k q44l q44m q44n q44o q44p q44q;

array xtwopt 
        xq43a xq43b xq43c xq43d xq43e xq43f xq43g xq43h xq43i xq43j 
	xq44a xq44b xq44c xq44d xq44e xq44f xq44g xq44h xq44i xq44j 
	xq44k xq44l xq44m xq44n xq44o xq44p xq44q;
	
do over twopt;
 xtwopt=twopt;
 if twopt=2 then xtwopt=0;
end;	

COMOR=xQ43A+xQ43B+xQ43C+xQ43D+xQ43E+xQ43F+xQ43G+xQ43H+xQ43I+xQ43J+
      xQ44A+xQ44B+xQ44C+xQ44D+xQ44E+xQ44F+xQ44G+xQ44H+xQ44I+xQ44J+
      xQ44K+xQ44L+xQ44M+xQ44N+xQ44O;

******************************************************************************;
* recode following items to 0-100 scale in order to average them for score    ;
******************************************************************************;
array threept q18a q18b q18c q18d;
array xthreept xq18a xq18b xq18c xq18d;

array fourpt  q11a q11b q11c q11d q11e q11f q11g;
array xfourpt xq11a xq11b xq11c xq11d xq11e xq11f xq11g;
 
array sevenpt 
 q10a q10b q10c q10d q10e q10f q10g q10h q10i q10j q10k q10l 
 q10m q10n q10o q10p q10q q10r q10s q10t q10u q10v q10w q10x
 
 q12a q12b q12c q12d q12e q12f q12g q12h q12i q12j q12k q12l 
 q12m q12n q12o q12p     
         
 q17a q17b q17c q17d q17e q17f q17g q17h q17i;

array xsevenpt 
 xq10a xq10b xq10c xq10d xq10e xq10f xq10g xq10h xq10i xq10j xq10k xq10l 
 xq10m xq10n xq10o xq10p xq10q xq10r xq10s xq10t xq10u xq10v xq10w xq10x
 
 xq12a xq12b xq12c xq12d xq12e xq12f xq12g xq12h xq12i xq12j xq12k xq12l 
 xq12m xq12n xq12o xq12p      
        
 xq17a xq17b xq17c xq17d xq17e xq17f xq17g xq17h xq17i;

do over threept;
 xthreept=(threept-1)*50;
end;

do over fourpt;
 xfourpt=(fourpt-1)*100/3;
end;

do over sevenpt;
 xsevenpt=(sevenpt-1)*100/6;
end;

DOC=MEAN(xQ10B,xQ10C,xQ10E,xQ10F,xQ10I,xQ10J,xQ10K,xQ10L,xQ10M,xQ10N,xQ10O,xQ10Q,xQ10T,
  xQ10V,xQ10X,xQ11C,xQ12A,xQ12C,xQ12F,xQ12G,xQ12H,xQ12I,xQ12J,xQ12K,xQ12N,
  xQ10A,xQ10D,xQ10G,xQ10H,xQ10U,xQ10W,xQ12B,xQ12D);
ACCESS=MEAN(xQ10P,xQ11B,xQ11D,xQ11F,xQ11G,xQ12L);
WAIT=MEAN(xQ10R,xQ10S);
CHOICE=MEAN(xQ11A,xQ12E);
MENTALH=MEAN(xQ12M,xQ17H);
OVERALL=MEAN(xQ12O,xQ12P);
PLAN=MEAN(xQ17A,xQ17B,xQ17C,xQ17D,xQ17E,xQ17F,xQ17G,xQ17I);
PLANPRB=MEAN(xQ18A,xQ18B,xQ18C,xQ18D);

label 
COMOR   ="number of comorbidities (max=25)"
DOC     ="rating - doctor scale"
ACCESS  ="rating - access scale"
WAIT    ="rating - wait time scale"
CHOICE  ="rating - choice scale"
MENTALH ="rating - MH care scale"
OVERALL ="rating - overall care scale"
PLAN    ="rating - plan scale"
PLANPRB ="rating - health plan problems";