4566: FROM msc_plans
4567: WHERE plan_id = p_plan_id;
4568:
4569: IF NVL(l_summary_flag,1) NOT IN
4570: (MSC_POST_PRO.G_SF_SUMMARY_NOT_RUN,
4571: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4572: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4573: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4574: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4567: WHERE plan_id = p_plan_id;
4568:
4569: IF NVL(l_summary_flag,1) NOT IN
4570: (MSC_POST_PRO.G_SF_SUMMARY_NOT_RUN,
4571: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4572: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4573: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4574: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4575: msc_util.msc_log('Another session is running post-plan allocation program for this plan');
4568:
4569: IF NVL(l_summary_flag,1) NOT IN
4570: (MSC_POST_PRO.G_SF_SUMMARY_NOT_RUN,
4571: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4572: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4573: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4574: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4575: msc_util.msc_log('Another session is running post-plan allocation program for this plan');
4576: RETCODE := G_ERROR;
4569: IF NVL(l_summary_flag,1) NOT IN
4570: (MSC_POST_PRO.G_SF_SUMMARY_NOT_RUN,
4571: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4572: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4573: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4574: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4575: msc_util.msc_log('Another session is running post-plan allocation program for this plan');
4576: RETCODE := G_ERROR;
4577: RETURN;
4570: (MSC_POST_PRO.G_SF_SUMMARY_NOT_RUN,
4571: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4572: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4573: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4574: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4575: msc_util.msc_log('Another session is running post-plan allocation program for this plan');
4576: RETCODE := G_ERROR;
4577: RETURN;
4578: END IF;
4601: l_retval := FND_INSTALLATION.GET_APP_INFO('FND', dummy1, dummy2, l_applsys_schema);
4602:
4603: -- Update summary flag to signify begining of pegging generation
4604: Update_Summary_Flag ( p_plan_id,
4605: MSC_POST_PRO.G_SF_ATPPEG_RUNNING,
4606: l_return_status);
4607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4608: IF PG_DEBUG in ('Y', 'C') THEN
4609: msc_util.msc_log('Post_Plan_Pegging: ' ||
4661: ERRBUF := sqlerrm;
4662: END;
4663: -- Update summary flag to signify end of pegging generation
4664: Update_Summary_Flag ( p_plan_id,
4665: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED,
4666: l_return_status);
4667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4668: IF PG_DEBUG in ('Y', 'C') THEN
4669: msc_util.msc_log('Post_Plan_Pegging: ' ||