DECLARE 
  err_code NUMBER;   /* Error Trapping for Code 	 */ 
  err_text VARCHAR2(255) ;   /* Error Trapping for Message */ 
BEGIN 
		/*make sure that the entity has an FEIN and that it is in CURRADD */
      if :intid is not null and check_ssn_curradd(:intid) > 0 then 
          SELECT name1, name2, address, city, st, zip, exempt 
          INTO :name1, :name2, :address, :city, :st, :zip, :exempt 
          FROM curradd 
          WHERE ssnfin = :intid; 
      else 
          null; 
      end if; 
      --:end intid is not null
 
  exception 
  when no_data_found then 
      null; 
  when others then 
      err_code := sqlcode; 
      err_text := sqlerrm; 
      message('Error: '||to_char(err_code) ||'-'||err_text) ; 
  END; 

if :intid is not null	then
	execute_trigger('getowner');
elsif :intid is null then
	null;
end if;
next_item;

DECLARE
	CheckDate DATE := to_date('08/19/09', 'MM/DD/YY') ;
	/* Date chosen as cutoff    */
	DateEntered DATE := NULL;
	/* Date Variable            */
	err_code NUMBER;
	/* Error Trapping for Code   */
	err_text VARCHAR2(255) ;
	/* Error Trapping for Message */
BEGIN
	IF :intid IS NOT NULL THEN
		execute_trigger('deo_update') ;
		execute_trigger('dtentry_update') ;
		IF check_ssn_curradd(:intid) = 0 THEN
			--message(:intid|| :name1|| :name2|| :address|| :city|| :st|| :zip|| :deo|| :dtentry);
 --temp message for error checks
			insert_curradd(:intid, :name1, :name2, :address, :city, :st, :zip, :deo, :dtentry) ;
			-- end if check_ssn_curradd(:intid) = 0
		ELSIF get_curradd_date_entered(:intid) >= CheckDate OR check_Supdate_curradd(:intid) = 1 THEN
			SELECT
				name1, name2, address, city,
				st, zip, exempt
			INTO
				:name1, :name2, :address, :city,
				:st, :zip, :exempt
			FROM
				curradd
			WHERE
				ssnfin = :intid;
		ELSIF check_Supdate_curradd(:intid) = 0 THEN
			update_curradd(:intid, :name1, :name2, :address, :city, :st, :zip, :deo, :dtentry) ;
		END IF; -- end if get_curradd_date_entered(:intid) => CheckDate
	END IF;  --:end intid is not null
EXCEPTION
WHEN no_data_found THEN
	NULL;
WHEN OTHERS THEN
	err_code := SQLCODE;
	err_text := sqlerrm;
	MESSAGE('Error: '||TO_CHAR(err_code) ||'-'||err_text) ;
END;