[Home] [Help]
1: PACKAGE BODY MSC_ATP_PUB AS
2: /* $Header: MSCEATPB.pls 120.15 2007/12/12 10:25:46 sbnaik 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.15 2007/12/12 10:25:46 sbnaik 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;
737: END IF;
738: EXCEPTION
739:
740: -- Error Handling fix : krajan
741: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
742: -- something wrong so we want to rollback;
743: IF PG_DEBUG in ('Y', 'C') THEN
744: msc_sch_wb.atp_debug('something wrong in Call_ATP : ' || sqlcode);
745: msc_sch_wb.atp_debug('Call_ATP: ' || sqlerrm);
2490: and l_custom_ret_sts = FND_API.G_RET_STS_SUCCESS THEN
2491:
2492: l_atp_rec_temp := l_custom_atp_rec;
2493: ---update information in mrp_atp_schedule_temp
2494: MSC_ATP_PUB.Update_Custom_Information(l_atp_rec_temp,
2495: p_session_id);
2496: END IF;
2497:
2498: -- end custom_api changes
2587: msc_sch_wb.atp_debug('l_summary_flag ' || l_summary_flag );
2588: END IF;
2589:
2590: IF (l_a2m_dblink IS NOT NULL) THEN
2591: plsql_block := 'BEGIN MSC_ATP_PUB.UPDATE_TABLES'
2592: ||'@'||l_a2m_dblink||'(
2593: :p_summary_flag,
2594: :p_end_refresh_number,
2595: :p_refresh_number,
2650: END IF;
2651: END IF;
2652:
2653: EXCEPTION
2654: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
2655: IF PG_DEBUG in ('Y', 'C') THEN
2656: msc_sch_wb.atp_debug('Error in Call_ATP_No_Commit :'||sqlcode);
2657: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'Invalid Objects found');
2658: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || sqlerrm);
3022: END IF;
3023: END IF;
3024: END UPDATE_TABLES;
3025:
3026: END MSC_ATP_PUB;