[Home] [Help]
PACKAGE BODY: APPS.GL_BUDGET_RANGE_INTERIM_PKG
Source
1 PACKAGE BODY GL_BUDGET_RANGE_INTERIM_PKG as
2 /* $Header: glibdrib.pls 120.4 2005/05/05 01:02:03 kvora ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Ledger_Id NUMBER,
6 X_Code_Combination_Id NUMBER,
7 X_Currency_Code VARCHAR2,
8 X_Budget_Version_Id NUMBER,
9 X_Budget_Entity_Id NUMBER,
10 X_Period_Year NUMBER,
11 X_Period_Type VARCHAR2,
12 X_Start_Period_Name VARCHAR2,
13 X_Start_Period_Num NUMBER,
14 X_Dr_Flag VARCHAR2,
15 X_Status_Number NUMBER,
16 X_Last_Update_Date DATE,
17 X_Last_Updated_By NUMBER,
18 X_Period1_Amount NUMBER,
19 X_Period2_Amount NUMBER,
20 X_Period3_Amount NUMBER,
21 X_Period4_Amount NUMBER,
22 X_Period5_Amount NUMBER,
23 X_Period6_Amount NUMBER,
24 X_Period7_Amount NUMBER,
25 X_Period8_Amount NUMBER,
26 X_Period9_Amount NUMBER,
27 X_Period10_Amount NUMBER,
28 X_Period11_Amount NUMBER,
29 X_Period12_Amount NUMBER,
30 X_Period13_Amount NUMBER,
31 X_Old_Period1_Amount NUMBER,
32 X_Old_Period2_Amount NUMBER,
33 X_Old_Period3_Amount NUMBER,
34 X_Old_Period4_Amount NUMBER,
35 X_Old_Period5_Amount NUMBER,
36 X_Old_Period6_Amount NUMBER,
37 X_Old_Period7_Amount NUMBER,
38 X_Old_Period8_Amount NUMBER,
39 X_Old_Period9_Amount NUMBER,
40 X_Old_Period10_Amount NUMBER,
41 X_Old_Period11_Amount NUMBER,
42 X_Old_Period12_Amount NUMBER,
43 X_Old_Period13_Amount NUMBER,
44 X_Segment1 VARCHAR2,
45 X_Segment2 VARCHAR2,
46 X_Segment3 VARCHAR2,
47 X_Segment4 VARCHAR2,
48 X_Segment5 VARCHAR2,
49 X_Segment6 VARCHAR2,
50 X_Segment7 VARCHAR2,
51 X_Segment8 VARCHAR2,
52 X_Segment9 VARCHAR2,
53 X_Segment10 VARCHAR2,
54 X_Segment11 VARCHAR2,
55 X_Segment12 VARCHAR2,
56 X_Segment13 VARCHAR2,
57 X_Segment14 VARCHAR2,
58 X_Segment15 VARCHAR2,
59 X_Segment16 VARCHAR2,
60 X_Segment17 VARCHAR2,
61 X_Segment18 VARCHAR2,
62 X_Segment19 VARCHAR2,
63 X_Segment20 VARCHAR2,
64 X_Segment21 VARCHAR2,
65 X_Segment22 VARCHAR2,
66 X_Segment23 VARCHAR2,
67 X_Segment24 VARCHAR2,
68 X_Segment25 VARCHAR2,
69 X_Segment26 VARCHAR2,
70 X_Segment27 VARCHAR2,
71 X_Segment28 VARCHAR2,
72 X_Segment29 VARCHAR2,
73 X_Segment30 VARCHAR2,
74 X_Account_Type VARCHAR2,
75 X_Creation_Date DATE,
76 X_Created_By NUMBER,
77 X_Last_Update_Login NUMBER,
78 X_Je_Drcr_Sign_Reference VARCHAR2,
79 X_Je_Line_Description1 VARCHAR2,
80 X_Je_Line_Description2 VARCHAR2,
81 X_Je_Line_Description3 VARCHAR2,
82 X_Je_Line_Description4 VARCHAR2,
83 X_Je_Line_Description5 VARCHAR2,
84 X_Je_Line_Description6 VARCHAR2,
85 X_Je_Line_Description7 VARCHAR2,
86 X_Je_Line_Description8 VARCHAR2,
87 X_Je_Line_Description9 VARCHAR2,
88 X_Je_Line_Description10 VARCHAR2,
89 X_Je_Line_Description11 VARCHAR2,
90 X_Je_Line_Description12 VARCHAR2,
91 X_Je_Line_Description13 VARCHAR2,
92 X_Stat_Amount1 NUMBER,
93 X_Stat_Amount2 NUMBER,
94 X_Stat_Amount3 NUMBER,
95 X_Stat_Amount4 NUMBER,
96 X_Stat_Amount5 NUMBER,
97 X_Stat_Amount6 NUMBER,
98 X_Stat_Amount7 NUMBER,
99 X_Stat_Amount8 NUMBER,
100 X_Stat_Amount9 NUMBER,
101 X_Stat_Amount10 NUMBER,
102 X_Stat_Amount11 NUMBER,
103 X_Stat_Amount12 NUMBER,
104 X_Stat_Amount13 NUMBER
105 ) IS
106 CURSOR C IS SELECT rowid FROM gl_budget_range_interim
107 WHERE ledger_id = X_Ledger_Id
108 AND code_combination_id = X_Code_Combination_Id
109 AND currency_code = X_Currency_Code
110 AND budget_version_id = X_Budget_Version_Id
111 AND period_year = X_Period_Year
112 AND period_type = X_Period_Type
113 AND start_period_num = X_Start_Period_Num
114 AND status_number = X_Status_Number;
115
116 BEGIN
117
118 INSERT INTO gl_budget_range_interim(
119 ledger_id,
120 code_combination_id,
121 currency_code,
122 budget_version_id,
123 budget_entity_id,
124 period_year,
125 period_type,
126 start_period_name,
127 start_period_num,
128 dr_flag,
129 status_number,
130 last_update_date,
131 last_updated_by,
132 period1_amount,
133 period2_amount,
134 period3_amount,
135 period4_amount,
136 period5_amount,
137 period6_amount,
138 period7_amount,
139 period8_amount,
140 period9_amount,
141 period10_amount,
142 period11_amount,
143 period12_amount,
144 period13_amount,
145 old_period1_amount,
146 old_period2_amount,
147 old_period3_amount,
148 old_period4_amount,
149 old_period5_amount,
150 old_period6_amount,
151 old_period7_amount,
152 old_period8_amount,
153 old_period9_amount,
154 old_period10_amount,
155 old_period11_amount,
156 old_period12_amount,
157 old_period13_amount,
158 segment1,
159 segment2,
160 segment3,
161 segment4,
162 segment5,
163 segment6,
164 segment7,
165 segment8,
166 segment9,
167 segment10,
168 segment11,
169 segment12,
170 segment13,
171 segment14,
172 segment15,
173 segment16,
174 segment17,
175 segment18,
176 segment19,
177 segment20,
178 segment21,
179 segment22,
180 segment23,
181 segment24,
182 segment25,
183 segment26,
184 segment27,
185 segment28,
186 segment29,
187 segment30,
188 account_type,
189 creation_date,
190 created_by,
191 last_update_login,
192 je_drcr_sign_reference,
193 je_line_description1,
194 je_line_description2,
195 je_line_description3,
196 je_line_description4,
197 je_line_description5,
198 je_line_description6,
199 je_line_description7,
200 je_line_description8,
201 je_line_description9,
202 je_line_description10,
203 je_line_description11,
204 je_line_description12,
205 je_line_description13,
206 stat_amount1,
207 stat_amount2,
208 stat_amount3,
209 stat_amount4,
210 stat_amount5,
211 stat_amount6,
212 stat_amount7,
213 stat_amount8,
214 stat_amount9,
215 stat_amount10,
216 stat_amount11,
217 stat_amount12,
218 stat_amount13
219 ) VALUES (
220 X_Ledger_Id,
221 X_Code_Combination_Id,
222 X_Currency_Code,
223 X_Budget_Version_Id,
224 X_Budget_Entity_Id,
225 X_Period_Year,
226 X_Period_Type,
227 X_Start_Period_Name,
228 X_Start_Period_Num,
229 X_Dr_Flag,
230 X_Status_Number,
231 X_Last_Update_Date,
232 X_Last_Updated_By,
233 X_Period1_Amount,
234 X_Period2_Amount,
235 X_Period3_Amount,
236 X_Period4_Amount,
237 X_Period5_Amount,
238 X_Period6_Amount,
239 X_Period7_Amount,
240 X_Period8_Amount,
241 X_Period9_Amount,
242 X_Period10_Amount,
243 X_Period11_Amount,
244 X_Period12_Amount,
245 X_Period13_Amount,
246 X_Old_Period1_Amount,
247 X_Old_Period2_Amount,
248 X_Old_Period3_Amount,
249 X_Old_Period4_Amount,
250 X_Old_Period5_Amount,
251 X_Old_Period6_Amount,
252 X_Old_Period7_Amount,
253 X_Old_Period8_Amount,
254 X_Old_Period9_Amount,
255 X_Old_Period10_Amount,
256 X_Old_Period11_Amount,
257 X_Old_Period12_Amount,
258 X_Old_Period13_Amount,
259 X_Segment1,
260 X_Segment2,
261 X_Segment3,
262 X_Segment4,
263 X_Segment5,
264 X_Segment6,
265 X_Segment7,
266 X_Segment8,
267 X_Segment9,
268 X_Segment10,
269 X_Segment11,
270 X_Segment12,
271 X_Segment13,
272 X_Segment14,
273 X_Segment15,
274 X_Segment16,
275 X_Segment17,
276 X_Segment18,
277 X_Segment19,
278 X_Segment20,
279 X_Segment21,
280 X_Segment22,
281 X_Segment23,
282 X_Segment24,
283 X_Segment25,
284 X_Segment26,
285 X_Segment27,
286 X_Segment28,
287 X_Segment29,
288 X_Segment30,
289 X_Account_Type,
290 X_Creation_Date,
291 X_Created_By,
292 X_Last_Update_Login,
293 X_Je_Drcr_Sign_Reference,
294 X_Je_Line_Description1,
295 X_Je_Line_Description2,
296 X_Je_Line_Description3,
297 X_Je_Line_Description4,
298 X_Je_Line_Description5,
299 X_Je_Line_Description6,
300 X_Je_Line_Description7,
301 X_Je_Line_Description8,
302 X_Je_Line_Description9,
303 X_Je_Line_Description10,
304 X_Je_Line_Description11,
305 X_Je_Line_Description12,
306 X_Je_Line_Description13,
307 X_Stat_Amount1,
308 X_Stat_Amount2,
309 X_Stat_Amount3,
310 X_Stat_Amount4,
311 X_Stat_Amount5,
312 X_Stat_Amount6,
313 X_Stat_Amount7,
314 X_Stat_Amount8,
315 X_Stat_Amount9,
316 X_Stat_Amount10,
317 X_Stat_Amount11,
318 X_Stat_Amount12,
319 X_Stat_Amount13);
320
321 OPEN C;
322 FETCH C INTO X_Rowid;
323 if (C%NOTFOUND) then
324 CLOSE C;
325 RAISE NO_DATA_FOUND;
326 end if;
327 CLOSE C;
328 END Insert_Row;
329
330 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
331 X_Ledger_Id NUMBER,
332 X_Code_Combination_Id NUMBER,
333 X_Currency_Code VARCHAR2,
334 X_Budget_Version_Id NUMBER,
335 X_Budget_Entity_Id NUMBER,
336 X_Period_Year NUMBER,
337 X_Period_Type VARCHAR2,
338 X_Start_Period_Name VARCHAR2,
339 X_Start_Period_Num NUMBER,
340 X_Dr_Flag VARCHAR2,
341 X_Status_Number NUMBER,
342 X_Period1_Amount NUMBER,
343 X_Period2_Amount NUMBER,
344 X_Period3_Amount NUMBER,
345 X_Period4_Amount NUMBER,
346 X_Period5_Amount NUMBER,
347 X_Period6_Amount NUMBER,
348 X_Period7_Amount NUMBER,
349 X_Period8_Amount NUMBER,
350 X_Period9_Amount NUMBER,
351 X_Period10_Amount NUMBER,
352 X_Period11_Amount NUMBER,
353 X_Period12_Amount NUMBER,
354 X_Period13_Amount NUMBER,
355 X_Old_Period1_Amount NUMBER,
356 X_Old_Period2_Amount NUMBER,
357 X_Old_Period3_Amount NUMBER,
358 X_Old_Period4_Amount NUMBER,
359 X_Old_Period5_Amount NUMBER,
360 X_Old_Period6_Amount NUMBER,
361 X_Old_Period7_Amount NUMBER,
362 X_Old_Period8_Amount NUMBER,
363 X_Old_Period9_Amount NUMBER,
364 X_Old_Period10_Amount NUMBER,
365 X_Old_Period11_Amount NUMBER,
369 X_Segment2 VARCHAR2,
366 X_Old_Period12_Amount NUMBER,
367 X_Old_Period13_Amount NUMBER,
368 X_Segment1 VARCHAR2,
370 X_Segment3 VARCHAR2,
371 X_Segment4 VARCHAR2,
372 X_Segment5 VARCHAR2,
373 X_Segment6 VARCHAR2,
374 X_Segment7 VARCHAR2,
375 X_Segment8 VARCHAR2,
376 X_Segment9 VARCHAR2,
377 X_Segment10 VARCHAR2,
378 X_Segment11 VARCHAR2,
379 X_Segment12 VARCHAR2,
380 X_Segment13 VARCHAR2,
381 X_Segment14 VARCHAR2,
382 X_Segment15 VARCHAR2,
383 X_Segment16 VARCHAR2,
384 X_Segment17 VARCHAR2,
385 X_Segment18 VARCHAR2,
386 X_Segment19 VARCHAR2,
387 X_Segment20 VARCHAR2,
388 X_Segment21 VARCHAR2,
389 X_Segment22 VARCHAR2,
390 X_Segment23 VARCHAR2,
391 X_Segment24 VARCHAR2,
392 X_Segment25 VARCHAR2,
393 X_Segment26 VARCHAR2,
394 X_Segment27 VARCHAR2,
395 X_Segment28 VARCHAR2,
396 X_Segment29 VARCHAR2,
397 X_Segment30 VARCHAR2,
398 X_Account_Type VARCHAR2,
399 X_Je_Drcr_Sign_Reference VARCHAR2,
400 X_Je_Line_Description1 VARCHAR2,
401 X_Je_Line_Description2 VARCHAR2,
402 X_Je_Line_Description3 VARCHAR2,
403 X_Je_Line_Description4 VARCHAR2,
404 X_Je_Line_Description5 VARCHAR2,
405 X_Je_Line_Description6 VARCHAR2,
406 X_Je_Line_Description7 VARCHAR2,
407 X_Je_Line_Description8 VARCHAR2,
408 X_Je_Line_Description9 VARCHAR2,
409 X_Je_Line_Description10 VARCHAR2,
410 X_Je_Line_Description11 VARCHAR2,
411 X_Je_Line_Description12 VARCHAR2,
412 X_Je_Line_Description13 VARCHAR2,
413 X_Stat_Amount1 NUMBER,
414 X_Stat_Amount2 NUMBER,
415 X_Stat_Amount3 NUMBER,
416 X_Stat_Amount4 NUMBER,
417 X_Stat_Amount5 NUMBER,
418 X_Stat_Amount6 NUMBER,
419 X_Stat_Amount7 NUMBER,
420 X_Stat_Amount8 NUMBER,
421 X_Stat_Amount9 NUMBER,
422 X_Stat_Amount10 NUMBER,
423 X_Stat_Amount11 NUMBER,
424 X_Stat_Amount12 NUMBER,
425 X_Stat_Amount13 NUMBER
426 ) IS
427 CURSOR C IS
428 SELECT *
429 FROM gl_budget_range_interim
430 WHERE rowid = X_Rowid
431 FOR UPDATE of Ledger_Id NOWAIT;
432 Recinfo C%ROWTYPE;
433 BEGIN
434 OPEN C;
435 FETCH C INTO Recinfo;
436 if (C%NOTFOUND) then
437 CLOSE C;
438 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
439 APP_EXCEPTION.RAISE_EXCEPTION;
440 end if;
441 CLOSE C;
442 if (
443 ( (Recinfo.ledger_id = X_Ledger_Id)
444 OR ( (Recinfo.ledger_id IS NULL)
445 AND (X_Ledger_Id IS NULL)))
446 AND ( (Recinfo.code_combination_id = X_Code_Combination_Id)
447 OR ( (Recinfo.code_combination_id IS NULL)
448 AND (X_Code_Combination_Id IS NULL)))
449 AND ( (Recinfo.currency_code = X_Currency_Code)
450 OR ( (Recinfo.currency_code IS NULL)
451 AND (X_Currency_Code IS NULL)))
452 AND ( (Recinfo.budget_version_id = X_Budget_Version_Id)
453 OR ( (Recinfo.budget_version_id IS NULL)
454 AND (X_Budget_Version_Id IS NULL)))
455 AND ( (Recinfo.budget_entity_id = X_Budget_Entity_Id)
456 OR ( (Recinfo.budget_entity_id IS NULL)
457 AND (X_Budget_Entity_Id IS NULL)))
458 AND ( (Recinfo.period_year = X_Period_Year)
459 OR ( (Recinfo.period_year IS NULL)
460 AND (X_Period_Year IS NULL)))
461 AND ( (Recinfo.period_type = X_Period_Type)
462 OR ( (Recinfo.period_type IS NULL)
463 AND (X_Period_Type IS NULL)))
464 AND ( (Recinfo.start_period_name = X_Start_Period_Name)
465 OR ( (Recinfo.start_period_name IS NULL)
466 AND (X_Start_Period_Name IS NULL)))
467 AND ( (Recinfo.start_period_num = X_Start_Period_Num)
468 OR ( (Recinfo.start_period_num IS NULL)
469 AND (X_Start_Period_Num IS NULL)))
470 AND ( (Recinfo.dr_flag = X_Dr_Flag)
471 OR ( (Recinfo.dr_flag IS NULL)
472 AND (X_Dr_Flag IS NULL)))
476 AND ( (nvl(Recinfo.period1_amount,0)
473 AND ( (Recinfo.status_number = X_Status_Number)
474 OR ( (Recinfo.status_number IS NULL)
475 AND (X_Status_Number IS NULL)))
477 - nvl(Recinfo.old_period1_amount,0)
478 = nvl(X_Period1_Amount,0)
479 - nvl(X_old_period1_amount,0)))
480 AND ( (nvl(Recinfo.period2_amount,0)
481 - nvl(Recinfo.old_period2_amount,0)
482 = nvl(X_Period2_Amount,0)
483 - nvl(X_old_period2_amount,0)))
484 AND ( (nvl(Recinfo.period3_amount,0)
485 - nvl(Recinfo.old_period3_amount,0)
486 = nvl(X_Period3_Amount,0)
487 - nvl(X_old_period3_amount,0)))
488 AND ( (nvl(Recinfo.period4_amount,0)
489 - nvl(Recinfo.old_period4_amount,0)
490 = nvl(X_Period4_Amount,0)
491 - nvl(X_old_period4_amount,0)))
492 AND ( (nvl(Recinfo.period5_amount,0)
493 - nvl(Recinfo.old_period5_amount,0)
494 = nvl(X_Period5_Amount,0)
495 - nvl(X_old_period5_amount,0)))
496 AND ( (nvl(Recinfo.period6_amount,0)
497 - nvl(Recinfo.old_period6_amount,0)
498 = nvl(X_Period6_Amount,0)
499 - nvl(X_old_period6_amount,0)))
500 AND ( (nvl(Recinfo.period7_amount,0)
501 - nvl(Recinfo.old_period7_amount,0)
502 = nvl(X_Period7_Amount,0)
503 - nvl(X_old_period7_amount,0)))
504 AND ( (nvl(Recinfo.period8_amount,0)
505 - nvl(Recinfo.old_period8_amount,0)
506 = nvl(X_Period8_Amount,0)
507 - nvl(X_old_period8_amount,0)))
508 AND ( (nvl(Recinfo.period9_amount,0)
509 - nvl(Recinfo.old_period9_amount,0)
510 = nvl(X_Period9_Amount,0)
511 - nvl(X_old_period9_amount,0)))
512 AND ( (nvl(Recinfo.period10_amount,0)
513 - nvl(Recinfo.old_period10_amount,0)
514 = nvl(X_Period10_Amount,0)
515 - nvl(X_old_period10_amount,0)))
516 AND ( (nvl(Recinfo.period11_amount,0)
517 - nvl(Recinfo.old_period11_amount,0)
518 = nvl(X_Period11_Amount,0)
519 - nvl(X_old_period11_amount,0)))
520 AND ( (nvl(Recinfo.period12_amount,0)
521 - nvl(Recinfo.old_period12_amount,0)
522 = nvl(X_Period12_Amount,0)
523 - nvl(X_old_period12_amount,0)))
524 AND ( (nvl(Recinfo.period13_amount,0)
525 - nvl(Recinfo.old_period13_amount,0)
526 = nvl(X_Period13_Amount,0)
527 - nvl(X_old_period13_amount,0)))
528 ) then
529 null;
530 else
531 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
532 APP_EXCEPTION.RAISE_EXCEPTION;
533 end if;
534 if (
535 ( (Recinfo.segment1 = X_Segment1)
536 OR ( (Recinfo.segment1 IS NULL)
537 AND (X_Segment1 IS NULL)))
538 AND ( (Recinfo.segment2 = X_Segment2)
539 OR ( (Recinfo.segment2 IS NULL)
540 AND (X_Segment2 IS NULL)))
541 AND ( (Recinfo.segment3 = X_Segment3)
542 OR ( (Recinfo.segment3 IS NULL)
543 AND (X_Segment3 IS NULL)))
544 AND ( (Recinfo.segment4 = X_Segment4)
545 OR ( (Recinfo.segment4 IS NULL)
546 AND (X_Segment4 IS NULL)))
547 AND ( (Recinfo.segment5 = X_Segment5)
548 OR ( (Recinfo.segment5 IS NULL)
549 AND (X_Segment5 IS NULL)))
550 AND ( (Recinfo.segment6 = X_Segment6)
551 OR ( (Recinfo.segment6 IS NULL)
552 AND (X_Segment6 IS NULL)))
553 AND ( (Recinfo.segment7 = X_Segment7)
554 OR ( (Recinfo.segment7 IS NULL)
555 AND (X_Segment7 IS NULL)))
556 AND ( (Recinfo.segment8 = X_Segment8)
557 OR ( (Recinfo.segment8 IS NULL)
558 AND (X_Segment8 IS NULL)))
559 AND ( (Recinfo.segment9 = X_Segment9)
560 OR ( (Recinfo.segment9 IS NULL)
561 AND (X_Segment9 IS NULL)))
562 AND ( (Recinfo.segment10 = X_Segment10)
563 OR ( (Recinfo.segment10 IS NULL)
564 AND (X_Segment10 IS NULL)))
565 AND ( (Recinfo.segment11 = X_Segment11)
566 OR ( (Recinfo.segment11 IS NULL)
567 AND (X_Segment11 IS NULL)))
568 AND ( (Recinfo.segment12 = X_Segment12)
569 OR ( (Recinfo.segment12 IS NULL)
570 AND (X_Segment12 IS NULL)))
571 AND ( (Recinfo.segment13 = X_Segment13)
572 OR ( (Recinfo.segment13 IS NULL)
573 AND (X_Segment13 IS NULL)))
574 AND ( (Recinfo.segment14 = X_Segment14)
575 OR ( (Recinfo.segment14 IS NULL)
576 AND (X_Segment14 IS NULL)))
577 AND ( (Recinfo.segment15 = X_Segment15)
578 OR ( (Recinfo.segment15 IS NULL)
579 AND (X_Segment15 IS NULL)))
580 AND ( (Recinfo.segment16 = X_Segment16)
581 OR ( (Recinfo.segment16 IS NULL)
582 AND (X_Segment16 IS NULL)))
583 AND ( (Recinfo.segment17 = X_Segment17)
584 OR ( (Recinfo.segment17 IS NULL)
588 AND (X_Segment18 IS NULL)))
585 AND (X_Segment17 IS NULL)))
586 AND ( (Recinfo.segment18 = X_Segment18)
587 OR ( (Recinfo.segment18 IS NULL)
589 AND ( (Recinfo.segment19 = X_Segment19)
590 OR ( (Recinfo.segment19 IS NULL)
591 AND (X_Segment19 IS NULL)))
592 AND ( (Recinfo.segment20 = X_Segment20)
593 OR ( (Recinfo.segment20 IS NULL)
594 AND (X_Segment20 IS NULL)))
595 AND ( (Recinfo.segment21 = X_Segment21)
596 OR ( (Recinfo.segment21 IS NULL)
597 AND (X_Segment21 IS NULL)))
598 AND ( (Recinfo.segment22 = X_Segment22)
599 OR ( (Recinfo.segment22 IS NULL)
600 AND (X_Segment22 IS NULL)))
601 AND ( (Recinfo.segment23 = X_Segment23)
602 OR ( (Recinfo.segment23 IS NULL)
603 AND (X_Segment23 IS NULL)))
604 AND ( (Recinfo.segment24 = X_Segment24)
605 OR ( (Recinfo.segment24 IS NULL)
606 AND (X_Segment24 IS NULL)))
607 AND ( (Recinfo.segment25 = X_Segment25)
608 OR ( (Recinfo.segment25 IS NULL)
609 AND (X_Segment25 IS NULL)))
610 AND ( (Recinfo.segment26 = X_Segment26)
611 OR ( (Recinfo.segment26 IS NULL)
612 AND (X_Segment26 IS NULL)))
613 AND ( (Recinfo.segment27 = X_Segment27)
614 OR ( (Recinfo.segment27 IS NULL)
615 AND (X_Segment27 IS NULL)))
616 AND ( (Recinfo.segment28 = X_Segment28)
617 OR ( (Recinfo.segment28 IS NULL)
618 AND (X_Segment28 IS NULL)))
619 AND ( (Recinfo.segment29 = X_Segment29)
620 OR ( (Recinfo.segment29 IS NULL)
621 AND (X_Segment29 IS NULL)))
622 AND ( (Recinfo.segment30 = X_Segment30)
623 OR ( (Recinfo.segment30 IS NULL)
624 AND (X_Segment30 IS NULL)))
625 AND ( (Recinfo.account_type = X_Account_Type)
626 OR ( (Recinfo.account_type IS NULL)
627 AND (X_Account_Type IS NULL)))
628 ) then
629 null;
630 else
631 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
632 APP_EXCEPTION.RAISE_EXCEPTION;
633 end if;
634 if (
635 ( (Recinfo.je_drcr_sign_reference = X_Je_Drcr_Sign_Reference)
636 OR ( (Recinfo.je_drcr_sign_reference IS NULL)
637 AND (X_Je_Drcr_Sign_Reference IS NULL)))
638 AND ( (Recinfo.je_line_description1 = X_Je_Line_Description1)
639 OR ( (Recinfo.je_line_description1 IS NULL)
640 AND (X_Je_Line_Description1 IS NULL)))
641 AND ( (Recinfo.je_line_description2 = X_Je_Line_Description2)
642 OR ( (Recinfo.je_line_description2 IS NULL)
643 AND (X_Je_Line_Description2 IS NULL)))
644 AND ( (Recinfo.je_line_description3 = X_Je_Line_Description3)
645 OR ( (Recinfo.je_line_description3 IS NULL)
646 AND (X_Je_Line_Description3 IS NULL)))
647 AND ( (Recinfo.je_line_description4 = X_Je_Line_Description4)
648 OR ( (Recinfo.je_line_description4 IS NULL)
649 AND (X_Je_Line_Description4 IS NULL)))
650 AND ( (Recinfo.je_line_description5 = X_Je_Line_Description5)
651 OR ( (Recinfo.je_line_description5 IS NULL)
652 AND (X_Je_Line_Description5 IS NULL)))
653 AND ( (Recinfo.je_line_description6 = X_Je_Line_Description6)
654 OR ( (Recinfo.je_line_description6 IS NULL)
655 AND (X_Je_Line_Description6 IS NULL)))
656 AND ( (Recinfo.je_line_description7 = X_Je_Line_Description7)
657 OR ( (Recinfo.je_line_description7 IS NULL)
658 AND (X_Je_Line_Description7 IS NULL)))
659 AND ( (Recinfo.je_line_description8 = X_Je_Line_Description8)
660 OR ( (Recinfo.je_line_description8 IS NULL)
661 AND (X_Je_Line_Description8 IS NULL)))
662 AND ( (Recinfo.je_line_description9 = X_Je_Line_Description9)
663 OR ( (Recinfo.je_line_description9 IS NULL)
664 AND (X_Je_Line_Description9 IS NULL)))
665 AND ( (Recinfo.je_line_description10 = X_Je_Line_Description10)
666 OR ( (Recinfo.je_line_description10 IS NULL)
667 AND (X_Je_Line_Description10 IS NULL)))
668 AND ( (Recinfo.je_line_description11 = X_Je_Line_Description11)
669 OR ( (Recinfo.je_line_description11 IS NULL)
670 AND (X_Je_Line_Description11 IS NULL)))
671 AND ( (Recinfo.je_line_description12 = X_Je_Line_Description12)
672 OR ( (Recinfo.je_line_description12 IS NULL)
673 AND (X_Je_Line_Description12 IS NULL)))
674 AND ( (Recinfo.je_line_description13 = X_Je_Line_Description13)
675 OR ( (Recinfo.je_line_description13 IS NULL)
676 AND (X_Je_Line_Description13 IS NULL)))
677 AND ( (Recinfo.stat_amount1 = X_Stat_Amount1)
678 OR ( (Recinfo.stat_amount1 IS NULL)
679 AND (X_Stat_Amount1 IS NULL)))
680 AND ( (Recinfo.stat_amount2 = X_Stat_Amount2)
681 OR ( (Recinfo.stat_amount2 IS NULL)
682 AND (X_Stat_Amount2 IS NULL)))
683 AND ( (Recinfo.stat_amount3 = X_Stat_Amount3)
684 OR ( (Recinfo.stat_amount3 IS NULL)
685 AND (X_Stat_Amount3 IS NULL)))
686 AND ( (Recinfo.stat_amount4 = X_Stat_Amount4)
687 OR ( (Recinfo.stat_amount4 IS NULL)
691 AND (X_Stat_Amount5 IS NULL)))
688 AND (X_Stat_Amount4 IS NULL)))
689 AND ( (Recinfo.stat_amount5 = X_Stat_Amount5)
690 OR ( (Recinfo.stat_amount5 IS NULL)
692 AND ( (Recinfo.stat_amount6 = X_Stat_Amount6)
693 OR ( (Recinfo.stat_amount6 IS NULL)
694 AND (X_Stat_Amount6 IS NULL)))
695 AND ( (Recinfo.stat_amount7 = X_Stat_Amount7)
696 OR ( (Recinfo.stat_amount7 IS NULL)
697 AND (X_Stat_Amount7 IS NULL)))
698 AND ( (Recinfo.stat_amount8 = X_Stat_Amount8)
699 OR ( (Recinfo.stat_amount8 IS NULL)
700 AND (X_Stat_Amount8 IS NULL)))
701 AND ( (Recinfo.stat_amount9 = X_Stat_Amount9)
702 OR ( (Recinfo.stat_amount9 IS NULL)
703 AND (X_Stat_Amount9 IS NULL)))
704 AND ( (Recinfo.stat_amount10 = X_Stat_Amount10)
705 OR ( (Recinfo.stat_amount10 IS NULL)
706 AND (X_Stat_Amount10 IS NULL)))
707 AND ( (Recinfo.stat_amount11 = X_Stat_Amount11)
708 OR ( (Recinfo.stat_amount11 IS NULL)
709 AND (X_Stat_Amount11 IS NULL)))
710 AND ( (Recinfo.stat_amount12 = X_Stat_Amount12)
711 OR ( (Recinfo.stat_amount12 IS NULL)
712 AND (X_Stat_Amount12 IS NULL)))
713 AND ( (Recinfo.stat_amount13 = X_Stat_Amount13)
714 OR ( (Recinfo.stat_amount13 IS NULL)
715 AND (X_Stat_Amount13 IS NULL)))
716 ) then
717 return;
718 else
719 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
720 APP_EXCEPTION.RAISE_EXCEPTION;
721 end if;
722 END Lock_Row;
723
724 PROCEDURE Update_Row(X_Rowid VARCHAR2,
725 X_Ledger_Id NUMBER,
726 X_Code_Combination_Id NUMBER,
727 X_Currency_Code VARCHAR2,
728 X_Budget_Version_Id NUMBER,
729 X_Budget_Entity_Id NUMBER,
730 X_Period_Year NUMBER,
731 X_Period_Type VARCHAR2,
732 X_Start_Period_Name VARCHAR2,
733 X_Start_Period_Num NUMBER,
734 X_Dr_Flag VARCHAR2,
735 X_Status_Number NUMBER,
736 X_Last_Update_Date DATE,
737 X_Last_Updated_By NUMBER,
738 X_Period1_Amount NUMBER,
739 X_Period2_Amount NUMBER,
740 X_Period3_Amount NUMBER,
741 X_Period4_Amount NUMBER,
742 X_Period5_Amount NUMBER,
743 X_Period6_Amount NUMBER,
744 X_Period7_Amount NUMBER,
745 X_Period8_Amount NUMBER,
746 X_Period9_Amount NUMBER,
747 X_Period10_Amount NUMBER,
748 X_Period11_Amount NUMBER,
749 X_Period12_Amount NUMBER,
750 X_Period13_Amount NUMBER,
751 X_Old_Period1_Amount NUMBER,
752 X_Old_Period2_Amount NUMBER,
753 X_Old_Period3_Amount NUMBER,
754 X_Old_Period4_Amount NUMBER,
755 X_Old_Period5_Amount NUMBER,
756 X_Old_Period6_Amount NUMBER,
757 X_Old_Period7_Amount NUMBER,
758 X_Old_Period8_Amount NUMBER,
759 X_Old_Period9_Amount NUMBER,
760 X_Old_Period10_Amount NUMBER,
761 X_Old_Period11_Amount NUMBER,
762 X_Old_Period12_Amount NUMBER,
763 X_Old_Period13_Amount NUMBER,
764 X_Segment1 VARCHAR2,
765 X_Segment2 VARCHAR2,
766 X_Segment3 VARCHAR2,
767 X_Segment4 VARCHAR2,
768 X_Segment5 VARCHAR2,
769 X_Segment6 VARCHAR2,
770 X_Segment7 VARCHAR2,
771 X_Segment8 VARCHAR2,
772 X_Segment9 VARCHAR2,
773 X_Segment10 VARCHAR2,
774 X_Segment11 VARCHAR2,
775 X_Segment12 VARCHAR2,
776 X_Segment13 VARCHAR2,
777 X_Segment14 VARCHAR2,
778 X_Segment15 VARCHAR2,
779 X_Segment16 VARCHAR2,
783 X_Segment20 VARCHAR2,
780 X_Segment17 VARCHAR2,
781 X_Segment18 VARCHAR2,
782 X_Segment19 VARCHAR2,
784 X_Segment21 VARCHAR2,
785 X_Segment22 VARCHAR2,
786 X_Segment23 VARCHAR2,
787 X_Segment24 VARCHAR2,
788 X_Segment25 VARCHAR2,
789 X_Segment26 VARCHAR2,
790 X_Segment27 VARCHAR2,
791 X_Segment28 VARCHAR2,
792 X_Segment29 VARCHAR2,
793 X_Segment30 VARCHAR2,
794 X_Account_Type VARCHAR2,
795 X_Last_Update_Login NUMBER,
796 X_Je_Drcr_Sign_Reference VARCHAR2,
797 X_Je_Line_Description1 VARCHAR2,
798 X_Je_Line_Description2 VARCHAR2,
799 X_Je_Line_Description3 VARCHAR2,
800 X_Je_Line_Description4 VARCHAR2,
801 X_Je_Line_Description5 VARCHAR2,
802 X_Je_Line_Description6 VARCHAR2,
803 X_Je_Line_Description7 VARCHAR2,
804 X_Je_Line_Description8 VARCHAR2,
805 X_Je_Line_Description9 VARCHAR2,
806 X_Je_Line_Description10 VARCHAR2,
807 X_Je_Line_Description11 VARCHAR2,
808 X_Je_Line_Description12 VARCHAR2,
809 X_Je_Line_Description13 VARCHAR2,
810 X_Stat_Amount1 NUMBER,
811 X_Stat_Amount2 NUMBER,
812 X_Stat_Amount3 NUMBER,
813 X_Stat_Amount4 NUMBER,
814 X_Stat_Amount5 NUMBER,
815 X_Stat_Amount6 NUMBER,
816 X_Stat_Amount7 NUMBER,
817 X_Stat_Amount8 NUMBER,
818 X_Stat_Amount9 NUMBER,
819 X_Stat_Amount10 NUMBER,
820 X_Stat_Amount11 NUMBER,
821 X_Stat_Amount12 NUMBER,
822 X_Stat_Amount13 NUMBER
823 ) IS
824 BEGIN
825 UPDATE gl_budget_range_interim
826 SET
827 ledger_id = X_Ledger_Id,
828 code_combination_id = X_Code_Combination_Id,
829 currency_code = X_Currency_Code,
830 budget_version_id = X_Budget_Version_Id,
831 budget_entity_id = X_Budget_Entity_Id,
832 period_year = X_Period_Year,
833 period_type = X_Period_Type,
834 start_period_name = X_Start_Period_Name,
835 start_period_num = X_Start_Period_Num,
836 dr_flag = X_Dr_Flag,
837 status_number = X_Status_Number,
838 last_update_date = X_Last_Update_Date,
839 last_updated_by = X_Last_Updated_By,
840 period1_amount = X_Period1_Amount,
841 period2_amount = X_Period2_Amount,
842 period3_amount = X_Period3_Amount,
843 period4_amount = X_Period4_Amount,
844 period5_amount = X_Period5_Amount,
845 period6_amount = X_Period6_Amount,
846 period7_amount = X_Period7_Amount,
847 period8_amount = X_Period8_Amount,
848 period9_amount = X_Period9_Amount,
849 period10_amount = X_Period10_Amount,
850 period11_amount = X_Period11_Amount,
851 period12_amount = X_Period12_Amount,
852 period13_amount = X_Period13_Amount,
853 old_period1_amount = X_Old_Period1_Amount,
854 old_period2_amount = X_Old_Period2_Amount,
855 old_period3_amount = X_Old_Period3_Amount,
856 old_period4_amount = X_Old_Period4_Amount,
857 old_period5_amount = X_Old_Period5_Amount,
858 old_period6_amount = X_Old_Period6_Amount,
859 old_period7_amount = X_Old_Period7_Amount,
860 old_period8_amount = X_Old_Period8_Amount,
861 old_period9_amount = X_Old_Period9_Amount,
862 old_period10_amount = X_Old_Period10_Amount,
863 old_period11_amount = X_Old_Period11_Amount,
864 old_period12_amount = X_Old_Period12_Amount,
865 old_period13_amount = X_Old_Period13_Amount,
866 segment1 = X_Segment1,
867 segment2 = X_Segment2,
868 segment3 = X_Segment3,
869 segment4 = X_Segment4,
870 segment5 = X_Segment5,
871 segment6 = X_Segment6,
872 segment7 = X_Segment7,
873 segment8 = X_Segment8,
874 segment9 = X_Segment9,
875 segment10 = X_Segment10,
876 segment11 = X_Segment11,
877 segment12 = X_Segment12,
878 segment13 = X_Segment13,
879 segment14 = X_Segment14,
880 segment15 = X_Segment15,
881 segment16 = X_Segment16,
882 segment17 = X_Segment17,
883 segment18 = X_Segment18,
884 segment19 = X_Segment19,
885 segment20 = X_Segment20,
886 segment21 = X_Segment21,
887 segment22 = X_Segment22,
888 segment23 = X_Segment23,
889 segment24 = X_Segment24,
890 segment25 = X_Segment25,
891 segment26 = X_Segment26,
892 segment27 = X_Segment27,
893 segment28 = X_Segment28,
894 segment29 = X_Segment29,
895 segment30 = X_Segment30,
896 account_type = X_Account_Type,
897 last_update_login = X_Last_Update_Login,
898 je_drcr_sign_reference = X_Je_Drcr_Sign_Reference,
899 je_line_description1 = X_Je_Line_Description1,
900 je_line_description2 = X_Je_Line_Description2,
901 je_line_description3 = X_Je_Line_Description3,
902 je_line_description4 = X_Je_Line_Description4,
903 je_line_description5 = X_Je_Line_Description5,
904 je_line_description6 = X_Je_Line_Description6,
905 je_line_description7 = X_Je_Line_Description7,
906 je_line_description8 = X_Je_Line_Description8,
907 je_line_description9 = X_Je_Line_Description9,
908 je_line_description10 = X_Je_Line_Description10,
909 je_line_description11 = X_Je_Line_Description11,
910 je_line_description12 = X_Je_Line_Description12,
911 je_line_description13 = X_Je_Line_Description13,
912 stat_amount1 = X_Stat_Amount1,
913 stat_amount2 = X_Stat_Amount2,
914 stat_amount3 = X_Stat_Amount3,
915 stat_amount4 = X_Stat_Amount4,
916 stat_amount5 = X_Stat_Amount5,
917 stat_amount6 = X_Stat_Amount6,
918 stat_amount7 = X_Stat_Amount7,
919 stat_amount8 = X_Stat_Amount8,
920 stat_amount9 = X_Stat_Amount9,
921 stat_amount10 = X_Stat_Amount10,
922 stat_amount11 = X_Stat_Amount11,
923 stat_amount12 = X_Stat_Amount12,
924 stat_amount13 = X_Stat_Amount13
925 WHERE rowid = X_rowid;
926
927 if (SQL%NOTFOUND) then
928 RAISE NO_DATA_FOUND;
929 end if;
930
931 END Update_Row;
932
933 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
934 BEGIN
935 DELETE FROM gl_budget_range_interim
936 WHERE rowid = X_Rowid;
937
938 if (SQL%NOTFOUND) then
939 RAISE NO_DATA_FOUND;
940 end if;
941 END Delete_Row;
942
943 END GL_BUDGET_RANGE_INTERIM_PKG;