topic Separating variable from a list in SAS Programming

Separating variable from a list

desireatem — Wed, 24 Jan 2018 18:15:18 GMT

Dear Sir/Madam,

I have data set with variable CodedDCList as below. I want to separate it and create many different variables such that it should look like table 2 below. Please Help me with the code

SAS Output

Obs	CodedDxList
1	E78.5 -- Other and unspecified hyperlipidemia; R06.09, R09.89 -- Other dyspnea and respiratory abnormality; I10 -- Unspecified essential hypertension; J44.9 -- Chronic airway obstruction, not elsewhere classified; K21.9 -- Esophageal reflux; M17.10 -- Osteoarthrosis, unspecified whether generalized or localized, lower leg; K44.9 -- Diaphragmatic hernia without mention of obstruction or gangrene
2	I10 -- Unspecified essential hypertension; E04.2 -- Nontoxic multinodular goiter; E78.5 -- Other and unspecified hyperlipidemia

Table 2

Code1 Code2 Code 3 Code4 Code5 Code6 Code

1) E78.5 R06.09, R09.89 I10 J44.9 K21.9 M17.10 K44.

Re: Separating variable from a list

novinosrin — Wed, 24 Jan 2018 18:37:32 GMT

quick and lazy approach:

data have;
infile datalines truncover;
input Obs $ CodedDxList & $800.;
datalines4;
1	E78.5 -- Other and unspecified hyperlipidemia; R06.09, R09.89 -- Other dyspnea and respiratory abnormality; I10 -- Unspecified essential hypertension; J44.9 -- Chronic airway obstruction, not elsewhere classified; K21.9 -- Esophageal reflux; M17.10 -- Osteoarthrosis, unspecified whether generalized or localized, lower leg; K44.9 -- Diaphragmatic hernia without mention of obstruction or gangrene
2	I10 -- Unspecified essential hypertension; E04.2 -- Nontoxic multinodular goiter; E78.5 -- Other and unspecified hyperlipidemia
;;;;

data want;
set have;
array code(100) $20;
k=countw(CodedDxList,'--');
do _n_=1 to k-1;
code(_n_)=scan(scan(CodedDxList,_n_,'--'),-1,';');
end;
drop k;
run;

Re: Separating variable from a list

ballardw — Wed, 24 Jan 2018 18:42:42 GMT

From what the OP shows I think this modification of @novinosrin's code gets a bit closer.

data want;
   set have;
   array code(100) $25;/* the length here needs to be large enough the hold the maximum number of codes *8 */
   k=countw(CodedDxList,';');
   do _n_=1 to k;
      code(_n_)=strip(scan(scan(CodedDxList,_n_,';'),1,'--'));
   end;
   drop k;
run;

Re: Separating variable from a list

desireatem — Wed, 24 Jan 2018 20:39:21 GMT

Thanks, you are right