1 PACKAGE BODY IGI_SLS_SECURE_TABLES_PKG AS
2 /* $Header: igislscb.pls 120.3.12000000.1 2007/09/03 17:22:10 vspuli ship $ */
3
4
5 -- This procedure is called from the ON-DELETE trigger of form IGISLSST.
6 -- It updates the date disabled and the date_removed in the table
7 PROCEDURE Update_Row_On_Delete(p_owner IN igi_sls_secure_tables.owner%TYPE
8 ,p_table_name IN igi_sls_secure_tables.table_name%TYPE
9 ,p_date_removed IN igi_sls_secure_tables.date_removed%TYPE
10 ,p_date_disabled IN igi_sls_secure_tables.date_disabled%TYPE
11 ,p_last_update_date IN igi_sls_secure_tables.last_update_date%TYPE
12 ,p_last_updated_by IN igi_sls_secure_tables.last_updated_by%TYPE
13 ,p_last_update_login IN igi_sls_secure_tables.last_update_login%TYPE)
14 IS
15 BEGIN
16 UPDATE igi_sls_secure_tables
17 SET date_disabled = p_date_disabled
18 ,date_removed = p_date_removed
19 ,last_update_date = p_last_update_date
20 ,last_updated_by = p_last_updated_by
21 ,last_update_login = p_last_update_login
22 WHERE owner = p_owner
23 AND table_name = p_table_name;
24
25 IF SQL%NOTFOUND
26 THEN
27 RAISE No_Data_Found;
28 END IF;
29 END Update_Row_On_Delete;
30
31 END IGI_SLS_SECURE_TABLES_PKG;