DBA Data[Home] [Help]

APPS.MSC_ATP_DB_UTILS dependencies on FND_API

Line 662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

658:
659: IF PG_DEBUG in ('Y', 'C') THEN
660: msc_sch_wb.atp_debug('Add_Mat_Demand: MSC_ATP_PVT.G_DEMAND_ID = '|| MSC_ATP_PVT.G_DEMAND_ID);
661: END IF;
662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
663: IF PG_DEBUG in ('Y', 'C') THEN
664: msc_sch_wb.atp_debug('Add_Mat_Demand: ' || 'Error occured in procedure Add_PF_Bucketed_Demands');
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;

Line 666: RAISE FND_API.G_EXC_ERROR;

662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
663: IF PG_DEBUG in ('Y', 'C') THEN
664: msc_sch_wb.atp_debug('Add_Mat_Demand: ' || 'Error occured in procedure Add_PF_Bucketed_Demands');
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668:
669: -- Allocated ATP Based on Planning Details -- Agilent changes Begin
670: ELSIF ((MSC_ATP_PVT.G_INV_CTP = 4) AND

Line 816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

812:
813: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
814: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Mat_Demand');
815: END IF;
816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
817: END Add_Mat_Demand;
818:
819:
820: PROCEDURE Add_Pegging(

Line 1131: x_return_status := FND_API.G_RET_STS_SUCCESS;

1127: msc_sch_wb.atp_debug('Add_Planned_Order: ' || 'p_order_date := ' || p_order_date);
1128: msc_sch_wb.atp_debug('Add_Planned_Order: ' || 'p_intransit_lead_time := ' || p_intransit_lead_time);
1129: END IF;
1130:
1131: x_return_status := FND_API.G_RET_STS_SUCCESS;
1132:
1133: --bug 3766179: Code to create planned order is moved to add_supplies
1134: l_supply_rec.instance_id := p_instance_id;
1135: l_supply_rec.plan_id := p_plan_id;

Line 1220: x_return_status := FND_API.G_RET_STS_SUCCESS;

1216: msc_sch_wb.atp_debug('Add_Resource_Demand: ' || 'p_unadj_resource_hours := ' || p_unadj_resource_hours); --5093604
1217: msc_sch_wb.atp_debug('Add_Resource_Demand: ' || 'p_touch_time := ' || p_touch_time); --5093604
1218: END IF;
1219:
1220: x_return_status := FND_API.G_RET_STS_SUCCESS;
1221:
1222: -- Insert demand into msc_resource_requirements
1223: INSERT into msc_resource_requirements
1224: (plan_id,

Line 2217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2213:
2214: IF PG_DEBUG in ('Y', 'C') THEN
2215: msc_sch_wb.atp_debug('Delete_Row :' || sqlcode || ': ' || sqlerrm);
2216: END IF;
2217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2218:
2219: END Delete_Row;
2220:
2221:

Line 2280: x_return_status := FND_API.G_RET_STS_SUCCESS;

2276: END IF;
2277:
2278: -- for ods, just need to remove the record from msc_sales_orders
2279: -- initialize API return status to success
2280: x_return_status := FND_API.G_RET_STS_SUCCESS;
2281:
2282: -- rajjain 05/19/2003 bug 2959840
2283: msc_sch_wb.atp_debug('Remove_Invalid_SD_Rec: ' || 'Reset all the global variables ');
2284: -- Begin ATP4drp Allocation not supported for DRP plans.

Line 2989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2985: p_quantity,
2986: l_atf_date,
2987: l_return_status
2988: );
2989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2990: IF PG_DEBUG in ('Y', 'C') THEN
2991: msc_sch_wb.atp_debug('Update_Planned_Order: ' || 'Error occured in procedure Update_PF_Rollup_Supplies');
2992: END IF;
2993: RAISE FND_API.G_EXC_ERROR;

Line 2993: RAISE FND_API.G_EXC_ERROR;

2989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2990: IF PG_DEBUG in ('Y', 'C') THEN
2991: msc_sch_wb.atp_debug('Update_Planned_Order: ' || 'Error occured in procedure Update_PF_Rollup_Supplies');
2992: END IF;
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995:
2996: -- Allocated ATP Based on Planning Details -- Agilent changes Begin
2997: ELSIF ((MSC_ATP_PVT.G_INV_CTP = 4) AND

Line 3234: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

3230: l_po_qty,
3231: l_prim_uom_dmd_qty, --bug 7361001
3232: l_return_status
3233: );
3234: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3235: IF PG_DEBUG in ('Y', 'C') THEN
3236: msc_sch_wb.atp_debug('Update_Planned_Order: ' || 'Error occured in procedure Update_PF_Bucketed_Demands');
3237: END IF;
3238: RAISE FND_API.G_EXC_ERROR;

Line 3238: RAISE FND_API.G_EXC_ERROR;

3234: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3235: IF PG_DEBUG in ('Y', 'C') THEN
3236: msc_sch_wb.atp_debug('Update_Planned_Order: ' || 'Error occured in procedure Update_PF_Bucketed_Demands');
3237: END IF;
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3240:
3241: -- Allocated ATP Based on Planning Details -- Agilent changes Begin
3242: ELSIF ((MSC_ATP_PVT.G_INV_CTP = 4) AND

Line 3659: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

3655: l_return_status,
3656: p_bkwd_pass_atf_date_qty, --bug3397904
3657: p_atp_rec -- For bug 3226083
3658: );
3659: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3660: IF PG_DEBUG in ('Y', 'C') THEN
3661: msc_sch_wb.atp_debug('Update_SD_Date: ' || 'Error occured in procedure Move_PF_Bucketed_Demands');
3662: END IF;
3663: RAISE FND_API.G_EXC_ERROR;

Line 3663: RAISE FND_API.G_EXC_ERROR;

3659: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3660: IF PG_DEBUG in ('Y', 'C') THEN
3661: msc_sch_wb.atp_debug('Update_SD_Date: ' || 'Error occured in procedure Move_PF_Bucketed_Demands');
3662: END IF;
3663: RAISE FND_API.G_EXC_ERROR;
3664: END IF;
3665: -- time_phased_atp changes end
3666:
3667: -- Allocated ATP Based on Planning Details -- Agilent changes Begin

Line 3819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3816: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Update_SD_Date');
3817: END IF;
3818:
3819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3820: END Update_SD_Date;
3821:
3822:
3823: -- NGOEL 7/26/2001, Bug 1661545, if scheduling was unsuccessful, make sure that old demand record is

Line 4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4167: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4168: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Undo_Delete_Row');
4169: END IF;
4170:
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4172:
4173: END Undo_Delete_Row;
4174:
4175: PROCEDURE DELETE_SUMMARY_ROW (p_identifier IN NUMBER,

Line 4848: x_return_status := FND_API.G_RET_STS_SUCCESS;

4844: IF PG_DEBUG in ('Y', 'C') THEN
4845: msc_sch_wb.atp_debug(' ******** Delete_Copy_Demand Begin *************');
4846: END IF;
4847:
4848: x_return_status := FND_API.G_RET_STS_SUCCESS;
4849:
4850: msc_sch_wb.atp_debug('Delete_Copy_Demand : ' || 'p_copy_demand_ids.COUNT : ' || p_copy_demand_ids.COUNT);
4851:
4852: IF p_copy_demand_ids.COUNT > 0 THEN

Line 4893: x_return_status := FND_API.G_RET_STS_ERROR;

4889: END IF;
4890:
4891: EXCEPTION
4892: WHEN OTHERS THEN
4893: x_return_status := FND_API.G_RET_STS_ERROR;
4894: END Delete_Copy_Demand;
4895:
4896: -- New procedure added for ship_rec_cal project
4897: PROCEDURE Flush_Data_In_Pds(

Line 4904: x_return_status := FND_API.G_RET_STS_SUCCESS;

4900: )
4901: IS
4902:
4903: BEGIN
4904: x_return_status := FND_API.G_RET_STS_SUCCESS;
4905:
4906: IF PG_DEBUG in ('Y', 'C') THEN
4907: msc_sch_wb.atp_debug(' ******** Flush_Data_In_Pds Begin *************');
4908: msc_sch_wb.atp_debug('Flush_Data_In_Pds : ' || 'sch arrival date: ' || p_ship_arrival_date_rec.scheduled_arrival_date);

Line 4937: x_return_status := FND_API.G_RET_STS_ERROR;

4933:
4934: EXCEPTION
4935: WHEN OTHERS THEN
4936: msc_sch_wb.atp_debug('Flush_Data_In_Pds : '||sqlerrm);
4937: x_return_status := FND_API.G_RET_STS_ERROR;
4938:
4939: END Flush_Data_In_Pds;
4940:
4941: -- New procedure added for plan by request date project

Line 4949: x_return_status := FND_API.G_RET_STS_SUCCESS;

4945: )
4946: IS
4947:
4948: BEGIN
4949: x_return_status := FND_API.G_RET_STS_SUCCESS;
4950:
4951:
4952: IF PG_DEBUG in ('Y', 'C') THEN
4953: msc_sch_wb.atp_debug(' ******** Flush_Data_In_Ods Begin *************');

Line 4982: x_return_status := FND_API.G_RET_STS_ERROR;

4978:
4979: EXCEPTION
4980: WHEN OTHERS THEN
4981: msc_sch_wb.atp_debug('Flush_Data_In_Ods : '||sqlerrm);
4982: x_return_status := FND_API.G_RET_STS_ERROR;
4983:
4984: END Flush_Data_In_Ods;
4985:
4986: --bug 3766179: add new procedure to add supplies irrespective of supply type

Line 5016: p_supply_rec_type.return_status := FND_API.G_RET_STS_SUCCESS;

5012: msc_sch_wb.atp_debug('Add_Supplies: ' || 'p_order_date := ' || p_supply_rec_type.order_date);
5013: msc_sch_wb.atp_debug('Add_Supplies: ' || 'p_intransit_lead_time := ' || p_supply_rec_type.intransit_lead_time); --4127630
5014: END IF;
5015:
5016: p_supply_rec_type.return_status := FND_API.G_RET_STS_SUCCESS;
5017:
5018: -- time_phased_atp changes begin
5019: IF (p_supply_rec_type.inventory_item_id <> p_supply_rec_type.request_item_id) and p_supply_rec_type.atf_date is not null THEN
5020: l_time_phased_atp := 'Y';

Line 5145: IF p_supply_rec_type.return_status <> FND_API.G_RET_STS_SUCCESS THEN

5141: p_supply_rec_type.atf_date,
5142: p_supply_rec_type.refresh_number,
5143: p_supply_rec_type.return_status
5144: );
5145: IF p_supply_rec_type.return_status <> FND_API.G_RET_STS_SUCCESS THEN
5146: IF PG_DEBUG in ('Y', 'C') THEN
5147: msc_sch_wb.atp_debug('Add_Supplies: ' || 'Error occured in procedure Add_PF_Rollup_Supplies');
5148: END IF;
5149: RAISE FND_API.G_EXC_ERROR;

Line 5149: RAISE FND_API.G_EXC_ERROR;

5145: IF p_supply_rec_type.return_status <> FND_API.G_RET_STS_SUCCESS THEN
5146: IF PG_DEBUG in ('Y', 'C') THEN
5147: msc_sch_wb.atp_debug('Add_Supplies: ' || 'Error occured in procedure Add_PF_Rollup_Supplies');
5148: END IF;
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5151:
5152: -- Allocated ATP Based on Planning Details -- Agilent changes Begin
5153: ELSIF ((MSC_ATP_PVT.G_INV_CTP = 4) AND

Line 5332: x_return_status := FND_API.G_RET_STS_SUCCESS;

5328: IF PG_DEBUG in ('Y', 'C') THEN
5329: msc_sch_wb.atp_debug('*** Begin Call_delete_row ***');
5330: END IF;
5331:
5332: x_return_status := FND_API.G_RET_STS_SUCCESS;
5333:
5334: l_demand_ids.Extend(p_atp_table.action.count);
5335: l_inv_item_ids.extend(p_atp_table.action.count);
5336: x_delete_atp_rec.error_code.extend(p_atp_table.action.count);

Line 5422: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

5418: IF PG_DEBUG in ('Y', 'C') THEN
5419: msc_sch_wb.atp_debug('Call_delete_row: l_return_status:= ' || l_return_status);
5420: END IF;
5421:
5422: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5423: IF PG_DEBUG in ('Y', 'C') THEN
5424: msc_sch_wb.atp_debug('Call_delete_row: ' || 'ATP Downtime during Re-schedule');
5425: END IF;
5426: x_return_status := FND_API.G_RET_STS_ERROR;

Line 5426: x_return_status := FND_API.G_RET_STS_ERROR;

5422: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5423: IF PG_DEBUG in ('Y', 'C') THEN
5424: msc_sch_wb.atp_debug('Call_delete_row: ' || 'ATP Downtime during Re-schedule');
5425: END IF;
5426: x_return_status := FND_API.G_RET_STS_ERROR;
5427: return; -- Return in case of error in get_pf_plan_info, no point in proceding further.
5428: END IF;
5429: /* time_phased_atp changes end*/
5430: IF PG_DEBUG in ('Y', 'C') THEN

Line 5966: x_return_status := FND_API.G_RET_STS_SUCCESS;

5962: END IF;
5963:
5964: -- for ods, just need to remove the record from msc_sales_orders
5965: -- initialize API return status to success
5966: x_return_status := FND_API.G_RET_STS_SUCCESS;
5967: MSC_ATP_PVT.G_ALLOCATION_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'),2);
5968: MSC_ATP_PVT.G_ALLOCATED_ATP := NVL(FND_PROFILE.value('MSC_ALLOCATED_ATP'),'N');
5969: MSC_ATP_PVT.G_INV_CTP := FND_PROFILE.value('INV_CTP') ;
5970:

Line 6106: x_return_status := FND_API.G_RET_STS_ERROR;

6102: WHEN OTHERS THEN
6103: IF PG_DEBUG in ('Y', 'C') THEN
6104: msc_sch_wb.atp_debug('Hide_SD_Rec: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6105: END IF;
6106: x_return_status := FND_API.G_RET_STS_ERROR;
6107: END Hide_SD_Rec;
6108:
6109: /*--Delete_SD_Rec-----------------------------------------------
6110: | o This procedure is called from Schedule to delete the

Line 6143: x_return_status := FND_API.G_RET_STS_SUCCESS;

6139: IF PG_DEBUG in ('Y', 'C') THEN
6140: msc_sch_wb.atp_debug('***** Begin Delete_SD_Rec Procedure *****');
6141: END IF;
6142:
6143: x_return_status := FND_API.G_RET_STS_SUCCESS;
6144: MSC_ATP_PVT.G_ALLOCATION_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'),2);
6145: MSC_ATP_PVT.G_ALLOCATED_ATP := NVL(FND_PROFILE.value('MSC_ALLOCATED_ATP'),'N');
6146: MSC_ATP_PVT.G_INV_CTP := FND_PROFILE.value('INV_CTP') ;
6147:

Line 6272: x_return_status := FND_API.G_RET_STS_ERROR;

6268: WHEN OTHERS THEN
6269: IF PG_DEBUG in ('Y', 'C') THEN
6270: msc_sch_wb.atp_debug('Delete_SD_Rec: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6271: END IF;
6272: x_return_status := FND_API.G_RET_STS_ERROR;
6273: END Delete_SD_Rec;
6274:
6275: /*--Restore_SD_Rec-----------------------------------------------
6276: | o This procedure is called from Schedule to restore the

Line 6311: x_return_status := FND_API.G_RET_STS_SUCCESS;

6307: END IF;
6308:
6309: -- for ods, just need to remove the record from msc_sales_orders
6310: -- initialize API return status to success
6311: x_return_status := FND_API.G_RET_STS_SUCCESS;
6312: MSC_ATP_PVT.G_ALLOCATION_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'),2);
6313: MSC_ATP_PVT.G_ALLOCATED_ATP := NVL(FND_PROFILE.value('MSC_ALLOCATED_ATP'),'N');
6314: MSC_ATP_PVT.G_INV_CTP := FND_PROFILE.value('INV_CTP') ;
6315:

Line 6449: x_return_status := FND_API.G_RET_STS_ERROR;

6445: WHEN OTHERS THEN
6446: IF PG_DEBUG in ('Y', 'C') THEN
6447: msc_sch_wb.atp_debug('Restore_SD_Rec: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6448: END IF;
6449: x_return_status := FND_API.G_RET_STS_ERROR;
6450: END Restore_SD_Rec;
6451:
6452: END MSC_ATP_DB_UTILS;