cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
BookmarkSubscribeRSS Feed
SASPhile
Quartz | Level 8 SASPhile
Quartz | Level 8

error Handling:

Posted 05-07-2009 04:02 PM (697 views)
%macro check_errors;
/*delete any stray errors data set prior to doing the lookup*/
proc datasets library=work; delete errors; quit;

proc sql;
create table check_physician as
select distinct (d1.physician),
case
when d1.physician ne d2.phy_name then 'YES' else 'NO'
end as is_it_newname
from whole d1 left outer join caremarkphysicians d2 on d1.physician=d2.Phy_Name
where d1.physician ne '';
quit;

/*Call the DATA step EXIST function with %SYSFUNC to determine if data set exists.*/
%let err = %sysfunc(exist(work.errors));
%if err = 0 %then %do;

/* INSERT CODE HERE TO RUN IF ERRORS DATA SET DOES NOT EXIST */
%end;
%else %do;
%put Errors occurred. Exporting Errors data set to erordatabase;
proc export data=work.errors
dbms=excel2000
outfile='c:\errors.xls';run;
%end;
%mend;

%check_errors;


For the above code errors dataset is created with either "Yes" or "No" or both values.In any case the program will not execute. Can I have the program execute if is_it_newname ="NO" and if "YES" the go to the end of program.
0 Likes
Reply
2 REPLIES 2
LinusH
Tourmaline | Level 20 LinusH
Tourmaline | Level 20

Re: error Handling:

Posted 05-08-2009 05:47 AM (689 views)  |   In reply to SASPhile
I can't really follow you. I can't see vwhere WORK.ERRORS is created. Please attach full code and a LOG if the execution does not work the way you expect. To investigate macro logic turn on MLOGIC MPRINT and SYMBOLGEN options.

/Linus
Data never sleeps
0 Likes
Reply
SASPhile
Quartz | Level 8 SASPhile
Quartz | Level 8

Re: error Handling:

Posted 05-08-2009 11:28 AM (689 views)  |   In reply to LinusH
%macro check_errors;
/*delete any stray errors data set prior to doing the lookup*/
proc datasets library=work; delete errors; quit;

proc sql;
create table errors as
select distinct (d1.physician),
case
when d1.physician ne d2.phy_name then 'YES' else 'NO'
end as is_it_newname
from whole d1 left outer join caremarkphysicians d2 on d1.physician=d2.Phy_Name
where d1.physician ne '';
quit;




/*Call the DATA step EXIST function with %SYSFUNC to determine if data set exists.*/
%let err = %sysfunc(exist(work.errors));
%if err = 0 %then %do;

/* INSERT CODE HERE TO RUN IF ERRORS DATA SET DOES NOT EXIST */

proc sql;
create table whole_v1 as
select d1.*,
case
when d2.nEWPHY_NAME eq '' then d1.physician
else d2.nEWPHY_NAME
end as physician_name
from whole d1 left outer join caremarkphysicians d2 on d1.physician=d2.Phy_Name;
quit;

proc sql;
create table whole_v2 as
select a.*,b.terr_id,b.bsm,b.region,b.city
from whole_v1(drop=md_city) a left outer join caremarkziptoterr b on a.md_zip=b.zip;
quit;



/*****
Report1:Prescriber Report Summary
******/
options missing='';
ods html file="T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\report1- %sysfunc(DATE(),mmddYYd10.).xls";
proc report data=whole_v2 nowd NOWINDOWS HEADLINE MISSING;
COLUMN terr_id bsm physician_name total_scripts, year, productgroup;
define terr_id/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define bsm/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
DEFINE physician_name / group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
DEFINE year / across ''
STYLE (header) = {just=left font_size=1};
DEFINE productgroup / across
STYLE (header) = [FOREGROUND = black font_size=1];
DEFINE total_scripts / sum format=comma12. ' '
STYLE (COLUMN) = { font_size=1.5};
/****
reason to create compute blocks:
repeat GROUP or ORDER variables for every row.
***/
compute terr_id;
if terr_id ne '' then hold=terr_id;
if terr_id eq '' then terr_id=hold;
endcomp;
compute bsm;
if bsm ne '' then hold1=bsm;
if bsm eq '' then bsm=hold1;
endcomp;
break after terr_id/summarize skip ol style=[font_weight=bold background=grey];
run;
ods html close;
/***************** End of report1*************/


/*****
Report2:Caremark Prescriber Report
******/
proc sql noprint;
create table rpt2a as
select distinct terr_id,region,bsm, md_zip,md_addr1,md_addr2,city,md_state,physician_name, sum(total_scripts) as T_yr, productgroup
from whole_v2
group by terr_id,region, md_zip, bsm, physician_name, productgroup,md_zip,city,md_state;
quit;


ods html file="T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\rpt2a-%sysfunc(DATE(),mmddYYd10.).xls";
proc report data=rpt2a nowd NOWINDOWS HEADLINE MISSING;
COLUMN terr_id region bsm md_zip physician_name md_addr1 md_addr2 city md_state t_yr, productgroup;
define terr_id/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define region/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define bsm/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_zip/group '5 digit zip'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {htmlstyle="mso-number-format:\@" just=left font_size=1.5};
DEFINE physician_name / group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
/* DEFINE year / across*/
/* STYLE (header) = {just=left font_size=1};*/
DEFINE year_month / across
STYLE (header) = {just=left font_size=1};
DEFINE productgroup / across
STYLE (header) = [FOREGROUND = black font_size=1];
DEFINE t_yr / format=comma9. ''
STYLE (column) = {font_size=1};
DEFINE t_yr_m/ format=comma9. ''
STYLE (column) = {font_size=1};
define md_addr1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_addr2/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define city/group 'md_city'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_state/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
/****
reason to create compute blocks:
repeat GROUP or ORDER variables for every row.
***/
compute terr_id;
if terr_id ne '' then hold=terr_id;
if terr_id eq '' then terr_id=hold;
endcomp;
compute bsm;
if bsm ne '' then hold1=bsm;
if bsm eq '' then bsm=hold1;
endcomp;
compute region;
if region ne '' then hold3=region;
if region eq '' then region=hold3;
endcomp;
break after terr_id/summarize skip ol style=[font_weight=bold background=grey];
run;
ods html close;

proc sql noprint;
create table rpt2b as
select distinct terr_id,region,bsm, md_zip,md_addr1,md_addr2,city,md_state,physician_name, sum(total_scripts) as T_yr_m, productgroup,year_month
from whole_v2
group by terr_id,region, md_zip, bsm, physician_name, year_month, productgroup,md_zip,city,md_state,year_month;
quit;



ods html file="T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\rpt2b-%sysfunc(DATE(),mmddYYd10.).xls";
proc report data=rpt2b nowd NOWINDOWS HEADLINE MISSING;
COLUMN terr_id region bsm md_zip physician_name md_addr1 md_addr2 city md_state t_yr_m,year_month, productgroup;
define terr_id/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define region/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define bsm/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_zip/group '5 digit zip'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {htmlstyle="mso-number-format:\@" just=left font_size=1.5};
DEFINE physician_name / group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
DEFINE year_month / across
STYLE (header) = {just=left font_size=1};
DEFINE productgroup / across
STYLE (header) = [FOREGROUND = black font_size=1];
DEFINE t_yr_m/ format=comma9. ''
STYLE (column) = {font_size=1};
define md_addr1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_addr2/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define city/group 'md_city'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_state/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
/****
reason to create compute blocks:
repeat GROUP or ORDER variables for every row.
***/
compute terr_id;
if terr_id ne '' then hold=terr_id;
if terr_id eq '' then terr_id=hold;
endcomp;
compute bsm;
if bsm ne '' then hold1=bsm;
if bsm eq '' then bsm=hold1;
endcomp;
compute region;
if region ne '' then hold3=region;
if region eq '' then region=hold3;
endcomp;
break after terr_id/summarize skip ol style=[font_weight=bold background=grey];
run;
ods html close;


/***************** End of report2*************/



/********************
Report3:Caremark Report by Patient (parta)
*********************/

proc sql noprint;
create table pat_seq_id_yr as
select distinct terr_id,region,bsm, md_zip,md_addr1,pat_seq_id1,md_addr2,city,md_state,physician_name, sum(total_scripts) as T_yr, year, productgroup
from whole_v2
group by terr_id,region, md_zip, bsm, physician_name ,pat_seq_id1, year, productgroup,md_zip,city,md_state;
quit;



ods html file="T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\rpt3a-%sysfunc(DATE(),mmddYYd10.).xls";
proc report data=pat_seq_id_yr nowd NOWINDOWS HEADLINE MISSING;
COLUMN terr_id region bsm md_zip physician_name md_addr1 md_addr2 city md_state pat_seq_id1 t_yr,year, productgroup ;
define terr_id/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define region/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define bsm/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_zip/group '5 digit zip'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {htmlstyle="mso-number-format:\@" just=left font_size=1.5};
DEFINE physician_name / group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
DEFINE pat_seq_id1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {font_size=1.5};
DEFINE year / across
STYLE (header) = {just=left font_size=1};
DEFINE productgroup / across
STYLE (header) = [FOREGROUND = black font_size=1];
DEFINE t_yr / sum format=comma9. ''
STYLE (column) = {font_size=1};
define md_addr1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_addr2/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define city/group 'md_city'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_state/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
/****
reason to create compute blocks:
repeat GROUP or ORDER variables for every row.
***/
compute terr_id;
if terr_id ne '' then hold=terr_id;
if terr_id eq '' then terr_id=hold;
endcomp;
compute bsm;
if bsm ne '' then hold1=bsm;
if bsm eq '' then bsm=hold1;
endcomp;
compute region;
if region ne '' then hold3=region;
if region eq '' then region=hold3;
endcomp;
break after terr_id/summarize skip ol style=[font_weight=bold background=grey];
run;
ods html close;
/******End report3:Caremark Report by Patient (parta)********************/




/********************
Report3:Caremark Report by Patient (partb)
*********************/
proc sql noprint;
create table pat_seq_id_yr_m as
select distinct terr_id,region,bsm, md_zip,md_addr1,pat_seq_id1,md_addr2,city,md_state,physician_name, sum(total_scripts) as T_yr_m, year_month, productgroup
from whole_v2
group by terr_id,region, md_zip, bsm, physician_name ,pat_seq_id1, year_month, productgroup,md_zip,city,md_state;;
quit;

ods html file="T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\rpt3b-%sysfunc(DATE(),mmddYYd10.).xls";
proc report data=pat_seq_id_yr_m nowd NOWINDOWS HEADLINE MISSING;
COLUMN terr_id region bsm md_zip physician_name md_addr1 md_addr2 city md_state pat_seq_id1 t_yr_m,year_month, productgroup;
define terr_id/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define region/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define bsm/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_zip/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {htmlstyle="mso-number-format:\@" just=left font_size=1.5};
DEFINE physician_name / group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
DEFINE pat_seq_id1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {font_size=1.5};
DEFINE year_month / across
STYLE (header) = {just=left font_size=1};
DEFINE productgroup / across
STYLE (header) = [FOREGROUND = black font_size=1];
DEFINE t_yr_m / sum format=comma9. ''
STYLE (column) = {font_size=1};
define md_addr1/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_addr2/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define city/group 'md_city'
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
define md_state/group
STYLE (header) = {just=left font_size=1}
STYLE (COLUMN) = {just=left font_size=1.5};
/****
reason to create compute blocks:
repeat GROUP or ORDER variables for every row.
***/
compute terr_id;
if terr_id ne '' then hold=terr_id;
if terr_id eq '' then terr_id=hold;
endcomp;
compute bsm;
if bsm ne '' then hold2=bsm;
if bsm eq '' then bsm=hold2;
endcomp;
compute region;
if region ne '' then hold3=region;
if region eq '' then region=hold3;
endcomp;
compute md_zip;
if md_zip ne '' then hold4=md_zip;
if md_zip eq '' then md_zip=hold4;
endcomp;
break after terr_id/summarize skip ol style=[font_weight=bold background=grey ];

run;
ods html close;



/******Endreport3:Caremark Report by Patient (partb)********************/

%end;
%else %do;
%put Errors occurred. Exporting Errors data set to erordatabase;
proc export data=work.errors
dbms=excel2000
outfile='T:\NovoLand\Biopharm Business Analysis SAS Project (2009)\BSM Prescriber Reports\errors.xls';
run;
%end;
%mend;

%check_errors;
0 Likes
Reply

sas-innovate-2024.png

Don't miss out on SAS Innovate - Register now for the FREE Livestream!

Can't make it to Vegas? No problem! Watch our general sessions LIVE or on-demand starting April 17th. Hear from SAS execs, best-selling author Adam Grant, Hot Ones host Sean Evans, top tech journalist Kara Swisher, AI expert Cassie Kozyrkov, and the mind-blowing dance crew iLuminate! Plus, get access to over 20 breakout sessions.

 

Register now!

How to Concatenate Values

Learn how use the CAT functions in SAS to join values from multiple variables into a single value.

Watch How to Concatenate Values on YouTube

Find more tutorials on the SAS Users YouTube channel.

Click image to register for webinarClick image to register for webinar

Classroom Training Available!

Select SAS Training centers are offering in-person courses. View upcoming courses for:

View all other training opportunities.

Discussion stats
  • 2 replies
  • ‎05-07-2009 04:02 PM
  • 698 views
  • 0 likes
  • 2 in conversation