[Home] [Help]
PACKAGE BODY: APPS.XLA_MPA_HEADER_AC_ASSGNS_F_PVT
Source
1 PACKAGE BODY XLA_MPA_HEADER_AC_ASSGNS_F_PVT AS
2 /* $Header: xlathmhc.pkb 120.0 2005/06/24 01:23:55 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_HEADER_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_HEADER_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_analytical_criterion_type_co IN VARCHAR2,
55 x_analytical_criterion_code IN VARCHAR2,
56 x_creation_date IN DATE,
57 x_created_by IN NUMBER,
58 x_last_update_date IN DATE,
59 x_last_updated_by IN NUMBER,
60 x_last_update_login IN NUMBER
61 ) IS
62
63 Cursor C is
64 Select rowid
65 from xla_mpa_header_ac_assgns
66 where amb_context_code = x_amb_context_code
67 and application_id = x_application_id
68 and event_type_code = x_event_type_code
69 and line_definition_owner_code = x_line_definition_owner_code
70 and line_definition_code = x_line_definition_code
71 and accounting_line_type_code = x_accounting_line_type_code
72 and accounting_line_code = x_accounting_line_code
73 and analytical_criterion_type_code = x_analytical_criterion_type_co
74 and analytical_criterion_code = x_analytical_criterion_code;
75
76 l_log_module VARCHAR2(240);
77
78 BEGIN
79
80 If (g_log_enabled) then
81 l_log_module := C_DEFAULT_MODULE||'.insert_row';
82 End If;
83
84 If (C_LEVEL_PROCEDURE >= g_log_level) then
85 trace(p_msg => 'BEGIN of procedure insert_row',
86 p_module => l_log_module,
87 p_level => C_LEVEL_PROCEDURE);
88 End If;
89
90 INSERT INTO XLA_MPA_HEADER_AC_ASSGNS (
91 AMB_CONTEXT_CODE,
92 APPLICATION_ID,
93 EVENT_CLASS_CODE,
94 EVENT_TYPE_CODE,
95 LINE_DEFINITION_OWNER_CODE,
96 LINE_DEFINITION_CODE,
97 ACCOUNTING_LINE_TYPE_CODE,
98 ACCOUNTING_LINE_CODE,
99 ANALYTICAL_CRITERION_TYPE_CODE,
100 ANALYTICAL_CRITERION_CODE,
101 OBJECT_VERSION_NUMBER,
102 CREATION_DATE,
103 CREATED_BY,
104 LAST_UPDATE_DATE,
105 LAST_UPDATED_BY,
106 LAST_UPDATE_LOGIN
107 )
108 VALUES (
109 X_AMB_CONTEXT_CODE,
110 X_APPLICATION_ID,
111 X_EVENT_CLASS_CODE,
112 X_EVENT_TYPE_CODE,
113 X_LINE_DEFINITION_OWNER_CODE,
114 X_LINE_DEFINITION_CODE,
115 X_ACCOUNTING_LINE_TYPE_CODE,
116 X_ACCOUNTING_LINE_CODE,
117 X_ANALYTICAL_CRITERION_TYPE_CO,
118 X_ANALYTICAL_CRITERION_CODE,
119 1,
120 X_CREATION_DATE,
121 X_CREATED_BY,
122 X_LAST_UPDATE_DATE,
123 X_LAST_UPDATED_BY,
124 X_LAST_UPDATE_LOGIN);
125
126 Open C;
127 Fetch C into x_rowid;
128
129 If (C%NOTFOUND) then
130 Close C;
131 Raise NO_DATA_FOUND;
132 End If;
133 Close C;
134
135 If (C_LEVEL_PROCEDURE >= g_log_level) then
136 trace(p_msg => 'END of procedure insert_row',
137 p_module => l_log_module,
138 p_level => C_LEVEL_PROCEDURE);
139 End If;
140 END Insert_Row;
141
142
143
144 PROCEDURE Lock_Row (
145 x_amb_context_code IN VARCHAR2,
146 x_application_id IN NUMBER,
147 x_event_class_code IN VARCHAR2,
148 x_event_type_code IN VARCHAR2,
149 x_line_definition_owner_code IN VARCHAR2,
150 x_line_definition_code IN VARCHAR2,
151 x_accounting_line_type_code IN VARCHAR2,
152 x_accounting_line_code IN VARCHAR2,
153 x_analytical_criterion_type_co IN VARCHAR2,
154 x_analytical_criterion_code IN VARCHAR2
155 ) IS
156
157 Cursor C is
158 Select *
159 from xla_mpa_header_ac_assgns
160 where amb_context_code = x_amb_context_code
161 and application_id = x_application_id
162 and event_type_code = x_event_type_code
163 and line_definition_owner_code = x_line_definition_owner_code
164 and line_definition_code = x_line_definition_code
165 and accounting_line_type_code = x_accounting_line_type_code
166 and accounting_line_code = x_accounting_line_code
167 and analytical_criterion_type_code = x_analytical_criterion_type_co
168 and analytical_criterion_code = x_analytical_criterion_code
169 for update of event_class_code nowait;
170
171 l_rec C%ROWTYPE;
172 l_log_module varchar2(240);
173
174 BEGIN
175 If g_log_enabled then
176 l_log_module := C_DEFAULT_MODULE||'.lock_row';
177 End If;
178
179 If (C_LEVEL_PROCEDURE >= g_log_level) then
180 trace(p_msg => 'BEGIN of procedure lock_row',
181 p_module => l_log_module,
182 p_level => C_LEVEL_PROCEDURE);
183 End If;
184
185 Open C;
186 Fetch C into l_rec;
187 If (C%NOTFOUND) then
188 Close C;
189 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
190 app_exception.raise_exception;
191 End If;
192 Close C;
193
194 If (C_LEVEL_PROCEDURE >= g_log_level) then
195 trace(p_msg => 'END of procedure lock_row',
196 p_module => l_log_module,
197 p_level => C_LEVEL_PROCEDURE);
198 End If;
199 END Lock_Row;
200
201
202
203 PROCEDURE Delete_Row (
204 x_amb_context_code IN VARCHAR2,
205 x_application_id IN NUMBER,
206 x_event_type_code IN VARCHAR2,
207 x_line_definition_owner_code IN VARCHAR2,
208 x_line_definition_code IN VARCHAR2,
209 x_accounting_line_type_code IN VARCHAR2,
210 x_accounting_line_code IN VARCHAR2,
211 x_analytical_criterion_type_co IN VARCHAR2,
212 x_analytical_criterion_code IN VARCHAR2
213 ) IS
214
215 l_log_module VARCHAR2(240);
216
217 BEGIN
218 If g_log_enabled then
219 l_log_module := C_DEFAULT_MODULE||'.delete_row';
220 End If;
221
222 If (C_LEVEL_PROCEDURE >= g_log_level) then
223 trace(p_msg => 'BEGIN of procedure delete_row',
224 p_module => l_log_module,
225 p_level => C_LEVEL_PROCEDURE);
226 End If;
227
228 DELETE from XLA_MPA_HEADER_AC_ASSGNS
229 where amb_context_code = x_amb_context_code
230 and application_id = x_application_id
231 and event_type_code = x_event_type_code
232 and line_definition_owner_code = x_line_definition_owner_code
233 and line_definition_code = x_line_definition_code
234 and accounting_line_type_code = x_accounting_line_type_code
235 and accounting_line_code = x_accounting_line_code
236 and analytical_criterion_type_code = x_analytical_criterion_type_co
237 and analytical_criterion_code = x_analytical_criterion_code;
238
239 If ( SQL%NOTFOUND ) then
240 Raise NO_DATA_FOUND;
241 End If;
242
243 If (C_LEVEL_PROCEDURE >= g_log_level) then
244 trace(p_msg => 'END of procedure delete_row',
245 p_module => l_log_module,
246 p_level => C_LEVEL_PROCEDURE);
247 End If;
248
249 END Delete_Row;
250
251
252 --=============================================================================
253 --
254 -- Following code is executed when the package body is referenced for the first
255 -- time
256 --
257 --=============================================================================
258 BEGIN
259 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
260 g_log_enabled := fnd_log.test
261 (log_level => g_log_level
262 ,module => C_DEFAULT_MODULE);
263
264 IF NOT g_log_enabled THEN
265 g_log_level := C_LEVEL_LOG_DISABLED;
266 END IF;
267
268 END XLA_MPA_HEADER_AC_ASSGNS_F_PVT;