[Home] [Help]
PACKAGE BODY: APPS.IGI_ITR_CHARGE_ORIG_SS_PKG
Source
1 PACKAGE BODY IGI_ITR_CHARGE_ORIG_SS_PKG as
2 -- $Header: igiitrjb.pls 120.5.12000000.1 2007/09/12 10:31:32 mbremkum ship $
3 --
4
5 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6 l_state_level number := FND_LOG.LEVEL_STATEMENT;
7 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8 l_event_level number := FND_LOG.LEVEL_EVENT;
9 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10 l_error_level number := FND_LOG.LEVEL_ERROR;
11 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12
13
14 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
15 X_Charge_Orig_Id NUMBER,
16 X_Charge_Center_Id NUMBER,
17 X_Originator_Id NUMBER,
18 X_Start_Date DATE,
19 X_End_Date DATE,
20 X_Creation_Date DATE,
21 X_Created_By NUMBER,
22 X_Last_Update_Date DATE,
23 X_Last_Updated_By NUMBER,
24 X_Last_Update_Login NUMBER,
25 X_Code_Combination_Id NUMBER,
26 X_Concatenated_Segments VARCHAR2,
27 X_Employee_Id NUMBER,
28 X_Segment1 VARCHAR2,
29 X_Segment2 VARCHAR2,
30 X_Segment3 VARCHAR2,
31 X_Segment4 VARCHAR2,
32 X_Segment5 VARCHAR2,
33 X_Segment6 VARCHAR2,
34 X_Segment7 VARCHAR2,
35 X_Segment8 VARCHAR2,
36 X_Segment9 VARCHAR2,
37 X_Segment10 VARCHAR2,
38 X_Segment11 VARCHAR2,
39 X_Segment12 VARCHAR2,
40 X_Segment13 VARCHAR2,
41 X_Segment14 VARCHAR2,
42 X_Segment15 VARCHAR2,
43 X_Segment16 VARCHAR2,
44 X_Segment17 VARCHAR2,
45 X_Segment18 VARCHAR2,
46 X_Segment19 VARCHAR2,
47 X_Segment20 VARCHAR2,
48 X_Segment21 VARCHAR2,
49 X_Segment22 VARCHAR2,
50 X_Segment23 VARCHAR2,
51 X_Segment24 VARCHAR2,
52 X_Segment25 VARCHAR2,
53 X_Segment26 VARCHAR2,
54 X_Segment27 VARCHAR2,
55 X_Segment28 VARCHAR2,
56 X_Segment29 VARCHAR2,
57 X_Segment30 VARCHAR2
58 ) IS
59 CURSOR C IS SELECT rowid FROM IGI_ITR_CHARGE_ORIG
60 WHERE charge_orig_id = X_Charge_Orig_Id;
61 BEGIN
62
63 INSERT INTO IGI_ITR_CHARGE_ORIG(
64 charge_orig_id,
65 charge_center_id,
66 originator_id,
67 start_date,
68 end_date,
69 creation_date,
70 created_by,
71 last_update_date,
72 last_updated_by,
73 last_update_login,
74 code_combination_id,
75 concatenated_segments,
76 employee_id,
77 segment1,
78 segment2,
79 segment3,
80 segment4,
81 segment5,
82 segment6,
83 segment7,
84 segment8,
85 segment9,
86 segment10,
87 segment11,
88 segment12,
89 segment13,
90 segment14,
91 segment15,
92 segment16,
93 segment17,
94 segment18,
95 segment19,
96 segment20,
97 segment21,
98 segment22,
99 segment23,
100 segment24,
101 segment25,
102 segment26,
103 segment27,
104 segment28,
105 segment29,
106 segment30
107 ) VALUES (
108 X_Charge_Orig_Id,
109 X_Charge_Center_Id,
110 X_Originator_Id,
111 X_Start_Date,
112 X_End_Date,
113 X_Creation_Date,
114 X_Created_By,
115 X_Last_Update_Date,
116 X_Last_Updated_By,
117 X_Last_Update_Login,
118 X_Code_Combination_Id,
119 X_Concatenated_Segments,
120 X_Employee_Id,
121 X_Segment1,
122 X_Segment2,
123 X_Segment3,
124 X_Segment4,
125 X_Segment5,
126 X_Segment6,
127 X_Segment7,
128 X_Segment8,
129 X_Segment9,
130 X_Segment10,
131 X_Segment11,
132 X_Segment12,
133 X_Segment13,
134 X_Segment14,
135 X_Segment15,
136 X_Segment16,
137 X_Segment17,
138 X_Segment18,
139 X_Segment19,
140 X_Segment20,
141 X_Segment21,
142 X_Segment22,
143 X_Segment23,
144 X_Segment24,
145 X_Segment25,
146 X_Segment26,
147 X_Segment27,
148 X_Segment28,
149 X_Segment29,
150 X_Segment30
151 );
152 OPEN C;
153 FETCH C INTO X_Rowid;
154 if (C%NOTFOUND) then
155 CLOSE C;
156 Raise NO_DATA_FOUND;
157 end if;
158 CLOSE C;
159 END Insert_Row;
160
161
162 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
163 X_Charge_Orig_Id NUMBER,
164 X_Charge_Center_Id NUMBER,
165 X_Originator_Id NUMBER,
166 X_Start_Date DATE,
167 X_End_Date DATE,
168 X_Code_Combination_Id NUMBER,
169 X_Concatenated_Segments VARCHAR2,
170 X_Employee_Id NUMBER,
171 X_Segment1 VARCHAR2,
172 X_Segment2 VARCHAR2,
173 X_Segment3 VARCHAR2,
174 X_Segment4 VARCHAR2,
175 X_Segment5 VARCHAR2,
176 X_Segment6 VARCHAR2,
177 X_Segment7 VARCHAR2,
178 X_Segment8 VARCHAR2,
179 X_Segment9 VARCHAR2,
180 X_Segment10 VARCHAR2,
181 X_Segment11 VARCHAR2,
182 X_Segment12 VARCHAR2,
183 X_Segment13 VARCHAR2,
184 X_Segment14 VARCHAR2,
185 X_Segment15 VARCHAR2,
186 X_Segment16 VARCHAR2,
187 X_Segment17 VARCHAR2,
188 X_Segment18 VARCHAR2,
189 X_Segment19 VARCHAR2,
190 X_Segment20 VARCHAR2,
191 X_Segment21 VARCHAR2,
192 X_Segment22 VARCHAR2,
193 X_Segment23 VARCHAR2,
194 X_Segment24 VARCHAR2,
195 X_Segment25 VARCHAR2,
196 X_Segment26 VARCHAR2,
197 X_Segment27 VARCHAR2,
198 X_Segment28 VARCHAR2,
199 X_Segment29 VARCHAR2,
200 X_Segment30 VARCHAR2
201 ) IS
202
203 CURSOR C IS
204 SELECT *
205 FROM IGI_ITR_CHARGE_ORIG
206 WHERE rowid = X_Rowid
207 FOR UPDATE of Charge_Orig_Id NOWAIT;
208 Recinfo C%ROWTYPE;
209
210 BEGIN
211 OPEN C;
212 FETCH C INTO Recinfo;
213 if (C%NOTFOUND) then
214 CLOSE C;
215 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
216
217 IF( l_excep_level >= l_debug_level) THEN
218 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrjb.IGI_ITR_CHARGE_ORIG_SS_PKG .lock_row.msg1', FALSE);
219 END IF;
220
221 APP_EXCEPTION.Raise_Exception;
222 end if;
223 CLOSE C;
224 if (
225 (Recinfo.charge_center_id = X_Charge_Center_Id)
226 AND (Recinfo.originator_id = X_Originator_Id)
227 AND (Recinfo.charge_orig_id = X_Charge_Orig_Id)
228 AND ( (Recinfo.concatenated_segments = X_Concatenated_Segments)
229 OR ( (Recinfo.concatenated_segments IS NULL)
230 AND (X_Concatenated_Segments IS NULL)))
231 AND ( (Recinfo.employee_id = X_Employee_Id)
232 OR ( (Recinfo.employee_id IS NULL)
233 AND (X_Employee_Id IS NULL)))
234 AND ( (Recinfo.segment1 = X_Segment1)
235 OR ( (Recinfo.segment1 IS NULL)
236 AND (X_Segment1 IS NULL)))
237 AND ( (Recinfo.segment2 = X_Segment2)
238 OR ( (Recinfo.segment2 IS NULL)
239 AND (X_Segment2 IS NULL)))
240 AND ( (Recinfo.segment3 = X_Segment3)
241 OR ( (Recinfo.segment3 IS NULL)
242 AND (X_Segment3 IS NULL)))
243 AND ( (Recinfo.segment4 = X_Segment4)
244 OR ( (Recinfo.segment4 IS NULL)
245 AND (X_Segment4 IS NULL)))
246 AND ( (Recinfo.segment5 = X_Segment5)
247 OR ( (Recinfo.segment5 IS NULL)
248 AND (X_Segment5 IS NULL)))
249 AND ( (Recinfo.segment6 = X_Segment6)
250 OR ( (Recinfo.segment6 IS NULL)
251 AND (X_Segment6 IS NULL)))
252 AND ( (Recinfo.segment7 = X_Segment7)
253 OR ( (Recinfo.segment7 IS NULL)
254 AND (X_Segment7 IS NULL)))
255 AND ( (Recinfo.segment8 = X_Segment8)
256 OR ( (Recinfo.segment8 IS NULL)
257 AND (X_Segment8 IS NULL)))
258 AND ( (Recinfo.segment9 = X_Segment9)
259 OR ( (Recinfo.segment9 IS NULL)
260 AND (X_Segment9 IS NULL)))
261 AND ( (Recinfo.segment10 = X_Segment10)
262 OR ( (Recinfo.segment10 IS NULL)
263 AND (X_Segment10 IS NULL)))
264 AND ( (Recinfo.segment11 = X_Segment11)
265 OR ( (Recinfo.segment11 IS NULL)
266 AND (X_Segment11 IS NULL)))
267 AND ( (Recinfo.segment12 = X_Segment12)
268 OR ( (Recinfo.segment12 IS NULL)
269 AND (X_Segment12 IS NULL)))
270 AND ( (Recinfo.segment13 = X_Segment13)
271 OR ( (Recinfo.segment13 IS NULL)
272 AND (X_Segment13 IS NULL)))
273 AND ( (Recinfo.segment14 = X_Segment14)
274 OR ( (Recinfo.segment14 IS NULL)
275 AND (X_Segment14 IS NULL)))
276 AND ( (Recinfo.segment15 = X_Segment15)
277 OR ( (Recinfo.segment15 IS NULL)
278 AND (X_Segment15 IS NULL)))
279 AND ( (Recinfo.segment16 = X_Segment16)
280 OR ( (Recinfo.segment16 IS NULL)
281 AND (X_Segment16 IS NULL)))
282 AND ( (Recinfo.segment17 = X_Segment17)
283 OR ( (Recinfo.segment17 IS NULL)
284 AND (X_Segment17 IS NULL)))
285 AND ( (Recinfo.segment18 = X_Segment18)
286 OR ( (Recinfo.segment18 IS NULL)
287 AND (X_Segment18 IS NULL)))
288 AND ( (Recinfo.segment19 = X_Segment19)
289 OR ( (Recinfo.segment19 IS NULL)
290 AND (X_Segment19 IS NULL)))
291 AND ( (Recinfo.segment20 = X_Segment20)
292 OR ( (Recinfo.segment20 IS NULL)
293 AND (X_Segment20 IS NULL)))
294 AND ( (Recinfo.segment21 = X_Segment21)
295 OR ( (Recinfo.segment21 IS NULL)
296 AND (X_Segment21 IS NULL)))
297 AND ( (Recinfo.segment22 = X_Segment22)
298 OR ( (Recinfo.segment22 IS NULL)
299 AND (X_Segment22 IS NULL)))
300 AND ( (Recinfo.segment23 = X_Segment23)
301 OR ( (Recinfo.segment23 IS NULL)
302 AND (X_Segment23 IS NULL)))
303 AND ( (Recinfo.segment24 = X_Segment24)
304 OR ( (Recinfo.segment24 IS NULL)
305 AND (X_Segment24 IS NULL)))
306 AND ( (Recinfo.segment25 = X_Segment25)
307 OR ( (Recinfo.segment25 IS NULL)
308 AND (X_Segment25 IS NULL)))
309 AND ( (Recinfo.segment26 = X_Segment26)
310 OR ( (Recinfo.segment26 IS NULL)
311 AND (X_Segment26 IS NULL)))
312 AND ( (Recinfo.segment27 = X_Segment27)
313 OR ( (Recinfo.segment27 IS NULL)
314 AND (X_Segment27 IS NULL)))
315 AND ( (Recinfo.segment28 = X_Segment28)
316 OR ( (Recinfo.segment28 IS NULL)
317 AND (X_Segment28 IS NULL)))
318 AND ( (Recinfo.segment29 = X_Segment29)
319 OR ( (Recinfo.segment29 IS NULL)
320 AND (X_Segment29 IS NULL)))
321 AND ( (Recinfo.segment30 = X_Segment30)
322 OR ( (Recinfo.segment30 IS NULL)
323 AND (X_Segment30 IS NULL)))
324 ) then
325 return;
326 else
327 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
328
329 IF( l_excep_level >= l_debug_level) THEN
330 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrjb.IGI_ITR_CHARGE_ORIG_SS_PKG .lock_row.msg2', FALSE);
331 END IF;
332
333 APP_EXCEPTION.Raise_Exception;
334 end if;
335 END Lock_Row;
336
337
338
339 PROCEDURE Update_Row(X_Rowid VARCHAR2,
340 X_Charge_Orig_Id NUMBER,
341 X_Charge_Center_Id NUMBER,
342 X_Originator_Id NUMBER,
343 X_Start_Date DATE,
344 X_End_Date DATE,
345 X_Last_Update_Date DATE,
346 X_Last_Updated_By NUMBER,
347 X_Last_Update_Login NUMBER,
348 X_Code_Combination_Id NUMBER,
349 X_Concatenated_Segments VARCHAR2,
350 X_Employee_Id NUMBER,
351 X_Segment1 VARCHAR2,
352 X_Segment2 VARCHAR2,
353 X_Segment3 VARCHAR2,
354 X_Segment4 VARCHAR2,
355 X_Segment5 VARCHAR2,
356 X_Segment6 VARCHAR2,
360 X_Segment10 VARCHAR2,
357 X_Segment7 VARCHAR2,
358 X_Segment8 VARCHAR2,
359 X_Segment9 VARCHAR2,
361 X_Segment11 VARCHAR2,
362 X_Segment12 VARCHAR2,
363 X_Segment13 VARCHAR2,
364 X_Segment14 VARCHAR2,
365 X_Segment15 VARCHAR2,
366 X_Segment16 VARCHAR2,
367 X_Segment17 VARCHAR2,
368 X_Segment18 VARCHAR2,
369 X_Segment19 VARCHAR2,
370 X_Segment20 VARCHAR2,
371 X_Segment21 VARCHAR2,
372 X_Segment22 VARCHAR2,
373 X_Segment23 VARCHAR2,
374 X_Segment24 VARCHAR2,
375 X_Segment25 VARCHAR2,
376 X_Segment26 VARCHAR2,
377 X_Segment27 VARCHAR2,
378 X_Segment28 VARCHAR2,
379 X_Segment29 VARCHAR2,
380 X_Segment30 VARCHAR2
381 ) IS
382 BEGIN
383 UPDATE IGI_ITR_CHARGE_ORIG
384 SET
385 charge_orig_id = X_Charge_Orig_Id,
386 charge_center_id = X_Charge_Center_Id,
387 originator_id = X_Originator_Id,
388 start_date = X_Start_Date,
389 end_date = X_End_Date,
390 last_update_date = X_Last_Update_Date,
391 last_updated_by = X_Last_Updated_By,
392 last_update_login = X_Last_Update_Login,
393 concatenated_segments = X_Concatenated_Segments,
394 employee_id = X_Employee_Id,
395 segment1 = X_Segment1,
396 segment2 = X_Segment2,
397 segment3 = X_Segment3,
398 segment4 = X_Segment4,
399 segment5 = X_Segment5,
400 segment6 = X_Segment6,
401 segment7 = X_Segment7,
402 segment8 = X_Segment8,
403 segment9 = X_Segment9,
404 segment10 = X_Segment10,
405 segment11 = X_Segment11,
406 segment12 = X_Segment12,
407 segment13 = X_Segment13,
408 segment14 = X_Segment14,
409 segment15 = X_Segment15,
410 segment16 = X_Segment16,
411 segment17 = X_Segment17,
412 segment18 = X_Segment18,
413 segment19 = X_Segment19,
414 segment20 = X_Segment20,
415 segment21 = X_Segment21,
416 segment22 = X_Segment22,
417 segment23 = X_Segment23,
418 segment24 = X_Segment24,
419 segment25 = X_Segment25,
420 segment26 = X_Segment26,
421 segment27 = X_Segment27,
422 segment28 = X_Segment28,
423 segment29 = X_Segment29,
424 segment30 = X_Segment30
425
426 WHERE rowid = X_Rowid;
427
428 if (SQL%NOTFOUND) then
429 Raise NO_DATA_FOUND;
430 end if;
431 END Update_Row;
432
433 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
434 BEGIN
435 DELETE FROM IGI_ITR_CHARGE_ORIG
436 WHERE rowid = X_Rowid;
437
438 if (SQL%NOTFOUND) then
439 Raise NO_DATA_FOUND;
440 end if;
441 END Delete_Row;
442
443 END IGI_ITR_CHARGE_ORIG_SS_PKG;