131: order by wda.delivery_id, wdd.load_seq_number;
132:
133: BEGIN
134:
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: l_stmt_num := 100;
138:
139: select nvl(oel.dep_plan_required_flag, 'N')
231: l_error_message,
232: l_message_name
233: );
234:
235: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
236: IF PG_DEBUG <> 0 THEN
237: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
238: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
239: END IF;
236: IF PG_DEBUG <> 0 THEN
237: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
238: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
239: END IF;
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
242: IF PG_DEBUG <> 0 THEN
243: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
244: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
237: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
238: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
239: END IF;
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
242: IF PG_DEBUG <> 0 THEN
243: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
244: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
245: END IF;
242: IF PG_DEBUG <> 0 THEN
243: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
244: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
245: END IF;
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: ELSE
248: IF PG_DEBUG <> 0 THEN
249: oe_debug_pub.add('insert_wip_interface: ' || 'success from create_Subassembly_jobs ' ,1);
250: oe_debug_pub.add('insert_wip_interface: ' || l_error_message ,1);
364: if (SQL%ROWCOUNT > 0) then
365: IF PG_DEBUG <> 0 THEN
366: oe_debug_pub.add('insert_wip_interface: ' || 'Number of Rows Inserted in WJSI: ' || to_char(SQL%ROWCOUNT));
367: END IF;
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
369: else
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
372: raise INSERT_ERROR ;
366: oe_debug_pub.add('insert_wip_interface: ' || 'Number of Rows Inserted in WJSI: ' || to_char(SQL%ROWCOUNT));
367: END IF;
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
369: else
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
372: raise INSERT_ERROR ;
373: end if;
374:
448: l_error_message,
449: l_message_name
450: );
451:
452: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
453: IF PG_DEBUG <> 0 THEN
454: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
455: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
456: END IF;
453: IF PG_DEBUG <> 0 THEN
454: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
455: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
456: END IF;
457: RAISE FND_API.G_EXC_ERROR;
458: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: IF PG_DEBUG <> 0 THEN
460: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
461: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
454: oe_debug_pub.add ('insert_wip_interface: ' || 'failed after get_wroking_day' || l_return_status ,1);
455: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
456: END IF;
457: RAISE FND_API.G_EXC_ERROR;
458: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: IF PG_DEBUG <> 0 THEN
460: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
461: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
462: END IF;
459: IF PG_DEBUG <> 0 THEN
460: oe_debug_pub.add ('insert_wip_interface: ' || ' failed after call to get_working_day' || l_return_status ,1);
461: oe_debug_pub.add ('insert_wip_interface: ' || 'error message' || l_error_message ,1);
462: END IF;
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: ELSE
465: IF PG_DEBUG <> 0 THEN
466: oe_debug_pub.add('insert_wip_interface: ' || 'success from get_working_day ' ,1);
467: oe_debug_pub.add('insert_wip_interface: ' || l_error_message ,1);
602: IF PG_DEBUG <> 0 THEN
603: oe_debug_pub.add('insert_wip_interface: ' || 'Number of Rows Inserted in WJSI for departure planned : ' ||
604: to_char(SQL%ROWCOUNT),1);
605: END IF;
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607: else
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
610: raise INSERT_ERROR ;
604: to_char(SQL%ROWCOUNT),1);
605: END IF;
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607: else
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
610: raise INSERT_ERROR ;
611: end if;
612:
629:
630: EXCEPTION
631:
632:
633: when FND_API.G_EXC_ERROR then
634:
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: x_error_message := 'CTOWIPUB.insert wip interface expected excpn: ';
637:
631:
632:
633: when FND_API.G_EXC_ERROR then
634:
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: x_error_message := 'CTOWIPUB.insert wip interface expected excpn: ';
637:
638:
639: IF PG_DEBUG <> 0 THEN
641: END IF;
642:
643:
644:
645: when FND_API.G_EXC_UNEXPECTED_ERROR then
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
647: x_error_message := 'CTOWIPUB.insert wip interface N expected excpn: '|| ':' ||
648: substrb(sqlerrm,1,100) ;
649:
642:
643:
644:
645: when FND_API.G_EXC_UNEXPECTED_ERROR then
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
647: x_error_message := 'CTOWIPUB.insert wip interface N expected excpn: '|| ':' ||
648: substrb(sqlerrm,1,100) ;
649:
650:
656:
657: when NO_DATA_FOUND then
658: x_error_message := 'CTOWIPUB.insert_wip_interface raised no-data-found: '|| ':' ||
659: substrb(sqlerrm,1,100);
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: IF PG_DEBUG <> 0 THEN
662: oe_debug_pub.add('insert_wip_interface: ' || x_error_message,1);
663: END IF;
664: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
663: END IF;
664: cto_msg_pub.cto_message('BOM', 'BOM_ATO_PROCESS_ERROR');
665:
666: when INSERT_ERROR then
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: x_error_message := 'CTOWIPUB.insert_wip_interface raised INSERT_ERROR:' || to_char(l_stmt_num)|| ':' ||
669: substrb(sqlerrm,1,100);
670: IF PG_DEBUG <> 0 THEN
671: oe_debug_pub.add('insert_wip_interface: ' || x_error_message,1);
671: oe_debug_pub.add('insert_wip_interface: ' || x_error_message,1);
672: END IF;
673:
674: when OTHERS then
675: x_return_status := FND_API.G_RET_STS_ERROR;
676: x_error_message := 'CTOWIPUB.insert_wip_interface raised OTHERS excpn: ' || to_char(l_stmt_num)|| ':' ||
677: substrb(sqlerrm,1,100) ;
678:
679: IF PG_DEBUG <> 0 THEN
892: --
893: -- Deliveries have been assigned and planned
894: --
895:
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897: x_result_out := FND_API.G_TRUE;
898:
899: EXCEPTION
900: when DELIVERY_NOT_PLANNED then
893: -- Deliveries have been assigned and planned
894: --
895:
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897: x_result_out := FND_API.G_TRUE;
898:
899: EXCEPTION
900: when DELIVERY_NOT_PLANNED then
901: x_return_status := FND_API.G_RET_STS_SUCCESS;
897: x_result_out := FND_API.G_TRUE;
898:
899: EXCEPTION
900: when DELIVERY_NOT_PLANNED then
901: x_return_status := FND_API.G_RET_STS_SUCCESS;
902: x_result_out := FND_API.G_FALSE;
903:
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
898:
899: EXCEPTION
900: when DELIVERY_NOT_PLANNED then
901: x_return_status := FND_API.G_RET_STS_SUCCESS;
902: x_result_out := FND_API.G_FALSE;
903:
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
906: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::exp error', 1);
900: when DELIVERY_NOT_PLANNED then
901: x_return_status := FND_API.G_RET_STS_SUCCESS;
902: x_result_out := FND_API.G_FALSE;
903:
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
906: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::exp error', 1);
907: END IF;
908: x_return_status := FND_API.G_RET_STS_ERROR;
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
906: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::exp error', 1);
907: END IF;
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: CTO_MSG_PUB.Count_And_Get
910: (p_msg_count => x_msg_count
911: ,p_msg_data => x_msg_data
912: );
910: (p_msg_count => x_msg_count
911: ,p_msg_data => x_msg_data
912: );
913:
914: when FND_API.G_EXC_UNEXPECTED_ERROR then
915: IF PG_DEBUG <> 0 THEN
916: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::unexp error', 1);
917: END IF;
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: when FND_API.G_EXC_UNEXPECTED_ERROR then
915: IF PG_DEBUG <> 0 THEN
916: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::unexp error', 1);
917: END IF;
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: CTO_MSG_PUB.Count_And_Get
920: (p_msg_count => x_msg_count
921: ,p_msg_data => x_msg_data
922: );
924: when OTHERS then
925: IF PG_DEBUG <> 0 THEN
926: oe_debug_pub.add('Delivery_Planned: ' || 'CTO_WIP_UTIL.Delivery_Planned::others', 1);
927: END IF;
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
930: then
931: FND_MSG_PUB.Add_Exc_Msg
932: ( 'CTO_WIP_UTIL'