[Home] [Help]
6: /* GL code combinations table in the accounting flexfield. */
7: /* Returns TRUE if ok, or returns FALSE and sets FND_MESSAGE on error. */
8: /* ------------------------------------------------------------------------- */
9:
10: --===========================FND_LOG.START=====================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
7: /* Returns TRUE if ok, or returns FALSE and sets FND_MESSAGE on error. */
8: /* ------------------------------------------------------------------------- */
9:
10: --===========================FND_LOG.START=====================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
8: /* ------------------------------------------------------------------------- */
9:
10: --===========================FND_LOG.START=====================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: --===========================FND_LOG.START=====================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_path VARCHAR2(100) := 'psa.plsql.glffglib.gl_flex_insert_pkg.';
10: --===========================FND_LOG.START=====================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_path VARCHAR2(100) := 'psa.plsql.glffglib.gl_flex_insert_pkg.';
18: --===========================FND_LOG.END=======================================
11: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_path VARCHAR2(100) := 'psa.plsql.glffglib.gl_flex_insert_pkg.';
18: --===========================FND_LOG.END=======================================
19:
12: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_path VARCHAR2(100) := 'psa.plsql.glffglib.gl_flex_insert_pkg.';
18: --===========================FND_LOG.END=======================================
19:
20: g_segment_nvl_value CONSTANT VARCHAR2(30) := '-99$$!!';
14: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
15: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
16: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_path VARCHAR2(100) := 'psa.plsql.glffglib.gl_flex_insert_pkg.';
18: --===========================FND_LOG.END=======================================
19:
20: g_segment_nvl_value CONSTANT VARCHAR2(30) := '-99$$!!';
21: -- Types :
22:
318: retval INTEGER;
319: lock_flag BOOLEAN;
320: l_temp_var VARCHAR2(1);
321:
322: -- ========================= FND LOG ===========================
323: l_full_path VARCHAR2(100) := g_path || 'fdfgli.';
324: -- ========================= FND LOG ===========================
325:
326: BEGIN
320: l_temp_var VARCHAR2(1);
321:
322: -- ========================= FND LOG ===========================
323: l_full_path VARCHAR2(100) := g_path || 'fdfgli.';
324: -- ========================= FND LOG ===========================
325:
326: BEGIN
327:
328: -- ========================= FND LOG ===========================
324: -- ========================= FND LOG ===========================
325:
326: BEGIN
327:
328: -- ========================= FND LOG ===========================
329: psa_utils.debug_other_string(g_state_level,l_full_path,' START fdfgli ');
330: -- ========================= FND LOG ===========================
331:
332: -- Initialize Global Variables
326: BEGIN
327:
328: -- ========================= FND LOG ===========================
329: psa_utils.debug_other_string(g_state_level,l_full_path,' START fdfgli ');
330: -- ========================= FND LOG ===========================
331:
332: -- Initialize Global Variables
333:
334: dyn_grp_id := -1;
339: created_parent := FALSE;
340: no_msg_tokens := 0;
341: num_ccid := 0;
342:
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_state_level,l_full_path,' Initializing Variables ');
345: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || to_char(dyn_grp_id));
346: psa_utils.debug_other_string(g_state_level,l_full_path,' gl_installed -> ' || gl_installed);
347: psa_utils.debug_other_string(g_state_level,l_full_path,' num_active_segs -> ' || num_active_segs);
346: psa_utils.debug_other_string(g_state_level,l_full_path,' gl_installed -> ' || gl_installed);
347: psa_utils.debug_other_string(g_state_level,l_full_path,' num_active_segs -> ' || num_active_segs);
348: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
349: psa_utils.debug_other_string(g_state_level,l_full_path,' num_templates -> ' || num_templates);
350: -- ========================= FND LOG ===========================
351:
352: --select count(*)
353: --into num_ccid
354: --from gl_code_combinations
363: and not exists (select 'x'
364: from gl_budget_assignments
365: where code_combination_id = ccid);
366:
367: -- ========================= FND LOG ===========================
368: psa_utils.debug_other_string(g_state_level,l_full_path,' l_temp_var -> ' || l_temp_var);
369: -- ========================= FND LOG ===========================
370:
371: EXCEPTION
365: where code_combination_id = ccid);
366:
367: -- ========================= FND LOG ===========================
368: psa_utils.debug_other_string(g_state_level,l_full_path,' l_temp_var -> ' || l_temp_var);
369: -- ========================= FND LOG ===========================
370:
371: EXCEPTION
372: WHEN NO_DATA_FOUND THEN
373: -- ========================= FND LOG ===========================
369: -- ========================= FND LOG ===========================
370:
371: EXCEPTION
372: WHEN NO_DATA_FOUND THEN
373: -- ========================= FND LOG ===========================
374: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN NO_DATA_FOUND');
375: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
376: -- ========================= FND LOG ===========================
377: RETURN (true);
372: WHEN NO_DATA_FOUND THEN
373: -- ========================= FND LOG ===========================
374: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN NO_DATA_FOUND');
375: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
376: -- ========================= FND LOG ===========================
377: RETURN (true);
378: END;
379:
380: -- For bug 3380377, check to see if ccid exists. If it already exists, just return TRUE
382: -- return(TRUE);
383: --end if;
384:
385:
386: -- ========================= FND LOG ===========================
387: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfini -> ' || ccid);
388: -- ========================= FND LOG ===========================
389:
390: -- Setup Global Variables
384:
385:
386: -- ========================= FND LOG ===========================
387: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfini -> ' || ccid);
388: -- ========================= FND LOG ===========================
389:
390: -- Setup Global Variables
391:
392: if not glfini(ccid) then
389:
390: -- Setup Global Variables
391:
392: if not glfini(ccid) then
393: -- ========================= FND LOG ===========================
394: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
395: -- ========================= FND LOG ===========================
396: return(FALSE);
397: end if;
391:
392: if not glfini(ccid) then
393: -- ========================= FND LOG ===========================
394: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
395: -- ========================= FND LOG ===========================
396: return(FALSE);
397: end if;
398:
399:
396: return(FALSE);
397: end if;
398:
399:
400: -- ========================= FND LOG ===========================
401: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfcin ');
402: -- ========================= FND LOG ===========================
403:
404: -- Check if GL has been installed
398:
399:
400: -- ========================= FND LOG ===========================
401: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfcin ');
402: -- ========================= FND LOG ===========================
403:
404: -- Check if GL has been installed
405:
406: if not glfcin then
403:
404: -- Check if GL has been installed
405:
406: if not glfcin then
407: -- ========================= FND LOG ===========================
408: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
409: -- ========================= FND LOG ===========================
410: return(FALSE);
411: end if;
405:
406: if not glfcin then
407: -- ========================= FND LOG ===========================
408: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
409: -- ========================= FND LOG ===========================
410: return(FALSE);
411: end if;
412:
413:
410: return(FALSE);
411: end if;
412:
413:
414: -- ========================= FND LOG ===========================
415: psa_utils.debug_other_string(g_state_level,l_full_path,' gl_installed -> ' || gl_installed);
416: -- ========================= FND LOG ===========================
417:
418: -- If GL is not installed or number of set of books with the
412:
413:
414: -- ========================= FND LOG ===========================
415: psa_utils.debug_other_string(g_state_level,l_full_path,' gl_installed -> ' || gl_installed);
416: -- ========================= FND LOG ===========================
417:
418: -- If GL is not installed or number of set of books with the
419: -- budgetary control option enabled is zero or less then
420: -- return TRUE
419: -- budgetary control option enabled is zero or less then
420: -- return TRUE
421:
422: if gl_installed = 'NOT_INSTALLED' then
423: -- ========================= FND LOG ===========================
424: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
425: -- ========================= FND LOG ===========================
426: return(TRUE);
427: end if;
421:
422: if gl_installed = 'NOT_INSTALLED' then
423: -- ========================= FND LOG ===========================
424: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
425: -- ========================= FND LOG ===========================
426: return(TRUE);
427: end if;
428:
429:
426: return(TRUE);
427: end if;
428:
429:
430: -- ========================= FND LOG ===========================
431: psa_utils.debug_other_string(g_state_level,l_full_path,
432: ' Calling HR_GL_COST_CENTERS.create_org');
433: psa_utils.debug_other_string(g_state_level,l_full_path,
434: ' update company_cost_enter_org_id of GL_CODE_COMBINATIONS');
431: psa_utils.debug_other_string(g_state_level,l_full_path,
432: ' Calling HR_GL_COST_CENTERS.create_org');
433: psa_utils.debug_other_string(g_state_level,l_full_path,
434: ' update company_cost_enter_org_id of GL_CODE_COMBINATIONS');
435: -- ========================= FND LOG ===========================
436:
437: -- Call API to update company_cost_enter_org_id of GL_CODE_COMBINATIONS table..
438: -- We pass CCID as parameter to this procedure
439:
438: -- We pass CCID as parameter to this procedure
439:
440: HR_GL_COST_CENTERS.create_org(ccid);
441:
442: -- ========================= FND LOG ===========================
443: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
444: -- ========================= FND LOG ===========================
445:
446: -- If no Budgetary Control then maintain Reporting Attributes
440: HR_GL_COST_CENTERS.create_org(ccid);
441:
442: -- ========================= FND LOG ===========================
443: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
444: -- ========================= FND LOG ===========================
445:
446: -- If no Budgetary Control then maintain Reporting Attributes
447: -- and exit
448:
447: -- and exit
448:
449: if num_bc_lgr = 0 then
450:
451: -- ========================= FND LOG ===========================
452: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glgfdi -> '|| ccid);
453: -- ========================= FND LOG ===========================
454:
455: if not glgfdi(ccid) then
449: if num_bc_lgr = 0 then
450:
451: -- ========================= FND LOG ===========================
452: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glgfdi -> '|| ccid);
453: -- ========================= FND LOG ===========================
454:
455: if not glgfdi(ccid) then
456: -- ========================= FND LOG ===========================
457: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
452: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glgfdi -> '|| ccid);
453: -- ========================= FND LOG ===========================
454:
455: if not glgfdi(ccid) then
456: -- ========================= FND LOG ===========================
457: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
458: -- ========================= FND LOG ===========================
459: return(FALSE);
460: else
454:
455: if not glgfdi(ccid) then
456: -- ========================= FND LOG ===========================
457: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
458: -- ========================= FND LOG ===========================
459: return(FALSE);
460: else
461: -- ========================= FND LOG ===========================
462: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
457: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
458: -- ========================= FND LOG ===========================
459: return(FALSE);
460: else
461: -- ========================= FND LOG ===========================
462: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
463: -- ========================= FND LOG ===========================
464: return(TRUE);
465: end if;
459: return(FALSE);
460: else
461: -- ========================= FND LOG ===========================
462: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
463: -- ========================= FND LOG ===========================
464: return(TRUE);
465: end if;
466: end if;
467:
464: return(TRUE);
465: end if;
466: end if;
467:
468: -- ========================= FND LOG ===========================
469: psa_utils.debug_other_string(g_state_level,l_full_path,
470: ' Retrieve Value Set IDs for the Segments in the Code Combination ');
471: -- ========================= FND LOG ===========================
472:
467:
468: -- ========================= FND LOG ===========================
469: psa_utils.debug_other_string(g_state_level,l_full_path,
470: ' Retrieve Value Set IDs for the Segments in the Code Combination ');
471: -- ========================= FND LOG ===========================
472:
473: -- Retrieve Value Set IDs for the Segments in the Code Combination
474:
475: for i in 1..30 loop
475: for i in 1..30 loop
476: val_set(i) := null;
477: end loop;
478:
479: -- ========================= FND LOG ===========================
480: psa_utils.debug_other_string(g_state_level,l_full_path,
481: ' Calling glfisi passing val_set ');
482: -- ========================= FND LOG ===========================
483:
478:
479: -- ========================= FND LOG ===========================
480: psa_utils.debug_other_string(g_state_level,l_full_path,
481: ' Calling glfisi passing val_set ');
482: -- ========================= FND LOG ===========================
483:
484: if not glfisi(val_set) then
485: -- ========================= FND LOG ===========================
486: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
481: ' Calling glfisi passing val_set ');
482: -- ========================= FND LOG ===========================
483:
484: if not glfisi(val_set) then
485: -- ========================= FND LOG ===========================
486: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
487: -- ========================= FND LOG ===========================
488: return(FALSE);
489: end if;
483:
484: if not glfisi(val_set) then
485: -- ========================= FND LOG ===========================
486: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
487: -- ========================= FND LOG ===========================
488: return(FALSE);
489: end if;
490:
491:
488: return(FALSE);
489: end if;
490:
491:
492: -- ========================= FND LOG ===========================
493: psa_utils.debug_other_string(g_state_level,l_full_path,' db_allowed_flag -> ' || db_allowed_flag);
494: -- ========================= FND LOG ===========================
495:
496: -- Maintain Budget Assignments only if Detail Budgeting is allowed for the
490:
491:
492: -- ========================= FND LOG ===========================
493: psa_utils.debug_other_string(g_state_level,l_full_path,' db_allowed_flag -> ' || db_allowed_flag);
494: -- ========================= FND LOG ===========================
495:
496: -- Maintain Budget Assignments only if Detail Budgeting is allowed for the
497: -- new Code Combination
498:
497: -- new Code Combination
498:
499: if (db_allowed_flag = 'Y') then
500:
501: -- ========================= FND LOG ===========================
502: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfiba -> ' || ccid);
503: -- ========================= FND LOG ===========================
504:
505: -- Insert into Budget Assignments table only if Segment Values fall
499: if (db_allowed_flag = 'Y') then
500:
501: -- ========================= FND LOG ===========================
502: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfiba -> ' || ccid);
503: -- ========================= FND LOG ===========================
504:
505: -- Insert into Budget Assignments table only if Segment Values fall
506: -- within any Account Ranges in the Budget Organization
507:
505: -- Insert into Budget Assignments table only if Segment Values fall
506: -- within any Account Ranges in the Budget Organization
507:
508: if not glfiba(ccid) then
509: -- ========================= FND LOG ===========================
510: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
511: -- ========================= FND LOG ===========================
512: return(FALSE);
513: end if;
507:
508: if not glfiba(ccid) then
509: -- ========================= FND LOG ===========================
510: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
511: -- ========================= FND LOG ===========================
512: return(FALSE);
513: end if;
514:
515: end if;
515: end if;
516:
517: lock_flag := FALSE;
518:
519: -- ========================= FND LOG ===========================
520: psa_utils.debug_other_string(g_state_level,l_full_path,' Doing the Locking');
521: -- ========================= FND LOG ===========================
522:
523: -- A new share user name lock is added. It will be released at the end.
517: lock_flag := FALSE;
518:
519: -- ========================= FND LOG ===========================
520: psa_utils.debug_other_string(g_state_level,l_full_path,' Doing the Locking');
521: -- ========================= FND LOG ===========================
522:
523: -- A new share user name lock is added. It will be released at the end.
524: -- This ensures that when a new code combination is created, no GLSIMS
525: -- runs to incrementally update the hierarchies.
526:
527: LOOP
528:
529: if(lock_flag = TRUE) then
530: -- ========================= FND LOG ===========================
531: psa_utils.debug_other_string(g_state_level,l_full_path,' lock_flag - TRUE - EXIT');
532: -- ========================= FND LOG ===========================
533: exit;
534:
528:
529: if(lock_flag = TRUE) then
530: -- ========================= FND LOG ===========================
531: psa_utils.debug_other_string(g_state_level,l_full_path,' lock_flag - TRUE - EXIT');
532: -- ========================= FND LOG ===========================
533: exit;
534:
535: end if;
536:
536:
537: allocate_lock('GL_BC_SUMMARY_TEMPLATES'||coaid, lockhandle); -- Bug 5074981
538: retval := dbms_lock.request(lockhandle,4,32767,FALSE);
539:
540: -- ========================= FND LOG ===========================
541: psa_utils.debug_other_string(g_state_level,l_full_path,' retval -> ' || retval);
542: -- ========================= FND LOG ===========================
543:
544: if(retval = 0 OR retval = 4)then
538: retval := dbms_lock.request(lockhandle,4,32767,FALSE);
539:
540: -- ========================= FND LOG ===========================
541: psa_utils.debug_other_string(g_state_level,l_full_path,' retval -> ' || retval);
542: -- ========================= FND LOG ===========================
543:
544: if(retval = 0 OR retval = 4)then
545: lock_flag := TRUE;
546: -- ========================= FND LOG ===========================
542: -- ========================= FND LOG ===========================
543:
544: if(retval = 0 OR retval = 4)then
545: lock_flag := TRUE;
546: -- ========================= FND LOG ===========================
547: psa_utils.debug_other_string(g_state_level,l_full_path,' lock_flag -> TRUE');
548: -- ========================= FND LOG ===========================
549:
550: elsif(retval = 1)then
544: if(retval = 0 OR retval = 4)then
545: lock_flag := TRUE;
546: -- ========================= FND LOG ===========================
547: psa_utils.debug_other_string(g_state_level,l_full_path,' lock_flag -> TRUE');
548: -- ========================= FND LOG ===========================
549:
550: elsif(retval = 1)then
551: -- ========================= FND LOG ===========================
552: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling dbms_lock.sleep');
547: psa_utils.debug_other_string(g_state_level,l_full_path,' lock_flag -> TRUE');
548: -- ========================= FND LOG ===========================
549:
550: elsif(retval = 1)then
551: -- ========================= FND LOG ===========================
552: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling dbms_lock.sleep');
553: -- ========================= FND LOG ===========================
554: dbms_lock.sleep(15);
555:
549:
550: elsif(retval = 1)then
551: -- ========================= FND LOG ===========================
552: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling dbms_lock.sleep');
553: -- ========================= FND LOG ===========================
554: dbms_lock.sleep(15);
555:
556: else
557: -- ========================= FND LOG ===========================
553: -- ========================= FND LOG ===========================
554: dbms_lock.sleep(15);
555:
556: else
557: -- ========================= FND LOG ===========================
558: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN FALSE');
559: -- ========================= FND LOG ===========================
560: return(FALSE);
561:
555:
556: else
557: -- ========================= FND LOG ===========================
558: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN FALSE');
559: -- ========================= FND LOG ===========================
560: return(FALSE);
561:
562: end if;
563:
562: end if;
563:
564: END LOOP;
565:
566: -- ========================= FND LOG ===========================
567: psa_utils.debug_other_string(g_state_level,l_full_path,
568: ' Loop through the Summary Templates and create Parent Accounts');
569: psa_utils.debug_other_string(g_state_level,l_full_path,
570: ' Calling glfcst passing val_set ');
567: psa_utils.debug_other_string(g_state_level,l_full_path,
568: ' Loop through the Summary Templates and create Parent Accounts');
569: psa_utils.debug_other_string(g_state_level,l_full_path,
570: ' Calling glfcst passing val_set ');
571: -- ========================= FND LOG ===========================
572:
573: -- Loop through the Summary Templates and create Parent Accounts
574: -- for each template
575:
573: -- Loop through the Summary Templates and create Parent Accounts
574: -- for each template
575:
576: if not glfcst(val_set, ccid) then
577: -- ========================= FND LOG ===========================
578: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
579: -- ========================= FND LOG ===========================
580: return(FALSE);
581: end if;
575:
576: if not glfcst(val_set, ccid) then
577: -- ========================= FND LOG ===========================
578: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
579: -- ========================= FND LOG ===========================
580: return(FALSE);
581: end if;
582:
583: -- Now that parent accounts have been created for all the Summary
589: -- (5) maintain gl_account_hierarchies
590:
591: if created_parent then
592:
593: -- ========================= FND LOG ===========================
594: psa_utils.debug_other_string(g_state_level,l_full_path,' Lock Summary Templates');
595: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glflst');
596: -- ========================= FND LOG ===========================
597:
592:
593: -- ========================= FND LOG ===========================
594: psa_utils.debug_other_string(g_state_level,l_full_path,' Lock Summary Templates');
595: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glflst');
596: -- ========================= FND LOG ===========================
597:
598: -- Lock Summary Templates
599:
600: if not glflst then
597:
598: -- Lock Summary Templates
599:
600: if not glflst then
601: -- ========================= FND LOG ===========================
602: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
603: -- ========================= FND LOG ===========================
604: return(FALSE);
605: end if;
599:
600: if not glflst then
601: -- ========================= FND LOG ===========================
602: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
603: -- ========================= FND LOG ===========================
604: return(FALSE);
605: end if;
606:
607: -- ========================= FND LOG ===========================
603: -- ========================= FND LOG ===========================
604: return(FALSE);
605: end if;
606:
607: -- ========================= FND LOG ===========================
608: psa_utils.debug_other_string(g_state_level,l_full_path,
609: ' Find CCIDs for existing Code Combinations');
610: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfaec');
611: -- ========================= FND LOG ===========================
607: -- ========================= FND LOG ===========================
608: psa_utils.debug_other_string(g_state_level,l_full_path,
609: ' Find CCIDs for existing Code Combinations');
610: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfaec');
611: -- ========================= FND LOG ===========================
612:
613: -- Find CCIDs for existing Code Combinations
614:
615: if not glfaec then
612:
613: -- Find CCIDs for existing Code Combinations
614:
615: if not glfaec then
616: -- ========================= FND LOG ===========================
617: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
618: -- ========================= FND LOG ===========================
619:
620: return(FALSE);
614:
615: if not glfaec then
616: -- ========================= FND LOG ===========================
617: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
618: -- ========================= FND LOG ===========================
619:
620: return(FALSE);
621: end if;
622:
619:
620: return(FALSE);
621: end if;
622:
623: -- ========================= FND LOG ===========================
624: psa_utils.debug_other_string(g_state_level,l_full_path,
625: ' Assign new CCIDs to new Code Combinations');
626: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfanc');
627: -- ========================= FND LOG ===========================
623: -- ========================= FND LOG ===========================
624: psa_utils.debug_other_string(g_state_level,l_full_path,
625: ' Assign new CCIDs to new Code Combinations');
626: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfanc');
627: -- ========================= FND LOG ===========================
628:
629: -- Assign new CCIDs to new Code Combinations
630:
631: if not glfanc then
628:
629: -- Assign new CCIDs to new Code Combinations
630:
631: if not glfanc then
632: -- ========================= FND LOG ===========================
633: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
634: -- ========================= FND LOG ===========================
635: return(FALSE);
636: end if;
630:
631: if not glfanc then
632: -- ========================= FND LOG ===========================
633: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
634: -- ========================= FND LOG ===========================
635: return(FALSE);
636: end if;
637:
638: -- ========================= FND LOG ===========================
634: -- ========================= FND LOG ===========================
635: return(FALSE);
636: end if;
637:
638: -- ========================= FND LOG ===========================
639: psa_utils.debug_other_string(g_state_level,l_full_path,
640: ' Insert newly created Parent Accounts into Code Combinations table');
641: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glficc');
642: -- ========================= FND LOG ===========================
638: -- ========================= FND LOG ===========================
639: psa_utils.debug_other_string(g_state_level,l_full_path,
640: ' Insert newly created Parent Accounts into Code Combinations table');
641: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glficc');
642: -- ========================= FND LOG ===========================
643:
644: -- Insert newly created Parent Accounts into Code Combinations table
645:
646: if not glficc then
643:
644: -- Insert newly created Parent Accounts into Code Combinations table
645:
646: if not glficc then
647: -- ========================= FND LOG ===========================
648: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
649: -- ========================= FND LOG ===========================
650: return(FALSE);
651: end if;
645:
646: if not glficc then
647: -- ========================= FND LOG ===========================
648: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
649: -- ========================= FND LOG ===========================
650: return(FALSE);
651: end if;
652:
653:
653:
654: -- Maintain Account Hierarchies
655:
656: if not glfmah(ccid) then
657: -- ========================= FND LOG ===========================
658: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
659: -- ========================= FND LOG ===========================
660: return(FALSE);
661: end if;
655:
656: if not glfmah(ccid) then
657: -- ========================= FND LOG ===========================
658: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
659: -- ========================= FND LOG ===========================
660: return(FALSE);
661: end if;
662:
663: end if;
661: end if;
662:
663: end if;
664:
665: -- ========================= FND LOG ===========================
666: psa_utils.debug_other_string(g_state_level,l_full_path,
667: ' Release the budgetary control locks');
668: -- ========================= FND LOG ===========================
669:
664:
665: -- ========================= FND LOG ===========================
666: psa_utils.debug_other_string(g_state_level,l_full_path,
667: ' Release the budgetary control locks');
668: -- ========================= FND LOG ===========================
669:
670: -- Release the budgetary control user name lock after maintaining the
671: -- account hierarchies.
672:
671: -- account hierarchies.
672:
673: retval := dbms_lock.release(lockhandle);
674:
675: -- ========================= FND LOG ===========================
676: psa_utils.debug_other_string(g_state_level,l_full_path,
677: ' retval -> ' || retval);
678: -- ========================= FND LOG ===========================
679:
674:
675: -- ========================= FND LOG ===========================
676: psa_utils.debug_other_string(g_state_level,l_full_path,
677: ' retval -> ' || retval);
678: -- ========================= FND LOG ===========================
679:
680: if(retval <> 0) then
681: -- ========================= FND LOG ===========================
682: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
677: ' retval -> ' || retval);
678: -- ========================= FND LOG ===========================
679:
680: if(retval <> 0) then
681: -- ========================= FND LOG ===========================
682: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
683: -- ========================= FND LOG ===========================
684: return(FALSE);
685: end if;
679:
680: if(retval <> 0) then
681: -- ========================= FND LOG ===========================
682: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
683: -- ========================= FND LOG ===========================
684: return(FALSE);
685: end if;
686:
687: -- ========================= FND LOG ===========================
683: -- ========================= FND LOG ===========================
684: return(FALSE);
685: end if;
686:
687: -- ========================= FND LOG ===========================
688: psa_utils.debug_other_string(g_state_level,l_full_path,
689: ' Maintain Reporting Attributes');
690: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glgfdi -> ' || ccid);
691: -- ========================= FND LOG ===========================
687: -- ========================= FND LOG ===========================
688: psa_utils.debug_other_string(g_state_level,l_full_path,
689: ' Maintain Reporting Attributes');
690: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glgfdi -> ' || ccid);
691: -- ========================= FND LOG ===========================
692:
693: -- Maintain Reporting Attributes
694:
695: if not glgfdi(ccid) then
692:
693: -- Maintain Reporting Attributes
694:
695: if not glgfdi(ccid) then
696: -- ========================= FND LOG ===========================
697: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
698: -- ========================= FND LOG ===========================
699: return(FALSE);
700: end if;
694:
695: if not glgfdi(ccid) then
696: -- ========================= FND LOG ===========================
697: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
698: -- ========================= FND LOG ===========================
699: return(FALSE);
700: end if;
701:
702: -- ========================= FND LOG ===========================
698: -- ========================= FND LOG ===========================
699: return(FALSE);
700: end if;
701:
702: -- ========================= FND LOG ===========================
703: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
704: -- ========================= FND LOG ===========================
705: return(TRUE);
706:
700: end if;
701:
702: -- ========================= FND LOG ===========================
703: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
704: -- ========================= FND LOG ===========================
705: return(TRUE);
706:
707: END FDFGLI;
708:
766: segment28 gl_code_combinations.segment28%TYPE;
767: segment29 gl_code_combinations.segment29%TYPE;
768: segment30 gl_code_combinations.segment30%TYPE;
769:
770: -- ========================= FND LOG ===========================
771: l_full_path VARCHAR2(100) := g_path || 'glfini.';
772: -- ========================= FND LOG ===========================
773:
774: BEGIN
768: segment30 gl_code_combinations.segment30%TYPE;
769:
770: -- ========================= FND LOG ===========================
771: l_full_path VARCHAR2(100) := g_path || 'glfini.';
772: -- ========================= FND LOG ===========================
773:
774: BEGIN
775:
776: -- ========================= FND LOG ===========================
772: -- ========================= FND LOG ===========================
773:
774: BEGIN
775:
776: -- ========================= FND LOG ===========================
777: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfini ');
778: -- ========================= FND LOG ===========================
779:
780: -- Setup User ID
774: BEGIN
775:
776: -- ========================= FND LOG ===========================
777: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfini ');
778: -- ========================= FND LOG ===========================
779:
780: -- Setup User ID
781: user_id := FND_GLOBAL.USER_ID;
782:
779:
780: -- Setup User ID
781: user_id := FND_GLOBAL.USER_ID;
782:
783: -- ========================= FND LOG ===========================
784: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
785: -- ========================= FND LOG ===========================
786:
787: if user_id = -1 then
781: user_id := FND_GLOBAL.USER_ID;
782:
783: -- ========================= FND LOG ===========================
784: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
785: -- ========================= FND LOG ===========================
786:
787: if user_id = -1 then
788: message_token('ROUTINE', 'FDFGLI');
789: add_message('FND', 'FLEXGL-CANNOT GET USERID');
792:
793: -- Setup Login ID
794: login_id := FND_GLOBAL.LOGIN_ID;
795:
796: -- ========================= FND LOG ===========================
797: psa_utils.debug_other_string(g_state_level,l_full_path,' login_id -> ' || login_id);
798: -- ========================= FND LOG ===========================
799:
800: if login_id = -1 then
794: login_id := FND_GLOBAL.LOGIN_ID;
795:
796: -- ========================= FND LOG ===========================
797: psa_utils.debug_other_string(g_state_level,l_full_path,' login_id -> ' || login_id);
798: -- ========================= FND LOG ===========================
799:
800: if login_id = -1 then
801: message_token('ROUTINE', 'FDFGLI');
802: add_message('FND', 'FLEXGL-CANNOT GET LOGIN ID');
802: add_message('FND', 'FLEXGL-CANNOT GET LOGIN ID');
803: -- goto return_invalid;
804: end if;
805:
806: -- ========================= FND LOG ===========================
807: psa_utils.debug_other_string(g_state_level,l_full_path,' user_resp_id -> ' || user_resp_id);
808: -- ========================= FND LOG ===========================
809:
810: -- Setup Responsibility ID
804: end if;
805:
806: -- ========================= FND LOG ===========================
807: psa_utils.debug_other_string(g_state_level,l_full_path,' user_resp_id -> ' || user_resp_id);
808: -- ========================= FND LOG ===========================
809:
810: -- Setup Responsibility ID
811: user_resp_id := FND_GLOBAL.RESP_ID;
812:
840: ' from gl_code_combinations ' ||
841: 'where code_combination_id = :ccid';
842:
843:
844: -- ========================= FND LOG ===========================
845: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_glcc -> ' || sql_glcc);
846: -- ========================= FND LOG ===========================
847:
848: cur_glcc := dbms_sql.open_cursor;
842:
843:
844: -- ========================= FND LOG ===========================
845: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_glcc -> ' || sql_glcc);
846: -- ========================= FND LOG ===========================
847:
848: cur_glcc := dbms_sql.open_cursor;
849: dbms_sql.parse(cur_glcc, sql_glcc, dbms_sql.v7);
850:
847:
848: cur_glcc := dbms_sql.open_cursor;
849: dbms_sql.parse(cur_glcc, sql_glcc, dbms_sql.v7);
850:
851: -- ========================= FND LOG ===========================
852: psa_utils.debug_other_string(g_state_level,l_full_path,' BIND PARAMETERS');
853: psa_utils.debug_other_string(g_state_level,l_full_path,' ccid -> ' || ccid);
854: -- ========================= FND LOG ===========================
855:
850:
851: -- ========================= FND LOG ===========================
852: psa_utils.debug_other_string(g_state_level,l_full_path,' BIND PARAMETERS');
853: psa_utils.debug_other_string(g_state_level,l_full_path,' ccid -> ' || ccid);
854: -- ========================= FND LOG ===========================
855:
856: dbms_sql.bind_variable(cur_glcc, ':ccid', ccid);
857:
858: dbms_sql.define_column(cur_glcc, 1, coaid);
864: end loop;
865:
866: ignore := dbms_sql.execute(cur_glcc);
867:
868: -- ========================= FND LOG ===========================
869: psa_utils.debug_other_string(g_state_level,l_full_path,' ignore -> ' || ignore);
870: -- ========================= FND LOG ===========================
871:
872: loop
866: ignore := dbms_sql.execute(cur_glcc);
867:
868: -- ========================= FND LOG ===========================
869: psa_utils.debug_other_string(g_state_level,l_full_path,' ignore -> ' || ignore);
870: -- ========================= FND LOG ===========================
871:
872: loop
873:
874: -- ========================= FND LOG ===========================
870: -- ========================= FND LOG ===========================
871:
872: loop
873:
874: -- ========================= FND LOG ===========================
875: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
876: -- ========================= FND LOG ===========================
877:
878: if dbms_sql.fetch_rows(cur_glcc) = 0 then
872: loop
873:
874: -- ========================= FND LOG ===========================
875: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
876: -- ========================= FND LOG ===========================
877:
878: if dbms_sql.fetch_rows(cur_glcc) = 0 then
879: -- ========================= FND LOG ===========================
880: psa_utils.debug_other_string(g_state_level,l_full_path,' exit');
875: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
876: -- ========================= FND LOG ===========================
877:
878: if dbms_sql.fetch_rows(cur_glcc) = 0 then
879: -- ========================= FND LOG ===========================
880: psa_utils.debug_other_string(g_state_level,l_full_path,' exit');
881: -- ========================= FND LOG ===========================
882: exit;
883: end if;
877:
878: if dbms_sql.fetch_rows(cur_glcc) = 0 then
879: -- ========================= FND LOG ===========================
880: psa_utils.debug_other_string(g_state_level,l_full_path,' exit');
881: -- ========================= FND LOG ===========================
882: exit;
883: end if;
884:
885: dbms_sql.column_value(cur_glcc, 1, coaid);
887: dbms_sql.column_value(cur_glcc, 3, account_type);
888:
889: for i in 1..30 loop
890: dbms_sql.column_value(cur_glcc, i + 3, seg_val(i));
891: -- ========================= FND LOG ===========================
892: psa_utils.debug_other_string(g_state_level,l_full_path,' seg_val(' || i || ') -> ' || seg_val(i));
893: -- ========================= FND LOG ===========================
894: end loop;
895:
889: for i in 1..30 loop
890: dbms_sql.column_value(cur_glcc, i + 3, seg_val(i));
891: -- ========================= FND LOG ===========================
892: psa_utils.debug_other_string(g_state_level,l_full_path,' seg_val(' || i || ') -> ' || seg_val(i));
893: -- ========================= FND LOG ===========================
894: end loop;
895:
896: -- ========================= FND LOG ===========================
897: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop');
892: psa_utils.debug_other_string(g_state_level,l_full_path,' seg_val(' || i || ') -> ' || seg_val(i));
893: -- ========================= FND LOG ===========================
894: end loop;
895:
896: -- ========================= FND LOG ===========================
897: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop');
898: -- ========================= FND LOG ===========================
899:
900: end loop;
894: end loop;
895:
896: -- ========================= FND LOG ===========================
897: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop');
898: -- ========================= FND LOG ===========================
899:
900: end loop;
901:
902: dbms_sql.close_cursor(cur_glcc);
900: end loop;
901:
902: dbms_sql.close_cursor(cur_glcc);
903:
904: -- ========================= FND LOG ===========================
905: psa_utils.debug_other_string(g_state_level,l_full_path,' account_type -> ' || account_type);
906: -- ========================= FND LOG ===========================
907:
908: if account_type in ('A', 'L', 'O', 'R', 'E') then
902: dbms_sql.close_cursor(cur_glcc);
903:
904: -- ========================= FND LOG ===========================
905: psa_utils.debug_other_string(g_state_level,l_full_path,' account_type -> ' || account_type);
906: -- ========================= FND LOG ===========================
907:
908: if account_type in ('A', 'L', 'O', 'R', 'E') then
909: acct_category := 'P';
910: else
910: else
911: acct_category := 'B';
912: end if;
913:
914: -- ========================= FND LOG ===========================
915: psa_utils.debug_other_string(g_state_level,l_full_path,' acct_category -> ' || acct_category);
916: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
917: -- ========================= FND LOG ===========================
918:
913:
914: -- ========================= FND LOG ===========================
915: psa_utils.debug_other_string(g_state_level,l_full_path,' acct_category -> ' || acct_category);
916: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
917: -- ========================= FND LOG ===========================
918:
919: return(TRUE);
920:
921: <
918:
919: return(TRUE);
920:
921: <
922: -- ========================= FND LOG ===========================
923: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
924: -- ========================= FND LOG ===========================
925: if dbms_sql.is_open(cur_glcc) then
926: dbms_sql.close_cursor(cur_glcc);
920:
921: <
922: -- ========================= FND LOG ===========================
923: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
924: -- ========================= FND LOG ===========================
925: if dbms_sql.is_open(cur_glcc) then
926: dbms_sql.close_cursor(cur_glcc);
927: end if;
928:
925: if dbms_sql.is_open(cur_glcc) then
926: dbms_sql.close_cursor(cur_glcc);
927: end if;
928:
929: -- ========================= FND LOG ===========================
930: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
931: -- ========================= FND LOG ===========================
932:
933: return(FALSE);
927: end if;
928:
929: -- ========================= FND LOG ===========================
930: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
931: -- ========================= FND LOG ===========================
932:
933: return(FALSE);
934:
935:
943:
944: message_token('MSG', 'glfini() exception:' || SQLERRM);
945: add_message('FND', 'FLEX-SSV EXCEPTION');
946:
947: -- ========================= FND LOG ===========================
948: psa_utils.debug_other_string(g_state_level,l_full_path,
949: ' EXCEPTION WHEN OTHERS GLFINI - '||SQLERRM);
950: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
951: -- ========================= FND LOG ===========================
947: -- ========================= FND LOG ===========================
948: psa_utils.debug_other_string(g_state_level,l_full_path,
949: ' EXCEPTION WHEN OTHERS GLFINI - '||SQLERRM);
950: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
951: -- ========================= FND LOG ===========================
952:
953: return(FALSE);
954:
955: END glfini;
985: where enable_budgetary_control_flag = 'Y'
986: and chart_of_accounts_id = coaid;
987:
988:
989: -- ========================= FND LOG ===========================
990: l_full_path VARCHAR2(100) := g_path || 'glfcin.';
991: -- ========================= FND LOG ===========================
992:
993: BEGIN
987:
988:
989: -- ========================= FND LOG ===========================
990: l_full_path VARCHAR2(100) := g_path || 'glfcin.';
991: -- ========================= FND LOG ===========================
992:
993: BEGIN
994:
995: -- ========================= FND LOG ===========================
991: -- ========================= FND LOG ===========================
992:
993: BEGIN
994:
995: -- ========================= FND LOG ===========================
996: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcin ');
997: -- ========================= FND LOG ===========================
998:
999: -- Get Product Installation info by Application ID (101 for SQLGL)
993: BEGIN
994:
995: -- ========================= FND LOG ===========================
996: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcin ');
997: -- ========================= FND LOG ===========================
998:
999: -- Get Product Installation info by Application ID (101 for SQLGL)
1000:
1001: dep_appl_id := FND_GLOBAL.RESP_APPL_ID;
1003: if dep_appl_id = -1 then
1004: dep_appl_id := 101;
1005: end if;
1006:
1007: -- ========================= FND LOG ===========================
1008: psa_utils.debug_other_string(g_state_level,l_full_path,' dep_appl_id -> ' || to_char(dep_appl_id));
1009: -- ========================= FND LOG ===========================
1010:
1011: -- Get GL Installation Status
1005: end if;
1006:
1007: -- ========================= FND LOG ===========================
1008: psa_utils.debug_other_string(g_state_level,l_full_path,' dep_appl_id -> ' || to_char(dep_appl_id));
1009: -- ========================= FND LOG ===========================
1010:
1011: -- Get GL Installation Status
1012: -- The installation info is now implemented as a profile option (INDUSTRY).
1013:
1034: l_industry := l_temp_industry;
1035:
1036: end if;
1037:
1038: -- ========================= FND LOG ===========================
1039: psa_utils.debug_other_string(g_state_level,l_full_path,' l_industry -> ' || l_industry);
1040: -- ========================= FND LOG ===========================
1041:
1042: -- If installed check count of Set of Books with Budgetary Control flag
1036: end if;
1037:
1038: -- ========================= FND LOG ===========================
1039: psa_utils.debug_other_string(g_state_level,l_full_path,' l_industry -> ' || l_industry);
1040: -- ========================= FND LOG ===========================
1041:
1042: -- If installed check count of Set of Books with Budgetary Control flag
1043: -- enabled
1044:
1055: close cnt_lgr;
1056:
1057: end if;
1058:
1059: -- ========================= FND LOG ===========================
1060: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
1061: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1062: -- ========================= FND LOG ===========================
1063:
1058:
1059: -- ========================= FND LOG ===========================
1060: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
1061: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1062: -- ========================= FND LOG ===========================
1063:
1064: return(TRUE);
1065:
1066:
1074:
1075: message_token('MSG', 'glfcin() exception:' || SQLERRM);
1076: add_message('FND', 'FLEX-SSV EXCEPTION');
1077:
1078: -- ========================= FND LOG ===========================
1079: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCIN - ' || SQLERRM);
1080: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1081: -- ========================= FND LOG ===========================
1082:
1077:
1078: -- ========================= FND LOG ===========================
1079: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCIN - ' || SQLERRM);
1080: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1081: -- ========================= FND LOG ===========================
1082:
1083: return(FALSE);
1084:
1085: END glfcin;
1133: and application_id = appl_id
1134: and id_flex_code = flex_code;
1135:
1136:
1137: -- ========================= FND LOG ===========================
1138: l_full_path VARCHAR2(100) := g_path || 'glfisi.';
1139: -- ========================= FND LOG ===========================
1140:
1141: BEGIN
1135:
1136:
1137: -- ========================= FND LOG ===========================
1138: l_full_path VARCHAR2(100) := g_path || 'glfisi.';
1139: -- ========================= FND LOG ===========================
1140:
1141: BEGIN
1142:
1143: -- ========================= FND LOG ===========================
1139: -- ========================= FND LOG ===========================
1140:
1141: BEGIN
1142:
1143: -- ========================= FND LOG ===========================
1144: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfisi ');
1145: -- ========================= FND LOG ===========================
1146:
1147: e_val_set := val_set;
1141: BEGIN
1142:
1143: -- ========================= FND LOG ===========================
1144: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfisi ');
1145: -- ========================= FND LOG ===========================
1146:
1147: e_val_set := val_set;
1148: -- Assign Value Set IDs for the Segments
1149:
1146:
1147: e_val_set := val_set;
1148: -- Assign Value Set IDs for the Segments
1149:
1150: -- ========================= FND LOG ===========================
1151: psa_utils.debug_other_string(g_state_level,l_full_path,' populating temp table val_set ');
1152: psa_utils.debug_other_string(g_state_level,l_full_path,' coaid -> '|| coaid );
1153: -- ========================= FND LOG ===========================
1154:
1149:
1150: -- ========================= FND LOG ===========================
1151: psa_utils.debug_other_string(g_state_level,l_full_path,' populating temp table val_set ');
1152: psa_utils.debug_other_string(g_state_level,l_full_path,' coaid -> '|| coaid );
1153: -- ========================= FND LOG ===========================
1154:
1155: for c_valset in valset(coaid, 101, 'GL#') loop
1156:
1157: col_name := c_valset.application_column_name;
1155: for c_valset in valset(coaid, 101, 'GL#') loop
1156:
1157: col_name := c_valset.application_column_name;
1158:
1159: -- ========================= FND LOG ===========================
1160: psa_utils.debug_other_string(g_state_level,l_full_path,' col_name -> ' || col_name);
1161: -- ========================= FND LOG ===========================
1162:
1163: vset_id := c_valset.value_set_id;
1157: col_name := c_valset.application_column_name;
1158:
1159: -- ========================= FND LOG ===========================
1160: psa_utils.debug_other_string(g_state_level,l_full_path,' col_name -> ' || col_name);
1161: -- ========================= FND LOG ===========================
1162:
1163: vset_id := c_valset.value_set_id;
1164:
1165: -- ========================= FND LOG ===========================
1161: -- ========================= FND LOG ===========================
1162:
1163: vset_id := c_valset.value_set_id;
1164:
1165: -- ========================= FND LOG ===========================
1166: psa_utils.debug_other_string(g_state_level,l_full_path,' vset_id -> ' || vset_id);
1167: -- ========================= FND LOG ===========================
1168:
1169: i := to_number(substr(col_name, 8, length(col_name) - 7));
1163: vset_id := c_valset.value_set_id;
1164:
1165: -- ========================= FND LOG ===========================
1166: psa_utils.debug_other_string(g_state_level,l_full_path,' vset_id -> ' || vset_id);
1167: -- ========================= FND LOG ===========================
1168:
1169: i := to_number(substr(col_name, 8, length(col_name) - 7));
1170:
1171: -- ========================= FND LOG ===========================
1167: -- ========================= FND LOG ===========================
1168:
1169: i := to_number(substr(col_name, 8, length(col_name) - 7));
1170:
1171: -- ========================= FND LOG ===========================
1172: psa_utils.debug_other_string(g_state_level,l_full_path,' i -> ' || i);
1173: -- ========================= FND LOG ===========================
1174:
1175: val_set(i) := vset_id;
1169: i := to_number(substr(col_name, 8, length(col_name) - 7));
1170:
1171: -- ========================= FND LOG ===========================
1172: psa_utils.debug_other_string(g_state_level,l_full_path,' i -> ' || i);
1173: -- ========================= FND LOG ===========================
1174:
1175: val_set(i) := vset_id;
1176:
1177: -- ========================= FND LOG ===========================
1173: -- ========================= FND LOG ===========================
1174:
1175: val_set(i) := vset_id;
1176:
1177: -- ========================= FND LOG ===========================
1178: psa_utils.debug_other_string(g_state_level,l_full_path,' val_set(' || i || ') ->' || vset_id);
1179: -- ========================= FND LOG ===========================
1180:
1181: num_active_segs := num_active_segs + 1;
1175: val_set(i) := vset_id;
1176:
1177: -- ========================= FND LOG ===========================
1178: psa_utils.debug_other_string(g_state_level,l_full_path,' val_set(' || i || ') ->' || vset_id);
1179: -- ========================= FND LOG ===========================
1180:
1181: num_active_segs := num_active_segs + 1;
1182:
1183: -- ========================= FND LOG ===========================
1179: -- ========================= FND LOG ===========================
1180:
1181: num_active_segs := num_active_segs + 1;
1182:
1183: -- ========================= FND LOG ===========================
1184: psa_utils.debug_other_string(g_state_level,l_full_path,' num_active_segs -> ' || num_active_segs);
1185: -- ========================= FND LOG ===========================
1186:
1187: end loop;
1181: num_active_segs := num_active_segs + 1;
1182:
1183: -- ========================= FND LOG ===========================
1184: psa_utils.debug_other_string(g_state_level,l_full_path,' num_active_segs -> ' || num_active_segs);
1185: -- ========================= FND LOG ===========================
1186:
1187: end loop;
1188:
1189:
1186:
1187: end loop;
1188:
1189:
1190: -- ========================= FND LOG ===========================
1191: psa_utils.debug_other_string(g_state_level,l_full_path,' opening accseg ');
1192: -- ========================= FND LOG ===========================
1193:
1194: -- Get Cardinal Order or Index Number of the Account Segment
1188:
1189:
1190: -- ========================= FND LOG ===========================
1191: psa_utils.debug_other_string(g_state_level,l_full_path,' opening accseg ');
1192: -- ========================= FND LOG ===========================
1193:
1194: -- Get Cardinal Order or Index Number of the Account Segment
1195: open accseg(coaid, 101, 'GL#');
1196:
1196:
1197: fetch accseg
1198: into col_name;
1199:
1200: -- ========================= FND LOG ===========================
1201: psa_utils.debug_other_string(g_state_level,l_full_path,' col_name -> ' || col_name);
1202: -- ========================= FND LOG ===========================
1203:
1204: -- No Accounting Segment defined
1198: into col_name;
1199:
1200: -- ========================= FND LOG ===========================
1201: psa_utils.debug_other_string(g_state_level,l_full_path,' col_name -> ' || col_name);
1202: -- ========================= FND LOG ===========================
1203:
1204: -- No Accounting Segment defined
1205:
1206: if accseg%NOTFOUND then
1205:
1206: if accseg%NOTFOUND then
1207: message_token('ROUTINE', 'FDFGLI');
1208: add_message('FND', 'FLEXGL-NO ACCT SEG');
1209: -- ========================= FND LOG ===========================
1210: psa_utils.debug_other_string(g_state_level,l_full_path,' No Accounting Segment defined');
1211: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1212: -- ========================= FND LOG ===========================
1213: goto return_invalid;
1208: add_message('FND', 'FLEXGL-NO ACCT SEG');
1209: -- ========================= FND LOG ===========================
1210: psa_utils.debug_other_string(g_state_level,l_full_path,' No Accounting Segment defined');
1211: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1212: -- ========================= FND LOG ===========================
1213: goto return_invalid;
1214: end if;
1215:
1216: close accseg;
1218: i := to_number(substr(col_name, 8, length(col_name) - 7));
1219:
1220: acct_seg_index := i;
1221:
1222: -- ========================= FND LOG ===========================
1223: psa_utils.debug_other_string(g_state_level,l_full_path,' acct_seg_index -> ' || acct_seg_index);
1224: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1225: -- ========================= FND LOG ===========================
1226:
1221:
1222: -- ========================= FND LOG ===========================
1223: psa_utils.debug_other_string(g_state_level,l_full_path,' acct_seg_index -> ' || acct_seg_index);
1224: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1225: -- ========================= FND LOG ===========================
1226:
1227: return(TRUE);
1228:
1229: <
1227: return(TRUE);
1228:
1229: <
1230:
1231: -- ========================= FND LOG ===========================
1232: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
1233: -- ========================= FND LOG ===========================
1234:
1235: if accseg%ISOPEN then
1229: <
1230:
1231: -- ========================= FND LOG ===========================
1232: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
1233: -- ========================= FND LOG ===========================
1234:
1235: if accseg%ISOPEN then
1236: close accseg;
1237: end if;
1235: if accseg%ISOPEN then
1236: close accseg;
1237: end if;
1238:
1239: -- ========================= FND LOG ===========================
1240: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1241: -- ========================= FND LOG ===========================
1242:
1243: return(FALSE);
1237: end if;
1238:
1239: -- ========================= FND LOG ===========================
1240: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1241: -- ========================= FND LOG ===========================
1242:
1243: return(FALSE);
1244:
1245:
1253:
1254: message_token('MSG', 'glfisi() exception:' || SQLERRM);
1255: add_message('FND', 'FLEX-SSV EXCEPTION');
1256:
1257: -- ========================= FND LOG ===========================
1258: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFISI -> ' || SQLERRM);
1259: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1260: -- ========================= FND LOG ===========================
1261:
1256:
1257: -- ========================= FND LOG ===========================
1258: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFISI -> ' || SQLERRM);
1259: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1260: -- ========================= FND LOG ===========================
1261:
1262: return(FALSE);
1263:
1264: END glfisi;
1291:
1292: i BINARY_INTEGER;
1293:
1294:
1295: -- ========================= FND LOG ===========================
1296: l_full_path VARCHAR2(100) := g_path || 'glfiba.';
1297: -- ========================= FND LOG ===========================
1298:
1299: BEGIN
1293:
1294:
1295: -- ========================= FND LOG ===========================
1296: l_full_path VARCHAR2(100) := g_path || 'glfiba.';
1297: -- ========================= FND LOG ===========================
1298:
1299: BEGIN
1300:
1301: -- ========================= FND LOG ===========================
1297: -- ========================= FND LOG ===========================
1298:
1299: BEGIN
1300:
1301: -- ========================= FND LOG ===========================
1302: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfiba. ');
1303: -- ========================= FND LOG ===========================
1304: -- Bug 5501177/Bug 5556665 -dynamic sql changed to static sql from performance
1305: -- improvement
1299: BEGIN
1300:
1301: -- ========================= FND LOG ===========================
1302: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfiba. ');
1303: -- ========================= FND LOG ===========================
1304: -- Bug 5501177/Bug 5556665 -dynamic sql changed to static sql from performance
1305: -- improvement
1306: insert into gl_budget_assignments (
1307: budget_entity_id,
1396: and bar.currency_code = lgr.currency_code
1397: and bar.ledger_id = lgr.ledger_id
1398: and lgr.enable_budgetary_control_flag = 'Y'
1399: and lgr.chart_of_accounts_id = coaid ;
1400: -- ========================= FND LOG ===========================
1401: psa_utils.debug_other_string(g_state_level,l_full_path,' BIND PARAMETERS ');
1402: psa_utils.debug_other_string(g_state_level,l_full_path,
1403: ' seg_val(' || acct_seg_index || ') -> ' || seg_val(acct_seg_index));
1404: psa_utils.debug_other_string(g_state_level,l_full_path,' ccid -> ' || ccid);
1408:
1409: psa_utils.debug_other_string(g_state_level,l_full_path,' num_rows -> ' || num_rows);
1410:
1411: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
1412: -- ========================= FND LOG ===========================
1413:
1414: return(TRUE);
1415:
1416:
1424: message_token('MSG', SQLERRM);
1425: message_token('SQLSTR', substr(sql_insba, 1, 1000));
1426: add_message('FND', 'FLEX-DSQL EXCEPTION');
1427:
1428: -- ========================= FND LOG ===========================
1429: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFIBA -> ' || SQLERRM);
1430: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1431: -- ========================= FND LOG ===========================
1432:
1427:
1428: -- ========================= FND LOG ===========================
1429: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFIBA -> ' || SQLERRM);
1430: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1431: -- ========================= FND LOG ===========================
1432:
1433: return(FALSE);
1434:
1435: END glfiba;
1510: segment29_type gl_summary_templates.segment29_type%TYPE;
1511: segment30_type gl_summary_templates.segment30_type%TYPE;
1512:
1513:
1514: -- ========================= FND LOG ===========================
1515: l_full_path VARCHAR2(100) := g_path || 'glfcst.';
1516: -- ========================= FND LOG ===========================
1517:
1518: BEGIN
1512:
1513:
1514: -- ========================= FND LOG ===========================
1515: l_full_path VARCHAR2(100) := g_path || 'glfcst.';
1516: -- ========================= FND LOG ===========================
1517:
1518: BEGIN
1519:
1520: -- ========================= FND LOG ===========================
1516: -- ========================= FND LOG ===========================
1517:
1518: BEGIN
1519:
1520: -- ========================= FND LOG ===========================
1521: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcst ');
1522: -- ========================= FND LOG ===========================
1523:
1524: sql_stmp := 'select ' ||
1518: BEGIN
1519:
1520: -- ========================= FND LOG ===========================
1521: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcst ');
1522: -- ========================= FND LOG ===========================
1523:
1524: sql_stmp := 'select ' ||
1525: 'smt.template_name, ' ||
1526: 'smt.template_id, ' ||
1581: 'fv.flex_value_set_id = fh.flex_value_set_id and ' ||
1582: 'fv.structured_hierarchy_level = fh.hierarchy_id)) ';
1583: -- Still need to get the val_set_id somehow
1584: -- take this out later
1585: -- ========================= FND LOG ===========================
1586: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> here' || i);
1587: -- ========================= FND LOG ===========================
1588: end loop;
1589:
1583: -- Still need to get the val_set_id somehow
1584: -- take this out later
1585: -- ========================= FND LOG ===========================
1586: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> here' || i);
1587: -- ========================= FND LOG ===========================
1588: end loop;
1589:
1590: sql_stmp := sql_stmp || ' ' || 'order by smt.template_id, smt.ledger_id';
1591:
1590: sql_stmp := sql_stmp || ' ' || 'order by smt.template_id, smt.ledger_id';
1591:
1592:
1593:
1594: -- ========================= FND LOG ===========================
1595: -- psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> ' || sql_stmp);
1596: sql_stmp_printed := 1;
1597: sql_stmp_length := length(sql_stmp);
1598: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp length -> ' || sql_stmp_length);
1604: --psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> ' || SUBSTR(sql_stmp,3001,6000));
1605: --psa_utils.debug_other_string(g_state_level,l_full_path,' here again2');
1606: end loop;
1607:
1608: -- ========================= FND LOG ===========================
1609:
1610: cur_stmp := dbms_sql.open_cursor;
1611: dbms_sql.parse(cur_stmp, sql_stmp, dbms_sql.v7);
1612:
1609:
1610: cur_stmp := dbms_sql.open_cursor;
1611: dbms_sql.parse(cur_stmp, sql_stmp, dbms_sql.v7);
1612:
1613: -- ========================= FND LOG ===========================
1614: -- psa_utils.debug_other_string(g_state_level,l_full_path,' BIND PARAMETERS');
1615: -- psa_utils.debug_other_string(g_state_level,l_full_path,' coaid -> ' || coaid);
1616: -- psa_utils.debug_other_string(g_state_level,l_full_path,' acct_category -> ' || acct_category);
1617:
1618: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp BIND PARAMETERS');
1619: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp coaid -> ' || coaid);
1620: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp acct_category -> ' || acct_category);
1621: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp ccid -> ' || ccid);
1622: -- ========================= FND LOG ===========================
1623:
1624: dbms_sql.bind_variable(cur_stmp, ':coaid', coaid);
1625: dbms_sql.bind_variable(cur_stmp, ':catg', acct_category);
1626: dbms_sql.bind_variable(cur_stmp, ':ccid', ccid);
1635: end loop;
1636:
1637: ignore := dbms_sql.execute(cur_stmp);
1638: sql_stmp_count := 0;
1639: -- ========================= FND LOG ===========================
1640: psa_utils.debug_other_string(g_state_level,l_full_path,' ignore ->' || ignore);
1641: -- ========================= FND LOG ===========================
1642:
1643: loop
1637: ignore := dbms_sql.execute(cur_stmp);
1638: sql_stmp_count := 0;
1639: -- ========================= FND LOG ===========================
1640: psa_utils.debug_other_string(g_state_level,l_full_path,' ignore ->' || ignore);
1641: -- ========================= FND LOG ===========================
1642:
1643: loop
1644:
1645: -- ========================= FND LOG ===========================
1641: -- ========================= FND LOG ===========================
1642:
1643: loop
1644:
1645: -- ========================= FND LOG ===========================
1646: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
1647: -- ========================= FND LOG ===========================
1648: test_value := dbms_sql.fetch_rows(cur_stmp);
1649: -- ========================= FND LOG ===========================
1643: loop
1644:
1645: -- ========================= FND LOG ===========================
1646: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
1647: -- ========================= FND LOG ===========================
1648: test_value := dbms_sql.fetch_rows(cur_stmp);
1649: -- ========================= FND LOG ===========================
1650: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp test_value -> ' || test_value);
1651: -- ========================= FND LOG ===========================
1645: -- ========================= FND LOG ===========================
1646: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop');
1647: -- ========================= FND LOG ===========================
1648: test_value := dbms_sql.fetch_rows(cur_stmp);
1649: -- ========================= FND LOG ===========================
1650: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp test_value -> ' || test_value);
1651: -- ========================= FND LOG ===========================
1652: -- if dbms_sql.fetch_rows(cur_stmp) > 0 then
1653: if test_value > 0 then
1647: -- ========================= FND LOG ===========================
1648: test_value := dbms_sql.fetch_rows(cur_stmp);
1649: -- ========================= FND LOG ===========================
1650: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp test_value -> ' || test_value);
1651: -- ========================= FND LOG ===========================
1652: -- if dbms_sql.fetch_rows(cur_stmp) > 0 then
1653: if test_value > 0 then
1654: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> here1');
1655: sql_stmp_count := sql_stmp_count + 1;
1653: if test_value > 0 then
1654: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp -> here1');
1655: sql_stmp_count := sql_stmp_count + 1;
1656:
1657: -- ========================= FND LOG ===========================
1658: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp dyn_grp_id -> ' || dyn_grp_id);
1659: -- ========================= FND LOG ===========================
1660:
1661: -- Get a new Dynamic Group ID if the number of templates > 0
1655: sql_stmp_count := sql_stmp_count + 1;
1656:
1657: -- ========================= FND LOG ===========================
1658: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp dyn_grp_id -> ' || dyn_grp_id);
1659: -- ========================= FND LOG ===========================
1660:
1661: -- Get a new Dynamic Group ID if the number of templates > 0
1662:
1663: if dyn_grp_id = -1 then
1660:
1661: -- Get a new Dynamic Group ID if the number of templates > 0
1662:
1663: if dyn_grp_id = -1 then
1664: -- ========================= FND LOG ===========================
1665: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfgdg');
1666: -- ========================= FND LOG ===========================
1667:
1668: if not glfgdg then
1662:
1663: if dyn_grp_id = -1 then
1664: -- ========================= FND LOG ===========================
1665: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfgdg');
1666: -- ========================= FND LOG ===========================
1667:
1668: if not glfgdg then
1669: -- ========================= FND LOG ===========================
1670: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1665: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfgdg');
1666: -- ========================= FND LOG ===========================
1667:
1668: if not glfgdg then
1669: -- ========================= FND LOG ===========================
1670: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1671: -- ========================= FND LOG ===========================
1672: goto return_invalid;
1673: end if;
1667:
1668: if not glfgdg then
1669: -- ========================= FND LOG ===========================
1670: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1671: -- ========================= FND LOG ===========================
1672: goto return_invalid;
1673: end if;
1674: end if;
1675:
1672: goto return_invalid;
1673: end if;
1674: end if;
1675:
1676: -- ========================= FND LOG ===========================
1677: psa_utils.debug_other_string(g_state_level,l_full_path,' Initialize the Summary Template structure');
1678: -- ========================= FND LOG ===========================
1679:
1680: -- Initialize the Summary Template structure
1674: end if;
1675:
1676: -- ========================= FND LOG ===========================
1677: psa_utils.debug_other_string(g_state_level,l_full_path,' Initialize the Summary Template structure');
1678: -- ========================= FND LOG ===========================
1679:
1680: -- Initialize the Summary Template structure
1681:
1682: for i in 1..30 loop
1686: dbms_sql.column_value(cur_stmp, 1, template_name);
1687: dbms_sql.column_value(cur_stmp, 2, template_id);
1688: dbms_sql.column_value(cur_stmp, 3, lgr_id);
1689:
1690: -- ========================= FND LOG ===========================
1691: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp Template name -> ' || template_name);
1692: -- ========================= FND LOG ===========================
1693: for i in 1..30 loop
1694: dbms_sql.column_value(cur_stmp, i + 3, seg_type(i));
1688: dbms_sql.column_value(cur_stmp, 3, lgr_id);
1689:
1690: -- ========================= FND LOG ===========================
1691: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp Template name -> ' || template_name);
1692: -- ========================= FND LOG ===========================
1693: for i in 1..30 loop
1694: dbms_sql.column_value(cur_stmp, i + 3, seg_type(i));
1695: end loop;
1696:
1693: for i in 1..30 loop
1694: dbms_sql.column_value(cur_stmp, i + 3, seg_type(i));
1695: end loop;
1696:
1697: -- ========================= FND LOG ===========================
1698: psa_utils.debug_other_string(g_state_level,l_full_path,
1699: ' Calling glfcrg - Identify Rollup Groups');
1700: -- ========================= FND LOG ===========================
1701:
1696:
1697: -- ========================= FND LOG ===========================
1698: psa_utils.debug_other_string(g_state_level,l_full_path,
1699: ' Calling glfcrg - Identify Rollup Groups');
1700: -- ========================= FND LOG ===========================
1701:
1702: -- Identify Rollup Groups
1703:
1704: if not glfcrg(val_set, seg_type, rgroup, template_name) then
1701:
1702: -- Identify Rollup Groups
1703:
1704: if not glfcrg(val_set, seg_type, rgroup, template_name) then
1705: -- ========================= FND LOG ===========================
1706: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1707: -- ========================= FND LOG ===========================
1708: goto return_invalid;
1709: end if;
1703:
1704: if not glfcrg(val_set, seg_type, rgroup, template_name) then
1705: -- ========================= FND LOG ===========================
1706: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1707: -- ========================= FND LOG ===========================
1708: goto return_invalid;
1709: end if;
1710:
1711: -- ========================= FND LOG ===========================
1707: -- ========================= FND LOG ===========================
1708: goto return_invalid;
1709: end if;
1710:
1711: -- ========================= FND LOG ===========================
1712: psa_utils.debug_other_string(g_state_level,l_full_path,
1713: ' Initializing the rgroup_sorted and rgroup_ind array');
1714: -- ========================= FND LOG ===========================
1715:
1710:
1711: -- ========================= FND LOG ===========================
1712: psa_utils.debug_other_string(g_state_level,l_full_path,
1713: ' Initializing the rgroup_sorted and rgroup_ind array');
1714: -- ========================= FND LOG ===========================
1715:
1716: FOR i IN 1..30 LOOP
1717: rgroup_sorted(i) := null;
1718: rgroup_ind(i) := null;
1719: END LOOP;
1720:
1721: FOR i IN 1..30 LOOP
1722: IF ((rgroup(i) is not null) and (rgroup(i) not in ('D', 'T'))) then
1723: -- ========================= FND LOG ===========================
1724: psa_utils.debug_other_string(g_state_level,l_full_path,
1725: ' rgroup(' || i || ') -> ' || rgroup(i));
1726: psa_utils.debug_other_string(g_state_level,l_full_path,
1727: ' val_set(' || i || ') -> ' || val_set(i));
1724: psa_utils.debug_other_string(g_state_level,l_full_path,
1725: ' rgroup(' || i || ') -> ' || rgroup(i));
1726: psa_utils.debug_other_string(g_state_level,l_full_path,
1727: ' val_set(' || i || ') -> ' || val_set(i));
1728: -- ========================= FND LOG ===========================
1729:
1730: rgroup_ind(i) := i;
1731:
1732: -- ========================= FND LOG ===========================
1728: -- ========================= FND LOG ===========================
1729:
1730: rgroup_ind(i) := i;
1731:
1732: -- ========================= FND LOG ===========================
1733: psa_utils.debug_other_string(g_state_level,l_full_path,
1734: ' rgroup_ind(' || i || ') -> ' || rgroup_ind(i));
1735: -- ========================= FND LOG ===========================
1736: END IF;
1731:
1732: -- ========================= FND LOG ===========================
1733: psa_utils.debug_other_string(g_state_level,l_full_path,
1734: ' rgroup_ind(' || i || ') -> ' || rgroup_ind(i));
1735: -- ========================= FND LOG ===========================
1736: END IF;
1737: END LOOP;
1738: -- ========================= FND LOG ===========================
1739: psa_utils.debug_other_string(g_state_level,l_full_path,
1734: ' rgroup_ind(' || i || ') -> ' || rgroup_ind(i));
1735: -- ========================= FND LOG ===========================
1736: END IF;
1737: END LOOP;
1738: -- ========================= FND LOG ===========================
1739: psa_utils.debug_other_string(g_state_level,l_full_path,
1740: ' Calling glfcpc - Create Parent Accounts');
1741: -- ========================= FND LOG ===========================
1742:
1737: END LOOP;
1738: -- ========================= FND LOG ===========================
1739: psa_utils.debug_other_string(g_state_level,l_full_path,
1740: ' Calling glfcpc - Create Parent Accounts');
1741: -- ========================= FND LOG ===========================
1742:
1743: -- Create Parent Accounts
1744:
1745: if not glfcpc(seg_type, rgroup, rgroup_sorted, rgroup_ind,
1743: -- Create Parent Accounts
1744:
1745: if not glfcpc(seg_type, rgroup, rgroup_sorted, rgroup_ind,
1746: val_set, template_id, lgr_id) then
1747: -- ========================= FND LOG ===========================
1748: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1749: -- ========================= FND LOG ===========================
1750: goto return_invalid;
1751: else
1745: if not glfcpc(seg_type, rgroup, rgroup_sorted, rgroup_ind,
1746: val_set, template_id, lgr_id) then
1747: -- ========================= FND LOG ===========================
1748: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1749: -- ========================= FND LOG ===========================
1750: goto return_invalid;
1751: else
1752: -- ========================= FND LOG ===========================
1753: psa_utils.debug_other_string(g_state_level,l_full_path,' Created_parent -> TRUE');
1748: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
1749: -- ========================= FND LOG ===========================
1750: goto return_invalid;
1751: else
1752: -- ========================= FND LOG ===========================
1753: psa_utils.debug_other_string(g_state_level,l_full_path,' Created_parent -> TRUE');
1754: -- ========================= FND LOG ===========================
1755: created_parent := TRUE;
1756: end if;
1750: goto return_invalid;
1751: else
1752: -- ========================= FND LOG ===========================
1753: psa_utils.debug_other_string(g_state_level,l_full_path,' Created_parent -> TRUE');
1754: -- ========================= FND LOG ===========================
1755: created_parent := TRUE;
1756: end if;
1757:
1758: else
1755: created_parent := TRUE;
1756: end if;
1757:
1758: else
1759: -- ========================= FND LOG ===========================
1760: psa_utils.debug_other_string(g_state_level,l_full_path,' exit ');
1761: -- ========================= FND LOG ===========================
1762: exit;
1763: end if;
1757:
1758: else
1759: -- ========================= FND LOG ===========================
1760: psa_utils.debug_other_string(g_state_level,l_full_path,' exit ');
1761: -- ========================= FND LOG ===========================
1762: exit;
1763: end if;
1764:
1765: -- ========================= FND LOG ===========================
1761: -- ========================= FND LOG ===========================
1762: exit;
1763: end if;
1764:
1765: -- ========================= FND LOG ===========================
1766: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop ');
1767: -- ========================= FND LOG ===========================
1768:
1769: end loop;
1763: end if;
1764:
1765: -- ========================= FND LOG ===========================
1766: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop ');
1767: -- ========================= FND LOG ===========================
1768:
1769: end loop;
1770:
1771: --num_templates := dbms_sql.last_row_count;
1770:
1771: --num_templates := dbms_sql.last_row_count;
1772: num_templates := sql_stmp_count;
1773:
1774: -- ========================= FND LOG ===========================
1775: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp: num_templates -> '|| num_templates);
1776: -- ========================= FND LOG ===========================
1777:
1778: dbms_sql.close_cursor(cur_stmp);
1772: num_templates := sql_stmp_count;
1773:
1774: -- ========================= FND LOG ===========================
1775: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_stmp: num_templates -> '|| num_templates);
1776: -- ========================= FND LOG ===========================
1777:
1778: dbms_sql.close_cursor(cur_stmp);
1779:
1780: -- ========================= FND LOG ===========================
1776: -- ========================= FND LOG ===========================
1777:
1778: dbms_sql.close_cursor(cur_stmp);
1779:
1780: -- ========================= FND LOG ===========================
1781: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1782: -- ========================= FND LOG ===========================
1783:
1784: return(TRUE);
1778: dbms_sql.close_cursor(cur_stmp);
1779:
1780: -- ========================= FND LOG ===========================
1781: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1782: -- ========================= FND LOG ===========================
1783:
1784: return(TRUE);
1785:
1786: <
1783:
1784: return(TRUE);
1785:
1786: <
1787: -- ========================= FND LOG ===========================
1788: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_valid');
1789: -- ========================= FND LOG ===========================
1790:
1791: if dbms_sql.is_open(cur_stmp) then
1785:
1786: <
1787: -- ========================= FND LOG ===========================
1788: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_valid');
1789: -- ========================= FND LOG ===========================
1790:
1791: if dbms_sql.is_open(cur_stmp) then
1792: dbms_sql.close_cursor(cur_stmp);
1793: end if;
1791: if dbms_sql.is_open(cur_stmp) then
1792: dbms_sql.close_cursor(cur_stmp);
1793: end if;
1794:
1795: -- ========================= FND LOG ===========================
1796: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1797: -- ========================= FND LOG ===========================
1798:
1799: return(FALSE);
1793: end if;
1794:
1795: -- ========================= FND LOG ===========================
1796: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1797: -- ========================= FND LOG ===========================
1798:
1799: return(FALSE);
1800:
1801:
1812: message_token('MSG', SQLERRM);
1813: message_token('SQLSTR', substr(sql_stmp, 1, 1000));
1814: add_message('FND', 'FLEX-DSQL EXCEPTION');
1815:
1816: -- ========================= FND LOG ===========================
1817: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCST -' || SQLERRM);
1818: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE ');
1819: -- ========================= FND LOG ===========================
1820:
1815:
1816: -- ========================= FND LOG ===========================
1817: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCST -' || SQLERRM);
1818: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE ');
1819: -- ========================= FND LOG ===========================
1820:
1821: return(FALSE);
1822:
1823: END glfcst;
1839: cursor dyngrp is
1840: select gl_dynamic_summ_combinations_s.NEXTVAL
1841: from sys.dual;
1842:
1843: -- ========================= FND LOG ===========================
1844: l_full_path VARCHAR2(100) := g_path || 'glfgdg.';
1845: -- ========================= FND LOG ===========================
1846:
1847: BEGIN
1841: from sys.dual;
1842:
1843: -- ========================= FND LOG ===========================
1844: l_full_path VARCHAR2(100) := g_path || 'glfgdg.';
1845: -- ========================= FND LOG ===========================
1846:
1847: BEGIN
1848:
1849: -- ========================= FND LOG ===========================
1845: -- ========================= FND LOG ===========================
1846:
1847: BEGIN
1848:
1849: -- ========================= FND LOG ===========================
1850: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfgdg ');
1851: -- ========================= FND LOG ===========================
1852:
1853: open dyngrp;
1847: BEGIN
1848:
1849: -- ========================= FND LOG ===========================
1850: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfgdg ');
1851: -- ========================= FND LOG ===========================
1852:
1853: open dyngrp;
1854:
1855: fetch dyngrp
1854:
1855: fetch dyngrp
1856: into dyn_grp_id;
1857:
1858: -- ========================= FND LOG ===========================
1859: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
1860: -- ========================= FND LOG ===========================
1861:
1862: if dyngrp%NOTFOUND then
1856: into dyn_grp_id;
1857:
1858: -- ========================= FND LOG ===========================
1859: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
1860: -- ========================= FND LOG ===========================
1861:
1862: if dyngrp%NOTFOUND then
1863: add_message('FND', 'FLEX-NO ROWS IN DUAL');
1864: -- ========================= FND LOG ===========================
1860: -- ========================= FND LOG ===========================
1861:
1862: if dyngrp%NOTFOUND then
1863: add_message('FND', 'FLEX-NO ROWS IN DUAL');
1864: -- ========================= FND LOG ===========================
1865: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid ');
1866: -- ========================= FND LOG ===========================
1867: goto return_invalid;
1868: end if;
1862: if dyngrp%NOTFOUND then
1863: add_message('FND', 'FLEX-NO ROWS IN DUAL');
1864: -- ========================= FND LOG ===========================
1865: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid ');
1866: -- ========================= FND LOG ===========================
1867: goto return_invalid;
1868: end if;
1869:
1870: close dyngrp;
1868: end if;
1869:
1870: close dyngrp;
1871:
1872: -- ========================= FND LOG ===========================
1873: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1874: -- ========================= FND LOG ===========================
1875:
1876: return(TRUE);
1870: close dyngrp;
1871:
1872: -- ========================= FND LOG ===========================
1873: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
1874: -- ========================= FND LOG ===========================
1875:
1876: return(TRUE);
1877:
1878: <
1875:
1876: return(TRUE);
1877:
1878: <
1879: -- ========================= FND LOG ===========================
1880: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
1881: -- ========================= FND LOG ===========================
1882:
1883: if dyngrp%ISOPEN then
1877:
1878: <
1879: -- ========================= FND LOG ===========================
1880: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
1881: -- ========================= FND LOG ===========================
1882:
1883: if dyngrp%ISOPEN then
1884: close dyngrp;
1885: end if;
1883: if dyngrp%ISOPEN then
1884: close dyngrp;
1885: end if;
1886:
1887: -- ========================= FND LOG ===========================
1888: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1889: -- ========================= FND LOG ===========================
1890:
1891: return(FALSE);
1885: end if;
1886:
1887: -- ========================= FND LOG ===========================
1888: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1889: -- ========================= FND LOG ===========================
1890:
1891: return(FALSE);
1892:
1893:
1901:
1902: message_token('MSG', 'glfgdg() exception:' || SQLERRM);
1903: add_message('FND', 'FLEX-SSV EXCEPTION');
1904:
1905: -- ========================= FND LOG ===========================
1906: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN PTHERS GLFGDG - ' || SQLERRM);
1907: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1908: -- ========================= FND LOG ===========================
1909:
1904:
1905: -- ========================= FND LOG ===========================
1906: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN PTHERS GLFGDG - ' || SQLERRM);
1907: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
1908: -- ========================= FND LOG ===========================
1909:
1910: return(FALSE);
1911:
1912: END glfgdg;
1948: from fnd_flex_hierarchies_vl
1949: where flex_value_set_id = vsid
1950: and hierarchy_name = hname;
1951:
1952: -- ========================= FND LOG ===========================
1953: l_full_path VARCHAR2(100) := g_path || 'glfcrg.';
1954: -- ========================= FND LOG ===========================
1955:
1956: BEGIN
1950: and hierarchy_name = hname;
1951:
1952: -- ========================= FND LOG ===========================
1953: l_full_path VARCHAR2(100) := g_path || 'glfcrg.';
1954: -- ========================= FND LOG ===========================
1955:
1956: BEGIN
1957:
1958: -- ========================= FND LOG ===========================
1954: -- ========================= FND LOG ===========================
1955:
1956: BEGIN
1957:
1958: -- ========================= FND LOG ===========================
1959: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcrg ');
1960: -- ========================= FND LOG ===========================
1961:
1962: -- Initialize Rollup Groups everytime this function is invoked
1956: BEGIN
1957:
1958: -- ========================= FND LOG ===========================
1959: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcrg ');
1960: -- ========================= FND LOG ===========================
1961:
1962: -- Initialize Rollup Groups everytime this function is invoked
1963: e_rgroup := rgroup;
1964:
1967: end loop;
1968:
1969: for i in 1..30 loop
1970:
1971: -- ========================= FND LOG ===========================
1972: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop ');
1973: psa_utils.debug_other_string(g_state_level,l_full_path,
1974: ' seg_type(' || i || ') -> ' || seg_type(i));
1975: -- ========================= FND LOG ===========================
1971: -- ========================= FND LOG ===========================
1972: psa_utils.debug_other_string(g_state_level,l_full_path,' start loop ');
1973: psa_utils.debug_other_string(g_state_level,l_full_path,
1974: ' seg_type(' || i || ') -> ' || seg_type(i));
1975: -- ========================= FND LOG ===========================
1976:
1977: if seg_type(i) is not null then
1978:
1979: if seg_type(i) in ('D', 'T') then
1977: if seg_type(i) is not null then
1978:
1979: if seg_type(i) in ('D', 'T') then
1980: rgroup(i) := seg_type(i);
1981: -- ========================= FND LOG ===========================
1982: psa_utils.debug_other_string(g_state_level,l_full_path,
1983: ' rgroup(' || i || ') -> ' || rgroup(i));
1984: -- ========================= FND LOG ===========================
1985: else
1980: rgroup(i) := seg_type(i);
1981: -- ========================= FND LOG ===========================
1982: psa_utils.debug_other_string(g_state_level,l_full_path,
1983: ' rgroup(' || i || ') -> ' || rgroup(i));
1984: -- ========================= FND LOG ===========================
1985: else
1986:
1987: begin
1988:
1985: else
1986:
1987: begin
1988:
1989: -- ========================= FND LOG ===========================
1990: psa_utils.debug_other_string(g_state_level,l_full_path,
1991: ' val_set(' || i || ') -> ' || val_set(i));
1992: psa_utils.debug_other_string(g_state_level,l_full_path,
1993: ' seg_type(' || i || ') -> ' || seg_type(i));
1990: psa_utils.debug_other_string(g_state_level,l_full_path,
1991: ' val_set(' || i || ') -> ' || val_set(i));
1992: psa_utils.debug_other_string(g_state_level,l_full_path,
1993: ' seg_type(' || i || ') -> ' || seg_type(i));
1994: -- ========================= FND LOG ===========================
1995:
1996: open flexhid(val_set(i), seg_type(i));
1997:
1998: fetch flexhid
1997:
1998: fetch flexhid
1999: into rgroup(i);
2000:
2001: -- ========================= FND LOG ===========================
2002: psa_utils.debug_other_string(g_state_level,l_full_path,
2003: ' rgroup(' || i || ') -> ' || rgroup(i));
2004: -- ========================= FND LOG ===========================
2005:
2000:
2001: -- ========================= FND LOG ===========================
2002: psa_utils.debug_other_string(g_state_level,l_full_path,
2003: ' rgroup(' || i || ') -> ' || rgroup(i));
2004: -- ========================= FND LOG ===========================
2005:
2006: if flexhid%NOTFOUND then
2007:
2008: -- Cannot find Hierarchy ID for this Rollup Group
2009:
2010: message_token('HNAME', seg_type(i));
2011: message_token('TNAME', template_name);
2012: add_message('FND', 'FLEXGL-CANNOT FIND HCHY ID');
2013: -- ========================= FND LOG ===========================
2014: psa_utils.debug_other_string(g_state_level,l_full_path,
2015: ' Cannot find Hierarchy ID for this Rollup Group ');
2016: psa_utils.debug_other_string(g_state_level,l_full_path,
2017: ' goto return_invalid ');
2014: psa_utils.debug_other_string(g_state_level,l_full_path,
2015: ' Cannot find Hierarchy ID for this Rollup Group ');
2016: psa_utils.debug_other_string(g_state_level,l_full_path,
2017: ' goto return_invalid ');
2018: -- ========================= FND LOG ===========================
2019: goto return_invalid;
2020:
2021: end if;
2022:
2026: end if;
2027:
2028: end if;
2029:
2030: -- ========================= FND LOG ===========================
2031: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop ');
2032: -- ========================= FND LOG ===========================
2033:
2034: end loop;
2028: end if;
2029:
2030: -- ========================= FND LOG ===========================
2031: psa_utils.debug_other_string(g_state_level,l_full_path,' end loop ');
2032: -- ========================= FND LOG ===========================
2033:
2034: end loop;
2035:
2036: -- ========================= FND LOG ===========================
2032: -- ========================= FND LOG ===========================
2033:
2034: end loop;
2035:
2036: -- ========================= FND LOG ===========================
2037: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
2038: -- ========================= FND LOG ===========================
2039:
2040: return(TRUE);
2034: end loop;
2035:
2036: -- ========================= FND LOG ===========================
2037: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
2038: -- ========================= FND LOG ===========================
2039:
2040: return(TRUE);
2041:
2042: <
2039:
2040: return(TRUE);
2041:
2042: <
2043: -- ========================= FND LOG ===========================
2044: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
2045: -- ========================= FND LOG ===========================
2046:
2047: if flexhid%ISOPEN then
2041:
2042: <
2043: -- ========================= FND LOG ===========================
2044: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
2045: -- ========================= FND LOG ===========================
2046:
2047: if flexhid%ISOPEN then
2048: close flexhid;
2049: end if;
2047: if flexhid%ISOPEN then
2048: close flexhid;
2049: end if;
2050:
2051: -- ========================= FND LOG ===========================
2052: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2053: -- ========================= FND LOG ===========================
2054:
2055: return(FALSE);
2049: end if;
2050:
2051: -- ========================= FND LOG ===========================
2052: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2053: -- ========================= FND LOG ===========================
2054:
2055: return(FALSE);
2056:
2057:
2066:
2067: message_token('MSG', 'glfcrg() exception:' || SQLERRM);
2068: add_message('FND', 'FLEX-SSV EXCEPTION');
2069:
2070: -- ========================= FND LOG ===========================
2071: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCRG - '|| SQLERRM);
2072: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2073: -- ========================= FND LOG ===========================
2074:
2069:
2070: -- ========================= FND LOG ===========================
2071: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFCRG - '|| SQLERRM);
2072: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2073: -- ========================= FND LOG ===========================
2074:
2075: return(FALSE);
2076:
2077: END glfcrg;
2141: Type GDSC_Table IS TABLE OF GL_DYNAMIC_SUMM_COMBINATIONS%ROWTYPE;
2142: GDSC_Type GDSC_Table := GDSC_Table();
2143: l_dup_rows NUMBER; -- Bug 5265341
2144:
2145: -- ========================= FND LOG ===========================
2146: l_full_path VARCHAR2(100) := g_path || 'glfcpc.';
2147: -- ========================= FND LOG ===========================
2148:
2149: PROCEDURE assign_values (p_row NUMBER, p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2143: l_dup_rows NUMBER; -- Bug 5265341
2144:
2145: -- ========================= FND LOG ===========================
2146: l_full_path VARCHAR2(100) := g_path || 'glfcpc.';
2147: -- ========================= FND LOG ===========================
2148:
2149: PROCEDURE assign_values (p_row NUMBER, p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2150:
2151: -- ========================= FND LOG ===========================
2147: -- ========================= FND LOG ===========================
2148:
2149: PROCEDURE assign_values (p_row NUMBER, p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2150:
2151: -- ========================= FND LOG ===========================
2152: l_full_path VARCHAR2(100) := g_path || 'assign_values.';
2153: -- ========================= FND LOG ===========================
2154:
2155: BEGIN
2149: PROCEDURE assign_values (p_row NUMBER, p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2150:
2151: -- ========================= FND LOG ===========================
2152: l_full_path VARCHAR2(100) := g_path || 'assign_values.';
2153: -- ========================= FND LOG ===========================
2154:
2155: BEGIN
2156:
2157: -- ========================= FND LOG ===========================
2153: -- ========================= FND LOG ===========================
2154:
2155: BEGIN
2156:
2157: -- ========================= FND LOG ===========================
2158: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2159: psa_utils.debug_other_string(g_state_level,l_full_path,' START assign_values ');
2160: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2161: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2163: psa_utils.debug_other_string(g_state_level,l_full_path,' p_row -->' || p_row );
2164: psa_utils.debug_other_string(g_state_level,l_full_path,' p_segment -->' || p_segment);
2165: psa_utils.debug_other_string(g_state_level,l_full_path,' p_val -->' || p_val);
2166: psa_utils.debug_other_string(g_state_level,l_full_path,' p_status_code -->' || p_status_code);
2167: -- ========================= FND LOG ===========================
2168:
2169: IF (p_segment = 1) THEN
2170: GDSC_Type(p_row).SEGMENT1 := p_val;
2171: ELSIF (p_segment = 2) THEN
2227: ELSIF (p_segment = 30) THEN
2228: GDSC_Type(p_row).SEGMENT30 := p_val;
2229: END IF;
2230:
2231: -- ========================= FND LOG ===========================
2232: psa_utils.debug_other_string(g_state_level,l_full_path,
2233: 'GDSC_Type(' || p_row || ').SEGMENT' || p_segment ||' ->' || p_val);
2234: psa_utils.debug_other_string(g_state_level,l_full_path,
2235: 'p_status_code -> ' || p_status_code);
2234: psa_utils.debug_other_string(g_state_level,l_full_path,
2235: 'p_status_code -> ' || p_status_code);
2236: psa_utils.debug_other_string(g_state_level,l_full_path,
2237: 'GDSC_Type(' || p_row || ').LEDGER_ID ->' || GDSC_Type(p_row).LEDGER_ID);
2238: -- ========================= FND LOG ===========================
2239:
2240: IF (p_status_code = 'I') AND (GDSC_Type(p_row).LEDGER_ID IS NULL) THEN
2241: GDSC_Type(p_row).LEDGER_ID := -lgr_id;
2242: GDSC_Type(p_row).TEMPLATE_ID := -template_id;
2239:
2240: IF (p_status_code = 'I') AND (GDSC_Type(p_row).LEDGER_ID IS NULL) THEN
2241: GDSC_Type(p_row).LEDGER_ID := -lgr_id;
2242: GDSC_Type(p_row).TEMPLATE_ID := -template_id;
2243: -- ========================= FND LOG ===========================
2244: psa_utils.debug_other_string(g_state_level,l_full_path,
2245: 'GDSC_Type(' || p_row || ').LEDGER_ID -> -' || lgr_id);
2246: psa_utils.debug_other_string(g_state_level,l_full_path,
2247: 'GDSC_Type(' || p_row || ').TEMPLATE_ID -> -' || template_id);
2244: psa_utils.debug_other_string(g_state_level,l_full_path,
2245: 'GDSC_Type(' || p_row || ').LEDGER_ID -> -' || lgr_id);
2246: psa_utils.debug_other_string(g_state_level,l_full_path,
2247: 'GDSC_Type(' || p_row || ').TEMPLATE_ID -> -' || template_id);
2248: -- ========================= FND LOG ===========================
2249: END IF;
2250:
2251:
2252: -- ========================= FND LOG ===========================
2248: -- ========================= FND LOG ===========================
2249: END IF;
2250:
2251:
2252: -- ========================= FND LOG ===========================
2253: psa_utils.debug_other_string(g_state_level,l_full_path,' END assign_values ');
2254: -- ========================= FND LOG ===========================
2255:
2256: END assign_values;
2250:
2251:
2252: -- ========================= FND LOG ===========================
2253: psa_utils.debug_other_string(g_state_level,l_full_path,' END assign_values ');
2254: -- ========================= FND LOG ===========================
2255:
2256: END assign_values;
2257:
2258: PROCEDURE initialize_values (p_segment number, p_val VARCHAR2, p_status_code VARCHAR2) IS
2256: END assign_values;
2257:
2258: PROCEDURE initialize_values (p_segment number, p_val VARCHAR2, p_status_code VARCHAR2) IS
2259:
2260: -- ========================= FND LOG ===========================
2261: l_full_path VARCHAR2(100) := g_path || 'initialize_values.';
2262: -- ========================= FND LOG ===========================
2263:
2264: BEGIN
2258: PROCEDURE initialize_values (p_segment number, p_val VARCHAR2, p_status_code VARCHAR2) IS
2259:
2260: -- ========================= FND LOG ===========================
2261: l_full_path VARCHAR2(100) := g_path || 'initialize_values.';
2262: -- ========================= FND LOG ===========================
2263:
2264: BEGIN
2265:
2266: -- ========================= FND LOG ===========================
2262: -- ========================= FND LOG ===========================
2263:
2264: BEGIN
2265:
2266: -- ========================= FND LOG ===========================
2267: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2268: psa_utils.debug_other_string(g_state_level,l_full_path,' START initialize_values ');
2269: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2270: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2271: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
2272: psa_utils.debug_other_string(g_state_level,l_full_path,' p_segment -->' || p_segment);
2273: psa_utils.debug_other_string(g_state_level,l_full_path,' p_val -->' || p_val);
2274: psa_utils.debug_other_string(g_state_level,l_full_path,' p_status_code -->' || p_status_code);
2275: -- ========================= FND LOG ===========================
2276:
2277: FOR cntr IN GDSC_Type.FIRST .. GDSC_Type.LAST LOOP
2278: -- ========================= FND LOG ===========================
2279: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling assign_values ');
2274: psa_utils.debug_other_string(g_state_level,l_full_path,' p_status_code -->' || p_status_code);
2275: -- ========================= FND LOG ===========================
2276:
2277: FOR cntr IN GDSC_Type.FIRST .. GDSC_Type.LAST LOOP
2278: -- ========================= FND LOG ===========================
2279: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling assign_values ');
2280: -- ========================= FND LOG ===========================
2281: assign_values(cntr, p_segment, p_val, p_status_code);
2282:
2276:
2277: FOR cntr IN GDSC_Type.FIRST .. GDSC_Type.LAST LOOP
2278: -- ========================= FND LOG ===========================
2279: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling assign_values ');
2280: -- ========================= FND LOG ===========================
2281: assign_values(cntr, p_segment, p_val, p_status_code);
2282:
2283: END LOOP;
2284:
2281: assign_values(cntr, p_segment, p_val, p_status_code);
2282:
2283: END LOOP;
2284:
2285: -- ========================= FND LOG ===========================
2286: psa_utils.debug_other_string(g_state_level,l_full_path,' END initialize_values ');
2287: -- ========================= FND LOG ===========================
2288:
2289: END initialize_values;
2283: END LOOP;
2284:
2285: -- ========================= FND LOG ===========================
2286: psa_utils.debug_other_string(g_state_level,l_full_path,' END initialize_values ');
2287: -- ========================= FND LOG ===========================
2288:
2289: END initialize_values;
2290:
2291: PROCEDURE create_duplicates (p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2290:
2291: PROCEDURE create_duplicates (p_segment NUMBER, p_val VARCHAR2, p_status_code VARCHAR2) IS
2292:
2293: l_curr_cnt NUMBER;
2294: -- ========================= FND LOG ===========================
2295: l_full_path VARCHAR2(100) := g_path || 'create_duplicates.';
2296: -- ========================= FND LOG ===========================
2297:
2298: BEGIN
2292:
2293: l_curr_cnt NUMBER;
2294: -- ========================= FND LOG ===========================
2295: l_full_path VARCHAR2(100) := g_path || 'create_duplicates.';
2296: -- ========================= FND LOG ===========================
2297:
2298: BEGIN
2299:
2300: -- ========================= FND LOG ===========================
2296: -- ========================= FND LOG ===========================
2297:
2298: BEGIN
2299:
2300: -- ========================= FND LOG ===========================
2301: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2302: psa_utils.debug_other_string(g_state_level,l_full_path,' START create_duplicates ');
2303: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2304: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2305: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
2306: psa_utils.debug_other_string(g_state_level,l_full_path,' p_segment -->' || p_segment);
2307: psa_utils.debug_other_string(g_state_level,l_full_path,' p_val -->' || p_val);
2308: psa_utils.debug_other_string(g_state_level,l_full_path,' p_status_code -->' || p_status_code);
2309: -- ========================= FND LOG ===========================
2310:
2311: l_curr_cnt := GDSC_Type.COUNT;
2312:
2313: -- ========================= FND LOG ===========================
2309: -- ========================= FND LOG ===========================
2310:
2311: l_curr_cnt := GDSC_Type.COUNT;
2312:
2313: -- ========================= FND LOG ===========================
2314: psa_utils.debug_other_string(g_state_level,l_full_path,' l_curr_cnt -->' || l_curr_cnt);
2315: psa_utils.debug_other_string(g_state_level,l_full_path,' l_dup_rows -->' || l_dup_rows); -- Bug 5265341
2316: -- ========================= FND LOG ===========================
2317:
2312:
2313: -- ========================= FND LOG ===========================
2314: psa_utils.debug_other_string(g_state_level,l_full_path,' l_curr_cnt -->' || l_curr_cnt);
2315: psa_utils.debug_other_string(g_state_level,l_full_path,' l_dup_rows -->' || l_dup_rows); -- Bug 5265341
2316: -- ========================= FND LOG ===========================
2317:
2318: GDSC_Type.Extend(l_dup_rows); -- Bug 5265341
2319:
2320: -- ========================= FND LOG ===========================
2316: -- ========================= FND LOG ===========================
2317:
2318: GDSC_Type.Extend(l_dup_rows); -- Bug 5265341
2319:
2320: -- ========================= FND LOG ===========================
2321: psa_utils.debug_other_string(g_state_level,l_full_path,' GDSC_Type.COUNT extended-->' || GDSC_Type.COUNT);
2322: -- ========================= FND LOG ===========================
2323:
2324:
2318: GDSC_Type.Extend(l_dup_rows); -- Bug 5265341
2319:
2320: -- ========================= FND LOG ===========================
2321: psa_utils.debug_other_string(g_state_level,l_full_path,' GDSC_Type.COUNT extended-->' || GDSC_Type.COUNT);
2322: -- ========================= FND LOG ===========================
2323:
2324:
2325: FOR cntr IN 1..l_dup_rows LOOP -- Bug 5265341
2326: GDSC_Type(l_curr_cnt + cntr) := GDSC_Type(cntr);
2323:
2324:
2325: FOR cntr IN 1..l_dup_rows LOOP -- Bug 5265341
2326: GDSC_Type(l_curr_cnt + cntr) := GDSC_Type(cntr);
2327: -- ========================= FND LOG ===========================
2328: psa_utils.debug_other_string(g_state_level,l_full_path,' GDSC_Type(' || cntr || ')');
2329: -- psa_utils.debug_other_string(g_state_level,l_full_path,
2330: -- ' GDSC_Type(' || l_curr_cnt + cntr || ') := GDSC_Type(' || cntr || ')');
2331: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling assign_values');
2328: psa_utils.debug_other_string(g_state_level,l_full_path,' GDSC_Type(' || cntr || ')');
2329: -- psa_utils.debug_other_string(g_state_level,l_full_path,
2330: -- ' GDSC_Type(' || l_curr_cnt + cntr || ') := GDSC_Type(' || cntr || ')');
2331: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling assign_values');
2332: -- ========================= FND LOG ===========================
2333:
2334: assign_values(l_curr_cnt + cntr, p_segment, p_val, p_status_code);
2335:
2336: END LOOP;
2334: assign_values(l_curr_cnt + cntr, p_segment, p_val, p_status_code);
2335:
2336: END LOOP;
2337:
2338: -- ========================= FND LOG ===========================
2339: psa_utils.debug_other_string(g_state_level,l_full_path,' END create_duplicates ');
2340: -- ========================= FND LOG ===========================
2341:
2342: END create_duplicates;
2336: END LOOP;
2337:
2338: -- ========================= FND LOG ===========================
2339: psa_utils.debug_other_string(g_state_level,l_full_path,' END create_duplicates ');
2340: -- ========================= FND LOG ===========================
2341:
2342: END create_duplicates;
2343:
2344:
2343:
2344:
2345: BEGIN
2346:
2347: -- ========================= FND LOG ===========================
2348: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2349: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfcpc ');
2350: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2351: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2351: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2352: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
2353: psa_utils.debug_other_string(g_state_level,l_full_path,' template_id -->' || template_id);
2354: psa_utils.debug_other_string(g_state_level,l_full_path,' lgr_id -->' || lgr_id);
2355: -- ========================= FND LOG ===========================
2356:
2357: -- Creating the first row. Rows are later extended as required.
2358: GDSC_Type.Extend(1);
2359: l_dup_rows := 1; -- Bug 5265341
2360:
2361: -- Loop through 30 times and assign the values to PL/SQL table columns
2362: for i in 1..30 loop
2363:
2364: -- ========================= FND LOG ===========================
2365: psa_utils.debug_other_string(g_state_level,l_full_path,' rgroup(' || i || ') -> ' || rgroup(i));
2366: -- ========================= FND LOG ===========================
2367:
2368: if rgroup(i) is not null then
2362: for i in 1..30 loop
2363:
2364: -- ========================= FND LOG ===========================
2365: psa_utils.debug_other_string(g_state_level,l_full_path,' rgroup(' || i || ') -> ' || rgroup(i));
2366: -- ========================= FND LOG ===========================
2367:
2368: if rgroup(i) is not null then
2369:
2370: if (rgroup(i) = 'D') then
2367:
2368: if rgroup(i) is not null then
2369:
2370: if (rgroup(i) = 'D') then
2371: -- ========================= FND LOG ===========================
2372: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values- D');
2373: -- ========================= FND LOG ===========================
2374: initialize_values(i, seg_val(i), NULL);
2375: elsif (rgroup(i) = 'T') then
2369:
2370: if (rgroup(i) = 'D') then
2371: -- ========================= FND LOG ===========================
2372: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values- D');
2373: -- ========================= FND LOG ===========================
2374: initialize_values(i, seg_val(i), NULL);
2375: elsif (rgroup(i) = 'T') then
2376: -- ========================= FND LOG ===========================
2377: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values - T');
2372: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values- D');
2373: -- ========================= FND LOG ===========================
2374: initialize_values(i, seg_val(i), NULL);
2375: elsif (rgroup(i) = 'T') then
2376: -- ========================= FND LOG ===========================
2377: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values - T');
2378: -- ========================= FND LOG ===========================
2379: initialize_values(i, 'T', NULL);
2380: else
2374: initialize_values(i, seg_val(i), NULL);
2375: elsif (rgroup(i) = 'T') then
2376: -- ========================= FND LOG ===========================
2377: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values - T');
2378: -- ========================= FND LOG ===========================
2379: initialize_values(i, 'T', NULL);
2380: else
2381: -- ========================= FND LOG ===========================
2382: psa_utils.debug_other_string(g_state_level,l_full_path,' IN the else part ');
2377: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values - T');
2378: -- ========================= FND LOG ===========================
2379: initialize_values(i, 'T', NULL);
2380: else
2381: -- ========================= FND LOG ===========================
2382: psa_utils.debug_other_string(g_state_level,l_full_path,' IN the else part ');
2383: -- ========================= FND LOG ===========================
2384:
2385: --
2379: initialize_values(i, 'T', NULL);
2380: else
2381: -- ========================= FND LOG ===========================
2382: psa_utils.debug_other_string(g_state_level,l_full_path,' IN the else part ');
2383: -- ========================= FND LOG ===========================
2384:
2385: --
2386: -- Bug 4143033
2387: -- ***********
2410: l_curr_val fnd_flex_values.flex_value%type;
2411: l_status_code gl_summary_hierarchies.status_code%type;
2412: BEGIN
2413:
2414: -- ========================= FND LOG ===========================
2415: psa_utils.debug_other_string(g_state_level,l_full_path,
2416: ' With in pl/sql block ');
2417: psa_utils.debug_other_string(g_state_level,l_full_path,
2418: 'seg_val(rgroup_ind(' || i || ')) -> ' || seg_val(rgroup_ind(i)));
2419: psa_utils.debug_other_string(g_state_level,l_full_path,
2420: 'val_set(rgroup_ind(' || i || ')) -> ' || val_set(rgroup_ind(i)));
2421: psa_utils.debug_other_string(g_state_level,l_full_path,
2422: ' rgroup_ind(' || i || ') -> ' || rgroup_ind(i));
2423: -- ========================= FND LOG ===========================
2424:
2425: OPEN c_get_parents;
2426: LOOP
2427:
2426: LOOP
2427:
2428: FETCH c_get_parents INTO l_status_code, l_curr_val;
2429:
2430: -- ========================= FND LOG ===========================
2431: psa_utils.debug_other_string(g_state_level,l_full_path,
2432: ' l_status_code -> ' || l_status_code);
2433: psa_utils.debug_other_string(g_state_level,l_full_path,
2434: ' l_curr_val -> ' || l_curr_val);
2433: psa_utils.debug_other_string(g_state_level,l_full_path,
2434: ' l_curr_val -> ' || l_curr_val);
2435: psa_utils.debug_other_string(g_state_level,l_full_path,
2436: ' c_get_parents%ROWCOUNT -> ' || c_get_parents%ROWCOUNT);
2437: -- ========================= FND LOG ===========================
2438:
2439: EXIT WHEN c_get_parents%NOTFOUND;
2440:
2441:
2439: EXIT WHEN c_get_parents%NOTFOUND;
2440:
2441:
2442: IF (c_get_parents%ROWCOUNT) = 1 THEN
2443: -- ========================= FND LOG ===========================
2444: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values');
2445: -- ========================= FND LOG ===========================
2446: -- Since this is only first record, just set this value to all the existing rows
2447: initialize_values(i, l_curr_val, l_status_code);
2441:
2442: IF (c_get_parents%ROWCOUNT) = 1 THEN
2443: -- ========================= FND LOG ===========================
2444: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling initialize_values');
2445: -- ========================= FND LOG ===========================
2446: -- Since this is only first record, just set this value to all the existing rows
2447: initialize_values(i, l_curr_val, l_status_code);
2448: l_dup_rows := GDSC_TYPE.COUNT; -- Bug 5265341
2449:
2446: -- Since this is only first record, just set this value to all the existing rows
2447: initialize_values(i, l_curr_val, l_status_code);
2448: l_dup_rows := GDSC_TYPE.COUNT; -- Bug 5265341
2449:
2450: -- ========================= FND LOG ===========================
2451: psa_utils.debug_other_string(g_state_level,l_full_path,' l_dup_rows set to -->' || l_dup_rows); -- Bug 5265341
2452: -- ========================= FND LOG ===========================
2453:
2454: ELSIF (c_get_parents%ROWCOUNT > 1) THEN
2448: l_dup_rows := GDSC_TYPE.COUNT; -- Bug 5265341
2449:
2450: -- ========================= FND LOG ===========================
2451: psa_utils.debug_other_string(g_state_level,l_full_path,' l_dup_rows set to -->' || l_dup_rows); -- Bug 5265341
2452: -- ========================= FND LOG ===========================
2453:
2454: ELSIF (c_get_parents%ROWCOUNT > 1) THEN
2455: -- ========================= FND LOG ===========================
2456: psa_utils.debug_other_string(g_state_level,l_full_path,'create_duplicates ');
2451: psa_utils.debug_other_string(g_state_level,l_full_path,' l_dup_rows set to -->' || l_dup_rows); -- Bug 5265341
2452: -- ========================= FND LOG ===========================
2453:
2454: ELSIF (c_get_parents%ROWCOUNT > 1) THEN
2455: -- ========================= FND LOG ===========================
2456: psa_utils.debug_other_string(g_state_level,l_full_path,'create_duplicates ');
2457: -- ========================= FND LOG ===========================
2458: -- Since this is the second parent found, first duplicate the existing rows and
2459: -- assign the new value to the duplicates
2453:
2454: ELSIF (c_get_parents%ROWCOUNT > 1) THEN
2455: -- ========================= FND LOG ===========================
2456: psa_utils.debug_other_string(g_state_level,l_full_path,'create_duplicates ');
2457: -- ========================= FND LOG ===========================
2458: -- Since this is the second parent found, first duplicate the existing rows and
2459: -- assign the new value to the duplicates
2460: create_duplicates(i, l_curr_val, l_status_code);
2461:
2464: END LOOP;
2465:
2466:
2467: IF (c_get_parents%ROWCOUNT = 0) THEN
2468: -- ========================= FND LOG ===========================
2469: psa_utils.debug_other_string(g_state_level,l_full_path,' No rows found ');
2470: -- ========================= FND LOG ===========================
2471: -- Since query fetched now rows return TRUE
2472: CLOSE c_get_parents;
2466:
2467: IF (c_get_parents%ROWCOUNT = 0) THEN
2468: -- ========================= FND LOG ===========================
2469: psa_utils.debug_other_string(g_state_level,l_full_path,' No rows found ');
2470: -- ========================= FND LOG ===========================
2471: -- Since query fetched now rows return TRUE
2472: CLOSE c_get_parents;
2473: -- ========================= FND LOG ===========================
2474: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE ');
2469: psa_utils.debug_other_string(g_state_level,l_full_path,' No rows found ');
2470: -- ========================= FND LOG ===========================
2471: -- Since query fetched now rows return TRUE
2472: CLOSE c_get_parents;
2473: -- ========================= FND LOG ===========================
2474: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE ');
2475: -- ========================= FND LOG ===========================
2476: return (TRUE);
2477: END IF;
2471: -- Since query fetched now rows return TRUE
2472: CLOSE c_get_parents;
2473: -- ========================= FND LOG ===========================
2474: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE ');
2475: -- ========================= FND LOG ===========================
2476: return (TRUE);
2477: END IF;
2478:
2479: CLOSE c_get_parents;
2479: CLOSE c_get_parents;
2480:
2481: EXCEPTION
2482: WHEN OTHERS THEN
2483: -- ========================= FND LOG ===========================
2484: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION IN pl/sql block ');
2485: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2486: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE ');
2487: -- ========================= FND LOG ===========================
2483: -- ========================= FND LOG ===========================
2484: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION IN pl/sql block ');
2485: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2486: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE ');
2487: -- ========================= FND LOG ===========================
2488: return (FALSE);
2489: END;
2490:
2491: end if;
2489: END;
2490:
2491: end if;
2492:
2493: -- ========================= FND LOG ===========================
2494: psa_utils.debug_other_string(g_state_level,l_full_path,' rgroup(' || i || ') -> ' || rgroup(i));
2495: -- ========================= FND LOG ===========================
2496:
2497: end if;
2491: end if;
2492:
2493: -- ========================= FND LOG ===========================
2494: psa_utils.debug_other_string(g_state_level,l_full_path,' rgroup(' || i || ') -> ' || rgroup(i));
2495: -- ========================= FND LOG ===========================
2496:
2497: end if;
2498:
2499: end loop;
2503: -- statement. This is again to overcome a PL/SQL table limitation
2504:
2505: FOR i IN 1..GDSC_Type.COUNT LOOP
2506:
2507: -- ========================= FND LOG ===========================
2508: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_dynamic_summ_combinations');
2509: -- ========================= FND LOG ===========================
2510:
2511: insert into gl_dynamic_summ_combinations (
2505: FOR i IN 1..GDSC_Type.COUNT LOOP
2506:
2507: -- ========================= FND LOG ===========================
2508: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_dynamic_summ_combinations');
2509: -- ========================= FND LOG ===========================
2510:
2511: insert into gl_dynamic_summ_combinations (
2512: dynamic_group_id,
2513: code_combination_id,
2584: DECODE(GDSC_Type(i).LEDGER_ID, NULL, lgr_id, GDSC_Type(i).LEDGER_ID),
2585: DECODE(GDSC_Type(i).TEMPLATE_ID, NULL, template_id, GDSC_Type(i).TEMPLATE_ID)
2586: );
2587:
2588: -- ========================= FND LOG ===========================
2589: psa_utils.debug_other_string(g_state_level,l_full_path,' ####### START ');
2590: psa_utils.debug_other_string(g_state_level,l_full_path,' dynamic_group_id ->' || dyn_grp_id);
2591: psa_utils.debug_other_string(g_state_level,l_full_path,' code_combination_id -> -1');
2592: psa_utils.debug_other_string(g_state_level,l_full_path,' GDSC_Type(' || i || ').SEGMENT1 ->' || GDSC_Type(i).SEGMENT1);
2633: psa_utils.debug_other_string(g_state_level,l_full_path,
2634: ' GDSC_Type(' || i || ').TEMPLATE_ID ->' || GDSC_Type(i).TEMPLATE_ID);
2635: END IF;
2636: psa_utils.debug_other_string(g_state_level,l_full_path,' ####### END');
2637: -- ========================= FND LOG ===========================
2638:
2639:
2640: END LOOP;
2641:
2638:
2639:
2640: END LOOP;
2641:
2642: -- ========================= FND LOG ===========================
2643: psa_utils.debug_other_string(g_state_level,l_full_path,' DELETEING DUPLICATE ROWS.');
2644: -- ========================= FND LOG ===========================
2645:
2646:
2640: END LOOP;
2641:
2642: -- ========================= FND LOG ===========================
2643: psa_utils.debug_other_string(g_state_level,l_full_path,' DELETEING DUPLICATE ROWS.');
2644: -- ========================= FND LOG ===========================
2645:
2646:
2647: -- Delete the duplicate rows for this dynamic group id.
2648: -- This will not delete rows which have negative lgr and template ids
2684: segment29,
2685: segment30)
2686: and dynamic_group_id = dyn_grp_id;
2687:
2688: -- ========================= FND LOG ===========================
2689: psa_utils.debug_other_string(g_state_level,l_full_path,
2690: ' DELETE FROM gl_dynamic_summ_combinations -> ' || SQL%ROWCOUNT);
2691: -- ========================= FND LOG ===========================
2692:
2687:
2688: -- ========================= FND LOG ===========================
2689: psa_utils.debug_other_string(g_state_level,l_full_path,
2690: ' DELETE FROM gl_dynamic_summ_combinations -> ' || SQL%ROWCOUNT);
2691: -- ========================= FND LOG ===========================
2692:
2693: -- bug 4130352 start
2694:
2695: -- delete duplicate negative ledger_id/template_id rows where there is a
2726: segment28, segment29, segment30
2727: HAVING count(*) > 1)
2728: LOOP
2729:
2730: -- ========================= FND LOG ===========================
2731: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside crec cursor');
2732: -- ========================= FND LOG ===========================
2733:
2734: DELETE from gl_dynamic_summ_combinations
2728: LOOP
2729:
2730: -- ========================= FND LOG ===========================
2731: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside crec cursor');
2732: -- ========================= FND LOG ===========================
2733:
2734: DELETE from gl_dynamic_summ_combinations
2735: WHERE ledger_id = -1 * crec.ledger_id
2736: AND template_id = -1 * crec.template_id
2765: AND nvl(segment28,g_segment_nvl_value) = nvl(crec.segment28,g_segment_nvl_value)
2766: AND nvl(segment29,g_segment_nvl_value) = nvl(crec.segment29,g_segment_nvl_value)
2767: AND nvl(segment30,g_segment_nvl_value) = nvl(crec.segment30,g_segment_nvl_value);
2768:
2769: -- ========================= FND LOG ===========================
2770: psa_utils.debug_other_string(g_state_level,l_full_path,
2771: ' DELETE FROM gl_dynamic_summ_combinations II -> ' || SQL%ROWCOUNT);
2772: -- ========================= FND LOG ===========================
2773:
2768:
2769: -- ========================= FND LOG ===========================
2770: psa_utils.debug_other_string(g_state_level,l_full_path,
2771: ' DELETE FROM gl_dynamic_summ_combinations II -> ' || SQL%ROWCOUNT);
2772: -- ========================= FND LOG ===========================
2773:
2774: END LOOP;
2775:
2776: --bug 4130352 end
2774: END LOOP;
2775:
2776: --bug 4130352 end
2777:
2778: -- ========================= FND LOG ===========================
2779: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
2780: -- ========================= FND LOG ===========================
2781:
2782: return (TRUE);
2776: --bug 4130352 end
2777:
2778: -- ========================= FND LOG ===========================
2779: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
2780: -- ========================= FND LOG ===========================
2781:
2782: return (TRUE);
2783:
2784: EXCEPTION
2783:
2784: EXCEPTION
2785:
2786: WHEN OTHERS THEN
2787: -- ========================= FND LOG ===========================
2788: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS - glfcpc ');
2789: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2790: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2791: -- ========================= FND LOG ===========================
2787: -- ========================= FND LOG ===========================
2788: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS - glfcpc ');
2789: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2790: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2791: -- ========================= FND LOG ===========================
2792:
2793: -- Dynamic SQL Exception
2794: message_token('MSG', SQLERRM);
2795: message_token('SQLSTR', 'INSERT INTO GL_DYNAMIC_SUMM_COMBINATIONS ...');
2830: )
2831: FOR UPDATE;
2832: -- FOR UPDATE NOWAIT; -- Bug 4074489
2833:
2834: -- ========================= FND LOG ===========================
2835: l_full_path VARCHAR2(100) := g_path || 'glflst.';
2836: -- ========================= FND LOG ===========================
2837:
2838: BEGIN
2832: -- FOR UPDATE NOWAIT; -- Bug 4074489
2833:
2834: -- ========================= FND LOG ===========================
2835: l_full_path VARCHAR2(100) := g_path || 'glflst.';
2836: -- ========================= FND LOG ===========================
2837:
2838: BEGIN
2839:
2840: -- ========================= FND LOG ===========================
2836: -- ========================= FND LOG ===========================
2837:
2838: BEGIN
2839:
2840: -- ========================= FND LOG ===========================
2841: psa_utils.debug_other_string(g_state_level,l_full_path,' START glflst ');
2842: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
2843: -- ========================= FND LOG ===========================
2844:
2839:
2840: -- ========================= FND LOG ===========================
2841: psa_utils.debug_other_string(g_state_level,l_full_path,' START glflst ');
2842: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
2843: -- ========================= FND LOG ===========================
2844:
2845: -- All rows are locked when the Cursor is opened; these rows are unlocked
2846: -- after commit or rollback of the fdfgli routine
2847:
2851: into tmpmsg;
2852:
2853: close lockst;
2854:
2855: -- ========================= FND LOG ===========================
2856: psa_utils.debug_other_string(g_state_level,l_full_path,' LOCKING gl_concurrency_control ');
2857: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE ');
2858: -- ========================= FND LOG ===========================
2859:
2854:
2855: -- ========================= FND LOG ===========================
2856: psa_utils.debug_other_string(g_state_level,l_full_path,' LOCKING gl_concurrency_control ');
2857: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE ');
2858: -- ========================= FND LOG ===========================
2859:
2860: return(TRUE);
2861:
2862: EXCEPTION
2869:
2870: message_token('MSG', 'glflst() exception:' || SQLERRM);
2871: add_message('FND', 'FLEX-SSV EXCEPTION');
2872:
2873: -- ========================= FND LOG ===========================
2874: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION NO_DATA_FOUND - glflst ');
2875: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2876: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2877: -- ========================= FND LOG ===========================
2873: -- ========================= FND LOG ===========================
2874: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION NO_DATA_FOUND - glflst ');
2875: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2876: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2877: -- ========================= FND LOG ===========================
2878:
2879: return(FALSE);
2880:
2881: WHEN OTHERS THEN
2886:
2887: message_token('TABLE', 'GL_CONCURRENCY_CONTROL');
2888: add_message('FND', 'FORM-CANNOT LOCK');
2889:
2890: -- ========================= FND LOG ===========================
2891: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION OTHERS - glflst ');
2892: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2893: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2894: -- ========================= FND LOG ===========================
2890: -- ========================= FND LOG ===========================
2891: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION OTHERS - glflst ');
2892: psa_utils.debug_other_string(g_state_level,l_full_path,' - ' || SQLERRM);
2893: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
2894: -- ========================= FND LOG ===========================
2895:
2896: return(FALSE);
2897:
2898: END glflst;
2916: num_rows INTEGER;
2917:
2918: i BINARY_INTEGER;
2919:
2920: -- ========================= FND LOG ===========================
2921: l_full_path VARCHAR2(100) := g_path || 'glfaec.';
2922: -- ========================= FND LOG ===========================
2923:
2924: BEGIN
2918: i BINARY_INTEGER;
2919:
2920: -- ========================= FND LOG ===========================
2921: l_full_path VARCHAR2(100) := g_path || 'glfaec.';
2922: -- ========================= FND LOG ===========================
2923:
2924: BEGIN
2925:
2926: -- ========================= FND LOG ===========================
2922: -- ========================= FND LOG ===========================
2923:
2924: BEGIN
2925:
2926: -- ========================= FND LOG ===========================
2927: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfaec ');
2928: -- ========================= FND LOG ===========================
2929:
2930: sql_statement := 'update gl_dynamic_summ_combinations tc1 ' ||
2924: BEGIN
2925:
2926: -- ========================= FND LOG ===========================
2927: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfaec ');
2928: -- ========================= FND LOG ===========================
2929:
2930: sql_statement := 'update gl_dynamic_summ_combinations tc1 ' ||
2931: 'set code_combination_id = (' ||
2932: 'select nvl(cc.code_combination_id, -1) ' ||
2946: sql_statement := sql_statement ||
2947: 'and tc2.rowid = tc1.rowid) ' ||
2948: 'where tc1.dynamic_group_id = ' || dyn_grp_id;
2949:
2950: -- ========================= FND LOG ===========================
2951: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_statement -> ' || sql_statement);
2952: -- ========================= FND LOG ===========================
2953:
2954: num_rows := dsql_execute(sql_statement);
2948: 'where tc1.dynamic_group_id = ' || dyn_grp_id;
2949:
2950: -- ========================= FND LOG ===========================
2951: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_statement -> ' || sql_statement);
2952: -- ========================= FND LOG ===========================
2953:
2954: num_rows := dsql_execute(sql_statement);
2955:
2956: -- ========================= FND LOG ===========================
2952: -- ========================= FND LOG ===========================
2953:
2954: num_rows := dsql_execute(sql_statement);
2955:
2956: -- ========================= FND LOG ===========================
2957: psa_utils.debug_other_string(g_state_level,l_full_path,'num_rows -> ' || num_rows);
2958: -- ========================= FND LOG ===========================
2959:
2960: if num_rows < 0 then
2954: num_rows := dsql_execute(sql_statement);
2955:
2956: -- ========================= FND LOG ===========================
2957: psa_utils.debug_other_string(g_state_level,l_full_path,'num_rows -> ' || num_rows);
2958: -- ========================= FND LOG ===========================
2959:
2960: if num_rows < 0 then
2961: -- ========================= FND LOG ===========================
2962: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> FALSE');
2957: psa_utils.debug_other_string(g_state_level,l_full_path,'num_rows -> ' || num_rows);
2958: -- ========================= FND LOG ===========================
2959:
2960: if num_rows < 0 then
2961: -- ========================= FND LOG ===========================
2962: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> FALSE');
2963: -- ========================= FND LOG ===========================
2964: return(FALSE);
2965: end if;
2959:
2960: if num_rows < 0 then
2961: -- ========================= FND LOG ===========================
2962: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> FALSE');
2963: -- ========================= FND LOG ===========================
2964: return(FALSE);
2965: end if;
2966:
2967: -- ========================= FND LOG ===========================
2963: -- ========================= FND LOG ===========================
2964: return(FALSE);
2965: end if;
2966:
2967: -- ========================= FND LOG ===========================
2968: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
2969: -- ========================= FND LOG ===========================
2970:
2971: return(TRUE);
2965: end if;
2966:
2967: -- ========================= FND LOG ===========================
2968: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
2969: -- ========================= FND LOG ===========================
2970:
2971: return(TRUE);
2972:
2973: END glfaec;
2989: cursor ccid_seq is
2990: select gl_code_combinations_s.NEXTVAL
2991: from sys.dual;
2992:
2993: -- ========================= FND LOG ===========================
2994: l_full_path VARCHAR2(100) := g_path || 'glfanc.';
2995: -- ========================= FND LOG ===========================
2996:
2997: BEGIN
2991: from sys.dual;
2992:
2993: -- ========================= FND LOG ===========================
2994: l_full_path VARCHAR2(100) := g_path || 'glfanc.';
2995: -- ========================= FND LOG ===========================
2996:
2997: BEGIN
2998:
2999: -- ========================= FND LOG ===========================
2995: -- ========================= FND LOG ===========================
2996:
2997: BEGIN
2998:
2999: -- ========================= FND LOG ===========================
3000: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfanc ');
3001: -- ========================= FND LOG ===========================
3002:
3003: open ccid_seq;
2997: BEGIN
2998:
2999: -- ========================= FND LOG ===========================
3000: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfanc ');
3001: -- ========================= FND LOG ===========================
3002:
3003: open ccid_seq;
3004:
3005: fetch ccid_seq
3004:
3005: fetch ccid_seq
3006: into min_ccid;
3007:
3008: -- ========================= FND LOG ===========================
3009: psa_utils.debug_other_string(g_state_level,l_full_path,' min_ccid -> ' || min_ccid);
3010: -- ========================= FND LOG ===========================
3011:
3012: if ccid_seq%NOTFOUND then
3006: into min_ccid;
3007:
3008: -- ========================= FND LOG ===========================
3009: psa_utils.debug_other_string(g_state_level,l_full_path,' min_ccid -> ' || min_ccid);
3010: -- ========================= FND LOG ===========================
3011:
3012: if ccid_seq%NOTFOUND then
3013: add_message('FND', 'FLEX-NO ROWS IN DUAL');
3014: -- ========================= FND LOG ===========================
3010: -- ========================= FND LOG ===========================
3011:
3012: if ccid_seq%NOTFOUND then
3013: add_message('FND', 'FLEX-NO ROWS IN DUAL');
3014: -- ========================= FND LOG ===========================
3015: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
3016: -- ========================= FND LOG ===========================
3017: goto return_invalid;
3018: end if;
3012: if ccid_seq%NOTFOUND then
3013: add_message('FND', 'FLEX-NO ROWS IN DUAL');
3014: -- ========================= FND LOG ===========================
3015: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
3016: -- ========================= FND LOG ===========================
3017: goto return_invalid;
3018: end if;
3019:
3020: update gl_dynamic_summ_combinations
3021: set code_combination_id = gl_code_combinations_s.NEXTVAL
3022: where code_combination_id = -1
3023: and dynamic_group_id = dyn_grp_id;
3024:
3025: -- ========================= FND LOG ===========================
3026: psa_utils.debug_other_string(g_state_level,l_full_path,
3027: ' update gl_dynamic_summ_combinations -' || SQL%ROWCOUNT);
3028: psa_utils.debug_other_string(g_state_level,l_full_path,
3029: ' RETURN -> TRUE');
3026: psa_utils.debug_other_string(g_state_level,l_full_path,
3027: ' update gl_dynamic_summ_combinations -' || SQL%ROWCOUNT);
3028: psa_utils.debug_other_string(g_state_level,l_full_path,
3029: ' RETURN -> TRUE');
3030: -- ========================= FND LOG ===========================
3031:
3032: return(TRUE);
3033:
3034: <
3031:
3032: return(TRUE);
3033:
3034: <
3035: -- ========================= FND LOG ===========================
3036: psa_utils.debug_other_string(g_state_level,l_full_path,
3037: ' LABEL -> return_invalid');
3038: -- ========================= FND LOG ===========================
3039:
3034: <
3035: -- ========================= FND LOG ===========================
3036: psa_utils.debug_other_string(g_state_level,l_full_path,
3037: ' LABEL -> return_invalid');
3038: -- ========================= FND LOG ===========================
3039:
3040: if ccid_seq%ISOPEN then
3041: close ccid_seq;
3042: end if;
3040: if ccid_seq%ISOPEN then
3041: close ccid_seq;
3042: end if;
3043:
3044: -- ========================= FND LOG ===========================
3045: psa_utils.debug_other_string(g_state_level,l_full_path,
3046: ' RETURN -> FALSE');
3047: -- ========================= FND LOG ===========================
3048:
3043:
3044: -- ========================= FND LOG ===========================
3045: psa_utils.debug_other_string(g_state_level,l_full_path,
3046: ' RETURN -> FALSE');
3047: -- ========================= FND LOG ===========================
3048:
3049: return(FALSE);
3050:
3051:
3059:
3060: message_token('MSG', 'glfanc() exception:' || SQLERRM);
3061: add_message('FND', 'FLEX-SSV EXCEPTION');
3062:
3063: -- ========================= FND LOG ===========================
3064: psa_utils.debug_other_string(g_state_level,l_full_path,
3065: ' EXCEPTION WHEN OTHERS - ' || SQLERRM);
3066: psa_utils.debug_other_string(g_state_level,l_full_path,
3067: ' RETURN -> FALSE');
3064: psa_utils.debug_other_string(g_state_level,l_full_path,
3065: ' EXCEPTION WHEN OTHERS - ' || SQLERRM);
3066: psa_utils.debug_other_string(g_state_level,l_full_path,
3067: ' RETURN -> FALSE');
3068: -- ========================= FND LOG ===========================
3069:
3070: return(FALSE);
3071:
3072: END glfanc;
3091: cur_inscc INTEGER;
3092: num_rows INTEGER;
3093: i BINARY_INTEGER;
3094:
3095: -- ========================= FND LOG ===========================
3096: l_full_path VARCHAR2(100) := g_path || 'glficc.';
3097: -- ========================= FND LOG ===========================
3098:
3099: BEGIN
3093: i BINARY_INTEGER;
3094:
3095: -- ========================= FND LOG ===========================
3096: l_full_path VARCHAR2(100) := g_path || 'glficc.';
3097: -- ========================= FND LOG ===========================
3098:
3099: BEGIN
3100:
3101: -- ========================= FND LOG ===========================
3097: -- ========================= FND LOG ===========================
3098:
3099: BEGIN
3100:
3101: -- ========================= FND LOG ===========================
3102: psa_utils.debug_other_string(g_state_level,l_full_path,' START glficc ');
3103: -- ========================= FND LOG ===========================
3104:
3105: sql_inscc := 'insert into gl_code_combinations (' ||
3099: BEGIN
3100:
3101: -- ========================= FND LOG ===========================
3102: psa_utils.debug_other_string(g_state_level,l_full_path,' START glficc ');
3103: -- ========================= FND LOG ===========================
3104:
3105: sql_inscc := 'insert into gl_code_combinations (' ||
3106: 'code_combination_id, ' ||
3107: 'last_update_date, ' ||
3150: ' from gl_dynamic_summ_combinations dsc ' ||
3151: 'where dynamic_group_id = :grp_id ' ||
3152: 'and code_combination_id > :min_ccid';
3153:
3154: -- ========================= FND LOG ===========================
3155: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_inscc -> ' || sql_inscc);
3156: -- ========================= FND LOG ===========================
3157:
3158: cur_inscc := dbms_sql.open_cursor;
3152: 'and code_combination_id > :min_ccid';
3153:
3154: -- ========================= FND LOG ===========================
3155: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_inscc -> ' || sql_inscc);
3156: -- ========================= FND LOG ===========================
3157:
3158: cur_inscc := dbms_sql.open_cursor;
3159: dbms_sql.parse(cur_inscc, sql_inscc, dbms_sql.v7);
3160:
3162: dbms_sql.bind_variable(cur_inscc, ':coaid', coaid);
3163: dbms_sql.bind_variable(cur_inscc, ':grp_id', dyn_grp_id);
3164: dbms_sql.bind_variable(cur_inscc, ':min_ccid', min_ccid);
3165:
3166: -- ========================= FND LOG ===========================
3167: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
3168: psa_utils.debug_other_string(g_state_level,l_full_path,' coaid -> ' || coaid);
3169: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
3170: psa_utils.debug_other_string(g_state_level,l_full_path,' min_ccid -> ' || min_ccid);
3167: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
3168: psa_utils.debug_other_string(g_state_level,l_full_path,' coaid -> ' || coaid);
3169: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
3170: psa_utils.debug_other_string(g_state_level,l_full_path,' min_ccid -> ' || min_ccid);
3171: -- ========================= FND LOG ===========================
3172:
3173: num_rows := dbms_sql.execute(cur_inscc);
3174:
3175: -- ========================= FND LOG ===========================
3171: -- ========================= FND LOG ===========================
3172:
3173: num_rows := dbms_sql.execute(cur_inscc);
3174:
3175: -- ========================= FND LOG ===========================
3176: psa_utils.debug_other_string(g_state_level,l_full_path,' num_rows -> ' || num_rows);
3177: -- ========================= FND LOG ===========================
3178:
3179: dbms_sql.close_cursor(cur_inscc);
3173: num_rows := dbms_sql.execute(cur_inscc);
3174:
3175: -- ========================= FND LOG ===========================
3176: psa_utils.debug_other_string(g_state_level,l_full_path,' num_rows -> ' || num_rows);
3177: -- ========================= FND LOG ===========================
3178:
3179: dbms_sql.close_cursor(cur_inscc);
3180:
3181:
3181:
3182: -- Call API to update account types of the summary accounts
3183: BEGIN
3184:
3185: -- ========================= FND LOG ===========================
3186: psa_utils.debug_other_string(g_state_level,l_full_path,
3187: ' Calling GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types');
3188: -- ========================= FND LOG ===========================
3189:
3184:
3185: -- ========================= FND LOG ===========================
3186: psa_utils.debug_other_string(g_state_level,l_full_path,
3187: ' Calling GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types');
3188: -- ========================= FND LOG ===========================
3189:
3190: GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types(coaid, min_ccid);
3191:
3192: -- ========================= FND LOG ===========================
3188: -- ========================= FND LOG ===========================
3189:
3190: GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types(coaid, min_ccid);
3191:
3192: -- ========================= FND LOG ===========================
3193: psa_utils.debug_other_string(g_state_level,l_full_path,
3194: ' After GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types');
3195: -- ========================= FND LOG ===========================
3196:
3191:
3192: -- ========================= FND LOG ===========================
3193: psa_utils.debug_other_string(g_state_level,l_full_path,
3194: ' After GL_SUMMARY_ACCOUNT_TYPES_PKG.update_account_types');
3195: -- ========================= FND LOG ===========================
3196:
3197: EXCEPTION
3198:
3199: WHEN GL_SUMMARY_ACCOUNT_TYPES_PKG.invalid_combination THEN
3198:
3199: WHEN GL_SUMMARY_ACCOUNT_TYPES_PKG.invalid_combination THEN
3200:
3201: add_message('SQLGL', 'GL_FLEX_ACC_TYPE_INVALID_COMB');
3202: -- ========================= FND LOG ===========================
3203: psa_utils.debug_other_string(g_state_level,l_full_path,
3204: ' GL_SUMMARY_ACCOUNT_TYPES_PKG RETURN -> FALSE');
3205: -- ========================= FND LOG ===========================
3206: return(FALSE);
3201: add_message('SQLGL', 'GL_FLEX_ACC_TYPE_INVALID_COMB');
3202: -- ========================= FND LOG ===========================
3203: psa_utils.debug_other_string(g_state_level,l_full_path,
3204: ' GL_SUMMARY_ACCOUNT_TYPES_PKG RETURN -> FALSE');
3205: -- ========================= FND LOG ===========================
3206: return(FALSE);
3207:
3208: WHEN OTHERS THEN
3209: -- ========================= FND LOG ===========================
3205: -- ========================= FND LOG ===========================
3206: return(FALSE);
3207:
3208: WHEN OTHERS THEN
3209: -- ========================= FND LOG ===========================
3210: psa_utils.debug_other_string(g_state_level,l_full_path,
3211: ' EXCEPTION WHEN OTHERS GL_SUMMARY_ACCOUNT_TYPES_PKG - ' || SQLERRM);
3212: -- ========================= FND LOG ===========================
3213:
3208: WHEN OTHERS THEN
3209: -- ========================= FND LOG ===========================
3210: psa_utils.debug_other_string(g_state_level,l_full_path,
3211: ' EXCEPTION WHEN OTHERS GL_SUMMARY_ACCOUNT_TYPES_PKG - ' || SQLERRM);
3212: -- ========================= FND LOG ===========================
3213:
3214: RAISE;
3215: END;
3216:
3213:
3214: RAISE;
3215: END;
3216:
3217: -- ========================= FND LOG ===========================
3218: psa_utils.debug_other_string(g_state_level,l_full_path,
3219: ' RETURN -> TRUE');
3220: -- ========================= FND LOG ===========================
3221:
3216:
3217: -- ========================= FND LOG ===========================
3218: psa_utils.debug_other_string(g_state_level,l_full_path,
3219: ' RETURN -> TRUE');
3220: -- ========================= FND LOG ===========================
3221:
3222: return(TRUE);
3223:
3224: EXCEPTION
3234: message_token('MSG', SQLERRM);
3235: message_token('SQLSTR', substr(sql_inscc, 1, 1000));
3236: add_message('FND', 'FLEX-DSQL EXCEPTION');
3237:
3238: -- ========================= FND LOG ===========================
3239: psa_utils.debug_other_string(g_state_level,l_full_path,
3240: ' GLFICC RETURN -> FALSE ' || SQLERRM);
3241: -- ========================= FND LOG ===========================
3242:
3237:
3238: -- ========================= FND LOG ===========================
3239: psa_utils.debug_other_string(g_state_level,l_full_path,
3240: ' GLFICC RETURN -> FALSE ' || SQLERRM);
3241: -- ========================= FND LOG ===========================
3242:
3243: return(FALSE);
3244:
3245: END glficc;
3264: cur_acchy INTEGER;
3265: num_rows INTEGER;
3266:
3267:
3268: -- ========================= FND LOG ===========================
3269: l_full_path VARCHAR2(100) := g_path || 'glfmah.';
3270: -- ========================= FND LOG ===========================
3271:
3272: BEGIN
3266:
3267:
3268: -- ========================= FND LOG ===========================
3269: l_full_path VARCHAR2(100) := g_path || 'glfmah.';
3270: -- ========================= FND LOG ===========================
3271:
3272: BEGIN
3273:
3274: -- ========================= FND LOG ===========================
3270: -- ========================= FND LOG ===========================
3271:
3272: BEGIN
3273:
3274: -- ========================= FND LOG ===========================
3275: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfmah ');
3276: -- ========================= FND LOG ===========================
3277:
3278: sql_acchy := 'insert into gl_account_hierarchies (' ||
3272: BEGIN
3273:
3274: -- ========================= FND LOG ===========================
3275: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfmah ');
3276: -- ========================= FND LOG ===========================
3277:
3278: sql_acchy := 'insert into gl_account_hierarchies (' ||
3279: 'ledger_id, ' ||
3280: 'summary_code_combination_id, ' ||
3300: 'where ah.summary_code_combination_id = ' ||
3301: 'dsc.code_combination_id ' ||
3302: 'and ah.detail_code_combination_id = :ccid)';
3303:
3304: -- ========================= FND LOG ===========================
3305: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_acchy -> ' || sql_acchy);
3306: -- ========================= FND LOG ===========================
3307:
3308: cur_acchy := dbms_sql.open_cursor;
3302: 'and ah.detail_code_combination_id = :ccid)';
3303:
3304: -- ========================= FND LOG ===========================
3305: psa_utils.debug_other_string(g_state_level,l_full_path,' sql_acchy -> ' || sql_acchy);
3306: -- ========================= FND LOG ===========================
3307:
3308: cur_acchy := dbms_sql.open_cursor;
3309: dbms_sql.parse(cur_acchy, sql_acchy, dbms_sql.v7);
3310:
3313: dbms_sql.bind_variable(cur_acchy, ':ordering_value',
3314: seg_val(acct_seg_index));
3315: dbms_sql.bind_variable(cur_acchy, ':grp_id', dyn_grp_id);
3316:
3317: -- ========================= FND LOG ===========================
3318: psa_utils.debug_other_string(g_state_level,l_full_path,' ccid -> ' || ccid);
3319: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
3320: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
3321: -- ========================= FND LOG ===========================
3317: -- ========================= FND LOG ===========================
3318: psa_utils.debug_other_string(g_state_level,l_full_path,' ccid -> ' || ccid);
3319: psa_utils.debug_other_string(g_state_level,l_full_path,' user_id -> ' || user_id);
3320: psa_utils.debug_other_string(g_state_level,l_full_path,' dyn_grp_id -> ' || dyn_grp_id);
3321: -- ========================= FND LOG ===========================
3322:
3323: num_rows := dbms_sql.execute(cur_acchy);
3324:
3325: -- ========================= FND LOG ===========================
3321: -- ========================= FND LOG ===========================
3322:
3323: num_rows := dbms_sql.execute(cur_acchy);
3324:
3325: -- ========================= FND LOG ===========================
3326: psa_utils.debug_other_string(g_state_level,l_full_path,' num_rows -> ' || num_rows);
3327: -- ========================= FND LOG ===========================
3328:
3329: dbms_sql.close_cursor(cur_acchy);
3323: num_rows := dbms_sql.execute(cur_acchy);
3324:
3325: -- ========================= FND LOG ===========================
3326: psa_utils.debug_other_string(g_state_level,l_full_path,' num_rows -> ' || num_rows);
3327: -- ========================= FND LOG ===========================
3328:
3329: dbms_sql.close_cursor(cur_acchy);
3330:
3331: -- ========================= FND LOG ===========================
3327: -- ========================= FND LOG ===========================
3328:
3329: dbms_sql.close_cursor(cur_acchy);
3330:
3331: -- ========================= FND LOG ===========================
3332: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3333: -- ========================= FND LOG ===========================
3334:
3335: return(TRUE);
3329: dbms_sql.close_cursor(cur_acchy);
3330:
3331: -- ========================= FND LOG ===========================
3332: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3333: -- ========================= FND LOG ===========================
3334:
3335: return(TRUE);
3336:
3337:
3348: message_token('MSG', SQLERRM);
3349: message_token('SQLSTR', substr(sql_acchy, 1, 1000));
3350: add_message('FND', 'FLEX-DSQL EXCEPTION');
3351:
3352: -- ========================= FND LOG ===========================
3353: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS - '||SQLERRM);
3354: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3355: -- ========================= FND LOG ===========================
3356:
3351:
3352: -- ========================= FND LOG ===========================
3353: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS - '||SQLERRM);
3354: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3355: -- ========================= FND LOG ===========================
3356:
3357: return(FALSE);
3358:
3359: END glfmah;
3400:
3401: value fnd_profile_option_values.profile_option_value%TYPE;
3402: defined BOOLEAN;
3403:
3404: -- ========================= FND LOG ===========================
3405: l_full_path VARCHAR2(100) := g_path || 'glgfdi.';
3406: -- ========================= FND LOG ===========================
3407:
3408: BEGIN
3402: defined BOOLEAN;
3403:
3404: -- ========================= FND LOG ===========================
3405: l_full_path VARCHAR2(100) := g_path || 'glgfdi.';
3406: -- ========================= FND LOG ===========================
3407:
3408: BEGIN
3409:
3410: -- ========================= FND LOG ===========================
3406: -- ========================= FND LOG ===========================
3407:
3408: BEGIN
3409:
3410: -- ========================= FND LOG ===========================
3411: psa_utils.debug_other_string(g_state_level,l_full_path,' START glgfdi ');
3412: -- ========================= FND LOG ===========================
3413:
3414: -- Check if this is a OGF installation
3408: BEGIN
3409:
3410: -- ========================= FND LOG ===========================
3411: psa_utils.debug_other_string(g_state_level,l_full_path,' START glgfdi ');
3412: -- ========================= FND LOG ===========================
3413:
3414: -- Check if this is a OGF installation
3415:
3416: if industry <> 'G' then
3413:
3414: -- Check if this is a OGF installation
3415:
3416: if industry <> 'G' then
3417: -- ========================= FND LOG ===========================
3418: psa_utils.debug_other_string(g_state_level,l_full_path,' Industry G RETURN -> TRUE');
3419: -- ========================= FND LOG ===========================
3420: return(TRUE);
3421: end if;
3415:
3416: if industry <> 'G' then
3417: -- ========================= FND LOG ===========================
3418: psa_utils.debug_other_string(g_state_level,l_full_path,' Industry G RETURN -> TRUE');
3419: -- ========================= FND LOG ===========================
3420: return(TRUE);
3421: end if;
3422:
3423:
3433:
3434: -- If Reporting Attributes profile option is not set return TRUE
3435:
3436: if not defined then
3437: -- ========================= FND LOG ===========================
3438: psa_utils.debug_other_string(g_state_level,l_full_path,' Reporting Attributes not defined');
3439: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3440: -- ========================= FND LOG ===========================
3441: return(TRUE);
3436: if not defined then
3437: -- ========================= FND LOG ===========================
3438: psa_utils.debug_other_string(g_state_level,l_full_path,' Reporting Attributes not defined');
3439: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3440: -- ========================= FND LOG ===========================
3441: return(TRUE);
3442: end if;
3443:
3444: -- ========================= FND LOG ===========================
3440: -- ========================= FND LOG ===========================
3441: return(TRUE);
3442: end if;
3443:
3444: -- ========================= FND LOG ===========================
3445: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3446: -- ========================= FND LOG ===========================
3447:
3448: if not glfupd(ccid) then
3442: end if;
3443:
3444: -- ========================= FND LOG ===========================
3445: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3446: -- ========================= FND LOG ===========================
3447:
3448: if not glfupd(ccid) then
3449: -- ========================= FND LOG ===========================
3450: psa_utils.debug_other_string(g_state_level,l_full_path,' GLFUPD RETURN -> FALSE');
3445: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3446: -- ========================= FND LOG ===========================
3447:
3448: if not glfupd(ccid) then
3449: -- ========================= FND LOG ===========================
3450: psa_utils.debug_other_string(g_state_level,l_full_path,' GLFUPD RETURN -> FALSE');
3451: -- ========================= FND LOG ===========================
3452: return(FALSE);
3453: end if;
3447:
3448: if not glfupd(ccid) then
3449: -- ========================= FND LOG ===========================
3450: psa_utils.debug_other_string(g_state_level,l_full_path,' GLFUPD RETURN -> FALSE');
3451: -- ========================= FND LOG ===========================
3452: return(FALSE);
3453: end if;
3454:
3455: -- ========================= FND LOG ===========================
3451: -- ========================= FND LOG ===========================
3452: return(FALSE);
3453: end if;
3454:
3455: -- ========================= FND LOG ===========================
3456: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
3457: -- ========================= FND LOG ===========================
3458:
3459: -- repeat for all the summary accounts that have been created
3453: end if;
3454:
3455: -- ========================= FND LOG ===========================
3456: psa_utils.debug_other_string(g_state_level,l_full_path,' num_bc_lgr -> ' || num_bc_lgr);
3457: -- ========================= FND LOG ===========================
3458:
3459: -- repeat for all the summary accounts that have been created
3460: if num_bc_lgr > 0 then
3461:
3460: if num_bc_lgr > 0 then
3461:
3462: for c_SummAcct in SummAcct(dyn_grp_id, min_ccid) loop
3463:
3464: -- ========================= FND LOG ===========================
3465: psa_utils.debug_other_string(g_state_level,l_full_path,' c_SummAcct.ccid -> ' || c_SummAcct.ccid);
3466: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3467: -- ========================= FND LOG ===========================
3468:
3463:
3464: -- ========================= FND LOG ===========================
3465: psa_utils.debug_other_string(g_state_level,l_full_path,' c_SummAcct.ccid -> ' || c_SummAcct.ccid);
3466: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3467: -- ========================= FND LOG ===========================
3468:
3469: if not glfupd(c_SummAcct.ccid) then
3470: -- ========================= FND LOG ===========================
3471: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
3466: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling glfupd ');
3467: -- ========================= FND LOG ===========================
3468:
3469: if not glfupd(c_SummAcct.ccid) then
3470: -- ========================= FND LOG ===========================
3471: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
3472: -- ========================= FND LOG ===========================
3473: goto return_invalid;
3474: end if;
3468:
3469: if not glfupd(c_SummAcct.ccid) then
3470: -- ========================= FND LOG ===========================
3471: psa_utils.debug_other_string(g_state_level,l_full_path,' goto return_invalid');
3472: -- ========================= FND LOG ===========================
3473: goto return_invalid;
3474: end if;
3475:
3476: end loop;
3476: end loop;
3477:
3478: end if;
3479:
3480: -- ========================= FND LOG ===========================
3481: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3482: -- ========================= FND LOG ===========================
3483:
3484: return(TRUE);
3478: end if;
3479:
3480: -- ========================= FND LOG ===========================
3481: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3482: -- ========================= FND LOG ===========================
3483:
3484: return(TRUE);
3485:
3486: <
3483:
3484: return(TRUE);
3485:
3486: <
3487: -- ========================= FND LOG ===========================
3488: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
3489: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3490: -- ========================= FND LOG ===========================
3491: return(FALSE);
3486: <
3487: -- ========================= FND LOG ===========================
3488: psa_utils.debug_other_string(g_state_level,l_full_path,' LABEL - return_invalid');
3489: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3490: -- ========================= FND LOG ===========================
3491: return(FALSE);
3492:
3493:
3494: EXCEPTION
3496: WHEN OTHERS THEN
3497:
3498: message_token('MSG', 'glgfdi() exception:' || SQLERRM);
3499: add_message('FND', 'FLEX-SSV EXCEPTION');
3500: -- ========================= FND LOG ===========================
3501: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHER GLGFDI -' || SQLERRM);
3502: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3503: -- ========================= FND LOG ===========================
3504: return(FALSE);
3499: add_message('FND', 'FLEX-SSV EXCEPTION');
3500: -- ========================= FND LOG ===========================
3501: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHER GLGFDI -' || SQLERRM);
3502: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3503: -- ========================= FND LOG ===========================
3504: return(FALSE);
3505:
3506: END glgfdi;
3507:
3566: vs_column_name VARCHAR2(30);
3567: vs_table_name VARCHAR2(30);
3568:
3569:
3570: -- ========================= FND LOG ===========================
3571: l_full_path VARCHAR2(100) := g_path || 'glfupd.';
3572: -- ========================= FND LOG ===========================
3573:
3574: BEGIN
3568:
3569:
3570: -- ========================= FND LOG ===========================
3571: l_full_path VARCHAR2(100) := g_path || 'glfupd.';
3572: -- ========================= FND LOG ===========================
3573:
3574: BEGIN
3575:
3576: -- ========================= FND LOG ===========================
3572: -- ========================= FND LOG ===========================
3573:
3574: BEGIN
3575:
3576: -- ========================= FND LOG ===========================
3577: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfupd ');
3578: -- ========================= FND LOG ===========================
3579:
3580: update_cl := 'UPDATE gl_code_combinations glcc SET ';
3574: BEGIN
3575:
3576: -- ========================= FND LOG ===========================
3577: psa_utils.debug_other_string(g_state_level,l_full_path,' START glfupd ');
3578: -- ========================= FND LOG ===========================
3579:
3580: update_cl := 'UPDATE gl_code_combinations glcc SET ';
3581:
3582: for c_RptAttr in RptAttr(coaid) loop
3646: 'last_update_date = sysdate, ' ||
3647: 'last_updated_by = ' || user_id ||
3648: ' where glcc.code_combination_id = ' || ccid;
3649:
3650: -- ========================= FND LOG ===========================
3651: psa_utils.debug_other_string(g_state_level,l_full_path,' update_cl -> ' || SUBSTR(update_cl,1,3000));
3652: psa_utils.debug_other_string(g_state_level,l_full_path,' update_cl -> ' || SUBSTR(update_cl,3000,6000));
3653: -- ========================= FND LOG ===========================
3654:
3649:
3650: -- ========================= FND LOG ===========================
3651: psa_utils.debug_other_string(g_state_level,l_full_path,' update_cl -> ' || SUBSTR(update_cl,1,3000));
3652: psa_utils.debug_other_string(g_state_level,l_full_path,' update_cl -> ' || SUBSTR(update_cl,3000,6000));
3653: -- ========================= FND LOG ===========================
3654:
3655: if dsql_execute(update_cl) < 0 then
3656: -- ========================= FND LOG ===========================
3657: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3652: psa_utils.debug_other_string(g_state_level,l_full_path,' update_cl -> ' || SUBSTR(update_cl,3000,6000));
3653: -- ========================= FND LOG ===========================
3654:
3655: if dsql_execute(update_cl) < 0 then
3656: -- ========================= FND LOG ===========================
3657: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3658: -- ========================= FND LOG ===========================
3659: return(FALSE);
3660: else
3654:
3655: if dsql_execute(update_cl) < 0 then
3656: -- ========================= FND LOG ===========================
3657: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3658: -- ========================= FND LOG ===========================
3659: return(FALSE);
3660: else
3661: -- ========================= FND LOG ===========================
3662: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3657: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
3658: -- ========================= FND LOG ===========================
3659: return(FALSE);
3660: else
3661: -- ========================= FND LOG ===========================
3662: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3663: -- ========================= FND LOG ===========================
3664: return(TRUE);
3665: end if;
3659: return(FALSE);
3660: else
3661: -- ========================= FND LOG ===========================
3662: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> TRUE');
3663: -- ========================= FND LOG ===========================
3664: return(TRUE);
3665: end if;
3666:
3667:
3670: WHEN OTHERS THEN
3671:
3672: message_token('MSG', 'glfupd() exception:' || SQLERRM);
3673: add_message('FND', 'FLEX-SSV EXCEPTION');
3674: -- ========================= FND LOG ===========================
3675: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFUPD - ' || SQLERRM);
3676: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN FALSE');
3677: -- ========================= FND LOG ===========================
3678: return(FALSE);
3673: add_message('FND', 'FLEX-SSV EXCEPTION');
3674: -- ========================= FND LOG ===========================
3675: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION WHEN OTHERS GLFUPD - ' || SQLERRM);
3676: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN FALSE');
3677: -- ========================= FND LOG ===========================
3678: return(FALSE);
3679:
3680: END glfupd;
3681: