...= substr(glS,1,1);
Bmem2 = substr(suS,1,1);
Bmem3 = substr(UrS,1,1);
Bmem4 = substr(hS,1,1);
Bmem5 = substr(ES,1,1);
Bmem6 = substr(fS,1,1);
/* Count # of Knowledge Questions for each patient out of the 6 of interest */
array Bcalc [6] $Bmem1-Bmem6;
Bcount=0;
do i=1 to 6;
if...