[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;
1039: --bug3700564
1040: org_availability_info.family_item_name(l_process_org_cntr),
1041: l_return_status
1042: );
1043: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1044: IF PG_DEBUG in ('Y', 'C') THEN
1045: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Get_Family_Item_Info');
1046: END IF;
1047: RAISE FND_API.G_EXC_ERROR;
1043: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1044: IF PG_DEBUG in ('Y', 'C') THEN
1045: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Get_Family_Item_Info');
1046: END IF;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049: ELSE -- DRP plan re-set variables.
1050: -- Allocated and PF ATP de-supported for DRP Plans.
1051: MSC_ATP_PVT.G_ALLOCATED_ATP := 'N';
1198: p_atp_record.demand_class,
1199: org_availability_info.atf_date(l_process_org_cntr),
1200: l_return_status
1201: );
1202: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1203: IF PG_DEBUG in ('Y', 'C') THEN
1204: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Set_Alloc_Rule_Variables');
1205: END IF;
1206: RAISE FND_API.G_EXC_ERROR;
1202: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1203: IF PG_DEBUG in ('Y', 'C') THEN
1204: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Set_Alloc_Rule_Variables');
1205: END IF;
1206: RAISE FND_API.G_EXC_ERROR;
1207: END IF;
1208:
1209: IF l_requested_ship_date <= org_availability_info.atf_date(l_process_org_cntr) THEN
1210: IF MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF = 'Y' THEN
1750: org_availability_info.plan_id(l_process_org_cntr),
1751: org_availability_info.demand_id(l_process_org_cntr),
1752: l_return_status
1753: );
1754: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1755: IF PG_DEBUG in ('Y', 'C') THEN
1756: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1757: END IF;
1758: RAISE FND_API.G_EXC_ERROR;
1754: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1755: IF PG_DEBUG in ('Y', 'C') THEN
1756: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1757: END IF;
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760: /* Reset l_atf_date_qty to 0*/ --bug3467631
1761: l_atf_date_qty := 0;
1762: END IF;
1785: org_availability_info.plan_id(l_process_org_cntr),
1786: org_availability_info.demand_id(l_process_org_cntr),
1787: l_return_status
1788: );
1789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1790: IF PG_DEBUG in ('Y', 'C') THEN
1791: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1792: END IF;
1793: RAISE FND_API.G_EXC_ERROR;
1789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1790: IF PG_DEBUG in ('Y', 'C') THEN
1791: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
1792: END IF;
1793: RAISE FND_API.G_EXC_ERROR;
1794: END IF;
1795: /* Reset l_atf_date_qty to 0*/ --bug3467631
1796: l_atf_date_qty := 0;
1797: END IF;
1861: END IF;
1862: org_availability_info.constraint_type(l_parent_org_cntr) := MATERIAL_CONSTRAINT;
1863: END IF;
1864: END IF;
1865: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1866: l_sources.source_type.count = 0
1867: THEN
1868: IF PG_DEBUG in ('Y', 'C') THEN
1869: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'No sources Found for this org');
2683: org_availability_info.plan_id(l_process_org_cntr),
2684: org_availability_info.demand_id(l_process_org_cntr),
2685: l_return_status
2686: );
2687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2688: IF PG_DEBUG in ('Y', 'C') THEN
2689: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
2690: END IF;
2691: RAISE FND_API.G_EXC_ERROR;
2687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2688: IF PG_DEBUG in ('Y', 'C') THEN
2689: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
2690: END IF;
2691: RAISE FND_API.G_EXC_ERROR;
2692: END IF;
2693: END IF;
2694: -- time_phased_atp changes end
2695:
3895: item_availability_info.plan_id(i),
3896: item_availability_info.demand_id(i),
3897: l_return_status
3898: );
3899: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3900: IF PG_DEBUG in ('Y', 'C') THEN
3901: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
3902: END IF;
3903: RAISE FND_API.G_EXC_ERROR;
3899: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3900: IF PG_DEBUG in ('Y', 'C') THEN
3901: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error occured in procedure Increment_Bucketed_Demands_Qty');
3902: END IF;
3903: RAISE FND_API.G_EXC_ERROR;
3904: END IF;
3905: END IF;
3906: -- time_phased_atp changes end
3907:
4767: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4768: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4769:
4770: WHEN OTHERS THEN
4771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4772:
4773: -- dsting set error_code
4774: --bug3583705 start
4775: --p_atp_record.error_code := MSC_ATP_PVT.ATP_PROCESSING_ERROR;
4821:
4822: IF l_msg_app='MRP' AND l_msg_name='GEN-DATE OUT OF BOUNDS' THEN --bug3583705
4823: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4824: ELSE
4825: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4826: END IF;
4827: END ATP_Check_Subst;
4828:
4829: Procedure Get_Item_Substitutes(p_inventory_item_id IN NUMBER,
5620: msc_sch_wb.atp_debug('Details_Output: ' || 'p_begin_sd_idx := ' || p_begin_sd_idx);
5621: msc_sch_wb.atp_debug('Details_Output: ' || 'p_end_sd_idx := ' || p_end_sd_idx);
5622: END IF;
5623:
5624: x_return_status := FND_API.G_RET_STS_SUCCESS;
5625:
5626: IF p_atp_period.level.COUNT > 0 THEN
5627:
5628: l_count := x_atp_period.level.COUNT;