2576: BEGIN
2577:
2578: d_progress := 0;
2579:
2580: IF (po_log.d_proc) THEN
2581: po_log.proc_begin (d_module);
2582: po_log.proc_begin (d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
2583: END IF;
2584:
2577:
2578: d_progress := 0;
2579:
2580: IF (po_log.d_proc) THEN
2581: po_log.proc_begin (d_module);
2582: po_log.proc_begin (d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
2583: END IF;
2584:
2585: d_progress := 10;
2578: d_progress := 0;
2579:
2580: IF (po_log.d_proc) THEN
2581: po_log.proc_begin (d_module);
2582: po_log.proc_begin (d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
2583: END IF;
2584:
2585: d_progress := 10;
2586:
2596: EXCEPTION
2597:
2598: WHEN NO_DATA_FOUND THEN
2599:
2600: IF (po_log.d_stmt) THEN
2601: po_log.stmt (d_module, d_progress, 'No data found in hr_locations.' );
2602: END IF;
2603:
2604: END;
2597:
2598: WHEN NO_DATA_FOUND THEN
2599:
2600: IF (po_log.d_stmt) THEN
2601: po_log.stmt (d_module, d_progress, 'No data found in hr_locations.' );
2602: END IF;
2603:
2604: END;
2605:
2618:
2619: EXCEPTION
2620:
2621: WHEN NO_DATA_FOUND THEN
2622: IF (po_log.d_stmt) THEN
2623: po_log.stmt (d_module, d_progress, 'No data found in hz_locations.' );
2624: END IF;
2625:
2626: END;
2619: EXCEPTION
2620:
2621: WHEN NO_DATA_FOUND THEN
2622: IF (po_log.d_stmt) THEN
2623: po_log.stmt (d_module, d_progress, 'No data found in hz_locations.' );
2624: END IF;
2625:
2626: END;
2627:
2630: IF (NOT l_found) THEN
2631: RAISE NO_DATA_FOUND;
2632: END IF;
2633:
2634: IF (po_log.d_proc) THEN
2635: po_log.proc_return (d_module, l_ship_to_location_id);
2636: po_log.proc_end (d_module);
2637: END IF;
2638:
2631: RAISE NO_DATA_FOUND;
2632: END IF;
2633:
2634: IF (po_log.d_proc) THEN
2635: po_log.proc_return (d_module, l_ship_to_location_id);
2636: po_log.proc_end (d_module);
2637: END IF;
2638:
2639: RETURN l_ship_to_location_id;
2632: END IF;
2633:
2634: IF (po_log.d_proc) THEN
2635: po_log.proc_return (d_module, l_ship_to_location_id);
2636: po_log.proc_end (d_module);
2637: END IF;
2638:
2639: RETURN l_ship_to_location_id;
2640:
2640:
2641: EXCEPTION
2642: WHEN OTHERS THEN
2643:
2644: IF (po_log.d_exc) THEN
2645: po_log.exc (d_module, d_progress, SQLCODE || SQLERRM);
2646: END IF;
2647:
2648: --CLM Phase 2 changes : error handling
2641: EXCEPTION
2642: WHEN OTHERS THEN
2643:
2644: IF (po_log.d_exc) THEN
2645: po_log.exc (d_module, d_progress, SQLCODE || SQLERRM);
2646: END IF;
2647:
2648: --CLM Phase 2 changes : error handling
2649: PO_AUTOCREATE_PVT.report_error('PO_AUTO_SHIP_TO_LOC_ERR',x_token1_value => sqlerrm);
2778: EXCEPTION
2779: WHEN FND_API.G_EXC_ERROR THEN
2780: l_progress := '150';
2781: fnd_msg_pub.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2782: IF (PO_LOG.d_exc) THEN
2783: PO_LOG.exc(g_log_head||l_api_name, l_progress, x_msg_data );
2784: PO_DEBUG.debug_end(g_log_head||l_api_name);
2785: END IF;
2786:
2779: WHEN FND_API.G_EXC_ERROR THEN
2780: l_progress := '150';
2781: fnd_msg_pub.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2782: IF (PO_LOG.d_exc) THEN
2783: PO_LOG.exc(g_log_head||l_api_name, l_progress, x_msg_data );
2784: PO_DEBUG.debug_end(g_log_head||l_api_name);
2785: END IF;
2786:
2787: WHEN OTHERS THEN
2943: EXCEPTION
2944: WHEN FND_API.G_EXC_ERROR THEN
2945: l_progress := '100';
2946: fnd_msg_pub.Count_And_Get(p_count => l_msg_count, p_data => l_msg_data);
2947: IF (PO_LOG.d_exc) THEN
2948: PO_LOG.exc(g_log_head||l_api_name, l_progress, l_msg_data );
2949: PO_DEBUG.debug_end(g_log_head||l_api_name);
2950: END IF;
2951: WHEN OTHERS THEN
2944: WHEN FND_API.G_EXC_ERROR THEN
2945: l_progress := '100';
2946: fnd_msg_pub.Count_And_Get(p_count => l_msg_count, p_data => l_msg_data);
2947: IF (PO_LOG.d_exc) THEN
2948: PO_LOG.exc(g_log_head||l_api_name, l_progress, l_msg_data );
2949: PO_DEBUG.debug_end(g_log_head||l_api_name);
2950: END IF;
2951: WHEN OTHERS THEN
2952: IF g_debug_unexp THEN