/*****************************************************************************
*
* Filename         - $Workfile:   error_triggers.sql  $
*
*                     Name              Date      Version     CR Number
* Author           - See revision history below.
* Last Update      - See revision history below.
*
* Project Name     - TAGTRAK(Oracle Database)
*
* Source Code
* Identifier       - 0/3/300/8010/112
*
* Design Spec
* Section          - 
*
* Contents         -  Live Schema: triggers for error table
*
* Language         - Oracle SQL*Plus script
*
* Classification   - Commercial In Confidence
*
*          (c) Ultra Electronics Limited, 1997
*
*****************************************************************************/
/****************************************************************************
* @(#)$Workfile:   error_triggers.sql  $  $Revision:   1.4  $
*
* Revision History
*
* Note that user tagtrak is many users. For these users the user
* name is entered as the last line in the change description.
*
* $Log:   /pvcsarch/db_ora/db/source/live/triggers/error_triggers.svl  $
* 
*    Rev 1.4   21 Jun 2001 15:04:10   tagtrak
* OR:
* CR:
* Re-baseline version 4.0.0 to include patches.
* 
*    Rev 1.3   02 Apr 1998 19:46:06   tagtrak
* OR:
* CR:
* REV:
* Initial Issue
* See label for concession
* 
*    Rev 1.2   26 Feb 1998 11:42:20   tagtrak
* OR:
* CR:
* REV:
* Initial core product version
* 
*    Rev 1.1   15 Jan 1998 13:38:58   tagtrak
* OR: OR11101, TN13, TN15
* CR:
* REV:
* Phase 2C to Phase 3 upgrade plus code review actions and resolving some technical issues.
* 
* 
*    Rev 1.0   22 Oct 1997 16:38:28   tagtrak
* OR:
* CR:
* REV:
* Initial check-in
*
****************************************************************************/



create or replace trigger ti_error
before insert on error
for each row
begin

	/*
	 * Insert a record into the log table to record that
	 * a new error record was added.
	 */
    
	insert into log_table
		( user_id, reason, log_time )
	values
		( :new.last_user,
		'Error ' || :new.error_id || ', ' || :new.error_description || ' added',
		SYSDATE );

end;
/

create or replace trigger tu_error
before update on error
for each row
declare
	numrows integer;
begin

	/*
	 * Disallow updating of description and last user fields.
	 * if archive flag is not updated explicitly and is 1, update it to 2.
	 */
	
	
	if (:old.error_description != :new.error_description) then
		 raise_application_error( -20018, 'non modifiable column cannot be modified.');
	end if;
	
	
	if (:old.last_user != :new.last_user) then
		 raise_application_error( -20019, 'cannot modify parent code in child table.');
	end if;
	
	 
	if (:new.archive_flag is null and :old.archive_flag = 1) then
		:new.archive_flag := 2;
	end if;
end;
/

create or replace trigger td_error 
before delete on error
for each row
declare 
	numrows integer;
begin

	/*
	 * Disallow deletion from error table.
	 */
    
	raise_application_error( -20010, 'delete of error not allowed');
    
end;
/
