DBA Data[Home] [Help]

APPS.IGC_CC_ARCHIVE_PURGE_PKG dependencies on IGC_CC_ARCHIVE_PURGE_PKG

Line 1: PACKAGE BODY IGC_CC_ARCHIVE_PURGE_PKG AS

1: PACKAGE BODY IGC_CC_ARCHIVE_PURGE_PKG AS
2: /* $Header: IGCCAPRB.pls 120.14.12010000.2 2008/08/29 13:08:10 schakkin ship $ */
3:
4: -- Types :
5:

Line 8: g_pkg_name CONSTANT VARCHAR2(30) := 'IGC_CC_ARCHIVE_PURGE_PKG';

4: -- Types :
5:
6: -- Constants :
7:
8: g_pkg_name CONSTANT VARCHAR2(30) := 'IGC_CC_ARCHIVE_PURGE_PKG';
9:
10: -- Private Global Variables :
11:
12: g_debug_msg VARCHAR2(10000) := NULL;

Line 36: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCAPRB.IGC_CC_ARCHIVE_PURGE_PKG.';

32: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
33: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
34: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
35: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
36: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCAPRB.IGC_CC_ARCHIVE_PURGE_PKG.';
37:
38: -- ---------------------------------------------------------------------
39: -- Private Function Definition:
40: -- ---------------------------------------------------------------------

Line 598: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/

594: );
595:
596: IF (l_stage1_parent_req > 0) THEN
597: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
598: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/
599: IF(g_event_level >= g_debug_level) THEN
600: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');
601: END IF;
602: COMMIT;

Line 600: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');

596: IF (l_stage1_parent_req > 0) THEN
597: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
598: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/
599: IF(g_event_level >= g_debug_level) THEN
600: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');
601: END IF;
602: COMMIT;
603: ELSE
604:

Line 606: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR error submitting request');

602: COMMIT;
603: ELSE
604:
605: FND_FILE.PUT_LINE (FND_FILE.LOG,
606: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR error submitting request');
607: /*raise_application_error (-20000,
608: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR '||
609: SQLERRM || '-' || SQLCODE);*/
610:

Line 608: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR '||

604:
605: FND_FILE.PUT_LINE (FND_FILE.LOG,
606: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR error submitting request');
607: /*raise_application_error (-20000,
608: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR '||
609: SQLERRM || '-' || SQLCODE);*/
610:
611: IF ( g_unexp_level >= g_debug_level ) THEN
612:

Line 626: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');*/

622:
623: END IF;
624:
625: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
626: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');*/
627: IF(g_state_level >= g_debug_level) THEN
628: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');
629: END IF;
630:

Line 628: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');

624:
625: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
626: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');*/
627: IF(g_state_level >= g_debug_level) THEN
628: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR request to finish... ');
629: END IF;
630:
631: l_stage1_wait_for_request := FND_CONCURRENT.WAIT_FOR_REQUEST (l_stage1_parent_req,
632: 05,

Line 640: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');*/

636: l_stage1_dev_phase,
637: l_stage1_dev_status,
638: l_stage1_message);
639: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
640: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');*/
641:
642: IF(g_event_level >= g_debug_level) THEN
643: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');
644: END IF;

Line 643: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');

639: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
640: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');*/
641:
642: IF(g_event_level >= g_debug_level) THEN
643: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR request');
644: END IF;
645:
646: IF ((l_stage1_dev_phase = 'COMPLETE') AND
647: (l_stage1_dev_status = 'NORMAL')) THEN

Line 649: 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');

645:
646: IF ((l_stage1_dev_phase = 'COMPLETE') AND
647: (l_stage1_dev_status = 'NORMAL')) THEN
648: FND_FILE.PUT_LINE (FND_FILE.LOG,
649: 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');
650:
651: IF(g_event_level >= g_debug_level) THEN
652: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');
653: END IF;

Line 652: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');

648: FND_FILE.PUT_LINE (FND_FILE.LOG,
649: 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');
650:
651: IF(g_event_level >= g_debug_level) THEN
652: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');
653: END IF;
654: ELSE
655: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
656: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR request');*/

Line 656: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR request');*/

652: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR request');
653: END IF;
654: ELSE
655: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
656: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR request');*/
657: raise FND_API.G_EXC_ERROR;
658: END IF;
659:
660: -- --------------------------------------------------------------------

Line 695: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/

691: );
692: END if;
693: IF (l_stage1_parent_req > 0) THEN
694: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
695: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/
696: IF(g_event_level >= g_debug_level) THEN
697: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML request Submitted ');
698: END IF;
699: COMMIT;

Line 697: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML request Submitted ');

693: IF (l_stage1_parent_req > 0) THEN
694: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
695: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR request Submitted ');*/
696: IF(g_event_level >= g_debug_level) THEN
697: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML request Submitted ');
698: END IF;
699: COMMIT;
700: ELSE
701:

Line 703: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML error submitting request');

699: COMMIT;
700: ELSE
701:
702: FND_FILE.PUT_LINE (FND_FILE.LOG,
703: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML error submitting request');
704: /*raise_application_error (-20000,
705: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR_XML '||
706: SQLERRM || '-' || SQLCODE);*/
707:

Line 705: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR_XML '||

701:
702: FND_FILE.PUT_LINE (FND_FILE.LOG,
703: 'IGC_CC_ARCHIVE_PURGE_PKG - IGCCAPRR_XML error submitting request');
704: /*raise_application_error (-20000,
705: 'IGC_CC_ARCHIVE_PURGE_PKG - error submitting IGCCAPRR_XML '||
706: SQLERRM || '-' || SQLCODE);*/
707:
708: IF ( g_unexp_level >= g_debug_level ) THEN
709:

Line 721: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');*/

717: l_error_text := FND_MESSAGE.GET;
718: raise_application_error (-20000, l_error_text);
719: END IF;
720: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
721: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');*/
722: IF(g_state_level >= g_debug_level) THEN
723: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');
724: END IF;
725:

Line 723: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');

719: END IF;
720: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
721: 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');*/
722: IF(g_state_level >= g_debug_level) THEN
723: FND_LOG.STRING(g_state_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - waiting for IGCCAPRR_XML request to finish... ');
724: END IF;
725:
726: l_stage1_wait_for_request := FND_CONCURRENT.WAIT_FOR_REQUEST (l_stage1_parent_req,
727: 05,

Line 735: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');*/

731: l_stage1_dev_phase,
732: l_stage1_dev_status,
733: l_stage1_message);
734: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
735: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');*/
736:
737: IF(g_event_level >= g_debug_level) THEN
738: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');
739: END IF;

Line 738: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');

734: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
735: 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');*/
736:
737: IF(g_event_level >= g_debug_level) THEN
738: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - finished... checking status of IGCCAPRR_XML request');
739: END IF;
740:
741: IF ((l_stage1_dev_phase = 'COMPLETE') AND
742: (l_stage1_dev_status = 'NORMAL')) THEN

Line 743: FND_FILE.PUT_LINE (FND_FILE.LOG,'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');

739: END IF;
740:
741: IF ((l_stage1_dev_phase = 'COMPLETE') AND
742: (l_stage1_dev_status = 'NORMAL')) THEN
743: FND_FILE.PUT_LINE (FND_FILE.LOG,'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');
744:
745: IF(g_event_level >= g_debug_level) THEN
746: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');
747: END IF;

Line 746: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');

742: (l_stage1_dev_status = 'NORMAL')) THEN
743: FND_FILE.PUT_LINE (FND_FILE.LOG,'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');
744:
745: IF(g_event_level >= g_debug_level) THEN
746: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');
747: END IF;
748: ELSE
749: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
750: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR_XML request');*/

Line 750: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR_XML request');*/

746: FND_LOG.STRING(g_event_level, l_full_path, 'IGC_CC_ARCHIVE_PURGE_PKG - COMPLETE / NORMAL status of IGCCAPRR_XML request');
747: END IF;
748: ELSE
749: /*FND_FILE.PUT_LINE (FND_FILE.LOG,
750: 'IGC_CC_ARCHIVE_PURGE_PKG - FAILED status of IGCCAPRR_XML request');*/
751: raise FND_API.G_EXC_ERROR;
752: END IF;
753: END IF;
754:

Line 6081: END IGC_CC_ARCHIVE_PURGE_PKG;

6077: RETURN;
6078:
6079: END Validate_Inputs;
6080:
6081: END IGC_CC_ARCHIVE_PURGE_PKG;
6082: