topic do loops in arrays outputting multiple observations? in SAS Programming

do loops in arrays outputting multiple observations?

Angmar — Tue, 28 Jan 2020 16:49:12 GMT

Hello,

I've been using the code below to identify records that have one or both diagnoses (t67 or r55) and output them to LIB.NBHR05. Someone informed me that my code would output the same observations multiple times, so I wouldn't have the actual number of records with one or both diagnoses. Is there a work-around without creating a new variable?

Thanks.

26 DATA LIB.NBHR05;
27 SET RED.RED05 (WHERE=(CITY='3'));
28 ARRAY DIAGNOSIS (25) DIAG_CODE_1-DIAG_CODE_25;
29 DO i =1 TO 25;
30 IF DIAGNOSIS(i) =: 'T67' OR DIAGNOSIS(i) =: 'R55' THEN OUTPUT;
31 END;
32 RUN;

Re: do loops in arrays outputting multiple observations?

hashman — Tue, 28 Jan 2020 17:29:09 GMT

@Angmar: You need to break out of the loop once the diagnosis searched for has been found:

data lib.nbhr05 (drop = i) ;                                                                                                                                                                                                                                    
  set red.red05 (where=(city='3')) ;                                                                                                                                                                                                                            
  array diag [25] diag_code_1-diag_code_25 ;                                                                                                                                                                                                                    
  do i = 1 to dim (diag) ;                                                                                                                                                                                                                                      
    if diag[i] in: ("T67", "R55") then do ;                                                                                                                                                                                                                     
      output ;                                                                                                                                                                                                                                                  
      leave ;                                                                                                                                                                                                                                                   
    end ;                                                                                                                                                                                                                                                       
  end ;                                                                                                                                                                                                                                                         
run ;

However, the fact is that you don't need any looping at all:

data lib.nbhr05 ;                                                                                                                                                                                                                                    
  set red.red05 (where=(city='3')) ;                                                                                                                                                                                                                            
  array diag [25] diag_code_1-diag_code_25 ;                                                                                                                                                                                                                    
  if "T67" in diag or "R55" in diag ;                                                                                                                                                                                                                           
run ;

Kind regards

Paul D.