This is to fit standard code to my data with modifications. It works fine out of macro. But it warns as below when i throw the hard code into the macro. And it takes forever. Run never ends. It probably would end eventually had I waited longer. I cancelled submitted statements when it's beyond 20 min.
NOTE: The quoted string currently being processed has become more than 262 characters long. You might have unbalanced quotation marks.
proc import datafile="...\icd.csv" out=icd_10 dbms=csv replace; getnames=yes; run;
data code_list(rename=x=icd); set icd_10;
format x $10.;
icd10=compress(icd10,'.');
icd_10_original=icd10;
x="[*]"||icd10;
run;
proc sql noprint;
select icd
into :codes separated by '|'
from code_list;
quit;
%put &codes;
options compress=yes;
%let x=:Item_1 - :Item_5;
;
libname read_in "...";
libname read_op "...";
libname in_iden "...";
%macro loop(case);
%global case1;
%let case1=&case;
%if &case=Other %then %let condition = &codes;
proc datasets noprint;
delete all_&class._other;
run;
%do year = 2015 %to 2017;
%if &year >= 2015 %then
%do;
libname read_in "...";
%if &class=Inside %then %let file=&class._s_;
%else;
%if &class=Outside %then %let file=&class._s_prime_;
%end;
data temp(compress=yes); set read_in.&file&year(where=(patient_state="NY" and substr(left(Admission_Start_Care_Date),1,4)="2015"));
icd_code = catx('*','*',Primary_Item, of Item:);
if prxmatch("m/&condition/oi",icd_code) > 0;
source="Inside";
run;
proc append base=all_&class._other(compress=yes) data=temp force;
run;
%end;
%mend loop;
%let class=Inside;
%loop(Other);
%let class=Outside;
%loop(Other);
Any hints are appreciated.
Thank you very much in advance.
