132: l_return_flag VARCHAR2(1);
133:
134: BEGIN
135:
136: --- INV_ORGHIERARCHY_PVT.Log
137: --- (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
138: --- ,'> GET_CLOSED_STATUS for acct_period ' || p_acct_period_id
139: --- || ' Org Name:' || p_org
140: --- );
133:
134: BEGIN
135:
136: --- INV_ORGHIERARCHY_PVT.Log
137: --- (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
138: --- ,'> GET_CLOSED_STATUS for acct_period ' || p_acct_period_id
139: --- || ' Org Name:' || p_org
140: --- );
141:
178: l_return_flag := 'N' ;
179: END IF;
180:
181:
182: --- INV_ORGHIERARCHY_PVT.Log
183: --- (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
184: --- ,'< GET_CLOSED_STATUS with flag ' || l_return_flag
185: --- );
186:
179: END IF;
180:
181:
182: --- INV_ORGHIERARCHY_PVT.Log
183: --- (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
184: --- ,'< GET_CLOSED_STATUS with flag ' || l_return_flag
185: --- );
186:
187: RETURN l_return_flag;
192: Error/Exception logging should not depend on
193: FND Debug Enabled profile otpion. Bug: 3555234
194: IF G_DEBUG = 'Y' THEN
195: */
196: INV_ORGHIERARCHY_PVT.Log( INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION
197: , 'SQLERRM '|| SQLERRM);
198: --END IF;
199:
200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
234: -- Loop through the PL/SQL table and verify the
235: -- status of the programs that are still not
236: -- COMPLETE status
237:
238: ---INV_ORGHIERARCHY_PVT.Log
239: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
240: --- ,'> GET_OPEN_REQUESTS_COUNT '
241: ---);
242:
235: -- status of the programs that are still not
236: -- COMPLETE status
237:
238: ---INV_ORGHIERARCHY_PVT.Log
239: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
240: --- ,'> GET_OPEN_REQUESTS_COUNT '
241: ---);
242:
243: FOR I IN 1 .. G_LOG_REPORT_TABLE.COUNT
246: THEN
247: IF NVL(G_LOG_REPORT_TABLE(I).request_status , 'X')
248: <> 'COMPLETE'
249: THEN
250: --- INV_ORGHIERARCHY_PVT.Log
251: --- (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
252: --- ,' Checking request status: '||
253: --- G_LOG_REPORT_TABLE(I).request_id
254: --- );
247: IF NVL(G_LOG_REPORT_TABLE(I).request_status , 'X')
248: <> 'COMPLETE'
249: THEN
250: --- INV_ORGHIERARCHY_PVT.Log
251: --- (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
252: --- ,' Checking request status: '||
253: --- G_LOG_REPORT_TABLE(I).request_id
254: --- );
255:
271: l_request_status := 'COMPLETE';
272: END IF;
273:
274:
275: -- INV_ORGHIERARCHY_PVT.Log
276: -- (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
277: -- ,' Out with status: '|| l_request_status
278: -- );
279:
272: END IF;
273:
274:
275: -- INV_ORGHIERARCHY_PVT.Log
276: -- (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
277: -- ,' Out with status: '|| l_request_status
278: -- );
279:
280: IF l_request_status = 'COMPLETE'
312: G_LOG_REPORT_TABLE(I).status := 'Closed' ;
313: END IF;
314: END LOOP ;
315:
316: ---INV_ORGHIERARCHY_PVT.Log
317: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
318: ---,'< GET_OPEN_REQUESTS_COUNT with count '|| l_count
319: ---);
320:
313: END IF;
314: END LOOP ;
315:
316: ---INV_ORGHIERARCHY_PVT.Log
317: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
318: ---,'< GET_OPEN_REQUESTS_COUNT with count '|| l_count
319: ---);
320:
321: RETURN l_count ;
326: Error/Exception logging should not depend on
327: FND Debug Enabled profile otpion. Bug: 3555234
328: IF G_DEBUG = 'Y' THEN
329: */
330: INV_ORGHIERARCHY_PVT.Log( INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION
331: , 'SQLERRM '|| SQLERRM) ;
332: --END IF;
333:
334: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
367: I NUMBER ;
368:
369: BEGIN
370:
371: ---INV_ORGHIERARCHY_PVT.Log
372: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
373: --- ,'> ADD_ITEM for period ' || p_period
374: ---);
375:
368:
369: BEGIN
370:
371: ---INV_ORGHIERARCHY_PVT.Log
372: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
373: --- ,'> ADD_ITEM for period ' || p_period
374: ---);
375:
376: I := NVL(G_LOG_REPORT_TABLE.COUNT, 0 ) + 1 ;
374: ---);
375:
376: I := NVL(G_LOG_REPORT_TABLE.COUNT, 0 ) + 1 ;
377:
378: ---INV_ORGHIERARCHY_PVT.Log
379: ---(INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
380: --- ,' No of records in the report table = '|| i
381: ---);
382:
375:
376: I := NVL(G_LOG_REPORT_TABLE.COUNT, 0 ) + 1 ;
377:
378: ---INV_ORGHIERARCHY_PVT.Log
379: ---(INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
380: --- ,' No of records in the report table = '|| i
381: ---);
382:
383:
391:
392: I := NULL ;
393:
394:
395: ---INV_ORGHIERARCHY_PVT.Log
396: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
397: --- ,'< ADD_ITEM '
398: ---);
399:
392: I := NULL ;
393:
394:
395: ---INV_ORGHIERARCHY_PVT.Log
396: ---(INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
397: --- ,'< ADD_ITEM '
398: ---);
399:
400: END ADD_ITEM ;
415: /* Variable initialization is shifted from declaration section. It was done during bug:3638081 fix to resolve GSCC warning */
416: l_space := ' ' ;
417: IF G_DEBUG = 'Y' THEN
418:
419: INV_ORGHIERARCHY_PVT.Log
420: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
421: ,'> PRINT_REPORT '
422: );
423:
416: l_space := ' ' ;
417: IF G_DEBUG = 'Y' THEN
418:
419: INV_ORGHIERARCHY_PVT.Log
420: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
421: ,'> PRINT_REPORT '
422: );
423:
424: INV_ORGHIERARCHY_PVT.Log
420: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
421: ,'> PRINT_REPORT '
422: );
423:
424: INV_ORGHIERARCHY_PVT.Log
425: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
426: ,' '
427: );
428: END IF;
421: ,'> PRINT_REPORT '
422: );
423:
424: INV_ORGHIERARCHY_PVT.Log
425: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
426: ,' '
427: );
428: END IF;
429:
431: Following code block is modified to change log level. Replaced
432: G_LOG_STATEMENT wtih G_LOG_PRINT becasue basic report will be printed
433: irrespective of FND Debug Enabled profile option.
434: */
435: INV_ORGHIERARCHY_PVT.Log
436: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
437: ,' '
438: );
439:
432: G_LOG_STATEMENT wtih G_LOG_PRINT becasue basic report will be printed
433: irrespective of FND Debug Enabled profile option.
434: */
435: INV_ORGHIERARCHY_PVT.Log
436: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
437: ,' '
438: );
439:
440: INV_ORGHIERARCHY_PVT.Log
436: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
437: ,' '
438: );
439:
440: INV_ORGHIERARCHY_PVT.Log
441: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
442: ,'************** Begin Report **************************** '
443: );
444:
437: ,' '
438: );
439:
440: INV_ORGHIERARCHY_PVT.Log
441: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
442: ,'************** Begin Report **************************** '
443: );
444:
445: /* Bug 9314796 added logic to check if G_LOG_REPORT_TABLE is empty */
448: FOR I IN G_LOG_REPORT_TABLE.FIRST .. G_LOG_REPORT_TABLE.LAST
449: LOOP
450: IF G_LOG_REPORT_TABLE(I).org IS NOT NULL
451: THEN
452: INV_ORGHIERARCHY_PVT.Log
453: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
454: ,' '
455: );
456:
449: LOOP
450: IF G_LOG_REPORT_TABLE(I).org IS NOT NULL
451: THEN
452: INV_ORGHIERARCHY_PVT.Log
453: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
454: ,' '
455: );
456:
457: INV_ORGHIERARCHY_PVT.Log
453: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
454: ,' '
455: );
456:
457: INV_ORGHIERARCHY_PVT.Log
458: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
459: ,'.................................................. '
460: );
461:
454: ,' '
455: );
456:
457: INV_ORGHIERARCHY_PVT.Log
458: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
459: ,'.................................................. '
460: );
461:
462: INV_ORGHIERARCHY_PVT.Log
458: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
459: ,'.................................................. '
460: );
461:
462: INV_ORGHIERARCHY_PVT.Log
463: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
464: ,'ORGANIZATION : ' || G_LOG_REPORT_TABLE(I).org
465: );
466:
459: ,'.................................................. '
460: );
461:
462: INV_ORGHIERARCHY_PVT.Log
463: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
464: ,'ORGANIZATION : ' || G_LOG_REPORT_TABLE(I).org
465: );
466:
467: INV_ORGHIERARCHY_PVT.Log
463: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
464: ,'ORGANIZATION : ' || G_LOG_REPORT_TABLE(I).org
465: );
466:
467: INV_ORGHIERARCHY_PVT.Log
468: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
469: ,' '
470: );
471:
464: ,'ORGANIZATION : ' || G_LOG_REPORT_TABLE(I).org
465: );
466:
467: INV_ORGHIERARCHY_PVT.Log
468: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
469: ,' '
470: );
471:
472: ELSE
469: ,' '
470: );
471:
472: ELSE
473: INV_ORGHIERARCHY_PVT.Log
474: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
475: , G_LOG_REPORT_TABLE(I).period || l_space ||
476: G_LOG_REPORT_TABLE(I).status
477: || l_space || G_LOG_REPORT_TABLE(I).reason
470: );
471:
472: ELSE
473: INV_ORGHIERARCHY_PVT.Log
474: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
475: , G_LOG_REPORT_TABLE(I).period || l_space ||
476: G_LOG_REPORT_TABLE(I).status
477: || l_space || G_LOG_REPORT_TABLE(I).reason
478: );
481: END LOOP;
482:
483: end if;
484:
485: INV_ORGHIERARCHY_PVT.Log
486: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
487: ,' '
488: );
489:
482:
483: end if;
484:
485: INV_ORGHIERARCHY_PVT.Log
486: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
487: ,' '
488: );
489:
490: INV_ORGHIERARCHY_PVT.Log
486: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
487: ,' '
488: );
489:
490: INV_ORGHIERARCHY_PVT.Log
491: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
492: ,'************** End Report **************************** '
493: );
494:
487: ,' '
488: );
489:
490: INV_ORGHIERARCHY_PVT.Log
491: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
492: ,'************** End Report **************************** '
493: );
494:
495: INV_ORGHIERARCHY_PVT.Log
491: (INV_ORGHIERARCHY_PVT.G_LOG_PRINT
492: ,'************** End Report **************************** '
493: );
494:
495: INV_ORGHIERARCHY_PVT.Log
496: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
497: ,' '
498: );
499:
492: ,'************** End Report **************************** '
493: );
494:
495: INV_ORGHIERARCHY_PVT.Log
496: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
497: ,' '
498: );
499:
500: IF G_DEBUG = 'Y' THEN
498: );
499:
500: IF G_DEBUG = 'Y' THEN
501:
502: INV_ORGHIERARCHY_PVT.Log
503: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
504: ,'< PRINT_REPORT '
505: );
506:
499:
500: IF G_DEBUG = 'Y' THEN
501:
502: INV_ORGHIERARCHY_PVT.Log
503: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
504: ,'< PRINT_REPORT '
505: );
506:
507: END IF;
529:
530: BEGIN
531:
532: IF G_DEBUG = 'Y' THEN
533: INV_ORGHIERARCHY_PVT.Log
534: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
535: ,'> GET_MAX_OPEN_PERIOD '
536: );
537: END IF;
530: BEGIN
531:
532: IF G_DEBUG = 'Y' THEN
533: INV_ORGHIERARCHY_PVT.Log
534: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
535: ,'> GET_MAX_OPEN_PERIOD '
536: );
537: END IF;
538:
550: AND orgp.period_set_name = p_period_set_name
551: AND orgp.open_flag = 'Y' ;
552:
553: IF G_DEBUG = 'Y' THEN
554: INV_ORGHIERARCHY_PVT.Log
555: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
556: ,' Max Open period num ' || l_max_period_id
557: );
558: END IF;
551: AND orgp.open_flag = 'Y' ;
552:
553: IF G_DEBUG = 'Y' THEN
554: INV_ORGHIERARCHY_PVT.Log
555: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
556: ,' Max Open period num ' || l_max_period_id
557: );
558: END IF;
559:
562: THEN
563: l_max_period_id := NULL;
564:
565: IF G_DEBUG = 'Y' THEN
566: INV_ORGHIERARCHY_PVT.Log
567: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
568: ,' Open period not found '
569: );
570: END IF;
563: l_max_period_id := NULL;
564:
565: IF G_DEBUG = 'Y' THEN
566: INV_ORGHIERARCHY_PVT.Log
567: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
568: ,' Open period not found '
569: );
570: END IF;
571: END ;
590: AND orgp.acct_period_id = l_max_period_id
591: AND orgp.organization_id = p_org_id;
592:
593: IF G_DEBUG = 'Y' THEN
594: INV_ORGHIERARCHY_PVT.Log
595: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
596: ,' gl period found '
597: );
598: END IF;
591: AND orgp.organization_id = p_org_id;
592:
593: IF G_DEBUG = 'Y' THEN
594: INV_ORGHIERARCHY_PVT.Log
595: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
596: ,' gl period found '
597: );
598: END IF;
599:
600: EXCEPTION
601: WHEN NO_DATA_FOUND THEN
602:
603: IF G_DEBUG = 'Y' THEN
604: INV_ORGHIERARCHY_PVT.Log
605: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
606: ,' gl period not found '
607: );
608: END IF;
601: WHEN NO_DATA_FOUND THEN
602:
603: IF G_DEBUG = 'Y' THEN
604: INV_ORGHIERARCHY_PVT.Log
605: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
606: ,' gl period not found '
607: );
608: END IF;
609:
614:
615: ELSE
616:
617: IF G_DEBUG = 'Y' THEN
618: INV_ORGHIERARCHY_PVT.Log
619: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
620: ,' gl period not selcted '
621: );
622: END IF;
615: ELSE
616:
617: IF G_DEBUG = 'Y' THEN
618: INV_ORGHIERARCHY_PVT.Log
619: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
620: ,' gl period not selcted '
621: );
622: END IF;
623: x_period_name := NULL;
626:
627: END IF;
628:
629: IF G_DEBUG = 'Y' THEN
630: INV_ORGHIERARCHY_PVT.Log
631: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
632: ,'< GET_MAX_OPEN_PERIOD '
633: );
634: END IF;
627: END IF;
628:
629: IF G_DEBUG = 'Y' THEN
630: INV_ORGHIERARCHY_PVT.Log
631: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
632: ,'< GET_MAX_OPEN_PERIOD '
633: );
634: END IF;
635:
640: Error/Exception logging should not depend on
641: FND Debug Enabled profile otpion. Bug: 3555234
642: IF G_DEBUG = 'Y' THEN
643: */
644: INV_ORGHIERARCHY_PVT.Log( INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION
645: , 'SQLERRM '|| SQLERRM) ;
646: --END IF;
647:
648: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
679:
680: BEGIN
681:
682: IF G_DEBUG = 'Y' THEN
683: INV_ORGHIERARCHY_PVT.Log
684: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
685: ,'> GET_MIN_OPEN_PERIOD'
686: );
687: END IF;
680: BEGIN
681:
682: IF G_DEBUG = 'Y' THEN
683: INV_ORGHIERARCHY_PVT.Log
684: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
685: ,'> GET_MIN_OPEN_PERIOD'
686: );
687: END IF;
688:
696: WHERE orgp.organization_id = p_org_id
697: AND orgp.period_set_name = p_period_set_name ;
698:
699: IF G_DEBUG = 'Y' THEN
700: INV_ORGHIERARCHY_PVT.Log
701: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
702: ,' Min Open period num ' || l_min_period_id
703: );
704: END IF;
697: AND orgp.period_set_name = p_period_set_name ;
698:
699: IF G_DEBUG = 'Y' THEN
700: INV_ORGHIERARCHY_PVT.Log
701: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
702: ,' Min Open period num ' || l_min_period_id
703: );
704: END IF;
705:
707: WHEN NO_DATA_FOUND THEN
708: l_min_period_id := NULL;
709:
710: IF G_DEBUG = 'Y' THEN
711: INV_ORGHIERARCHY_PVT.Log
712: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
713: ,' Open period not found '
714: );
715: END IF;
708: l_min_period_id := NULL;
709:
710: IF G_DEBUG = 'Y' THEN
711: INV_ORGHIERARCHY_PVT.Log
712: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
713: ,' Open period not found '
714: );
715: END IF;
716: END ;
735: AND orgp.acct_period_id = l_min_period_id
736: AND orgp.organization_id = p_org_id;
737:
738: IF G_DEBUG = 'Y' THEN
739: INV_ORGHIERARCHY_PVT.Log
740: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
741: ,' gl period found '
742: );
743: END IF;
736: AND orgp.organization_id = p_org_id;
737:
738: IF G_DEBUG = 'Y' THEN
739: INV_ORGHIERARCHY_PVT.Log
740: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
741: ,' gl period found '
742: );
743: END IF;
744:
745: EXCEPTION
746: WHEN NO_DATA_FOUND THEN
747:
748: IF G_DEBUG = 'Y' THEN
749: INV_ORGHIERARCHY_PVT.Log
750: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
751: ,' gl period not found '
752: );
753: END IF;
746: WHEN NO_DATA_FOUND THEN
747:
748: IF G_DEBUG = 'Y' THEN
749: INV_ORGHIERARCHY_PVT.Log
750: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
751: ,' gl period not found '
752: );
753: END IF;
754: x_period_name := NULL;
757: END ;
758:
759: ELSE
760: IF G_DEBUG = 'Y' THEN
761: INV_ORGHIERARCHY_PVT.Log
762: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
763: ,' gl period not selcted '
764: );
765: END IF;
758:
759: ELSE
760: IF G_DEBUG = 'Y' THEN
761: INV_ORGHIERARCHY_PVT.Log
762: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
763: ,' gl period not selcted '
764: );
765: END IF;
766: x_period_name := NULL;
770: END IF;
771:
772:
773: IF G_DEBUG = 'Y' THEN
774: INV_ORGHIERARCHY_PVT.Log
775: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
776: ,'< GET_MIN_OPEN_PERIOD '
777: );
778: END IF;
771:
772:
773: IF G_DEBUG = 'Y' THEN
774: INV_ORGHIERARCHY_PVT.Log
775: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
776: ,'< GET_MIN_OPEN_PERIOD '
777: );
778: END IF;
779:
783: Error/Exception logging should not depend on
784: FND Debug Enabled profile otpion. Bug: 3555234
785: IF G_DEBUG = 'Y' THEN
786: */
787: INV_ORGHIERARCHY_PVT.Log( INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION
788: , 'SQLERRM '|| SQLERRM) ;
789: --END IF;
790:
791: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
822: , p_requests_count IN NUMBER
823: )
824: IS
825:
826: l_org_code_list INV_ORGHIERARCHY_PVT.OrgID_tbl_type;
827:
828: l_orgid hr_organization_units.organization_id%TYPE;
829: l_org_name VARCHAR2(240) := NULL;
830:
1004: l_wip_indust VARCHAR2(10);
1005: BEGIN
1006:
1007: IF G_DEBUG = 'Y' THEN
1008: INV_ORGHIERARCHY_PVT.Log
1009: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
1010: ,'> INV_MGD_PRD_CONTROL_MEDIATOR.Period_Control '
1011: );
1012: END IF;
1005: BEGIN
1006:
1007: IF G_DEBUG = 'Y' THEN
1008: INV_ORGHIERARCHY_PVT.Log
1009: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
1010: ,'> INV_MGD_PRD_CONTROL_MEDIATOR.Period_Control '
1011: );
1012: END IF;
1013: -- Following validation block which was introduced during bug 3904824
1056: l_requests_count := p_requests_count ;
1057:
1058: x_retcode := RETCODE_SUCCESS;
1059:
1060: INV_ORGHIERARCHY_PVT.get_organization_List (
1061: p_hierarchy_id => p_org_hierarchy_id
1062: , p_origin_org_id => p_org_hierarchy_origin
1063: , x_org_id_tbl => l_org_code_list
1064: , p_include_origin => 'Y'
1064: , p_include_origin => 'Y'
1065: );
1066:
1067: IF G_DEBUG = 'Y' THEN
1068: INV_ORGHIERARCHY_PVT.Log
1069: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1070: ,' Out of Org List capture with count '|| l_org_code_list.COUNT
1071: );
1072: END IF;
1065: );
1066:
1067: IF G_DEBUG = 'Y' THEN
1068: INV_ORGHIERARCHY_PVT.Log
1069: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1070: ,' Out of Org List capture with count '|| l_org_code_list.COUNT
1071: );
1072: END IF;
1073:
1072: END IF;
1073:
1074: -- Bug : 3296392 - Validate for the same Calendar of all orgs in hierarchy
1075:
1076: l_property_flag := INV_ORGHIERARCHY_PVT.
1077: validate_property(l_org_code_list, 'CALENDAR');
1078:
1079: IF G_DEBUG = 'Y' THEN
1080: INV_ORGHIERARCHY_PVT.Log
1076: l_property_flag := INV_ORGHIERARCHY_PVT.
1077: validate_property(l_org_code_list, 'CALENDAR');
1078:
1079: IF G_DEBUG = 'Y' THEN
1080: INV_ORGHIERARCHY_PVT.Log
1081: ( INV_ORGHIERARCHY_PVT.G_LOG_EVENT
1082: ,'Property Flag:' || l_property_flag );
1083: END IF;
1084:
1077: validate_property(l_org_code_list, 'CALENDAR');
1078:
1079: IF G_DEBUG = 'Y' THEN
1080: INV_ORGHIERARCHY_PVT.Log
1081: ( INV_ORGHIERARCHY_PVT.G_LOG_EVENT
1082: ,'Property Flag:' || l_property_flag );
1083: END IF;
1084:
1085: IF l_property_flag = 'N' THEN
1107:
1108: END IF;
1109: -- Bug : 3296392 - Validate for the same ChartOfAccounts of all orgs in hierarchy
1110:
1111: l_property_flag := INV_ORGHIERARCHY_PVT.
1112: validate_property(l_org_code_list, 'CHART_OF_ACCOUNTS');
1113:
1114: IF G_DEBUG = 'Y' THEN
1115: INV_ORGHIERARCHY_PVT.Log
1111: l_property_flag := INV_ORGHIERARCHY_PVT.
1112: validate_property(l_org_code_list, 'CHART_OF_ACCOUNTS');
1113:
1114: IF G_DEBUG = 'Y' THEN
1115: INV_ORGHIERARCHY_PVT.Log
1116: ( INV_ORGHIERARCHY_PVT.G_LOG_EVENT
1117: ,'Property Flag:' || l_property_flag );
1118: END IF;
1119:
1112: validate_property(l_org_code_list, 'CHART_OF_ACCOUNTS');
1113:
1114: IF G_DEBUG = 'Y' THEN
1115: INV_ORGHIERARCHY_PVT.Log
1116: ( INV_ORGHIERARCHY_PVT.G_LOG_EVENT
1117: ,'Property Flag:' || l_property_flag );
1118: END IF;
1119:
1120: IF l_property_flag = 'N' THEN
1145:
1146:
1147:
1148: IF G_DEBUG = 'Y' THEN
1149: INV_ORGHIERARCHY_PVT.Log
1150: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1151: ,' '
1152: );
1153:
1146:
1147:
1148: IF G_DEBUG = 'Y' THEN
1149: INV_ORGHIERARCHY_PVT.Log
1150: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1151: ,' '
1152: );
1153:
1154: INV_ORGHIERARCHY_PVT.Log
1150: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1151: ,' '
1152: );
1153:
1154: INV_ORGHIERARCHY_PVT.Log
1155: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1156: ,'*********************** Start of Report *********************** '
1157: );
1158:
1151: ,' '
1152: );
1153:
1154: INV_ORGHIERARCHY_PVT.Log
1155: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1156: ,'*********************** Start of Report *********************** '
1157: );
1158:
1159: INV_ORGHIERARCHY_PVT.Log
1155: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1156: ,'*********************** Start of Report *********************** '
1157: );
1158:
1159: INV_ORGHIERARCHY_PVT.Log
1160: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1161: ,' '
1162: );
1163:
1156: ,'*********************** Start of Report *********************** '
1157: );
1158:
1159: INV_ORGHIERARCHY_PVT.Log
1160: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1161: ,' '
1162: );
1163:
1164: INV_ORGHIERARCHY_PVT.Log
1160: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1161: ,' '
1162: );
1163:
1164: INV_ORGHIERARCHY_PVT.Log
1165: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1166: ,' ------------------- Running for Parameters --------------- '
1167: );
1168:
1161: ,' '
1162: );
1163:
1164: INV_ORGHIERARCHY_PVT.Log
1165: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1166: ,' ------------------- Running for Parameters --------------- '
1167: );
1168:
1169: INV_ORGHIERARCHY_PVT.Log
1165: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1166: ,' ------------------- Running for Parameters --------------- '
1167: );
1168:
1169: INV_ORGHIERARCHY_PVT.Log
1170: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1171: ,' p_org_hierarchy_origin '
1172: || p_org_hierarchy_origin
1173: );
1166: ,' ------------------- Running for Parameters --------------- '
1167: );
1168:
1169: INV_ORGHIERARCHY_PVT.Log
1170: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1171: ,' p_org_hierarchy_origin '
1172: || p_org_hierarchy_origin
1173: );
1174:
1171: ,' p_org_hierarchy_origin '
1172: || p_org_hierarchy_origin
1173: );
1174:
1175: INV_ORGHIERARCHY_PVT.Log
1176: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1177: ,' p_org_hierarchy_id '
1178: || p_org_hierarchy_id
1179: );
1172: || p_org_hierarchy_origin
1173: );
1174:
1175: INV_ORGHIERARCHY_PVT.Log
1176: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1177: ,' p_org_hierarchy_id '
1178: || p_org_hierarchy_id
1179: );
1180:
1177: ,' p_org_hierarchy_id '
1178: || p_org_hierarchy_id
1179: );
1180:
1181: INV_ORGHIERARCHY_PVT.Log
1182: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1183: ,' p_close_period_name '
1184: || p_close_period_name
1185: );
1178: || p_org_hierarchy_id
1179: );
1180:
1181: INV_ORGHIERARCHY_PVT.Log
1182: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1183: ,' p_close_period_name '
1184: || p_close_period_name
1185: );
1186:
1183: ,' p_close_period_name '
1184: || p_close_period_name
1185: );
1186:
1187: INV_ORGHIERARCHY_PVT.Log
1188: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1189: ,' p_open_period_count '
1190: || p_open_period_count
1191: );
1184: || p_close_period_name
1185: );
1186:
1187: INV_ORGHIERARCHY_PVT.Log
1188: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1189: ,' p_open_period_count '
1190: || p_open_period_count
1191: );
1192:
1189: ,' p_open_period_count '
1190: || p_open_period_count
1191: );
1192:
1193: INV_ORGHIERARCHY_PVT.Log
1194: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1195: ,' p_open_or_close_flag '
1196: || p_open_or_close_flag
1197: );
1190: || p_open_period_count
1191: );
1192:
1193: INV_ORGHIERARCHY_PVT.Log
1194: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1195: ,' p_open_or_close_flag '
1196: || p_open_or_close_flag
1197: );
1198:
1195: ,' p_open_or_close_flag '
1196: || p_open_or_close_flag
1197: );
1198:
1199: INV_ORGHIERARCHY_PVT.Log
1200: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1201: ,' p_requests_count '
1202: || p_requests_count
1203: );
1196: || p_open_or_close_flag
1197: );
1198:
1199: INV_ORGHIERARCHY_PVT.Log
1200: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1201: ,' p_requests_count '
1202: || p_requests_count
1203: );
1204:
1201: ,' p_requests_count '
1202: || p_requests_count
1203: );
1204:
1205: INV_ORGHIERARCHY_PVT.Log
1206: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1207: ,' '
1208: );
1209:
1202: || p_requests_count
1203: );
1204:
1205: INV_ORGHIERARCHY_PVT.Log
1206: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1207: ,' '
1208: );
1209:
1210: INV_ORGHIERARCHY_PVT.Log
1206: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1207: ,' '
1208: );
1209:
1210: INV_ORGHIERARCHY_PVT.Log
1211: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1212: ,' --------------- End Parameters ----------------------------------------- '
1213: );
1214:
1207: ,' '
1208: );
1209:
1210: INV_ORGHIERARCHY_PVT.Log
1211: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1212: ,' --------------- End Parameters ----------------------------------------- '
1213: );
1214:
1215: INV_ORGHIERARCHY_PVT.Log
1211: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1212: ,' --------------- End Parameters ----------------------------------------- '
1213: );
1214:
1215: INV_ORGHIERARCHY_PVT.Log
1216: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1217: ,' '
1218: );
1219:
1212: ,' --------------- End Parameters ----------------------------------------- '
1213: );
1214:
1215: INV_ORGHIERARCHY_PVT.Log
1216: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1217: ,' '
1218: );
1219:
1220: INV_ORGHIERARCHY_PVT.Log
1216: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1217: ,' '
1218: );
1219:
1220: INV_ORGHIERARCHY_PVT.Log
1221: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1222: ,' ............................................................ '
1223: );
1224: END IF;
1217: ,' '
1218: );
1219:
1220: INV_ORGHIERARCHY_PVT.Log
1221: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1222: ,' ............................................................ '
1223: );
1224: END IF;
1225:
1265: AND UPPER( HOI.ORG_INFORMATION_CONTEXT || '') = 'ACCOUNTING INFORMATION'
1266: AND TO_NUMBER(HOI.ORG_INFORMATION1) = glstb.SET_OF_BOOKS_ID ;
1267:
1268: IF G_DEBUG = 'Y' THEN
1269: INV_ORGHIERARCHY_PVT.Log
1270: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1271: ,' FOUND: Period Set name '
1272: || l_period_set_name );
1273:
1266: AND TO_NUMBER(HOI.ORG_INFORMATION1) = glstb.SET_OF_BOOKS_ID ;
1267:
1268: IF G_DEBUG = 'Y' THEN
1269: INV_ORGHIERARCHY_PVT.Log
1270: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1271: ,' FOUND: Period Set name '
1272: || l_period_set_name );
1273:
1274: INV_ORGHIERARCHY_PVT.Log
1270: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1271: ,' FOUND: Period Set name '
1272: || l_period_set_name );
1273:
1274: INV_ORGHIERARCHY_PVT.Log
1275: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1276: ,' FOUND: Period Type '
1277: || l_sob_period_type );
1278:
1271: ,' FOUND: Period Set name '
1272: || l_period_set_name );
1273:
1274: INV_ORGHIERARCHY_PVT.Log
1275: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1276: ,' FOUND: Period Type '
1277: || l_sob_period_type );
1278:
1279: INV_ORGHIERARCHY_PVT.Log
1275: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1276: ,' FOUND: Period Type '
1277: || l_sob_period_type );
1278:
1279: INV_ORGHIERARCHY_PVT.Log
1280: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1281: ,' Calling GET_MAX_OPEN_PERIOD ' );
1282: END IF;
1283:
1276: ,' FOUND: Period Type '
1277: || l_sob_period_type );
1278:
1279: INV_ORGHIERARCHY_PVT.Log
1280: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1281: ,' Calling GET_MAX_OPEN_PERIOD ' );
1282: END IF;
1283:
1284: GET_MAX_OPEN_PERIOD
1290: , x_period_name => l_final_period_name
1291: );
1292:
1293: IF G_DEBUG = 'Y' THEN
1294: INV_ORGHIERARCHY_PVT.Log
1295: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1296: ,' Out of GET_MAX_OPEN_PERIOD with period name '|| l_final_period_name );
1297: END IF;
1298:
1291: );
1292:
1293: IF G_DEBUG = 'Y' THEN
1294: INV_ORGHIERARCHY_PVT.Log
1295: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1296: ,' Out of GET_MAX_OPEN_PERIOD with period name '|| l_final_period_name );
1297: END IF;
1298:
1299: EXCEPTION
1300: WHEN NO_DATA_FOUND
1301: THEN
1302:
1303: IF G_DEBUG = 'Y' THEN
1304: INV_ORGHIERARCHY_PVT.Log
1305: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1306: ,' NO_DATA_FOUND: Period Set name not found for Hierarchy Origin '
1307: || p_org_hierarchy_origin
1308: );
1301: THEN
1302:
1303: IF G_DEBUG = 'Y' THEN
1304: INV_ORGHIERARCHY_PVT.Log
1305: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1306: ,' NO_DATA_FOUND: Period Set name not found for Hierarchy Origin '
1307: || p_org_hierarchy_origin
1308: );
1309: END IF;
1322:
1323: CLOSE c_org_name;
1324:
1325: IF G_DEBUG = 'Y' THEN
1326: INV_ORGHIERARCHY_PVT.Log
1327: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1328: ,' Hierarchy Origin name = '||
1329: l_org_name
1330: );
1323: CLOSE c_org_name;
1324:
1325: IF G_DEBUG = 'Y' THEN
1326: INV_ORGHIERARCHY_PVT.Log
1327: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1328: ,' Hierarchy Origin name = '||
1329: l_org_name
1330: );
1331:
1328: ,' Hierarchy Origin name = '||
1329: l_org_name
1330: );
1331:
1332: INV_ORGHIERARCHY_PVT.Log
1333: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1334: ,' Calling GET_MIN_OPEN_PERIOD ' );
1335: END IF;
1336:
1329: l_org_name
1330: );
1331:
1332: INV_ORGHIERARCHY_PVT.Log
1333: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1334: ,' Calling GET_MIN_OPEN_PERIOD ' );
1335: END IF;
1336:
1337: GET_MIN_OPEN_PERIOD
1343: , x_period_name => l_min_period
1344: );
1345:
1346: IF G_DEBUG = 'Y' THEN
1347: INV_ORGHIERARCHY_PVT.Log
1348: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1349: ,' Out of GET_MIN_OPEN_PERIOD with period name '|| l_min_period );
1350: END IF;
1351:
1344: );
1345:
1346: IF G_DEBUG = 'Y' THEN
1347: INV_ORGHIERARCHY_PVT.Log
1348: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1349: ,' Out of GET_MIN_OPEN_PERIOD with period name '|| l_min_period );
1350: END IF;
1351:
1352: -- If there are no minimum periods opened for this Org
1363: l_org_from_date := l_date_from ;
1364: END IF;
1365:
1366: IF G_DEBUG = 'Y' THEN
1367: INV_ORGHIERARCHY_PVT.Log
1368: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1369: ,' l_org_from_date '|| l_org_from_date
1370: );
1371: END IF;
1364: END IF;
1365:
1366: IF G_DEBUG = 'Y' THEN
1367: INV_ORGHIERARCHY_PVT.Log
1368: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1369: ,' l_org_from_date '|| l_org_from_date
1370: );
1371: END IF;
1372:
1372:
1373: IF l_count > NVL(p_open_period_count,0) THEN
1374:
1375: IF G_DEBUG = 'Y' THEN
1376: INV_ORGHIERARCHY_PVT.Log
1377: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1378: ,' No Processing for Hierarchy Origin as Input count 0 '
1379: );
1380: END IF;
1373: IF l_count > NVL(p_open_period_count,0) THEN
1374:
1375: IF G_DEBUG = 'Y' THEN
1376: INV_ORGHIERARCHY_PVT.Log
1377: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1378: ,' No Processing for Hierarchy Origin as Input count 0 '
1379: );
1380: END IF;
1381: ELSE
1389: l_period_final_start_date := l_gl_period_future.period_start_date ;
1390: l_period_final_end_date := l_gl_period_future.period_end_date ;
1391:
1392: IF G_DEBUG = 'Y' THEN
1393: INV_ORGHIERARCHY_PVT.Log
1394: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1395: ,'Period Final End Date: ' || to_char(l_period_final_end_date)
1396: );
1397:
1390: l_period_final_end_date := l_gl_period_future.period_end_date ;
1391:
1392: IF G_DEBUG = 'Y' THEN
1393: INV_ORGHIERARCHY_PVT.Log
1394: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1395: ,'Period Final End Date: ' || to_char(l_period_final_end_date)
1396: );
1397:
1398: INV_ORGHIERARCHY_PVT.Log
1394: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1395: ,'Period Final End Date: ' || to_char(l_period_final_end_date)
1396: );
1397:
1398: INV_ORGHIERARCHY_PVT.Log
1399: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1400: ,'********* Start Processing for Hierarchy Origin ********* '
1401: );
1402:
1395: ,'Period Final End Date: ' || to_char(l_period_final_end_date)
1396: );
1397:
1398: INV_ORGHIERARCHY_PVT.Log
1399: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1400: ,'********* Start Processing for Hierarchy Origin ********* '
1401: );
1402:
1403: INV_ORGHIERARCHY_PVT.Log
1399: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1400: ,'********* Start Processing for Hierarchy Origin ********* '
1401: );
1402:
1403: INV_ORGHIERARCHY_PVT.Log
1404: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1405: ,'Period Count: ' || l_count
1406: );
1407: /* Following code line has been commented. It is shifted
1400: ,'********* Start Processing for Hierarchy Origin ********* '
1401: );
1402:
1403: INV_ORGHIERARCHY_PVT.Log
1404: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1405: ,'Period Count: ' || l_count
1406: );
1407: /* Following code line has been commented. It is shifted
1408: out of debug condition block.Bug 3555234.
1416: , p_acct_period_id => NULL
1417: );
1418: */
1419:
1420: INV_ORGHIERARCHY_PVT.Log
1421: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1422: ,' ======== Attempt to Open Period : ' || l_gl_period_future.open_period_name
1423: || ' ============================ ' );
1424: END IF;
1417: );
1418: */
1419:
1420: INV_ORGHIERARCHY_PVT.Log
1421: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1422: ,' ======== Attempt to Open Period : ' || l_gl_period_future.open_period_name
1423: || ' ============================ ' );
1424: END IF;
1425:
1456:
1457: l_end_time := sysdate;
1458:
1459: IF G_DEBUG = 'Y' THEN
1460: INV_ORGHIERARCHY_PVT.Log
1461: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1462: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1463: );
1464:
1457: l_end_time := sysdate;
1458:
1459: IF G_DEBUG = 'Y' THEN
1460: INV_ORGHIERARCHY_PVT.Log
1461: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1462: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1463: );
1464:
1465: INV_ORGHIERARCHY_PVT.Log
1461: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1462: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1463: );
1464:
1465: INV_ORGHIERARCHY_PVT.Log
1466: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1467: ,' l_new_acct_period_id ' || l_new_acct_period_id
1468: );
1469: END IF;
1462: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1463: );
1464:
1465: INV_ORGHIERARCHY_PVT.Log
1466: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1467: ,' l_new_acct_period_id ' || l_new_acct_period_id
1468: );
1469: END IF;
1470:
1470:
1471: IF (l_duplicate_open_period) = true
1472: THEN
1473: IF G_DEBUG = 'Y' THEN
1474: INV_ORGHIERARCHY_PVT.Log
1475: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1476: , ' duplicate_open_period Error for '
1477: || l_orgid
1478: );
1471: IF (l_duplicate_open_period) = true
1472: THEN
1473: IF G_DEBUG = 'Y' THEN
1474: INV_ORGHIERARCHY_PVT.Log
1475: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1476: , ' duplicate_open_period Error for '
1477: || l_orgid
1478: );
1479: END IF;
1492:
1493: IF l_prior_period_open = true
1494: THEN
1495: IF G_DEBUG = 'Y' THEN
1496: INV_ORGHIERARCHY_PVT.Log
1497: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1498: , ' '
1499: );
1500: END IF;
1493: IF l_prior_period_open = true
1494: THEN
1495: IF G_DEBUG = 'Y' THEN
1496: INV_ORGHIERARCHY_PVT.Log
1497: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1498: , ' '
1499: );
1500: END IF;
1501: ELSE
1499: );
1500: END IF;
1501: ELSE
1502: IF G_DEBUG = 'Y' THEN
1503: INV_ORGHIERARCHY_PVT.Log
1504: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1505: , ' EXCEPTION: l_prior_period_open FALSE '
1506: );
1507: END IF;
1500: END IF;
1501: ELSE
1502: IF G_DEBUG = 'Y' THEN
1503: INV_ORGHIERARCHY_PVT.Log
1504: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1505: , ' EXCEPTION: l_prior_period_open FALSE '
1506: );
1507: END IF;
1508: ADD_ITEM
1518:
1519: IF (l_commit_complete) = true
1520: THEN
1521: IF G_DEBUG = 'Y' THEN
1522: INV_ORGHIERARCHY_PVT.Log
1523: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1524: ,' Open SUCCESS for '
1525: || l_orgid || ' - '|| l_org_name
1526: );
1519: IF (l_commit_complete) = true
1520: THEN
1521: IF G_DEBUG = 'Y' THEN
1522: INV_ORGHIERARCHY_PVT.Log
1523: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1524: ,' Open SUCCESS for '
1525: || l_orgid || ' - '|| l_org_name
1526: );
1527: END IF;
1630: COMMIT;
1631: END IF; --wip installed
1632: ELSE
1633: IF G_DEBUG = 'Y' THEN
1634: INV_ORGHIERARCHY_PVT.Log
1635: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1636: ,' Open FAILED for '
1637: || l_orgid || ' - '|| l_org_name
1638: );
1631: END IF; --wip installed
1632: ELSE
1633: IF G_DEBUG = 'Y' THEN
1634: INV_ORGHIERARCHY_PVT.Log
1635: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1636: ,' Open FAILED for '
1637: || l_orgid || ' - '|| l_org_name
1638: );
1639: END IF;
1650: ROLLBACK ;
1651: END IF;
1652:
1653: IF G_DEBUG = 'Y' THEN
1654: INV_ORGHIERARCHY_PVT.Log
1655: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1656: ,' Hierarchy Origin End of Period Name ' || l_gl_period_future.open_period_name
1657: || ' ============================ ' );
1658: END IF;
1651: END IF;
1652:
1653: IF G_DEBUG = 'Y' THEN
1654: INV_ORGHIERARCHY_PVT.Log
1655: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1656: ,' Hierarchy Origin End of Period Name ' || l_gl_period_future.open_period_name
1657: || ' ============================ ' );
1658: END IF;
1659:
1707: -- The Organization list belonging to this Hierarchy Origin
1708: -- is retreived. organization list includes the hierarchy origin
1709:
1710: IF G_DEBUG = 'Y' THEN
1711: INV_ORGHIERARCHY_PVT.Log
1712: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1713: ,' Calling INV_ORGHIERARCHY_PVT.get_organization_List '
1714: );
1715: END IF;
1708: -- is retreived. organization list includes the hierarchy origin
1709:
1710: IF G_DEBUG = 'Y' THEN
1711: INV_ORGHIERARCHY_PVT.Log
1712: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1713: ,' Calling INV_ORGHIERARCHY_PVT.get_organization_List '
1714: );
1715: END IF;
1716:
1709:
1710: IF G_DEBUG = 'Y' THEN
1711: INV_ORGHIERARCHY_PVT.Log
1712: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1713: ,' Calling INV_ORGHIERARCHY_PVT.get_organization_List '
1714: );
1715: END IF;
1716:
1717:
1717:
1718: IF NVL(l_org_code_list.COUNT,0) > 0
1719: THEN
1720: IF G_DEBUG = 'Y' THEN
1721: INV_ORGHIERARCHY_PVT.Log
1722: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1723: ,' count > 0 '
1724: );
1725: END IF;
1718: IF NVL(l_org_code_list.COUNT,0) > 0
1719: THEN
1720: IF G_DEBUG = 'Y' THEN
1721: INV_ORGHIERARCHY_PVT.Log
1722: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1723: ,' count > 0 '
1724: );
1725: END IF;
1726:
1729: l_index := l_org_code_list.FIRST;
1730: l_orgid := l_org_code_list(l_index);
1731:
1732: IF G_DEBUG = 'Y' THEN
1733: INV_ORGHIERARCHY_PVT.Log
1734: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1735: ,' Initial l_index ' || l_index
1736: );
1737:
1730: l_orgid := l_org_code_list(l_index);
1731:
1732: IF G_DEBUG = 'Y' THEN
1733: INV_ORGHIERARCHY_PVT.Log
1734: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1735: ,' Initial l_index ' || l_index
1736: );
1737:
1738: INV_ORGHIERARCHY_PVT.Log
1734: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1735: ,' Initial l_index ' || l_index
1736: );
1737:
1738: INV_ORGHIERARCHY_PVT.Log
1739: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1740: ,' Initial l_orgid ' || l_orgid
1741: );
1742:
1735: ,' Initial l_index ' || l_index
1736: );
1737:
1738: INV_ORGHIERARCHY_PVT.Log
1739: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1740: ,' Initial l_orgid ' || l_orgid
1741: );
1742:
1743: INV_ORGHIERARCHY_PVT.Log
1739: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1740: ,' Initial l_orgid ' || l_orgid
1741: );
1742:
1743: INV_ORGHIERARCHY_PVT.Log
1744: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1745: ,' About to Enter WHILE Loop for the Org List '
1746: );
1747:
1740: ,' Initial l_orgid ' || l_orgid
1741: );
1742:
1743: INV_ORGHIERARCHY_PVT.Log
1744: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1745: ,' About to Enter WHILE Loop for the Org List '
1746: );
1747:
1748: INV_ORGHIERARCHY_PVT.Log
1744: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1745: ,' About to Enter WHILE Loop for the Org List '
1746: );
1747:
1748: INV_ORGHIERARCHY_PVT.Log
1749: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1750: ,' '
1751: );
1752:
1745: ,' About to Enter WHILE Loop for the Org List '
1746: );
1747:
1748: INV_ORGHIERARCHY_PVT.Log
1749: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1750: ,' '
1751: );
1752:
1753: INV_ORGHIERARCHY_PVT.Log
1749: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1750: ,' '
1751: );
1752:
1753: INV_ORGHIERARCHY_PVT.Log
1754: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1755: ,' ............................................................ '
1756: );
1757: END IF;
1750: ,' '
1751: );
1752:
1753: INV_ORGHIERARCHY_PVT.Log
1754: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1755: ,' ............................................................ '
1756: );
1757: END IF;
1758:
1758:
1759: WHILE ( l_list_count > 0 )
1760: LOOP
1761: IF G_DEBUG = 'Y' THEN
1762: INV_ORGHIERARCHY_PVT.Log
1763: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1764: ,' Into while loop with l_index ' || l_index
1765: );
1766: END IF;
1759: WHILE ( l_list_count > 0 )
1760: LOOP
1761: IF G_DEBUG = 'Y' THEN
1762: INV_ORGHIERARCHY_PVT.Log
1763: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1764: ,' Into while loop with l_index ' || l_index
1765: );
1766: END IF;
1767:
1767:
1768: l_orgid := l_org_code_list(l_index);
1769:
1770: IF G_DEBUG = 'Y' THEN
1771: INV_ORGHIERARCHY_PVT.Log
1772: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1773: ,' Organization Id: ' || l_orgid
1774: );
1775: END IF;
1768: l_orgid := l_org_code_list(l_index);
1769:
1770: IF G_DEBUG = 'Y' THEN
1771: INV_ORGHIERARCHY_PVT.Log
1772: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1773: ,' Organization Id: ' || l_orgid
1774: );
1775: END IF;
1776:
1788: IF p_open_or_close_flag = 'O' AND l_orgid <> p_org_hierarchy_origin
1789: THEN
1790:
1791: IF G_DEBUG = 'Y' THEN
1792: INV_ORGHIERARCHY_PVT.Log
1793: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1794: ,' while loop l_orgid ' || l_orgid
1795: );
1796: END IF;
1789: THEN
1790:
1791: IF G_DEBUG = 'Y' THEN
1792: INV_ORGHIERARCHY_PVT.Log
1793: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1794: ,' while loop l_orgid ' || l_orgid
1795: );
1796: END IF;
1797:
1796: END IF;
1797:
1798:
1799: IF G_DEBUG = 'Y' THEN
1800: INV_ORGHIERARCHY_PVT.Log
1801: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1802: ,' ************** START Processing Organization = '||
1803: l_org_name || ' ************************** '
1804: );
1797:
1798:
1799: IF G_DEBUG = 'Y' THEN
1800: INV_ORGHIERARCHY_PVT.Log
1801: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1802: ,' ************** START Processing Organization = '||
1803: l_org_name || ' ************************** '
1804: );
1805: END IF;
1815: );
1816:
1817:
1818: IF G_DEBUG = 'Y' THEN
1819: INV_ORGHIERARCHY_PVT.Log
1820: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1821: ,'## Organization Date From '|| l_date_from
1822: );
1823: END IF;
1816:
1817:
1818: IF G_DEBUG = 'Y' THEN
1819: INV_ORGHIERARCHY_PVT.Log
1820: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1821: ,'## Organization Date From '|| l_date_from
1822: );
1823: END IF;
1824:
1827:
1828: l_cursor_final_end_date := l_period_final_end_date ;
1829:
1830: IF G_DEBUG = 'Y' THEN
1831: INV_ORGHIERARCHY_PVT.Log
1832: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1833: ,' l_cursor_final_end_date '|| l_cursor_final_end_date
1834: );
1835:
1828: l_cursor_final_end_date := l_period_final_end_date ;
1829:
1830: IF G_DEBUG = 'Y' THEN
1831: INV_ORGHIERARCHY_PVT.Log
1832: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1833: ,' l_cursor_final_end_date '|| l_cursor_final_end_date
1834: );
1835:
1836: -- The Minimum and Maximum periods for this Org
1836: -- The Minimum and Maximum periods for this Org
1837: -- is selected. This required to determine the
1838: -- range of periods that are eligible to be Opened
1839:
1840: INV_ORGHIERARCHY_PVT.Log
1841: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1842: ,' Calling GET_MIN_OPEN_PERIOD ' );
1843: END IF;
1844:
1837: -- is selected. This required to determine the
1838: -- range of periods that are eligible to be Opened
1839:
1840: INV_ORGHIERARCHY_PVT.Log
1841: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1842: ,' Calling GET_MIN_OPEN_PERIOD ' );
1843: END IF;
1844:
1845: GET_MIN_OPEN_PERIOD
1851: , x_period_name => l_min_period
1852: );
1853:
1854: IF G_DEBUG = 'Y' THEN
1855: INV_ORGHIERARCHY_PVT.Log
1856: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1857: ,' Out of GET_MIN_OPEN_PERIOD with period name '|| l_min_period );
1858: END IF;
1859:
1852: );
1853:
1854: IF G_DEBUG = 'Y' THEN
1855: INV_ORGHIERARCHY_PVT.Log
1856: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1857: ,' Out of GET_MIN_OPEN_PERIOD with period name '|| l_min_period );
1858: END IF;
1859:
1860: -- If there are no minimum periods opened for this Org
1872: l_org_from_date := l_date_from;
1873: END IF;
1874:
1875: IF G_DEBUG = 'Y' THEN
1876: INV_ORGHIERARCHY_PVT.Log
1877: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1878: ,' l_org_from_date '|| l_org_from_date
1879: );
1880: END IF;
1873: END IF;
1874:
1875: IF G_DEBUG = 'Y' THEN
1876: INV_ORGHIERARCHY_PVT.Log
1877: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1878: ,' l_org_from_date '|| l_org_from_date
1879: );
1880: END IF;
1881:
1885: -- for each of the period
1886:
1887:
1888: IF G_DEBUG = 'Y' THEN
1889: INV_ORGHIERARCHY_PVT.Log
1890: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1891: ,' ======== Attempt to Open Period : ' || l_gl_period_future.open_period_name
1892: || ' ============================ ' );
1893: END IF;
1886:
1887:
1888: IF G_DEBUG = 'Y' THEN
1889: INV_ORGHIERARCHY_PVT.Log
1890: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1891: ,' ======== Attempt to Open Period : ' || l_gl_period_future.open_period_name
1892: || ' ============================ ' );
1893: END IF;
1894:
1913: ) ;
1914: l_end_time := sysdate;
1915:
1916: IF G_DEBUG = 'Y' THEN
1917: INV_ORGHIERARCHY_PVT.Log
1918: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1919: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1920: );
1921:
1914: l_end_time := sysdate;
1915:
1916: IF G_DEBUG = 'Y' THEN
1917: INV_ORGHIERARCHY_PVT.Log
1918: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1919: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1920: );
1921:
1922: INV_ORGHIERARCHY_PVT.Log
1918: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1919: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1920: );
1921:
1922: INV_ORGHIERARCHY_PVT.Log
1923: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1924: ,' l_new_acct_period_id ' || l_new_acct_period_id
1925: );
1926: END IF;
1919: ,' l_last_scheduled_close_date ' || l_last_scheduled_close_date
1920: );
1921:
1922: INV_ORGHIERARCHY_PVT.Log
1923: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1924: ,' l_new_acct_period_id ' || l_new_acct_period_id
1925: );
1926: END IF;
1927:
1927:
1928: IF (l_duplicate_open_period) = true
1929: THEN
1930: IF G_DEBUG = 'Y' THEN
1931: INV_ORGHIERARCHY_PVT.Log
1932: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1933: , ' duplicate_open_period Error for '
1934: || l_orgid
1935: );
1928: IF (l_duplicate_open_period) = true
1929: THEN
1930: IF G_DEBUG = 'Y' THEN
1931: INV_ORGHIERARCHY_PVT.Log
1932: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1933: , ' duplicate_open_period Error for '
1934: || l_orgid
1935: );
1936: END IF;
1949:
1950: IF (l_prior_period_open) = true
1951: THEN
1952: IF G_DEBUG = 'Y' THEN
1953: INV_ORGHIERARCHY_PVT.Log
1954: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1955: , ' '
1956: );
1957: END IF;
1950: IF (l_prior_period_open) = true
1951: THEN
1952: IF G_DEBUG = 'Y' THEN
1953: INV_ORGHIERARCHY_PVT.Log
1954: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1955: , ' '
1956: );
1957: END IF;
1958: ELSE
1956: );
1957: END IF;
1958: ELSE
1959: IF G_DEBUG = 'Y' THEN
1960: INV_ORGHIERARCHY_PVT.Log
1961: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1962: , ' EXCEPTION: l_prior_period_open FALSE '
1963: );
1964: END IF;
1957: END IF;
1958: ELSE
1959: IF G_DEBUG = 'Y' THEN
1960: INV_ORGHIERARCHY_PVT.Log
1961: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1962: , ' EXCEPTION: l_prior_period_open FALSE '
1963: );
1964: END IF;
1965:
1977:
1978: IF (l_commit_complete) = true
1979: THEN
1980: IF G_DEBUG = 'Y' THEN
1981: INV_ORGHIERARCHY_PVT.Log
1982: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1983: ,' Open SUCCESS for '
1984: || l_orgid || ' - '|| l_org_name
1985: );
1978: IF (l_commit_complete) = true
1979: THEN
1980: IF G_DEBUG = 'Y' THEN
1981: INV_ORGHIERARCHY_PVT.Log
1982: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
1983: ,' Open SUCCESS for '
1984: || l_orgid || ' - '|| l_org_name
1985: );
1986: END IF;
2089: END IF; --wip installed
2090:
2091: ELSE
2092: IF G_DEBUG = 'Y' THEN
2093: INV_ORGHIERARCHY_PVT.Log
2094: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2095: ,' Open FAILED for '
2096: || l_orgid || ' - '|| l_org_name
2097: );
2090:
2091: ELSE
2092: IF G_DEBUG = 'Y' THEN
2093: INV_ORGHIERARCHY_PVT.Log
2094: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2095: ,' Open FAILED for '
2096: || l_orgid || ' - '|| l_org_name
2097: );
2098: END IF;
2109: ROLLBACK ;
2110: END IF;
2111:
2112: IF G_DEBUG = 'Y' THEN
2113: INV_ORGHIERARCHY_PVT.Log
2114: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2115: ,' ======== End of Period Name ' || l_gl_period_future.open_period_name
2116: || ' ============================ ' );
2117: END IF;
2110: END IF;
2111:
2112: IF G_DEBUG = 'Y' THEN
2113: INV_ORGHIERARCHY_PVT.Log
2114: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2115: ,' ======== End of Period Name ' || l_gl_period_future.open_period_name
2116: || ' ============================ ' );
2117: END IF;
2118:
2141:
2142:
2143:
2144: IF G_DEBUG = 'Y' THEN
2145: INV_ORGHIERARCHY_PVT.Log
2146: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2147: ,' Calling CST_AccountingPeriod_PUB.verify_periodclose for Org ID '
2148: || l_orgid
2149: );
2142:
2143:
2144: IF G_DEBUG = 'Y' THEN
2145: INV_ORGHIERARCHY_PVT.Log
2146: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2147: ,' Calling CST_AccountingPeriod_PUB.verify_periodclose for Org ID '
2148: || l_orgid
2149: );
2150:
2147: ,' Calling CST_AccountingPeriod_PUB.verify_periodclose for Org ID '
2148: || l_orgid
2149: );
2150:
2151: INV_ORGHIERARCHY_PVT.Log
2152: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2153: ,' Org ID ' || l_orgid || ' for period ' ||
2154: l_org_acct_periods_val_open.open_period_name ||
2155: ' Schedule Close Date:' || l_org_acct_periods_val_open.schedule_close_date
2148: || l_orgid
2149: );
2150:
2151: INV_ORGHIERARCHY_PVT.Log
2152: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2153: ,' Org ID ' || l_orgid || ' for period ' ||
2154: l_org_acct_periods_val_open.open_period_name ||
2155: ' Schedule Close Date:' || l_org_acct_periods_val_open.schedule_close_date
2156: );
2186: FND_MESSAGE.SET_NAME('INV', 'INV_NO_NEXT_PERIOD');
2187: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2188:
2189: IF G_DEBUG = 'Y' THEN
2190: INV_ORGHIERARCHY_PVT.Log
2191: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2192: ,l_error_msg
2193: );
2194: END IF;
2187: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2188:
2189: IF G_DEBUG = 'Y' THEN
2190: INV_ORGHIERARCHY_PVT.Log
2191: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2192: ,l_error_msg
2193: );
2194: END IF;
2195:
2200: FND_MESSAGE.SET_NAME('INV', 'INV_CLOSE_IN_ORDER');
2201: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2202:
2203: IF G_DEBUG = 'Y' THEN
2204: INV_ORGHIERARCHY_PVT.Log
2205: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2206: ,l_error_msg
2207: );
2208: END IF;
2201: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2202:
2203: IF G_DEBUG = 'Y' THEN
2204: INV_ORGHIERARCHY_PVT.Log
2205: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2206: ,l_error_msg
2207: );
2208: END IF;
2209:
2231: IF (l_org_acct_periods_val_open.period_start_date > l_le_sysdate) THEN
2232: FND_MESSAGE.SET_NAME('BOM','CST_CLOSE_FUTURE_PERIOD');
2233: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2234: IF G_DEBUG = 'Y' THEN
2235: INV_ORGHIERARCHY_PVT.Log
2236: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2237: ,l_error_msg
2238: );
2239: END IF;
2232: FND_MESSAGE.SET_NAME('BOM','CST_CLOSE_FUTURE_PERIOD');
2233: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2234: IF G_DEBUG = 'Y' THEN
2235: INV_ORGHIERARCHY_PVT.Log
2236: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2237: ,l_error_msg
2238: );
2239: END IF;
2240: l_verify_flag := 'N';
2247: -- Get remaining hours from sysdate
2248: l_hours_remaining := round((l_period_end_date - sysdate) * 24);
2249:
2250: IF G_DEBUG = 'Y' THEN
2251: INV_ORGHIERARCHY_PVT.Log
2252: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2253: ,'Remaining hours to close period : ' || l_hours_remaining
2254: );
2255: END IF;
2248: l_hours_remaining := round((l_period_end_date - sysdate) * 24);
2249:
2250: IF G_DEBUG = 'Y' THEN
2251: INV_ORGHIERARCHY_PVT.Log
2252: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2253: ,'Remaining hours to close period : ' || l_hours_remaining
2254: );
2255: END IF;
2256: ADD_ITEM
2268: ELSE
2269: FND_MESSAGE.SET_NAME('BOM','CST_EARLY_CLOSE_NOT_ALLOWED');
2270: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2271: IF G_DEBUG = 'Y' THEN
2272: INV_ORGHIERARCHY_PVT.Log
2273: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2274: ,l_error_msg
2275: );
2276: END IF;
2269: FND_MESSAGE.SET_NAME('BOM','CST_EARLY_CLOSE_NOT_ALLOWED');
2270: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2271: IF G_DEBUG = 'Y' THEN
2272: INV_ORGHIERARCHY_PVT.Log
2273: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2274: ,l_error_msg
2275: );
2276: END IF;
2277: l_verify_flag := 'N';
2282: FND_MESSAGE.SET_NAME('INV', 'INV_GL_DOWNLOAD_IN_PROGRESS');
2283: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2284:
2285: IF G_DEBUG = 'Y' THEN
2286: INV_ORGHIERARCHY_PVT.Log
2287: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2288: ,l_error_msg
2289: );
2290: END IF;
2283: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2284:
2285: IF G_DEBUG = 'Y' THEN
2286: INV_ORGHIERARCHY_PVT.Log
2287: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2288: ,l_error_msg
2289: );
2290: END IF;
2291:
2296: FND_MESSAGE.SET_NAME('INV', 'INV_RECLOSE_PERIOD');
2297: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2298:
2299: IF G_DEBUG = 'Y' THEN
2300: INV_ORGHIERARCHY_PVT.Log
2301: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2302: ,l_error_msg
2303: );
2304: END IF;
2297: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2298:
2299: IF G_DEBUG = 'Y' THEN
2300: INV_ORGHIERARCHY_PVT.Log
2301: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2302: ,l_error_msg
2303: );
2304: END IF;
2305:
2368: LOOP
2369: IF GET_OPEN_REQUESTS_COUNT < l_requests_count
2370: THEN
2371: IF G_DEBUG = 'Y' THEN
2372: INV_ORGHIERARCHY_PVT.Log
2373: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2374: ,' Exiting Request Loop '
2375: );
2376: END IF;
2369: IF GET_OPEN_REQUESTS_COUNT < l_requests_count
2370: THEN
2371: IF G_DEBUG = 'Y' THEN
2372: INV_ORGHIERARCHY_PVT.Log
2373: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2374: ,' Exiting Request Loop '
2375: );
2376: END IF;
2377: EXIT;
2384:
2385: END LOOP;
2386:
2387: IF G_DEBUG = 'Y' THEN
2388: INV_ORGHIERARCHY_PVT.Log
2389: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2390: ,' Calling CLOSE_PERIOD for Org ID '
2391: || l_orgid || ' for period ' ||
2392: l_org_acct_periods_val_open.open_period_name
2385: END LOOP;
2386:
2387: IF G_DEBUG = 'Y' THEN
2388: INV_ORGHIERARCHY_PVT.Log
2389: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2390: ,' Calling CLOSE_PERIOD for Org ID '
2391: || l_orgid || ' for period ' ||
2392: l_org_acct_periods_val_open.open_period_name
2393: );
2419: , x_return_status => l_return_status
2420: );
2421:
2422: IF G_DEBUG = 'Y' THEN
2423: INV_ORGHIERARCHY_PVT.Log
2424: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2425: ,' Out of CST_AccountingPeriod_PUB.close_period for Org ID ' || l_orgid
2426: );
2427: END IF;
2420: );
2421:
2422: IF G_DEBUG = 'Y' THEN
2423: INV_ORGHIERARCHY_PVT.Log
2424: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2425: ,' Out of CST_AccountingPeriod_PUB.close_period for Org ID ' || l_orgid
2426: );
2427: END IF;
2428:
2428:
2429: IF (l_wip_failed) = true
2430: THEN
2431: IF G_DEBUG = 'Y' THEN
2432: INV_ORGHIERARCHY_PVT.Log
2433: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2434: ,' WIP Failed for '
2435: || l_orgid || ' Request ID ' || l_req_id
2436: ) ;
2429: IF (l_wip_failed) = true
2430: THEN
2431: IF G_DEBUG = 'Y' THEN
2432: INV_ORGHIERARCHY_PVT.Log
2433: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2434: ,' WIP Failed for '
2435: || l_orgid || ' Request ID ' || l_req_id
2436: ) ;
2437: END IF;
2449:
2450: IF (l_download_failed) = true
2451: THEN
2452: IF G_DEBUG = 'Y' THEN
2453: INV_ORGHIERARCHY_PVT.Log
2454: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2455: ,' download_failed for '
2456: || l_orgid || ' Request ID ' || l_req_id
2457: );
2450: IF (l_download_failed) = true
2451: THEN
2452: IF G_DEBUG = 'Y' THEN
2453: INV_ORGHIERARCHY_PVT.Log
2454: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2455: ,' download_failed for '
2456: || l_orgid || ' Request ID ' || l_req_id
2457: );
2458: END IF;
2474:
2475: FND_MESSAGE.SET_NAME('BOM','CST_UNPROCESSED_TXNS');
2476: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2477: IF G_DEBUG = 'Y' THEN
2478: INV_ORGHIERARCHY_PVT.Log
2479: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2480: ,l_error_msg
2481: );
2482: END IF;
2475: FND_MESSAGE.SET_NAME('BOM','CST_UNPROCESSED_TXNS');
2476: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2477: IF G_DEBUG = 'Y' THEN
2478: INV_ORGHIERARCHY_PVT.Log
2479: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2480: ,l_error_msg
2481: );
2482: END IF;
2483:
2483:
2484: FND_MESSAGE.SET_NAME('INV','INV_PERIOD_CLOSE_ABORTED');
2485: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2486: IF G_DEBUG = 'Y' THEN
2487: INV_ORGHIERARCHY_PVT.Log
2488: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2489: ,l_error_msg
2490: );
2491: END IF;
2484: FND_MESSAGE.SET_NAME('INV','INV_PERIOD_CLOSE_ABORTED');
2485: l_error_msg := SUBSTR(FND_MESSAGE.Get, 1,255);
2486: IF G_DEBUG = 'Y' THEN
2487: INV_ORGHIERARCHY_PVT.Log
2488: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2489: ,l_error_msg
2490: );
2491: END IF;
2492:
2495:
2496: IF ( l_close_failed ) = true
2497: THEN
2498: IF G_DEBUG = 'Y' THEN
2499: INV_ORGHIERARCHY_PVT.Log
2500: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2501: ,' close Falied - for Org ID '
2502: || l_orgid || ' Request ID ' || l_req_id
2503: );
2496: IF ( l_close_failed ) = true
2497: THEN
2498: IF G_DEBUG = 'Y' THEN
2499: INV_ORGHIERARCHY_PVT.Log
2500: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2501: ,' close Falied - for Org ID '
2502: || l_orgid || ' Request ID ' || l_req_id
2503: );
2504: END IF;
2515:
2516: ROLLBACK ;
2517: ELSE --IF ( l_close_failed ) = true
2518: IF G_DEBUG = 'Y' THEN
2519: INV_ORGHIERARCHY_PVT.Log
2520: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2521: , ' Close in process REquest '|| l_req_id
2522: );
2523: END IF;
2516: ROLLBACK ;
2517: ELSE --IF ( l_close_failed ) = true
2518: IF G_DEBUG = 'Y' THEN
2519: INV_ORGHIERARCHY_PVT.Log
2520: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2521: , ' Close in process REquest '|| l_req_id
2522: );
2523: END IF;
2524: IF p_close_if_res_recmd = 'Y' AND
2525: (l_pend_receiving > 0 OR l_pend_matl > 0 OR l_pend_move > 0
2526: OR l_released_work_orders > 0 OR l_pending_ship > 0) THEN
2527: l_closed_if_res_recmd := 1;
2528: IF G_DEBUG = 'Y' THEN
2529: INV_ORGHIERARCHY_PVT.Log
2530: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2531: , ' WARNING : There are pending transactions with resolutions recommended for '||l_org_acct_periods_val_open.open_period_name||
2532: ' in '||l_orgid
2533: );
2526: OR l_released_work_orders > 0 OR l_pending_ship > 0) THEN
2527: l_closed_if_res_recmd := 1;
2528: IF G_DEBUG = 'Y' THEN
2529: INV_ORGHIERARCHY_PVT.Log
2530: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2531: , ' WARNING : There are pending transactions with resolutions recommended for '||l_org_acct_periods_val_open.open_period_name||
2532: ' in '||l_orgid
2533: );
2534: END IF;
2555: END IF; --IF ( l_close_failed ) = true
2556:
2557: ELSE --IF l_unproc_matl = 0
2558: IF G_DEBUG = 'Y' THEN
2559: INV_ORGHIERARCHY_PVT.Log
2560: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2561: , 'Pending Transactions exists'
2562: );
2563: END IF;
2556:
2557: ELSE --IF l_unproc_matl = 0
2558: IF G_DEBUG = 'Y' THEN
2559: INV_ORGHIERARCHY_PVT.Log
2560: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2561: , 'Pending Transactions exists'
2562: );
2563: END IF;
2564: ADD_ITEM
2574:
2575: -- verify_periodclose failed
2576: ELSE
2577: IF G_DEBUG = 'Y' THEN
2578: INV_ORGHIERARCHY_PVT.Log
2579: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2580: , ' Period not eligible to be closed '
2581: );
2582: END IF;
2575: -- verify_periodclose failed
2576: ELSE
2577: IF G_DEBUG = 'Y' THEN
2578: INV_ORGHIERARCHY_PVT.Log
2579: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2580: , ' Period not eligible to be closed '
2581: );
2582: END IF;
2583:
2584: END IF; -- verify_periodclose
2585:
2586: ELSE
2587: IF G_DEBUG = 'Y' THEN
2588: INV_ORGHIERARCHY_PVT.Log
2589: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2590: , ' Period not Open '
2591: );
2592: END IF;
2585:
2586: ELSE
2587: IF G_DEBUG = 'Y' THEN
2588: INV_ORGHIERARCHY_PVT.Log
2589: ( INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2590: , ' Period not Open '
2591: );
2592: END IF;
2593: /* Commented following code for showing details of only eligible
2604:
2605: END IF; -- open flag check
2606: END LOOP;
2607: IF G_DEBUG = 'Y' THEN
2608: INV_ORGHIERARCHY_PVT.Log
2609: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2610: ,' Out of Close FOR loop ' );
2611: END IF;
2612: END IF; -- Open or close flag check
2605: END IF; -- open flag check
2606: END LOOP;
2607: IF G_DEBUG = 'Y' THEN
2608: INV_ORGHIERARCHY_PVT.Log
2609: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2610: ,' Out of Close FOR loop ' );
2611: END IF;
2612: END IF; -- Open or close flag check
2613:
2614: l_list_count := l_list_count - 1;
2615: l_index := l_index + 1;
2616:
2617: IF G_DEBUG = 'Y' THEN
2618: INV_ORGHIERARCHY_PVT.Log
2619: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2620: ,' '
2621: );
2622:
2615: l_index := l_index + 1;
2616:
2617: IF G_DEBUG = 'Y' THEN
2618: INV_ORGHIERARCHY_PVT.Log
2619: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2620: ,' '
2621: );
2622:
2623: INV_ORGHIERARCHY_PVT.Log
2619: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2620: ,' '
2621: );
2622:
2623: INV_ORGHIERARCHY_PVT.Log
2624: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2625: ,' ************** END Processing Organization = '||
2626: l_org_name || ' ************************** '
2627: );
2620: ,' '
2621: );
2622:
2623: INV_ORGHIERARCHY_PVT.Log
2624: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2625: ,' ************** END Processing Organization = '||
2626: l_org_name || ' ************************** '
2627: );
2628: END IF;
2630: l_date_from := NULL;
2631: l_org_from_date := NULL;
2632:
2633: IF G_DEBUG = 'Y' THEN
2634: INV_ORGHIERARCHY_PVT.Log
2635: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2636: ,' Out of Close FOR loop ' );
2637: END IF;
2638:
2631: l_org_from_date := NULL;
2632:
2633: IF G_DEBUG = 'Y' THEN
2634: INV_ORGHIERARCHY_PVT.Log
2635: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2636: ,' Out of Close FOR loop ' );
2637: END IF;
2638:
2639: END LOOP; -- organization list loop
2638:
2639: END LOOP; -- organization list loop
2640:
2641: IF G_DEBUG = 'Y' THEN
2642: INV_ORGHIERARCHY_PVT.Log
2643: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2644: ,' Out of Org List WHILE Loop, start final request check '
2645: );
2646: END IF;
2639: END LOOP; -- organization list loop
2640:
2641: IF G_DEBUG = 'Y' THEN
2642: INV_ORGHIERARCHY_PVT.Log
2643: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2644: ,' Out of Org List WHILE Loop, start final request check '
2645: );
2646: END IF;
2647:
2651: LOOP
2652: IF GET_OPEN_REQUESTS_COUNT <= 0
2653: THEN
2654: IF G_DEBUG = 'Y' THEN
2655: INV_ORGHIERARCHY_PVT.Log
2656: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2657: ,' Exiting Request Loop '
2658: );
2659: END IF;
2652: IF GET_OPEN_REQUESTS_COUNT <= 0
2653: THEN
2654: IF G_DEBUG = 'Y' THEN
2655: INV_ORGHIERARCHY_PVT.Log
2656: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2657: ,' Exiting Request Loop '
2658: );
2659: END IF;
2660: EXIT;
2667:
2668: END LOOP;
2669:
2670: IF G_DEBUG = 'Y' THEN
2671: INV_ORGHIERARCHY_PVT.Log
2672: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2673: , ' Out of final Request Loop ' );
2674: END IF;
2675: ELSE
2668: END LOOP;
2669:
2670: IF G_DEBUG = 'Y' THEN
2671: INV_ORGHIERARCHY_PVT.Log
2672: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2673: , ' Out of final Request Loop ' );
2674: END IF;
2675: ELSE
2676: IF G_DEBUG = 'Y' THEN
2673: , ' Out of final Request Loop ' );
2674: END IF;
2675: ELSE
2676: IF G_DEBUG = 'Y' THEN
2677: INV_ORGHIERARCHY_PVT.Log
2678: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2679: , ' Org List Empty ' );
2680: END IF;
2681: END IF;
2674: END IF;
2675: ELSE
2676: IF G_DEBUG = 'Y' THEN
2677: INV_ORGHIERARCHY_PVT.Log
2678: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2679: , ' Org List Empty ' );
2680: END IF;
2681: END IF;
2682:
2680: END IF;
2681: END IF;
2682:
2683: IF G_DEBUG = 'Y' THEN
2684: INV_ORGHIERARCHY_PVT.Log
2685: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2686: ,' '
2687: );
2688:
2681: END IF;
2682:
2683: IF G_DEBUG = 'Y' THEN
2684: INV_ORGHIERARCHY_PVT.Log
2685: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2686: ,' '
2687: );
2688:
2689: INV_ORGHIERARCHY_PVT.Log
2685: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2686: ,' '
2687: );
2688:
2689: INV_ORGHIERARCHY_PVT.Log
2690: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2691: ,'*********************** End of Report *********************** '
2692: );
2693: END IF;
2686: ,' '
2687: );
2688:
2689: INV_ORGHIERARCHY_PVT.Log
2690: (INV_ORGHIERARCHY_PVT.G_LOG_STATEMENT
2691: ,'*********************** End of Report *********************** '
2692: );
2693: END IF;
2694:
2694:
2695: PRINT_REPORT ;
2696:
2697: IF G_DEBUG = 'Y' THEN
2698: INV_ORGHIERARCHY_PVT.Log
2699: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
2700: ,'< INV_MGD_PRD_CONTROL_MEDIATOR.Period_Control '
2701: );
2702: END IF;
2695: PRINT_REPORT ;
2696:
2697: IF G_DEBUG = 'Y' THEN
2698: INV_ORGHIERARCHY_PVT.Log
2699: (INV_ORGHIERARCHY_PVT.G_LOG_PROCEDURE
2700: ,'< INV_MGD_PRD_CONTROL_MEDIATOR.Period_Control '
2701: );
2702: END IF;
2703:
2712: -- to handle scheduling related exception.
2713:
2714: -- Bug #3904824.New exception introduced.
2715: -- WHEN l_close_period_before_sch_dt THEN
2716: -- INV_ORGHIERARCHY_PVT.Log
2717: -- (INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION,x_errbuff);
2718: -- x_retcode := RETCODE_ERROR;
2719:
2720:
2713:
2714: -- Bug #3904824.New exception introduced.
2715: -- WHEN l_close_period_before_sch_dt THEN
2716: -- INV_ORGHIERARCHY_PVT.Log
2717: -- (INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION,x_errbuff);
2718: -- x_retcode := RETCODE_ERROR;
2719:
2720:
2721: -- Bug:3296392 - Addeed the exception hanlding for the validaiton
2720:
2721: -- Bug:3296392 - Addeed the exception hanlding for the validaiton
2722: -- failure.
2723: WHEN l_hierarchy_validation THEN
2724: INV_ORGHIERARCHY_PVT.Log
2725: (INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION,x_errbuff);
2726: x_retcode := RETCODE_ERROR;
2727:
2728: WHEN OTHERS THEN
2721: -- Bug:3296392 - Addeed the exception hanlding for the validaiton
2722: -- failure.
2723: WHEN l_hierarchy_validation THEN
2724: INV_ORGHIERARCHY_PVT.Log
2725: (INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION,x_errbuff);
2726: x_retcode := RETCODE_ERROR;
2727:
2728: WHEN OTHERS THEN
2729: /* This executable is used by concurrent program so
2730: Error/Exception logging should not depend on
2731: FND Debug Enabled profile otpion. Bug: 3555234
2732: IF G_DEBUG = 'Y' THEN
2733: */
2734: INV_ORGHIERARCHY_PVT.Log( INV_ORGHIERARCHY_PVT.G_LOG_EXCEPTION
2735: , 'SQLERRM '|| SQLERRM) ;
2736: --END IF;
2737: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2738: THEN