[Home] [Help]
PACKAGE BODY: APPS.IGI_SLS_SECURE_TABLES_AU_PKG
Source
1 PACKAGE BODY IGI_SLS_SECURE_TABLES_AU_PKG AS
2 /* $Header: igislsbb.pls 120.6.12000000.1 2007/09/03 17:22:03 vspuli ship $ */
3
4 l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 l_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6 l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7 l_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8 l_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 l_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10 l_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 l_path VARCHAR2(50) := 'IGI.PLSQL.igislsbb.IGI_SLS_SECURE_TABLES_AU_PKG.';
12
13 PROCEDURE Insert_Row(p_owner IN igi_sls_secure_tables.owner%TYPE
14 ,p_table_name IN igi_sls_secure_tables.table_name%TYPE
15 ,p_description IN igi_sls_secure_tables.description%TYPE
16 ,p_sls_table_name IN igi_sls_secure_tables.sls_table_name%TYPE
17 ,p_update_allowed IN igi_sls_secure_tables.update_allowed%TYPE
18 ,p_date_enabled IN igi_sls_secure_tables.date_enabled%TYPE
19 ,p_date_disabled IN igi_sls_secure_tables.date_disabled%TYPE
20 ,p_date_removed IN igi_sls_secure_tables.date_removed%TYPE
21 ,p_date_object_created IN igi_sls_secure_tables.date_object_created%TYPE
22 ,p_date_security_applied IN igi_sls_secure_tables.date_security_applied%TYPE
23 ,p_creation_date IN igi_sls_secure_tables.creation_date%TYPE
24 ,p_created_by IN igi_sls_secure_tables.created_by%TYPE
25 ,p_last_update_date IN igi_sls_secure_tables.last_update_date%TYPE
26 ,p_last_updated_by IN igi_sls_secure_tables.last_updated_by%TYPE
27 ,p_last_update_login IN igi_sls_secure_tables.last_update_login%TYPE
28 ,p_rowid IN OUT NOCOPY VARCHAR2
29 ,p_calling_sequence IN OUT NOCOPY VARCHAR2)
30 IS
31
32 l_debug_info VARCHAR2(100);
33
34 CURSOR c_insert IS
35 SELECT rowid
36 FROM igi_sls_secure_tables_audit
37 WHERE owner = p_owner
38 AND table_name = p_table_name;
39
40 BEGIN
41 -- Update the calling sequence
42 p_calling_sequence := 'IGI_SLS_SECURE_TABLES_AU_PKG.Insert_Row<-' ||
43 p_calling_sequence;
44
45 l_debug_info := 'Inserting into IGI_SLS_SECURE_TABLES_AUDIT';
46
47 INSERT INTO igi_sls_secure_tables_audit
48 (owner
49 ,table_name
50 ,description
51 ,sls_table_name
52 ,update_allowed
53 ,date_enabled
54 ,date_disabled
55 ,date_removed
56 ,date_object_created
57 ,date_security_applied
58 ,creation_date
59 ,created_by
60 ,last_update_date
61 ,last_updated_by
62 ,last_update_login)
63 VALUES
64 (p_owner
65 ,p_table_name
66 ,p_description
67 ,p_sls_table_name
68 ,p_update_allowed
69 ,p_date_enabled
70 ,p_date_disabled
71 ,p_date_removed
72 ,p_date_object_created
73 ,p_date_security_applied
74 ,p_creation_date
75 ,p_created_by
76 ,p_last_update_date
77 ,p_last_updated_by
78 ,p_last_update_login);
79
80 l_debug_info := 'Open cursor c_insert';
81 OPEN c_insert;
82
83 l_debug_info := 'Fetch cursor c_insert';
84 FETCH c_insert INTO p_rowid;
85
86 IF c_insert%NOTFOUND THEN
87 l_debug_info := 'Close cursor c_insert NOTFOUND';
88 CLOSE c_insert;
89 RAISE No_Data_Found;
90 END IF;
91
92 l_debug_info := 'Close cursor c_insert';
93 CLOSE c_insert;
94
95 EXCEPTION
96 WHEN OTHERS THEN
97 FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
98 FND_MESSAGE.Set_Token('ERROR',SQLERRM);
99 FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
100 FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
101 IF ( l_unexp_level >= l_debug_level ) THEN
102 FND_LOG.MESSAGE ( l_unexp_level,l_path || 'Insert_Row', FALSE);
103 END IF;
104 APP_EXCEPTION.Raise_Exception;
105
106 END Insert_Row;
107
108 END IGI_SLS_SECURE_TABLES_AU_PKG;