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