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:
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;
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: -- ---------------------------------------------------------------------
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;
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:
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:
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:
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:
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,
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;
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
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;
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');*/
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: -- --------------------------------------------------------------------
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;
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:
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:
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:
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:
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,
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;
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
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;
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');*/
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:
6077: RETURN;
6078:
6079: END Validate_Inputs;
6080:
6081: END IGC_CC_ARCHIVE_PURGE_PKG;
6082: