[Home] [Help]
98: x_return_status OUT NoCopy VARCHAR2)
99: IS
100: Begin
101:
102: x_return_status := FND_API.G_RET_STS_SUCCESS;
103: ----
104: p_org_avail_info.Organization_Id.extend;
105: p_org_avail_info.Parent_Org_Idx.extend;
106: p_org_avail_info.Requested_ship_date.extend;
1044: --bug3700564
1045: org_availability_info.family_item_name(l_process_org_cntr),
1046: l_return_status
1047: );
1048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1049: IF PG_DEBUG in ('Y', 'C') THEN
1050: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Get_Family_Item_Info');
1051: END IF;
1052: RAISE FND_API.G_EXC_ERROR;
1048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1049: IF PG_DEBUG in ('Y', 'C') THEN
1050: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Get_Family_Item_Info');
1051: END IF;
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054: ELSE -- DRP plan re-set variables.
1055: -- Allocated and PF ATP de-supported for DRP Plans.
1056: MSC_ATP_PVT.G_ALLOCATED_ATP := 'N';
1221: p_atp_record.demand_class,
1222: org_availability_info.atf_date(l_process_org_cntr),
1223: l_return_status
1224: );
1225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1226: IF PG_DEBUG in ('Y', 'C') THEN
1227: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Set_Alloc_Rule_Variables');
1228: END IF;
1229: RAISE FND_API.G_EXC_ERROR;
1225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1226: IF PG_DEBUG in ('Y', 'C') THEN
1227: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Set_Alloc_Rule_Variables');
1228: END IF;
1229: RAISE FND_API.G_EXC_ERROR;
1230: END IF;
1231:
1232: IF l_requested_ship_date <= org_availability_info.atf_date(l_process_org_cntr) THEN
1233: IF MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF = 'Y' THEN
1773: org_availability_info.plan_id(l_process_org_cntr),
1774: org_availability_info.demand_id(l_process_org_cntr),
1775: l_return_status
1776: );
1777: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1778: IF PG_DEBUG in ('Y', 'C') THEN
1779: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1780: END IF;
1781: RAISE FND_API.G_EXC_ERROR;
1777: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1778: IF PG_DEBUG in ('Y', 'C') THEN
1779: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1780: END IF;
1781: RAISE FND_API.G_EXC_ERROR;
1782: END IF;
1783: /* Reset l_atf_date_qty to 0*/ --bug3467631
1784: l_atf_date_qty := 0;
1785: END IF;
1808: org_availability_info.plan_id(l_process_org_cntr),
1809: org_availability_info.demand_id(l_process_org_cntr),
1810: l_return_status
1811: );
1812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1813: IF PG_DEBUG in ('Y', 'C') THEN
1814: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1815: END IF;
1816: RAISE FND_API.G_EXC_ERROR;
1812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1813: IF PG_DEBUG in ('Y', 'C') THEN
1814: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1815: END IF;
1816: RAISE FND_API.G_EXC_ERROR;
1817: END IF;
1818: /* Reset l_atf_date_qty to 0*/ --bug3467631
1819: l_atf_date_qty := 0;
1820: END IF;
1884: END IF;
1885: org_availability_info.constraint_type(l_parent_org_cntr) := MATERIAL_CONSTRAINT;
1886: END IF;
1887: END IF;
1888: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1889: l_sources.source_type.count = 0
1890: THEN
1891: IF PG_DEBUG in ('Y', 'C') THEN
1892: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'No sources Found for this org');
2706: org_availability_info.plan_id(l_process_org_cntr),
2707: org_availability_info.demand_id(l_process_org_cntr),
2708: l_return_status
2709: );
2710: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2711: IF PG_DEBUG in ('Y', 'C') THEN
2712: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
2713: END IF;
2714: RAISE FND_API.G_EXC_ERROR;
2710: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2711: IF PG_DEBUG in ('Y', 'C') THEN
2712: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
2713: END IF;
2714: RAISE FND_API.G_EXC_ERROR;
2715: END IF;
2716: END IF;
2717: -- time_phased_atp changes end
2718:
3957: item_availability_info.plan_id(i),
3958: item_availability_info.demand_id(i),
3959: l_return_status
3960: );
3961: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3962: IF PG_DEBUG in ('Y', 'C') THEN
3963: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
3964: END IF;
3965: RAISE FND_API.G_EXC_ERROR;
3961: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3962: IF PG_DEBUG in ('Y', 'C') THEN
3963: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
3964: END IF;
3965: RAISE FND_API.G_EXC_ERROR;
3966: END IF;
3967: END IF;
3968: -- time_phased_atp changes end
3969:
4866: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4867: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4868:
4869: WHEN OTHERS THEN
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871:
4872: -- dsting set error_code
4873: --bug3583705 start
4874: --p_atp_record.error_code := MSC_ATP_PVT.ATP_PROCESSING_ERROR;
4920:
4921: IF l_msg_app='MRP' AND l_msg_name='GEN-DATE OUT OF BOUNDS' THEN --bug3583705
4922: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4923: ELSE
4924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4925: END IF;
4926: END ATP_Check_Subst;
4927:
4928: Procedure Get_Item_Substitutes(p_inventory_item_id IN NUMBER,
5846: msc_sch_wb.atp_debug('Details_Output: ' || 'p_begin_sd_idx := ' || p_begin_sd_idx);
5847: msc_sch_wb.atp_debug('Details_Output: ' || 'p_end_sd_idx := ' || p_end_sd_idx);
5848: END IF;
5849:
5850: x_return_status := FND_API.G_RET_STS_SUCCESS;
5851:
5852: IF p_atp_period.level.COUNT > 0 THEN
5853:
5854: l_count := x_atp_period.level.COUNT;