DBA Data[Home] [Help]

PACKAGE BODY: APPS.XLA_MPA_JLT_AC_ASSGNS_F_PVT

Source


1 PACKAGE BODY XLA_MPA_JLT_AC_ASSGNS_F_PVT AS
2 /* $Header: xlathmac.pkb 120.0 2005/06/24 01:29:05 eklau noship $ */
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_MPA_JLT_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_MPA_JLT_AC_ASSGNS_F_PVT.trace');
41 END trace;
42 
43 
44 PROCEDURE Insert_Row (
45     x_rowid				IN OUT NOCOPY VARCHAR2,
46     x_amb_context_code			IN VARCHAR2,
47     x_application_id			IN NUMBER,
48     x_event_class_code			IN VARCHAR2,
49     x_event_type_code			IN VARCHAR2,
50     x_line_definition_owner_code	IN VARCHAR2,
51     x_line_definition_code		IN VARCHAR2,
52     x_accounting_line_type_code		IN VARCHAR2,
53     x_accounting_line_code		IN VARCHAR2,
54     x_mpa_accounting_line_type_co	IN VARCHAR2,
55     x_mpa_accounting_line_code		IN VARCHAR2,
56     x_analytical_criterion_type_co	IN VARCHAR2,
57     x_analytical_criterion_code		IN VARCHAR2,
58     x_mpa_inherit_ac_flag		IN VARCHAR2,
59     x_creation_date			IN DATE,
60     x_created_by			IN NUMBER,
61     x_last_update_date			IN DATE,
62     x_last_updated_by			IN NUMBER,
63     x_last_update_login			IN NUMBER
64 ) IS
65 
66    Cursor C is
67    Select rowid
68      from xla_mpa_jlt_ac_assgns
69     where amb_context_code			= x_amb_context_code
70       and application_id			= x_application_id
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       and accounting_line_type_code		= x_accounting_line_type_code
75       and accounting_line_code			= x_accounting_line_code
76       and mpa_accounting_line_type_code		= x_mpa_accounting_line_type_co
77       and mpa_accounting_line_code		= x_mpa_accounting_line_code
78       and analytical_criterion_type_code	= x_analytical_criterion_type_co
79       and analytical_criterion_code		= x_analytical_criterion_code;
80 
81    l_log_module                    VARCHAR2(240);
82 
83 BEGIN
84 
85    If (g_log_enabled) then
86       l_log_module := C_DEFAULT_MODULE||'.insert_row';
87    End If;
88 
89    If (C_LEVEL_PROCEDURE >= g_log_level) then
90       trace(p_msg    => 'BEGIN of procedure insert_row',
91             p_module => l_log_module,
92             p_level  => C_LEVEL_PROCEDURE);
93    End If;
94 
95    INSERT INTO XLA_MPA_JLT_AC_ASSGNS (
96 	AMB_CONTEXT_CODE,
97         APPLICATION_ID,
98 	EVENT_CLASS_CODE,
99         EVENT_TYPE_CODE,
100         LINE_DEFINITION_OWNER_CODE,
101         LINE_DEFINITION_CODE,
102         ACCOUNTING_LINE_TYPE_CODE,
103         ACCOUNTING_LINE_CODE,
104         MPA_ACCOUNTING_LINE_TYPE_CODE,
105         MPA_ACCOUNTING_LINE_CODE,
106         ANALYTICAL_CRITERION_TYPE_CODE,
107         ANALYTICAL_CRITERION_CODE,
108 	MPA_INHERIT_AC_FLAG,
109         OBJECT_VERSION_NUMBER,
110         CREATION_DATE,
111 	CREATED_BY,
112         LAST_UPDATE_DATE,
113         LAST_UPDATED_BY,
114         LAST_UPDATE_LOGIN
115     )
116     VALUES (
117 	X_AMB_CONTEXT_CODE,
118         X_APPLICATION_ID,
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_MPA_ACCOUNTING_LINE_TYPE_CO,
126         X_MPA_ACCOUNTING_LINE_CODE,
127         X_ANALYTICAL_CRITERION_TYPE_CO,
128         X_ANALYTICAL_CRITERION_CODE,
129 	X_MPA_INHERIT_AC_FLAG,
130         1,
131         X_CREATION_DATE,
132 	X_CREATED_BY,
133         X_LAST_UPDATE_DATE,
134         X_LAST_UPDATED_BY,
135         X_LAST_UPDATE_LOGIN);
136 
137    Open  C;
138    Fetch C into x_rowid;
139 
140    If (C%NOTFOUND) then
141       Close C;
142       Raise NO_DATA_FOUND;
143    End If;
144    Close C;
145 
146    If (C_LEVEL_PROCEDURE >= g_log_level) then
147       trace(p_msg    => 'END of procedure insert_row',
148             p_module => l_log_module,
149             p_level  => C_LEVEL_PROCEDURE);
150    End If;
151 
152 END Insert_Row;
153 
154 
155 
156 PROCEDURE Lock_Row (
157     x_amb_context_code			IN VARCHAR2,
158     x_application_id			IN NUMBER,
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_mpa_accounting_line_type_co	IN VARCHAR2,
165     x_mpa_accounting_line_code		IN VARCHAR2,
166     x_analytical_criterion_type_co	IN VARCHAR2,
167     x_analytical_criterion_code		IN VARCHAR2
168 ) IS
169 
170    Cursor C is
171    Select *
172      from xla_mpa_jlt_assgns
173     where amb_context_code			= x_amb_context_code
174       and application_id			= x_application_id
175       and event_type_code			= x_event_type_code
176       and line_definition_owner_code		= x_line_definition_owner_code
177       and line_definition_code			= x_line_definition_code
178       and accounting_line_type_code		= x_accounting_line_type_code
179       and accounting_line_code			= x_accounting_line_code
180       and mpa_accounting_line_type_code		= x_mpa_accounting_line_type_co
181       and mpa_accounting_line_code		= x_mpa_accounting_line_code
182       for update of event_class_code nowait;
183 
184    l_rec		C%ROWTYPE;
185    l_log_module		varchar2(240);
186 
187 BEGIN
188 
189    If g_log_enabled then
190       l_log_module := C_DEFAULT_MODULE||'.lock_row';
191    End If;
192 
193    If (C_LEVEL_PROCEDURE >= g_log_level) then
194       trace(p_msg    => 'BEGIN of procedure lock_row',
195             p_module => l_log_module,
196             p_level  => C_LEVEL_PROCEDURE);
197    End If;
198 
199    Open  C;
200    Fetch C into l_rec;
201    If (C%NOTFOUND) then
202       Close C;
203       fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
204       app_exception.raise_exception;
205    End If;
206    Close C;
207 
208    IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
209       trace(p_msg    => 'END of procedure lock_row',
210             p_module => l_log_module,
211             p_level  => C_LEVEL_PROCEDURE);
212    END IF;
213 
214 END Lock_Row;
215 
216 
217 PROCEDURE Update_Row (
218     x_amb_context_code			IN VARCHAR2,
219     x_application_id			IN NUMBER,
220     x_event_class_code			IN VARCHAR2,
221     x_event_type_code			IN VARCHAR2,
222     x_line_definition_owner_code	IN VARCHAR2,
223     x_line_definition_code		IN VARCHAR2,
224     x_accounting_line_type_code		IN VARCHAR2,
225     x_accounting_line_code		IN VARCHAR2,
226     x_mpa_accounting_line_type_co	IN VARCHAR2,
227     x_mpa_accounting_line_code		IN VARCHAR2,
228     x_analytical_criterion_type_co	IN VARCHAR2,
229     x_analytical_criterion_code		IN VARCHAR2,
230     x_mpa_inherit_ac_flag		IN VARCHAR2,
231     x_last_update_date			IN DATE,
232     x_last_updated_by			IN NUMBER,
233     x_last_update_login			IN NUMBER
234 ) IS
235 
236    l_log_module		varchar2(240);
237 
238 BEGIN
239 
240    IF g_log_enabled THEN
241      l_log_module := C_DEFAULT_MODULE||'.update_row';
242    END IF;
243 
244    IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
245       trace(p_msg    => 'BEGIN of procedure update_row',
246             p_module => l_log_module,
247             p_level  => C_LEVEL_PROCEDURE);
248    END IF;
249 
250    UPDATE XLA_MPA_JLT_AC_ASSGNS
251       SET mpa_inherit_ac_flag		= x_mpa_inherit_ac_flag,
252 	  last_update_date		= x_last_update_date,
253 	  object_version_number		= object_version_number + 1,
254 	  last_updated_by		= x_last_updated_by,
255 	  last_update_login		= x_last_update_login
256     WHERE amb_context_code		= x_amb_context_code
257       and application_id		= x_application_id
258       and event_type_code		= x_event_type_code
259       and line_definition_owner_code	= x_line_definition_owner_code
260       and line_definition_code		= x_line_definition_code
261       and accounting_line_type_code	= x_accounting_line_type_code
262       and accounting_line_code		= x_accounting_line_code
263       and mpa_accounting_line_type_code	= x_mpa_accounting_line_type_co
264       and mpa_accounting_line_code	= x_mpa_accounting_line_code
265       and analytical_criterion_type_code = x_analytical_criterion_type_co
266       and analytical_criterion_code	= x_analytical_criterion_code;
267 
268     IF ( SQL%NOTFOUND ) THEN
269         RAISE NO_DATA_FOUND;
270     END IF;
271 
272    IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
273      trace(p_msg    => 'END of procedure update_row',
274            p_module => l_log_module,
275            p_level  => C_LEVEL_PROCEDURE);
276    END IF;
277 
278 END Update_Row;
279 
280 
281 
282 PROCEDURE Delete_Row (
283     x_amb_context_code			IN VARCHAR2,
284     x_application_id			IN NUMBER,
285     x_event_type_code			IN VARCHAR2,
286     x_line_definition_owner_code	IN VARCHAR2,
287     x_line_definition_code		IN VARCHAR2,
288     x_accounting_line_type_code		IN VARCHAR2,
289     x_accounting_line_code		IN VARCHAR2,
290     x_mpa_accounting_line_type_co	IN VARCHAR2,
291     x_mpa_accounting_line_code		IN VARCHAR2,
292     x_analytical_criterion_type_co	IN VARCHAR2,
293     x_analytical_criterion_code		IN VARCHAR2
294 ) IS
295 
296    l_log_module       VARCHAR2(240);
297 
298 BEGIN
299 
300    If g_log_enabled then
301       l_log_module := C_DEFAULT_MODULE||'.delete_row';
302    End If;
303 
304    If (C_LEVEL_PROCEDURE >= g_log_level) then
305       trace(p_msg    => 'BEGIN of procedure delete_row',
306             p_module => l_log_module,
307             p_level  => C_LEVEL_PROCEDURE);
308    End If;
309 
310     DELETE XLA_MPA_JLT_AC_ASSGNS
311     where amb_context_code			= x_amb_context_code
312       and application_id			= x_application_id
313       and event_type_code			= x_event_type_code
314       and line_definition_owner_code		= x_line_definition_owner_code
315       and line_definition_code			= x_line_definition_code
316       and accounting_line_type_code		= x_accounting_line_type_code
317       and accounting_line_code			= x_accounting_line_code
318       and mpa_accounting_line_type_code		= x_mpa_accounting_line_type_co
319       and mpa_accounting_line_code		= x_mpa_accounting_line_code
320       and analytical_criterion_type_code	= x_analytical_criterion_type_co
321       and analytical_criterion_code		= x_analytical_criterion_code;
322 
323     IF ( SQL%NOTFOUND ) THEN
324        RAISE NO_DATA_FOUND;
325     END IF;
326 
327     If (C_LEVEL_PROCEDURE >= g_log_level) then
328        trace(p_msg    => 'END of procedure delete_row',
329              p_module => l_log_module,
330              p_level  => C_LEVEL_PROCEDURE);
331     End If;
332 
333 END Delete_Row;
334 
335 --=============================================================================
336 --
337 -- Following code is executed when the package body is referenced for the first
338 -- time
339 --
340 --=============================================================================
341 
342 BEGIN
343    g_log_level          := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
344    g_log_enabled        := fnd_log.test
345                           (log_level  => g_log_level
346                           ,module     => C_DEFAULT_MODULE);
347 
348    IF NOT g_log_enabled THEN
349       g_log_level := C_LEVEL_LOG_DISABLED;
350    END IF;
351 
352 
353 END XLA_MPA_JLT_AC_ASSGNS_F_PVT;