[Home] [Help]
PACKAGE BODY: APPS.IGI_BUD_GL_CODE_CCID_PKG
Source
1 PACKAGE BODY IGI_BUD_GL_CODE_CCID_PKG AS
2 -- $Header: igibudbb.pls 120.5.12000000.2 2007/08/01 09:11:12 pshivara ship $
3
4 --Bug 3199481
5
6 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
7
8 l_state_level number := FND_LOG.LEVEL_STATEMENT ;
9 l_proc_level number := FND_LOG.LEVEL_PROCEDURE ;
10 l_event_level number := FND_LOG.LEVEL_EVENT ;
11 l_excep_level number := FND_LOG.LEVEL_EXCEPTION ;
12 l_error_level number := FND_LOG.LEVEL_ERROR ;
13 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
14
15 --Bug 3199481
16
17 --
18 -- PUBLIC FUNCTIONS
19 --
20
21 PROCEDURE select_row( recinfo IN OUT NOCOPY gl_code_combinations%ROWTYPE ) IS
22 recinfo_old gl_code_combinations%ROWTYPE;
23
24 BEGIN
25
26 /* rgopalan 3.1.03 */
27 /* added recinfo_old for NOCOPY */
28
29 recinfo_old := recinfo;
30
31 SELECT *
32 INTO recinfo
33 FROM gl_code_combinations
34 WHERE code_combination_id = recinfo.code_combination_id;
35
36 EXCEPTION
37 WHEN OTHERS THEN
38 recinfo := recinfo_old;
39 --Bug 3199481 (start)
40 If (l_unexp_level >= l_debug_level) then
41 FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
42 FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
43 FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
44 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
45 End if;
46 --Bug 3199481 (end)
47 Raise;
48 END select_row;
49
50 -- **********************************************************************
51
52 PROCEDURE select_columns(
53 X_code_combination_id NUMBER,
54 X_account_type IN OUT NOCOPY VARCHAR2,
55 X_template_id IN OUT NOCOPY NUMBER ) IS
56
57 recinfo gl_code_combinations%ROWTYPE;
58
59 -- for NOCOPY rgopalan
60 l_account_type gl_code_combinations.account_type%TYPE;
61 l_template_id gl_code_combinations.template_id%TYPE;
62
63 BEGIN
64
65 -- copying the old value, rgopalan
66 l_account_type := X_account_type;
67 l_template_id := X_template_id;
68 recinfo.code_combination_id := X_code_combination_id;
69
70 select_row(recinfo);
71
72 X_account_type := recinfo.account_type;
73 X_template_id := recinfo.template_id;
74
75 EXCEPTION
76 WHEN OTHERS THEN
77
78 -- reassigning the old value becoz of NOCOPY. rgopalan
79 X_account_type := l_account_type;
80 X_template_id := l_template_id;
81 --Bug 3199481 (start)
82 If (l_unexp_level >= l_debug_level) then
83 FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
84 FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
85 FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
86 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
87 End if;
88 --Bug 3199481 (end)
89 Raise;
90
91 END select_columns;
92
93 -- **********************************************************************
94
95 PROCEDURE check_unique( x_rowid VARCHAR2,
96 x_ccid NUMBER ) IS
97 CURSOR c_dup IS
98 SELECT 'Duplicate'
99 FROM gl_code_combinations cc
100 WHERE cc.code_combination_id = x_ccid
101 AND ( x_rowid is NULL
102 OR
103 cc.rowid <> x_rowid );
104 dummy VARCHAR2(100);
105
106 BEGIN
107 OPEN c_dup;
108 FETCH c_dup INTO dummy;
109
110 IF c_dup%FOUND THEN
111 CLOSE c_dup;
112 fnd_message.set_name( 'SQLGL', 'GL_DUPLICATE_CCID' );
113 --Bug 3199481 (start)
114 If (l_unexp_level >= l_debug_level) then
115 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.check_unique.Msg1',FALSE);
116 End if;
117 --Bug 3199481 (end)
118 app_exception.raise_exception;
119 END IF;
120
121 CLOSE c_dup;
122
123 EXCEPTION
124 WHEN app_exceptions.application_exception THEN
125 --Bug 3199481 (start)
126 If (l_unexp_level >= l_debug_level) then
127 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.check_unique.Msg2',FALSE);
128 End if;
129 --Bug 3199481 (end)
130 RAISE;
131
132 WHEN OTHERS THEN
133 --Bug 3199481 (start)
134 If (l_unexp_level >= l_debug_level) then
135 FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
136 FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
137 FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
138 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg1',TRUE);
139 End if;
140 --Bug 3199481 (end)
141 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
142 fnd_message.set_token('PROCEDURE',
143 'GL_CODE_COMBINATIONS_PKG.check_unique');
144 RAISE;
145
146 END check_unique;
147
148 -- **********************************************************************
149
150 PROCEDURE get_valid_sob_summary(
151 x_ccid NUMBER,
152 x_template_id IN OUT NOCOPY NUMBER,
153 x_sobid NUMBER ) IS
154
155 new_sob_id NUMBER(15);
156 l_template_id gl_code_combinations.template_id%TYPE;
157
158 BEGIN
159
160 -- copying old value. rgopalan
161 l_template_id := x_template_id;
162
163 SELECT
164 -- st.set_of_books_id, -- bug 6315298
165 st.ledger_id, -- bug 6315298
166 st.template_id
167 INTO new_sob_id,
168 x_template_id
169 FROM gl_code_combinations cc,
170 gl_summary_templates st
171 WHERE cc.code_combination_id = x_ccid
172 AND st.template_id(+) = cc.template_id;
173
174 IF (new_sob_id <> x_sobid) THEN
175 fnd_message.set_name( 'SQLGL', 'GL_INVALID_SUMMARY_ACCOUNT' );
176 --Bug 3199481 (start)
177 If (l_unexp_level >= l_debug_level) then
178 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.get_valid_sob_summary.Msg1',FALSE);
179 End if;
180 --Bug 3199481 (End)
181 app_exception.raise_exception;
182 END IF;
183
184 EXCEPTION
185 WHEN app_exceptions.application_exception THEN
186 -- reassigning the old value becoz of NOCOPY. rgopalan
187 x_template_id := l_template_id;
188 --Bug 3199481 (start)
189 If (l_unexp_level >= l_debug_level) then
190 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.get_valid_sob_summary.Msg2',FALSE);
191 End if;
192 --Bug 3199481 (End)
193 RAISE;
194
195 WHEN OTHERS THEN
196 -- reassigning the old value becoz of NOCOPY. rgopalan
197 x_template_id := l_template_id;
198 --Bug 3199481 (start)
199 If (l_unexp_level >= l_debug_level) then
200 FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
201 FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
202 FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
203 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud.bud_profile_default.Msg3',TRUE);
204 End if;
205 --Bug 3199481 (end)
206 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
207 fnd_message.set_token('PROCEDURE',
208 'GL_CODE_COMBINATIONS_PKG.get_valid_sob_summary');
209 RAISE;
210
211 END get_valid_sob_summary;
212
213 -- **********************************************************************
214 /* The table handling code has been commented out NOCOPY as PSAD no longer modifies
215 CORE tables. The following procedure's are called by GLXACCMB.fmb but since
216 the creation of IGIGBCCU.fmb it is no longer required.
217
218 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
219 X_Code_Combination_Id NUMBER,
220 X_Last_Update_Date DATE,
221 X_Last_Updated_By NUMBER,
222 X_Chart_Of_Accounts_Id NUMBER,
223 X_Detail_Posting_F VARCHAR2,
224 X_Detail_Budgeting_F VARCHAR2,
225 X_Account_Type VARCHAR2,
226 X_Enabled_Flag VARCHAR2,
227 X_Summary_Flag VARCHAR2,
228 X_Segment1 VARCHAR2,
229 X_Segment2 VARCHAR2,
230 X_Segment3 VARCHAR2,
231 X_Segment4 VARCHAR2,
232 X_Segment5 VARCHAR2,
233 X_Segment6 VARCHAR2,
234 X_Segment7 VARCHAR2,
235 X_Segment8 VARCHAR2,
236 X_Segment9 VARCHAR2,
237 X_Segment10 VARCHAR2,
238 X_Segment11 VARCHAR2,
239 X_Segment12 VARCHAR2,
240 X_Segment13 VARCHAR2,
241 X_Segment14 VARCHAR2,
242 X_Segment15 VARCHAR2,
243 X_Segment16 VARCHAR2,
244 X_Segment17 VARCHAR2,
245 X_Segment18 VARCHAR2,
246 X_Segment19 VARCHAR2,
247 X_Segment20 VARCHAR2,
248 X_Segment21 VARCHAR2,
249 X_Segment22 VARCHAR2,
250 X_Segment23 VARCHAR2,
251 X_Segment24 VARCHAR2,
252 X_Segment25 VARCHAR2,
253 X_Segment26 VARCHAR2,
254 X_Segment27 VARCHAR2,
255 X_Segment28 VARCHAR2,
256
257 X_Segment29 VARCHAR2,
258 X_Segment30 VARCHAR2,
259 X_Description VARCHAR2,
260 X_Template_Id NUMBER,
261 X_Start_Date_Active DATE,
262 X_End_Date_Active DATE,
263 X_Attribute1 VARCHAR2,
264 X_Attribute2 VARCHAR2,
265 X_Attribute3 VARCHAR2,
266 X_Attribute4 VARCHAR2,
267 X_Attribute5 VARCHAR2,
268 X_Attribute6 VARCHAR2,
269 X_Attribute7 VARCHAR2,
270 X_Attribute8 VARCHAR2,
271 X_Attribute9 VARCHAR2,
272 X_Attribute10 VARCHAR2,
273 X_Context VARCHAR2,
274 X_Segment_Attribute1 VARCHAR2,
275 X_Segment_Attribute2 VARCHAR2,
276 X_Segment_Attribute3 VARCHAR2,
277 X_Segment_Attribute4 VARCHAR2,
278 X_Segment_Attribute5 VARCHAR2,
279 X_Segment_Attribute6 VARCHAR2,
280 X_Segment_Attribute7 VARCHAR2,
281 X_Segment_Attribute8 VARCHAR2,
282 X_Segment_Attribute9 VARCHAR2,
283 X_Segment_Attribute10 VARCHAR2,
284 X_Segment_Attribute11 VARCHAR2,
285 X_Segment_Attribute12 VARCHAR2,
286 X_Segment_Attribute13 VARCHAR2,
287 X_Segment_Attribute14 VARCHAR2,
288 X_Segment_Attribute15 VARCHAR2,
289 X_Segment_Attribute16 VARCHAR2,
290 X_Segment_Attribute17 VARCHAR2,
291 X_Segment_Attribute18 VARCHAR2,
292 X_Segment_Attribute19 VARCHAR2,
293 X_Segment_Attribute20 VARCHAR2,
294 X_Segment_Attribute21 VARCHAR2,
295 X_Segment_Attribute22 VARCHAR2,
296 X_Segment_Attribute23 VARCHAR2,
297 X_Segment_Attribute24 VARCHAR2,
298 X_Segment_Attribute25 VARCHAR2,
299 X_Segment_Attribute26 VARCHAR2,
300 X_Segment_Attribute27 VARCHAR2,
301 X_Segment_Attribute28 VARCHAR2,
302 X_Segment_Attribute29 VARCHAR2,
303 X_Segment_Attribute30 VARCHAR2,
304 X_Segment_Attribute31 VARCHAR2,
305 X_Segment_Attribute32 VARCHAR2,
306 X_Segment_Attribute33 VARCHAR2,
307 X_Segment_Attribute34 VARCHAR2,
308 X_Segment_Attribute35 VARCHAR2,
309 X_Segment_Attribute36 VARCHAR2,
310 X_Segment_Attribute37 VARCHAR2,
311 X_Segment_Attribute38 VARCHAR2,
312 X_Segment_Attribute39 VARCHAR2,
313 X_Segment_Attribute40 VARCHAR2,
314 X_Segment_Attribute41 VARCHAR2,
315 X_Segment_Attribute42 VARCHAR2,
316 X_Jgzz_Recon_Context VARCHAR2,
317 X_Jgzz_Recon_Flag VARCHAR2,
318 X_reference1 VARCHAR2,
319 X_reference2 VARCHAR2,
320 X_reference3 VARCHAR2,
321 X_reference4 VARCHAR2,
322 X_reference5 VARCHAR2,
323 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 1
324 X_IGI_balanced_budget_flag VARCHAR2
325 -- OPSFI: BUD, mhazarik 13-Jan-00 End 1
326
327 ) IS
328 CURSOR C IS SELECT rowid FROM gl_code_combinations
329 WHERE code_combination_id = X_Code_Combination_Id;
330
331 BEGIN
332
333 INSERT INTO gl_code_combinations(
334 code_combination_id,
335 last_update_date,
336 last_updated_by,
337 chart_of_accounts_id,
338 detail_posting_allowed_flag,
339 detail_budgeting_allowed_flag,
340 account_type,
341 enabled_flag,
342 summary_flag,
343 segment1,
344 segment2,
345 segment3,
346 segment4,
347 segment5,
348 segment6,
349 segment7,
350 segment8,
351 segment9,
352 segment10,
353 segment11,
354 segment12,
355 segment13,
356 segment14,
357 segment15,
358 segment16,
359 segment17,
360 segment18,
361 segment19,
362 segment20,
363 segment21,
364 segment22,
365 segment23,
366 segment24,
367 segment25,
368 segment26,
369 segment27,
370 segment28,
371 segment29,
372 segment30,
373 description,
374 template_id,
375 start_date_active,
376 end_date_active,
377 attribute1,
378 attribute2,
379 attribute3,
380 attribute4,
381 attribute5,
382 attribute6,
383 attribute7,
384 attribute8,
385 attribute9,
386 attribute10,
387 context,
388 segment_attribute1,
389 segment_attribute2,
390 segment_attribute3,
391 segment_attribute4,
392 segment_attribute5,
393 segment_attribute6,
394 segment_attribute7,
395 segment_attribute8,
396 segment_attribute9,
397 segment_attribute10,
398 segment_attribute11,
399 segment_attribute12,
400 segment_attribute13,
401 segment_attribute14,
402 segment_attribute15,
403 segment_attribute16,
404 segment_attribute17,
405 segment_attribute18,
406 segment_attribute19,
407 segment_attribute20,
408 segment_attribute21,
409 segment_attribute22,
410 segment_attribute23,
411 segment_attribute24,
412 segment_attribute25,
413 segment_attribute26,
414 segment_attribute27,
415 segment_attribute28,
416 segment_attribute29,
417 segment_attribute30,
418 segment_attribute31,
419 segment_attribute32,
420 segment_attribute33,
421 segment_attribute34,
422 segment_attribute35,
423 segment_attribute36,
424 segment_attribute37,
425 segment_attribute38,
426 segment_attribute39,
427 segment_attribute40,
428 segment_attribute41,
429 segment_attribute42,
430 jgzz_recon_context,
431 jgzz_recon_flag,
432 reference1,
433 reference2,
434 reference3,
435 reference4,
436 reference5,
437 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 2
438 IGI_balanced_budget_flag
439 -- OPSFI: BUD, mhazarik 13-Jan-00 End 2
440 ) VALUES (
441 X_Code_Combination_Id,
442 X_Last_Update_Date,
443 X_Last_Updated_By,
444 X_Chart_Of_Accounts_Id,
445 X_Detail_Posting_F,
446 X_Detail_Budgeting_F,
447 X_Account_Type,
448 X_Enabled_Flag,
449 X_Summary_Flag,
450 X_Segment1,
451 X_Segment2,
452 X_Segment3,
453 X_Segment4,
454 X_Segment5,
455 X_Segment6,
456 X_Segment7,
457 X_Segment8,
458 X_Segment9,
459 X_Segment10,
460 X_Segment11,
461 X_Segment12,
462 X_Segment13,
463 X_Segment14,
464 X_Segment15,
465 X_Segment16,
466 X_Segment17,
467 X_Segment18,
468 X_Segment19,
469 X_Segment20,
470 X_Segment21,
471 X_Segment22,
472 X_Segment23,
473 X_Segment24,
474 X_Segment25,
475 X_Segment26,
476 X_Segment27,
477 X_Segment28,
478 X_Segment29,
479 X_Segment30,
480 X_Description,
481 X_Template_Id,
482 X_Start_Date_Active,
483 X_End_Date_Active,
484 X_Attribute1,
485 X_Attribute2,
486 X_Attribute3,
487 X_Attribute4,
488 X_Attribute5,
489 X_Attribute6,
490 X_Attribute7,
491 X_Attribute8,
492 X_Attribute9,
493 X_Attribute10,
494 X_Context,
495 X_Segment_Attribute1,
496 X_Segment_Attribute2,
497 X_Segment_Attribute3,
498 X_Segment_Attribute4,
499 X_Segment_Attribute5,
500 X_Segment_Attribute6,
501 X_Segment_Attribute7,
502 X_Segment_Attribute8,
503 X_Segment_Attribute9,
504 X_Segment_Attribute10,
505 X_Segment_Attribute11,
506 X_Segment_Attribute12,
507 X_Segment_Attribute13,
508 X_Segment_Attribute14,
509 X_Segment_Attribute15,
510 X_Segment_Attribute16,
511 X_Segment_Attribute17,
512 X_Segment_Attribute18,
513 X_Segment_Attribute19,
514 X_Segment_Attribute20,
515 X_Segment_Attribute21,
516 X_Segment_Attribute22,
517 X_Segment_Attribute23,
518 X_Segment_Attribute24,
519 X_Segment_Attribute25,
520 X_Segment_Attribute26,
521 X_Segment_Attribute27,
522 X_Segment_Attribute28,
523 X_Segment_Attribute29,
524 X_Segment_Attribute30,
525 X_Segment_Attribute31,
526 X_Segment_Attribute32,
527 X_Segment_Attribute33,
528 X_Segment_Attribute34,
529 X_Segment_Attribute35,
530 X_Segment_Attribute36,
531 X_Segment_Attribute37,
532 X_Segment_Attribute38,
533 X_Segment_Attribute39,
534 X_Segment_Attribute40,
535 X_Segment_Attribute41,
536 X_Segment_Attribute42,
537 X_Jgzz_Recon_Context,
538 X_Jgzz_Recon_Flag,
539 X_reference1,
540 X_reference2,
541 X_reference3,
542 X_reference4,
543 X_reference5,
544 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 3
545 X_IGI_balanced_budget_flag
546 -- OPSFI: BUD, mhazarik 13-Jan-00 End 3
547 );
548
549 OPEN C;
550 FETCH C INTO X_Rowid;
551 if (C%NOTFOUND) then
552 CLOSE C;
553 RAISE NO_DATA_FOUND;
554 end if;
555 CLOSE C;
556
557 END Insert_Row;
558
559 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
560 X_Code_Combination_Id NUMBER,
561 X_Chart_Of_Accounts_Id NUMBER,
562 X_Detail_Posting_F VARCHAR2,
563 X_Detail_Budgeting_F VARCHAR2,
564 X_Account_Type VARCHAR2,
565 X_Enabled_Flag VARCHAR2,
566 X_Summary_Flag VARCHAR2,
567 X_Segment1 VARCHAR2,
568 X_Segment2 VARCHAR2,
569 X_Segment3 VARCHAR2,
570 X_Segment4 VARCHAR2,
571 X_Segment5 VARCHAR2,
572 X_Segment6 VARCHAR2,
573 X_Segment7 VARCHAR2,
574 X_Segment8 VARCHAR2,
575 X_Segment9 VARCHAR2,
576 X_Segment10 VARCHAR2,
577 X_Segment11 VARCHAR2,
578 X_Segment12 VARCHAR2,
579 X_Segment13 VARCHAR2,
580 X_Segment14 VARCHAR2,
581 X_Segment15 VARCHAR2,
582 X_Segment16 VARCHAR2,
583 X_Segment17 VARCHAR2,
584 X_Segment18 VARCHAR2,
585 X_Segment19 VARCHAR2,
586 X_Segment20 VARCHAR2,
587 X_Segment21 VARCHAR2,
588 X_Segment22 VARCHAR2,
589 X_Segment23 VARCHAR2,
590 X_Segment24 VARCHAR2,
591 X_Segment25 VARCHAR2,
592 X_Segment26 VARCHAR2,
593 X_Segment27 VARCHAR2,
594 X_Segment28 VARCHAR2,
595 X_Segment29 VARCHAR2,
596 X_Segment30 VARCHAR2,
597 X_Description VARCHAR2,
598 X_Template_Id NUMBER,
599 X_Start_Date_Active DATE,
600 X_End_Date_Active DATE,
601 X_Attribute1 VARCHAR2,
602 X_Attribute2 VARCHAR2,
603 X_Attribute3 VARCHAR2,
604 X_Attribute4 VARCHAR2,
605 X_Attribute5 VARCHAR2,
606 X_Attribute6 VARCHAR2,
607 X_Attribute7 VARCHAR2,
608 X_Attribute8 VARCHAR2,
609 X_Attribute9 VARCHAR2,
610 X_Attribute10 VARCHAR2,
611 X_Context VARCHAR2,
612 X_Segment_Attribute1 VARCHAR2,
613 X_Segment_Attribute2 VARCHAR2,
614 X_Segment_Attribute3 VARCHAR2,
615 X_Segment_Attribute4 VARCHAR2,
616 X_Segment_Attribute5 VARCHAR2,
617 X_Segment_Attribute6 VARCHAR2,
618 X_Segment_Attribute7 VARCHAR2,
619 X_Segment_Attribute8 VARCHAR2,
620 X_Segment_Attribute9 VARCHAR2,
621 X_Segment_Attribute10 VARCHAR2,
622 X_Segment_Attribute11 VARCHAR2,
623 X_Segment_Attribute12 VARCHAR2,
624 X_Segment_Attribute13 VARCHAR2,
625 X_Segment_Attribute14 VARCHAR2,
626 X_Segment_Attribute15 VARCHAR2,
627 X_Segment_Attribute16 VARCHAR2,
628 X_Segment_Attribute17 VARCHAR2,
629 X_Segment_Attribute18 VARCHAR2,
630 X_Segment_Attribute19 VARCHAR2,
631 X_Segment_Attribute20 VARCHAR2,
632 X_Segment_Attribute21 VARCHAR2,
633 X_Segment_Attribute22 VARCHAR2,
634 X_Segment_Attribute23 VARCHAR2,
635 X_Segment_Attribute24 VARCHAR2,
636 X_Segment_Attribute25 VARCHAR2,
637 X_Segment_Attribute26 VARCHAR2,
638 X_Segment_Attribute27 VARCHAR2,
639 X_Segment_Attribute28 VARCHAR2,
640 X_Segment_Attribute29 VARCHAR2,
641 X_Segment_Attribute30 VARCHAR2,
642 X_Segment_Attribute31 VARCHAR2,
643 X_Segment_Attribute32 VARCHAR2,
644 X_Segment_Attribute33 VARCHAR2,
645 X_Segment_Attribute34 VARCHAR2,
646 X_Segment_Attribute35 VARCHAR2,
647 X_Segment_Attribute36 VARCHAR2,
648 X_Segment_Attribute37 VARCHAR2,
649 X_Segment_Attribute38 VARCHAR2,
650 X_Segment_Attribute39 VARCHAR2,
651 X_Segment_Attribute40 VARCHAR2,
652 X_Segment_Attribute41 VARCHAR2,
653 X_Segment_Attribute42 VARCHAR2,
654 X_Jgzz_Recon_Context VARCHAR2,
655 X_Jgzz_Recon_Flag VARCHAR2,
656 X_reference1 VARCHAR2,
657 X_reference2 VARCHAR2,
658 X_reference3 VARCHAR2,
659 X_reference4 VARCHAR2,
660 X_reference5 VARCHAR2,
661 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 4
662 X_igi_balanced_budget_flag VARCHAR2
663 -- OPSFI: BUD, mhazarik 13-Jan-00 End 4
664 ) IS
665 CURSOR C IS
666 SELECT *
667 FROM gl_code_combinations
668 WHERE rowid = X_Rowid
669 FOR UPDATE of Code_Combination_Id NOWAIT;
670 Recinfo C%ROWTYPE;
671
672 BEGIN
673 OPEN C;
674 FETCH C INTO Recinfo;
675 if (C%NOTFOUND) then
676 CLOSE C;
677 RAISE NO_DATA_FOUND;
678 end if;
679 CLOSE C;
680 if (
681 ( (Recinfo.code_combination_id = X_Code_Combination_Id)
682 OR ( (Recinfo.code_combination_id IS NULL)
683 AND (X_Code_Combination_Id IS NULL)))
684 AND ( (Recinfo.chart_of_accounts_id = X_Chart_Of_Accounts_Id)
685 OR ( (Recinfo.chart_of_accounts_id IS NULL)
686 AND (X_Chart_Of_Accounts_Id IS NULL)))
687 AND ( (Recinfo.detail_posting_allowed_flag = X_Detail_Posting_F)
688 OR ( (Recinfo.detail_posting_allowed_flag IS NULL)
689 AND (X_Detail_Posting_F IS NULL)))
690 AND ( (Recinfo.detail_budgeting_allowed_flag =
691 X_Detail_Budgeting_F)
692 OR ( (Recinfo.detail_budgeting_allowed_flag IS NULL)
693 AND (X_Detail_Budgeting_F IS NULL)))
694 AND ( (Recinfo.account_type = X_Account_Type)
695 OR ( (Recinfo.account_type IS NULL)
696 AND (X_Account_Type IS NULL)))
697 AND ( (Recinfo.enabled_flag = X_Enabled_Flag)
698 OR ( (Recinfo.enabled_flag IS NULL)
699 AND (X_Enabled_Flag IS NULL)))
700 AND ( (Recinfo.summary_flag = X_Summary_Flag)
701 OR ( (Recinfo.summary_flag IS NULL)
702 AND (X_Summary_Flag IS NULL)))
703 AND ( (Recinfo.segment1 = X_Segment1)
704 OR ( (Recinfo.segment1 IS NULL)
705 AND (X_Segment1 IS NULL)))
706 AND ( (Recinfo.segment2 = X_Segment2)
707 OR ( (Recinfo.segment2 IS NULL)
708 AND (X_Segment2 IS NULL)))
709 AND ( (Recinfo.segment3 = X_Segment3)
710 OR ( (Recinfo.segment3 IS NULL)
711 AND (X_Segment3 IS NULL)))
712 AND ( (Recinfo.segment4 = X_Segment4)
713 OR ( (Recinfo.segment4 IS NULL)
714 AND (X_Segment4 IS NULL)))
715 AND ( (Recinfo.segment5 = X_Segment5)
716 OR ( (Recinfo.segment5 IS NULL)
717 AND (X_Segment5 IS NULL)))
718 AND ( (Recinfo.segment6 = X_Segment6)
719 OR ( (Recinfo.segment6 IS NULL)
720 AND (X_Segment6 IS NULL)))
721 AND ( (Recinfo.segment7 = X_Segment7)
722 OR ( (Recinfo.segment7 IS NULL)
723 AND (X_Segment7 IS NULL)))
724 AND ( (Recinfo.segment8 = X_Segment8)
725 OR ( (Recinfo.segment8 IS NULL)
726 AND (X_Segment8 IS NULL)))
727 AND ( (Recinfo.segment9 = X_Segment9)
728 OR ( (Recinfo.segment9 IS NULL)
729 AND (X_Segment9 IS NULL)))
730 AND ( (Recinfo.segment10 = X_Segment10)
731 OR ( (Recinfo.segment10 IS NULL)
732 AND (X_Segment10 IS NULL)))
733 AND ( (Recinfo.segment11 = X_Segment11)
734 OR ( (Recinfo.segment11 IS NULL)
735 AND (X_Segment11 IS NULL)))
736 AND ( (Recinfo.segment12 = X_Segment12)
737 OR ( (Recinfo.segment12 IS NULL)
738 AND (X_Segment12 IS NULL)))
739 AND ( (Recinfo.segment13 = X_Segment13)
740 OR ( (Recinfo.segment13 IS NULL)
741 AND (X_Segment13 IS NULL)))
742 AND ( (Recinfo.segment14 = X_Segment14)
743 OR ( (Recinfo.segment14 IS NULL)
744 AND (X_Segment14 IS NULL)))
745 AND ( (Recinfo.segment15 = X_Segment15)
746 OR ( (Recinfo.segment15 IS NULL)
747 AND (X_Segment15 IS NULL)))
748 AND ( (Recinfo.segment16 = X_Segment16)
749 OR ( (Recinfo.segment16 IS NULL)
750 AND (X_Segment16 IS NULL)))
751 AND ( (Recinfo.segment17 = X_Segment17)
752 OR ( (Recinfo.segment17 IS NULL)
753 AND (X_Segment17 IS NULL)))
754 AND ( (Recinfo.segment18 = X_Segment18)
755 OR ( (Recinfo.segment18 IS NULL)
756 AND (X_Segment18 IS NULL)))
757 AND ( (Recinfo.segment19 = X_Segment19)
758 OR ( (Recinfo.segment19 IS NULL)
759 AND (X_Segment19 IS NULL)))
760 AND ( (Recinfo.segment20 = X_Segment20)
761 OR ( (Recinfo.segment20 IS NULL)
762 AND (X_Segment20 IS NULL)))
763 AND ( (Recinfo.segment21 = X_Segment21)
764 OR ( (Recinfo.segment21 IS NULL)
765 AND (X_Segment21 IS NULL)))
766 AND ( (Recinfo.segment22 = X_Segment22)
767 OR ( (Recinfo.segment22 IS NULL)
768 AND (X_Segment22 IS NULL)))
769 AND ( (Recinfo.segment23 = X_Segment23)
770 OR ( (Recinfo.segment23 IS NULL)
771 AND (X_Segment23 IS NULL)))
772 AND ( (Recinfo.segment24 = X_Segment24)
773 OR ( (Recinfo.segment24 IS NULL)
774 AND (X_Segment24 IS NULL)))
775 AND ( (Recinfo.segment25 = X_Segment25)
776 OR ( (Recinfo.segment25 IS NULL)
777 AND (X_Segment25 IS NULL)))
778 AND ( (Recinfo.segment26 = X_Segment26)
779 OR ( (Recinfo.segment26 IS NULL)
780 AND (X_Segment26 IS NULL)))) THEN
781
782 if (
783 ( (Recinfo.segment27 = X_Segment27)
784 OR ( (Recinfo.segment27 IS NULL)
785 AND (X_Segment27 IS NULL)))
786 AND ( (Recinfo.segment28 = X_Segment28)
787 OR ( (Recinfo.segment28 IS NULL)
788 AND (X_Segment28 IS NULL)))
789 AND ( (Recinfo.segment29 = X_Segment29)
790 OR ( (Recinfo.segment29 IS NULL)
791 AND (X_Segment29 IS NULL)))
792 AND ( (Recinfo.segment30 = X_Segment30)
793 OR ( (Recinfo.segment30 IS NULL)
794 AND (X_Segment30 IS NULL)))
795 AND ( (Recinfo.description = X_Description)
796 OR ( (Recinfo.description IS NULL)
797 AND (X_Description IS NULL)))
798 AND ( (Recinfo.template_id = X_Template_Id)
799 OR ( (Recinfo.template_id IS NULL)
800 AND (X_Template_Id IS NULL)))
801 AND ( (Recinfo.start_date_active = X_Start_Date_Active)
802 OR ( (Recinfo.start_date_active IS NULL)
803 AND (X_Start_Date_Active IS NULL)))
804 AND ( (Recinfo.end_date_active = X_End_Date_Active)
805 OR ( (Recinfo.end_date_active IS NULL)
806 AND (X_End_Date_Active IS NULL)))
807 AND ( (Recinfo.attribute1 = X_Attribute1)
808 OR ( (Recinfo.attribute1 IS NULL)
809 AND (X_Attribute1 IS NULL)))
810 AND ( (Recinfo.attribute2 = X_Attribute2)
811 OR ( (Recinfo.attribute2 IS NULL)
812 AND (X_Attribute2 IS NULL)))
813 AND ( (Recinfo.attribute3 = X_Attribute3)
814 OR ( (Recinfo.attribute3 IS NULL)
815 AND (X_Attribute3 IS NULL)))
816 AND ( (Recinfo.attribute4 = X_Attribute4)
817 OR ( (Recinfo.attribute4 IS NULL)
818 AND (X_Attribute4 IS NULL)))
819 AND ( (Recinfo.attribute5 = X_Attribute5)
820 OR ( (Recinfo.attribute5 IS NULL)
821 AND (X_Attribute5 IS NULL)))
822 AND ( (Recinfo.attribute6 = X_Attribute6)
823 OR ( (Recinfo.attribute6 IS NULL)
824 AND (X_Attribute6 IS NULL)))
825 AND ( (Recinfo.attribute7 = X_Attribute7)
826 OR ( (Recinfo.attribute7 IS NULL)
827 AND (X_Attribute7 IS NULL)))
828 AND ( (Recinfo.attribute8 = X_Attribute8)
829 OR ( (Recinfo.attribute8 IS NULL)
830 AND (X_Attribute8 IS NULL)))
831 AND ( (Recinfo.attribute9 = X_Attribute9)
832 OR ( (Recinfo.attribute9 IS NULL)
833 AND (X_Attribute9 IS NULL)))
834 AND ( (Recinfo.attribute10 = X_Attribute10)
835 OR ( (Recinfo.attribute10 IS NULL)
836 AND (X_Attribute10 IS NULL)))
837 AND ( (Recinfo.context = X_Context)
838 OR ( (Recinfo.context IS NULL)
839 AND (X_Context IS NULL)))
840 AND ( (Recinfo.segment_attribute1 = X_Segment_Attribute1)
841 OR ( (Recinfo.segment_attribute1 IS NULL)
842 AND (X_Segment_Attribute1 IS NULL)))
843 AND ( (Recinfo.segment_attribute2 = X_Segment_Attribute2)
844 OR ( (Recinfo.segment_attribute2 IS NULL)
845 AND (X_Segment_Attribute2 IS NULL)))
846 AND ( (Recinfo.segment_attribute3 = X_Segment_Attribute3)
847 OR ( (Recinfo.segment_attribute3 IS NULL)
848 AND (X_Segment_Attribute3 IS NULL)))
849 AND ( (Recinfo.segment_attribute4 = X_Segment_Attribute4)
850 OR ( (Recinfo.segment_attribute4 IS NULL)
851 AND (X_Segment_Attribute4 IS NULL)))
852 AND ( (Recinfo.segment_attribute5 = X_Segment_Attribute5)
853 OR ( (Recinfo.segment_attribute5 IS NULL)
854 AND (X_Segment_Attribute5 IS NULL)))
855 AND ( (Recinfo.segment_attribute6 = X_Segment_Attribute6)
856 OR ( (Recinfo.segment_attribute6 IS NULL)
857 AND (X_Segment_Attribute6 IS NULL)))
858 AND ( (Recinfo.segment_attribute7 = X_Segment_Attribute7)
859 OR ( (Recinfo.segment_attribute7 IS NULL)
860 AND (X_Segment_Attribute7 IS NULL)))
861 AND ( (Recinfo.segment_attribute8 = X_Segment_Attribute8)
862 OR ( (Recinfo.segment_attribute8 IS NULL)
863 AND (X_Segment_Attribute8 IS NULL)))
864 AND ( (Recinfo.segment_attribute9 = X_Segment_Attribute9)
865 OR ( (Recinfo.segment_attribute9 IS NULL)
866 AND (X_Segment_Attribute9 IS NULL)))
867 AND ( (Recinfo.segment_attribute10 = X_Segment_Attribute10)
868 OR ( (Recinfo.segment_attribute10 IS NULL)
869 AND (X_Segment_Attribute10 IS NULL)))
870 AND ( (Recinfo.segment_attribute11 = X_Segment_Attribute11)
871 OR ( (Recinfo.segment_attribute11 IS NULL)
872 AND (X_Segment_Attribute11 IS NULL)))
873 AND ( (Recinfo.segment_attribute12 = X_Segment_Attribute12)
874 OR ( (Recinfo.segment_attribute12 IS NULL)
875 AND (X_Segment_Attribute12 IS NULL)))
876 AND ( (Recinfo.segment_attribute13 = X_Segment_Attribute13)
877 OR ( (Recinfo.segment_attribute13 IS NULL)
878 AND (X_Segment_Attribute13 IS NULL)))) THEN
879
880 if (
881 ( (Recinfo.segment_attribute14 = X_Segment_Attribute14)
882 OR ( (Recinfo.segment_attribute14 IS NULL)
883 AND (X_Segment_Attribute14 IS NULL)))
884 AND ( (Recinfo.segment_attribute15 = X_Segment_Attribute15)
885 OR ( (Recinfo.segment_attribute15 IS NULL)
886 AND (X_Segment_Attribute15 IS NULL)))
887 AND ( (Recinfo.segment_attribute16 = X_Segment_Attribute16)
888 OR ( (Recinfo.segment_attribute16 IS NULL)
889 AND (X_Segment_Attribute16 IS NULL)))
890 AND ( (Recinfo.segment_attribute17 = X_Segment_Attribute17)
891 OR ( (Recinfo.segment_attribute17 IS NULL)
892 AND (X_Segment_Attribute17 IS NULL)))
893 AND ( (Recinfo.segment_attribute18 = X_Segment_Attribute18)
894 OR ( (Recinfo.segment_attribute18 IS NULL)
895 AND (X_Segment_Attribute18 IS NULL)))
896 AND ( (Recinfo.segment_attribute19 = X_Segment_Attribute19)
897 OR ( (Recinfo.segment_attribute19 IS NULL)
898 AND (X_Segment_Attribute19 IS NULL)))
899 AND ( (Recinfo.segment_attribute20 = X_Segment_Attribute20)
900 OR ( (Recinfo.segment_attribute20 IS NULL)
901 AND (X_Segment_Attribute20 IS NULL)))
902 AND ( (Recinfo.segment_attribute21 = X_Segment_Attribute21)
903 OR ( (Recinfo.segment_attribute21 IS NULL)
904 AND (X_Segment_Attribute21 IS NULL)))
905 AND ( (Recinfo.segment_attribute22 = X_Segment_Attribute22)
906 OR ( (Recinfo.segment_attribute22 IS NULL)
907 AND (X_Segment_Attribute22 IS NULL)))
908 AND ( (Recinfo.segment_attribute23 = X_Segment_Attribute23)
909 OR ( (Recinfo.segment_attribute23 IS NULL)
910 AND (X_Segment_Attribute23 IS NULL)))
911 AND ( (Recinfo.segment_attribute24 = X_Segment_Attribute24)
912 OR ( (Recinfo.segment_attribute24 IS NULL)
913 AND (X_Segment_Attribute24 IS NULL)))
914 AND ( (Recinfo.segment_attribute25 = X_Segment_Attribute25)
915 OR ( (Recinfo.segment_attribute25 IS NULL)
916 AND (X_Segment_Attribute25 IS NULL)))
917 AND ( (Recinfo.segment_attribute26 = X_Segment_Attribute26)
918 OR ( (Recinfo.segment_attribute26 IS NULL)
919 AND (X_Segment_Attribute26 IS NULL)))
920 AND ( (Recinfo.segment_attribute27 = X_Segment_Attribute27)
921 OR ( (Recinfo.segment_attribute27 IS NULL)
922 AND (X_Segment_Attribute27 IS NULL)))
923 AND ( (Recinfo.segment_attribute28 = X_Segment_Attribute28)
924 OR ( (Recinfo.segment_attribute28 IS NULL)
925 AND (X_Segment_Attribute28 IS NULL)))
926 AND ( (Recinfo.segment_attribute29 = X_Segment_Attribute29)
927 OR ( (Recinfo.segment_attribute29 IS NULL)
928 AND (X_Segment_Attribute29 IS NULL)))
929 AND ( (Recinfo.segment_attribute30 = X_Segment_Attribute30)
930 OR ( (Recinfo.segment_attribute30 IS NULL)
931 AND (X_Segment_Attribute30 IS NULL)))
932 AND ( (Recinfo.segment_attribute31 = X_Segment_Attribute31)
933 OR ( (Recinfo.segment_attribute31 IS NULL)
934 AND (X_Segment_Attribute31 IS NULL)))
935 AND ( (Recinfo.segment_attribute32 = X_Segment_Attribute32)
936 OR ( (Recinfo.segment_attribute32 IS NULL)
937 AND (X_Segment_Attribute32 IS NULL)))
938 AND ( (Recinfo.segment_attribute33 = X_Segment_Attribute33)
939 OR ( (Recinfo.segment_attribute33 IS NULL)
940 AND (X_Segment_Attribute33 IS NULL)))
941 AND ( (Recinfo.segment_attribute34 = X_Segment_Attribute34)
942 OR ( (Recinfo.segment_attribute34 IS NULL)
943 AND (X_Segment_Attribute34 IS NULL)))
944 AND ( (Recinfo.segment_attribute35 = X_Segment_Attribute35)
945 OR ( (Recinfo.segment_attribute35 IS NULL)
946 AND (X_Segment_Attribute35 IS NULL)))
947 AND ( (Recinfo.segment_attribute36 = X_Segment_Attribute36)
948 OR ( (Recinfo.segment_attribute36 IS NULL)
949 AND (X_Segment_Attribute36 IS NULL)))
950 AND ( (Recinfo.segment_attribute37 = X_Segment_Attribute37)
951 OR ( (Recinfo.segment_attribute37 IS NULL)
952 AND (X_Segment_Attribute37 IS NULL)))
953 AND ( (Recinfo.segment_attribute38 = X_Segment_Attribute38)
954 OR ( (Recinfo.segment_attribute38 IS NULL)
955 AND (X_Segment_Attribute38 IS NULL)))
956 AND ( (Recinfo.segment_attribute39 = X_Segment_Attribute39)
957 OR ( (Recinfo.segment_attribute39 IS NULL)
958 AND (X_Segment_Attribute39 IS NULL)))
959 AND ( (Recinfo.segment_attribute40 = X_Segment_Attribute40)
960 OR ( (Recinfo.segment_attribute40 IS NULL)
961 AND (X_Segment_Attribute40 IS NULL)))
962 AND ( (Recinfo.segment_attribute41 = X_Segment_Attribute41)
963 OR ( (Recinfo.segment_attribute41 IS NULL)
964 AND (X_Segment_Attribute41 IS NULL)))
965 AND ( (Recinfo.segment_attribute42 = X_Segment_Attribute42)
966 OR ( (Recinfo.segment_attribute42 IS NULL)
967 AND (X_Segment_Attribute42 IS NULL)))
968 AND ( (Recinfo.jgzz_recon_context = X_Jgzz_Recon_Context)
969 OR ( (Recinfo.jgzz_recon_context IS NULL)
970 AND (X_Jgzz_Recon_Context IS NULL)))
971 AND ( (Recinfo.jgzz_recon_flag = X_Jgzz_Recon_Flag)
972 OR ( (Recinfo.jgzz_recon_flag IS NULL)
973 AND (X_Jgzz_Recon_Flag IS NULL)))
974 AND ( (Recinfo.reference1 = X_reference1)
975 OR ( (Recinfo.reference1 IS NULL)
976 AND (X_reference1 IS NULL)))
977 AND ( (Recinfo.reference2 = X_reference2)
978 OR ( (Recinfo.reference2 IS NULL)
979 AND (X_reference2 IS NULL)))
980 AND ( (Recinfo.reference3 = X_reference3)
981 OR ( (Recinfo.reference3 IS NULL)
982 AND (X_reference3 IS NULL)))
983 AND ( (Recinfo.reference4 = X_reference4)
984 OR ( (Recinfo.reference4 IS NULL)
985 AND (X_reference4 IS NULL)))
986 AND ( (Recinfo.reference5 = X_reference5)
987 OR ( (Recinfo.reference5 IS NULL)
988 AND (X_reference5 IS NULL)))
989 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 5
990 AND ( (Recinfo.igi_balanced_budget_flag = X_igi_balanced_budget_flag)
991 OR ( (Recinfo.igi_balanced_budget_flag IS NULL)
992 AND (X_igi_balanced_budget_flag IS NULL)))
993 -- OPSFI: BUD, mhazarik 13-Jan-00 End 5
994 ) THEN
995 -- Record has not changed.
996 return;
997 end if;
998 end if;
999 end if;
1000
1001 -- Record has been changed.
1002 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1003 --Bug 3199481 (start)
1004 If (l_unexp_level >= l_debug_level) then
1005 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_gl_code_ccid_pkg.lock_row.Msg1',FALSE);
1006 End if;
1007 --Bug 3199481 (End)
1008 APP_EXCEPTION.RAISE_EXCEPTION;
1009
1010 END Lock_Row;
1011
1012 PROCEDURE Update_Row(X_Rowid VARCHAR2,
1013 X_Code_Combination_Id NUMBER,
1014 X_Last_Update_Date DATE,
1015 X_Last_Updated_By NUMBER,
1016 X_Chart_Of_Accounts_Id NUMBER,
1017 X_Detail_Posting_F VARCHAR2,
1018 X_Detail_Budgeting_F VARCHAR2,
1019 X_Account_Type VARCHAR2,
1020 X_Enabled_Flag VARCHAR2,
1021 X_Summary_Flag VARCHAR2,
1022 X_Segment1 VARCHAR2,
1023 X_Segment2 VARCHAR2,
1024 X_Segment3 VARCHAR2,
1025 X_Segment4 VARCHAR2,
1026 X_Segment5 VARCHAR2,
1027 X_Segment6 VARCHAR2,
1028 X_Segment7 VARCHAR2,
1029 X_Segment8 VARCHAR2,
1030 X_Segment9 VARCHAR2,
1031 X_Segment10 VARCHAR2,
1032 X_Segment11 VARCHAR2,
1033 X_Segment12 VARCHAR2,
1034 X_Segment13 VARCHAR2,
1035 X_Segment14 VARCHAR2,
1036 X_Segment15 VARCHAR2,
1037 X_Segment16 VARCHAR2,
1038 X_Segment17 VARCHAR2,
1039 X_Segment18 VARCHAR2,
1040 X_Segment19 VARCHAR2,
1041 X_Segment20 VARCHAR2,
1042 X_Segment21 VARCHAR2,
1043 X_Segment22 VARCHAR2,
1044 X_Segment23 VARCHAR2,
1045 X_Segment24 VARCHAR2,
1046 X_Segment25 VARCHAR2,
1047 X_Segment26 VARCHAR2,
1048 X_Segment27 VARCHAR2,
1049 X_Segment28 VARCHAR2,
1050 X_Segment29 VARCHAR2,
1051 X_Segment30 VARCHAR2,
1052 X_Description VARCHAR2,
1053 X_Template_Id NUMBER,
1054 X_Start_Date_Active DATE,
1055 X_End_Date_Active DATE,
1056 X_Attribute1 VARCHAR2,
1057 X_Attribute2 VARCHAR2,
1058 X_Attribute3 VARCHAR2,
1059 X_Attribute4 VARCHAR2,
1060 X_Attribute5 VARCHAR2,
1061 X_Attribute6 VARCHAR2,
1062 X_Attribute7 VARCHAR2,
1063 X_Attribute8 VARCHAR2,
1064 X_Attribute9 VARCHAR2,
1065 X_Attribute10 VARCHAR2,
1066 X_Context VARCHAR2,
1067 X_Segment_Attribute1 VARCHAR2,
1068 X_Segment_Attribute2 VARCHAR2,
1069 X_Segment_Attribute3 VARCHAR2,
1070 X_Segment_Attribute4 VARCHAR2,
1071 X_Segment_Attribute5 VARCHAR2,
1072 X_Segment_Attribute6 VARCHAR2,
1073 X_Segment_Attribute7 VARCHAR2,
1074 X_Segment_Attribute8 VARCHAR2,
1075 X_Segment_Attribute9 VARCHAR2,
1076 X_Segment_Attribute10 VARCHAR2,
1077 X_Segment_Attribute11 VARCHAR2,
1078 X_Segment_Attribute12 VARCHAR2,
1079 X_Segment_Attribute13 VARCHAR2,
1080 X_Segment_Attribute14 VARCHAR2,
1081 X_Segment_Attribute15 VARCHAR2,
1082 X_Segment_Attribute16 VARCHAR2,
1083 X_Segment_Attribute17 VARCHAR2,
1084 X_Segment_Attribute18 VARCHAR2,
1085 X_Segment_Attribute19 VARCHAR2,
1086 X_Segment_Attribute20 VARCHAR2,
1087 X_Segment_Attribute21 VARCHAR2,
1088 X_Segment_Attribute22 VARCHAR2,
1089 X_Segment_Attribute23 VARCHAR2,
1090 X_Segment_Attribute24 VARCHAR2,
1091 X_Segment_Attribute25 VARCHAR2,
1092 X_Segment_Attribute26 VARCHAR2,
1093 X_Segment_Attribute27 VARCHAR2,
1094 X_Segment_Attribute28 VARCHAR2,
1095 X_Segment_Attribute29 VARCHAR2,
1096 X_Segment_Attribute30 VARCHAR2,
1097 X_Segment_Attribute31 VARCHAR2,
1098 X_Segment_Attribute32 VARCHAR2,
1099 X_Segment_Attribute33 VARCHAR2,
1100 X_Segment_Attribute34 VARCHAR2,
1101 X_Segment_Attribute35 VARCHAR2,
1102 X_Segment_Attribute36 VARCHAR2,
1103 X_Segment_Attribute37 VARCHAR2,
1104 X_Segment_Attribute38 VARCHAR2,
1105 X_Segment_Attribute39 VARCHAR2,
1106 X_Segment_Attribute40 VARCHAR2,
1107 X_Segment_Attribute41 VARCHAR2,
1108 X_Segment_Attribute42 VARCHAR2,
1109 X_Jgzz_Recon_Context VARCHAR2,
1110 X_Jgzz_Recon_Flag VARCHAR2,
1111 X_reference1 VARCHAR2,
1112 X_reference2 VARCHAR2,
1113 X_reference3 VARCHAR2,
1114 X_reference4 VARCHAR2,
1115 X_reference5 VARCHAR2,
1116 -- OPSFI: BUD, mhazarik 13-Jan-00 Start 6
1117 X_igi_balanced_budget_flag VARCHAR2
1118 -- OPSFI: BUD, mhazarik 13-Jan-00 End 6
1119 ) IS
1120 BEGIN
1121 UPDATE gl_code_combinations
1122 SET
1123 code_combination_id = X_Code_Combination_Id,
1124 last_update_date = X_Last_Update_Date,
1125 last_updated_by = X_Last_Updated_By,
1126 chart_of_accounts_id = X_Chart_Of_Accounts_Id,
1127 detail_posting_allowed_flag = X_Detail_Posting_F,
1128 detail_budgeting_allowed_flag = X_Detail_Budgeting_F,
1129 account_type = X_Account_Type,
1130 enabled_flag = X_Enabled_Flag,
1131 summary_flag = X_Summary_Flag,
1132 segment1 = X_Segment1,
1133 segment2 = X_Segment2,
1134 segment3 = X_Segment3,
1135 segment4 = X_Segment4,
1136 segment5 = X_Segment5,
1137 segment6 = X_Segment6,
1138 segment7 = X_Segment7,
1139 segment8 = X_Segment8,
1140 segment9 = X_Segment9,
1141 segment10 = X_Segment10,
1142 segment11 = X_Segment11,
1143 segment12 = X_Segment12,
1144 segment13 = X_Segment13,
1145 segment14 = X_Segment14,
1146 segment15 = X_Segment15,
1147 segment16 = X_Segment16,
1148 segment17 = X_Segment17,
1149 segment18 = X_Segment18,
1150 segment19 = X_Segment19,
1151 segment20 = X_Segment20,
1152 segment21 = X_Segment21,
1153 segment22 = X_Segment22,
1154 segment23 = X_Segment23,
1155 segment24 = X_Segment24,
1156 segment25 = X_Segment25,
1157 segment26 = X_Segment26,
1158 segment27 = X_Segment27,
1159 segment28 = X_Segment28,
1160 segment29 = X_Segment29,
1161 segment30 = X_Segment30,
1162 description = X_Description,
1163 template_id = X_Template_Id,
1164 start_date_active = X_Start_Date_Active,
1165 end_date_active = X_End_Date_Active,
1166 attribute1 = X_Attribute1,
1167 attribute2 = X_Attribute2,
1168 attribute3 = X_Attribute3,
1169 attribute4 = X_Attribute4,
1170 attribute5 = X_Attribute5,
1171 attribute6 = X_Attribute6,
1172 attribute7 = X_Attribute7,
1173 attribute8 = X_Attribute8,
1174 attribute9 = X_Attribute9,
1175 attribute10 = X_Attribute10,
1176 context = X_Context,
1177 segment_attribute1 = X_Segment_Attribute1,
1178 segment_attribute2 = X_Segment_Attribute2,
1179 segment_attribute3 = X_Segment_Attribute3,
1180 segment_attribute4 = X_Segment_Attribute4,
1181 segment_attribute5 = X_Segment_Attribute5,
1182 segment_attribute6 = X_Segment_Attribute6,
1183 segment_attribute7 = X_Segment_Attribute7,
1184 segment_attribute8 = X_Segment_Attribute8,
1185 segment_attribute9 = X_Segment_Attribute9,
1186 segment_attribute10 = X_Segment_Attribute10,
1187 segment_attribute11 = X_Segment_Attribute11,
1188 segment_attribute12 = X_Segment_Attribute12,
1189 segment_attribute13 = X_Segment_Attribute13,
1190 segment_attribute14 = X_Segment_Attribute14,
1191 segment_attribute15 = X_Segment_Attribute15,
1192 segment_attribute16 = X_Segment_Attribute16,
1193 segment_attribute17 = X_Segment_Attribute17,
1194 segment_attribute18 = X_Segment_Attribute18,
1195 segment_attribute19 = X_Segment_Attribute19,
1196 segment_attribute20 = X_Segment_Attribute20,
1197 segment_attribute21 = X_Segment_Attribute21,
1198 segment_attribute22 = X_Segment_Attribute22,
1199 segment_attribute23 = X_Segment_Attribute23,
1200 segment_attribute24 = X_Segment_Attribute24,
1201 segment_attribute25 = X_Segment_Attribute25,
1202 segment_attribute26 = X_Segment_Attribute26,
1203 segment_attribute27 = X_Segment_Attribute27,
1204 segment_attribute28 = X_Segment_Attribute28,
1205 segment_attribute29 = X_Segment_Attribute29,
1206 segment_attribute30 = X_Segment_Attribute30,
1207 segment_attribute31 = X_Segment_Attribute31,
1208 segment_attribute32 = X_Segment_Attribute32,
1209 segment_attribute33 = X_Segment_Attribute33,
1210 segment_attribute34 = X_Segment_Attribute34,
1211 segment_attribute35 = X_Segment_Attribute35,
1212 segment_attribute36 = X_Segment_Attribute36,
1213 segment_attribute37 = X_Segment_Attribute37,
1214 segment_attribute38 = X_Segment_Attribute38,
1215 segment_attribute39 = X_Segment_Attribute39,
1216 segment_attribute40 = X_Segment_Attribute40,
1217 segment_attribute41 = X_Segment_Attribute41,
1218 segment_attribute42 = X_Segment_Attribute42,
1219 jgzz_recon_context = X_Jgzz_Recon_Context,
1220 jgzz_recon_flag = X_Jgzz_Recon_Flag,
1221 reference1 = X_reference1,
1222 reference2 = X_reference2,
1223 reference3 = X_reference3,
1224 reference4 = X_reference4,
1225 reference5 = X_reference5,
1226 -- OPSFI: BUD, mhazarik 13-jan-00 Start 7
1227 igi_balanced_budget_flag = X_igi_balanced_budget_flag
1228 -- OPSFI: BUD, mhazarik 13-Jan-00 End 7
1229
1230 WHERE rowid = X_rowid;
1231
1232 if (SQL%NOTFOUND) then
1233 RAISE NO_DATA_FOUND;
1234 end if;
1235
1236 END Update_Row;
1237
1238
1239 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
1240 BEGIN
1241 DELETE FROM gl_code_combinations
1242 WHERE rowid = X_Rowid;
1243
1244 if (SQL%NOTFOUND) then
1245 RAISE NO_DATA_FOUND;
1246 end if;
1247 END Delete_Row;
1248 */
1249 -- **********************************************************************
1250
1251 FUNCTION check_net_income_account(X_CCID NUMBER) RETURN BOOLEAN IS
1252
1253 CURSOR check_net_income_account IS
1254 SELECT 'ccid exists'
1255 FROM DUAL
1256 WHERE EXISTS
1257 (SELECT 'X'
1258 FROM GL_NET_INCOME_ACCOUNTS
1259 WHERE code_combination_id = X_CCID);
1260 dummy VARCHAR2(100);
1261
1262 BEGIN
1263 OPEN check_net_income_account;
1264 FETCH check_net_income_account INTO dummy;
1265
1266 IF check_net_income_account%FOUND THEN
1267 CLOSE check_net_income_account;
1268 RETURN ( TRUE );
1269 ELSE
1270 CLOSE check_net_income_account;
1271 RETURN ( FALSE );
1272 END IF;
1273
1274 END check_net_income_account;
1275
1276 END IGI_BUD_GL_CODE_CCID_PKG;