declare v_accountnumber customer.ACCOUNTNUMBER%type;
		v_lastname customer.name1%type;
		v_firstname customer.name2%type;
		v_phonenumber customer.PRIMARYTELEPHONE%type;
		v_phoneextention customer.PRIMARYTELEPHONE%type;
		v_faxnumber customer.PRIMARYFAX%type;
		v_name customertype.NAME%type;
		v_TERRITORYNAME salesterritoryname.TERRITORYNAME%type;
		v_REGIONNAME salesregionname.REGIONNAME%type;
		v_businessflag customer.COMPANYFLAG%type;
		v_agencyflag customer.AGENCYFLAG%type;
	    V_id number ;
		e_exp exception;
cursor c_customer is		
	   select customer.accountid accountnumber, 
	   		  customer.name1 firstname, 
	   		  customer.name2 lastname, 
			  customer.PRIMARYTELEPHONE phonenumber, 
	   		  customer.PRIMARYEXTENSION phoneextention,
	   		  customer.PRIMARYFAX faxnumber,
	   		  substr(customertype.name, 1 , 10 ) name,
	   		  salesterritoryname.TERRITORYNAME TERRITORYNAME,
	   		  salesregionname.REGIONNAME REGIONNAME,          
	   		  customer.COMPANYFLAG businessflag,
	   		  customer.AGENCYFLAG agencyflag
			  from customer, customertype , salesterritoryname, salesregionname
			  where customer.TYPEID=customertype.id (+) and
			  	  customer.SALESTERRITORYID=salesterritoryname.SALESTERRITORYNAMEID (+) and 
				  customer.SALESREGIONID=salesregionname.SALESREGIONNAMEID (+);
begin
	 V_id:= 1 ;
	 open c_customer;
	 fetch c_customer into v_accountnumber, 
	 	   		  	   v_firstname, 
					   v_lastname, 
					   v_phonenumber, 
					   v_phoneextention,  
					   v_faxnumber,
					   v_name,
					   v_TERRITORYNAME,
					   v_REGIONNAME,
					   v_businessflag,
					   v_agencyflag;
	 while c_customer%found loop
	 fetch c_customer into v_accountnumber, 
	 	   		  	   v_firstname, 
					   v_lastname, 
					   v_phonenumber, 
					   v_phoneextention,  
					   v_faxnumber,
					   v_name,
					   v_TERRITORYNAME,
					   v_REGIONNAME,
					   v_businessflag,
					   v_agencyflag;
		 insert into fact.dmclient
		 		(clientkey,
				 accountnumber,
				 firstname,
				 lastname,
				 phonenumber,
				 phoneextension,
				 faxnumber,
				 customertype,
				 salesterritory,
				 salesregion,
				 businessflag,
				 agencyflag
				) 
		 values (V_id, v_accountnumber, 
	 	   		  	   v_lastname, 
					   v_firstname, 
					   to_number(v_phonenumber), 
					   to_number(v_phoneextention),  
					   to_number(v_faxnumber),
					   v_name,
					   substr(v_TERRITORYNAME, 1 , 10 ),
					   substr(v_REGIONNAME, 1 , 10 ),
					   v_businessflag,
					   v_agencyflag
					   );
		 commit;
		 V_id:=V_id+ 1 ;
	 end loop;
	 close c_customer;
 		 
end;