I am trying to create a macro surrounding the following code:
if put(dx1,$oudfmt.) = '1'
then
ED_OUD_flag = 1 ;
else
ED_OUD_flag = 0 ;
I have 87 diagnoses codes and want to create a macro that passes the 87 variables and set my flag based on a format. I have tried numerous things and am a little weary right now, and help is greatly appreciated.
Wanted to share my final successful code.
array dx (*) dx1 - dx80;
do i = 1 to dim(dx);
if (put(dx(i),$odfmt.) = '1')
then ED_OD_FLAG = 1 ;
end ;
This worked very well - thank you so much for your help!
No macro is needed. Use arrays instead:
data want;
set have;
array dx (*) dx1 - dx87;
array ED_OUD_flag (*) ED_OUD_flag1 - ED_OUD_flag87;
do i = 1 to dim(dx);
ED_OUD_flag(i) = (put(dx(i),$oudfmt.) = '1');
end;
run;
Thank you! This works great, however I would like only one ED_OUD_flag, is there a way to do this?
@gstover - So what is your logic then? Do all 87 dx variables have to be equal to 1 to set ED_OUD_flag to 1?
Try this (untested):
data want;
set have;
array dx (*) dx1 - dx87;
do i = 1 to dim(dx);
ED_OUD_flags + (put(dx(i),$oudfmt.) = '1');
end;
ED_OUD_flag = (ED_OUD_flags = 87);
run;
Wanted to share my final successful code.
array dx (*) dx1 - dx80;
do i = 1 to dim(dx);
if (put(dx(i),$odfmt.) = '1')
then ED_OD_FLAG = 1 ;
end ;
This worked very well - thank you so much for your help!
Are you ready for the spotlight? We're accepting content ideas for SAS Innovate 2025 to be held May 6-9 in Orlando, FL. The call is open until September 25. Read more here about why you should contribute and what is in it for you!
Learn how use the CAT functions in SAS to join values from multiple variables into a single value.
Find more tutorials on the SAS Users YouTube channel.