[Home] [Help]
PACKAGE BODY: APPS.XLA_AAD_LINE_DEFN_ASSGNS_F_PVT
Source
1 PACKAGE BODY xla_aad_line_defn_assgns_f_pvt AS
2 /* $Header: xlathald.pkb 120.2 2005/05/04 06:46:13 ksvenkat ship $ */
3
4 --=============================================================================
5 -- *********** Local Trace Routine **********
6 --=============================================================================
7 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
13
14 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15 C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_aad_line_defn_assgns_f_pvt';
16
17 g_log_level NUMBER;
18 g_log_enabled BOOLEAN;
19
20 PROCEDURE trace
21 (p_msg IN VARCHAR2
22 ,p_module IN VARCHAR2
23 ,p_level IN NUMBER) IS
24
25 BEGIN
26 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
27 fnd_log.message(p_level, p_module);
28 ELSIF p_level >= g_log_level THEN
29 fnd_log.string(p_level, p_module, p_msg);
30 END IF;
31 EXCEPTION
32 WHEN xla_exceptions_pkg.application_exception THEN
33 RAISE;
34
35 WHEN OTHERS THEN
36 xla_exceptions_pkg.raise_message
37 (p_location => 'xla_aad_line_defn_assgns_f_pvt.trace');
38 END trace;
39
40 /*======================================================================+
41 | |
42 | Procedure insert_row |
43 | |
44 +======================================================================*/
45 PROCEDURE insert_row
46 (x_rowid IN OUT NOCOPY VARCHAR2
47 ,x_application_id IN NUMBER
48 ,x_amb_context_code IN VARCHAR2
49 ,x_product_rule_type_code IN VARCHAR2
50 ,x_product_rule_code IN VARCHAR2
51 ,x_event_class_code IN VARCHAR2
52 ,x_event_type_code IN VARCHAR2
53 ,x_line_definition_owner_code IN VARCHAR2
54 ,x_line_definition_code IN VARCHAR2
55 ,x_creation_date IN DATE
56 ,x_created_by IN NUMBER
57 ,x_last_update_date IN DATE
58 ,x_last_updated_by IN NUMBER
59 ,x_last_update_login IN NUMBER)
60
61 IS
62
63 CURSOR c IS
64 SELECT rowid
65 FROM xla_aad_line_defn_assgns
66 WHERE application_id = x_application_id
67 AND amb_context_code = x_amb_context_code
68 AND product_rule_type_code = x_product_rule_type_code
69 AND product_rule_code = x_product_rule_code
70 AND event_class_code = x_event_class_code
71 AND event_type_code = x_event_type_code
72 AND line_definition_owner_code = x_line_definition_owner_code
73 AND line_definition_code = x_line_definition_code
74 ;
75
76 l_log_module VARCHAR2(240);
77 BEGIN
78
79 IF g_log_enabled THEN
80 l_log_module := C_DEFAULT_MODULE||'.insert_row';
81 END IF;
82
83 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
84 trace(p_msg => 'BEGIN of procedure insert_row',
85 p_module => l_log_module,
86 p_level => C_LEVEL_PROCEDURE);
87 END IF;
88
89 INSERT INTO xla_aad_line_defn_assgns
90 (creation_date
91 ,created_by
92 ,application_id
93 ,amb_context_code
94 ,product_rule_type_code
95 ,product_rule_code
96 ,event_class_code
97 ,event_type_code
98 ,line_definition_owner_code
99 ,line_definition_code
100 ,object_version_number
101 ,last_update_date
102 ,last_updated_by
103 ,last_update_login)
104 VALUES
105 (x_creation_date
106 ,x_created_by
107 ,x_application_id
108 ,x_amb_context_code
109 ,x_product_rule_type_code
110 ,x_product_rule_code
111 ,x_event_class_code
112 ,x_event_type_code
113 ,x_line_definition_owner_code
114 ,x_line_definition_code
115 ,1
116 ,x_last_update_date
117 ,x_last_updated_by
118 ,x_last_update_login)
119 ;
120
121 OPEN c;
122 FETCH c INTO x_rowid;
123
124 IF (c%NOTFOUND) THEN
125 CLOSE c;
126 RAISE NO_DATA_FOUND;
127 END IF;
128 CLOSE c;
129
130 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
131 trace(p_msg => 'END of procedure insert_row',
132 p_module => l_log_module,
133 p_level => C_LEVEL_PROCEDURE);
134 END IF;
135
136 END insert_row;
137
138 /*======================================================================+
139 | |
140 | Procedure delete_row |
141 | |
142 +======================================================================*/
143 PROCEDURE delete_row
144 (x_application_id IN NUMBER
145 ,x_amb_context_code IN VARCHAR2
146 ,x_product_rule_type_code IN VARCHAR2
147 ,x_product_rule_code IN VARCHAR2
148 ,x_event_class_code IN VARCHAR2
149 ,x_event_type_code IN VARCHAR2
150 ,x_line_definition_owner_code IN VARCHAR2
151 ,x_line_definition_code IN VARCHAR2)
152
153 IS
154
155 l_log_module VARCHAR2(240);
156 BEGIN
157
158 IF g_log_enabled THEN
159 l_log_module := C_DEFAULT_MODULE||'.delete_row';
160 END IF;
161
162 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
163 trace(p_msg => 'BEGIN of procedure delete_row',
164 p_module => l_log_module,
165 p_level => C_LEVEL_PROCEDURE);
166 END IF;
167
168 DELETE FROM xla_aad_line_defn_assgns
169 WHERE application_id = x_application_id
170 AND amb_context_code = x_amb_context_code
171 AND product_rule_type_code = x_product_rule_type_code
172 AND product_rule_code = x_product_rule_code
173 AND event_class_code = x_event_class_code
174 AND event_type_code = x_event_type_code
175 AND line_definition_owner_code = x_line_definition_owner_code
176 AND line_definition_code = x_line_definition_code;
177
178 IF (SQL%NOTFOUND) THEN
179 RAISE NO_DATA_FOUND;
180 END IF;
181
182 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
183 trace(p_msg => 'END of procedure delete_row',
184 p_module => l_log_module,
185 p_level => C_LEVEL_PROCEDURE);
186 END IF;
187
188 END delete_row;
189
190 --=============================================================================
191 --
192 -- Following code is executed when the package body is referenced for the first
193 -- time
194 --
195 --=============================================================================
196 BEGIN
197 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
198 g_log_enabled := fnd_log.test
199 (log_level => g_log_level
200 ,module => C_DEFAULT_MODULE);
201
202 IF NOT g_log_enabled THEN
203 g_log_level := C_LEVEL_LOG_DISABLED;
204 END IF;
205
206 END xla_aad_line_defn_assgns_f_pvt;