Extract CPT code with restriction?

[ybz12003]

Hello,

In the following sample dataset, I would like to extract "99223", "99469", "99220" in the CPT column.  The extracted number list is needed only to have 5-digit numbers in the CPT column.  Please help, thanks.

data CPT;  
	length CPT $10 status 3; 
	infile datalines delimiter=','; 
	input CPT status;  
	datalines;                     
	99223,2,
	30182374,2,
	30687798,3,
	99469,2,
	A0425,3,
	10992200,4,
;   

data want;
 	length CPT $10 status 3; 
	infile datalines delimiter=','; 
	input CPT status;  
	datalines;                     
	99223,2,
	99469,2,
;   

[Reeza]

LENGTH function.

[Amir · Accepted solution]

Hi,

Thanks for supplying the data in data steps.

The following code returns what you have shown in the want data set, but it does not contain "99220", which is in your problem description.

data want2;
  set cpt;
  
  /* check there are no non-digits in cpt and that it has a length of 5 */
  where not notdigit(strip(cpt)) and length(cpt) eq 5;
run;

Thanks & kind regards,

Amir.