CREATE PROCEDURE TEMP.UPD_ONEADDR
  ()
  SPECIFIC TEMP.PD_ONEADDR
  MODIFIES SQL DATA 
  NOT DETERMINISTIC
  LANGUAGE SQL
  ------------------------------------------------------------------------
-- SQL Procedure                                                        
------------------------------------------------------------------------
P1: BEGIN
 FOR addr as select insurance_number, B_address from temp.address_
 /* адрес рождения */
 	 if exists (select oneaddress from form.address where id_person=(select id_person from form.natural where insurance_number=addr.insurance_number and end_date is null) and type='B') then
 	 	if select oneaddress from form.address where id_person=(select id_person from form.natural where insurance_number=addr.insurance_number and end_date is null) and type='B'=null then
	  	   update form.address set oneaddress=addr.b_address, start_date=(select start_date from form.natural where insurance_number=addr.insurance_number and end_date is null) 
		   		  where id_person=(select ID_person from form.natural where insurance_number=addr.insurance_number and end_date is null);
	 	end if;
	 else 
	 insert into form.address (ID_person, oneaddress, type, start_date) values ((select ID_person from form.natural 
	 		where insurance_number=addr.insurance_number and end_date is null), addr.b_address, 'B', (select stare_date from form.natural 
	 		where insurance_number=addr.insurance_number and end_date is null));
 	 end if;
 END FOR;
END P1
  ;