[Home] [Help]
PACKAGE BODY: APPS.XLA_AAD_HEADER_AC_ASSGNS_F_PVT
Source
1 PACKAGE BODY xla_aad_header_ac_assgns_f_pvt AS
2 /* $Header: xlathhac.pkb 120.1 2005/04/28 18:45:52 masada ship $ */
3 /*======================================================================+
4 | Copyright (c) 2001-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +=======================================================================+
8 | PACKAGE NAME |
9 | xla_aad_header_ac_assgns_f_pvt |
10 | |
11 | DESCRIPTION |
12 | Forms PL/SQL Wrapper for xla_aad_header_ac_assgns |
13 | |
14 | HISTORY |
15 | 10/18/04 Wynne Chan Created |
16 | |
17 +======================================================================*/
18
19 --=============================================================================
20 -- *********** Local Trace Routine **********
21 --=============================================================================
22 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
25 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
26 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
28
29 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
30 C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_aad_header_ac_assgns_f_pvt';
31
32 g_log_level NUMBER;
33 g_log_enabled BOOLEAN;
34
35 PROCEDURE trace
36 (p_msg IN VARCHAR2
37 ,p_module IN VARCHAR2
38 ,p_level IN NUMBER) IS
39 BEGIN
40 ----------------------------------------------------------------------------
41 -- Following is for FND log.
42 ----------------------------------------------------------------------------
43 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
44 fnd_log.message(p_level, p_module);
45 ELSIF p_level >= g_log_level THEN
46 fnd_log.string(p_level, p_module, p_msg);
47 END IF;
48
49 EXCEPTION
50 WHEN xla_exceptions_pkg.application_exception THEN
51 RAISE;
52
53 WHEN OTHERS THEN
54 xla_exceptions_pkg.raise_message
55 (p_location => 'xla_aad_header_ac_assgns_f_pvt.trace');
56 END trace;
57
58
59 /*======================================================================+
60 | |
61 | Procedure insert_row |
62 | |
63 +======================================================================*/
64 PROCEDURE insert_row
65 (x_rowid IN OUT NOCOPY VARCHAR2
66 ,x_application_id IN NUMBER
67 ,x_amb_context_code IN VARCHAR2
68 ,x_product_rule_type_code IN VARCHAR2
69 ,x_product_rule_code IN VARCHAR2
70 ,x_event_class_code IN VARCHAR2
71 ,x_event_type_code IN VARCHAR2
72 ,x_anal_criterion_type_code IN VARCHAR2
73 ,x_analytical_criterion_code IN VARCHAR2
74 ,x_creation_date IN DATE
75 ,x_created_by IN NUMBER
76 ,x_last_update_date IN DATE
77 ,x_last_updated_by IN NUMBER
78 ,x_last_update_login IN NUMBER)
79 IS
80
81 CURSOR c IS
82 SELECT rowid
83 FROM xla_aad_header_ac_assgns
84 WHERE application_id = x_application_id
85 AND amb_context_code = x_amb_context_code
86 AND event_class_code = x_event_class_code
87 AND event_type_code = x_event_type_code
88 AND product_rule_type_code = x_product_rule_type_code
89 AND product_rule_code = x_product_rule_code
90 AND analytical_criterion_type_code = x_anal_criterion_type_code
91 AND analytical_criterion_code = x_analytical_criterion_code
92 ;
93
94 l_log_module VARCHAR2(240);
95 BEGIN
96
97 IF g_log_enabled THEN
98 l_log_module := C_DEFAULT_MODULE||'.insert_row';
99 END IF;
100
101 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
102 trace(p_msg => 'BEGIN of procedure insert_row',
103 p_module => l_log_module,
104 p_level => C_LEVEL_PROCEDURE);
105 END IF;
106
107 INSERT INTO xla_aad_header_ac_assgns
108 (creation_date
109 ,created_by
110 ,application_id
111 ,amb_context_code
112 ,product_rule_type_code
113 ,product_rule_code
114 ,event_class_code
115 ,event_type_code
116 ,analytical_criterion_type_code
117 ,analytical_criterion_code
118 ,object_version_number
119 ,last_update_date
120 ,last_updated_by
121 ,last_update_login)
122 VALUES
123 (x_creation_date
124 ,x_created_by
125 ,x_application_id
126 ,x_amb_context_code
127 ,x_product_rule_type_code
128 ,x_product_rule_code
129 ,x_event_class_code
130 ,x_event_type_code
131 ,x_anal_criterion_type_code
132 ,x_analytical_criterion_code
133 ,1
134 ,x_last_update_date
135 ,x_last_updated_by
136 ,x_last_update_login)
137 ;
138
139 OPEN c;
140 FETCH c INTO x_rowid;
141
142 IF (c%NOTFOUND) THEN
143 CLOSE c;
144 RAISE NO_DATA_FOUND;
145 END IF;
146 CLOSE c;
147
148 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
149 trace(p_msg => 'END of procedure insert_row',
150 p_module => l_log_module,
151 p_level => C_LEVEL_PROCEDURE);
152 END IF;
153
154 END insert_row;
155
156 /*======================================================================+
157 | |
158 | Procedure lock_row |
159 | |
160 +======================================================================*/
161 PROCEDURE lock_row
162 (x_rowid IN OUT NOCOPY VARCHAR2
163 ,x_application_id IN NUMBER
164 ,x_amb_context_code IN VARCHAR2
165 ,x_product_rule_type_code IN VARCHAR2
166 ,x_product_rule_code IN VARCHAR2
167 ,x_event_class_code IN VARCHAR2
168 ,x_event_type_code IN VARCHAR2
169 ,x_anal_criterion_type_code IN VARCHAR2
170 ,x_analytical_criterion_code IN VARCHAR2)
171 IS
172 CURSOR c IS
173 SELECT *
174 FROM xla_aad_header_ac_assgns
175 WHERE application_id = x_application_id
176 AND amb_context_code = x_amb_context_code
177 AND product_rule_type_code = x_product_rule_type_code
178 AND product_rule_code = x_product_rule_code
179 AND event_class_code = x_event_class_code
180 AND event_type_code = x_event_type_code
181 AND analytical_criterion_type_code = x_anal_criterion_type_code
182 AND analytical_criterion_code = x_analytical_criterion_code
183 FOR UPDATE OF application_id NOWAIT;
184
185 recinfo c%ROWTYPE;
186
187 l_log_module VARCHAR2(240);
188 BEGIN
189
190 IF g_log_enabled THEN
191 l_log_module := C_DEFAULT_MODULE||'.lock_row';
192 END IF;
193
194 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
195 trace(p_msg => 'BEGIN of procedure lock_row',
196 p_module => l_log_module,
197 p_level => C_LEVEL_PROCEDURE);
198 END IF;
199
200 OPEN c;
201 FETCH c INTO recinfo;
202 IF (c%NOTFOUND) THEN
203 CLOSE c;
204 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
205 app_exception.raise_exception;
206 END IF;
207 CLOSE c;
208
209 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
210 trace(p_msg => 'END of procedure lock_row',
211 p_module => l_log_module,
212 p_level => C_LEVEL_PROCEDURE);
213 END IF;
214
215 END lock_row;
216
217
218 /*======================================================================+
219 | |
220 | Procedure delete_row |
221 | |
222 +======================================================================*/
223 PROCEDURE delete_row
224 (x_application_id IN NUMBER
225 ,x_amb_context_code IN VARCHAR2
226 ,x_product_rule_type_code IN VARCHAR2
227 ,x_product_rule_code IN VARCHAR2
228 ,x_event_class_code IN VARCHAR2
229 ,x_event_type_code IN VARCHAR2
230 ,x_anal_criterion_type_code IN VARCHAR2
231 ,x_analytical_criterion_code IN VARCHAR2)
232 IS
233
234 l_log_module VARCHAR2(240);
235 BEGIN
236
237 IF g_log_enabled THEN
238 l_log_module := C_DEFAULT_MODULE||'.delete_row';
239 END IF;
240
241 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
242 trace(p_msg => 'BEGIN of procedure delete_row',
243 p_module => l_log_module,
244 p_level => C_LEVEL_PROCEDURE);
245 END IF;
246
247 DELETE FROM xla_aad_header_ac_assgns
248 WHERE application_id = x_application_id
249 AND amb_context_code = x_amb_context_code
250 AND event_class_code = x_event_class_code
251 AND event_type_code = x_event_type_code
252 AND product_rule_type_code = x_product_rule_type_code
253 AND product_rule_code = x_product_rule_code
254 AND analytical_criterion_type_code = x_anal_criterion_type_code
255 AND analytical_criterion_code = x_analytical_criterion_code
256 ;
257
258 IF (SQL%NOTFOUND) THEN
259 RAISE NO_DATA_FOUND;
260 END IF;
261
262 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
263 trace(p_msg => 'END of procedure delete_row',
264 p_module => l_log_module,
265 p_level => C_LEVEL_PROCEDURE);
266 END IF;
267
268 END delete_row;
269
270
271 --=============================================================================
272 --
273 -- Following code is executed when the package body is referenced for the first
274 -- time
275 --
276 --=============================================================================
277 BEGIN
278 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
279 g_log_enabled := fnd_log.test
280 (log_level => g_log_level
281 ,module => C_DEFAULT_MODULE);
282
283 IF NOT g_log_enabled THEN
284 g_log_level := C_LEVEL_LOG_DISABLED;
285 END IF;
286
287 end xla_aad_header_ac_assgns_f_pvt;