%macro severity(vlist);
%let nv=1;
%let nxtv=%scan(&vlist,&nv);
%do %while (%length(&nxtv)>0);
	if &nxtv._[i] in (0,8,9) then &nxtv._[i] = .; 
  else if &nxtv._[i] = 7 then &nxtv._[i] = 1; 
  else if &nxtv._[i] = 5 then &nxtv._[i] = 2; 
  else if &nxtv._[i] = 3 then &nxtv._[i] = 3; 
  else if &nxtv._[i] = 1 then &nxtv._[i] = 4; 
  
  %let nv=%eval(&nv+1);
  %let nxtv=%scan(&vlist,&nv);
%end;
%mend;