proc report data=recon_error missing split='?' spanrows;
	columns pno cno patno c_guid1 rguid1 c_guid2 rguid2 c_guid3 rguid3 c_uid1 ruid1 c_uid2 ruid2 c_uid3 ruid3 CONTCSDT rcontcsdt; 
	
	define pno/ display width=8 "Study"; 
	define cno/ display width=4 "Site";
	define patno/ display width=4 "Subj";
	define c_guid1/ display width=4 "GUID1";
	define c_guid2/ display width=4 "GUID2";
	define c_guid3/ display width=4 "GUID3";
	define c_uid1/ display width=4 "UID1";
	define c_uid2/ display width=4 "UID2";
	define c_uid3/ display width=4 "UID3";
	define rguid1/ display width=4 "R-GUID1";
	define rguid2/ display width=4 "R-GUID2";
	define rguid3/ display width=4 "R-GUID3";
	define ruid1/ display width=4 "R-UID1";
	define ruid2/ display width=4 "R-UID2";
	define ruid3/ display width=4 "R-UID3";
	define CONTCSDT / display width=10 'Consent?Date';
	define rcontcsdt / display width=10 'R-Consent?Date';
	
	compute before patno;	
		if c_guid1 = rguid1 then t_guid1 = 1; 
			else t_guid1 = 0; 
		if c_guid2 = rguid2 then t_guid2 = 1; 
			else t_guid2 = 0; 
		if c_guid3 = rguid3 then t_guid3 = 1; 
			else t_guid3 = 0; 
		if c_uid1 = ruid1 then t_uid1 = 1; 
			else t_uid1 = 0; 
		if c_uid2 = ruid2 then t_uid2 = 1; 
			else t_uid2 = 0; 
		if c_uid3 = ruid3 then t_uid3 = 1; 
			else t_uid3 = 0; 
		if CONTCSDT = rcontcsdt then t_date = 1; 
			else t_date = 0;  
	endcomp;

	compute c_guid1;
		if t_guid1 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid1 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute rguid1;
		if t_guid1 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid1 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute c_guid2;
		if t_guid2 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid2 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute rguid2;
		if t_guid2 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid2 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute c_guid3;
		if t_guid3 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid3 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute rguid3;
		if t_guid3 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_guid3 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute c_uid1;
		if t_uid1 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid1 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute ruid1;
		if t_uid1 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid1 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute c_uid2;
		if t_uid2 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid2 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute ruid2;
		if t_uid2 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid2 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute c_uid3;
		if t_uid3 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid3 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute ruid3;
		if t_uid3 = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_uid3 = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	compute rcontcsdt;
		if t_date = 0 then 
			call define(_col_,'style','style=[background=#fbbcff]');
		else if t_date = 1 then 
			call define(_col_,'style','style=[background=#bcffcd]');
	endcomp;
	
	
  run;