[Home] [Help]
1: PACKAGE BODY MSC_ATP_PUB AS
2: /* $Header: MSCEATPB.pls 120.19 2011/08/30 06:53:33 aksaxena ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MSC_ATP_PUB';
4: NO_APS_INSTANCE CONSTANT INTEGER := 140;
5: PROF_TBL_NOT_IN_SYNC CONSTANT INTEGER := 170;
1: PACKAGE BODY MSC_ATP_PUB AS
2: /* $Header: MSCEATPB.pls 120.19 2011/08/30 06:53:33 aksaxena ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MSC_ATP_PUB';
4: NO_APS_INSTANCE CONSTANT INTEGER := 140;
5: PROF_TBL_NOT_IN_SYNC CONSTANT INTEGER := 170;
6: G_INV_CTP NUMBER := FND_PROFILE.value('INV_CTP');
7: G_CTO_FLAG NUMBER := 0;
758: END IF;
759: EXCEPTION
760:
761: -- Error Handling fix : krajan
762: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
763: -- something wrong so we want to rollback;
764: IF PG_DEBUG in ('Y', 'C') THEN
765: msc_sch_wb.atp_debug('something wrong in Call_ATP : ' || sqlcode);
766: msc_sch_wb.atp_debug('Call_ATP: ' || sqlerrm);
2519: and l_custom_ret_sts = FND_API.G_RET_STS_SUCCESS THEN
2520:
2521: l_atp_rec_temp := l_custom_atp_rec;
2522: ---update information in mrp_atp_schedule_temp
2523: MSC_ATP_PUB.Update_Custom_Information(l_atp_rec_temp,
2524: p_session_id);
2525: END IF;
2526:
2527: -- end custom_api changes
2621: msc_sch_wb.atp_debug('l_summary_flag ' || l_summary_flag );
2622: END IF;
2623:
2624: IF (l_a2m_dblink IS NOT NULL) THEN
2625: plsql_block := 'BEGIN MSC_ATP_PUB.UPDATE_TABLES'
2626: ||'@'||l_a2m_dblink||'(
2627: :p_summary_flag,
2628: :p_end_refresh_number,
2629: :p_refresh_number,
2684: END IF;
2685: END IF;
2686:
2687: EXCEPTION
2688: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
2689: IF PG_DEBUG in ('Y', 'C') THEN
2690: msc_sch_wb.atp_debug('Error in Call_ATP_No_Commit :'||sqlcode);
2691: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'Invalid Objects found');
2692: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || sqlerrm);
3056: END IF;
3057: END IF;
3058: END UPDATE_TABLES;
3059:
3060: END MSC_ATP_PUB;