1: PACKAGE BODY FTE_FREIGHT_PRICING as
2: /* $Header: FTEFRPRB.pls 120.23 2005/12/02 09:53:05 mechawla ship $ */
3:
4: -- Private Package level Variables
5:
2: /* $Header: FTEFRPRB.pls 120.23 2005/12/02 09:53:05 mechawla ship $ */
3:
4: -- Private Package level Variables
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FTE_FREIGHT_PRICING';
7:
8: G_RC_SUCCESS CONSTANT NUMBER := 0;
9: G_RC_ERROR CONSTANT NUMBER := 1;
10: G_RC_REPRICE_NOT_REQUIRED CONSTANT NUMBER := 2;
323: l_parent_detail_id NUMBER;
324: l_detail_weight DBMS_UTILITY.NUMBER_ARRAY;
325: l_total_lpn_weight DBMS_UTILITY.NUMBER_ARRAY;
326:
327: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
328:
329: BEGIN
330: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
331: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
327: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
328:
329: BEGIN
330: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
331: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
332: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Get_child_fraction','start');
333:
334:
335: --Gather sum of all children weight in l_total_lpn_weight
328:
329: BEGIN
330: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
331: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
332: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Get_child_fraction','start');
333:
334:
335: --Gather sum of all children weight in l_total_lpn_weight
336:
350:
351: IF (l_uom <> g_shipment_line_rows(i).weight_uom_code)
352: THEN
353:
354: l_weight:=FTE_FREIGHT_PRICING_UTIL.convert_uom(
355: g_shipment_line_rows(i).weight_uom_code,
356: l_uom,
357: g_shipment_line_rows(i).gross_weight,
358: 0);
357: g_shipment_line_rows(i).gross_weight,
358: 0);
359: IF (l_weight IS NULL)
360: THEN
361: raise FTE_FREIGHT_PRICING_UTIL.g_tl_weight_uom_conv_fail;
362: END IF;
363:
364:
365: ELSE
400: i:=p_consol_LPN_children.NEXT(i);
401: END LOOP;
402:
403:
404: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
405:
406: EXCEPTION
407: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_weight_uom_conv_fail THEN
408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
403:
404: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
405:
406: EXCEPTION
407: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_weight_uom_conv_fail THEN
408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
409: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_weight_uom_conv_fail');
410: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
411: WHEN others THEN
405:
406: EXCEPTION
407: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_weight_uom_conv_fail THEN
408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
409: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_weight_uom_conv_fail');
410: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
411: WHEN others THEN
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
413: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
406: EXCEPTION
407: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_weight_uom_conv_fail THEN
408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
409: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_weight_uom_conv_fail');
410: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
411: WHEN others THEN
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
413: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
414: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
409: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_weight_uom_conv_fail');
410: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
411: WHEN others THEN
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
413: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
414: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
415: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
416:
417: END MDC_Get_child_fraction;
410: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
411: WHEN others THEN
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
413: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
414: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
415: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
416:
417: END MDC_Get_child_fraction;
418:
411: WHEN others THEN
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
413: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_child_fraction',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
414: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
415: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_child_fraction');
416:
417: END MDC_Get_child_fraction;
418:
419: PROCEDURE MDC_Get_LPN_Cost_rec(
423: x_ref OUT NOCOPY DBMS_UTILITY.NUMBER_ARRAY,
424: x_return_status OUT NOCOPY VARCHAR2) IS
425:
426: i NUMBER;
427: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
428:
429: BEGIN
430: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
431: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
427: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
428:
429: BEGIN
430: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
431: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
432: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Get_LPN_Cost_rec','start');
433:
434: i:=p_freight_cost_main_tab.FIRST;
435: WHILE (i IS NOT NULL)
428:
429: BEGIN
430: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
431: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
432: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Get_LPN_Cost_rec','start');
433:
434: i:=p_freight_cost_main_tab.FIRST;
435: WHILE (i IS NOT NULL)
436: LOOP
458:
459: i:=p_freight_cost_temp_tab.NEXT(i);
460: END LOOP;
461:
462: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_LPN_Cost_rec');
463:
464: EXCEPTION
465:
466: WHEN others THEN
464: EXCEPTION
465:
466: WHEN others THEN
467: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
468: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_LPN_Cost_rec',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
469: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
470: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_LPN_Cost_rec');
471:
472:
465:
466: WHEN others THEN
467: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
468: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_LPN_Cost_rec',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
469: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
470: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_LPN_Cost_rec');
471:
472:
473: END MDC_Get_LPN_Cost_rec;
466: WHEN others THEN
467: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
468: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Get_LPN_Cost_rec',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
469: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
470: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Get_LPN_Cost_rec');
471:
472:
473: END MDC_Get_LPN_Cost_rec;
474:
499:
500: l_freight_cost_type_id NUMBER;
501:
502: l_return_status VARCHAR2(1);
503: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
504:
505: BEGIN
506: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
507: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
503: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
504:
505: BEGIN
506: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
507: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
508: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Alloc_From_consol_LPN','start');
509:
510:
511:
504:
505: BEGIN
506: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
507: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
508: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Alloc_From_consol_LPN','start');
509:
510:
511:
512: --Get LPN Summary records locations
520: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
521: THEN
522: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
523: THEN
524: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_Get_LPN_cost_rec_fail;
525: END IF;
526: END IF;
527:
528:
535: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
536: THEN
537: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
538: THEN
539: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail;
540: END IF;
541: END IF;
542:
543:
705: x_return_status => l_return_status);
706:
707: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
708: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
709: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
710: END IF;
711: ELSE
712: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
713: END IF;
708: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
709: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
710: END IF;
711: ELSE
712: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
713: END IF;
714:
715:
716:
772: j:=j+1;
773: i:=x_freight_cost_temp_charge.NEXT(i);
774: END LOOP;
775:
776: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
777:
778: EXCEPTION
779:
780: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_Get_LPN_cost_rec_fail THEN
776: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
777:
778: EXCEPTION
779:
780: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_Get_LPN_cost_rec_fail THEN
781: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
782: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_Get_LPN_cost_rec_fail');
783: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
784:
778: EXCEPTION
779:
780: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_Get_LPN_cost_rec_fail THEN
781: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
782: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_Get_LPN_cost_rec_fail');
783: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
784:
785:
786: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail THEN
779:
780: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_Get_LPN_cost_rec_fail THEN
781: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
782: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_Get_LPN_cost_rec_fail');
783: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
784:
785:
786: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
782: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_Get_LPN_cost_rec_fail');
783: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
784:
785:
786: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
788: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_get_chld_fract_fail');
789: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
790:
784:
785:
786: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
788: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_get_chld_fract_fail');
789: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
790:
791:
792: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
785:
786: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_get_chld_fract_fail THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
788: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_get_chld_fract_fail');
789: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
790:
791:
792: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
788: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_get_chld_fract_fail');
789: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
790:
791:
792: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
794: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
795: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
796: WHEN others THEN
790:
791:
792: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
794: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
795: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
796: WHEN others THEN
797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
798: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
791:
792: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
794: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
795: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
796: WHEN others THEN
797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
798: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
799: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
794: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
795: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
796: WHEN others THEN
797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
798: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
799: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
800: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
801:
802:
795: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
796: WHEN others THEN
797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
798: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
799: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
800: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
801:
802:
803:
796: WHEN others THEN
797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
798: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Alloc_From_consol_LPN',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
799: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
800: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Alloc_From_consol_LPN');
801:
802:
803:
804: END MDC_Alloc_From_consol_LPN;
818: l_freight_cost_temp_price Freight_Cost_temp_Rec_Type;
819: l_freight_cost_main_price WSH_FREIGHT_COSTS_PVT.Freight_Cost_Rec_Type;
820: l_return_status VARCHAR2(1);
821: l_index NUMBER;
822: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
823:
824: BEGIN
825: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
826: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
822: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
823:
824: BEGIN
825: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
826: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
827: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Parent_Dleg_Summaries','start');
828:
829:
830:
823:
824: BEGIN
825: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
826: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
827: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Parent_Dleg_Summaries','start');
828:
829:
830:
831:
930: IF(p_save_flag='M')
931: THEN
932:
933: --get fc id for dleg
934: l_freight_cost_main_price.freight_cost_id:=FTE_FREIGHT_PRICING.get_fc_id_from_dleg(i);
935:
936: l_freight_cost_main_price.delivery_leg_id:=i;
937:
938: l_freight_cost_main_price.delivery_id:=p_dleg_to_delivery(i);
962: END IF;
963: i:=l_parent_dleg_summaries.NEXT(i);
964: END LOOP;
965:
966: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Parent_Dleg_Summaries');
967:
968: EXCEPTION
969: WHEN others THEN
970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
967:
968: EXCEPTION
969: WHEN others THEN
970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
971: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Parent_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
972: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
973: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Parent_Dleg_Summaries');
974:
975: END Create_Parent_Dleg_Summaries;
968: EXCEPTION
969: WHEN others THEN
970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
971: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Parent_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
972: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
973: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Parent_Dleg_Summaries');
974:
975: END Create_Parent_Dleg_Summaries;
976:
969: WHEN others THEN
970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
971: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Parent_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
972: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
973: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Parent_Dleg_Summaries');
974:
975: END Create_Parent_Dleg_Summaries;
976:
977:
991: l_freight_cost_main_price WSH_FREIGHT_COSTS_PVT.Freight_Cost_Rec_Type;
992: l_freight_cost_temp_price Freight_Cost_Temp_Rec_Type;
993: l_freight_cost_type_id NUMBER;
994: l_return_status VARCHAR2(1);
995: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
996:
997: BEGIN
998: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
999: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
995: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
996:
997: BEGIN
998: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
999: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1000: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Child_Dleg_Summaries','start');
1001:
1002:
1003:
996:
997: BEGIN
998: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
999: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1000: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Child_Dleg_Summaries','start');
1001:
1002:
1003:
1004: i:=x_freight_cost_main_price.FIRST;
1084: x_return_status => l_return_status);
1085:
1086: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1088: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
1089: END IF;
1090: ELSE
1091: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
1092: END IF;
1087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1088: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
1089: END IF;
1090: ELSE
1091: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
1092: END IF;
1093:
1094: l_freight_cost_main_price.freight_cost_type_id:=l_freight_cost_type_id;
1095: l_freight_cost_main_price.line_type_code:='SUMMARY';
1135: IF(p_save_flag='M')
1136: THEN
1137:
1138:
1139: l_freight_cost_main_price.freight_cost_id:=FTE_FREIGHT_PRICING.get_fc_id_from_dleg(i);
1140:
1141:
1142: l_freight_cost_main_price.total_amount:=l_child_dleg_summaries(i);
1143: l_freight_cost_main_price.unit_amount:=l_child_dleg_summaries(i);
1163:
1164: i:=l_child_dleg_summaries.NEXT(i);
1165: END LOOP;
1166:
1167: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1168:
1169: EXCEPTION
1170: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1166:
1167: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1168:
1169: EXCEPTION
1170: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1172: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1173: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1174: WHEN others THEN
1168:
1169: EXCEPTION
1170: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1172: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1173: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1174: WHEN others THEN
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1176: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1169: EXCEPTION
1170: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1172: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1173: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1174: WHEN others THEN
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1176: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1177: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1172: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1173: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1174: WHEN others THEN
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1176: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1177: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1178: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1179:
1180:
1173: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1174: WHEN others THEN
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1176: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1177: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1178: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1179:
1180:
1181: END Create_Child_Dleg_Summaries;
1174: WHEN others THEN
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1176: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Child_Dleg_Summaries',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1177: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1178: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Child_Dleg_Summaries');
1179:
1180:
1181: END Create_Child_Dleg_Summaries;
1182:
1186: x_freight_cost_temp IN OUT NOCOPY Freight_Cost_Temp_Tab_Type,
1187: x_return_status OUT NOCOPY VARCHAR2 ) IS
1188:
1189: i NUMBER;
1190: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1191:
1192: BEGIN
1193: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1194: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1190: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1191:
1192: BEGIN
1193: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1194: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1195: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Populate_Dleg_Id','start');
1196:
1197:
1198: i:=x_freight_cost_temp.FIRST;
1191:
1192: BEGIN
1193: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1194: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1195: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Populate_Dleg_Id','start');
1196:
1197:
1198: i:=x_freight_cost_temp.FIRST;
1199: WHILE( i IS NOT NULL)
1209: END IF;
1210:
1211: i:=x_freight_cost_temp.NEXT(i);
1212: END LOOP;
1213: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Populate_Dleg_Id');
1214:
1215: EXCEPTION
1216: WHEN others THEN
1217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1214:
1215: EXCEPTION
1216: WHEN others THEN
1217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1218: FTE_FREIGHT_PRICING_UTIL.set_exception('Populate_Dleg_Id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1219: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1220: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Populate_Dleg_Id');
1221:
1222:
1215: EXCEPTION
1216: WHEN others THEN
1217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1218: FTE_FREIGHT_PRICING_UTIL.set_exception('Populate_Dleg_Id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1219: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1220: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Populate_Dleg_Id');
1221:
1222:
1223: END Populate_Dleg_Id;
1216: WHEN others THEN
1217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1218: FTE_FREIGHT_PRICING_UTIL.set_exception('Populate_Dleg_Id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1219: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1220: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Populate_Dleg_Id');
1221:
1222:
1223: END Populate_Dleg_Id;
1224:
1238: l_freight_cost_temp_price Freight_Cost_temp_Rec_Type;
1239: l_freight_cost_type_id NUMBER;
1240: l_return_status VARCHAR2(1);
1241:
1242: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1243:
1244: BEGIN
1245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1246: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1242: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1243:
1244: BEGIN
1245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1246: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1247: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_LPN_Summary','start');
1248:
1249:
1250: i:=x_freight_cost_main_price.FIRST;
1243:
1244: BEGIN
1245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1246: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1247: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_LPN_Summary','start');
1248:
1249:
1250: i:=x_freight_cost_main_price.FIRST;
1251: WHILE(i IS NOT NULL)
1308: x_return_status => l_return_status);
1309:
1310: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1311: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1312: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
1313: END IF;
1314: ELSE
1315: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
1316: END IF;
1311: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1312: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
1313: END IF;
1314: ELSE
1315: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
1316: END IF;
1317:
1318: l_freight_cost_main_price.freight_cost_type_id:=l_freight_cost_type_id;
1319: l_freight_cost_main_price.line_type_code:='SUMMARY';
1366:
1367: i:=l_LPN_summaries.NEXT(i);
1368: END LOOP;
1369:
1370: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1371:
1372: EXCEPTION
1373: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1374: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1369:
1370: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1371:
1372: EXCEPTION
1373: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1374: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1375: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1376: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1377: WHEN others THEN
1371:
1372: EXCEPTION
1373: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1374: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1375: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1376: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1377: WHEN others THEN
1378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1379: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1372: EXCEPTION
1373: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
1374: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1375: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1376: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1377: WHEN others THEN
1378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1379: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1375: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
1376: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1377: WHEN others THEN
1378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1379: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1382:
1383:
1376: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1377: WHEN others THEN
1378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1379: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1382:
1383:
1384: END Create_LPN_Summary;
1377: WHEN others THEN
1378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1379: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_LPN_Summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_LPN_Summary');
1382:
1383:
1384: END Create_LPN_Summary;
1385:
1405: l_parent_dlegs_rated DBMS_UTILITY.NUMBER_ARRAY;
1406: i NUMBER;
1407: l_return_status VARCHAR2(1);
1408:
1409: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1410:
1411: BEGIN
1412: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1413: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1409: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1410:
1411: BEGIN
1412: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1413: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1414: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Check_Rated','start');
1415:
1416:
1417: l_child_detail_rated.DELETE;
1410:
1411: BEGIN
1412: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1413: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1414: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'MDC_Check_Rated','start');
1415:
1416:
1417: l_child_detail_rated.DELETE;
1418: l_consol_LPN_rated.DELETE;
1541: x_parent_dlegs_rated:='Y';
1542: END IF;
1543:
1544:
1545: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
1546: 'Child Detail Rated:'||x_child_details_rated||
1547: 'Consol LPN Rated:'||x_consol_LPNs_rated||
1548: ' Child Dlegs rated:'||x_child_dlegs_rated||
1549: 'Parent Dlegs rated:'||x_parent_dlegs_rated);
1548: ' Child Dlegs rated:'||x_child_dlegs_rated||
1549: 'Parent Dlegs rated:'||x_parent_dlegs_rated);
1550:
1551:
1552: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Check_Rated');
1553:
1554: EXCEPTION
1555: WHEN others THEN
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553:
1554: EXCEPTION
1555: WHEN others THEN
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1557: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Check_Rated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1558: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Check_Rated');
1560:
1561:
1554: EXCEPTION
1555: WHEN others THEN
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1557: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Check_Rated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1558: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Check_Rated');
1560:
1561:
1562: END MDC_Check_Rated;
1555: WHEN others THEN
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1557: FTE_FREIGHT_PRICING_UTIL.set_exception('MDC_Check_Rated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1558: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'MDC_Check_Rated');
1560:
1561:
1562: END MDC_Check_Rated;
1563:
1586: l_child_dlegs_rated VARCHAR2(1);
1587: l_parent_dlegs_rated VARCHAR2(1);
1588: l_return_status VARCHAR2(1);
1589:
1590: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1591:
1592: BEGIN
1593: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1594: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1590: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1591:
1592: BEGIN
1593: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1594: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1595: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Handle_MDC','start');
1596:
1597:
1598:
1591:
1592: BEGIN
1593: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1594: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1595: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Handle_MDC','start');
1596:
1597:
1598:
1599: IF (p_save_flag IS NOT NULL)--((p_save_flag IS NOT NULL) AND ((p_save_flag ='T') OR (p_save_flag='M')))
1604: i:=g_shipment_line_rows.FIRST;
1605: WHILE(i IS NOT NULL)
1606: LOOP
1607:
1608: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
1609: 'Detail_id:'||g_shipment_line_rows(i).delivery_detail_id ||
1610: ' Delivery Id:'||g_shipment_line_rows(i).delivery_id ||
1611: ' Dleg Id:'||g_shipment_line_rows(i).delivery_leg_id||
1612: ' Parent Delivery Detail id:'||g_shipment_line_rows(i).parent_delivery_detail_id ||
1675: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1676: THEN
1677: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1678: THEN
1679: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id;
1680: END IF;
1681: END IF;
1682:
1683:
1690: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1691: THEN
1692: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1693: THEN
1694: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id;
1695: END IF;
1696: END IF;
1697:
1698:
1715: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1716: THEN
1717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1718: THEN
1719: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated;
1720: END IF;
1721: END IF;
1722:
1723:
1741: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1742: THEN
1743: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1744: THEN
1745: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN;
1746: END IF;
1747: END IF;
1748:
1749:
1763: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1764: THEN
1765: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1766: THEN
1767: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ;
1768: END IF;
1769: END IF;
1770:
1771:
1792: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1793: THEN
1794: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1795: THEN
1796: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ;
1797: END IF;
1798: END IF;
1799:
1800:
1820: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1821: THEN
1822: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
1823: THEN
1824: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ;
1825: END IF;
1826: END IF;
1827:
1828:
1837:
1838:
1839: END IF;
1840:
1841: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1842:
1843: EXCEPTION
1844: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id THEN
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1840:
1841: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1842:
1843: EXCEPTION
1844: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id THEN
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1846: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_populate_dleg_id');
1847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1848:
1842:
1843: EXCEPTION
1844: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id THEN
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1846: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_populate_dleg_id');
1847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1848:
1849: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated THEN
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1843: EXCEPTION
1844: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_populate_dleg_id THEN
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1846: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_populate_dleg_id');
1847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1848:
1849: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated THEN
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_check_rated');
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1846: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_populate_dleg_id');
1847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1848:
1849: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated THEN
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_check_rated');
1852: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1853:
1847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1848:
1849: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated THEN
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_check_rated');
1852: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1853:
1854: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN THEN
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1848:
1849: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_check_rated THEN
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_check_rated');
1852: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1853:
1854: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN THEN
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1856: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_alloc_from_consol_LPN');
1850: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_check_rated');
1852: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1853:
1854: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN THEN
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1856: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_alloc_from_consol_LPN');
1857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1858:
1852: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1853:
1854: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN THEN
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1856: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_alloc_from_consol_LPN');
1857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1858:
1859: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ THEN
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1853:
1854: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_alloc_from_consol_LPN THEN
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1856: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_alloc_from_consol_LPN');
1857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1858:
1859: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ THEN
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1861: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_LPN_summ');
1855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1856: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_alloc_from_consol_LPN');
1857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1858:
1859: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ THEN
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1861: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_LPN_summ');
1862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1863:
1857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1858:
1859: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ THEN
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1861: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_LPN_summ');
1862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1863:
1864: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ THEN
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1858:
1859: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_LPN_summ THEN
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1861: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_LPN_summ');
1862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1863:
1864: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ THEN
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_parent_dleg_summ');
1860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1861: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_LPN_summ');
1862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1863:
1864: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ THEN
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_parent_dleg_summ');
1867: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1868:
1862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1863:
1864: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ THEN
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_parent_dleg_summ');
1867: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1868:
1869: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ THEN
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1863:
1864: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_parent_dleg_summ THEN
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_parent_dleg_summ');
1867: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1868:
1869: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ THEN
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1871: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_child_dleg_summ');
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_parent_dleg_summ');
1867: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1868:
1869: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ THEN
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1871: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_child_dleg_summ');
1872: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1873:
1867: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1868:
1869: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ THEN
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1871: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_child_dleg_summ');
1872: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1873:
1874: WHEN others THEN
1875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1868:
1869: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_cre_child_dleg_summ THEN
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1871: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_cre_child_dleg_summ');
1872: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1873:
1874: WHEN others THEN
1875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1876: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1872: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1873:
1874: WHEN others THEN
1875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1876: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1877: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1878: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1879:
1880:
1873:
1874: WHEN others THEN
1875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1876: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1877: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1878: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1879:
1880:
1881: END Handle_MDC;
1874: WHEN others THEN
1875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1876: FTE_FREIGHT_PRICING_UTIL.set_exception('Handle_MDC',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1877: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1878: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Handle_MDC');
1879:
1880:
1881: END Handle_MDC;
1882:
1884: p_delivery_id IN NUMBER) RETURN VARCHAR2
1885:
1886: IS
1887:
1888: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1889:
1890: CURSOR c_get_legs(c_delivery_id NUMBER) IS
1891: SELECT count(delivery_leg_id) FROM wsh_delivery_legs
1892: WHERE delivery_id = c_delivery_id;
1911: FUNCTION get_default_category (
1912: p_classification_code IN VARCHAR2) RETURN NUMBER
1913: IS
1914:
1915: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
1916:
1917: CURSOR c_get_structure_id
1918: IS
1919: SELECT structure_id
1934: l_category_id NUMBER;
1935:
1936: BEGIN
1937:
1938: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1939: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_default_category','start');
1940:
1941: OPEN c_get_structure_id;
1942: FETCH c_get_structure_id INTO l_structure_id;
1935:
1936: BEGIN
1937:
1938: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
1939: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_default_category','start');
1940:
1941: OPEN c_get_structure_id;
1942: FETCH c_get_structure_id INTO l_structure_id;
1943: CLOSE c_get_structure_id;
1949: ELSE
1950: l_category_id := g_default_category_id;
1951: END IF;
1952:
1953: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_default_category');
1954: RETURN l_category_id;
1955:
1956: EXCEPTION
1957: WHEN others THEN
1955:
1956: EXCEPTION
1957: WHEN others THEN
1958: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1959: FTE_FREIGHT_PRICING_UTIL.set_exception('get_default_category',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1960: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1961: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1962: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_default_category');
1963: END get_default_category;
1956: EXCEPTION
1957: WHEN others THEN
1958: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1959: FTE_FREIGHT_PRICING_UTIL.set_exception('get_default_category',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1960: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1961: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1962: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_default_category');
1963: END get_default_category;
1964:
1957: WHEN others THEN
1958: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1959: FTE_FREIGHT_PRICING_UTIL.set_exception('get_default_category',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1960: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1961: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1962: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_default_category');
1963: END get_default_category;
1964:
1965:
1958: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1959: FTE_FREIGHT_PRICING_UTIL.set_exception('get_default_category',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
1960: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1961: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
1962: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_default_category');
1963: END get_default_category;
1964:
1965:
1966:
1988: select t.mode_of_transport
1989: FROM wsh_trips t
1990: WHERE t.trip_id=c_trip_id;
1991:
1992: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
1993: l_count NUMBER;
1994: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DELIVERY';
1995:
1996: BEGIN
1996: BEGIN
1997:
1998: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1999:
2000: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2001: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2002:
2003:
2004: x_mode_of_transport:=NULL;
1997:
1998: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1999:
2000: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2001: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2002:
2003:
2004: x_mode_of_transport:=NULL;
2005: x_trip_id:=NULL;
2018: CLOSE c_get_trip_from_dleg;
2019:
2020: END IF;
2021:
2022: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2023:
2024: EXCEPTION
2025: WHEN others THEN
2026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2023:
2024: EXCEPTION
2025: WHEN others THEN
2026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2027: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2028: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2030:
2031:
2024: EXCEPTION
2025: WHEN others THEN
2026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2027: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2028: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2030:
2031:
2032:
2025: WHEN others THEN
2026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2027: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2028: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2030:
2031:
2032:
2033: END Get_Trip_Mode;
2036:
2037: PROCEDURE validate_delivery (p_delivery_id IN NUMBER,
2038: x_return_code OUT NOCOPY NUMBER)
2039: IS
2040: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
2041: l_count NUMBER;
2042: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DELIVERY';
2043: BEGIN
2044: --
2043: BEGIN
2044: --
2045: x_return_code := G_RC_SUCCESS;
2046:
2047: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2048: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2049:
2050: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_id='||p_delivery_id);
2051:
2044: --
2045: x_return_code := G_RC_SUCCESS;
2046:
2047: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2048: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2049:
2050: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_id='||p_delivery_id);
2051:
2052: -- check for empty delivery
2046:
2047: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2048: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2049:
2050: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_id='||p_delivery_id);
2051:
2052: -- check for empty delivery
2053: l_count := 0;
2054: OPEN c_count_delivery_details(p_delivery_id);
2055: FETCH c_count_delivery_details INTO l_count;
2056: CLOSE c_count_delivery_details;
2057: IF ( l_count <= 0 ) THEN
2058:
2059: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
2060:
2061: FTE_FREIGHT_PRICING_UTIL.setmsg(
2062: p_api => l_api_name,
2063: p_exc => ' ',
2057: IF ( l_count <= 0 ) THEN
2058:
2059: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
2060:
2061: FTE_FREIGHT_PRICING_UTIL.setmsg(
2062: p_api => l_api_name,
2063: p_exc => ' ',
2064: p_msg_name => 'FTE_PRC_EMPTY_DEL',
2065: p_msg_type => 'E',
2072: OPEN c_check_del_freight_term(p_delivery_id);
2073: FETCH c_check_del_freight_term INTO l_count;
2074: CLOSE c_check_del_freight_term;
2075: IF ( l_count > 0 ) THEN
2076: FTE_FREIGHT_PRICING_UTIL.setmsg(
2077: p_api => l_api_name,
2078: p_exc => ' ',
2079: p_msg_name => 'FTE_PRC_NOTRATE_DEL_FGT_TERM',
2080: p_msg_type => 'E',
2078: p_exc => ' ',
2079: p_msg_name => 'FTE_PRC_NOTRATE_DEL_FGT_TERM',
2080: p_msg_type => 'E',
2081: p_delivery_id => p_delivery_id);
2082: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'do not rate the freight term.');
2083: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2084: raise g_finished_warning;
2085: END IF;
2086:
2089: OPEN c_check_del_manifesting(p_delivery_id);
2090: FETCH c_check_del_manifesting INTO l_count;
2091: CLOSE c_check_del_manifesting;
2092: IF ( l_count > 0 ) THEN
2093: FTE_FREIGHT_PRICING_UTIL.setmsg(
2094: p_api => l_api_name,
2095: p_exc => ' ',
2096: p_msg_name => 'FTE_PRC_NOTRATE_DEL_MAN',
2097: p_msg_type => 'E',
2095: p_exc => ' ',
2096: p_msg_name => 'FTE_PRC_NOTRATE_DEL_MAN',
2097: p_msg_type => 'E',
2098: p_delivery_id => p_delivery_id);
2099: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'delivery organization is manifesting enabled and carrier is manifesting enabled, do not rate.');
2100: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2101: raise g_finished_warning;
2102: END IF;
2103:
2100: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2101: raise g_finished_warning;
2102: END IF;
2103:
2104: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2105:
2106: EXCEPTION
2107: WHEN g_finished_warning THEN
2108: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2104: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2105:
2106: EXCEPTION
2107: WHEN g_finished_warning THEN
2108: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2109: --
2110: WHEN FND_API.G_EXC_ERROR THEN
2111: x_return_code := G_RC_ERROR;
2112: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2108: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2109: --
2110: WHEN FND_API.G_EXC_ERROR THEN
2111: x_return_code := G_RC_ERROR;
2112: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2113: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2114: --
2115: WHEN OTHERS THEN
2116: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2109: --
2110: WHEN FND_API.G_EXC_ERROR THEN
2111: x_return_code := G_RC_ERROR;
2112: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2113: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2114: --
2115: WHEN OTHERS THEN
2116: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2117: x_return_code := G_RC_ERROR;
2114: --
2115: WHEN OTHERS THEN
2116: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2117: x_return_code := G_RC_ERROR;
2118: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2119: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2120: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2121: --
2122: END validate_delivery;
2115: WHEN OTHERS THEN
2116: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2117: x_return_code := G_RC_ERROR;
2118: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2119: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2120: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2121: --
2122: END validate_delivery;
2123:
2116: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2117: x_return_code := G_RC_ERROR;
2118: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2119: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2120: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2121: --
2122: END validate_delivery;
2123:
2124: PROCEDURE validate_nontl_trip (p_trip_id IN NUMBER,
2123:
2124: PROCEDURE validate_nontl_trip (p_trip_id IN NUMBER,
2125: x_return_code OUT NOCOPY NUMBER)
2126: IS
2127: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
2128: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_NONTL_TRIP';
2129: l_count NUMBER;
2130: BEGIN
2131:
2130: BEGIN
2131:
2132: x_return_code := G_RC_SUCCESS;
2133:
2134: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2135: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2136:
2137: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_trip_id='||p_trip_id);
2138:
2131:
2132: x_return_code := G_RC_SUCCESS;
2133:
2134: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2135: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2136:
2137: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_trip_id='||p_trip_id);
2138:
2139: l_count := 0;
2133:
2134: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2135: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
2136:
2137: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_trip_id='||p_trip_id);
2138:
2139: l_count := 0;
2140: OPEN c_cnt_trip_legs(p_trip_id);
2141: FETCH c_cnt_trip_legs INTO l_count;
2141: FETCH c_cnt_trip_legs INTO l_count;
2142: CLOSE c_cnt_trip_legs;
2143:
2144: IF (l_count <= 0) THEN
2145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip '||p_trip_id||' has no delivery');
2146: FTE_FREIGHT_PRICING_UTIL.setmsg(
2147: p_api => l_api_name,
2148: p_exc => ' ',
2149: p_msg_name => 'FTE_PRC_TRP_NO_DLV',
2142: CLOSE c_cnt_trip_legs;
2143:
2144: IF (l_count <= 0) THEN
2145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip '||p_trip_id||' has no delivery');
2146: FTE_FREIGHT_PRICING_UTIL.setmsg(
2147: p_api => l_api_name,
2148: p_exc => ' ',
2149: p_msg_name => 'FTE_PRC_TRP_NO_DLV',
2150: p_msg_type => 'E',
2158: FETCH c_count_delivery_details2 INTO l_count;
2159: CLOSE c_count_delivery_details2;
2160: IF ( l_count <= 0 ) THEN
2161:
2162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
2163:
2164: FTE_FREIGHT_PRICING_UTIL.setmsg(
2165: p_api => l_api_name,
2166: p_exc => ' ',
2160: IF ( l_count <= 0 ) THEN
2161:
2162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
2163:
2164: FTE_FREIGHT_PRICING_UTIL.setmsg(
2165: p_api => l_api_name,
2166: p_exc => ' ',
2167: p_msg_name => 'FTE_PRC_TRP_NO_DEL_CONTENT',
2168: p_msg_type => 'E',
2175: OPEN c_check_del_freight_term2(p_trip_id);
2176: FETCH c_check_del_freight_term2 INTO l_count;
2177: CLOSE c_check_del_freight_term2;
2178: IF ( l_count > 0 ) THEN
2179: FTE_FREIGHT_PRICING_UTIL.setmsg(
2180: p_api => l_api_name,
2181: p_exc => ' ',
2182: p_msg_name => 'FTE_PRC_NOTRATE_TRP_FGT_TERM',
2183: p_msg_type => 'E',
2181: p_exc => ' ',
2182: p_msg_name => 'FTE_PRC_NOTRATE_TRP_FGT_TERM',
2183: p_msg_type => 'E',
2184: p_trip_id => p_trip_id);
2185: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'do not rate the freight term.');
2186: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2187: raise g_finished_warning;
2188: END IF;
2189:
2192: OPEN c_check_del_manifesting2(p_trip_id);
2193: FETCH c_check_del_manifesting2 INTO l_count;
2194: CLOSE c_check_del_manifesting2;
2195: IF ( l_count > 0 ) THEN
2196: FTE_FREIGHT_PRICING_UTIL.setmsg(
2197: p_api => l_api_name,
2198: p_exc => ' ',
2199: p_msg_name => 'FTE_PRC_NOTRATE_TRP_MAN',
2200: p_msg_type => 'E',
2198: p_exc => ' ',
2199: p_msg_name => 'FTE_PRC_NOTRATE_TRP_MAN',
2200: p_msg_type => 'E',
2201: p_trip_id => p_trip_id);
2202: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'delivery organization is manifesting enabled and carrier is manifesting enabled, do not rate.');
2203: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2204: raise g_finished_warning;
2205: END IF;
2206:
2203: x_return_code := G_RC_NOT_RATE_FREIGHT_TERM;
2204: raise g_finished_warning;
2205: END IF;
2206:
2207: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2208:
2209: EXCEPTION
2210: WHEN g_finished_warning THEN
2211: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2207: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2208:
2209: EXCEPTION
2210: WHEN g_finished_warning THEN
2211: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2212: --
2213: WHEN FND_API.G_EXC_ERROR THEN
2214: x_return_code := G_RC_ERROR;
2215: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2211: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2212: --
2213: WHEN FND_API.G_EXC_ERROR THEN
2214: x_return_code := G_RC_ERROR;
2215: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2216: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2217: --
2218: WHEN OTHERS THEN
2219: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2212: --
2213: WHEN FND_API.G_EXC_ERROR THEN
2214: x_return_code := G_RC_ERROR;
2215: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2216: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2217: --
2218: WHEN OTHERS THEN
2219: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2220: x_return_code := G_RC_ERROR;
2217: --
2218: WHEN OTHERS THEN
2219: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2220: x_return_code := G_RC_ERROR;
2221: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2223: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2224: END validate_nontl_trip;
2225: --
2218: WHEN OTHERS THEN
2219: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2220: x_return_code := G_RC_ERROR;
2221: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2223: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2224: END validate_nontl_trip;
2225: --
2226: PROCEDURE Create_Freight_Cost_Temp(
2219: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2220: x_return_code := G_RC_ERROR;
2221: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2223: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2224: END validate_nontl_trip;
2225: --
2226: PROCEDURE Create_Freight_Cost_Temp(
2227: p_freight_cost_temp_info IN Freight_Cost_Temp_Rec_Type,
2233: IS
2234: SELECT fte_freight_costs_temp_s.nextval
2235: FROM sys.dual;
2236:
2237: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
2238:
2239: BEGIN
2240:
2241: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2239: BEGIN
2240:
2241: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2242:
2243: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2244: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Freight_Cost_Temp','start');
2245:
2246: OPEN C_Next_Freight_Cost_Id;
2247: FETCH C_Next_Freight_Cost_Id INTO x_freight_cost_temp_id;
2240:
2241: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2242:
2243: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2244: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Create_Freight_Cost_Temp','start');
2245:
2246: OPEN C_Next_Freight_Cost_Id;
2247: FETCH C_Next_Freight_Cost_Id INTO x_freight_cost_temp_id;
2248: CLOSE C_Next_Freight_Cost_Id;
2358: p_freight_cost_temp_info.billable_uom,
2359: p_freight_cost_temp_info.billable_basis
2360: );
2361:
2362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2363: EXCEPTION
2364: WHEN others THEN
2365: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2366: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Freight_Cost_Temp',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2363: EXCEPTION
2364: WHEN others THEN
2365: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2366: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Freight_Cost_Temp',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2367: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2368: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2369: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2370:
2363: EXCEPTION
2364: WHEN others THEN
2365: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2366: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Freight_Cost_Temp',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2367: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2368: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2369: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2370:
2371: END Create_Freight_Cost_Temp;
2364: WHEN others THEN
2365: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2366: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Freight_Cost_Temp',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2367: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2368: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2369: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2370:
2371: END Create_Freight_Cost_Temp;
2372:
2365: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2366: FTE_FREIGHT_PRICING_UTIL.set_exception('Create_Freight_Cost_Temp',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2367: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2368: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2369: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Create_Freight_Cost_Temp');
2370:
2371: END Create_Freight_Cost_Temp;
2372:
2373: -- This API will look up global g_rolledup_lines
2406: l_temp_charge_index NUMBER:=x_freight_cost_temp_charge.COUNT;
2407:
2408: l_fc_rec top_level_fc_rec_type;
2409:
2410: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
2411: l_basis_meaning VARCHAR2(30);
2412:
2413: BEGIN
2414:
2412:
2413: BEGIN
2414:
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2416: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2417: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_rolledup_amount','start');
2418: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container : '||p_container_id);
2419:
2420: IF p_save_flag = 'M' THEN
2413: BEGIN
2414:
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2416: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2417: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_rolledup_amount','start');
2418: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container : '||p_container_id);
2419:
2420: IF p_save_flag = 'M' THEN
2421:
2414:
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2416: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2417: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_rolledup_amount','start');
2418: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container : '||p_container_id);
2419:
2420: IF p_save_flag = 'M' THEN
2421:
2422: IF p_line_type_code IS NOT NULL THEN -- charge
2419:
2420: IF p_save_flag = 'M' THEN
2421:
2422: IF p_line_type_code IS NOT NULL THEN -- charge
2423: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'For Charge ');
2424: l_index := l_main_charge_index;
2425: ELSE
2426: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'For Base Price ');
2427: l_index := l_main_price_index;
2422: IF p_line_type_code IS NOT NULL THEN -- charge
2423: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'For Charge ');
2424: l_index := l_main_charge_index;
2425: ELSE
2426: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'For Base Price ');
2427: l_index := l_main_price_index;
2428: END IF;
2429:
2430: ELSE
2457: l_quantity := g_rolledup_lines(i).line_quantity;
2458: END IF;
2459:
2460: l_wsh_amount := p_wsh_amount * (l_quantity/p_quantity);
2461: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'roll->delivery_detail_id='||g_rolledup_lines(i).delivery_detail_id);
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2458: END IF;
2459:
2460: l_wsh_amount := p_wsh_amount * (l_quantity/p_quantity);
2461: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'roll->delivery_detail_id='||g_rolledup_lines(i).delivery_detail_id);
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2459:
2460: l_wsh_amount := p_wsh_amount * (l_quantity/p_quantity);
2461: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'roll->delivery_detail_id='||g_rolledup_lines(i).delivery_detail_id);
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2460: l_wsh_amount := p_wsh_amount * (l_quantity/p_quantity);
2461: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'roll->delivery_detail_id='||g_rolledup_lines(i).delivery_detail_id);
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2468: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_uom='||p_uom);
2461: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'roll->delivery_detail_id='||g_rolledup_lines(i).delivery_detail_id);
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2468: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_uom='||p_uom);
2469:
2462: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_quantity='||l_quantity);
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2468: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_uom='||p_uom);
2469:
2470:
2463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_quantity='||p_quantity);
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2468: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_uom='||p_uom);
2469:
2470:
2471: IF (p_category_id IS NOT NULL AND g_rolledup_lines(i).category_id = p_category_id) OR
2464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_wsh_amount='||l_wsh_amount);
2465: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_category_id='||p_category_id);
2466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_basis='||p_basis);
2467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_basis_meaning'||l_basis_meaning);
2468: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_uom='||p_uom);
2469:
2470:
2471: IF (p_category_id IS NOT NULL AND g_rolledup_lines(i).category_id = p_category_id) OR
2472: (p_basis IS NOT NULL AND g_rolledup_lines(i).rate_basis = p_basis) THEN
2559: EXIT WHEN i = g_rolledup_lines.LAST;
2560: i := g_rolledup_lines.NEXT(i);
2561: END LOOP;
2562:
2563: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_sum='||l_sum);
2564: x_quantity := l_sum;
2565: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2566:
2567: EXCEPTION
2561: END LOOP;
2562:
2563: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_sum='||l_sum);
2564: x_quantity := l_sum;
2565: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2566:
2567: EXCEPTION
2568: WHEN others THEN
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2566:
2567: EXCEPTION
2568: WHEN others THEN
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2570: FTE_FREIGHT_PRICING_UTIL.set_exception('get_rolledup_amount',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2571: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2572: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2573: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2574:
2567: EXCEPTION
2568: WHEN others THEN
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2570: FTE_FREIGHT_PRICING_UTIL.set_exception('get_rolledup_amount',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2571: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2572: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2573: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2574:
2575: END get_rolledup_amount;
2568: WHEN others THEN
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2570: FTE_FREIGHT_PRICING_UTIL.set_exception('get_rolledup_amount',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2571: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2572: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2573: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2574:
2575: END get_rolledup_amount;
2576:
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2570: FTE_FREIGHT_PRICING_UTIL.set_exception('get_rolledup_amount',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2571: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2572: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2573: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_rolledup_amount');
2574:
2575: END get_rolledup_amount;
2576:
2577: PROCEDURE get_fc_type_id (
2597:
2598: l_freight_cost_type_id NUMBER:=0;
2599: l_type_count NUMBER:=0;
2600:
2601: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
2602:
2603: BEGIN
2604:
2605: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2602:
2603: BEGIN
2604:
2605: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2606: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2607: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_type_id','start');
2608:
2609: IF p_charge_subtype_code IS NOT NULL THEN
2610: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'charge');
2603: BEGIN
2604:
2605: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2606: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2607: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_type_id','start');
2608:
2609: IF p_charge_subtype_code IS NOT NULL THEN
2610: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'charge');
2611:
2606: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2607: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_type_id','start');
2608:
2609: IF p_charge_subtype_code IS NOT NULL THEN
2610: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'charge');
2611:
2612: OPEN c_get_fc_charge_type_id;
2613: FETCH c_get_fc_charge_type_id INTO l_freight_cost_type_id;
2614: l_type_count := c_get_fc_charge_type_id%ROWCOUNT;
2614: l_type_count := c_get_fc_charge_type_id%ROWCOUNT;
2615: CLOSE c_get_fc_charge_type_id;
2616:
2617: ELSE
2618: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'not charge');
2619:
2620: OPEN c_get_fc_type_id;
2621: FETCH c_get_fc_type_id INTO l_freight_cost_type_id;
2622: l_type_count := c_get_fc_type_id%ROWCOUNT;
2623: CLOSE c_get_fc_type_id;
2624:
2625: END IF;
2626: IF l_type_count = 0 THEN
2627: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type;
2628: END IF;
2629:
2630: x_freight_cost_type_id := l_freight_cost_type_id;
2631: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2627: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type;
2628: END IF;
2629:
2630: x_freight_cost_type_id := l_freight_cost_type_id;
2631: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2632:
2633: EXCEPTION
2634: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type THEN
2635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2630: x_freight_cost_type_id := l_freight_cost_type_id;
2631: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2632:
2633: EXCEPTION
2634: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type THEN
2635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2636: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_fc_type');
2637: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2638: WHEN others THEN
2632:
2633: EXCEPTION
2634: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type THEN
2635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2636: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_fc_type');
2637: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2638: WHEN others THEN
2639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2640: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2633: EXCEPTION
2634: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_fc_type THEN
2635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2636: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_fc_type');
2637: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2638: WHEN others THEN
2639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2640: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2641: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2636: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_fc_type');
2637: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2638: WHEN others THEN
2639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2640: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2641: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2642: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2643:
2644: END get_fc_type_id;
2637: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2638: WHEN others THEN
2639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2640: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2641: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2642: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2643:
2644: END get_fc_type_id;
2645:
2638: WHEN others THEN
2639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2640: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_type_id',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
2641: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
2642: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_type_id');
2643:
2644: END get_fc_type_id;
2645:
2646: PROCEDURE prepare_fc_records (
2704: l_freight_cost_temp_price Freight_Cost_Temp_Tab_Type;
2705: l_freight_cost_main_charge Freight_Cost_Main_Tab_Type;
2706: l_freight_cost_temp_charge Freight_Cost_Temp_Tab_Type;
2707:
2708: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
2709: l_billed_weight NUMBER;
2710:
2711: BEGIN
2712:
2710:
2711: BEGIN
2712:
2713: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2714: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2715: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'prepare_fc_records','start');
2716:
2717: l_fte_total_amount := 0;
2718: l_main_price_index :=l_main_price_index + 1;
2711: BEGIN
2712:
2713: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2714: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
2715: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'prepare_fc_records','start');
2716:
2717: l_fte_total_amount := 0;
2718: l_main_price_index :=l_main_price_index + 1;
2719: l_temp_price_index :=l_temp_price_index + 1;
2728:
2729: -- uom conversion
2730: --l_fc_rec.charge_unit_value := p_qp_output_line_row.unit_price;
2731: l_fc_rec.charge_unit_value := (p_qp_output_line_row.unit_price)*(p_qp_output_line_row.priced_quantity/l_fc_rec.quantity);
2732: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity='||l_fc_rec.quantity);
2733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.uom='||l_fc_rec.uom);
2734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.charge_unit_value='||l_fc_rec.charge_unit_value);
2735:
2736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' QP Output Detail row count : '||p_qp_output_detail_rows.COUNT);
2729: -- uom conversion
2730: --l_fc_rec.charge_unit_value := p_qp_output_line_row.unit_price;
2731: l_fc_rec.charge_unit_value := (p_qp_output_line_row.unit_price)*(p_qp_output_line_row.priced_quantity/l_fc_rec.quantity);
2732: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity='||l_fc_rec.quantity);
2733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.uom='||l_fc_rec.uom);
2734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.charge_unit_value='||l_fc_rec.charge_unit_value);
2735:
2736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' QP Output Detail row count : '||p_qp_output_detail_rows.COUNT);
2737: m := p_qp_output_detail_rows.FIRST; -- Determine the charges/discounts
2730: --l_fc_rec.charge_unit_value := p_qp_output_line_row.unit_price;
2731: l_fc_rec.charge_unit_value := (p_qp_output_line_row.unit_price)*(p_qp_output_line_row.priced_quantity/l_fc_rec.quantity);
2732: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity='||l_fc_rec.quantity);
2733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.uom='||l_fc_rec.uom);
2734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.charge_unit_value='||l_fc_rec.charge_unit_value);
2735:
2736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' QP Output Detail row count : '||p_qp_output_detail_rows.COUNT);
2737: m := p_qp_output_detail_rows.FIRST; -- Determine the charges/discounts
2738: IF m IS NOT NULL THEN
2732: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity='||l_fc_rec.quantity);
2733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.uom='||l_fc_rec.uom);
2734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.charge_unit_value='||l_fc_rec.charge_unit_value);
2735:
2736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' QP Output Detail row count : '||p_qp_output_detail_rows.COUNT);
2737: m := p_qp_output_detail_rows.FIRST; -- Determine the charges/discounts
2738: IF m IS NOT NULL THEN
2739: -- {
2740: LOOP
2856: x_return_status => l_return_status);
2857:
2858: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2859: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2860: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2861: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2862: END IF;
2863: ELSE
2864: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2857:
2858: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2859: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2860: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2861: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2862: END IF;
2863: ELSE
2864: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
2860: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2861: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2862: END IF;
2863: ELSE
2864: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
2866: END IF;
2867:
2868: --l_billed_weight := l_category_sum;
2861: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2862: END IF;
2863: ELSE
2864: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
2866: END IF;
2867:
2868: --l_billed_weight := l_category_sum;
2869: -- When the category is not there in engine row, there is no proration
2936: x_return_status => l_return_status);
2937:
2938: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2939: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2940: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2941: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2942: END IF;
2943: ELSE
2944: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2937:
2938: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2939: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2940: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2941: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2942: END IF;
2943: ELSE
2944: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2945: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
2940: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge get_rolled_up');
2941: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2942: END IF;
2943: ELSE
2944: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2945: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
2946: END IF;
2947:
2948: -- When the basis is not there in engine row, there is no proration
2941: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
2942: END IF;
2943: ELSE
2944: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
2945: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
2946: END IF;
2947:
2948: -- When the basis is not there in engine row, there is no proration
2949: IF p_pricing_engine_input(p_qp_output_line_row.line_index).basis IS NULL
3074: END IF;
3075:
3076: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3077: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3078: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3079: END IF;
3080: ELSE
3081: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3082: END IF;
3077: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3078: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3079: END IF;
3080: ELSE
3081: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3082: END IF;
3083:
3084: l_fte_total_amount := 0;
3085:
3168:
3169: IF NOT l_fc_dlvd_rows.EXISTS(l_delivery_detail_id) THEN
3170: l_fc_dlvd_rows(l_delivery_detail_id).total_amount := l_total_amount;
3171: l_fc_dlvd_rows(l_delivery_detail_id).discount_amount := l_discount_total;
3172: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Discount total for detail '||l_delivery_detail_id||' is '||l_fc_dlvd_rows(l_delivery_detail_id).discount_amount);
3173: ELSE
3174: l_fc_dlvd_rows(l_delivery_detail_id).total_amount := l_fc_dlvd_rows(l_delivery_detail_id).total_amount + l_total_amount;
3175: l_fc_dlvd_rows(l_delivery_detail_id).discount_amount := l_fc_dlvd_rows(l_delivery_detail_id).discount_amount + l_discount_total;
3176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Discount total for detail '||l_delivery_detail_id||' is '||l_fc_dlvd_rows(l_delivery_detail_id).discount_amount);
3172: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Discount total for detail '||l_delivery_detail_id||' is '||l_fc_dlvd_rows(l_delivery_detail_id).discount_amount);
3173: ELSE
3174: l_fc_dlvd_rows(l_delivery_detail_id).total_amount := l_fc_dlvd_rows(l_delivery_detail_id).total_amount + l_total_amount;
3175: l_fc_dlvd_rows(l_delivery_detail_id).discount_amount := l_fc_dlvd_rows(l_delivery_detail_id).discount_amount + l_discount_total;
3176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Discount total for detail '||l_delivery_detail_id||' is '||l_fc_dlvd_rows(l_delivery_detail_id).discount_amount);
3177: END IF;
3178:
3179: IF p_save_flag = 'M' THEN
3180:
3205: END LOOP;
3206: -- }
3207: ELSE
3208: -- {
3209: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'NO QP line detail records created');
3210: -- }
3211: END IF;
3212:
3213: l_charge_unit_value := p_qp_output_line_row.unit_price;
3222:
3223: IF p_pricing_engine_input(p_qp_output_line_row.line_index).loose_item_id IS NOT NULL THEN
3224: -- {
3225:
3226: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Loose item id : '||p_pricing_engine_input(p_qp_output_line_row.line_index).loose_item_id);
3227:
3228: l_main_price_index := l_curr_fc_count + 1;
3229:
3230: IF l_fc_dlvd_rows.COUNT > 0 THEN
3256: -- }
3257: ELSE -- Need to prorate among the top level lines
3258: -- {
3259:
3260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'p_aggregation= '||p_aggregation);
3261: IF p_aggregation = 'WITHIN' THEN
3262: -- {
3263: -- Need to prorate back to top level lines based on the category
3264:
3262: -- {
3263: -- Need to prorate back to top level lines based on the category
3264:
3265: -- New API : Case for global l_rolledup_lines
3266: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' Basis is : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis);
3267: get_rolledup_amount(
3268: p_container_id => p_delivery_detail_id,
3269: --p_basis => p_pricing_engine_input(p_qp_output_line_row.line_index).basis,
3270: p_category_id => p_pricing_engine_input(p_qp_output_line_row.line_index).category_id,
3279: x_freight_cost_temp_charge => l_freight_cost_temp_charge,
3280: x_quantity => l_category_sum, -- Returns in input uom
3281: x_return_status => l_return_status);
3282:
3283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' l_category_sum ='||l_category_sum);
3284:
3285: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3286: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3287: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' l_category_sum ='||l_category_sum);
3284:
3285: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3286: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3287: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3288: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3289: END IF;
3290: ELSE
3291: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3284:
3285: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3286: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3287: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3288: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3289: END IF;
3290: ELSE
3291: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3292: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
3287: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3288: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3289: END IF;
3290: ELSE
3291: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3292: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
3293: END IF;
3294:
3295: -- When the category is not there in engine row, there is no proration
3288: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3289: END IF;
3290: ELSE
3291: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3292: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Category : '||p_pricing_engine_input(p_qp_output_line_row.line_index).category_id||' Children Qty Sum : '||l_category_sum);
3293: END IF;
3294:
3295: -- When the category is not there in engine row, there is no proration
3296: IF p_pricing_engine_input(p_qp_output_line_row.line_index).category_id IS NULL
3337: -- }
3338: ELSE
3339: -- {
3340:
3341: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' Basis 2 is : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis);
3342: get_rolledup_amount(
3343: p_container_id => p_delivery_detail_id,
3344: p_basis => p_pricing_engine_input(p_qp_output_line_row.line_index).basis,
3345: p_wsh_amount => l_output_wsh,
3353: x_freight_cost_temp_charge => l_freight_cost_temp_charge,
3354: x_quantity => l_basis_sum, -- Returns in input uom
3355: x_return_status => l_return_status);
3356:
3357: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' l_basis_sum ='||l_basis_sum);
3358:
3359: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3360: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3361: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3357: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,' l_basis_sum ='||l_basis_sum);
3358:
3359: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3360: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3361: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3362: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3363: END IF;
3364: ELSE
3365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3358:
3359: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3360: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3361: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3362: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3363: END IF;
3364: ELSE
3365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
3361: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Price get_rolled_up');
3362: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3363: END IF;
3364: ELSE
3365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
3367: END IF;
3368:
3369: -- When the basis is not there in engine row, there is no proration
3362: raise FTE_FREIGHT_PRICING_UTIL.g_proration_failed;
3363: END IF;
3364: ELSE
3365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Engine row quantity : '||p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity);
3366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container : '||p_delivery_detail_id||' Basis : '||p_pricing_engine_input(p_qp_output_line_row.line_index).basis||' Children Qty Sum : '||l_basis_sum);
3367: END IF;
3368:
3369: -- When the basis is not there in engine row, there is no proration
3370: IF p_pricing_engine_input(p_qp_output_line_row.line_index).basis IS NULL
3414: END IF;
3415: -- }
3416: END IF;
3417:
3418: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_billed_weight='||l_billed_weight);
3419:
3420: IF p_save_flag = 'M' THEN
3421: l_end_fc_count := x_freight_cost_main_price.COUNT;
3422: ELSE
3422: ELSE
3423: l_end_fc_count := x_freight_cost_temp_price.COUNT;
3424: END IF;
3425:
3426: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No. of fc base price records created w/o Container level BP : '||to_char(l_end_fc_count - l_curr_fc_count));
3427:
3428: IF l_end_fc_count = l_curr_fc_count THEN -- Do it only if No rolled up lines got new fc records -- {
3429: -- And it is not because the container did not have any matching lines
3430: -- eg.in case of consolidating SCWB with MCWB
3444: l_container_quantity := p_pricing_engine_input(p_qp_output_line_row.line_index).line_quantity;
3445:
3446:
3447:
3448: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container Quantity : '|| l_container_quantity);
3449:
3450: IF p_save_flag = 'M' THEN -- Populate appropriate columns
3451: x_freight_cost_main_price(l_main_price_index).delivery_detail_id := p_delivery_detail_id;
3452: -- This quantity will now become the container level gross quantity
3476:
3477: -- }
3478: END IF;
3479:
3480: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No. of fc base price records created in all : '||to_char(l_end_fc_count - l_curr_fc_count));
3481:
3482: IF l_end_fc_count > l_curr_fc_count THEN
3483:
3484: get_fc_type_id(
3488: x_return_status => l_return_status);
3489:
3490: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3491: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3492: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3493: END IF;
3494: ELSE
3495: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3496: END IF;
3491: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3492: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3493: END IF;
3494: ELSE
3495: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3496: END IF;
3497:
3498: o := l_curr_fc_count + 1; -- Determine the base price
3499: LOOP
3564: -- Need to set for Top level Price record in case of commodity based rating
3565: -- Container rates columns are set during container summary records.
3566: IF p_pricing_engine_input(p_qp_output_line_row.line_index).loose_item_flag = 'Y'
3567: AND l_fc_rec.line_type_code = 'PRICE' THEN
3568: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Setting billed Weight in case of Price and lose Item Y');
3569:
3570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_billed_weight ='||l_billed_weight);
3571: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity ='||l_fc_rec.quantity);
3572:
3566: IF p_pricing_engine_input(p_qp_output_line_row.line_index).loose_item_flag = 'Y'
3567: AND l_fc_rec.line_type_code = 'PRICE' THEN
3568: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Setting billed Weight in case of Price and lose Item Y');
3569:
3570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_billed_weight ='||l_billed_weight);
3571: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity ='||l_fc_rec.quantity);
3572:
3573: x_freight_cost_temp_price(o).billable_uom := l_fc_rec.uom;
3574: x_freight_cost_temp_price(o).billable_quantity := l_billed_weight;--l_fc_rec.quantity;
3567: AND l_fc_rec.line_type_code = 'PRICE' THEN
3568: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Setting billed Weight in case of Price and lose Item Y');
3569:
3570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_billed_weight ='||l_billed_weight);
3571: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_fc_rec.quantity ='||l_fc_rec.quantity);
3572:
3573: x_freight_cost_temp_price(o).billable_uom := l_fc_rec.uom;
3574: x_freight_cost_temp_price(o).billable_quantity := l_billed_weight;--l_fc_rec.quantity;
3575: x_freight_cost_temp_price(o).billable_basis := p_rate_basis;--p_pricing_engine_input(p_qp_output_line_row.line_index).basis;
3619:
3620: --END IF;
3621:
3622: END IF; -- No new fc records were inserted
3623: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3624:
3625: EXCEPTION
3626: WHEN FTE_FREIGHT_PRICING_UTIL.g_proration_failed THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3622: END IF; -- No new fc records were inserted
3623: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3624:
3625: EXCEPTION
3626: WHEN FTE_FREIGHT_PRICING_UTIL.g_proration_failed THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3628: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_proration_failed');
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3624:
3625: EXCEPTION
3626: WHEN FTE_FREIGHT_PRICING_UTIL.g_proration_failed THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3628: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_proration_failed');
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3625: EXCEPTION
3626: WHEN FTE_FREIGHT_PRICING_UTIL.g_proration_failed THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3628: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_proration_failed');
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3626: WHEN FTE_FREIGHT_PRICING_UTIL.g_proration_failed THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3628: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_proration_failed');
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3628: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_proration_failed');
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3635: WHEN others THEN
3629: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_records failed ');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3635: WHEN others THEN
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3631: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3635: WHEN others THEN
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3638: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3633: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3635: WHEN others THEN
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3638: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3639: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3640: END prepare_fc_records;
3641:
3634: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3635: WHEN others THEN
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3638: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3639: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3640: END prepare_fc_records;
3641:
3642: -- This API will result in one qp output line per instance
3635: WHEN others THEN
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637: FTE_FREIGHT_PRICING_UTIL.set_exception('prepare_fc_records',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3638: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3639: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'prepare_fc_records');
3640: END prepare_fc_records;
3641:
3642: -- This API will result in one qp output line per instance
3643: -- It will delete other engine rows and associated engine output line details
3655: l_return_status VARCHAR2(1);
3656:
3657: l_instance_output instance_enginerow_tab_type;
3658:
3659: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
3660:
3661: BEGIN
3662:
3663: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3660:
3661: BEGIN
3662:
3663: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3664: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3665: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'resolve_pricing_objective','start');
3666:
3667: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'QP Output line row count : '||x_qp_output_line_rows.COUNT);
3668: i := x_qp_output_line_rows.FIRST;
3661: BEGIN
3662:
3663: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3664: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3665: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'resolve_pricing_objective','start');
3666:
3667: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'QP Output line row count : '||x_qp_output_line_rows.COUNT);
3668: i := x_qp_output_line_rows.FIRST;
3669: IF i IS NOT NULL THEN
3663: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3664: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3665: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'resolve_pricing_objective','start');
3666:
3667: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'QP Output line row count : '||x_qp_output_line_rows.COUNT);
3668: i := x_qp_output_line_rows.FIRST;
3669: IF i IS NOT NULL THEN
3670: LOOP
3671: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'QP line index : '||x_qp_output_line_rows(i).line_index);
3667: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'QP Output line row count : '||x_qp_output_line_rows.COUNT);
3668: i := x_qp_output_line_rows.FIRST;
3669: IF i IS NOT NULL THEN
3670: LOOP
3671: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'QP line index : '||x_qp_output_line_rows(i).line_index);
3672: -- IF x_pricing_engine_input(x_qp_output_line_rows(i).line_index).loose_item_id IS NULL THEN -- Container
3673: IF x_pricing_engine_input(x_qp_output_line_rows(i).line_index).loose_item_flag = 'N' THEN -- Container
3674:
3675: IF NOT l_instance_output.EXISTS(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index) THEN
3673: IF x_pricing_engine_input(x_qp_output_line_rows(i).line_index).loose_item_flag = 'N' THEN -- Container
3674:
3675: IF NOT l_instance_output.EXISTS(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index) THEN
3676:
3677: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'QP line index : '||x_qp_output_line_rows(i).line_index||'Instance : '
3678: ||x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index||' Quanitity : '||x_pricing_engine_input(x_qp_output_line_rows(i).line_index).line_quantity);
3679:
3680: l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).input_index := x_qp_output_line_rows(i).line_index;
3681: --l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount := x_qp_output_line_rows(i).unit_price * x_pricing_engine_input(x_qp_output_line_rows(i).line_index).line_quantity;
3683: l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount := x_qp_output_line_rows(i).unit_price * x_qp_output_line_rows(i).priced_quantity;
3684:
3685: ELSE
3686:
3687: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'QP line index : '||x_qp_output_line_rows(i).line_index||'Instance : '
3688: ||x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index||' Quanitity : '||x_pricing_engine_input(x_qp_output_line_rows(i).line_index).line_quantity);
3689:
3690: -- Find out the line index to choose for this instance based on pricing objective
3691: -- What happens if there is no pricing objective ?
3693: --l_tot_amount := x_qp_output_line_rows(i).unit_price * x_pricing_engine_input(x_qp_output_line_rows(i).line_index).line_quantity; -- assuming same input and output currency code
3694:
3695: l_tot_amount := x_qp_output_line_rows(i).unit_price * x_qp_output_line_rows(i).priced_quantity; -- assuming same input and output currency code
3696:
3697: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Current Total amount : '||l_tot_amount);
3698: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Existing instance amount : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount);
3699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing objective : '||p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective);
3700:
3701: IF p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective IS NOT NULL THEN
3694:
3695: l_tot_amount := x_qp_output_line_rows(i).unit_price * x_qp_output_line_rows(i).priced_quantity; -- assuming same input and output currency code
3696:
3697: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Current Total amount : '||l_tot_amount);
3698: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Existing instance amount : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount);
3699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing objective : '||p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective);
3700:
3701: IF p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective IS NOT NULL THEN
3702:
3695: l_tot_amount := x_qp_output_line_rows(i).unit_price * x_qp_output_line_rows(i).priced_quantity; -- assuming same input and output currency code
3696:
3697: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Current Total amount : '||l_tot_amount);
3698: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Existing instance amount : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount);
3699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing objective : '||p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective);
3700:
3701: IF p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective IS NOT NULL THEN
3702:
3703: IF ((p_pricing_dual_instances(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).objective = G_OBJECTIVE_HIGHEST AND
3714: x_return_status => l_return_status);
3715:
3716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3718: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current higher delete_lines ');
3719: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3720: END IF;
3721: ELSE
3722: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).input_index);
3715:
3716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3718: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current higher delete_lines ');
3719: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3720: END IF;
3721: ELSE
3722: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).input_index);
3723: END IF;
3718: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current higher delete_lines ');
3719: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3720: END IF;
3721: ELSE
3722: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).input_index);
3723: END IF;
3724:
3725: l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).tot_amount := l_tot_amount;
3726: l_instance_output(x_pricing_engine_input(x_qp_output_line_rows(i).line_index).instance_index).input_index := x_qp_output_line_rows(i).line_index;
3736: x_return_status => l_return_status);
3737:
3738: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3739: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3740: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current not higher delete_lines');
3741: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3742: END IF;
3743: ELSE
3744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||i);
3737:
3738: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3739: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3740: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current not higher delete_lines');
3741: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3742: END IF;
3743: ELSE
3744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||i);
3745: END IF;
3740: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Highest current not higher delete_lines');
3741: raise FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed;
3742: END IF;
3743: ELSE
3744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Deleted QP output : '||i);
3745: END IF;
3746:
3747: -- For NULL pricing objective we will keep all the output lines for the instance
3748:
3757: EXIT WHEN i >= x_qp_output_line_rows.LAST;
3758: i := x_qp_output_line_rows.NEXT(i);
3759: END LOOP;
3760: END IF;
3761: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3762:
3763: EXCEPTION
3764: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3760: END IF;
3761: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3762:
3763: EXCEPTION
3764: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3766: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_qpline_failed');
3767: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'delete_qpline_failed failed ');
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3762:
3763: EXCEPTION
3764: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3766: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_qpline_failed');
3767: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'delete_qpline_failed failed ');
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3763: EXCEPTION
3764: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3766: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_qpline_failed');
3767: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'delete_qpline_failed failed ');
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3771: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3764: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_qpline_failed THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3766: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_qpline_failed');
3767: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'delete_qpline_failed failed ');
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3771: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3772: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3767: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'delete_qpline_failed failed ');
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3771: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3772: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3773: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3774:
3775: END resolve_pricing_objective;
3768: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3771: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3772: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3773: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3774:
3775: END resolve_pricing_objective;
3776:
3769: WHEN others THEN
3770: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3771: FTE_FREIGHT_PRICING_UTIL.set_exception('resolve_pricing_objective',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3772: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3773: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'resolve_pricing_objective');
3774:
3775: END resolve_pricing_objective;
3776:
3777: PROCEDURE add_other_container_summary (
3799: l_between_cont_sum container_sum_tab_type;
3800: l_in_between_containers container_detail_tab_type;
3801: l_return_status VARCHAR2(1);
3802:
3803: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
3804:
3805: BEGIN
3806: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3807: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3803: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
3804:
3805: BEGIN
3806: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3807: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3808: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_other_container_summary','start');
3809:
3810: IF p_save_flag = 'M' THEN
3811: l_price_first := x_freight_cost_main_price.FIRST;
3804:
3805: BEGIN
3806: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3807: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3808: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_other_container_summary','start');
3809:
3810: IF p_save_flag = 'M' THEN
3811: l_price_first := x_freight_cost_main_price.FIRST;
3812: l_price_last := x_freight_cost_main_price.LAST;
3831: -- For all those in between containers a SUMMARY record needs to be inserted
3832: -- these records will look exactly the same as that of the actual container_id here
3833:
3834: l_in_between_cont_prv_cnt := l_in_between_containers.COUNT;
3835: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Parent non top level container for detail : '||g_rolledup_lines(i).delivery_detail_id);
3836:
3837: l_child_container := g_rolledup_lines(i).container_id;
3838: l_master_container := g_rolledup_lines(i).master_container_id;
3839: LOOP
3844: -- We have to deal with in between containers
3845:
3846: IF NOT l_container_summary.EXISTS(l_parent_container) THEN
3847: p := p + 1;
3848: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding in between container : '||l_parent_container);
3849:
3850: -- If indexed by container_id then can not store detail id
3851: -- Create a hash of detail and container together ?
3852: -- and store both detail and container
3856:
3857: END IF;
3858: l_child_container := g_shipment_line_rows(l_child_container).parent_delivery_detail_id;
3859: ELSE
3860: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done adding in between containers for detail : '||g_rolledup_lines(i).delivery_detail_id);
3861: EXIT;
3862: END IF;
3863: END LOOP;
3864:
3861: EXIT;
3862: END IF;
3863: END LOOP;
3864:
3865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Parent container : '||g_rolledup_lines(i).container_id);
3866: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Master container : '||g_rolledup_lines(i).master_container_id);
3867: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'In between container count : '||l_in_between_containers.COUNT);
3868:
3869: -- No need to loop over charge records as the PRICE record for the
3862: END IF;
3863: END LOOP;
3864:
3865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Parent container : '||g_rolledup_lines(i).container_id);
3866: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Master container : '||g_rolledup_lines(i).master_container_id);
3867: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'In between container count : '||l_in_between_containers.COUNT);
3868:
3869: -- No need to loop over charge records as the PRICE record for the
3870: -- delivery detail would already have taken care of the charges and discounts
3863: END LOOP;
3864:
3865: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Parent container : '||g_rolledup_lines(i).container_id);
3866: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Master container : '||g_rolledup_lines(i).master_container_id);
3867: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'In between container count : '||l_in_between_containers.COUNT);
3868:
3869: -- No need to loop over charge records as the PRICE record for the
3870: -- delivery detail would already have taken care of the charges and discounts
3871: -- in its TOTAL_AMOUNT column
3876: LOOP
3877: IF p_save_flag = 'M' THEN
3878: IF x_freight_cost_main_price(j).delivery_detail_id = g_rolledup_lines(i).delivery_detail_id THEN
3879: IF NOT l_container_summary.EXISTS(g_rolledup_lines(i).container_id) THEN
3880: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding non in between other container : '||g_rolledup_lines(i).container_id);
3881:
3882: l_container_summary(g_rolledup_lines(i).container_id).total_amount := x_freight_cost_main_price(j).total_amount;
3883: l_container_summary(g_rolledup_lines(i).container_id).currency_code := x_freight_cost_main_price(j).currency_code;
3884: l_container_summary(g_rolledup_lines(i).container_id).delivery_leg_id := x_freight_cost_main_price(j).delivery_leg_id;
3890: END IF;
3891: ELSE
3892: IF x_freight_cost_temp_price(j).delivery_detail_id = g_rolledup_lines(i).delivery_detail_id THEN
3893: IF NOT l_container_summary.EXISTS(g_rolledup_lines(i).container_id) THEN
3894: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding non in between other container : '||g_rolledup_lines(i).container_id);
3895:
3896: l_container_summary(g_rolledup_lines(i).container_id).total_amount := x_freight_cost_temp_price(j).total_amount;
3897: l_container_summary(g_rolledup_lines(i).container_id).currency_code := x_freight_cost_temp_price(j).currency_code;
3898: --l_container_summary(g_rolledup_lines(i).container_id).delivery_leg_id := x_freight_cost_temp_price(j).delivery_leg_id;
3910: LOOP
3911: IF p_save_flag = 'M' THEN
3912: IF ((x_freight_cost_main_price(j).delivery_detail_id = g_rolledup_lines(i).delivery_detail_id) AND
3913: (x_freight_cost_main_price(j).delivery_detail_id = l_in_between_containers(n).detail_id)) THEN
3914: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Fc exists for in between container : '||l_in_between_containers(n).entity_id);
3915:
3916: IF NOT l_between_cont_sum.EXISTS(l_in_between_containers(n).entity_id) THEN
3917: l_between_cont_sum(l_in_between_containers(n).entity_id).total_amount := x_freight_cost_main_price(j).total_amount;
3918: l_between_cont_sum(l_in_between_containers(n).entity_id).currency_code := x_freight_cost_main_price(j).currency_code;
3927:
3928: ELSE
3929: IF ((x_freight_cost_temp_price(j).delivery_detail_id = g_rolledup_lines(i).delivery_detail_id) AND
3930: (x_freight_cost_temp_price(j).delivery_detail_id = l_in_between_containers(n).detail_id)) THEN
3931: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Fc exists for in between container : '||l_in_between_containers(n).entity_id);
3932:
3933: IF NOT l_between_cont_sum.EXISTS(l_in_between_containers(n).entity_id) THEN
3934: l_between_cont_sum(l_in_between_containers(n).entity_id).total_amount := x_freight_cost_temp_price(j).total_amount;
3935: l_between_cont_sum(l_in_between_containers(n).entity_id).currency_code := x_freight_cost_temp_price(j).currency_code;
3976: x_return_status => l_return_status);
3977:
3978: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3979: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3980: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3981: END IF;
3982: ELSE
3983: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3984: END IF;
3979: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3980: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
3981: END IF;
3982: ELSE
3983: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
3984: END IF;
3985:
3986: END IF;
3987:
4072: EXIT WHEN l = l_between_cont_sum.LAST;
4073: l := l_between_cont_sum.NEXT(l);
4074: END LOOP;
4075: END IF;
4076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4077:
4078: EXCEPTION
4079: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4075: END IF;
4076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4077:
4078: EXCEPTION
4079: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4082: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4083: WHEN others THEN
4077:
4078: EXCEPTION
4079: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4082: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4083: WHEN others THEN
4084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4085: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4078: EXCEPTION
4079: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4082: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4083: WHEN others THEN
4084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4085: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4086: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4081: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4082: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4083: WHEN others THEN
4084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4085: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4086: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4087: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4088: END add_other_container_summary;
4089:
4082: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4083: WHEN others THEN
4084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4085: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4086: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4087: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4088: END add_other_container_summary;
4089:
4090:
4083: WHEN others THEN
4084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4085: FTE_FREIGHT_PRICING_UTIL.set_exception('add_other_container_summary',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4086: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4087: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_other_container_summary');
4088: END add_other_container_summary;
4089:
4090:
4091: -- This is the QP engine output post processing API
4150:
4151: l_fc_dleg_rows dlvy_leg_summ_tab_type;
4152: l_dlv_id NUMBER;
4153: l_basis_meaning VARCHAR2(100);
4154: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
4155:
4156:
4157: BEGIN
4158:
4156:
4157: BEGIN
4158:
4159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4160: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
4161: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'process_qp_output','start');
4162:
4163: -- This API will result in one qp output line per instance
4164: -- It will delete other output lines and associated engine output line details
4157: BEGIN
4158:
4159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4160: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
4161: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'process_qp_output','start');
4162:
4163: -- This API will result in one qp output line per instance
4164: -- It will delete other output lines and associated engine output line details
4165:
4211: x_return_status => l_return_status);
4212:
4213: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4214: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4215: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Loose Item ');
4216: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4217: END IF;
4218: ELSE
4219: IF p_save_flag = 'M' THEN
4212:
4213: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4214: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4215: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Loose Item ');
4216: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4217: END IF;
4218: ELSE
4219: IF p_save_flag = 'M' THEN
4220: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4216: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4217: END IF;
4218: ELSE
4219: IF p_save_flag = 'M' THEN
4220: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4222: ELSE
4223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4224: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4217: END IF;
4218: ELSE
4219: IF p_save_flag = 'M' THEN
4220: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4222: ELSE
4223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4224: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4225: END IF;
4219: IF p_save_flag = 'M' THEN
4220: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4222: ELSE
4223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4224: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4225: END IF;
4226: END IF;
4227:
4220: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4222: ELSE
4223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4224: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4225: END IF;
4226: END IF;
4227:
4228:
4271: x_return_status => l_return_status);
4272:
4273: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4274: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4275: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||p_pattern_rows(k).content_id);
4276: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4277: END IF;
4278: ELSE
4279: IF p_save_flag = 'M' THEN
4272:
4273: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4274: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4275: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||p_pattern_rows(k).content_id);
4276: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4277: END IF;
4278: ELSE
4279: IF p_save_flag = 'M' THEN
4280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4276: raise FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed;
4277: END IF;
4278: ELSE
4279: IF p_save_flag = 'M' THEN
4280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4281: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4282: ELSE
4283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4284: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4277: END IF;
4278: ELSE
4279: IF p_save_flag = 'M' THEN
4280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4281: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4282: ELSE
4283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4284: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4285: END IF;
4279: IF p_save_flag = 'M' THEN
4280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4281: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4282: ELSE
4283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4284: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4285: END IF;
4286: END IF;
4287:
4280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Main fc base price Records created ');
4281: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_charge.COUNT - l_charge_count || ' Main fc charge Records created ');
4282: ELSE
4283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Temp fc base price Records created ');
4284: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_charge.COUNT - l_charge_count || ' Temp fc charge Records created ');
4285: END IF;
4286: END IF;
4287:
4288: END IF;
4306: x_return_status => l_return_status);
4307:
4308: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4309: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4310: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
4311: END IF;
4312: ELSE
4313: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
4314: END IF;
4309: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4310: raise FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed;
4311: END IF;
4312: ELSE
4313: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||l_freight_cost_type_id);
4314: END IF;
4315:
4316: IF l_container_summary.COUNT > 0 THEN
4317:
4332: l_main_price_index := l_main_price_index + 1;
4333: Get_Basis_Meaning ( p_basis => l_container_summary(l).bbasis,
4334: x_basis_meaning => l_basis_meaning);
4335:
4336: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Before setting billable columns in main for basis :'||l_basis_meaning);
4337: IF p_save_flag = 'M' THEN -- Populate appropriate columns
4338:
4339: x_freight_cost_main_price(l_main_price_index).freight_cost_type_id := l_freight_cost_type_id;
4340: x_freight_cost_main_price(l_main_price_index).charge_source_code := 'PRICING_ENGINE';
4388: x_return_status => l_return_status);
4389:
4390: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4391: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4392: raise FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed;
4393: END IF;
4394: ELSE
4395: IF p_save_flag = 'M' THEN
4396: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Non top level container summary records created');
4392: raise FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed;
4393: END IF;
4394: ELSE
4395: IF p_save_flag = 'M' THEN
4396: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Non top level container summary records created');
4397: ELSE
4398: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Non top level container summary records created');
4399: END IF;
4400: END IF;
4394: ELSE
4395: IF p_save_flag = 'M' THEN
4396: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_main_price.COUNT - l_price_count || ' Non top level container summary records created');
4397: ELSE
4398: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,x_freight_cost_temp_price.COUNT - l_price_count || ' Non top level container summary records created');
4399: END IF;
4400: END IF;
4401:
4402: END IF;
4400: END IF;
4401:
4402: END IF;
4403:
4404: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_container_summary.COUNT || ' Top level Container Summary fc Records created ');
4405:
4406: IF l_fc_dleg_rows.COUNT > 0 THEN
4407:
4408: IF p_save_flag = 'M' THEN
4467: EXIT WHEN l = l_fc_dleg_rows.LAST;
4468: l := l_fc_dleg_rows.NEXT(l);
4469: END LOOP;
4470:
4471: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_fc_dleg_rows.COUNT || ' Delivery Leg Summary fc Records created ');
4472:
4473: -- IF p_save_flag = 'T' THEN
4474: IF p_save_flag <> 'M' THEN -- VVP (OM Est change)
4475: -- Need to send back lane/sched level summary amount
4487: l := l_fc_dleg_rows.FIRST;
4488: LOOP
4489:
4490: l_temp_amt := l_temp_amt + l_fc_dleg_rows(l).summary_amount;
4491: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
4492: 'l='||l||' summary='||l_fc_dleg_rows(l).summary_amount);
4493:
4494: EXIT WHEN l = l_fc_dleg_rows.LAST;
4495: l := l_fc_dleg_rows.NEXT(l);
4502: x_summary_lanesched_price := round(l_fc_dleg_rows(l).summary_amount,2);
4503: x_summary_lanesched_price_uom := l_currency_code;
4504: l_temp_amt := round(l_fc_dleg_rows(l).summary_amount,2); --for debug only
4505: END IF;
4506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'x_summary_lanesched_price='||round(l_temp_amt,2));
4507:
4508: END IF;
4509: ELSE
4510: raise FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created;
4506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'x_summary_lanesched_price='||round(l_temp_amt,2));
4507:
4508: END IF;
4509: ELSE
4510: raise FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created;
4511: END IF; -- l_fc_dleg_rows.COUNT > 0
4512: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4513:
4514: EXCEPTION
4508: END IF;
4509: ELSE
4510: raise FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created;
4511: END IF; -- l_fc_dleg_rows.COUNT > 0
4512: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4513:
4514: EXCEPTION
4515: WHEN FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4511: END IF; -- l_fc_dleg_rows.COUNT > 0
4512: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4513:
4514: EXCEPTION
4515: WHEN FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4517: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_prepare_fc_rec_failed');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4513:
4514: EXCEPTION
4515: WHEN FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4517: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_prepare_fc_rec_failed');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4514: EXCEPTION
4515: WHEN FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4517: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_prepare_fc_rec_failed');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4515: WHEN FTE_FREIGHT_PRICING_UTIL.g_prepare_fc_rec_failed THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4517: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_prepare_fc_rec_failed');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4517: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_prepare_fc_rec_failed');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4518: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'prepare_fc_rec failed ');
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4519: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4520: WHEN FTE_FREIGHT_PRICING_UTIL.g_other_cont_summ_failed THEN
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4522: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_other_cont_summ_failed');
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4523: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'other_cont_sum failed ');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4524: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4525: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_fc_type_failed THEN
4526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4527: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_fc_type_failed');
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4528: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4536: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4529: WHEN FTE_FREIGHT_PRICING_UTIL.g_dleg_sum_not_created THEN
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4531: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dleg_sum_not_created');
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4536: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4537: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Delivery summary not created ');
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4536: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4537: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4539:
4540: END process_qp_output;
4533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4536: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4537: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4539:
4540: END process_qp_output;
4541:
4534: WHEN others THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4536: FTE_FREIGHT_PRICING_UTIL.set_exception('process_qp_output',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4537: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_qp_output');
4539:
4540: END process_qp_output;
4541:
4542: -- Start printing procedures
4552:
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4554:
4555: IF p_first_level_rows.COUNT > 0 THEN
4556: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4558: LOOP
4559:
4560: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg =>
4556: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4557: i := p_first_level_rows.FIRST;
4558: LOOP
4559:
4560: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg =>
4561: 'content_id:'||p_first_level_rows(i).content_id
4562: ||' delivery_leg_id:'||p_first_level_rows(i).delivery_leg_id
4563: ||' container_flag:'||p_first_level_rows(i).container_flag
4564: ||' container_type_code:'||p_first_level_rows(i).container_type_code
4575:
4576: EXIT WHEN i=p_first_level_rows.LAST;
4577: i := p_first_level_rows.NEXT(i);
4578: END LOOP;
4579: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4580: END IF;
4581:
4582: EXCEPTION
4583: WHEN others THEN
4581:
4582: EXCEPTION
4583: WHEN others THEN
4584: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4585: FTE_FREIGHT_PRICING_UTIL.set_exception('print_top_level_detail',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4586: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4587:
4588: END print_top_level_detail;
4589:
4582: EXCEPTION
4583: WHEN others THEN
4584: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4585: FTE_FREIGHT_PRICING_UTIL.set_exception('print_top_level_detail',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4586: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4587:
4588: END print_top_level_detail;
4589:
4590:
4599:
4600: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4601:
4602: IF p_rolledup_lines.COUNT > 0 THEN
4603: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4605: LOOP
4606:
4607: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'delivery_detail_id : '||p_rolledup_lines(i).delivery_detail_id||' category_id : '||p_rolledup_lines(i).category_id||' rate_basis : '||
4603: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4604: i := p_rolledup_lines.FIRST;
4605: LOOP
4606:
4607: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'delivery_detail_id : '||p_rolledup_lines(i).delivery_detail_id||' category_id : '||p_rolledup_lines(i).category_id||' rate_basis : '||
4608: p_rolledup_lines(i).rate_basis||'container_id : '||p_rolledup_lines(i).container_id||' master_container_id : '||p_rolledup_lines(i).master_container_id||'line_quantity : '||
4609: p_rolledup_lines(i).line_quantity||' line_uom : '||p_rolledup_lines(i).line_uom);
4610:
4611: EXIT WHEN i=p_rolledup_lines.LAST;
4610:
4611: EXIT WHEN i=p_rolledup_lines.LAST;
4612: i := p_rolledup_lines.NEXT(i);
4613: END LOOP;
4614: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4615: END IF;
4616:
4617: EXCEPTION
4618: WHEN others THEN
4616:
4617: EXCEPTION
4618: WHEN others THEN
4619: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4620: FTE_FREIGHT_PRICING_UTIL.set_exception('print_rolledup_lines',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4621: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4622: END print_rolledup_lines;
4623:
4624:
4617: EXCEPTION
4618: WHEN others THEN
4619: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4620: FTE_FREIGHT_PRICING_UTIL.set_exception('print_rolledup_lines',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4621: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4622: END print_rolledup_lines;
4623:
4624:
4625: PROCEDURE print_top_level_pattern (
4633:
4634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4635:
4636: IF p_pattern_rows.COUNT > 0 THEN
4637: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4639: LOOP
4640:
4641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'pattern_index : '||p_pattern_rows(i).pattern_index||' pattern_no : '||p_pattern_rows(i).pattern_no||' services_hash : '||
4637: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4638: i := p_pattern_rows.FIRST;
4639: LOOP
4640:
4641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'pattern_index : '||p_pattern_rows(i).pattern_index||' pattern_no : '||p_pattern_rows(i).pattern_no||' services_hash : '||
4642: p_pattern_rows(i).services_hash||' content_id : '||p_pattern_rows(i).content_id||' instance_index : '||p_pattern_rows(i).instance_index);
4643:
4644: EXIT WHEN i=p_pattern_rows.LAST;
4645: i := p_pattern_rows.NEXT(i);
4643:
4644: EXIT WHEN i=p_pattern_rows.LAST;
4645: i := p_pattern_rows.NEXT(i);
4646: END LOOP;
4647: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4648: END IF;
4649:
4650: EXCEPTION
4651: WHEN others THEN
4649:
4650: EXCEPTION
4651: WHEN others THEN
4652: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4653: FTE_FREIGHT_PRICING_UTIL.set_exception('print_top_level_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4654: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4655:
4656: END print_top_level_pattern;
4657:
4650: EXCEPTION
4651: WHEN others THEN
4652: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4653: FTE_FREIGHT_PRICING_UTIL.set_exception('print_top_level_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4654: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4655:
4656: END print_top_level_pattern;
4657:
4658: PROCEDURE print_dual_instances (
4666:
4667: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4668:
4669: IF p_dual_instances.COUNT > 0 THEN
4670: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4672: LOOP
4673:
4674: FTE_FREIGHT_PRICING_UTIL.print_msg(
4670: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4671: i := p_dual_instances.FIRST;
4672: LOOP
4673:
4674: FTE_FREIGHT_PRICING_UTIL.print_msg(
4675: p_msg => 'instance_index : '||p_dual_instances(i).instance_index||' pattern_no : '||p_dual_instances(i).pattern_no||' services_hash : '||p_dual_instances(i).services_hash||
4676: ' grouping_level : '||p_dual_instances(i).grouping_level||' aggregation : '||p_dual_instances(i).aggregation||' objective : '||p_dual_instances(i).objective||' count_pattern : '
4677: ||p_dual_instances(i).count_pattern||' loose_item_flag : '||p_dual_instances(i).loose_item_flag);
4678:
4678:
4679: EXIT WHEN i=p_dual_instances.LAST;
4680: i := p_dual_instances.NEXT(i);
4681: END LOOP;
4682: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4683: END IF;
4684:
4685: EXCEPTION
4686: WHEN others THEN
4684:
4685: EXCEPTION
4686: WHEN others THEN
4687: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4688: FTE_FREIGHT_PRICING_UTIL.set_exception('print_dual_instances',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4689: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4690:
4691: END print_dual_instances;
4692:
4685: EXCEPTION
4686: WHEN others THEN
4687: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4688: FTE_FREIGHT_PRICING_UTIL.set_exception('print_dual_instances',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4689: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4690:
4691: END print_dual_instances;
4692:
4693: PROCEDURE print_qp_output_lines (
4702: BEGIN
4703:
4704: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4705:
4706: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Return Status text '|| p_return_status);
4707:
4708: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4709:
4710: I := p_engine_output_line.FIRST;
4704: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4705:
4706: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Return Status text '|| p_return_status);
4707:
4708: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4710: I := p_engine_output_line.FIRST;
4711: IF I IS NOT NULL THEN
4712: LOOP
4709:
4710: I := p_engine_output_line.FIRST;
4711: IF I IS NOT NULL THEN
4712: LOOP
4713: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Line Index: '||p_engine_output_line(I).line_index);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4710: I := p_engine_output_line.FIRST;
4711: IF I IS NOT NULL THEN
4712: LOOP
4713: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Line Index: '||p_engine_output_line(I).line_index);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4711: IF I IS NOT NULL THEN
4712: LOOP
4713: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Line Index: '||p_engine_output_line(I).line_index);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4719: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4712: LOOP
4713: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Line Index: '||p_engine_output_line(I).line_index);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4719: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4720: EXIT WHEN I = p_engine_output_line.LAST;
4713: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Line Index: '||p_engine_output_line(I).line_index);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4719: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4720: EXIT WHEN I = p_engine_output_line.LAST;
4721: I := p_engine_output_line.NEXT(I);
4714: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Unit_price: '||p_engine_output_line(I).unit_price);
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4719: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4720: EXIT WHEN I = p_engine_output_line.LAST;
4721: I := p_engine_output_line.NEXT(I);
4722: END LOOP;
4715: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Adjusted Unit Price: '||p_engine_output_line(I).adjusted_unit_price);
4716: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Percent price: '||p_engine_output_line(I).percent_price);
4717: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status code: '||p_engine_output_line(I).status_code);
4718: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Pricing status text: '||p_engine_output_line(I).status_text);
4719: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4720: EXIT WHEN I = p_engine_output_line.LAST;
4721: I := p_engine_output_line.NEXT(I);
4722: END LOOP;
4723: END IF;
4720: EXIT WHEN I = p_engine_output_line.LAST;
4721: I := p_engine_output_line.NEXT(I);
4722: END LOOP;
4723: END IF;
4724: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4725: --FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => '');
4726:
4727: I := p_engine_output_detail.FIRST;
4728:
4721: I := p_engine_output_line.NEXT(I);
4722: END LOOP;
4723: END IF;
4724: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4725: --FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => '');
4726:
4727: I := p_engine_output_detail.FIRST;
4728:
4729: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_DBG,'
4725: --FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => '');
4726:
4727: I := p_engine_output_detail.FIRST;
4728:
4729: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_DBG,'
4731: IF I IS NOT NULL THEN
4732: LOOP
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4729: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_DBG,'
4730:
4731: IF I IS NOT NULL THEN
4732: LOOP
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4730:
4731: IF I IS NOT NULL THEN
4732: LOOP
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4731: IF I IS NOT NULL THEN
4732: LOOP
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4732: LOOP
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4733: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Index: '||p_engine_output_detail(I).line_index);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Index: '||p_engine_output_detail(I).line_detail_index);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Detail Type:'||p_engine_output_detail(I).line_detail_type_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4736: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Header Id: '||p_engine_output_detail(I).list_header_id);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4737: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Id: '||p_engine_output_detail(I).list_line_id);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4738: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'List Line Type Code: '||p_engine_output_detail(I).list_line_type_code);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4739: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Type Code: '||p_engine_output_detail(I).charge_type_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Charge Sub Type Code: '||p_engine_output_detail(I).charge_subtype_code);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adjustment Amount : '||p_engine_output_detail(I).adjustment_amount);
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4749: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4742: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Line Quantity : '||p_engine_output_detail(I).line_quantity);
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4749: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4750: EXIT WHEN I = p_engine_output_detail.LAST;
4743: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand Calculation Code: '||p_engine_output_detail(I).Operand_calculation_code);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4749: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4750: EXIT WHEN I = p_engine_output_detail.LAST;
4751: I := p_engine_output_detail.NEXT(I);
4744: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Operand value: '||p_engine_output_detail(I).operand_value);
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4749: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4750: EXIT WHEN I = p_engine_output_detail.LAST;
4751: I := p_engine_output_detail.NEXT(I);
4752: END LOOP;
4745: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Automatic Flag: '||p_engine_output_detail(I).automatic_flag);
4746: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Override Flag: '||p_engine_output_detail(I).override_flag);
4747: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status_code: '||p_engine_output_detail(I).status_code);
4748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'status text: '||p_engine_output_detail(I).status_text);
4749: fte_freight_pricing_util.print_msg(fte_freight_pricing_util.G_DBG,'-------------------------------- -------------------');
4750: EXIT WHEN I = p_engine_output_detail.LAST;
4751: I := p_engine_output_detail.NEXT(I);
4752: END LOOP;
4753: END IF;
4750: EXIT WHEN I = p_engine_output_detail.LAST;
4751: I := p_engine_output_detail.NEXT(I);
4752: END LOOP;
4753: END IF;
4754: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_DBG,'');
4755: EXCEPTION
4756: WHEN others THEN
4757: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4758: FTE_FREIGHT_PRICING_UTIL.set_exception('print_qp_output_lines',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4754: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_DBG,'');
4755: EXCEPTION
4756: WHEN others THEN
4757: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4758: FTE_FREIGHT_PRICING_UTIL.set_exception('print_qp_output_lines',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4759: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4760:
4761: END print_qp_output_lines;
4762:
4755: EXCEPTION
4756: WHEN others THEN
4757: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4758: FTE_FREIGHT_PRICING_UTIL.set_exception('print_qp_output_lines',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4759: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4760:
4761: END print_qp_output_lines;
4762:
4763: PROCEDURE print_engine_rows (
4771:
4772: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4773:
4774: IF p_engine_rows.COUNT > 0 THEN
4775: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4777: LOOP
4778:
4779: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg =>
4775: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '
4776: i := p_engine_rows.FIRST;
4777: LOOP
4778:
4779: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg =>
4780: 'input_index:'||p_engine_rows(i).input_index
4781: ||' instance_index:'||p_engine_rows(i).instance_index
4782: ||' Loose item id:'||p_engine_rows(i).loose_item_id
4783: ||' category_id:'||p_engine_rows(i).category_id
4789:
4790: EXIT WHEN i=p_engine_rows.LAST;
4791: i := p_engine_rows.NEXT(i);
4792: END LOOP;
4793: FTE_FREIGHT_PRICING_UTIL.print_tag(p_msg => '');
4794: END IF;
4795:
4796: EXCEPTION
4797: WHEN others THEN
4795:
4796: EXCEPTION
4797: WHEN others THEN
4798: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4799: FTE_FREIGHT_PRICING_UTIL.set_exception('print_engine_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4800: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4801:
4802: END print_engine_rows;
4803:
4796: EXCEPTION
4797: WHEN others THEN
4798: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4799: FTE_FREIGHT_PRICING_UTIL.set_exception('print_engine_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4800: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4801:
4802: END print_engine_rows;
4803:
4804: PROCEDURE print_attribute_rows (
4812:
4813: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4814:
4815: IF p_attribute_rows.COUNT > 0 THEN
4816: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'
4818: LOOP
4819:
4820: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'attribute_index : '||p_attribute_rows(i).attribute_index||' input_index : '||p_attribute_rows(i).input_index||' attribute_name : '||
4816: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'
4817: i := p_attribute_rows.FIRST;
4818: LOOP
4819:
4820: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'attribute_index : '||p_attribute_rows(i).attribute_index||' input_index : '||p_attribute_rows(i).input_index||' attribute_name : '||
4821: p_attribute_rows(i).attribute_name||' attribute_value : '||p_attribute_rows(i).attribute_value);
4822:
4823: EXIT WHEN i=p_attribute_rows.LAST;
4824: i := p_attribute_rows.NEXT(i);
4822:
4823: EXIT WHEN i=p_attribute_rows.LAST;
4824: i := p_attribute_rows.NEXT(i);
4825: END LOOP;
4826: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'');
4827: END IF;
4828:
4829: EXCEPTION
4830: WHEN others THEN
4828:
4829: EXCEPTION
4830: WHEN others THEN
4831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4832: FTE_FREIGHT_PRICING_UTIL.set_exception('print_attribute_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4833: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4834:
4835: END print_attribute_rows;
4836:
4829: EXCEPTION
4830: WHEN others THEN
4831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4832: FTE_FREIGHT_PRICING_UTIL.set_exception('print_attribute_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4833: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4834:
4835: END print_attribute_rows;
4836:
4837: PROCEDURE print_fc_main_rows (
4845:
4846: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4847:
4848: IF p_fc_main_rows.COUNT > 0 THEN
4849: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'
4851: LOOP
4852:
4853: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||p_fc_main_rows(i).freight_cost_type_id||' line type code : '||
4849: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'
4850: i := p_fc_main_rows.FIRST;
4851: LOOP
4852:
4853: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'fc type id : '||p_fc_main_rows(i).freight_cost_type_id||' line type code : '||
4854: p_fc_main_rows(i).line_type_code||' detail id : '||p_fc_main_rows(i).delivery_detail_id||' delivery leg : '||
4855: p_fc_main_rows(i).delivery_leg_id||' quantity : '||p_fc_main_rows(i).quantity||' uom : '||p_fc_main_rows(i).uom||' unit amount : '||p_fc_main_rows(i).unit_amount||'total amount : '||
4856: p_fc_main_rows(i).total_amount||' currency code : '||p_fc_main_rows(i).currency_code||' Charge unit value : '||p_fc_main_rows(i).charge_unit_value||' Delivery id : '||p_fc_main_rows(i).delivery_id);
4857:
4857:
4858: EXIT WHEN i=p_fc_main_rows.LAST;
4859: i := p_fc_main_rows.NEXT(i);
4860: END LOOP;
4861: FTE_FREIGHT_PRICING_UTIL.print_tag(FTE_FREIGHT_PRICING_UTIL.G_INF,'');
4862: END IF;
4863:
4864: EXCEPTION
4865: WHEN others THEN
4863:
4864: EXCEPTION
4865: WHEN others THEN
4866: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4867: FTE_FREIGHT_PRICING_UTIL.set_exception('print_fc_main_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4868: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4869:
4870: END print_fc_main_rows;
4871:
4864: EXCEPTION
4865: WHEN others THEN
4866: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4867: FTE_FREIGHT_PRICING_UTIL.set_exception('print_fc_main_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4868: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4869:
4870: END print_fc_main_rows;
4871:
4872: PROCEDURE print_fc_temp_rows (
4874: x_return_status OUT NOCOPY VARCHAR2 )
4875: IS
4876:
4877: i NUMBER:=0;
4878: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
4879:
4880: BEGIN
4881:
4882: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4881:
4882: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4883:
4884: IF p_fc_temp_rows.COUNT > 0 THEN
4885: FTE_FREIGHT_PRICING_UTIL.print_tag(l_log_level,'
4887: LOOP
4888:
4889: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4885: FTE_FREIGHT_PRICING_UTIL.print_tag(l_log_level,'
4886: i := p_fc_temp_rows.FIRST;
4887: LOOP
4888:
4889: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4890: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4891: 'FREIGHT_COST_ID='||p_fc_temp_rows(i).FREIGHT_COST_ID);
4892: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4893: 'FREIGHT_COST_TYPE_ID='||p_fc_temp_rows(i).FREIGHT_COST_TYPE_ID);
4886: i := p_fc_temp_rows.FIRST;
4887: LOOP
4888:
4889: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4890: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4891: 'FREIGHT_COST_ID='||p_fc_temp_rows(i).FREIGHT_COST_ID);
4892: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4893: 'FREIGHT_COST_TYPE_ID='||p_fc_temp_rows(i).FREIGHT_COST_TYPE_ID);
4894: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4888:
4889: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4890: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4891: 'FREIGHT_COST_ID='||p_fc_temp_rows(i).FREIGHT_COST_ID);
4892: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4893: 'FREIGHT_COST_TYPE_ID='||p_fc_temp_rows(i).FREIGHT_COST_TYPE_ID);
4894: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4895: 'UNIT_AMOUNT='||p_fc_temp_rows(i).UNIT_AMOUNT);
4896: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4890: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4891: 'FREIGHT_COST_ID='||p_fc_temp_rows(i).FREIGHT_COST_ID);
4892: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4893: 'FREIGHT_COST_TYPE_ID='||p_fc_temp_rows(i).FREIGHT_COST_TYPE_ID);
4894: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4895: 'UNIT_AMOUNT='||p_fc_temp_rows(i).UNIT_AMOUNT);
4896: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4897: 'CALCULATION_METHOD='||p_fc_temp_rows(i).CALCULATION_METHOD);
4898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4892: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4893: 'FREIGHT_COST_TYPE_ID='||p_fc_temp_rows(i).FREIGHT_COST_TYPE_ID);
4894: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4895: 'UNIT_AMOUNT='||p_fc_temp_rows(i).UNIT_AMOUNT);
4896: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4897: 'CALCULATION_METHOD='||p_fc_temp_rows(i).CALCULATION_METHOD);
4898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4899: 'UOM='||p_fc_temp_rows(i).UOM);
4900: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4894: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4895: 'UNIT_AMOUNT='||p_fc_temp_rows(i).UNIT_AMOUNT);
4896: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4897: 'CALCULATION_METHOD='||p_fc_temp_rows(i).CALCULATION_METHOD);
4898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4899: 'UOM='||p_fc_temp_rows(i).UOM);
4900: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4901: 'QUANTITY='||p_fc_temp_rows(i).QUANTITY);
4902: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4896: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4897: 'CALCULATION_METHOD='||p_fc_temp_rows(i).CALCULATION_METHOD);
4898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4899: 'UOM='||p_fc_temp_rows(i).UOM);
4900: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4901: 'QUANTITY='||p_fc_temp_rows(i).QUANTITY);
4902: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4903: 'TOTAL_AMOUNT='||p_fc_temp_rows(i).TOTAL_AMOUNT);
4904: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4899: 'UOM='||p_fc_temp_rows(i).UOM);
4900: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4901: 'QUANTITY='||p_fc_temp_rows(i).QUANTITY);
4902: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4903: 'TOTAL_AMOUNT='||p_fc_temp_rows(i).TOTAL_AMOUNT);
4904: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4905: 'CURRENCY_CODE='||p_fc_temp_rows(i).CURRENCY_CODE);
4906: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4900: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4901: 'QUANTITY='||p_fc_temp_rows(i).QUANTITY);
4902: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4903: 'TOTAL_AMOUNT='||p_fc_temp_rows(i).TOTAL_AMOUNT);
4904: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4905: 'CURRENCY_CODE='||p_fc_temp_rows(i).CURRENCY_CODE);
4906: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4907: 'CONVERSION_DATE='||p_fc_temp_rows(i).CONVERSION_DATE);
4908: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4902: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4903: 'TOTAL_AMOUNT='||p_fc_temp_rows(i).TOTAL_AMOUNT);
4904: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4905: 'CURRENCY_CODE='||p_fc_temp_rows(i).CURRENCY_CODE);
4906: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4907: 'CONVERSION_DATE='||p_fc_temp_rows(i).CONVERSION_DATE);
4908: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4909: 'CONVERSION_RATE='||p_fc_temp_rows(i).CONVERSION_RATE);
4910: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4904: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4905: 'CURRENCY_CODE='||p_fc_temp_rows(i).CURRENCY_CODE);
4906: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4907: 'CONVERSION_DATE='||p_fc_temp_rows(i).CONVERSION_DATE);
4908: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4909: 'CONVERSION_RATE='||p_fc_temp_rows(i).CONVERSION_RATE);
4910: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4911: 'CONVERSION_TYPE_CODE='||p_fc_temp_rows(i).CONVERSION_TYPE_CODE);
4912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4906: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4907: 'CONVERSION_DATE='||p_fc_temp_rows(i).CONVERSION_DATE);
4908: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4909: 'CONVERSION_RATE='||p_fc_temp_rows(i).CONVERSION_RATE);
4910: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4911: 'CONVERSION_TYPE_CODE='||p_fc_temp_rows(i).CONVERSION_TYPE_CODE);
4912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4913: 'TRIP_ID='||p_fc_temp_rows(i).TRIP_ID);
4914: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4908: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4909: 'CONVERSION_RATE='||p_fc_temp_rows(i).CONVERSION_RATE);
4910: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4911: 'CONVERSION_TYPE_CODE='||p_fc_temp_rows(i).CONVERSION_TYPE_CODE);
4912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4913: 'TRIP_ID='||p_fc_temp_rows(i).TRIP_ID);
4914: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4915: 'STOP_ID='||p_fc_temp_rows(i).STOP_ID);
4916: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4910: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4911: 'CONVERSION_TYPE_CODE='||p_fc_temp_rows(i).CONVERSION_TYPE_CODE);
4912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4913: 'TRIP_ID='||p_fc_temp_rows(i).TRIP_ID);
4914: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4915: 'STOP_ID='||p_fc_temp_rows(i).STOP_ID);
4916: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4917: 'DELIVERY_ID='||p_fc_temp_rows(i).DELIVERY_ID);
4918: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4913: 'TRIP_ID='||p_fc_temp_rows(i).TRIP_ID);
4914: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4915: 'STOP_ID='||p_fc_temp_rows(i).STOP_ID);
4916: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4917: 'DELIVERY_ID='||p_fc_temp_rows(i).DELIVERY_ID);
4918: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4919: 'DELIVERY_LEG_ID='||p_fc_temp_rows(i).DELIVERY_LEG_ID);
4920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4914: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4915: 'STOP_ID='||p_fc_temp_rows(i).STOP_ID);
4916: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4917: 'DELIVERY_ID='||p_fc_temp_rows(i).DELIVERY_ID);
4918: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4919: 'DELIVERY_LEG_ID='||p_fc_temp_rows(i).DELIVERY_LEG_ID);
4920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4921: 'DELIVERY_DETAIL_ID='||p_fc_temp_rows(i).DELIVERY_DETAIL_ID);
4922: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4916: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4917: 'DELIVERY_ID='||p_fc_temp_rows(i).DELIVERY_ID);
4918: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4919: 'DELIVERY_LEG_ID='||p_fc_temp_rows(i).DELIVERY_LEG_ID);
4920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4921: 'DELIVERY_DETAIL_ID='||p_fc_temp_rows(i).DELIVERY_DETAIL_ID);
4922: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4923: 'LINE_TYPE_CODE='||p_fc_temp_rows(i).LINE_TYPE_CODE);
4924: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4918: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4919: 'DELIVERY_LEG_ID='||p_fc_temp_rows(i).DELIVERY_LEG_ID);
4920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4921: 'DELIVERY_DETAIL_ID='||p_fc_temp_rows(i).DELIVERY_DETAIL_ID);
4922: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4923: 'LINE_TYPE_CODE='||p_fc_temp_rows(i).LINE_TYPE_CODE);
4924: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4925: 'PRICING_LIST_HEADER_ID='||p_fc_temp_rows(i).PRICING_LIST_HEADER_ID);
4926: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4921: 'DELIVERY_DETAIL_ID='||p_fc_temp_rows(i).DELIVERY_DETAIL_ID);
4922: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4923: 'LINE_TYPE_CODE='||p_fc_temp_rows(i).LINE_TYPE_CODE);
4924: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4925: 'PRICING_LIST_HEADER_ID='||p_fc_temp_rows(i).PRICING_LIST_HEADER_ID);
4926: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4927: 'PRICING_LIST_LINE_ID='||p_fc_temp_rows(i).PRICING_LIST_LINE_ID);
4928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4922: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4923: 'LINE_TYPE_CODE='||p_fc_temp_rows(i).LINE_TYPE_CODE);
4924: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4925: 'PRICING_LIST_HEADER_ID='||p_fc_temp_rows(i).PRICING_LIST_HEADER_ID);
4926: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4927: 'PRICING_LIST_LINE_ID='||p_fc_temp_rows(i).PRICING_LIST_LINE_ID);
4928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4929: 'APPLIED_TO_CHARGE_ID='||p_fc_temp_rows(i).APPLIED_TO_CHARGE_ID);
4930: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4924: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4925: 'PRICING_LIST_HEADER_ID='||p_fc_temp_rows(i).PRICING_LIST_HEADER_ID);
4926: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4927: 'PRICING_LIST_LINE_ID='||p_fc_temp_rows(i).PRICING_LIST_LINE_ID);
4928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4929: 'APPLIED_TO_CHARGE_ID='||p_fc_temp_rows(i).APPLIED_TO_CHARGE_ID);
4930: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4931: 'CHARGE_UNIT_VALUE='||p_fc_temp_rows(i).CHARGE_UNIT_VALUE);
4932: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4926: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4927: 'PRICING_LIST_LINE_ID='||p_fc_temp_rows(i).PRICING_LIST_LINE_ID);
4928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4929: 'APPLIED_TO_CHARGE_ID='||p_fc_temp_rows(i).APPLIED_TO_CHARGE_ID);
4930: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4931: 'CHARGE_UNIT_VALUE='||p_fc_temp_rows(i).CHARGE_UNIT_VALUE);
4932: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4933: 'CHARGE_SOURCE_CODE='||p_fc_temp_rows(i).CHARGE_SOURCE_CODE);
4934: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4929: 'APPLIED_TO_CHARGE_ID='||p_fc_temp_rows(i).APPLIED_TO_CHARGE_ID);
4930: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4931: 'CHARGE_UNIT_VALUE='||p_fc_temp_rows(i).CHARGE_UNIT_VALUE);
4932: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4933: 'CHARGE_SOURCE_CODE='||p_fc_temp_rows(i).CHARGE_SOURCE_CODE);
4934: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4935: 'ESTIMATED_FLAG='||p_fc_temp_rows(i).ESTIMATED_FLAG);
4936: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4930: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4931: 'CHARGE_UNIT_VALUE='||p_fc_temp_rows(i).CHARGE_UNIT_VALUE);
4932: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4933: 'CHARGE_SOURCE_CODE='||p_fc_temp_rows(i).CHARGE_SOURCE_CODE);
4934: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4935: 'ESTIMATED_FLAG='||p_fc_temp_rows(i).ESTIMATED_FLAG);
4936: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4937: 'COMPARISON_REQUEST_ID='||p_fc_temp_rows(i).COMPARISON_REQUEST_ID);
4938: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4932: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4933: 'CHARGE_SOURCE_CODE='||p_fc_temp_rows(i).CHARGE_SOURCE_CODE);
4934: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4935: 'ESTIMATED_FLAG='||p_fc_temp_rows(i).ESTIMATED_FLAG);
4936: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4937: 'COMPARISON_REQUEST_ID='||p_fc_temp_rows(i).COMPARISON_REQUEST_ID);
4938: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4939: 'LANE_ID='||p_fc_temp_rows(i).LANE_ID);
4940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4934: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4935: 'ESTIMATED_FLAG='||p_fc_temp_rows(i).ESTIMATED_FLAG);
4936: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4937: 'COMPARISON_REQUEST_ID='||p_fc_temp_rows(i).COMPARISON_REQUEST_ID);
4938: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4939: 'LANE_ID='||p_fc_temp_rows(i).LANE_ID);
4940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4941: 'SCHEDULE_ID='||p_fc_temp_rows(i).SCHEDULE_ID);
4942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4936: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4937: 'COMPARISON_REQUEST_ID='||p_fc_temp_rows(i).COMPARISON_REQUEST_ID);
4938: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4939: 'LANE_ID='||p_fc_temp_rows(i).LANE_ID);
4940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4941: 'SCHEDULE_ID='||p_fc_temp_rows(i).SCHEDULE_ID);
4942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4943: 'MOVED_TO_MAIN_FLAG='||p_fc_temp_rows(i).MOVED_TO_MAIN_FLAG);
4944: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4938: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4939: 'LANE_ID='||p_fc_temp_rows(i).LANE_ID);
4940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4941: 'SCHEDULE_ID='||p_fc_temp_rows(i).SCHEDULE_ID);
4942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4943: 'MOVED_TO_MAIN_FLAG='||p_fc_temp_rows(i).MOVED_TO_MAIN_FLAG);
4944: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4945: 'SERVICE_TYPE_CODE='||p_fc_temp_rows(i).SERVICE_TYPE_CODE);
4946: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4941: 'SCHEDULE_ID='||p_fc_temp_rows(i).SCHEDULE_ID);
4942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4943: 'MOVED_TO_MAIN_FLAG='||p_fc_temp_rows(i).MOVED_TO_MAIN_FLAG);
4944: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4945: 'SERVICE_TYPE_CODE='||p_fc_temp_rows(i).SERVICE_TYPE_CODE);
4946: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4947: 'COMMODITY_CATEGORY_ID='||p_fc_temp_rows(i).COMMODITY_CATEGORY_ID);
4948: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4943: 'MOVED_TO_MAIN_FLAG='||p_fc_temp_rows(i).MOVED_TO_MAIN_FLAG);
4944: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4945: 'SERVICE_TYPE_CODE='||p_fc_temp_rows(i).SERVICE_TYPE_CODE);
4946: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4947: 'COMMODITY_CATEGORY_ID='||p_fc_temp_rows(i).COMMODITY_CATEGORY_ID);
4948: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4949: 'BILLABLE_QUANTITY='||p_fc_temp_rows(i).BILLABLE_QUANTITY);
4950: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4944: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4945: 'SERVICE_TYPE_CODE='||p_fc_temp_rows(i).SERVICE_TYPE_CODE);
4946: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4947: 'COMMODITY_CATEGORY_ID='||p_fc_temp_rows(i).COMMODITY_CATEGORY_ID);
4948: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4949: 'BILLABLE_QUANTITY='||p_fc_temp_rows(i).BILLABLE_QUANTITY);
4950: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4951: 'BILLABLE_UOM='||p_fc_temp_rows(i).BILLABLE_UOM);
4952: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4946: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4947: 'COMMODITY_CATEGORY_ID='||p_fc_temp_rows(i).COMMODITY_CATEGORY_ID);
4948: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4949: 'BILLABLE_QUANTITY='||p_fc_temp_rows(i).BILLABLE_QUANTITY);
4950: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4951: 'BILLABLE_UOM='||p_fc_temp_rows(i).BILLABLE_UOM);
4952: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4953: 'BILLABLE_BASIS='||p_fc_temp_rows(i).BILLABLE_BASIS);
4954:
4948: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4949: 'BILLABLE_QUANTITY='||p_fc_temp_rows(i).BILLABLE_QUANTITY);
4950: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4951: 'BILLABLE_UOM='||p_fc_temp_rows(i).BILLABLE_UOM);
4952: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4953: 'BILLABLE_BASIS='||p_fc_temp_rows(i).BILLABLE_BASIS);
4954:
4955:
4956: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4952: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
4953: 'BILLABLE_BASIS='||p_fc_temp_rows(i).BILLABLE_BASIS);
4954:
4955:
4956: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'-------------');
4957:
4958: EXIT WHEN i=p_fc_temp_rows.LAST;
4959: i := p_fc_temp_rows.NEXT(i);
4960: END LOOP;
4957:
4958: EXIT WHEN i=p_fc_temp_rows.LAST;
4959: i := p_fc_temp_rows.NEXT(i);
4960: END LOOP;
4961: FTE_FREIGHT_PRICING_UTIL.print_tag(l_log_level,'');
4962: END IF;
4963:
4964: EXCEPTION
4965: WHEN others THEN
4963:
4964: EXCEPTION
4965: WHEN others THEN
4966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4967: FTE_FREIGHT_PRICING_UTIL.set_exception('print_fc_temp_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4968: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4969:
4970: END print_fc_temp_rows;
4971: -- End printing procedures
4964: EXCEPTION
4965: WHEN others THEN
4966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4967: FTE_FREIGHT_PRICING_UTIL.set_exception('print_fc_temp_rows',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4968: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4969:
4970: END print_fc_temp_rows;
4971: -- End printing procedures
4972:
4988: l_start_count NUMBER:=0;
4989: l_detail_count NUMBER:=0;
4990: l_return_status VARCHAR2(1);
4991:
4992: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
4993:
4994: BEGIN
4995:
4996: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4993:
4994: BEGIN
4995:
4996: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4997: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
4998: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'rollup_container_hierarchy','start');
4999:
5000: OPEN get_uom_for_each;
5001: FETCH get_uom_for_each INTO l_uom_ea;
4994: BEGIN
4995:
4996: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4997: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
4998: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'rollup_container_hierarchy','start');
4999:
5000: OPEN get_uom_for_each;
5001: FETCH get_uom_for_each INTO l_uom_ea;
5002: CLOSE get_uom_for_each;
5001: FETCH get_uom_for_each INTO l_uom_ea;
5002: CLOSE get_uom_for_each;
5003:
5004: IF l_uom_ea is null THEN
5005: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'After get_uom_for_each ');
5006: fte_freight_pricing_util.set_exception(l_api_name,l_log_level,'g_get_uom_for_each_failed');
5007: raise FND_API.G_EXC_ERROR;
5008: END IF;
5009:
5002: CLOSE get_uom_for_each;
5003:
5004: IF l_uom_ea is null THEN
5005: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'After get_uom_for_each ');
5006: fte_freight_pricing_util.set_exception(l_api_name,l_log_level,'g_get_uom_for_each_failed');
5007: raise FND_API.G_EXC_ERROR;
5008: END IF;
5009:
5010: i := g_shipment_line_rows.FIRST;
5023: x_return_status => l_return_status);
5024:
5025: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5026: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5027: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||g_shipment_line_rows(i).delivery_detail_id);
5028: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
5029: END IF;
5030: ELSE
5031: l_detail_count := x_rolledup_lines.COUNT - l_start_count;
5024:
5025: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5026: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5027: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||g_shipment_line_rows(i).delivery_detail_id);
5028: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
5029: END IF;
5030: ELSE
5031: l_detail_count := x_rolledup_lines.COUNT - l_start_count;
5032: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container '||g_shipment_line_rows(i).delivery_detail_id||' has '||l_detail_count||' rolled up lines');
5028: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
5029: END IF;
5030: ELSE
5031: l_detail_count := x_rolledup_lines.COUNT - l_start_count;
5032: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container '||g_shipment_line_rows(i).delivery_detail_id||' has '||l_detail_count||' rolled up lines');
5033: END IF;
5034: ELSE
5035:
5036: IF p_classification_code IS NOT NULL THEN
5044: -- FTE J one-time items --
5045: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5046:
5047: IF (l_category_id IS NOT NULL) THEN
5048: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5049: 'Default category id '||l_category_id||' got assigned to : '
5050: || g_shipment_line_rows(i).delivery_detail_id);
5051: g_shipment_line_rows(i).comm_category_id := l_category_id;
5052: ELSE
5049: 'Default category id '||l_category_id||' got assigned to : '
5050: || g_shipment_line_rows(i).delivery_detail_id);
5051: g_shipment_line_rows(i).comm_category_id := l_category_id;
5052: ELSE
5053: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5054: 'No default category found ');
5055: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5056: END IF;
5057:
5051: g_shipment_line_rows(i).comm_category_id := l_category_id;
5052: ELSE
5053: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5054: 'No default category found ');
5055: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5056: END IF;
5057:
5058: ELSE
5059:
5061: -- There should be only one category for one classification code for an item-org
5062: FETCH get_category INTO l_category_id;
5063: IF get_category%NOTFOUND THEN
5064: CLOSE get_category;
5065: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Rolledup line '||g_shipment_line_rows(i).delivery_detail_id);
5066: -- FTE J --
5067: -- Attempt to assign a default category and continue
5068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5069: 'Delivery detail has no commodity assignment. Try to get default category');
5064: CLOSE get_category;
5065: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Rolledup line '||g_shipment_line_rows(i).delivery_detail_id);
5066: -- FTE J --
5067: -- Attempt to assign a default category and continue
5068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5069: 'Delivery detail has no commodity assignment. Try to get default category');
5070: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5071: IF (l_category_id IS NULL) THEN
5072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5069: 'Delivery detail has no commodity assignment. Try to get default category');
5070: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5071: IF (l_category_id IS NULL) THEN
5072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5073: 'No default category found ');
5074: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5075: END IF;
5076: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5070: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5071: IF (l_category_id IS NULL) THEN
5072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5073: 'No default category found ');
5074: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5075: END IF;
5076: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5077: 'Default category id '||l_category_id);
5078: ELSE
5072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5073: 'No default category found ');
5074: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5075: END IF;
5076: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5077: 'Default category id '||l_category_id);
5078: ELSE
5079: CLOSE get_category;
5080: END IF;
5087:
5088: ELSE
5089:
5090: l_category_id := g_default_category_id;
5091: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Default category id (-9999) got assigned to : '|| g_shipment_line_rows(i).delivery_detail_id||' as no classification code is found on the lane');
5092:
5093: END IF;
5094:
5095: IF l_basis IS NULL THEN
5102: l_num_basis := G_WEIGHT_BASIS;
5103: ELSIF l_basis = 'VOLUME' THEN
5104: l_num_basis := G_VOLUME_BASIS;
5105: ELSE -- NULL or non supported basis
5106: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
5107: END IF;
5108:
5109: x_rolledup_lines(g_shipment_line_rows(i).delivery_detail_id).delivery_detail_id := g_shipment_line_rows(i).delivery_detail_id;
5110: x_rolledup_lines(g_shipment_line_rows(i).delivery_detail_id).container_id := p_container_id;
5144: EXIT WHEN i = g_shipment_line_rows.LAST;
5145: i := g_shipment_line_rows.NEXT(i);
5146: END LOOP;
5147: x_return_status := l_return_status;
5148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5149:
5150: EXCEPTION
5151: WHEN FND_API.G_EXC_ERROR THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5149:
5150: EXCEPTION
5151: WHEN FND_API.G_EXC_ERROR THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5154: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5150: EXCEPTION
5151: WHEN FND_API.G_EXC_ERROR THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5154: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5154: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5154: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5154: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5156: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5157: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5158: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_container failed ');
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5159: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5160: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5162: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5163: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5164: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5165: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5166: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5167: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5168: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5169: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5175: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5170: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5175: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5177: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5178:
5171: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5175: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5177: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5178:
5179: END rollup_container_hierarchy;
5172: WHEN others THEN
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5175: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5177: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5178:
5179: END rollup_container_hierarchy;
5180:
5173: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5174: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_container_hierarchy',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5175: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5176: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5177: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_container_hierarchy');
5178:
5179: END rollup_container_hierarchy;
5180:
5181:
5195: l_basis VARCHAR2(30):=NULL;
5196: l_num_basis NUMBER:=0;
5197: l_return_status VARCHAR2(1);
5198:
5199: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
5200:
5201: BEGIN
5202: -- {
5203:
5201: BEGIN
5202: -- {
5203:
5204: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5205: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5206: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'rollup_loose_item','start');
5207:
5208: OPEN get_uom_for_each;
5209: FETCH get_uom_for_each INTO l_uom_ea;
5202: -- {
5203:
5204: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5205: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5206: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'rollup_loose_item','start');
5207:
5208: OPEN get_uom_for_each;
5209: FETCH get_uom_for_each INTO l_uom_ea;
5210: CLOSE get_uom_for_each;
5209: FETCH get_uom_for_each INTO l_uom_ea;
5210: CLOSE get_uom_for_each;
5211:
5212: IF l_uom_ea is null THEN
5213: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'After get_uom_for_each ');
5214: fte_freight_pricing_util.set_exception(l_api_name,l_log_level,'g_get_uom_for_each_failed');
5215: raise FND_API.G_EXC_ERROR;
5216: END IF;
5217:
5210: CLOSE get_uom_for_each;
5211:
5212: IF l_uom_ea is null THEN
5213: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'After get_uom_for_each ');
5214: fte_freight_pricing_util.set_exception(l_api_name,l_log_level,'g_get_uom_for_each_failed');
5215: raise FND_API.G_EXC_ERROR;
5216: END IF;
5217:
5218: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_classification_code='||p_classification_code);
5214: fte_freight_pricing_util.set_exception(l_api_name,l_log_level,'g_get_uom_for_each_failed');
5215: raise FND_API.G_EXC_ERROR;
5216: END IF;
5217:
5218: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_classification_code='||p_classification_code);
5219: IF p_classification_code IS NOT NULL THEN
5220: -- {
5221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows.COUNT='||g_shipment_line_rows.COUNT);
5222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).inventory_item_id ='||g_shipment_line_rows(p_loose_item_id).inventory_item_id);
5217:
5218: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_classification_code='||p_classification_code);
5219: IF p_classification_code IS NOT NULL THEN
5220: -- {
5221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows.COUNT='||g_shipment_line_rows.COUNT);
5222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).inventory_item_id ='||g_shipment_line_rows(p_loose_item_id).inventory_item_id);
5223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).organization_id ='||g_shipment_line_rows(p_loose_item_id).organization_id);
5224:
5225:
5218: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_classification_code='||p_classification_code);
5219: IF p_classification_code IS NOT NULL THEN
5220: -- {
5221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows.COUNT='||g_shipment_line_rows.COUNT);
5222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).inventory_item_id ='||g_shipment_line_rows(p_loose_item_id).inventory_item_id);
5223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).organization_id ='||g_shipment_line_rows(p_loose_item_id).organization_id);
5224:
5225:
5226: IF (g_shipment_line_rows(p_loose_item_id).inventory_item_id IS NULL
5219: IF p_classification_code IS NOT NULL THEN
5220: -- {
5221: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows.COUNT='||g_shipment_line_rows.COUNT);
5222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).inventory_item_id ='||g_shipment_line_rows(p_loose_item_id).inventory_item_id);
5223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).organization_id ='||g_shipment_line_rows(p_loose_item_id).organization_id);
5224:
5225:
5226: IF (g_shipment_line_rows(p_loose_item_id).inventory_item_id IS NULL
5227: AND g_shipment_line_rows(p_loose_item_id).comm_category_id IS NOT NULL) THEN
5225:
5226: IF (g_shipment_line_rows(p_loose_item_id).inventory_item_id IS NULL
5227: AND g_shipment_line_rows(p_loose_item_id).comm_category_id IS NOT NULL) THEN
5228: -- FTE J FTE estimate rate --
5229: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows(p_loose_item_id).comm_category_id='||g_shipment_line_rows(p_loose_item_id).comm_category_id);
5230: l_category_id := g_shipment_line_rows(p_loose_item_id).comm_category_id;
5231: ELSIF (g_shipment_line_rows(p_loose_item_id).inventory_item_id IS NULL
5232: AND g_shipment_line_rows(p_loose_item_id).comm_category_id IS NULL) THEN
5233: -- FTE J one-time items --
5233: -- FTE J one-time items --
5234: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5235:
5236: IF (l_category_id IS NOT NULL) THEN
5237: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5238: 'Default category id '||l_category_id||' got assigned to : '
5239: || g_shipment_line_rows(p_loose_item_id).delivery_detail_id);
5240: g_shipment_line_rows(p_loose_item_id).comm_category_id := l_category_id;
5241: ELSE
5238: 'Default category id '||l_category_id||' got assigned to : '
5239: || g_shipment_line_rows(p_loose_item_id).delivery_detail_id);
5240: g_shipment_line_rows(p_loose_item_id).comm_category_id := l_category_id;
5241: ELSE
5242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5243: 'No default category found ');
5244: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5245: END IF;
5246: ELSE
5240: g_shipment_line_rows(p_loose_item_id).comm_category_id := l_category_id;
5241: ELSE
5242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5243: 'No default category found ');
5244: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5245: END IF;
5246: ELSE
5247:
5248: OPEN get_category(g_shipment_line_rows(p_loose_item_id).inventory_item_id,g_shipment_line_rows(p_loose_item_id).organization_id,p_classification_code);
5249: -- There should be only one category for one classification code for an item-org
5250: FETCH get_category INTO l_category_id;
5251: IF get_category%NOTFOUND THEN
5252: CLOSE get_category;
5253: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Rolledup line '||g_shipment_line_rows(p_loose_item_id).delivery_detail_id);
5254: -- FTE J --
5255: -- Attempt to assign a default category and continue
5256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5257: 'Delivery detail has no commodity assignment. Try to get default category');
5252: CLOSE get_category;
5253: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Rolledup line '||g_shipment_line_rows(p_loose_item_id).delivery_detail_id);
5254: -- FTE J --
5255: -- Attempt to assign a default category and continue
5256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5257: 'Delivery detail has no commodity assignment. Try to get default category');
5258: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5259: IF (l_category_id IS NULL) THEN
5260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5257: 'Delivery detail has no commodity assignment. Try to get default category');
5258: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5259: IF (l_category_id IS NULL) THEN
5260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5261: 'No default category found ');
5262: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5263: END IF;
5264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5258: l_category_id := get_default_category(p_classification_code=>p_classification_code);
5259: IF (l_category_id IS NULL) THEN
5260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5261: 'No default category found ');
5262: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5263: END IF;
5264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5265: 'Default category id '||l_category_id);
5266: ELSE
5260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_LOG,
5261: 'No default category found ');
5262: raise FTE_FREIGHT_PRICING_UTIL.g_category_not_found;
5263: END IF;
5264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,
5265: 'Default category id '||l_category_id);
5266: ELSE
5267: CLOSE get_category;
5268: END IF;
5265: 'Default category id '||l_category_id);
5266: ELSE
5267: CLOSE get_category;
5268: END IF;
5269: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_category_id='||l_category_id);
5270:
5271: END IF;
5272:
5273: OPEN get_category_basis(p_lane_id,l_category_id);
5278: ELSE
5279: -- {
5280:
5281: l_category_id := g_default_category_id;
5282: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Default category id got assigned to : '|| p_loose_item_id ||' as no classification code is found on the lane');
5283:
5284: -- }
5285: END IF;
5286:
5294: l_num_basis := G_WEIGHT_BASIS;
5295: ELSIF l_basis = 'VOLUME' THEN
5296: l_num_basis := G_VOLUME_BASIS;
5297: ELSE -- NULL or non supported basis
5298: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
5299: END IF;
5300:
5301: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_loose_item_id= '||p_loose_item_id);
5302: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'got basis');
5297: ELSE -- NULL or non supported basis
5298: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
5299: END IF;
5300:
5301: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_loose_item_id= '||p_loose_item_id);
5302: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'got basis');
5303:
5304: x_rolledup_rec.delivery_detail_id := p_loose_item_id;
5305: -- x_rolledup_rec.container_id := null;
5298: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
5299: END IF;
5300:
5301: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'p_loose_item_id= '||p_loose_item_id);
5302: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'got basis');
5303:
5304: x_rolledup_rec.delivery_detail_id := p_loose_item_id;
5305: -- x_rolledup_rec.container_id := null;
5306: x_rolledup_rec.container_id := p_loose_item_id;
5307: x_rolledup_rec.category_id := l_category_id;
5308: x_rolledup_rec.rate_basis := l_num_basis;
5309:
5310: g_rolledup_lines(p_loose_item_id) := x_rolledup_rec;
5311: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'added to g_rolledup_lines');
5312:
5313: IF l_num_basis = G_CONTAINER_BASIS THEN
5314:
5315: x_rolledup_rec.line_quantity := 1;
5317: g_rolledup_lines(p_loose_item_id).line_quantity := 1;
5318: g_rolledup_lines(p_loose_item_id).line_uom := l_uom_ea;
5319:
5320: ELSIF l_num_basis = G_WEIGHT_BASIS THEN
5321: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'before x_rolledup_rec.line_quantity');
5322:
5323: x_rolledup_rec.line_quantity := nvl(g_shipment_line_rows(p_loose_item_id).net_weight,g_shipment_line_rows(p_loose_item_id).gross_weight);
5324: x_rolledup_rec.line_uom := g_shipment_line_rows(p_loose_item_id).weight_uom_code;
5325: g_rolledup_lines(p_loose_item_id).line_quantity := x_rolledup_rec.line_quantity;
5335: END IF;
5336:
5337:
5338: x_return_status := l_return_status;
5339: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5340:
5341: EXCEPTION
5342: WHEN FND_API.G_EXC_ERROR THEN
5343: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5340:
5341: EXCEPTION
5342: WHEN FND_API.G_EXC_ERROR THEN
5343: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5344: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5345: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5341: EXCEPTION
5342: WHEN FND_API.G_EXC_ERROR THEN
5343: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5344: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5345: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5343: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5344: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5345: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5344: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5345: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5345: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5347: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
5348: --FTE_FREIGHT_PRICING_UTIL.print_debug('rollup_container failed ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5349: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'rollup_loose_item failed ');
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5351: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5353: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
5354: --FTE_FREIGHT_PRICING_UTIL.print_debug('category_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'category_not_found ');
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5357: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5358: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5359: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
5360: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5366: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5361: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5366: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5367: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5368: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5369:
5362: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5366: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5367: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5368: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5369:
5370: -- }
5363: WHEN others THEN
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5366: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5367: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5368: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5369:
5370: -- }
5371: END rollup_loose_item;
5364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5365: FTE_FREIGHT_PRICING_UTIL.set_exception('rollup_loose_item',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5366: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5367: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5368: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'rollup_loose_item');
5369:
5370: -- }
5371: END rollup_loose_item;
5372:
5396: l_matched_instance_index NUMBER :=0;
5397: l_hash_string VARCHAR2(50);
5398: l_index NUMBER:=0;
5399:
5400: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
5401:
5402: BEGIN
5403:
5404: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5401:
5402: BEGIN
5403:
5404: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5405: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5406: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'search_matching_instance','start');
5407:
5408: i := p_pricing_dual_instances.FIRST;
5409: LOOP
5402: BEGIN
5403:
5404: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5405: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5406: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'search_matching_instance','start');
5407:
5408: i := p_pricing_dual_instances.FIRST;
5409: LOOP
5410: -- SC_WB(2) should match with MC_WB(5) and SC_VB(3) should match with MC_VB(6)
5465:
5466: END IF;
5467:
5468: x_matched_instance_index := l_matched_instance_index;
5469: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'search_matching_instance');
5470: RETURN;
5471:
5472: EXCEPTION
5473: WHEN others THEN
5471:
5472: EXCEPTION
5473: WHEN others THEN
5474: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5475: FTE_FREIGHT_PRICING_UTIL.set_exception('search_matching_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5476: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5477: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5478: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'search_matching_instance');
5479: END search_matching_instance;
5472: EXCEPTION
5473: WHEN others THEN
5474: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5475: FTE_FREIGHT_PRICING_UTIL.set_exception('search_matching_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5476: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5477: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5478: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'search_matching_instance');
5479: END search_matching_instance;
5480:
5473: WHEN others THEN
5474: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5475: FTE_FREIGHT_PRICING_UTIL.set_exception('search_matching_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5476: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5477: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5478: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'search_matching_instance');
5479: END search_matching_instance;
5480:
5481: -- This procedure should be called to create associated engine rows while creating one new instance
5474: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5475: FTE_FREIGHT_PRICING_UTIL.set_exception('search_matching_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5476: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5477: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5478: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'search_matching_instance');
5479: END search_matching_instance;
5480:
5481: -- This procedure should be called to create associated engine rows while creating one new instance
5482: -- It also creates relevant associated attribute rows
5511: l_basis_rows quantity_tab_type;
5512: l_basis_categ_tab basis_categ_tab_type;
5513: l_container_flag VARCHAR2(1) := 'Y';
5514:
5515: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
5516:
5517: BEGIN
5518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5519: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5515: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
5516:
5517: BEGIN
5518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5519: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5520: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'create_new_instance','start');
5521: l_instance_index := l_instance_index + 1;
5522:
5523: l_input_engine_row_count := l_input_index;
5516:
5517: BEGIN
5518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5519: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5520: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'create_new_instance','start');
5521: l_instance_index := l_instance_index + 1;
5522:
5523: l_input_engine_row_count := l_input_index;
5524: i := p_rolled_up_lines.FIRST;
5538:
5539: l_category_rows(p_rolled_up_lines(i).category_id).uom := p_rolled_up_lines(i).line_uom;
5540: l_category_rows(p_rolled_up_lines(i).category_id).quantity := p_rolled_up_lines(i).line_quantity;
5541: l_input_index := l_input_index + 1;
5542: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
5543: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
5544: x_pricing_engine_rows(l_input_index).instance_index := l_instance_index;
5545: x_pricing_engine_rows(l_input_index).category_id := p_rolled_up_lines(i).category_id;
5546: --x_pricing_engine_rows(l_input_index).basis := p_rolled_up_lines(i).rate_basis; -- No basis for WITHIN
5573: IF p_rolled_up_lines(i).line_uom = l_category_rows(p_rolled_up_lines(i).category_id).uom THEN
5574: l_category_rows(p_rolled_up_lines(i).category_id).quantity :=
5575: l_category_rows(p_rolled_up_lines(i).category_id).quantity + p_rolled_up_lines(i).line_quantity;
5576: ELSE
5577: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within - uom conversion');
5578: l_category_rows(p_rolled_up_lines(i).category_id).quantity :=
5579: l_category_rows(p_rolled_up_lines(i).category_id).quantity +
5580: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(i).line_uom,
5581: l_category_rows(p_rolled_up_lines(i).category_id).uom,
5590: -- }
5591: ELSE -- p_aggregation = 'ACROSS'
5592: -- {
5593:
5594: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Across - creating hash');
5595: l_hash_string := CONCAT(TO_CHAR(p_rolled_up_lines(i).rate_basis),TO_CHAR(p_rolled_up_lines(i).category_id));
5596: l_hash_value := dbms_utility.get_hash_value(
5597: name => l_hash_string,
5598: base => g_hash_base,
5609:
5610: l_basis_rows(p_rolled_up_lines(i).rate_basis).uom := p_rolled_up_lines(i).line_uom;
5611: l_basis_rows(p_rolled_up_lines(i).rate_basis).quantity := p_rolled_up_lines(i).line_quantity;
5612: l_input_index := l_input_index + 1;
5613: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
5614: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
5615: x_pricing_engine_rows(l_input_index).instance_index := l_instance_index;
5616: x_pricing_engine_rows(l_input_index).category_id := p_rolled_up_lines(i).category_id;
5617:
5656: -- Need to sum up quantities within basis across categories
5657: -- Would not create new engine rows if pricing objective is null
5658:
5659: l_input_index := l_input_index + 1;
5660: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
5661: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
5662: x_pricing_engine_rows(l_input_index).instance_index := l_instance_index;
5663: x_pricing_engine_rows(l_input_index).category_id := p_rolled_up_lines(i).category_id;
5664: x_pricing_engine_rows(l_input_index).basis := p_rolled_up_lines(i).rate_basis;
5690: IF p_rolled_up_lines(i).line_uom = l_basis_rows(p_rolled_up_lines(i).rate_basis).uom THEN
5691: l_basis_rows(p_rolled_up_lines(i).rate_basis).quantity :=
5692: l_basis_rows(p_rolled_up_lines(i).rate_basis).quantity + p_rolled_up_lines(i).line_quantity;
5693: ELSE
5694: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Across - uom conversion');
5695: l_basis_rows(p_rolled_up_lines(i).rate_basis).quantity :=
5696: l_basis_rows(p_rolled_up_lines(i).rate_basis).quantity +
5697: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(i).line_uom,
5698: l_basis_rows(p_rolled_up_lines(i).rate_basis).uom,
5845: --x_pricing_engine_rows(j).basis := NULL;
5846:
5847: -- }
5848: END IF;
5849: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Created engine row '||j||' with quantity : '||x_pricing_engine_rows(j).line_quantity||x_pricing_engine_rows(j).line_uom);
5850:
5851: EXIT WHEN j = x_pricing_engine_rows.LAST;
5852: j := x_pricing_engine_rows.NEXT(j);
5853: -- }
5854: END LOOP;
5855: -- }
5856: ELSE
5857: -- {
5858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Could not create any engine row for Container : '||p_toplevel_lines.content_id);
5859: raise FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created;
5860: -- }
5861: END IF;
5862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5855: -- }
5856: ELSE
5857: -- {
5858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Could not create any engine row for Container : '||p_toplevel_lines.content_id);
5859: raise FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created;
5860: -- }
5861: END IF;
5862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5863:
5858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Could not create any engine row for Container : '||p_toplevel_lines.content_id);
5859: raise FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created;
5860: -- }
5861: END IF;
5862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5863:
5864: EXCEPTION
5865: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created THEN
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5861: END IF;
5862: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5863:
5864: EXCEPTION
5865: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created THEN
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5867: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_enginerow_created');
5868: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5869: WHEN others THEN
5863:
5864: EXCEPTION
5865: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created THEN
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5867: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_enginerow_created');
5868: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5869: WHEN others THEN
5870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5871: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5864: EXCEPTION
5865: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_enginerow_created THEN
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5867: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_enginerow_created');
5868: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5869: WHEN others THEN
5870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5871: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5872: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5867: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_enginerow_created');
5868: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5869: WHEN others THEN
5870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5871: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5872: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5874: END create_new_instance;
5875:
5868: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5869: WHEN others THEN
5870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5871: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5872: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5874: END create_new_instance;
5875:
5876: -- This procedure should be called to add a pattern to a matched instance
5869: WHEN others THEN
5870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5871: FTE_FREIGHT_PRICING_UTIL.set_exception('create_new_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
5872: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
5873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'create_new_instance');
5874: END create_new_instance;
5875:
5876: -- This procedure should be called to add a pattern to a matched instance
5877: -- The calling procedure takes care of creating pattern_row and modifying dual_instance_row
5912:
5913: -- to fix bug 2739329
5914: l_consumed_rollup_det wsh_util_core.id_tab_type;
5915:
5916: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
5917:
5918: BEGIN
5919:
5920: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5917:
5918: BEGIN
5919:
5920: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5921: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5922: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_to_instance','start');
5923:
5924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5925: 'Parameters :');
5918: BEGIN
5919:
5920: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5921: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5922: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_to_instance','start');
5923:
5924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5925: 'Parameters :');
5926: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5920: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5921: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
5922: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_to_instance','start');
5923:
5924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5925: 'Parameters :');
5926: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5927: ' p_container_flag = '||p_container_flag);
5928: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5922: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'add_to_instance','start');
5923:
5924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5925: 'Parameters :');
5926: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5927: ' p_container_flag = '||p_container_flag);
5928: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5929: ' p_matching_instance_index = '||p_matching_instance_index);
5930: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5925: 'Parameters :');
5926: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5927: ' p_container_flag = '||p_container_flag);
5928: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5929: ' p_matching_instance_index = '||p_matching_instance_index);
5930: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5931: ' x_pricing_engine_rows.COUNT = '||x_pricing_engine_rows.COUNT);
5932: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5926: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5927: ' p_container_flag = '||p_container_flag);
5928: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5929: ' p_matching_instance_index = '||p_matching_instance_index);
5930: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5931: ' x_pricing_engine_rows.COUNT = '||x_pricing_engine_rows.COUNT);
5932: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5933: ' p_aggregation = '||p_aggregation);
5934:
5928: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5929: ' p_matching_instance_index = '||p_matching_instance_index);
5930: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5931: ' x_pricing_engine_rows.COUNT = '||x_pricing_engine_rows.COUNT);
5932: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5933: ' p_aggregation = '||p_aggregation);
5934:
5935: i := x_pricing_engine_rows.FIRST;
5936: LOOP
5934:
5935: i := x_pricing_engine_rows.FIRST;
5936: LOOP
5937: -- {
5938: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 1 ');
5939:
5940: -- IF x_pricing_engine_rows(i).loose_item_id IS NULL THEN -- Search/ADD only for containers
5941: -- IF (( p_container_flag = 'Y' AND x_pricing_engine_rows(i).loose_item_id IS NULL)
5942: -- OR (p_container_flag = 'N' AND x_pricing_engine_rows(i).loose_item_id IS NOT NULL)) THEN -- Search/ADD only for containers, or only for loose items
5945: -- don't mix loose items and containers
5946: -- {
5947: IF x_pricing_engine_rows(i).instance_index = p_matching_instance_index THEN
5948: -- {
5949: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding to instance index : '||p_matching_instance_index);
5950: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5951: 'x_pricing_engine_rows=> i = '||i);
5952: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5953: 'x_pricing_engine_rows=> category_id = '||x_pricing_engine_rows(i).category_id);
5946: -- {
5947: IF x_pricing_engine_rows(i).instance_index = p_matching_instance_index THEN
5948: -- {
5949: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding to instance index : '||p_matching_instance_index);
5950: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5951: 'x_pricing_engine_rows=> i = '||i);
5952: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5953: 'x_pricing_engine_rows=> category_id = '||x_pricing_engine_rows(i).category_id);
5954:
5948: -- {
5949: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding to instance index : '||p_matching_instance_index);
5950: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5951: 'x_pricing_engine_rows=> i = '||i);
5952: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5953: 'x_pricing_engine_rows=> category_id = '||x_pricing_engine_rows(i).category_id);
5954:
5955: IF p_aggregation = 'WITHIN' THEN
5956: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 2 ');
5952: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5953: 'x_pricing_engine_rows=> category_id = '||x_pricing_engine_rows(i).category_id);
5954:
5955: IF p_aggregation = 'WITHIN' THEN
5956: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 2 ');
5957: -- To store unique list of category ids for matching engine rows
5958: IF NOT l_engine_categ.EXISTS(x_pricing_engine_rows(i).category_id) THEN
5959: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 3 ');
5960: l_engine_categ(x_pricing_engine_rows(i).category_id).quantity := x_pricing_engine_rows(i).line_quantity;
5955: IF p_aggregation = 'WITHIN' THEN
5956: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 2 ');
5957: -- To store unique list of category ids for matching engine rows
5958: IF NOT l_engine_categ.EXISTS(x_pricing_engine_rows(i).category_id) THEN
5959: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 3 ');
5960: l_engine_categ(x_pricing_engine_rows(i).category_id).quantity := x_pricing_engine_rows(i).line_quantity;
5961: l_engine_categ(x_pricing_engine_rows(i).category_id).uom := x_pricing_engine_rows(i).line_uom;
5962: END IF;
5963: ELSIF p_aggregation = 'ACROSS' THEN
5967: l_engine_basis(x_pricing_engine_rows(i).basis).uom := x_pricing_engine_rows(i).line_uom;
5968: END IF;
5969:
5970: -- Is it required for Pricing Objective = NULL
5971: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Across - creating hash');
5972: l_hash_string := CONCAT(TO_CHAR(x_pricing_engine_rows(i).basis),TO_CHAR(x_pricing_engine_rows(i).category_id));
5973: l_hash_value := dbms_utility.get_hash_value(
5974: name => l_hash_string,
5975: base => g_hash_base,
5980: l_engine_bas_categ(l_hash_value).category_id := x_pricing_engine_rows(i).category_id;
5981: END IF;
5982: END IF;
5983:
5984: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 4 ');
5985:
5986: j := p_rolled_up_lines.FIRST;
5987: LOOP
5988: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 5 ');
5984: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 4 ');
5985:
5986: j := p_rolled_up_lines.FIRST;
5987: LOOP
5988: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 5 ');
5989: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5990: 'p_rolled_up_lines=> j ='||j);
5991: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5992: 'p_rolled_up_lines=> category_id ='||p_rolled_up_lines(j).category_id);
5985:
5986: j := p_rolled_up_lines.FIRST;
5987: LOOP
5988: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 5 ');
5989: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5990: 'p_rolled_up_lines=> j ='||j);
5991: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5992: 'p_rolled_up_lines=> category_id ='||p_rolled_up_lines(j).category_id);
5993:
5987: LOOP
5988: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 5 ');
5989: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5990: 'p_rolled_up_lines=> j ='||j);
5991: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
5992: 'p_rolled_up_lines=> category_id ='||p_rolled_up_lines(j).category_id);
5993:
5994: IF p_aggregation = 'WITHIN' THEN
5995: -- Need to add quantities to the correct category
5992: 'p_rolled_up_lines=> category_id ='||p_rolled_up_lines(j).category_id);
5993:
5994: IF p_aggregation = 'WITHIN' THEN
5995: -- Need to add quantities to the correct category
5996: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 6 ');
5997:
5998: IF x_pricing_engine_rows(i).category_id = p_rolled_up_lines(j).category_id THEN
5999: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 7 ');
6000: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
5995: -- Need to add quantities to the correct category
5996: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 6 ');
5997:
5998: IF x_pricing_engine_rows(i).category_id = p_rolled_up_lines(j).category_id THEN
5999: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 7 ');
6000: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6001: l_unmatched_categ.DELETE(p_rolled_up_lines(j).category_id);
6002: END IF;
6003: IF p_rolled_up_lines(j).line_uom <> x_pricing_engine_rows(i).line_uom THEN
6000: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6001: l_unmatched_categ.DELETE(p_rolled_up_lines(j).category_id);
6002: END IF;
6003: IF p_rolled_up_lines(j).line_uom <> x_pricing_engine_rows(i).line_uom THEN
6004: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 8 ');
6005: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within matching category uom conversion');
6006:
6007: x_pricing_engine_rows(i).line_quantity := x_pricing_engine_rows(i).line_quantity +
6008: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(j).line_uom,
6001: l_unmatched_categ.DELETE(p_rolled_up_lines(j).category_id);
6002: END IF;
6003: IF p_rolled_up_lines(j).line_uom <> x_pricing_engine_rows(i).line_uom THEN
6004: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 8 ');
6005: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within matching category uom conversion');
6006:
6007: x_pricing_engine_rows(i).line_quantity := x_pricing_engine_rows(i).line_quantity +
6008: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(j).line_uom,
6009: x_pricing_engine_rows(i).line_uom,
6009: x_pricing_engine_rows(i).line_uom,
6010: p_rolled_up_lines(j).line_quantity,
6011: 0); -- Within same UOM class
6012: ELSE
6013: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 8 ');
6014: x_pricing_engine_rows(i).line_quantity := x_pricing_engine_rows(i).line_quantity +
6015: p_rolled_up_lines(j).line_quantity;
6016: END IF;
6017: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6013: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 8 ');
6014: x_pricing_engine_rows(i).line_quantity := x_pricing_engine_rows(i).line_quantity +
6015: p_rolled_up_lines(j).line_quantity;
6016: END IF;
6017: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6018: 'x_pricing_engine_rows=>line_quantity='||x_pricing_engine_rows(i).line_quantity);
6019: ELSE -- Populate new categories table
6020: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 9 ');
6021: --IF NOT l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6016: END IF;
6017: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6018: 'x_pricing_engine_rows=>line_quantity='||x_pricing_engine_rows(i).line_quantity);
6019: ELSE -- Populate new categories table
6020: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 9 ');
6021: --IF NOT l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6022: IF (NOT l_engine_categ.EXISTS(p_rolled_up_lines(j).category_id)) AND (NOT l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id)) THEN
6023: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 10 ');
6024: l_unmatched_categ(p_rolled_up_lines(j).category_id).basis := p_rolled_up_lines(j).rate_basis;
6019: ELSE -- Populate new categories table
6020: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 9 ');
6021: --IF NOT l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6022: IF (NOT l_engine_categ.EXISTS(p_rolled_up_lines(j).category_id)) AND (NOT l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id)) THEN
6023: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 10 ');
6024: l_unmatched_categ(p_rolled_up_lines(j).category_id).basis := p_rolled_up_lines(j).rate_basis;
6025: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity := p_rolled_up_lines(j).line_quantity;
6026: l_unmatched_categ(p_rolled_up_lines(j).category_id).uom := p_rolled_up_lines(j).line_uom;
6027: -- begin fix bug 2739329
6030: l_consumed_rollup_det(p_rolled_up_lines(j).delivery_detail_id) := p_rolled_up_lines(j).delivery_detail_id;
6031: -- end fix
6032:
6033: ELSE -- Sum up quantity within the new category
6034: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 11 ');
6035:
6036: -- begin fix bug 2739329
6037: IF (NOT l_consumed_rollup_det.EXISTS(p_rolled_up_lines(j).delivery_detail_id) ) THEN
6038: -- end fix
6036: -- begin fix bug 2739329
6037: IF (NOT l_consumed_rollup_det.EXISTS(p_rolled_up_lines(j).delivery_detail_id) ) THEN
6038: -- end fix
6039: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6040: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 12 ');
6041: IF p_rolled_up_lines(j).line_uom <> l_unmatched_categ(p_rolled_up_lines(j).category_id).uom THEN
6042: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 13 ');
6043: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within new category uom conversion');
6044:
6038: -- end fix
6039: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6040: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 12 ');
6041: IF p_rolled_up_lines(j).line_uom <> l_unmatched_categ(p_rolled_up_lines(j).category_id).uom THEN
6042: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 13 ');
6043: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within new category uom conversion');
6044:
6045: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity :=
6046: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity +
6039: IF l_unmatched_categ.EXISTS(p_rolled_up_lines(j).category_id) THEN
6040: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 12 ');
6041: IF p_rolled_up_lines(j).line_uom <> l_unmatched_categ(p_rolled_up_lines(j).category_id).uom THEN
6042: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 13 ');
6043: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within new category uom conversion');
6044:
6045: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity :=
6046: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity +
6047: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(j).line_uom,
6048: l_unmatched_categ(p_rolled_up_lines(j).category_id).uom,
6049: p_rolled_up_lines(j).line_quantity,
6050: 0); -- Within same UOM class
6051: ELSE
6052: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 13 ');
6053: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity :=
6054: l_unmatched_categ(p_rolled_up_lines(j).category_id).quantity +
6055: p_rolled_up_lines(j).line_quantity;
6056: END IF;
6064: END IF;
6065: ELSE -- p_aggregation = 'ACROSS'
6066: -- Add quantities within same basis
6067: -- If there is no pricing objective send only one line per basis
6068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 14 ');
6069:
6070: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row category : '||x_pricing_engine_rows(i).category_id);
6071: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line category : '||p_rolled_up_lines(j).category_id);
6072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row basis : '||x_pricing_engine_rows(i).basis);
6066: -- Add quantities within same basis
6067: -- If there is no pricing objective send only one line per basis
6068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 14 ');
6069:
6070: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row category : '||x_pricing_engine_rows(i).category_id);
6071: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line category : '||p_rolled_up_lines(j).category_id);
6072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row basis : '||x_pricing_engine_rows(i).basis);
6073: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line basis : '||p_rolled_up_lines(j).rate_basis);
6074:
6067: -- If there is no pricing objective send only one line per basis
6068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 14 ');
6069:
6070: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row category : '||x_pricing_engine_rows(i).category_id);
6071: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line category : '||p_rolled_up_lines(j).category_id);
6072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row basis : '||x_pricing_engine_rows(i).basis);
6073: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line basis : '||p_rolled_up_lines(j).rate_basis);
6074:
6075: l_hash_string := CONCAT(TO_CHAR(p_rolled_up_lines(j).rate_basis),TO_CHAR(p_rolled_up_lines(j).category_id));
6068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 14 ');
6069:
6070: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row category : '||x_pricing_engine_rows(i).category_id);
6071: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line category : '||p_rolled_up_lines(j).category_id);
6072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row basis : '||x_pricing_engine_rows(i).basis);
6073: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line basis : '||p_rolled_up_lines(j).rate_basis);
6074:
6075: l_hash_string := CONCAT(TO_CHAR(p_rolled_up_lines(j).rate_basis),TO_CHAR(p_rolled_up_lines(j).category_id));
6076: l_hash_value := dbms_utility.get_hash_value(
6069:
6070: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row category : '||x_pricing_engine_rows(i).category_id);
6071: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line category : '||p_rolled_up_lines(j).category_id);
6072: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Engine row basis : '||x_pricing_engine_rows(i).basis);
6073: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rolledup line basis : '||p_rolled_up_lines(j).rate_basis);
6074:
6075: l_hash_string := CONCAT(TO_CHAR(p_rolled_up_lines(j).rate_basis),TO_CHAR(p_rolled_up_lines(j).category_id));
6076: l_hash_value := dbms_utility.get_hash_value(
6077: name => l_hash_string,
6094:
6095: --IF NOT l_unmatched_categories.EXISTS(p_rolled_up_lines(j).category_id) THEN
6096: IF (NOT l_engine_bas_categ.EXISTS(l_hash_value)) AND (NOT l_unmatched_categories.EXISTS(p_rolled_up_lines(j).category_id)) THEN
6097:
6098: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Adding unmatched category : '||p_rolled_up_lines(j).category_id);
6099:
6100: l_unmatched_categories(p_rolled_up_lines(j).category_id).category_id := p_rolled_up_lines(j).category_id;
6101: l_unmatched_categories(p_rolled_up_lines(j).category_id).basis := x_pricing_engine_rows(i).basis;
6102: END IF;
6101: l_unmatched_categories(p_rolled_up_lines(j).category_id).basis := x_pricing_engine_rows(i).basis;
6102: END IF;
6103: ELSE
6104: IF l_unmatched_categories.EXISTS(p_rolled_up_lines(j).category_id) THEN
6105: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Deleting from unmatched category : '||p_rolled_up_lines(j).category_id);
6106: l_unmatched_categories.DELETE(p_rolled_up_lines(j).category_id);
6107: END IF;
6108: END IF;
6109: END IF;
6108: END IF;
6109: END IF;
6110:
6111: IF p_rolled_up_lines(j).line_uom <> x_pricing_engine_rows(i).line_uom THEN
6112: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within matching basis uom conversion');
6113:
6114: x_pricing_engine_rows(i).line_quantity := x_pricing_engine_rows(i).line_quantity +
6115: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(j).line_uom,
6116: x_pricing_engine_rows(i).line_uom,
6146: l_unmatched_bascateg(l_hash_value).basis := p_rolled_up_lines(j).rate_basis;
6147: END IF;
6148:
6149: IF p_rolled_up_lines(j).line_uom <> l_unmatched_basis(p_rolled_up_lines(j).rate_basis).uom THEN
6150: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Within new basis uom conversion');
6151:
6152: l_unmatched_basis(p_rolled_up_lines(j).rate_basis).quantity :=
6153: l_unmatched_basis(p_rolled_up_lines(j).rate_basis).quantity +
6154: WSH_WV_UTILS.convert_uom(p_rolled_up_lines(j).line_uom,
6164: END IF;
6165: END IF;
6166:
6167: END IF;
6168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 15 ');
6169:
6170: EXIT WHEN j = p_rolled_up_lines.LAST;
6171: j := p_rolled_up_lines.NEXT(j);
6172: END LOOP;
6169:
6170: EXIT WHEN j = p_rolled_up_lines.LAST;
6171: j := p_rolled_up_lines.NEXT(j);
6172: END LOOP;
6173: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 16 ');
6174:
6175: -- ACROSS : Handling new categories within existing basis
6176: IF l_unmatched_categories.COUNT > 0 AND NOT l_basis_sum.EXISTS(x_pricing_engine_rows(i).basis) THEN
6177: l_basis_sum(x_pricing_engine_rows(i).basis).quantity := x_pricing_engine_rows(i).line_quantity;
6187: i := x_pricing_engine_rows.NEXT(i);
6188: -- }
6189: END LOOP;
6190:
6191: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 17 ');
6192: -- ACROSS : Handling new categories within existing basis
6193: IF l_unmatched_categories.COUNT > 0 AND p_aggregation = 'ACROSS' THEN
6194: k := l_unmatched_categories.FIRST;
6195: LOOP
6194: k := l_unmatched_categories.FIRST;
6195: LOOP
6196:
6197: l_input_index := x_pricing_engine_rows.COUNT + 1;
6198: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index||' with category id : '||l_unmatched_categories(k).category_id);
6199: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
6200: x_pricing_engine_rows(l_input_index).instance_index := p_matching_instance_index;
6201: x_pricing_engine_rows(l_input_index).category_id := l_unmatched_categories(k).category_id;
6202: x_pricing_engine_rows(l_input_index).basis := l_unmatched_categories(k).basis;
6218: k := l_unmatched_categories.NEXT(k);
6219: END LOOP;
6220: END IF;
6221:
6222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 18 ');
6223: -- WITHIN : Handling new categories
6224: IF l_unmatched_categ.COUNT > 0 AND p_aggregation = 'WITHIN' THEN
6225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 19 ');
6226: l := l_unmatched_categ.FIRST;
6221:
6222: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 18 ');
6223: -- WITHIN : Handling new categories
6224: IF l_unmatched_categ.COUNT > 0 AND p_aggregation = 'WITHIN' THEN
6225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 19 ');
6226: l := l_unmatched_categ.FIRST;
6227: LOOP
6228:
6229: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 20 ');
6225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 19 ');
6226: l := l_unmatched_categ.FIRST;
6227: LOOP
6228:
6229: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 20 ');
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6231: 'l_unmatched_categ => l=category_id='||l);
6232: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6233: 'l_unmatched_categ=>quantity='||l_unmatched_categ(l).quantity);
6226: l := l_unmatched_categ.FIRST;
6227: LOOP
6228:
6229: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 20 ');
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6231: 'l_unmatched_categ => l=category_id='||l);
6232: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6233: 'l_unmatched_categ=>quantity='||l_unmatched_categ(l).quantity);
6234: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6228:
6229: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 20 ');
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6231: 'l_unmatched_categ => l=category_id='||l);
6232: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6233: 'l_unmatched_categ=>quantity='||l_unmatched_categ(l).quantity);
6234: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6235: 'l_unmatched_categ=>uom='||l_unmatched_categ(l).uom);
6236: l_input_index := x_pricing_engine_rows.COUNT + 1;
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6231: 'l_unmatched_categ => l=category_id='||l);
6232: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6233: 'l_unmatched_categ=>quantity='||l_unmatched_categ(l).quantity);
6234: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6235: 'l_unmatched_categ=>uom='||l_unmatched_categ(l).uom);
6236: l_input_index := x_pricing_engine_rows.COUNT + 1;
6237: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
6238: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
6233: 'l_unmatched_categ=>quantity='||l_unmatched_categ(l).quantity);
6234: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
6235: 'l_unmatched_categ=>uom='||l_unmatched_categ(l).uom);
6236: l_input_index := x_pricing_engine_rows.COUNT + 1;
6237: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
6238: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
6239: x_pricing_engine_rows(l_input_index).instance_index := p_matching_instance_index;
6240: x_pricing_engine_rows(l_input_index).category_id := l;
6241: --x_pricing_engine_rows(l_input_index).basis := l_unmatched_categories(k).basis;
6247: -- new code for loose items
6248: IF (p_container_flag = 'N') THEN
6249: x_pricing_engine_rows(l_input_index).loose_item_flag := 'Y';
6250: END IF;
6251: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 21 ');
6252:
6253: l_attribute_index := x_pricing_attribute_rows.COUNT + 1;
6254: x_pricing_attribute_rows(l_attribute_index).attribute_index := l_attribute_index;
6255: x_pricing_attribute_rows(l_attribute_index).input_index := l_input_index;
6260: EXIT WHEN l = l_unmatched_categ.LAST;
6261: l := l_unmatched_categ.NEXT(l);
6262: END LOOP;
6263: END IF;
6264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG, '>>> 22 ');
6265:
6266: -- ACROSS : Handling new basis
6267: IF l_unmatched_basis.COUNT > 0 AND p_aggregation = 'ACROSS' THEN
6268: m := l_unmatched_basis.FIRST;
6273: n := l_unmatched_bascateg.FIRST;
6274: LOOP
6275:
6276: l_input_index := x_pricing_engine_rows.COUNT + 1;
6277: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index||' with basis : '||m);
6278: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
6279: x_pricing_engine_rows(l_input_index).instance_index := p_matching_instance_index;
6280: --x_pricing_engine_rows(l_input_index).category_id := n;
6281: x_pricing_engine_rows(l_input_index).category_id := l_unmatched_bascateg(n).category_id;
6298: n := l_unmatched_bascateg.NEXT(n);
6299: END LOOP;
6300: ELSE
6301: l_input_index := x_pricing_engine_rows.COUNT + 1;
6302: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Creating engine row : '||l_input_index);
6303: x_pricing_engine_rows(l_input_index).input_index := l_input_index;
6304: x_pricing_engine_rows(l_input_index).instance_index := p_matching_instance_index;
6305: x_pricing_engine_rows(l_input_index).basis := m;
6306: x_pricing_engine_rows(l_input_index).line_quantity := l_unmatched_basis(m).quantity;
6321: EXIT WHEN m = l_unmatched_basis.LAST;
6322: m := l_unmatched_basis.NEXT(m);
6323: END LOOP;
6324: END IF;
6325: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_to_instance');
6326:
6327: EXCEPTION
6328: WHEN others THEN
6329: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6326:
6327: EXCEPTION
6328: WHEN others THEN
6329: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6330: FTE_FREIGHT_PRICING_UTIL.set_exception('add_to_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
6331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
6332: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_to_instance');
6333: END add_to_instance;
6334:
6327: EXCEPTION
6328: WHEN others THEN
6329: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6330: FTE_FREIGHT_PRICING_UTIL.set_exception('add_to_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
6331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
6332: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_to_instance');
6333: END add_to_instance;
6334:
6335: -- This procedure looks up the delivery lines in each of the input content rows and
6328: WHEN others THEN
6329: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6330: FTE_FREIGHT_PRICING_UTIL.set_exception('add_to_instance',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
6331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
6332: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'add_to_instance');
6333: END add_to_instance;
6334:
6335: -- This procedure looks up the delivery lines in each of the input content rows and
6336: -- based on the commodity/freight class and pricing basis determines pattern for each
6391: l_rolledup_category_basis WSH_UTIL_CORE.id_tab_type;
6392:
6393: l_rolledup_rec rolledup_line_rec_type;
6394:
6395: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_INF;
6396:
6397: BEGIN
6398: -- {
6399:
6397: BEGIN
6398: -- {
6399:
6400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6401: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
6402: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'process_shipment_pattern','start');
6403:
6404: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside process_shipment_pattern .Before initialization');
6405:
6398: -- {
6399:
6400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6401: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
6402: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'process_shipment_pattern','start');
6403:
6404: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside process_shipment_pattern .Before initialization');
6405:
6406:
6400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6401: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
6402: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'process_shipment_pattern','start');
6403:
6404: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside process_shipment_pattern .Before initialization');
6405:
6406:
6407:
6408:
6405:
6406:
6407:
6408:
6409: FTE_FREIGHT_PRICING_SPECIAL.initialize(
6410: p_lane_id => p_lane_id,
6411: x_lane_function => l_lane_function,
6412: x_return_status => l_return_status);
6413:
6412: x_return_status => l_return_status);
6413:
6414: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6415: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6416: raise FTE_FREIGHT_PRICING_UTIL.g_initialize_failed;
6417: END IF;
6418: ELSE -- What happens if there is an empty container ?
6419: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Parameters and Rules for lane : '||p_lane_id||' has been looked up');
6420: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Lane Function : '||l_lane_function);
6415: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6416: raise FTE_FREIGHT_PRICING_UTIL.g_initialize_failed;
6417: END IF;
6418: ELSE -- What happens if there is an empty container ?
6419: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Parameters and Rules for lane : '||p_lane_id||' has been looked up');
6420: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Lane Function : '||l_lane_function);
6421: END IF;
6422:
6423: g_rolledup_lines.DELETE;
6416: raise FTE_FREIGHT_PRICING_UTIL.g_initialize_failed;
6417: END IF;
6418: ELSE -- What happens if there is an empty container ?
6419: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Parameters and Rules for lane : '||p_lane_id||' has been looked up');
6420: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Lane Function : '||l_lane_function);
6421: END IF;
6422:
6423: g_rolledup_lines.DELETE;
6424: i := p_shpmnt_toplevel_rows.FIRST; -- Catch empty delivery exception
6456: x_return_status => l_return_status);
6457:
6458: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6459: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6460: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||p_shpmnt_toplevel_rows(i).content_id);
6461: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
6462: END IF;
6463: ELSE -- What happens if there is an empty container ?
6464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container '||p_shpmnt_toplevel_rows(i).content_id||' has '||l_rolledup_lines.COUNT||' rolled up lines');
6457:
6458: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6459: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6460: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||p_shpmnt_toplevel_rows(i).content_id);
6461: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
6462: END IF;
6463: ELSE -- What happens if there is an empty container ?
6464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container '||p_shpmnt_toplevel_rows(i).content_id||' has '||l_rolledup_lines.COUNT||' rolled up lines');
6465: END IF;
6460: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Container '||p_shpmnt_toplevel_rows(i).content_id);
6461: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
6462: END IF;
6463: ELSE -- What happens if there is an empty container ?
6464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Container '||p_shpmnt_toplevel_rows(i).content_id||' has '||l_rolledup_lines.COUNT||' rolled up lines');
6465: END IF;
6466:
6467: IF l_rolledup_lines.COUNT = 0 THEN
6468: goto nextpass;
6475: g_rolledup_lines(j).master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6476:
6477: IF nvl(l_rolledup_lines(j).line_quantity,0) = 0 THEN
6478:
6479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rolled up line : '||j||' has line quantity = 0');
6480: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity;
6481:
6482: END IF;
6483:
6476:
6477: IF nvl(l_rolledup_lines(j).line_quantity,0) = 0 THEN
6478:
6479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rolled up line : '||j||' has line quantity = 0');
6480: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity;
6481:
6482: END IF;
6483:
6484: IF l_rolledup_lines(j).rate_basis = G_WEIGHT_BASIS THEN
6528:
6529: -- }
6530: END LOOP;
6531:
6532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Before Applying Dimensional Weight');
6533:
6534: -- Apply dimensional weight to the applicable l_rolledup_lines here per top level container
6535:
6536: FTE_FREIGHT_PRICING_SPECIAL.apply_dimensional_weight (
6532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Before Applying Dimensional Weight');
6533:
6534: -- Apply dimensional weight to the applicable l_rolledup_lines here per top level container
6535:
6536: FTE_FREIGHT_PRICING_SPECIAL.apply_dimensional_weight (
6537: p_lane_id => p_lane_id,
6538: p_carrier_id => p_carrier_id,
6539: p_service_code => p_service_code,
6540: p_top_level_rec => p_shpmnt_toplevel_rows(i),
6542: x_return_status => l_return_status );
6543:
6544: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6545: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6546: raise FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed;
6547: END IF;
6548: END IF;
6549:
6550: -- Process l_rolledup_lines here per top level container
6585: END IF;
6586: END IF;
6587: END IF;
6588:
6589: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done identifying pattern');
6590: -- How do you identify Parcel here ? Not required to identify
6591:
6592: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6593:
6590: -- How do you identify Parcel here ? Not required to identify
6591:
6592: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6593:
6594: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6595: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6596: l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6597:
6598: -- What happens if grouping level or/and commodity_aggregation is null Exception ?
6591:
6592: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6593:
6594: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6595: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6596: l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6597:
6598: -- What happens if grouping level or/and commodity_aggregation is null Exception ?
6599:
6592: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6593:
6594: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6595: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6596: l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6597:
6598: -- What happens if grouping level or/and commodity_aggregation is null Exception ?
6599:
6600: -- Need to create services_hash here
6630: x_pattern_rows(l_pattern_index).content_id := p_shpmnt_toplevel_rows(i).content_id;
6631: x_pattern_rows(l_pattern_index).pattern_no := l_pattern_no;
6632: x_pattern_rows(l_pattern_index).services_hash := l_services_hash;
6633:
6634: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done initializing pattern row');
6635: IF l_grouping_level = 'CONTAINER' THEN
6636: -- {
6637:
6638: l_count_pattern := 1;
6649: x_return_status => l_return_status );
6650:
6651: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6653: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6654: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6655: END IF;
6656: ELSE -- What happens if no new instance is created ? Exception ?
6657: -- already handled inside the called procedure
6650:
6651: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6653: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6654: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6655: END IF;
6656: ELSE -- What happens if no new instance is created ? Exception ?
6657: -- already handled inside the called procedure
6658: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for container '||p_shpmnt_toplevel_rows(i).content_id);
6654: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6655: END IF;
6656: ELSE -- What happens if no new instance is created ? Exception ?
6657: -- already handled inside the called procedure
6658: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for container '||p_shpmnt_toplevel_rows(i).content_id);
6659: END IF;
6660:
6661: -- Create a new record into x_pricing_dual_instances here
6662: l_instance_index := x_pricing_dual_instances.COUNT + 1;
6706: x_return_status => l_return_status );
6707:
6708: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6709: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6710: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for container '||p_shpmnt_toplevel_rows(i).content_id);
6711: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6712: END IF;
6713: ELSE
6714: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for container '||p_shpmnt_toplevel_rows(i).content_id);
6707:
6708: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6709: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6710: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for container '||p_shpmnt_toplevel_rows(i).content_id);
6711: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6712: END IF;
6713: ELSE
6714: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for container '||p_shpmnt_toplevel_rows(i).content_id);
6715: END IF;
6710: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for container '||p_shpmnt_toplevel_rows(i).content_id);
6711: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6712: END IF;
6713: ELSE
6714: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for container '||p_shpmnt_toplevel_rows(i).content_id);
6715: END IF;
6716:
6717: -- }
6718: END IF;
6739: x_return_status => l_return_status );
6740:
6741: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6742: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6743: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6744: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6745: END IF;
6746: ELSE -- What happens if no new instance is created ? Exception ?
6747: -- already handled inside the called procedure
6740:
6741: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6742: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6743: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6744: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6745: END IF;
6746: ELSE -- What happens if no new instance is created ? Exception ?
6747: -- already handled inside the called procedure
6748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for container '||p_shpmnt_toplevel_rows(i).content_id);
6744: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6745: END IF;
6746: ELSE -- What happens if no new instance is created ? Exception ?
6747: -- already handled inside the called procedure
6748: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for container '||p_shpmnt_toplevel_rows(i).content_id);
6749: END IF;
6750:
6751: -- Create a new record into x_pricing_dual_instances here
6752:
6776: x_return_status => l_return_status );
6777:
6778: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6779: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6780: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6781: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
6782: END IF;
6783: ELSE
6784: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
6777:
6778: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6779: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6780: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6781: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
6782: END IF;
6783: ELSE
6784: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
6785: END IF;
6780: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for container '||p_shpmnt_toplevel_rows(i).content_id);
6781: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
6782: END IF;
6783: ELSE
6784: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Container '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
6785: END IF;
6786:
6787: -- Modify x_pricing_dual_instances(l_matched_instance_index) here
6788: l_instance_index := l_matched_instance_index;
6815: -- end if
6816: -- end if
6817:
6818:
6819: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'For loose item :'|| p_shpmnt_toplevel_rows(i).content_id);
6820:
6821: l_rolledup_rec.delivery_detail_id := null;
6822: l_rolledup_rec.container_id := null;
6823: l_rolledup_rec.category_id := null;
6838:
6839:
6840: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6841: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6842: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Loose Item '||p_shpmnt_toplevel_rows(i).content_id);
6843: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
6844: END IF;
6845: END IF;
6846:
6839:
6840: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6841: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6842: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Loose Item '||p_shpmnt_toplevel_rows(i).content_id);
6843: raise FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed;
6844: END IF;
6845: END IF;
6846:
6847: l_rolledup_rec.master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6846:
6847: l_rolledup_rec.master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6848: g_rolledup_lines(p_shpmnt_toplevel_rows(i).content_id).master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6849:
6850: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rollup_rec ->');
6851: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' delivery_detail_id = '||
6852: l_rolledup_rec.delivery_detail_id||' container_id='||l_rolledup_rec.container_id||' category_id = '||l_rolledup_rec.category_id
6853: ||' rate_basis = '||l_rolledup_rec.rate_basis||' qty='||l_rolledup_rec.line_quantity||' '||l_rolledup_rec.line_uom);
6854:
6847: l_rolledup_rec.master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6848: g_rolledup_lines(p_shpmnt_toplevel_rows(i).content_id).master_container_id := p_shpmnt_toplevel_rows(i).content_id;
6849:
6850: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'rollup_rec ->');
6851: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' delivery_detail_id = '||
6852: l_rolledup_rec.delivery_detail_id||' container_id='||l_rolledup_rec.container_id||' category_id = '||l_rolledup_rec.category_id
6853: ||' rate_basis = '||l_rolledup_rec.rate_basis||' qty='||l_rolledup_rec.line_quantity||' '||l_rolledup_rec.line_uom);
6854:
6855: IF (nvl(l_rolledup_rec.line_quantity,0) = 0) THEN
6852: l_rolledup_rec.delivery_detail_id||' container_id='||l_rolledup_rec.container_id||' category_id = '||l_rolledup_rec.category_id
6853: ||' rate_basis = '||l_rolledup_rec.rate_basis||' qty='||l_rolledup_rec.line_quantity||' '||l_rolledup_rec.line_uom);
6854:
6855: IF (nvl(l_rolledup_rec.line_quantity,0) = 0) THEN
6856: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rolled up line has line quantity = 0');
6857: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity;
6858: END IF;
6859:
6860: IF (l_rolledup_rec.rate_basis = G_WEIGHT_BASIS) THEN
6853: ||' rate_basis = '||l_rolledup_rec.rate_basis||' qty='||l_rolledup_rec.line_quantity||' '||l_rolledup_rec.line_uom);
6854:
6855: IF (nvl(l_rolledup_rec.line_quantity,0) = 0) THEN
6856: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rolled up line has line quantity = 0');
6857: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity;
6858: END IF;
6859:
6860: IF (l_rolledup_rec.rate_basis = G_WEIGHT_BASIS) THEN
6861: l_pattern_no := G_PATTERN_9;
6863: ELSIF (l_rolledup_rec.rate_basis = G_VOLUME_BASIS) THEN
6864: l_pattern_no := G_PATTERN_10;
6865: l_pattern_name := G_PATTERN_10_NAME;
6866: ELSE
6867: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
6868: END IF;
6869:
6870: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done identifying pattern: '||l_pattern_no);
6871:
6866: ELSE
6867: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_basis;
6868: END IF;
6869:
6870: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done identifying pattern: '||l_pattern_no);
6871:
6872: l_pattern_index := l_pattern_index + 1;
6873:
6874: -- Create a new record into x_pattern_rows here
6877: x_pattern_rows(l_pattern_index).content_id := p_shpmnt_toplevel_rows(i).content_id;
6878: x_pattern_rows(l_pattern_index).pattern_no := l_pattern_no;
6879: x_pattern_rows(l_pattern_index).services_hash := null;
6880:
6881: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done initializing pattern row');
6882:
6883: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6884:
6885: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6881: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done initializing pattern row');
6882:
6883: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6884:
6885: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6886: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6887: -- l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6888: l_pricing_objective := NULL;
6889:
6882:
6883: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6884:
6885: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6886: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6887: -- l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6888: l_pricing_objective := NULL;
6889:
6890: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done getting pricing dual');
6883: -- Look up FTE pricing preferences table to find out the pricing dual for that pattern
6884:
6885: l_grouping_level := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).grouping_level;
6886: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6887: -- l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6888: l_pricing_objective := NULL;
6889:
6890: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done getting pricing dual');
6891: l_rolledup_lines(1) := l_rolledup_rec;
6886: l_aggregation := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).commodity_aggregation;
6887: -- l_pricing_objective := FTE_FREIGHT_PRICING_SPECIAL.g_lane_rules_tab(l_pattern_no).pricing_objective;
6888: l_pricing_objective := NULL;
6889:
6890: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done getting pricing dual');
6891: l_rolledup_lines(1) := l_rolledup_rec;
6892:
6893: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_rolledup_lines.COUNT = '||l_rolledup_lines.COUNT);
6894:
6889:
6890: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done getting pricing dual');
6891: l_rolledup_lines(1) := l_rolledup_rec;
6892:
6893: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_rolledup_lines.COUNT = '||l_rolledup_lines.COUNT);
6894:
6895: IF l_grouping_level = 'ITEM' THEN
6896: -- {
6897:
6909: x_return_status => l_return_status );
6910:
6911: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6912: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6913: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6914: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6915: END IF;
6916: ELSE -- What happens if no new instance is created ? Exception ?
6917: -- already handled inside the called procedure
6910:
6911: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6912: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6913: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6914: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6915: END IF;
6916: ELSE -- What happens if no new instance is created ? Exception ?
6917: -- already handled inside the called procedure
6918: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6914: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6915: END IF;
6916: ELSE -- What happens if no new instance is created ? Exception ?
6917: -- already handled inside the called procedure
6918: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6919: END IF;
6920:
6921: -- Create a new record into x_pricing_dual_instances here
6922: l_instance_index := x_pricing_dual_instances.COUNT + 1;
6929: x_pricing_dual_instances(l_instance_index).aggregation := l_aggregation;
6930: x_pricing_dual_instances(l_instance_index).objective := l_pricing_objective;
6931: x_pricing_dual_instances(l_instance_index).count_pattern := l_count_pattern; -- Need to be incremented and initialized appropriately
6932: x_pricing_dual_instances(l_instance_index).loose_item_flag := 'Y';
6933: -- FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'instance_index = '||l_instance_index||' loose_item_flag ='||x_pricing_dual_instances(l_instance_index).loose_item_flag);
6934:
6935:
6936: -- }
6937: ELSE -- Grouping level = 'SHIPMENT' (Loose Items only)
6957: x_return_status => l_return_status );
6958:
6959: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6960: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6961: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6962: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6963: END IF;
6964: ELSE
6965: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6958:
6959: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6960: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6961: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6962: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6963: END IF;
6964: ELSE
6965: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6966: END IF;
6961: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'search for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6962: raise FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed;
6963: END IF;
6964: ELSE
6965: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matched Instance '||l_matched_instance_index||' found for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6966: END IF;
6967:
6968: -- }
6969: END IF;
6984: x_return_status => l_return_status );
6985:
6986: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6987: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6988: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6989: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6990: END IF;
6991: ELSE -- What happens if no new instance is created ? Exception ?
6992: -- already handled inside the called procedure
6985:
6986: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6987: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6988: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'create_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6989: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6990: END IF;
6991: ELSE -- What happens if no new instance is created ? Exception ?
6992: -- already handled inside the called procedure
6993: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6989: raise FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed;
6990: END IF;
6991: ELSE -- What happens if no new instance is created ? Exception ?
6992: -- already handled inside the called procedure
6993: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Instance created for loose item '||p_shpmnt_toplevel_rows(i).content_id);
6994: END IF;
6995:
6996: -- Create a new record into x_pricing_dual_instances here
6997:
7005: x_pricing_dual_instances(l_instance_index).aggregation := l_aggregation;
7006: x_pricing_dual_instances(l_instance_index).objective := l_pricing_objective;
7007: x_pricing_dual_instances(l_instance_index).count_pattern := l_count_pattern; -- Need to be incremented and initialized appropriately
7008: x_pricing_dual_instances(l_instance_index).loose_item_flag := 'Y';
7009: -- FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'instance_index = '||l_instance_index||' loose_item_flag ='||x_pricing_dual_instances(l_instance_index).loose_item_flag);
7010:
7011: -- }
7012: ELSE
7013: -- {
7027: x_return_status => l_return_status );
7028:
7029: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7030: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7031: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
7032: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
7033: END IF;
7034: ELSE
7035: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Loose Item '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
7028:
7029: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7030: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7031: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
7032: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
7033: END IF;
7034: ELSE
7035: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Loose Item '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
7036: END IF;
7031: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'add_to_instance for loose item '||p_shpmnt_toplevel_rows(i).content_id);
7032: raise FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed;
7033: END IF;
7034: ELSE
7035: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Loose Item '||p_shpmnt_toplevel_rows(i).content_id||' added to instance '||l_matched_instance_index);
7036: END IF;
7037:
7038: -- Modify x_pricing_dual_instances(l_matched_instance_index) here
7039: l_instance_index := l_matched_instance_index;
7039: l_instance_index := l_matched_instance_index;
7040: x_pattern_rows(l_pattern_index).instance_index := l_instance_index;
7041:
7042: x_pricing_dual_instances(l_instance_index).count_pattern := l_count_pattern;
7043: -- FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'instance_index = '||l_instance_index||' loose_item_flag ='||x_pricing_dual_instances(l_instance_index).loose_item_flag);
7044:
7045: -- }
7046: END IF;
7047:
7090:
7091: -- }
7092: END LOOP;
7093:
7094: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_function='||l_lane_function);
7095: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_classification_code='||p_classification_code);
7096:
7097: IF l_lane_function = 'LTL' and p_classification_code = 'FC' THEN
7098:
7091: -- }
7092: END LOOP;
7093:
7094: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_function='||l_lane_function);
7095: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_classification_code='||p_classification_code);
7096:
7097: IF l_lane_function = 'LTL' and p_classification_code = 'FC' THEN
7098:
7099: print_rolledup_lines (
7103: print_engine_rows (
7104: p_engine_rows => x_pricing_engine_rows,
7105: x_return_status => l_return_status );
7106:
7107: FTE_FREIGHT_PRICING_SPECIAL.distribute_LTL_container_wt(
7108: p_top_level_rows => p_shpmnt_toplevel_rows,
7109: x_pricing_engine_rows => x_pricing_engine_rows,
7110: x_return_status => l_return_status );
7111:
7115: END IF;
7116:
7117: END IF; --l_lane_function = 'LTL' and p_classification_code = 'FC'
7118:
7119: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7120:
7121: EXCEPTION
7122: WHEN FND_API.G_EXC_ERROR THEN
7123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7120:
7121: EXCEPTION
7122: WHEN FND_API.G_EXC_ERROR THEN
7123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7124: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
7125: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7121: EXCEPTION
7122: WHEN FND_API.G_EXC_ERROR THEN
7123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7124: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
7125: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7122: WHEN FND_API.G_EXC_ERROR THEN
7123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7124: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
7125: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7124: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
7125: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7125: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7126: WHEN FTE_FREIGHT_PRICING_UTIL.g_initialize_failed THEN
7127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7128: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_initialize_failed');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7129: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7130: WHEN FTE_FREIGHT_PRICING_UTIL.g_rollup_container_failed THEN
7131: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7132: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rollup_container_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7133: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7134: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_line_quantity THEN
7135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7136: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_line_quantity');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7137: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7138: WHEN FTE_FREIGHT_PRICING_UTIL.g_dimensional_weight_failed THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7140: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_dimensional_weight_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7141: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7142: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_instance_failed THEN
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7144: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7145: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7146: WHEN FTE_FREIGHT_PRICING_UTIL.g_search_instance_failed THEN
7147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7148: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_search_instance_failed');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7149: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7150: WHEN FTE_FREIGHT_PRICING_UTIL.g_add_to_instance_failed THEN
7151: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7152: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_add_to_instance_failed');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7153: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7154: WHEN FTE_FREIGHT_PRICING_UTIL.g_category_not_found THEN
7155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7156: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_category_not_found');
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7157: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7158: WHEN FTE_FREIGHT_PRICING_UTIL.g_invalid_basis THEN
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7159: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7160: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_invalid_basis');
7161: --FTE_FREIGHT_PRICING_UTIL.print_debug('basis_not_found ');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7162: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'basis_not_found ');
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7163: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7164: WHEN FTE_FREIGHT_PRICING_UTIL.g_loose_item_wrong_basis THEN
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7165: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7166: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_loose_item_wrong_basis');
7167: --FTE_FREIGHT_PRICING_UTIL.print_debug('Loose item can not have container basis');
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7173: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7168: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Loose item can not have container basis');
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7173: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7174: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7175: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7176:
7169: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7173: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7174: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7175: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7176:
7177: -- }
7170: WHEN others THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7173: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7174: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7175: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7176:
7177: -- }
7178: END process_shipment_pattern;
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7172: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7173: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7174: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7175: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'process_shipment_pattern');
7176:
7177: -- }
7178: END process_shipment_pattern;
7179:
7189: WHERE carrier_id = p_carrier_id;
7190:
7191: --l_currency_code wsh_carriers.currency_code%TYPE;
7192:
7193: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
7194:
7195: BEGIN
7196:
7197: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7194:
7195: BEGIN
7196:
7197: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7198: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7199: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_currency_code','start');
7200:
7201: OPEN c_get_currency;
7202: FETCH c_get_currency INTO x_currency_code;
7195: BEGIN
7196:
7197: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7198: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7199: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_currency_code','start');
7200:
7201: OPEN c_get_currency;
7202: FETCH c_get_currency INTO x_currency_code;
7203: IF c_get_currency%NOTFOUND THEN
7200:
7201: OPEN c_get_currency;
7202: FETCH c_get_currency INTO x_currency_code;
7203: IF c_get_currency%NOTFOUND THEN
7204: raise FTE_FREIGHT_PRICING_UTIL.g_no_currency_found;
7205: CLOSE c_get_currency;
7206: END IF;
7207: CLOSE c_get_currency;
7208:
7206: END IF;
7207: CLOSE c_get_currency;
7208:
7209: --RETURN l_currency_code;
7210: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7211:
7212: EXCEPTION
7213: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_currency_found THEN
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7209: --RETURN l_currency_code;
7210: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7211:
7212: EXCEPTION
7213: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_currency_found THEN
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7215: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_currency_found');
7216: --FTE_FREIGHT_PRICING_UTIL.print_debug('currency_not_found ');
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7211:
7212: EXCEPTION
7213: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_currency_found THEN
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7215: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_currency_found');
7216: --FTE_FREIGHT_PRICING_UTIL.print_debug('currency_not_found ');
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7212: EXCEPTION
7213: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_currency_found THEN
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7215: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_currency_found');
7216: --FTE_FREIGHT_PRICING_UTIL.print_debug('currency_not_found ');
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7213: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_currency_found THEN
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7215: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_currency_found');
7216: --FTE_FREIGHT_PRICING_UTIL.print_debug('currency_not_found ');
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7215: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_currency_found');
7216: --FTE_FREIGHT_PRICING_UTIL.print_debug('currency_not_found ');
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7222: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7217: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'currency_not_found ');
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7222: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7224: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7225: END get_currency_code;
7218: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7222: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7224: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7225: END get_currency_code;
7226:
7219: WHEN others THEN
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7222: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7224: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7225: END get_currency_code;
7226:
7227: -- shipment_rating will be called by
7220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7221: FTE_FREIGHT_PRICING_UTIL.set_exception('get_currency_code',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7222: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7224: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_currency_code');
7225: END get_currency_code;
7226:
7227: -- shipment_rating will be called by
7228: -- WSH-LCSS (FTE_FREIGHT_RATING_DLVY_GRP.Rate_Delivery)
7248: x_return_status OUT NOCOPY VARCHAR2,
7249: x_msg_count OUT NOCOPY NUMBER,
7250: x_msg_data OUT NOCOPY VARCHAR2 )
7251: IS
7252: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
7253: l_api_name CONSTANT VARCHAR2(30) := 'SHIPMENT_RATING';
7254: l_return_status VARCHAR2(1);
7255: l_msg_count NUMBER := 0;
7256: l_msg_data VARCHAR2(240);
7258: l_first_level_charges addl_services_tab_type;
7259: BEGIN
7260: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7261:
7262: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7263: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7259: BEGIN
7260: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7261:
7262: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7263: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7261:
7262: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7263: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7262: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7263: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7270:
7263: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7270:
7271: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'flatten shipment... ');
7264:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7270:
7271: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'flatten shipment... ');
7272:
7265: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7266: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7270:
7271: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'flatten shipment... ');
7272:
7273: flatten_shipment (
7267: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_mode_of_transport='||p_mode_of_transport);
7268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7270:
7271: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'flatten shipment... ');
7272:
7273: flatten_shipment (
7274: x_first_level_rows => l_first_level_rows,
7275: x_return_status => l_return_status );
7275: x_return_status => l_return_status );
7276:
7277: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS and
7278: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7279: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7280: ELSE
7281: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level, 'No. of top level lines 7 : '||l_first_level_rows.COUNT);
7282: IF l_first_level_rows.COUNT = 0 THEN
7283: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7277: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS and
7278: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7279: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7280: ELSE
7281: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level, 'No. of top level lines 7 : '||l_first_level_rows.COUNT);
7282: IF l_first_level_rows.COUNT = 0 THEN
7283: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7284: END IF;
7285: END IF;
7279: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7280: ELSE
7281: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level, 'No. of top level lines 7 : '||l_first_level_rows.COUNT);
7282: IF l_first_level_rows.COUNT = 0 THEN
7283: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7284: END IF;
7285: END IF;
7286:
7287: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_currency_code='|| p_currency_code);
7283: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
7284: END IF;
7285: END IF;
7286:
7287: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_currency_code='|| p_currency_code);
7288: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'call shipment_pricing... ');
7289: shipment_pricing (
7290: p_lane_id => p_lane_id,
7291: p_service_type => p_service_type,
7284: END IF;
7285: END IF;
7286:
7287: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_currency_code='|| p_currency_code);
7288: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'call shipment_pricing... ');
7289: shipment_pricing (
7290: p_lane_id => p_lane_id,
7291: p_service_type => p_service_type,
7292: p_ship_date => p_ship_date,
7302: x_return_status => l_return_status ) ;
7303:
7304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS and
7305: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7306: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
7307: END IF;
7308:
7309: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7310:
7305: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7306: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
7307: END IF;
7308:
7309: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7310:
7311: EXCEPTION
7312: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
7313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7308:
7309: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7310:
7311: EXCEPTION
7312: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
7313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7314: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7310:
7311: EXCEPTION
7312: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
7313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7314: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7311: EXCEPTION
7312: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
7313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7314: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7312: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
7313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7314: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7320: WHEN others THEN
7314: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7320: WHEN others THEN
7321: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7322: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7315: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7316: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
7317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7320: WHEN others THEN
7321: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7322: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7323: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7318: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7320: WHEN others THEN
7321: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7322: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7323: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7324: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7325: END shipment_rating;
7326:
7319: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7320: WHEN others THEN
7321: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7322: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7323: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7324: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7325: END shipment_rating;
7326:
7327:
7320: WHEN others THEN
7321: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7322: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
7323: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
7324: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
7325: END shipment_rating;
7326:
7327:
7328: -- This procedure is the basic shipment freight charge calculation API
7428:
7429: l_shpmnt_toplevel_rows shpmnt_content_tab_type;
7430: p NUMBER:=0;
7431:
7432: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
7433:
7434: BEGIN
7435:
7436: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7433:
7434: BEGIN
7435:
7436: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7437: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7438: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_pricing','start');
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7434: BEGIN
7435:
7436: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7437: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7438: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_pricing','start');
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7436: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7437: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7438: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_pricing','start');
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7437: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
7438: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_pricing','start');
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7438: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_pricing','start');
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7439:
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_request_id='||p_request_id);
7440: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_lane_id='||p_lane_id);
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_request_id='||p_request_id);
7448:
7441: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_schedule_id='||p_schedule_id);
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_request_id='||p_request_id);
7448:
7449: -- Calls process_shipment_pattern and gets back l_pricing_engine_rows and l_pricing_attribute_rows
7442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_request_id='||p_request_id);
7448:
7449: -- Calls process_shipment_pattern and gets back l_pricing_engine_rows and l_pricing_attribute_rows
7450: -- Modifies l_pricing_attribute_rows to add more rows to it
7443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_service_type='||p_service_type);
7444: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_ship_date='||p_ship_date);
7445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_arrival_date='||p_arrival_date);
7446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_save_flag='||p_save_flag);
7447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_request_id='||p_request_id);
7448:
7449: -- Calls process_shipment_pattern and gets back l_pricing_engine_rows and l_pricing_attribute_rows
7450: -- Modifies l_pricing_attribute_rows to add more rows to it
7451: -- Calls call_qp_engine passing in l_pricing_engine_rows,l_pricing_attribute_rows and l_pricing_qualifier
7458: g_effectivity_dates.date_to := p_arrival_date;
7459:
7460: IF p_lane_id IS NULL AND p_segment_id IS NULL AND p_schedule_id IS NULL THEN
7461:
7462: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
7463:
7464: ELSIF p_lane_id IS NULL AND p_schedule_id IS NULL THEN
7465:
7466: OPEN c_get_lane_info_from_trip(p_segment_id);
7466: OPEN c_get_lane_info_from_trip(p_segment_id);
7467: FETCH c_get_lane_info_from_trip INTO l_lane_info;
7468: IF c_get_lane_info_from_trip%NOTFOUND THEN
7469: CLOSE c_get_lane_info_from_trip;
7470: raise FTE_FREIGHT_PRICING_UTIL.g_no_lane_info;
7471: END IF;
7472: CLOSE c_get_lane_info_from_trip;
7473:
7474: OPEN c_get_service_type(p_segment_id);
7475: FETCH c_get_service_type INTO l_service_type;
7476: -- Is this required TODO
7477: IF c_get_service_type%NOTFOUND THEN
7478: CLOSE c_get_service_type;
7479: raise FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type;
7480: END IF;
7481: CLOSE c_get_service_type;
7482:
7483: ELSIF p_segment_id IS NULL AND p_schedule_id IS NULL THEN
7485: OPEN c_get_lane_info(p_lane_id);
7486: FETCH c_get_lane_info INTO l_lane_info;
7487: IF c_get_lane_info%NOTFOUND THEN
7488: CLOSE c_get_lane_info;
7489: raise FTE_FREIGHT_PRICING_UTIL.g_no_lane_info;
7490: END IF;
7491: CLOSE c_get_lane_info;
7492:
7493: l_service_type := p_service_type;
7497: OPEN c_get_lane_info_from_schedule(p_schedule_id);
7498: FETCH c_get_lane_info_from_schedule INTO l_lane_info;
7499: IF c_get_lane_info_from_schedule%NOTFOUND THEN
7500: CLOSE c_get_lane_info_from_schedule;
7501: raise FTE_FREIGHT_PRICING_UTIL.g_no_lane_info;
7502: END IF;
7503: CLOSE c_get_lane_info_from_schedule;
7504:
7505: l_service_type := p_service_type;
7505: l_service_type := p_service_type;
7506:
7507: END IF;
7508:
7509: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.lane_id='||l_lane_info.lane_id);
7510: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.pricelist_id='||l_lane_info.pricelist_id);
7511: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_service_type='||l_service_type);
7512:
7513: -- Modified for 12i for multi currency support. Get the currency code in the begining
7506:
7507: END IF;
7508:
7509: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.lane_id='||l_lane_info.lane_id);
7510: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.pricelist_id='||l_lane_info.pricelist_id);
7511: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_service_type='||l_service_type);
7512:
7513: -- Modified for 12i for multi currency support. Get the currency code in the begining
7514: -- to use everywhere.
7507: END IF;
7508:
7509: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.lane_id='||l_lane_info.lane_id);
7510: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_info.pricelist_id='||l_lane_info.pricelist_id);
7511: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_service_type='||l_service_type);
7512:
7513: -- Modified for 12i for multi currency support. Get the currency code in the begining
7514: -- to use everywhere.
7515:
7520: x_return_status => l_return_status ); -- New API
7521:
7522: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7523: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7524: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'get_currency_code ');
7525: raise FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed;
7526: END IF;
7527: ELSE
7528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Currency code for carrier '||l_lane_info.carrier_id||' is : '||l_currency_code);
7521:
7522: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7523: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7524: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'get_currency_code ');
7525: raise FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed;
7526: END IF;
7527: ELSE
7528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Currency code for carrier '||l_lane_info.carrier_id||' is : '||l_currency_code);
7529: END IF;
7524: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'get_currency_code ');
7525: raise FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed;
7526: END IF;
7527: ELSE
7528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Currency code for carrier '||l_lane_info.carrier_id||' is : '||l_currency_code);
7529: END IF;
7530: ELSE
7531: l_currency_code := p_currency_code;
7532: END IF;
7530: ELSE
7531: l_currency_code := p_currency_code;
7532: END IF;
7533:
7534: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Currency Code is = ' || l_currency_code);
7535:
7536: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rate Basis is =' || l_lane_info.basis);
7537:
7538: IF l_lane_info.basis = 'CONTAINER_ALL' THEN
7532: END IF;
7533:
7534: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Currency Code is = ' || l_currency_code);
7535:
7536: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Rate Basis is =' || l_lane_info.basis);
7537:
7538: IF l_lane_info.basis = 'CONTAINER_ALL' THEN
7539:
7540: l_lane_info.service_type_code := l_service_type;
7538: IF l_lane_info.basis = 'CONTAINER_ALL' THEN
7539:
7540: l_lane_info.service_type_code := l_service_type;
7541:
7542: FTE_FREIGHT_PRICING_SPECIAL.rate_container_all(
7543: p_lane_info => l_lane_info,
7544: p_top_level_rows => p_shpmnt_toplevel_rows,
7545: p_save_flag => p_save_flag,
7546: p_currency_code => l_currency_code,
7570: END LOOP;
7571: END IF;
7572:
7573:
7574: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' After copying top level rows ' );
7575:
7576: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Service Type Code::=' || l_lane_info.service_type_code);
7577:
7578: process_shipment_pattern (
7572:
7573:
7574: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' After copying top level rows ' );
7575:
7576: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Service Type Code::=' || l_lane_info.service_type_code);
7577:
7578: process_shipment_pattern (
7579: p_classification_code => l_lane_info.classification_code,
7580: p_lane_basis => l_lane_info.basis,
7590: x_pricing_attribute_rows => l_pricing_attribute_rows,
7591: x_return_status => l_return_status );
7592:
7593:
7594: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' After process_shipment_pattern ' );
7595:
7596: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7597: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7598: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_shipment_pattern ');
7594: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' After process_shipment_pattern ' );
7595:
7596: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7597: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7598: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_shipment_pattern ');
7599: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed;
7600: END IF;
7601: ELSE -- What happens if no new instance is created ? Exception ?
7602: -- already handled inside the called procedure
7595:
7596: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7597: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7598: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_shipment_pattern ');
7599: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed;
7600: END IF;
7601: ELSE -- What happens if no new instance is created ? Exception ?
7602: -- already handled inside the called procedure
7603: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_rows.COUNT ||'engine rows created');
7599: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed;
7600: END IF;
7601: ELSE -- What happens if no new instance is created ? Exception ?
7602: -- already handled inside the called procedure
7603: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_rows.COUNT ||'engine rows created');
7604: END IF;
7605:
7606: IF FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.lane_function = 'FLAT'
7607: AND FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.flat_containerwt_flag = 'Y' THEN
7602: -- already handled inside the called procedure
7603: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_rows.COUNT ||'engine rows created');
7604: END IF;
7605:
7606: IF FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.lane_function = 'FLAT'
7607: AND FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.flat_containerwt_flag = 'Y' THEN
7608:
7609: l_lane_info.service_type_code := l_service_type;
7610:
7603: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_rows.COUNT ||'engine rows created');
7604: END IF;
7605:
7606: IF FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.lane_function = 'FLAT'
7607: AND FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.flat_containerwt_flag = 'Y' THEN
7608:
7609: l_lane_info.service_type_code := l_service_type;
7610:
7611: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside FlatRate');
7607: AND FTE_FREIGHT_PRICING_SPECIAL.g_special_flags.flat_containerwt_flag = 'Y' THEN
7608:
7609: l_lane_info.service_type_code := l_service_type;
7610:
7611: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside FlatRate');
7612:
7613: FTE_FREIGHT_PRICING_SPECIAL.process_shipment_flatrate(
7614: p_lane_info => l_lane_info,
7615: p_top_level_rows => l_shpmnt_toplevel_rows,
7609: l_lane_info.service_type_code := l_service_type;
7610:
7611: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Inside FlatRate');
7612:
7613: FTE_FREIGHT_PRICING_SPECIAL.process_shipment_flatrate(
7614: p_lane_info => l_lane_info,
7615: p_top_level_rows => l_shpmnt_toplevel_rows,
7616: p_save_flag => p_save_flag,
7617: p_currency_code => l_currency_code,
7630: END IF;
7631:
7632: ELSE
7633:
7634: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Not in FlatRate');
7635: l_pricing_control_rec.pricing_event_num := G_LINE_EVENT_NUM;
7636: l_pricing_control_rec.currency_code := l_currency_code;
7637: l_pricing_control_rec.lane_id := l_lane_info.lane_id;
7638: l_pricing_control_rec.price_list_id := l_lane_info.pricelist_id;
7701: x_return_status => l_return_status );
7702:
7703: -- First prototype breakpoint
7704:
7705: FTE_FREIGHT_PRICING_SPECIAL.process_special_conditions(
7706: p_pricing_control_rec => l_pricing_control_rec,
7707: --p_top_level_rows => p_shpmnt_toplevel_rows,
7708: p_top_level_rows => l_shpmnt_toplevel_rows,
7709: p_pattern_rows => l_pattern_rows,
7715: x_return_status => l_return_status );
7716:
7717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7718: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7719: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_special_conditions ');
7720: raise FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed;
7721: END IF;
7722: ELSE -- What happens if no QP output lines come back ? Exception ?
7723: -- already handled inside the called procedure
7716:
7717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7718: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7719: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_special_conditions ');
7720: raise FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed;
7721: END IF;
7722: ELSE -- What happens if no QP output lines come back ? Exception ?
7723: -- already handled inside the called procedure
7724: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_output_lines.COUNT ||' QP output lines resulted ');
7720: raise FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed;
7721: END IF;
7722: ELSE -- What happens if no QP output lines come back ? Exception ?
7723: -- already handled inside the called procedure
7724: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_pricing_engine_output_lines.COUNT ||' QP output lines resulted ');
7725: END IF;
7726:
7727: print_qp_output_lines (
7728: p_engine_output_line => l_pricing_engine_output_lines,
7750: x_return_status => l_return_status ) ;
7751:
7752: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7753: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7754: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_qp_output');
7755: raise FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed;
7756: END IF;
7757: ELSE -- What happens if no new fc records created ? Exception ?
7758: -- already handled inside the called procedure ?
7751:
7752: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7753: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7754: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'process_qp_output');
7755: raise FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed;
7756: END IF;
7757: ELSE -- What happens if no new fc records created ? Exception ?
7758: -- already handled inside the called procedure ?
7759: -- IF p_save_flag = 'T' THEN -- Means either lane/schedule has been passed in
7757: ELSE -- What happens if no new fc records created ? Exception ?
7758: -- already handled inside the called procedure ?
7759: -- IF p_save_flag = 'T' THEN -- Means either lane/schedule has been passed in
7760: IF p_save_flag <> 'M' THEN -- VVP (OM Est change)
7761: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_price.COUNT ||' FC temp price records resulted ');
7762: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_charge.COUNT ||' FC temp charge records resulted ');
7763: ELSIF p_save_flag = 'M' THEN -- Means either lane/schedule has been passed in
7764: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_price.COUNT ||' FC main price records resulted ');
7765: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_charge.COUNT ||' FC main charge records resulted ');
7758: -- already handled inside the called procedure ?
7759: -- IF p_save_flag = 'T' THEN -- Means either lane/schedule has been passed in
7760: IF p_save_flag <> 'M' THEN -- VVP (OM Est change)
7761: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_price.COUNT ||' FC temp price records resulted ');
7762: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_charge.COUNT ||' FC temp charge records resulted ');
7763: ELSIF p_save_flag = 'M' THEN -- Means either lane/schedule has been passed in
7764: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_price.COUNT ||' FC main price records resulted ');
7765: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_charge.COUNT ||' FC main charge records resulted ');
7766: END IF;
7760: IF p_save_flag <> 'M' THEN -- VVP (OM Est change)
7761: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_price.COUNT ||' FC temp price records resulted ');
7762: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_charge.COUNT ||' FC temp charge records resulted ');
7763: ELSIF p_save_flag = 'M' THEN -- Means either lane/schedule has been passed in
7764: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_price.COUNT ||' FC main price records resulted ');
7765: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_charge.COUNT ||' FC main charge records resulted ');
7766: END IF;
7767: END IF;
7768:
7761: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_price.COUNT ||' FC temp price records resulted ');
7762: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_temp_charge.COUNT ||' FC temp charge records resulted ');
7763: ELSIF p_save_flag = 'M' THEN -- Means either lane/schedule has been passed in
7764: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_price.COUNT ||' FC main price records resulted ');
7765: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_freight_cost_main_charge.COUNT ||' FC main charge records resulted ');
7766: END IF;
7767: END IF;
7768:
7769: END IF; -- l_is_shipment_flatrate = 'N'
7783: x_return_status => l_return_status ) ;
7784:
7785: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7786: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7787: raise FTE_FREIGHT_PRICING_UTIL.g_MDC_handle_MDC;
7788: END IF;
7789: END IF;
7790:
7791:
7790:
7791:
7792: IF p_save_flag = 'M' THEN
7793:
7794: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'CHARGE');
7795: print_fc_main_rows (
7796: p_fc_main_rows => l_freight_cost_main_charge,
7797: x_return_status => l_return_status );
7798:
7795: print_fc_main_rows (
7796: p_fc_main_rows => l_freight_cost_main_charge,
7797: x_return_status => l_return_status );
7798:
7799: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'BASE PRICE');
7800: print_fc_main_rows (
7801: p_fc_main_rows => l_freight_cost_main_price,
7802: x_return_status => l_return_status );
7803:
7802: x_return_status => l_return_status );
7803:
7804: ELSE
7805:
7806: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'CHARGE');
7807: print_fc_temp_rows (
7808: p_fc_temp_rows => l_freight_cost_temp_charge,
7809: x_return_status => l_return_status );
7810:
7807: print_fc_temp_rows (
7808: p_fc_temp_rows => l_freight_cost_temp_charge,
7809: x_return_status => l_return_status );
7810:
7811: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'BASE PRICE');
7812: print_fc_temp_rows (
7813: p_fc_temp_rows => l_freight_cost_temp_price,
7814: x_return_status => l_return_status );
7815:
7850: <> g_default_category_id )
7851: THEN
7852: l_freight_cost_temp_price(k).commodity_category_id
7853: := g_rolledup_lines(l_freight_cost_temp_price(k).delivery_detail_id).category_id;
7854: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
7855: 'delivery_detail_id='||l_freight_cost_temp_price(k).delivery_detail_id
7856: ||' commodity_category_id ='||l_freight_cost_temp_price(k).commodity_category_id);
7857: END IF;
7858:
7857: END IF;
7858:
7859:
7860:
7861: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Reprinting BASE PRICE');
7862: print_fc_temp_rows (
7863: p_fc_temp_rows => l_freight_cost_temp_price,
7864: x_return_status => l_return_status );
7865:
7871: x_return_status => l_return_status);
7872:
7873: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7874: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7875: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost_Temp Price');
7876: raise FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed;
7877: END IF;
7878: END IF;
7879:
7872:
7873: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7874: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7875: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost_Temp Price');
7876: raise FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed;
7877: END IF;
7878: END IF;
7879:
7880: IF l_freight_cost_temp_price(k).line_type_code <> 'SUMMARY' THEN
7884: EXIT WHEN k=l_freight_cost_temp_price.LAST;
7885: k := l_freight_cost_temp_price.NEXT(k);
7886: END LOOP;
7887: ELSE
7888: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Temp fc base price record got created');
7889: END IF;
7890:
7891: n := l_freight_cost_temp_charge.FIRST;
7892: IF n IS NOT NULL THEN
7916: <> g_default_category_id )
7917: THEN
7918: l_freight_cost_temp_charge(n).commodity_category_id
7919: := g_rolledup_lines(l_freight_cost_temp_charge(n).delivery_detail_id).category_id;
7920: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
7921: 'delivery_detail_id='||l_freight_cost_temp_charge(n).delivery_detail_id
7922: ||' commodity_category_id ='||l_freight_cost_temp_charge(n).commodity_category_id);
7923: END IF;
7924:
7929: x_return_status => l_return_status);
7930:
7931: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7932: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7933: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost_Temp Charge');
7934: raise FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed;
7935: END IF;
7936: END IF;
7937:
7930:
7931: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7932: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7933: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost_Temp Charge');
7934: raise FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed;
7935: END IF;
7936: END IF;
7937:
7938: EXIT WHEN n=l_freight_cost_temp_charge.LAST;
7938: EXIT WHEN n=l_freight_cost_temp_charge.LAST;
7939: n := l_freight_cost_temp_charge.NEXT(n);
7940: END LOOP;
7941: ELSE
7942: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Temp fc charge record got created');
7943: END IF;
7944:
7945: ELSIF p_save_flag = 'M' THEN
7946:
7947: l := l_fc_main_update_rows.FIRST;
7948: IF l IS NOT NULL THEN
7949: LOOP
7950: -- For now
7951: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Update row delivery leg id : '||l_fc_main_update_rows(l).delivery_leg_id);
7952:
7953: l_fc_main_update_rows(l).last_update_date := sysdate;
7954: l_fc_main_update_rows(l).last_updated_by := FND_GLOBAL.USER_ID;
7955: l_fc_main_update_rows(l).last_update_login := FND_GLOBAL.LOGIN_ID;
7959: x_return_status => l_return_status);
7960:
7961: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7962: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7963: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Update_Freight_Cost');
7964: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
7965: ELSE
7966: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_WRN,'Update_Freight_Cost returned warning ');
7967: END IF;
7960:
7961: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7962: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7963: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Update_Freight_Cost');
7964: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
7965: ELSE
7966: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_WRN,'Update_Freight_Cost returned warning ');
7967: END IF;
7968: END IF;
7962: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7963: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Update_Freight_Cost');
7964: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
7965: ELSE
7966: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_WRN,'Update_Freight_Cost returned warning ');
7967: END IF;
7968: END IF;
7969:
7970: EXIT WHEN l=l_fc_main_update_rows.LAST;
7969:
7970: EXIT WHEN l=l_fc_main_update_rows.LAST;
7971: l := l_fc_main_update_rows.NEXT(l);
7972: END LOOP;
7973: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done Update_Freight_Cost ');
7974: ELSE
7975: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Main fc update record got created');
7976: END IF;
7977:
7971: l := l_fc_main_update_rows.NEXT(l);
7972: END LOOP;
7973: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Done Update_Freight_Cost ');
7974: ELSE
7975: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Main fc update record got created');
7976: END IF;
7977:
7978: m := l_freight_cost_main_price.FIRST;
7979: IF m IS NOT NULL THEN
7977:
7978: m := l_freight_cost_main_price.FIRST;
7979: IF m IS NOT NULL THEN
7980: LOOP
7981: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Create base price delivery detail id : '||l_freight_cost_main_price(m).delivery_detail_id);
7982: l_freight_cost_main_price(m).creation_date := SYSDATE;
7983: l_freight_cost_main_price(m).created_by := FND_GLOBAL.USER_ID;
7984: l_freight_cost_main_price(m).last_update_date := sysdate;
7985: l_freight_cost_main_price(m).last_updated_by := FND_GLOBAL.USER_ID;
7992: <> g_default_category_id )
7993: THEN
7994: l_freight_cost_main_price(m).commodity_category_id
7995: := g_rolledup_lines(l_freight_cost_main_price(m).delivery_detail_id).category_id;
7996: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
7997: 'delivery_detail_id='||l_freight_cost_main_price(m).delivery_detail_id
7998: ||' commodity_category_id ='||l_freight_cost_main_price(m).commodity_category_id);
7999: END IF;
8000:
8005: x_return_status => l_return_status);
8006:
8007: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8008: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8009: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost Main Price');
8010: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
8011: END IF;
8012: END IF;
8013:
8006:
8007: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8008: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8009: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost Main Price');
8010: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
8011: END IF;
8012: END IF;
8013:
8014: IF l_freight_cost_main_price(m).line_type_code <> 'SUMMARY' THEN
8018: EXIT WHEN m=l_freight_cost_main_price.LAST;
8019: m := l_freight_cost_main_price.NEXT(m);
8020: END LOOP;
8021: ELSE
8022: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Main fc base price record got created');
8023: END IF;
8024:
8025: o := l_freight_cost_main_charge.FIRST;
8026: IF o IS NOT NULL THEN
8024:
8025: o := l_freight_cost_main_charge.FIRST;
8026: IF o IS NOT NULL THEN
8027: LOOP
8028: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Create charge delivery detail id : '||l_freight_cost_main_charge(o).delivery_detail_id);
8029: l_freight_cost_main_charge(o).creation_date := SYSDATE;
8030: l_freight_cost_main_charge(o).created_by := FND_GLOBAL.USER_ID;
8031: l_freight_cost_main_charge(o).last_update_date := sysdate;
8032: l_freight_cost_main_charge(o).last_updated_by := FND_GLOBAL.USER_ID;
8040: <> g_default_category_id )
8041: THEN
8042: l_freight_cost_main_charge(o).commodity_category_id
8043: := g_rolledup_lines(l_freight_cost_main_charge(o).delivery_detail_id).category_id;
8044: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
8045: 'delivery_detail_id='||l_freight_cost_main_charge(o).delivery_detail_id
8046: ||' commodity_category_id ='||l_freight_cost_main_charge(o).commodity_category_id);
8047: END IF;
8048:
8053: x_return_status => l_return_status);
8054:
8055: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8056: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8057: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost Main Charge');
8058: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
8059: END IF;
8060: END IF;
8061:
8054:
8055: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8056: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8057: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Create_Freight_Cost Main Charge');
8058: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
8059: END IF;
8060: END IF;
8061:
8062: EXIT WHEN o=l_freight_cost_main_charge.LAST;
8062: EXIT WHEN o=l_freight_cost_main_charge.LAST;
8063: o := l_freight_cost_main_charge.NEXT(o);
8064: END LOOP;
8065: ELSE
8066: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Main fc charge record got created');
8067: END IF;
8068:
8069: ELSIF p_save_flag = 'P' THEN -- pl/sql table (OM est)
8070:
8078: <> g_default_category_id )
8079: THEN
8080: l_freight_cost_temp_price(k).commodity_category_id
8081: := g_rolledup_lines(l_freight_cost_temp_price(k).delivery_detail_id).category_id;
8082: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
8083: 'delivery_detail_id='||l_freight_cost_temp_price(k).delivery_detail_id
8084: ||' commodity_category_id ='||l_freight_cost_temp_price(k).commodity_category_id);
8085: END IF;
8086:
8087: EXIT WHEN k=l_freight_cost_temp_price.LAST;
8088: k := l_freight_cost_temp_price.NEXT(k);
8089: END LOOP;
8090: ELSE
8091: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Temp fc base price record got created');
8092: END IF;
8093:
8094: n := l_freight_cost_temp_charge.FIRST;
8095: IF n IS NOT NULL THEN
8101: <> g_default_category_id )
8102: THEN
8103: l_freight_cost_temp_charge(n).commodity_category_id
8104: := g_rolledup_lines(l_freight_cost_temp_charge(n).delivery_detail_id).category_id;
8105: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
8106: 'delivery_detail_id='||l_freight_cost_temp_charge(n).delivery_detail_id
8107: ||' commodity_category_id ='||l_freight_cost_temp_charge(n).commodity_category_id);
8108: END IF;
8109:
8110: EXIT WHEN n=l_freight_cost_temp_charge.LAST;
8111: n := l_freight_cost_temp_charge.NEXT(n);
8112: END LOOP;
8113: ELSE
8114: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'No Temp fc charge record got created');
8115: END IF;
8116:
8117: END IF;
8118:
8118:
8119: x_freight_cost_temp_price := l_freight_cost_temp_price;
8120: x_freight_cost_temp_charge := l_freight_cost_temp_charge;
8121:
8122: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8123:
8124: EXCEPTION
8125: WHEN FND_API.G_EXC_ERROR THEN
8126: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8123:
8124: EXCEPTION
8125: WHEN FND_API.G_EXC_ERROR THEN
8126: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8127: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
8128: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8129:
8130:
8131:
8124: EXCEPTION
8125: WHEN FND_API.G_EXC_ERROR THEN
8126: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8127: FTE_FREIGHT_PRICING_UTIL.set_exception('process_shipment_pattern',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
8128: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8129:
8130:
8131:
8132: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_handle_MDC THEN
8128: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8129:
8130:
8131:
8132: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_handle_MDC THEN
8133: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8134: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_handle_MDC');
8135: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8136:
8130:
8131:
8132: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_handle_MDC THEN
8133: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8134: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_handle_MDC');
8135: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8136:
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8131:
8132: WHEN FTE_FREIGHT_PRICING_UTIL.g_MDC_handle_MDC THEN
8133: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8134: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_handle_MDC');
8135: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8136:
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8133: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8134: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_MDC_handle_MDC');
8135: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8136:
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8135: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8136:
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8136:
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8137: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
8138: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8139: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lanesched_seg');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8140: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8141: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lane_info THEN
8142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8143: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_lane_info');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8144: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8145: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_segment_service_type THEN
8146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8147: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_segment_service_type');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8148: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8149: WHEN FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed THEN
8150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8151: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_currency_code_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8152: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8153: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pattern_failed THEN
8154: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8155: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pattern_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8156: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8157: WHEN FTE_FREIGHT_PRICING_UTIL.g_special_conditions_failed THEN
8158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8159: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_special_conditions_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8160: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8161: WHEN FTE_FREIGHT_PRICING_UTIL.g_process_qp_output_failed THEN
8162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8163: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_process_qp_output_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8164: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8165: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_fc_temp_failed THEN
8166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8167: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_fc_temp_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8168: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8169: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
8170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8177: WHEN others THEN
8171: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8177: WHEN others THEN
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8172: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8173: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
8174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8177: WHEN others THEN
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8180: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8175: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8177: WHEN others THEN
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8180: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8181: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8182: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8183:
8176: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8177: WHEN others THEN
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8180: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8181: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8182: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8183:
8184: END shipment_pricing;
8177: WHEN others THEN
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8180: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8181: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8182: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8183:
8184: END shipment_pricing;
8185:
8178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8179: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_pricing',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8180: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8181: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8182: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_pricing');
8183:
8184: END shipment_pricing;
8185:
8186: -- This procedure looks up the delivery lines in g_shipment_line_rows and
8212:
8213: i NUMBER;
8214: l_msi_attrib_rec c_get_msi_attribs%rowtype;
8215:
8216: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8217:
8218: BEGIN
8219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8220: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8216: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8217:
8218: BEGIN
8219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8220: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8221: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'flatten_shipment','start');
8222:
8223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows COUNT : '||g_shipment_line_rows.COUNT);
8224:
8217:
8218: BEGIN
8219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8220: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8221: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'flatten_shipment','start');
8222:
8223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows COUNT : '||g_shipment_line_rows.COUNT);
8224:
8225: i := g_shipment_line_rows.FIRST;
8219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8220: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8221: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'flatten_shipment','start');
8222:
8223: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'g_shipment_line_rows COUNT : '||g_shipment_line_rows.COUNT);
8224:
8225: i := g_shipment_line_rows.FIRST;
8226: LOOP
8227:
8236: l_msi_attrib_rec.unit_width := null;
8237: l_msi_attrib_rec.unit_height := null;
8238:
8239:
8240: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Delivery leg Id : '||g_shipment_line_rows(i).delivery_leg_id);
8241:
8242: IF (p_delivery_leg_id IS NOT NULL) AND (g_shipment_line_rows(i).delivery_leg_id <> p_delivery_leg_id) THEN
8243: goto nextpass;
8244: END IF;
8242: IF (p_delivery_leg_id IS NOT NULL) AND (g_shipment_line_rows(i).delivery_leg_id <> p_delivery_leg_id) THEN
8243: goto nextpass;
8244: END IF;
8245:
8246: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Delivery leg Id : '||g_shipment_line_rows(i).delivery_leg_id);
8247: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Delivery Detail Id : '||g_shipment_line_rows(i).delivery_detail_id);
8248:
8249: -- inventory_item_id can be null on delivery details for various reasons :
8250: -- 1) FTE J estimate rate
8243: goto nextpass;
8244: END IF;
8245:
8246: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Delivery leg Id : '||g_shipment_line_rows(i).delivery_leg_id);
8247: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Delivery Detail Id : '||g_shipment_line_rows(i).delivery_detail_id);
8248:
8249: -- inventory_item_id can be null on delivery details for various reasons :
8250: -- 1) FTE J estimate rate
8251: -- 2) FTE J one-time items (OKE, inbound)
8276: OPEN c_get_msi_attribs(g_shipment_line_rows(i).inventory_item_id);
8277: FETCH c_get_msi_attribs INTO l_msi_attrib_rec;
8278: CLOSE c_get_msi_attribs;
8279: IF (l_msi_attrib_rec.unit_weight is null) THEN
8280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Warning : Item weight is null ');
8281: END IF;
8282: ELSE
8283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Inventory_item_id is null');
8284: END IF;
8279: IF (l_msi_attrib_rec.unit_weight is null) THEN
8280: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Warning : Item weight is null ');
8281: END IF;
8282: ELSE
8283: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Inventory_item_id is null');
8284: END IF;
8285:
8286: -- Following fields are obtained from msi
8287: x_first_level_rows(i).dim_uom := l_msi_attrib_rec.dimension_uom_code;
8315: CLOSE c_get_def_uoms;
8316:
8317: IF (l_msi_attrib_rec.weight_uom_code IS NULL
8318: OR l_msi_attrib_rec.weight_uom_code IS NULL ) THEN
8319: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Warning : Shipping parameters - default weight / volume class missing');
8320: END IF;
8321: x_first_level_rows(i).gross_weight := 0;
8322: x_first_level_rows(i).weight_uom := l_msi_attrib_rec.weight_uom_code;
8323: x_first_level_rows(i).volume := 0;
8333: EXIT WHEN i=g_shipment_line_rows.LAST;
8334: i := g_shipment_line_rows.NEXT(i);
8335:
8336: END LOOP;
8337: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Exit loop ');
8338: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8339:
8340: EXCEPTION
8341: WHEN others THEN
8334: i := g_shipment_line_rows.NEXT(i);
8335:
8336: END LOOP;
8337: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Exit loop ');
8338: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8339:
8340: EXCEPTION
8341: WHEN others THEN
8342: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8339:
8340: EXCEPTION
8341: WHEN others THEN
8342: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8343: FTE_FREIGHT_PRICING_UTIL.set_exception('flatten_shipment',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8344: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8345: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8347: END flatten_shipment;
8340: EXCEPTION
8341: WHEN others THEN
8342: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8343: FTE_FREIGHT_PRICING_UTIL.set_exception('flatten_shipment',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8344: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8345: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8347: END flatten_shipment;
8348:
8341: WHEN others THEN
8342: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8343: FTE_FREIGHT_PRICING_UTIL.set_exception('flatten_shipment',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8344: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8345: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8347: END flatten_shipment;
8348:
8349: PROCEDURE get_top_level_charges (
8342: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8343: FTE_FREIGHT_PRICING_UTIL.set_exception('flatten_shipment',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8344: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8345: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'flatten_shipment');
8347: END flatten_shipment;
8348:
8349: PROCEDURE get_top_level_charges (
8350: p_first_level_rows IN shpmnt_content_tab_type, -- Will get indexed on delivery_detail_id
8363: l_service_line_index NUMBER:=0;
8364: l_freight_cost_type_id NUMBER:=0;
8365: l_freight_cost_type_code VARCHAR2(200);
8366:
8367: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8368:
8369: BEGIN
8370:
8371: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8368:
8369: BEGIN
8370:
8371: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8372: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8373: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_top_level_charges','start');
8374:
8375: i := p_first_level_rows.FIRST;
8376: LOOP
8369: BEGIN
8370:
8371: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8372: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8373: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_top_level_charges','start');
8374:
8375: i := p_first_level_rows.FIRST;
8376: LOOP
8377:
8391:
8392: EXIT WHEN i=p_first_level_rows.LAST;
8393: i := p_first_level_rows.NEXT(i);
8394: END LOOP;
8395: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_top_level_charges');
8396:
8397: EXCEPTION
8398: WHEN others THEN
8399: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8396:
8397: EXCEPTION
8398: WHEN others THEN
8399: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8400: FTE_FREIGHT_PRICING_UTIL.set_exception('get_top_level_charges',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8401: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8402: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8403: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_top_level_charges');
8404: END get_top_level_charges;
8397: EXCEPTION
8398: WHEN others THEN
8399: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8400: FTE_FREIGHT_PRICING_UTIL.set_exception('get_top_level_charges',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8401: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8402: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8403: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_top_level_charges');
8404: END get_top_level_charges;
8405:
8398: WHEN others THEN
8399: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8400: FTE_FREIGHT_PRICING_UTIL.set_exception('get_top_level_charges',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8401: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8402: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8403: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_top_level_charges');
8404: END get_top_level_charges;
8405:
8406: -- Public Procedures
8399: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8400: FTE_FREIGHT_PRICING_UTIL.set_exception('get_top_level_charges',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8401: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8402: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8403: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_top_level_charges');
8404: END get_top_level_charges;
8405:
8406: -- Public Procedures
8407:
8421: AND b.parameter_id = 1;
8422:
8423: l_consolidation_allowed VARCHAR2(1);
8424: l_lane_function FTE.FTE_PRC_PARAMETERS.VALUE_FROM%TYPE;
8425: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8426:
8427: BEGIN
8428:
8429: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8425: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8426:
8427: BEGIN
8428:
8429: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8430: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'is_consolidated','start');
8431:
8432: -- OPEN c_get_consolidate_flag;
8433: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8426:
8427: BEGIN
8428:
8429: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8430: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'is_consolidated','start');
8431:
8432: -- OPEN c_get_consolidate_flag;
8433: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8434: -- CLOSE c_get_consolidate_flag;
8433: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8434: -- CLOSE c_get_consolidate_flag;
8435:
8436: -- IF l_consolidation_allowed = 'Y' THEN
8437: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8438: -- RETURN TRUE;
8439: -- ELSE
8440: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8441: -- RETURN FALSE;
8436: -- IF l_consolidation_allowed = 'Y' THEN
8437: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8438: -- RETURN TRUE;
8439: -- ELSE
8440: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8441: -- RETURN FALSE;
8442: -- END IF;
8443:
8444: -- *** FTE J --
8451: FETCH c_get_lane_function INTO l_lane_function;
8452: CLOSE c_get_lane_function;
8453:
8454: IF l_lane_function = 'FLAT' THEN
8455: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8456: RETURN FALSE;
8457: ELSE
8458: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8459: RETURN TRUE;
8454: IF l_lane_function = 'FLAT' THEN
8455: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8456: RETURN FALSE;
8457: ELSE
8458: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8459: RETURN TRUE;
8460: END IF;
8461: EXCEPTION
8462: WHEN others THEN
8460: END IF;
8461: EXCEPTION
8462: WHEN others THEN
8463: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8465: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8468: END is_consolidated;
8461: EXCEPTION
8462: WHEN others THEN
8463: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8465: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8468: END is_consolidated;
8469:
8462: WHEN others THEN
8463: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8465: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8468: END is_consolidated;
8469:
8470: FUNCTION get_segment_from_dleg (
8463: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8465: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8466: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8468: END is_consolidated;
8469:
8470: FUNCTION get_segment_from_dleg (
8471: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8483: AND wdl.delivery_leg_id = p_delivery_leg_id;
8484:
8485: l_segment_id NUMBER;
8486:
8487: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8488:
8489: BEGIN
8490:
8491: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8487: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8488:
8489: BEGIN
8490:
8491: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8492: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_segment_from_dleg','start');
8493: OPEN c_get_segment;
8494: FETCH c_get_segment INTO l_segment_id;
8495: CLOSE c_get_segment;
8488:
8489: BEGIN
8490:
8491: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8492: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_segment_from_dleg','start');
8493: OPEN c_get_segment;
8494: FETCH c_get_segment INTO l_segment_id;
8495: CLOSE c_get_segment;
8496:
8493: OPEN c_get_segment;
8494: FETCH c_get_segment INTO l_segment_id;
8495: CLOSE c_get_segment;
8496:
8497: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8498: RETURN l_segment_id;
8499:
8500: EXCEPTION
8501: WHEN others THEN
8499:
8500: EXCEPTION
8501: WHEN others THEN
8502: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8503: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8504: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8507: END get_segment_from_dleg;
8500: EXCEPTION
8501: WHEN others THEN
8502: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8503: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8504: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8507: END get_segment_from_dleg;
8508:
8501: WHEN others THEN
8502: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8503: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8504: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8507: END get_segment_from_dleg;
8508:
8509: FUNCTION get_delivery_from_dleg (
8502: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8503: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8504: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8507: END get_segment_from_dleg;
8508:
8509: FUNCTION get_delivery_from_dleg (
8510: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8515: WHERE delivery_leg_id = p_delivery_leg_id;
8516:
8517: l_delivery_id NUMBER;
8518:
8519: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8520:
8521: BEGIN
8522:
8523: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8519: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8520:
8521: BEGIN
8522:
8523: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8524: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_from_dleg','start');
8525:
8526: OPEN c_get_delivery;
8527: FETCH c_get_delivery INTO l_delivery_id;
8520:
8521: BEGIN
8522:
8523: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8524: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_from_dleg','start');
8525:
8526: OPEN c_get_delivery;
8527: FETCH c_get_delivery INTO l_delivery_id;
8528: CLOSE c_get_delivery;
8526: OPEN c_get_delivery;
8527: FETCH c_get_delivery INTO l_delivery_id;
8528: CLOSE c_get_delivery;
8529:
8530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8531: RETURN l_delivery_id;
8532:
8533: EXCEPTION
8534: WHEN others THEN
8532:
8533: EXCEPTION
8534: WHEN others THEN
8535: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8536: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8537: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8538: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8540: END get_delivery_from_dleg;
8533: EXCEPTION
8534: WHEN others THEN
8535: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8536: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8537: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8538: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8540: END get_delivery_from_dleg;
8541:
8534: WHEN others THEN
8535: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8536: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8537: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8538: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8540: END get_delivery_from_dleg;
8541:
8542: FUNCTION get_fc_id_from_dleg (
8535: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8536: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8537: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8538: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8540: END get_delivery_from_dleg;
8541:
8542: FUNCTION get_fc_id_from_dleg (
8543: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8551: AND line_type_code = 'SUMMARY';
8552:
8553: l_freight_cost_id NUMBER;
8554:
8555: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8556:
8557: BEGIN
8558:
8559: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8555: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8556:
8557: BEGIN
8558:
8559: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8560: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8561:
8562:
8563: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8556:
8557: BEGIN
8558:
8559: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8560: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8561:
8562:
8563: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8564:
8559: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8560: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8561:
8562:
8563: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8564:
8565: OPEN c_get_freight_cost_id;
8566: FETCH c_get_freight_cost_id INTO l_freight_cost_id;
8567: CLOSE c_get_freight_cost_id;
8565: OPEN c_get_freight_cost_id;
8566: FETCH c_get_freight_cost_id INTO l_freight_cost_id;
8567: CLOSE c_get_freight_cost_id;
8568:
8569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'FC ID:'||l_freight_cost_id);
8570:
8571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8572: RETURN l_freight_cost_id;
8573:
8567: CLOSE c_get_freight_cost_id;
8568:
8569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'FC ID:'||l_freight_cost_id);
8570:
8571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8572: RETURN l_freight_cost_id;
8573:
8574: EXCEPTION
8575: WHEN others THEN
8573:
8574: EXCEPTION
8575: WHEN others THEN
8576: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8577: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8578: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8579: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8580: END get_fc_id_from_dleg;
8581:
8574: EXCEPTION
8575: WHEN others THEN
8576: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8577: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8578: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8579: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8580: END get_fc_id_from_dleg;
8581:
8582: PROCEDURE delete_invalid_fc_recs (
8575: WHEN others THEN
8576: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8577: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8578: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8579: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8580: END get_fc_id_from_dleg;
8581:
8582: PROCEDURE delete_invalid_fc_recs (
8583: p_segment_id IN NUMBER DEFAULT NULL,
8584: p_delivery_leg_id IN NUMBER DEFAULT NULL,
8585: x_return_status OUT NOCOPY VARCHAR2 )
8586: IS
8587:
8588: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8589:
8590:
8591:
8592: CURSOR c_lock_wfc_1(c_segment_id NUMBER)
8617:
8618: BEGIN
8619:
8620: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8621: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8622: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_invalid_fc_recs','start');
8623:
8624: -- Here determine if a trip has been passed or a delivery leg
8625:
8618: BEGIN
8619:
8620: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8621: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8622: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_invalid_fc_recs','start');
8623:
8624: -- Here determine if a trip has been passed or a delivery leg
8625:
8626: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8625:
8626: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8627:
8628: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8629: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8630: RETURN;
8631:
8632: ELSIF p_delivery_leg_id IS NULL THEN
8633:
8689:
8690:
8691:
8692: END IF;
8693: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8694:
8695: EXCEPTION
8696: WHEN others THEN
8697: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8694:
8695: EXCEPTION
8696: WHEN others THEN
8697: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8698: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8700: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8701: END delete_invalid_fc_recs;
8702:
8695: EXCEPTION
8696: WHEN others THEN
8697: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8698: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8700: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8701: END delete_invalid_fc_recs;
8702:
8703: PROCEDURE unmark_reprice_required (
8696: WHEN others THEN
8697: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8698: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8699: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8700: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8701: END delete_invalid_fc_recs;
8702:
8703: PROCEDURE unmark_reprice_required (
8704: p_segment_id IN NUMBER DEFAULT NULL,
8705: p_delivery_leg_id IN NUMBER DEFAULT NULL,
8706: x_return_status OUT NOCOPY VARCHAR2 )
8707: IS
8708:
8709: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8710:
8711: BEGIN
8712:
8713: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8710:
8711: BEGIN
8712:
8713: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8714: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8715: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'unmark_reprice_required','start');
8716:
8717: -- Here determine if a trip has been passed or a delivery leg
8718:
8711: BEGIN
8712:
8713: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8714: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8715: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'unmark_reprice_required','start');
8716:
8717: -- Here determine if a trip has been passed or a delivery leg
8718:
8719: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8718:
8719: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8720:
8721: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8722: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8723: RETURN;
8724:
8725: ELSIF p_delivery_leg_id IS NULL THEN
8726:
8744: SET reprice_required = 'N'
8745: WHERE delivery_leg_id = p_delivery_leg_id;
8746:
8747: END IF;
8748: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8749:
8750: EXCEPTION
8751: WHEN others THEN
8752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8749:
8750: EXCEPTION
8751: WHEN others THEN
8752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8753: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8754: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8755: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8756: END unmark_reprice_required;
8757:
8750: EXCEPTION
8751: WHEN others THEN
8752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8753: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8754: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8755: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8756: END unmark_reprice_required;
8757:
8758: PROCEDURE shipment_price_consolidate (
8751: WHEN others THEN
8752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8753: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8754: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8755: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8756: END unmark_reprice_required;
8757:
8758: PROCEDURE shipment_price_consolidate (
8759: p_delivery_leg_id IN NUMBER DEFAULT NULL, -- Gets either Dleg or wsh trip
8970:
8971: l_initial_pickup_date DATE;
8972: l_ultimate_dropoff_date DATE;
8973:
8974: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
8975:
8976: BEGIN
8977:
8978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8975:
8976: BEGIN
8977:
8978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8979: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8980: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8981:
8982: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8976: BEGIN
8977:
8978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8979: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8980: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8981:
8982: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8979: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8980: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8981:
8982: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8985:
8986: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8979: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8980: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8981:
8982: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8985:
8986: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8987:
8980: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8981:
8982: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8985:
8986: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8987:
8988: raise FTE_FREIGHT_PRICING_UTIL.g_noleg_segment;
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8985:
8986: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8987:
8988: raise FTE_FREIGHT_PRICING_UTIL.g_noleg_segment;
8989:
8990: ELSIF p_segment_id IS NOT NULL THEN
8991: validate_nontl_trip(
8992: p_trip_id => p_segment_id,
9047: g_shipment_line_rows(l_delvy_det_rec.delivery_detail_id) := l_delvy_det_rec;
9048: END LOOP;
9049: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9050: CLOSE c_delivery_from_trip;
9051: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9052: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9053: --raise others; -- Should not happen ie. unexpected error
9054: ELSE
9055: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9048: END LOOP;
9049: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9050: CLOSE c_delivery_from_trip;
9051: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9052: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9053: --raise others; -- Should not happen ie. unexpected error
9054: ELSE
9055: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9056: END IF;
9051: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9052: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9053: --raise others; -- Should not happen ie. unexpected error
9054: ELSE
9055: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9056: END IF;
9057:
9058: CLOSE c_delivery_from_trip;
9059:
9071:
9072: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9073: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9074: ROLLBACK to before_pricing;
9075: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9076: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9077: END IF;
9078: ELSE
9079: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9072: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9073: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9074: ROLLBACK to before_pricing;
9075: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9076: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9077: END IF;
9078: ELSE
9079: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9080: END IF;
9075: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9076: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9077: END IF;
9078: ELSE
9079: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9080: END IF;
9081:
9082: flatten_shipment (
9083: x_first_level_rows => l_first_level_rows,
9084: x_return_status => l_return_status );
9085:
9086: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9088: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:flatten_shipment ');
9089: ROLLBACK to before_pricing;
9090: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9091: END IF;
9092: ELSE -- What happens if no first level rows are created
9086: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9088: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:flatten_shipment ');
9089: ROLLBACK to before_pricing;
9090: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9091: END IF;
9092: ELSE -- What happens if no first level rows are created
9093: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9094: -- Should never happen AG 05/10
9089: ROLLBACK to before_pricing;
9090: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9091: END IF;
9092: ELSE -- What happens if no first level rows are created
9093: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9094: -- Should never happen AG 05/10
9095: IF l_first_level_rows.COUNT = 0 THEN
9096: ROLLBACK to before_pricing;
9097: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9093: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9094: -- Should never happen AG 05/10
9095: IF l_first_level_rows.COUNT = 0 THEN
9096: ROLLBACK to before_pricing;
9097: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9098: END IF;
9099: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 2 : '||l_first_level_rows.COUNT);
9100: END IF;
9101:
9095: IF l_first_level_rows.COUNT = 0 THEN
9096: ROLLBACK to before_pricing;
9097: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9098: END IF;
9099: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 2 : '||l_first_level_rows.COUNT);
9100: END IF;
9101:
9102: -- Scoped out for patch H
9103: /*
9130:
9131: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9133: ROLLBACK to before_pricing;
9134: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9135: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9136: END IF;
9137: ELSE -- What happens if no first level rows are created
9138: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9131: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9133: ROLLBACK to before_pricing;
9134: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9135: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9136: END IF;
9137: ELSE -- What happens if no first level rows are created
9138: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9139: END IF;
9134: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9135: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9136: END IF;
9137: ELSE -- What happens if no first level rows are created
9138: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9139: END IF;
9140:
9141: -- Here the reprice required flag for all the delivery legs for this segment should be marked as 'N'
9142: unmark_reprice_required (
9145:
9146: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9148: ROLLBACK to before_pricing;
9149: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9150: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9151: END IF;
9152: ELSE -- What happens if no first level rows are created
9153: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9146: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9148: ROLLBACK to before_pricing;
9149: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9150: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9151: END IF;
9152: ELSE -- What happens if no first level rows are created
9153: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9154: END IF;
9149: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9150: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9151: END IF;
9152: ELSE -- What happens if no first level rows are created
9153: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9154: END IF;
9155:
9156: ELSE -- Need to call separately for each different delivery leg in the segment
9157: -- if it's reprice_required flag = 'Y'
9163:
9164: IF (p_check_reprice_flag = 'Y' AND g_shipment_line_rows(i).reprice_required = 'Y') OR
9165: p_check_reprice_flag = 'N' THEN
9166:
9167: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,'Adding delivery leg id :'||g_shipment_line_rows(i).delivery_leg_id||' to l_dlvy');
9168: l_dlvy(g_shipment_line_rows(i).delivery_leg_id) := g_shipment_line_rows(i).delivery_leg_id;
9169: END IF;
9170: END IF;
9171: EXIT WHEN i=g_shipment_line_rows.LAST;
9179:
9180: l_first_level_rows.delete;
9181: l_first_level_charges.delete;
9182:
9183: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : First level lines initialized ');
9184:
9185: -- Need to delete existing freight cost records
9186: -- for this delivery leg
9187:
9191:
9192: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9193: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9194: ROLLBACK to before_pricing;
9195: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9196: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9197: END IF;
9198: ELSE
9199: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9192: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9193: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9194: ROLLBACK to before_pricing;
9195: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9196: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9197: END IF;
9198: ELSE
9199: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9200: END IF;
9195: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9196: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9197: END IF;
9198: ELSE
9199: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9200: END IF;
9201:
9202: flatten_shipment (
9203: p_delivery_leg_id => l_dlvy(j),
9205: x_return_status => l_return_status );
9206:
9207: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9208: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9209: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:flatten_shipment ');
9210: ROLLBACK to before_pricing;
9211: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9212: END IF;
9213: ELSE -- What happens if no first level rows are created
9207: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9208: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9209: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:flatten_shipment ');
9210: ROLLBACK to before_pricing;
9211: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9212: END IF;
9213: ELSE -- What happens if no first level rows are created
9214: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9215: -- Should not ever happen AG 05/10
9210: ROLLBACK to before_pricing;
9211: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9212: END IF;
9213: ELSE -- What happens if no first level rows are created
9214: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9215: -- Should not ever happen AG 05/10
9216: IF l_first_level_rows.COUNT = 0 THEN
9217: ROLLBACK to before_pricing;
9218: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9214: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9215: -- Should not ever happen AG 05/10
9216: IF l_first_level_rows.COUNT = 0 THEN
9217: ROLLBACK to before_pricing;
9218: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9219: END IF;
9220: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 3 : '||l_first_level_rows.COUNT);
9221: END IF;
9222:
9216: IF l_first_level_rows.COUNT = 0 THEN
9217: ROLLBACK to before_pricing;
9218: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9219: END IF;
9220: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 3 : '||l_first_level_rows.COUNT);
9221: END IF;
9222:
9223: /*
9224: get_top_level_charges (
9240:
9241: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9242: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9243: ROLLBACK to before_pricing;
9244: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9245: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9246: END IF;
9247: ELSE -- What happens if no first level rows are created
9248: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9241: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9242: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9243: ROLLBACK to before_pricing;
9244: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9245: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9246: END IF;
9247: ELSE -- What happens if no first level rows are created
9248: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9249: END IF;
9244: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9245: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9246: END IF;
9247: ELSE -- What happens if no first level rows are created
9248: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9249: END IF;
9250:
9251: -- Here the reprice required flag for this delivery leg should be marked as 'N'
9252: unmark_reprice_required (
9255:
9256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9258: ROLLBACK to before_pricing;
9259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9260: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9261: END IF;
9262: ELSE
9263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9258: ROLLBACK to before_pricing;
9259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9260: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9261: END IF;
9262: ELSE
9263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9264: END IF;
9259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9260: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9261: END IF;
9262: ELSE
9263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9264: END IF;
9265:
9266: EXIT WHEN j=l_dlvy.LAST;
9267: j := l_dlvy.NEXT(j);
9270: ELSE
9271: -- Even though reprice_required count > 0
9272: -- No g_shipment_line_rows got created with reprice_required = 'Y'
9273: -- which can arise out of the concerning delivery leg being empty
9274: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9275: END IF;
9276:
9277: END IF;
9278:
9276:
9277: END IF;
9278:
9279: ELSE
9280: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9281: END IF; -- reprice required count > 0
9282:
9283: ELSIF p_delivery_leg_id IS NOT NULL THEN
9284:
9307: g_shipment_line_rows(l_delvy_det_rec.delivery_detail_id) := l_delvy_det_rec;
9308: END LOOP;
9309: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9310: CLOSE c_delivery_from_trip;
9311: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9312: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9313: ELSE
9314: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9315: END IF;
9308: END LOOP;
9309: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9310: CLOSE c_delivery_from_trip;
9311: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9312: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9313: ELSE
9314: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9315: END IF;
9316:
9310: CLOSE c_delivery_from_trip;
9311: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9312: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9313: ELSE
9314: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9315: END IF;
9316:
9317: CLOSE c_delivery_from_trip;
9318:
9325:
9326: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9327: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9328: ROLLBACK to before_pricing;
9329: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9330: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9331: END IF;
9332: ELSE
9333: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9326: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9327: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9328: ROLLBACK to before_pricing;
9329: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9330: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9331: END IF;
9332: ELSE
9333: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9334: END IF;
9329: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9330: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9331: END IF;
9332: ELSE
9333: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9334: END IF;
9335:
9336: flatten_shipment (
9337: x_first_level_rows => l_first_level_rows,
9338: x_return_status => l_return_status );
9339:
9340: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9341: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9342: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:flatten_shipment ');
9343: ROLLBACK to before_pricing;
9344: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9345: END IF;
9346: ELSE -- What happens if no first level rows are created
9340: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9341: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9342: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:flatten_shipment ');
9343: ROLLBACK to before_pricing;
9344: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9345: END IF;
9346: ELSE -- What happens if no first level rows are created
9347: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9348: -- Should never happen AG 5/10
9343: ROLLBACK to before_pricing;
9344: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9345: END IF;
9346: ELSE -- What happens if no first level rows are created
9347: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9348: -- Should never happen AG 5/10
9349: IF l_first_level_rows.COUNT = 0 THEN
9350: ROLLBACK to before_pricing;
9351: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9347: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9348: -- Should never happen AG 5/10
9349: IF l_first_level_rows.COUNT = 0 THEN
9350: ROLLBACK to before_pricing;
9351: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9352: END IF;
9353: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 4 : '||l_first_level_rows.COUNT);
9354: END IF;
9355:
9349: IF l_first_level_rows.COUNT = 0 THEN
9350: ROLLBACK to before_pricing;
9351: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9352: END IF;
9353: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 4 : '||l_first_level_rows.COUNT);
9354: END IF;
9355:
9356: /*
9357: get_top_level_charges (
9383:
9384: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9385: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9386: ROLLBACK to before_pricing;
9387: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9388: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9389: END IF;
9390: ELSE -- What happens if no first level rows are created
9391: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9384: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9385: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9386: ROLLBACK to before_pricing;
9387: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9388: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9389: END IF;
9390: ELSE -- What happens if no first level rows are created
9391: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9392: END IF;
9387: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9388: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9389: END IF;
9390: ELSE -- What happens if no first level rows are created
9391: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9392: END IF;
9393:
9394: -- Here the reprice required flag for all the delivery legs for this segment should be marked as 'N'
9395: unmark_reprice_required (
9398:
9399: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9400: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9401: ROLLBACK to before_pricing;
9402: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9403: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9404: END IF;
9405: ELSE -- What happens if no first level rows are created
9406: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9399: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9400: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9401: ROLLBACK to before_pricing;
9402: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9403: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9404: END IF;
9405: ELSE -- What happens if no first level rows are created
9406: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9407: END IF;
9402: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9403: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9404: END IF;
9405: ELSE -- What happens if no first level rows are created
9406: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9407: END IF;
9408:
9409: ELSE
9410: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9406: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9407: END IF;
9408:
9409: ELSE
9410: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9411: END IF; -- reprice required count > 0
9412:
9413: ELSE
9414:
9421: END LOOP;
9422: IF c_delivery_leg%ROWCOUNT = 0 THEN
9423: CLOSE c_delivery_leg;
9424: ROLLBACK to before_pricing;
9425: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9426: ELSE
9427: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_leg%ROWCOUNT);
9428: END IF;
9429:
9423: CLOSE c_delivery_leg;
9424: ROLLBACK to before_pricing;
9425: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9426: ELSE
9427: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_leg%ROWCOUNT);
9428: END IF;
9429:
9430: CLOSE c_delivery_leg;
9431:
9438:
9439: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9440: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9441: ROLLBACK to before_pricing;
9442: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9443: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9444: END IF;
9445: ELSE
9446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9439: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9440: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9441: ROLLBACK to before_pricing;
9442: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9443: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9444: END IF;
9445: ELSE
9446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9447: END IF;
9442: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9443: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9444: END IF;
9445: ELSE
9446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9447: END IF;
9448:
9449: flatten_shipment (
9450: -- p_delivery_leg_id => p_delivery_leg_id, -- Not required
9452: x_return_status => l_return_status );
9453:
9454: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9455: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9456: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:flatten_shipment ');
9457: ROLLBACK to before_pricing;
9458: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9459: END IF;
9460: ELSE -- What happens if no first level rows are created
9454: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9455: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9456: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:flatten_shipment ');
9457: ROLLBACK to before_pricing;
9458: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9459: END IF;
9460: ELSE -- What happens if no first level rows are created
9461: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9462: -- Should never happen AG 5/10
9457: ROLLBACK to before_pricing;
9458: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9459: END IF;
9460: ELSE -- What happens if no first level rows are created
9461: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9462: -- Should never happen AG 5/10
9463: IF l_first_level_rows.COUNT = 0 THEN
9464: ROLLBACK to before_pricing;
9465: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9461: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9462: -- Should never happen AG 5/10
9463: IF l_first_level_rows.COUNT = 0 THEN
9464: ROLLBACK to before_pricing;
9465: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9466: END IF;
9467: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 5: '||l_first_level_rows.COUNT);
9468: END IF;
9469:
9463: IF l_first_level_rows.COUNT = 0 THEN
9464: ROLLBACK to before_pricing;
9465: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9466: END IF;
9467: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 5: '||l_first_level_rows.COUNT);
9468: END IF;
9469:
9470: /*
9471: get_top_level_charges (
9487:
9488: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9489: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9490: ROLLBACK to before_pricing;
9491: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9492: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9493: END IF;
9494: ELSE -- What happens if no first level rows are created
9495: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9488: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9489: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9490: ROLLBACK to before_pricing;
9491: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9492: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9493: END IF;
9494: ELSE -- What happens if no first level rows are created
9495: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9496: END IF;
9491: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9492: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9493: END IF;
9494: ELSE -- What happens if no first level rows are created
9495: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9496: END IF;
9497:
9498: -- Here the reprice required flag for this delivery leg should be marked as 'N'
9499: unmark_reprice_required (
9502:
9503: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9504: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9505: ROLLBACK to before_pricing;
9506: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9507: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9508: END IF;
9509: ELSE -- What happens if no first level rows are created
9510: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9503: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9504: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9505: ROLLBACK to before_pricing;
9506: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9507: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9508: END IF;
9509: ELSE -- What happens if no first level rows are created
9510: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9511: END IF;
9506: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9507: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9508: END IF;
9509: ELSE -- What happens if no first level rows are created
9510: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9511: END IF;
9512:
9513: END IF;
9514:
9512:
9513: END IF;
9514:
9515: END IF;
9516: --FTE_FREIGHT_PRICING_UTIL.close_logs;
9517: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9518:
9519: EXCEPTION
9520: WHEN g_finished_warning THEN
9513: END IF;
9514:
9515: END IF;
9516: --FTE_FREIGHT_PRICING_UTIL.close_logs;
9517: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9518:
9519: EXCEPTION
9520: WHEN g_finished_warning THEN
9521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9518:
9519: EXCEPTION
9520: WHEN g_finished_warning THEN
9521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9522: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9523: WHEN FND_API.G_EXC_ERROR THEN
9524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9525: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9522: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9523: WHEN FND_API.G_EXC_ERROR THEN
9524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9525: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9522: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9523: WHEN FND_API.G_EXC_ERROR THEN
9524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9525: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9523: WHEN FND_API.G_EXC_ERROR THEN
9524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9525: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9525: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9526: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9527: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9529: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9530: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9531: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9533: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9535: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9537: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9538: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9539: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9541: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9542: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9543: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9545: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9553: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9546: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9553: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9554: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9547: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9553: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9554: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9555: WHEN others THEN
9549: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9553: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9554: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9555: WHEN others THEN
9556: ROLLBACK to before_pricing;
9557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9551: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9553: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9554: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9555: WHEN others THEN
9556: ROLLBACK to before_pricing;
9557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9558: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9554: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9555: WHEN others THEN
9556: ROLLBACK to before_pricing;
9557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9558: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9559: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9561:
9562: END shipment_price_consolidate;
9555: WHEN others THEN
9556: ROLLBACK to before_pricing;
9557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9558: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9559: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9561:
9562: END shipment_price_consolidate;
9563:
9556: ROLLBACK to before_pricing;
9557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9558: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9559: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9561:
9562: END shipment_price_consolidate;
9563:
9564: PROCEDURE shipment_price_consolidate (
9572: l_return_status VARCHAR2(1);
9573:
9574: l_trip_id NUMBER;
9575: l_mode VARCHAR2(30);
9576: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9577: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9578:
9579: BEGIN
9580:
9573:
9574: l_trip_id NUMBER;
9575: l_mode VARCHAR2(30);
9576: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9577: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9578:
9579: BEGIN
9580:
9581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9582:
9583: -- Initialize message list if p_init_msg_list is set to TRUE.
9584: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9585:
9586: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
9587: x_return_status => l_return_status );
9588:
9589: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9590: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9591: x_return_status := l_return_status;
9592: RETURN;
9593: END IF;
9594: ELSE
9595: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9596: END IF;
9597:
9598: END IF;
9599:
9596: END IF;
9597:
9598: END IF;
9599:
9600: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9601: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate_standard','start');
9602:
9603:
9604: l_trip_id:=NULL;
9597:
9598: END IF;
9599:
9600: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9601: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate_standard','start');
9602:
9603:
9604: l_trip_id:=NULL;
9605: l_mode:=NULL;
9618: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9619: THEN
9620: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9621: THEN
9622: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9623: END IF;
9624: END IF;
9625: ELSIF(p_in_attributes.delivery_leg_id IS NOT NULL)
9626: THEN
9635: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9636: THEN
9637: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9638: THEN
9639: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9640: END IF;
9641: END IF;
9642:
9643:
9655: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9656: THEN
9657: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9658: THEN
9659: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9660: END IF;
9661: END IF;
9662:
9663:
9672: p_check_reprice_flag => 'Y',
9673: x_return_status => l_return_status );
9674:
9675: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9676: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful ');
9677: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9678: x_return_status := l_return_status;
9679: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9680: ELSE
9675: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9676: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful ');
9677: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9678: x_return_status := l_return_status;
9679: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9680: ELSE
9681: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9682: END IF;
9683: END IF;
9677: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9678: x_return_status := l_return_status;
9679: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9680: ELSE
9681: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9682: END IF;
9683: END IF;
9684:
9685: -- Standard call to get message count and if count is 1,
9687: FND_MSG_PUB.Count_And_Get (
9688: p_count => x_msg_count,
9689: p_data => x_msg_data );
9690:
9691: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9692: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9693: FTE_FREIGHT_PRICING_UTIL.close_logs;
9694: END IF;
9695:
9689: p_data => x_msg_data );
9690:
9691: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9692: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9693: FTE_FREIGHT_PRICING_UTIL.close_logs;
9694: END IF;
9695:
9696: EXCEPTION
9697:
9694: END IF;
9695:
9696: EXCEPTION
9697:
9698: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9700: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9696: EXCEPTION
9697:
9698: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9700: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9703: FTE_FREIGHT_PRICING_UTIL.close_logs;
9704: END IF;
9697:
9698: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9700: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9703: FTE_FREIGHT_PRICING_UTIL.close_logs;
9704: END IF;
9705:
9699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9700: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9703: FTE_FREIGHT_PRICING_UTIL.close_logs;
9704: END IF;
9705:
9706:
9707: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9703: FTE_FREIGHT_PRICING_UTIL.close_logs;
9704: END IF;
9705:
9706:
9707: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9709: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9710: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9711: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9705:
9706:
9707: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9709: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9710: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9711: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9712: FTE_FREIGHT_PRICING_UTIL.close_logs;
9713: END IF;
9706:
9707: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9709: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9710: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9711: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9712: FTE_FREIGHT_PRICING_UTIL.close_logs;
9713: END IF;
9714:
9708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9709: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9710: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9711: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9712: FTE_FREIGHT_PRICING_UTIL.close_logs;
9713: END IF;
9714:
9715:
9716: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9712: FTE_FREIGHT_PRICING_UTIL.close_logs;
9713: END IF;
9714:
9715:
9716: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9719: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9714:
9715:
9716: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9719: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9721: FTE_FREIGHT_PRICING_UTIL.close_logs;
9722: END IF;
9715:
9716: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9719: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9721: FTE_FREIGHT_PRICING_UTIL.close_logs;
9722: END IF;
9723: WHEN others THEN
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9719: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9721: FTE_FREIGHT_PRICING_UTIL.close_logs;
9722: END IF;
9723: WHEN others THEN
9724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9725: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9721: FTE_FREIGHT_PRICING_UTIL.close_logs;
9722: END IF;
9723: WHEN others THEN
9724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9725: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9726: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9727: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9729: FTE_FREIGHT_PRICING_UTIL.close_logs;
9722: END IF;
9723: WHEN others THEN
9724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9725: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9726: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9727: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9729: FTE_FREIGHT_PRICING_UTIL.close_logs;
9730: END IF;
9723: WHEN others THEN
9724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9725: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9726: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9727: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9729: FTE_FREIGHT_PRICING_UTIL.close_logs;
9730: END IF;
9731: END shipment_price_consolidate;
9725: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9726: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9727: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9729: FTE_FREIGHT_PRICING_UTIL.close_logs;
9730: END IF;
9731: END shipment_price_consolidate;
9732:
9733: PROCEDURE shipment_price_compare (
9768: l_return_status VARCHAR2(1);
9769: l_status VARCHAR2(10);
9770: l_temp BOOLEAN;
9771:
9772: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9773:
9774: BEGIN
9775: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9776: x_return_status => l_return_status );
9771:
9772: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9773:
9774: BEGIN
9775: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9776: x_return_status => l_return_status );
9777:
9778: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9779: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9774: BEGIN
9775: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9776: x_return_status => l_return_status );
9777:
9778: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9779: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9780:
9781: shipment_reprice2 (
9782: p_fte_trip_id => p_fte_trip_id,
9775: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9776: x_return_status => l_return_status );
9777:
9778: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9779: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9780:
9781: shipment_reprice2 (
9782: p_fte_trip_id => p_fte_trip_id,
9783: p_segment_id => p_segment_id,
9799: retcode := '2';
9800: END IF;
9801:
9802: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_status,'');
9803: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice_conc');
9804:
9805: EXCEPTION
9806: WHEN OTHERS THEN
9807: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
9806: WHEN OTHERS THEN
9807: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
9808: errbuf := 'Shipment Reprice is completed with an Unexpected error';
9809: retcode := '2';
9810: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice_conc');
9811:
9812: END shipment_reprice;
9813:
9814: PROCEDURE shipment_reprice2 (
9834: FROM wsh_delivery_legs
9835: WHERE delivery_id = p_delivery_id;
9836:
9837:
9838: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9839: l_mode VARCHAR2(30);
9840: l_trip_id NUMBER;
9841:
9842: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9838: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9839: l_mode VARCHAR2(30);
9840: l_trip_id NUMBER;
9841:
9842: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9843:
9844: BEGIN
9845:
9846: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9845:
9846: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9847:
9848: IF p_init_prc_log = 'Y' THEN
9849: FTE_FREIGHT_PRICING_UTIL.initialize_logging(x_return_status => l_return_status);
9850:
9851: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9852: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9853: x_return_status := l_return_status;
9853: x_return_status := l_return_status;
9854: RETURN;
9855: END IF;
9856: ELSE
9857: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9858: END IF;
9859: END IF;
9860: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9861: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9856: ELSE
9857: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9858: END IF;
9859: END IF;
9860: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9861: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9862:
9863: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : FTE Trip Id - '||p_fte_trip_id||' Trip Segment Id -'||p_segment_id||' Delivery Id - '||p_delivery_id||' Delivery Leg Id - '||p_delivery_leg_id);
9864:
9857: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9858: END IF;
9859: END IF;
9860: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9861: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9862:
9863: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : FTE Trip Id - '||p_fte_trip_id||' Trip Segment Id -'||p_segment_id||' Delivery Id - '||p_delivery_id||' Delivery Leg Id - '||p_delivery_leg_id);
9864:
9865: IF p_fte_trip_id IS NULL AND p_segment_id IS NULL AND p_delivery_id IS NULL AND p_delivery_leg_id IS NULL
9859: END IF;
9860: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9861: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9862:
9863: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : FTE Trip Id - '||p_fte_trip_id||' Trip Segment Id -'||p_segment_id||' Delivery Id - '||p_delivery_id||' Delivery Leg Id - '||p_delivery_leg_id);
9864:
9865: IF p_fte_trip_id IS NULL AND p_segment_id IS NULL AND p_delivery_id IS NULL AND p_delivery_leg_id IS NULL
9866: THEN
9867: raise FTE_FREIGHT_PRICING_UTIL.g_no_input;
9863: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : FTE Trip Id - '||p_fte_trip_id||' Trip Segment Id -'||p_segment_id||' Delivery Id - '||p_delivery_id||' Delivery Leg Id - '||p_delivery_leg_id);
9864:
9865: IF p_fte_trip_id IS NULL AND p_segment_id IS NULL AND p_delivery_id IS NULL AND p_delivery_leg_id IS NULL
9866: THEN
9867: raise FTE_FREIGHT_PRICING_UTIL.g_no_input;
9868: ELSIF p_segment_id IS NOT NULL THEN
9869:
9870: Get_Trip_Mode(
9871: p_trip_id=>p_segment_id,
9877: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9878: THEN
9879: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9880: THEN
9881: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9882: END IF;
9883: END IF;
9884:
9885: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
9894: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9895: THEN
9896: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9897: THEN
9898: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9899: END IF;
9900: END IF;
9901:
9902:
9907: p_segment_id => p_segment_id,
9908: x_return_status => l_return_status );
9909:
9910: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9911: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9912: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9913: x_return_status := l_return_status;
9914: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9915: ELSE
9910: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9911: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9912: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9913: x_return_status := l_return_status;
9914: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9915: ELSE
9916: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9917: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9918: END IF;
9912: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9913: x_return_status := l_return_status;
9914: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9915: ELSE
9916: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9917: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9918: END IF;
9919:
9920:
9913: x_return_status := l_return_status;
9914: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9915: ELSE
9916: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9917: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9918: END IF;
9919:
9920:
9921: END IF;
9942: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9943: THEN
9944: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9945: THEN
9946: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9947: END IF;
9948: END IF;
9949:
9950: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
9959: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9960: THEN
9961: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9962: THEN
9963: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9964: END IF;
9965: END IF;
9966:
9967:
9973: p_delivery_leg_id => l_delivery_leg_id,
9974: x_return_status => l_return_status );
9975:
9976: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9977: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||l_delivery_leg_id);
9978: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9979: x_return_status := l_return_status;
9980: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9981: ELSE
9976: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9977: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||l_delivery_leg_id);
9978: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9979: x_return_status := l_return_status;
9980: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9981: ELSE
9982: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9983: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9984: END IF;
9978: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9979: x_return_status := l_return_status;
9980: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9981: ELSE
9982: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9983: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9984: END IF;
9985: END IF;
9986:
9979: x_return_status := l_return_status;
9980: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9981: ELSE
9982: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9983: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9984: END IF;
9985: END IF;
9986:
9987: END LOOP;
9999: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
10000: THEN
10001: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
10002: THEN
10003: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
10004: END IF;
10005: END IF;
10006:
10007: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
10016: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
10017: THEN
10018: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
10019: THEN
10020: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
10021: END IF;
10022: END IF;
10023:
10024:
10028: p_delivery_leg_id => p_delivery_leg_id,
10029: x_return_status => l_return_status );
10030:
10031: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10032: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||p_delivery_leg_id);
10033: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10034: x_return_status := l_return_status;
10035: ELSE
10036: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10032: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||p_delivery_leg_id);
10033: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10034: x_return_status := l_return_status;
10035: ELSE
10036: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10037: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
10038: END IF;
10039: END IF;
10040:
10033: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10034: x_return_status := l_return_status;
10035: ELSE
10036: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10037: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
10038: END IF;
10039: END IF;
10040:
10041: END IF;
10038: END IF;
10039: END IF;
10040:
10041: END IF;
10042: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10043: IF p_init_prc_log = 'Y' THEN
10044: FTE_FREIGHT_PRICING_UTIL.close_logs;
10045: END IF;
10046:
10040:
10041: END IF;
10042: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10043: IF p_init_prc_log = 'Y' THEN
10044: FTE_FREIGHT_PRICING_UTIL.close_logs;
10045: END IF;
10046:
10047: EXCEPTION
10048: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10044: FTE_FREIGHT_PRICING_UTIL.close_logs;
10045: END IF;
10046:
10047: EXCEPTION
10048: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10052: IF p_init_prc_log = 'Y' THEN
10046:
10047: EXCEPTION
10048: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10052: IF p_init_prc_log = 'Y' THEN
10053: FTE_FREIGHT_PRICING_UTIL.close_logs;
10054: END IF;
10047: EXCEPTION
10048: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10052: IF p_init_prc_log = 'Y' THEN
10053: FTE_FREIGHT_PRICING_UTIL.close_logs;
10054: END IF;
10055:
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10052: IF p_init_prc_log = 'Y' THEN
10053: FTE_FREIGHT_PRICING_UTIL.close_logs;
10054: END IF;
10055:
10056: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10052: IF p_init_prc_log = 'Y' THEN
10053: FTE_FREIGHT_PRICING_UTIL.close_logs;
10054: END IF;
10055:
10056: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10058: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10059: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10060: IF p_init_prc_log = 'Y' THEN
10054: END IF;
10055:
10056: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10058: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10059: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10060: IF p_init_prc_log = 'Y' THEN
10061: FTE_FREIGHT_PRICING_UTIL.close_logs;
10062: END IF;
10055:
10056: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10058: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10059: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10060: IF p_init_prc_log = 'Y' THEN
10061: FTE_FREIGHT_PRICING_UTIL.close_logs;
10062: END IF;
10063:
10057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10058: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10059: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10060: IF p_init_prc_log = 'Y' THEN
10061: FTE_FREIGHT_PRICING_UTIL.close_logs;
10062: END IF;
10063:
10064: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10060: IF p_init_prc_log = 'Y' THEN
10061: FTE_FREIGHT_PRICING_UTIL.close_logs;
10062: END IF;
10063:
10064: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10066: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10067: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10068: IF p_init_prc_log = 'Y' THEN
10062: END IF;
10063:
10064: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10066: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10067: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10068: IF p_init_prc_log = 'Y' THEN
10069: FTE_FREIGHT_PRICING_UTIL.close_logs;
10070: END IF;
10063:
10064: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10066: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10067: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10068: IF p_init_prc_log = 'Y' THEN
10069: FTE_FREIGHT_PRICING_UTIL.close_logs;
10070: END IF;
10071:
10065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10066: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10067: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10068: IF p_init_prc_log = 'Y' THEN
10069: FTE_FREIGHT_PRICING_UTIL.close_logs;
10070: END IF;
10071:
10072:
10073: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10069: FTE_FREIGHT_PRICING_UTIL.close_logs;
10070: END IF;
10071:
10072:
10073: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10075: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10077: IF p_init_prc_log = 'Y' THEN
10071:
10072:
10073: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10075: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10077: IF p_init_prc_log = 'Y' THEN
10078: FTE_FREIGHT_PRICING_UTIL.close_logs;
10079: END IF;
10072:
10073: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10075: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10077: IF p_init_prc_log = 'Y' THEN
10078: FTE_FREIGHT_PRICING_UTIL.close_logs;
10079: END IF;
10080:
10074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10075: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10076: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10077: IF p_init_prc_log = 'Y' THEN
10078: FTE_FREIGHT_PRICING_UTIL.close_logs;
10079: END IF;
10080:
10081: WHEN others THEN
10082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10079: END IF;
10080:
10081: WHEN others THEN
10082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10083: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10084: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10085: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10086: IF p_init_prc_log = 'Y' THEN
10087: FTE_FREIGHT_PRICING_UTIL.close_logs;
10080:
10081: WHEN others THEN
10082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10083: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10084: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10085: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10086: IF p_init_prc_log = 'Y' THEN
10087: FTE_FREIGHT_PRICING_UTIL.close_logs;
10088: END IF;
10081: WHEN others THEN
10082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10083: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10084: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10085: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10086: IF p_init_prc_log = 'Y' THEN
10087: FTE_FREIGHT_PRICING_UTIL.close_logs;
10088: END IF;
10089: END shipment_reprice2;
10083: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10084: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10085: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10086: IF p_init_prc_log = 'Y' THEN
10087: FTE_FREIGHT_PRICING_UTIL.close_logs;
10088: END IF;
10089: END shipment_reprice2;
10090:
10091:
10101: x_delivery_legs OUT NOCOPY DELIVERY_LEG_TAB_TYPE,
10102: x_return_status OUT NOCOPY VARCHAR2)
10103: IS
10104:
10105: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10106: l_delvy_tab DELIVERY_LEG_TAB_TYPE;
10107: l_delv_leg_rec delivery_leg_rec_type;
10108: i NUMBER := 0;
10109: l_index NUMBER := 0;
10115: AND wnd.delivery_id = wdl.delivery_id;
10116:
10117: BEGIN
10118:
10119: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10120: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10121:
10122: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10123: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10116:
10117: BEGIN
10118:
10119: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10120: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10121:
10122: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10123: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10124: OPEN c_get_delivery_legs_detail(p_deliveries_list(i));
10119: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10120: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10121:
10122: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10123: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10124: OPEN c_get_delivery_legs_detail(p_deliveries_list(i));
10125: LOOP
10126: FETCH c_get_delivery_legs_detail INTO l_delv_leg_rec;
10127: EXIT WHEN c_get_delivery_legs_detail%NOTFOUND;
10125: LOOP
10126: FETCH c_get_delivery_legs_detail INTO l_delv_leg_rec;
10127: EXIT WHEN c_get_delivery_legs_detail%NOTFOUND;
10128: l_index := l_index +1;
10129: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_leg_rec.delivery_leg_id. ' ||l_delv_leg_rec.delivery_leg_id );
10130: --l_delvy_tab(l_delv_leg_rec.delivery_leg_id) := l_delv_leg_rec;
10131: l_delvy_tab(l_index) := l_delv_leg_rec;
10132: END LOOP;
10133: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Total Leg Count for Delivery. ' || p_deliveries_list(i) || ' is '|| l_delvy_tab.COUNT );
10129: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_leg_rec.delivery_leg_id. ' ||l_delv_leg_rec.delivery_leg_id );
10130: --l_delvy_tab(l_delv_leg_rec.delivery_leg_id) := l_delv_leg_rec;
10131: l_delvy_tab(l_index) := l_delv_leg_rec;
10132: END LOOP;
10133: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Total Leg Count for Delivery. ' || p_deliveries_list(i) || ' is '|| l_delvy_tab.COUNT );
10134: CLOSE c_get_delivery_legs_detail ;
10135: END LOOP;
10136:
10137: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10134: CLOSE c_get_delivery_legs_detail ;
10135: END LOOP;
10136:
10137: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10138: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Leg is='|| l_delvy_tab(i).delivery_leg_id);
10139: END LOOP;
10140:
10141: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Out of loop for Delivery ids in get_delivery_legs... ');
10142:
10137: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10138: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Leg is='|| l_delvy_tab(i).delivery_leg_id);
10139: END LOOP;
10140:
10141: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Out of loop for Delivery ids in get_delivery_legs... ');
10142:
10143: x_delivery_legs := l_delvy_tab;
10144:
10145: EXCEPTION
10144:
10145: EXCEPTION
10146: WHEN others THEN
10147: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10148: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10149: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10150: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10151: END get_delivery_legs;
10152:
10145: EXCEPTION
10146: WHEN others THEN
10147: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10148: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10149: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10150: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10151: END get_delivery_legs;
10152:
10153: -- Internal procedure to get distinct trip_ids for a given
10146: WHEN others THEN
10147: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10148: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10149: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10150: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10151: END get_delivery_legs;
10152:
10153: -- Internal procedure to get distinct trip_ids for a given
10154: -- delivery legs table.
10176:
10177: i NUMBER := 0;
10178: l_dleg_ids VARCHAR2(32767);
10179: l_trip_ids VARCHAR2(32767);
10180: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10181: l_api_name CONSTANT VARCHAR2(30) := 'get_distinct_trip_ids';
10182: l_trip_id NUMBER;
10183: l_is_first BOOLEAN := TRUE ;
10184: --l_del_trip_tab DELIVERY_TRIP_TAB_TYPE;
10188: l_trip_index NUMBER := 0;
10189:
10190: BEGIN
10191:
10192: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10193: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10194: --x_trip_ids := FTE_ID_TAB_TYPE();
10195:
10196: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10189:
10190: BEGIN
10191:
10192: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10193: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10194: --x_trip_ids := FTE_ID_TAB_TYPE();
10195:
10196: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10197:
10192: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10193: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10194: --x_trip_ids := FTE_ID_TAB_TYPE();
10195:
10196: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10197:
10198: FOR i IN p_dleg_list.FIRST..p_dleg_list.COUNT LOOP
10199: OPEN c_get_distinct_trip_ids(p_dleg_list(i));
10200: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10197:
10198: FOR i IN p_dleg_list.FIRST..p_dleg_list.COUNT LOOP
10199: OPEN c_get_distinct_trip_ids(p_dleg_list(i));
10200: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10201: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Fetch');
10202: -- Only store unique trips in trips table.
10203: IF x_trip_ids.COUNT > 0 THEN
10204: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10205: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10200: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10201: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Fetch');
10202: -- Only store unique trips in trips table.
10203: IF x_trip_ids.COUNT > 0 THEN
10204: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10205: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10206: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10208: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10202: -- Only store unique trips in trips table.
10203: IF x_trip_ids.COUNT > 0 THEN
10204: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10205: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10206: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10208: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10209: trip_exists := true;
10210: EXIT WHEN trip_exists;
10203: IF x_trip_ids.COUNT > 0 THEN
10204: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10205: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10206: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10208: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10209: trip_exists := true;
10210: EXIT WHEN trip_exists;
10211: -- break the loop
10213: trip_exists := false;
10214: END IF;
10215: END LOOP;
10216: END IF;
10217: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Unique trip loop ');
10218: --FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip_exists = ' || to_char(trip_exists));
10219:
10220: IF NOT trip_exists then
10221: l_trip_index := l_trip_index +1;
10214: END IF;
10215: END LOOP;
10216: END IF;
10217: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Unique trip loop ');
10218: --FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip_exists = ' || to_char(trip_exists));
10219:
10220: IF NOT trip_exists then
10221: l_trip_index := l_trip_index +1;
10222: x_trip_ids(l_trip_index) := l_del_trip_rec;
10226:
10227: CLOSE c_get_distinct_trip_ids;
10228: END LOOP;
10229:
10230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Ids Count=' || x_trip_ids.COUNT);
10231: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10232:
10233:
10234: EXCEPTION
10227: CLOSE c_get_distinct_trip_ids;
10228: END LOOP;
10229:
10230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Ids Count=' || x_trip_ids.COUNT);
10231: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10232:
10233:
10234: EXCEPTION
10235: WHEN others THEN
10233:
10234: EXCEPTION
10235: WHEN others THEN
10236: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10237: FTE_FREIGHT_PRICING_UTIL.set_exception('get_distinct_trip_ids',FTE_FREIGHT_PRICING_UTIL.G_ERR,'get distinct trips failed');
10238: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10239: END get_distinct_trip_ids;
10240:
10241: --This API is written for R12. It does the following validation
10234: EXCEPTION
10235: WHEN others THEN
10236: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10237: FTE_FREIGHT_PRICING_UTIL.set_exception('get_distinct_trip_ids',FTE_FREIGHT_PRICING_UTIL.G_ERR,'get distinct trips failed');
10238: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10239: END get_distinct_trip_ids;
10240:
10241: --This API is written for R12. It does the following validation
10242: -- 1) Delivery type is Outbound/Internal Orders and status is Open
10253: IS
10254:
10255: l_new_delv_list FTE_ID_TAB_TYPE;
10256: l_api_name CONSTANT VARCHAR2(30) := 'validate_delv_for_rerating';
10257: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10258: i NUMBER := 0;
10259: l_var VARCHAR2(1);
10260:
10261: CURSOR check_delivery_type (c_delivery_id IN NUMBER)
10265: OR ( shipment_direction IN ('D','I') )
10266: AND delivery_id = c_delivery_id ;
10267:
10268: BEGIN
10269: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10270: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10271: l_new_delv_list := FTE_ID_TAB_TYPE();
10272:
10273: FOR i IN p_deliveries_list.FIRST..p_deliveries_list.LAST
10266: AND delivery_id = c_delivery_id ;
10267:
10268: BEGIN
10269: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10270: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10271: l_new_delv_list := FTE_ID_TAB_TYPE();
10272:
10273: FOR i IN p_deliveries_list.FIRST..p_deliveries_list.LAST
10274: LOOP
10274: LOOP
10275: OPEN check_delivery_type(p_deliveries_list(i));
10276: FETCH check_delivery_type INTO l_var;
10277: IF check_delivery_type%NOTFOUND THEN
10278: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Delv='|| p_deliveries_list(i) || ' doesnt meet criteria of direction 0/IO with Status OP OR Direction D/I');
10279: ELSE
10280: l_new_delv_list.EXTEND;
10281: l_new_delv_list(i) := p_deliveries_list(i);
10282: END IF;
10287:
10288: EXCEPTION
10289:
10290: WHEN OTHERS THEN
10291: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delv_for_rerating',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delv_for_rerating failed');
10292: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delv_for_rerating');
10293:
10294: END validate_delv_for_rerating;
10295:
10288: EXCEPTION
10289:
10290: WHEN OTHERS THEN
10291: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delv_for_rerating',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delv_for_rerating failed');
10292: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delv_for_rerating');
10293:
10294: END validate_delv_for_rerating;
10295:
10296: --This API is written for R12. It does the following validation
10307: IS
10308: l_new_dleg_list FTE_ID_TAB_TYPE;
10309: l_failed_dleg_list FTE_ID_TAB_TYPE;
10310: l_api_name CONSTANT VARCHAR2(30) := 'validate_delivery_legs';
10311: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10312: i NUMBER := 0;
10313: l_var NUMBER;--VARCHAR2(1);
10314: dleg_rates_not_found EXCEPTION;
10315:
10322: AND freight_cost_type_id is not null
10323: AND delivery_leg_id= c_delivery_leg_id;
10324:
10325: BEGIN
10326: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10327: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10328: l_new_dleg_list := FTE_ID_TAB_TYPE();
10329: l_failed_dleg_list := FTE_ID_TAB_TYPE();
10330:
10323: AND delivery_leg_id= c_delivery_leg_id;
10324:
10325: BEGIN
10326: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10327: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10328: l_new_dleg_list := FTE_ID_TAB_TYPE();
10329: l_failed_dleg_list := FTE_ID_TAB_TYPE();
10330:
10331: FOR i IN p_dlegs_list.FIRST..p_dlegs_list.LAST
10332: LOOP
10333: OPEN check_freight_cost_exist(p_dlegs_list(i));
10334: FETCH check_freight_cost_exist INTO l_var;
10335: IF check_freight_cost_exist%NOTFOUND THEN
10336: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10337: l_failed_dleg_list.EXTEND;
10338: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10339: ELSIF l_var IS NULL THEN
10340: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10336: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10337: l_failed_dleg_list.EXTEND;
10338: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10339: ELSIF l_var IS NULL THEN
10340: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10341: l_failed_dleg_list.EXTEND;
10342: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10343: ELSE
10344: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10340: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10341: l_failed_dleg_list.EXTEND;
10342: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10343: ELSE
10344: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10345: l_new_dleg_list.EXTEND;
10346: l_new_dleg_list(l_new_dleg_list.LAST) := p_dlegs_list(i);
10347: END IF;
10348: CLOSE check_freight_cost_exist;
10350:
10351: x_dleg_list := l_new_dleg_list;
10352: x_failed_dleg_list := l_failed_dleg_list;
10353:
10354: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10355:
10356:
10357: EXCEPTION
10358:
10357: EXCEPTION
10358:
10359: --WHEN dleg_rates_not_found THEN
10360: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10361: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10362: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10363: WHEN OTHERS THEN
10364: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10358:
10359: --WHEN dleg_rates_not_found THEN
10360: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10361: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10362: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10363: WHEN OTHERS THEN
10364: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10366: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10360: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10361: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10362: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10363: WHEN OTHERS THEN
10364: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10366: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10367: END validate_delivery_legs;
10368:
10361: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10362: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10363: WHEN OTHERS THEN
10364: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10366: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10367: END validate_delivery_legs;
10368:
10369:
10362: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10363: WHEN OTHERS THEN
10364: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10366: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10367: END validate_delivery_legs;
10368:
10369:
10370: PROCEDURE validate_trips(p_trip_id_list IN WSH_UTIL_CORE.id_tab_type,
10402: l_fail_index NUMBER := 0;
10403: l_success_index NUMBER := 0;
10404: l_closed_index NUMBER := 0;
10405: l_api_name CONSTANT VARCHAR2(30) := 'validate_trips';
10406: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10407: l_trip_direction VARCHAR2(30);
10408: l_valid_trip VARCHAR2(1) := 'Y';
10409:
10410: BEGIN
10407: l_trip_direction VARCHAR2(30);
10408: l_valid_trip VARCHAR2(1) := 'Y';
10409:
10410: BEGIN
10411: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10412: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10413:
10414: FOR i IN p_trip_id_list.FIRST..p_trip_id_list.LAST
10415: LOOP
10408: l_valid_trip VARCHAR2(1) := 'Y';
10409:
10410: BEGIN
10411: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10412: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10413:
10414: FOR i IN p_trip_id_list.FIRST..p_trip_id_list.LAST
10415: LOOP
10416: OPEN c_trip_info(p_trip_id_list(i));
10416: OPEN c_trip_info(p_trip_id_list(i));
10417: FETCH c_trip_info INTO l_trip_info;
10418: CLOSE c_trip_info;
10419:
10420: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Trip Id is ='|| p_trip_id_list(i));
10421: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip status is ='|| l_trip_info.status_code);
10422:
10423: -- In CASE OF closed trips, only allow re-rating of
10424: -- Inbound or Mixed trips. Do not allow rerating of
10417: FETCH c_trip_info INTO l_trip_info;
10418: CLOSE c_trip_info;
10419:
10420: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Trip Id is ='|| p_trip_id_list(i));
10421: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip status is ='|| l_trip_info.status_code);
10422:
10423: -- In CASE OF closed trips, only allow re-rating of
10424: -- Inbound or Mixed trips. Do not allow rerating of
10425: -- closed outbound trips.
10426: IF l_trip_info.status_code = 'CL' THEN
10427: OPEN c_get_trip_direction(p_trip_id_list(i));
10428: FETCH c_get_trip_direction INTO l_trip_direction;
10429: CLOSE c_get_trip_direction;
10430: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_direction ='|| l_trip_direction);
10431: IF (l_trip_direction = 'O' ) OR (l_trip_direction IS NULL) THEN
10432: l_valid_trip := 'N';
10433: ELSE
10434: l_valid_trip := 'Y';
10438: IF l_valid_trip = 'Y' THEN
10439:
10440: IF l_trip_info.carrier_id is null OR l_trip_info.mode_of_transport is null
10441: OR l_trip_info.service_level is null THEN
10442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'should have full ship method to rerate a trip !!! Trip Id ='|| p_trip_id_list(i));
10443: l_fail_index := l_fail_index + 1;
10444: x_failed_trips_list(l_fail_index) := p_trip_id_list(i);
10445: ELSE
10446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip has full ship method !!! Trip Id ='|| p_trip_id_list(i));
10442: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'should have full ship method to rerate a trip !!! Trip Id ='|| p_trip_id_list(i));
10443: l_fail_index := l_fail_index + 1;
10444: x_failed_trips_list(l_fail_index) := p_trip_id_list(i);
10445: ELSE
10446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip has full ship method !!! Trip Id ='|| p_trip_id_list(i));
10447: l_success_index := l_success_index + 1;
10448: x_success_trips_list(l_success_index) := p_trip_id_list(i);
10449: END IF;
10450: ELSE
10447: l_success_index := l_success_index + 1;
10448: x_success_trips_list(l_success_index) := p_trip_id_list(i);
10449: END IF;
10450: ELSE
10451: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Direction/Status combination is not elegible for rarating ');
10452: l_closed_index := l_closed_index + 1;
10453: x_closed_trips_list(l_closed_index) := p_trip_id_list(i);
10454: END IF;
10455: END LOOP;
10453: x_closed_trips_list(l_closed_index) := p_trip_id_list(i);
10454: END IF;
10455: END LOOP;
10456:
10457: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10459:
10460: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10461:
10454: END IF;
10455: END LOOP;
10456:
10457: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10459:
10460: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10461:
10462: EXCEPTION
10456:
10457: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10459:
10460: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10461:
10462: EXCEPTION
10463:
10464: WHEN OTHERS THEN
10461:
10462: EXCEPTION
10463:
10464: WHEN OTHERS THEN
10465: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_trips failed');
10466: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10467:
10468: END validate_trips;
10469: -- This API is called directly from DWB
10462: EXCEPTION
10463:
10464: WHEN OTHERS THEN
10465: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_trips failed');
10466: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10467:
10468: END validate_trips;
10469: -- This API is called directly from DWB
10470: -- Modified the signature for 12i. p_delivery_leg_list can contain list of Delivery Ids or Delivery Legs
10493: l_trip_rating_failed EXCEPTION;
10494: l_dleg_validation_failed EXCEPTION;
10495: l_delivery_validation_failed EXCEPTION;
10496:
10497: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10498: l_api_version CONSTANT NUMBER := 1.0;
10499: l_api_name CONSTANT VARCHAR2(30) := 'rerate_shipment_online';
10500: --l_return_status VARCHAR2(1);
10501: l_msg_count NUMBER := 0;
10573: END IF;
10574:
10575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10576:
10577: FTE_FREIGHT_PRICING_UTIL.initialize_logging(x_return_status => l_return_status);
10578:
10579: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10580: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10581: x_return_status := l_return_status;
10581: x_return_status := l_return_status;
10582: RETURN;
10583: END IF;
10584: ELSE
10585: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10586: END IF;
10587:
10588: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10584: ELSE
10585: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10586: END IF;
10587:
10588: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10585: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10586: END IF;
10587:
10588: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10587:
10588: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10588: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10596:
10589: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10596:
10597:
10590:
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10596:
10597:
10598: IF p_deliveries_list.COUNT <= 0 THEN
10591: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10596:
10597:
10598: IF p_deliveries_list.COUNT <= 0 THEN
10599: IF p_deliveries_list_type = 'DEL' THEN
10636: l_warning_list.EXTEND;
10637: l_warning_list(l_warning_list.LAST) := p_deliveries_list(l_index);
10638: END IF;
10639: END LOOP;
10640: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10641: l_index := 0;
10642: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10643: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs(l_index).delivery_leg_id' || l_delv_legs(l_index).delivery_leg_id);
10639: END LOOP;
10640: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10641: l_index := 0;
10642: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10643: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs(l_index).delivery_leg_id' || l_delv_legs(l_index).delivery_leg_id);
10645: l_dleg_list.EXTEND;
10646: l_dleg_list(l_dleg_list.LAST) := l_delv_legs(l_index).delivery_leg_id;
10647: END LOOP;
10640: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10641: l_index := 0;
10642: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10643: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs(l_index).delivery_leg_id' || l_delv_legs(l_index).delivery_leg_id);
10645: l_dleg_list.EXTEND;
10646: l_dleg_list(l_dleg_list.LAST) := l_delv_legs(l_index).delivery_leg_id;
10647: END LOOP;
10648: ELSE
10663: -- Get distinct trips from these delivery legs so that
10664: -- rating is not performed for same trips multiple times
10665: -- Add validation failed delivery legs also to failed list
10666: -- And raise Exception
10667: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_fail_val_dleg_list.COUNT);
10668:
10669: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total Delivery Legs list l_delv_legs::= '||l_delv_legs.COUNT);
10670:
10671: l_index := 0;
10665: -- Add validation failed delivery legs also to failed list
10666: -- And raise Exception
10667: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_fail_val_dleg_list.COUNT);
10668:
10669: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total Delivery Legs list l_delv_legs::= '||l_delv_legs.COUNT);
10670:
10671: l_index := 0;
10672:
10673: IF l_fail_val_dleg_list.COUNT > 0 THEN
10674: FOR j1 IN l_fail_val_dleg_list.FIRST..l_fail_val_dleg_list.LAST LOOP
10675: IF p_deliveries_list_type = 'DEL' THEN
10676: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10677: IF l_delv_legs(l_index).delivery_leg_id = l_fail_val_dleg_list(j1) THEN
10678: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Delivery Name :='||l_delv_legs(l_index).delivery_name);
10679: IF l_fail_delivery_name_list IS NOT NULL THEN
10680: l_fail_delivery_name_list := l_delv_legs(l_index).delivery_name;
10681: ELSE
10682: l_fail_delivery_name_list := l_fail_delivery_name_list ||' '||l_delv_legs(l_index).delivery_name;
10685: END LOOP;
10686: ELSE
10687: FOR l_index IN l_dleg_list.FIRST..l_dleg_list.LAST LOOP
10688: IF l_dleg_list(l_index) = l_fail_val_dleg_list(j1) THEN
10689: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Delivery Name :='||p_delivery_name_list(l_index));
10690: IF l_fail_delivery_name_list IS NOT NULL THEN
10691: l_fail_delivery_name_list := p_delivery_name_list(l_index);
10692: ELSE
10693: l_fail_delivery_name_list := l_fail_delivery_name_list ||' '||p_delivery_name_list(l_index);
10695: END IF;
10696: END LOOP;
10697: END IF;
10698: END LOOP;
10699: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_no_rates_delv_ids);
10700: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_NORATES');
10701: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10702: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10703: FND_MSG_PUB.ADD;
10698: END LOOP;
10699: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_no_rates_delv_ids);
10700: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_NORATES');
10701: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10702: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10703: FND_MSG_PUB.ADD;
10704: raise l_delivery_validation_failed;
10705: END IF;
10706:
10785: END LOOP;
10786: END LOOP;
10787: END IF;
10788:
10789: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Failed Service Deliveries= '||l_service_failed_delv_ids);
10790:
10791:
10792:
10793: l_index := 0;
10812: x_msg_data => l_msg_data
10813: );
10814: j1 := 0;
10815: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10816: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Trip Re-Rating successful for trip_id : '||l_trip_ids(l_index).trip_id);
10817: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10818: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10819: l_success_list.EXTEND;
10820: IF p_deliveries_list_type = 'DEL' THEN
10824: END IF;
10825: END IF;
10826: END LOOP;
10827: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10828: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Trip Re-Rating with Warnings for trip_id : '||l_trip_ids(l_index).trip_id);
10829: x_return_status := l_return_status;
10830:
10831: FND_MSG_PUB.Count_And_Get
10832: (
10833: p_count => l_msg_count,
10834: p_data => l_message,
10835: p_encoded => FND_API.G_FALSE
10836: );
10837: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Warning : '||l_message);
10838: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10839: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10840: IF l_warn_delivery_name_list is null THEN
10841: l_warn_delivery_name_list := l_all_trips(j1).delivery_id;
10850: END IF;
10851: END IF;
10852: END LOOP;
10853: ELSE
10854: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'trip id: '|| l_trip_ids(l_index).trip_id || ' rate_trip2 ');
10855: x_return_status := l_return_status;
10856: FND_MSG_PUB.Count_And_Get
10857: (
10858: p_count => l_msg_count,
10858: p_count => l_msg_count,
10859: p_data => l_message,
10860: p_encoded => FND_API.G_FALSE
10861: );
10862: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Error : '||l_message);
10863: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10864: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10865: IF l_fail_delivery_name_list is null THEN
10866: l_fail_delivery_name_list := l_all_trips(j1).delivery_id;
10878: END IF;
10879: END LOOP; -- End Loop for l_trip_ids. Trip rating.
10880: END IF;
10881:
10882: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10886:
10879: END LOOP; -- End Loop for l_trip_ids. Trip rating.
10880: END IF;
10881:
10882: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10886:
10887: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10880: END IF;
10881:
10882: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10886:
10887: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10888:
10881:
10882: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10886:
10887: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10888:
10889: IF l_success_list.COUNT > 0 THEN
10894:
10895: IF l_warning_list.COUNT > 0 THEN
10896: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10897: IF l_delv_with_multlegs_names IS NOT NULL THEN
10898: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Delv with MulipleLegs::= '||l_delv_with_multlegs_names);
10899: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_MULTILEG_WARN');
10900: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_with_multlegs_names);
10901: FND_MSG_PUB.ADD;
10902: END IF;
10901: FND_MSG_PUB.ADD;
10902: END IF;
10903: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_WARNIN');
10904: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_warn_delivery_name_list);
10905: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10906: FND_MSG_PUB.ADD;
10907: END IF;
10908:
10909:
10908:
10909:
10910: IF l_failed_list.COUNT >0 THEN
10911: IF l_delv_srv_failed_names IS NOT NULL THEN
10912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Service failed list::= '||l_delv_srv_failed_names);
10913: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SERVICE_FAILED');
10914: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_srv_failed_names);
10915: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10916: FND_MSG_PUB.ADD;
10911: IF l_delv_srv_failed_names IS NOT NULL THEN
10912: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Service failed list::= '||l_delv_srv_failed_names);
10913: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SERVICE_FAILED');
10914: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_srv_failed_names);
10915: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10916: FND_MSG_PUB.ADD;
10917: END IF;
10918: IF l_closed_trips_delv_ids IS NOT NULL THEN
10919: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10915: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10916: FND_MSG_PUB.ADD;
10917: END IF;
10918: IF l_closed_trips_delv_ids IS NOT NULL THEN
10919: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10920: FND_MESSAGE.SET_NAME('FTE','FTE_MLS_CANNOT_UPD_RATE');
10921: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_close_trdelv_name_list);
10922: FND_MESSAGE.SET_TOKEN('DELIVERY_STATUS',l_status);
10923: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10919: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10920: FND_MESSAGE.SET_NAME('FTE','FTE_MLS_CANNOT_UPD_RATE');
10921: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_close_trdelv_name_list);
10922: FND_MESSAGE.SET_TOKEN('DELIVERY_STATUS',l_status);
10923: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10924: FND_MSG_PUB.ADD;
10925: END IF;
10926: IF l_fail_delivery_name_list IS NOT NULL THEN
10927: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10923: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10924: FND_MSG_PUB.ADD;
10925: END IF;
10926: IF l_fail_delivery_name_list IS NOT NULL THEN
10927: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10928: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
10929: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10930: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10931: FND_MSG_PUB.ADD;
10926: IF l_fail_delivery_name_list IS NOT NULL THEN
10927: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10928: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
10929: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10930: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10931: FND_MSG_PUB.ADD;
10932: END IF;
10933: IF l_success_list.COUNT > 0 OR l_warning_list.COUNT > 0 THEN
10934: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10935: ELSE
10936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10937: END IF;
10938: END IF;
10939: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
10940:
10941: x_success_list := l_success_list;
10942: x_warning_list := l_warning_list;
10943: x_fail_list := l_failed_list;
10960: );
10961:
10962:
10963:
10964: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10965:
10966: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10967: FTE_FREIGHT_PRICING_UTIL.close_logs;
10968:
10962:
10963:
10964: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10965:
10966: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10967: FTE_FREIGHT_PRICING_UTIL.close_logs;
10968:
10969: EXCEPTION
10970: WHEN l_delivery_validation_failed THEN
10963:
10964: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10965:
10966: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10967: FTE_FREIGHT_PRICING_UTIL.close_logs;
10968:
10969: EXCEPTION
10970: WHEN l_delivery_validation_failed THEN
10971: ROLLBACK TO rerate_shipment_online;
10975: -- p_count => x_msg_count,
10976: -- p_data => x_msg_data,
10977: -- p_encoded => FND_API.G_FALSE
10978: -- );
10979: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10981: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10982: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10983: FTE_FREIGHT_PRICING_UTIL.close_logs;
10976: -- p_data => x_msg_data,
10977: -- p_encoded => FND_API.G_FALSE
10978: -- );
10979: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10981: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10982: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10983: FTE_FREIGHT_PRICING_UTIL.close_logs;
10984: WHEN l_dleg_list_empty THEN
10977: -- p_encoded => FND_API.G_FALSE
10978: -- );
10979: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10981: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10982: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10983: FTE_FREIGHT_PRICING_UTIL.close_logs;
10984: WHEN l_dleg_list_empty THEN
10985: ROLLBACK TO rerate_shipment_online;
10978: -- );
10979: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10981: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10982: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10983: FTE_FREIGHT_PRICING_UTIL.close_logs;
10984: WHEN l_dleg_list_empty THEN
10985: ROLLBACK TO rerate_shipment_online;
10986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10979: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10981: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10982: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10983: FTE_FREIGHT_PRICING_UTIL.close_logs;
10984: WHEN l_dleg_list_empty THEN
10985: ROLLBACK TO rerate_shipment_online;
10986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10987: FND_MSG_PUB.Count_And_Get
10989: p_count => x_msg_count,
10990: p_data => x_msg_data,
10991: p_encoded => FND_API.G_FALSE
10992: );
10993: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10994: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10995: FTE_FREIGHT_PRICING_UTIL.close_logs;
10996:
10997: WHEN l_delv_list_empty THEN
10990: p_data => x_msg_data,
10991: p_encoded => FND_API.G_FALSE
10992: );
10993: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10994: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10995: FTE_FREIGHT_PRICING_UTIL.close_logs;
10996:
10997: WHEN l_delv_list_empty THEN
10998: ROLLBACK TO rerate_shipment_online;
10991: p_encoded => FND_API.G_FALSE
10992: );
10993: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10994: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10995: FTE_FREIGHT_PRICING_UTIL.close_logs;
10996:
10997: WHEN l_delv_list_empty THEN
10998: ROLLBACK TO rerate_shipment_online;
10999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11002: p_count => x_msg_count,
11003: p_data => x_msg_data,
11004: p_encoded => FND_API.G_FALSE
11005: );
11006: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11007: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11008: FTE_FREIGHT_PRICING_UTIL.close_logs;
11009:
11010: WHEN l_del_name_mismatch THEN
11003: p_data => x_msg_data,
11004: p_encoded => FND_API.G_FALSE
11005: );
11006: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11007: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11008: FTE_FREIGHT_PRICING_UTIL.close_logs;
11009:
11010: WHEN l_del_name_mismatch THEN
11011: ROLLBACK TO rerate_shipment_online;
11004: p_encoded => FND_API.G_FALSE
11005: );
11006: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11007: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11008: FTE_FREIGHT_PRICING_UTIL.close_logs;
11009:
11010: WHEN l_del_name_mismatch THEN
11011: ROLLBACK TO rerate_shipment_online;
11012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11015: p_count => x_msg_count,
11016: p_data => x_msg_data,
11017: p_encoded => FND_API.G_FALSE
11018: );
11019: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11020: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11021: FTE_FREIGHT_PRICING_UTIL.close_logs;
11022: WHEN l_dleg_validation_failed THEN
11023: ROLLBACK TO rerate_shipment_online;
11016: p_data => x_msg_data,
11017: p_encoded => FND_API.G_FALSE
11018: );
11019: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11020: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11021: FTE_FREIGHT_PRICING_UTIL.close_logs;
11022: WHEN l_dleg_validation_failed THEN
11023: ROLLBACK TO rerate_shipment_online;
11024: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11017: p_encoded => FND_API.G_FALSE
11018: );
11019: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11020: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11021: FTE_FREIGHT_PRICING_UTIL.close_logs;
11022: WHEN l_dleg_validation_failed THEN
11023: ROLLBACK TO rerate_shipment_online;
11024: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11025: FND_MSG_PUB.Count_And_Get
11027: p_count => x_msg_count,
11028: p_data => x_msg_data,
11029: p_encoded => FND_API.G_FALSE
11030: );
11031: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11032: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11033: FTE_FREIGHT_PRICING_UTIL.close_logs;
11034: WHEN l_trip_rating_failed THEN
11035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11028: p_data => x_msg_data,
11029: p_encoded => FND_API.G_FALSE
11030: );
11031: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11032: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11033: FTE_FREIGHT_PRICING_UTIL.close_logs;
11034: WHEN l_trip_rating_failed THEN
11035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11036: FND_MSG_PUB.Count_And_Get
11029: p_encoded => FND_API.G_FALSE
11030: );
11031: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11032: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11033: FTE_FREIGHT_PRICING_UTIL.close_logs;
11034: WHEN l_trip_rating_failed THEN
11035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11036: FND_MSG_PUB.Count_And_Get
11037: (
11038: p_count => x_msg_count,
11039: p_data => x_msg_data,
11040: p_encoded => FND_API.G_FALSE
11041: );
11042: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11043: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11044: FTE_FREIGHT_PRICING_UTIL.close_logs;
11045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11046: ROLLBACK TO rerate_shipment_online;
11039: p_data => x_msg_data,
11040: p_encoded => FND_API.G_FALSE
11041: );
11042: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11043: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11044: FTE_FREIGHT_PRICING_UTIL.close_logs;
11045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11046: ROLLBACK TO rerate_shipment_online;
11047: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11040: p_encoded => FND_API.G_FALSE
11041: );
11042: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11043: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11044: FTE_FREIGHT_PRICING_UTIL.close_logs;
11045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11046: ROLLBACK TO rerate_shipment_online;
11047: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11048: FND_MSG_PUB.Count_And_Get
11051: p_data => x_msg_data,
11052: p_encoded => FND_API.G_FALSE
11053: );
11054:
11055: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11056: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11057: FTE_FREIGHT_PRICING_UTIL.close_logs;
11058: WHEN others THEN
11059: ROLLBACK TO rerate_shipment_online;
11052: p_encoded => FND_API.G_FALSE
11053: );
11054:
11055: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11056: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11057: FTE_FREIGHT_PRICING_UTIL.close_logs;
11058: WHEN others THEN
11059: ROLLBACK TO rerate_shipment_online;
11060: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11053: );
11054:
11055: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11056: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11057: FTE_FREIGHT_PRICING_UTIL.close_logs;
11058: WHEN others THEN
11059: ROLLBACK TO rerate_shipment_online;
11060: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11061: FND_MSG_PUB.Count_And_Get
11063: p_count => x_msg_count,
11064: p_data => x_msg_data,
11065: p_encoded => FND_API.G_FALSE
11066: );
11067: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11069: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11070: FTE_FREIGHT_PRICING_UTIL.close_logs;
11071: END rerate_shipment_online;
11064: p_data => x_msg_data,
11065: p_encoded => FND_API.G_FALSE
11066: );
11067: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11069: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11070: FTE_FREIGHT_PRICING_UTIL.close_logs;
11071: END rerate_shipment_online;
11072:
11065: p_encoded => FND_API.G_FALSE
11066: );
11067: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11069: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11070: FTE_FREIGHT_PRICING_UTIL.close_logs;
11071: END rerate_shipment_online;
11072:
11073:
11066: );
11067: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11068: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11069: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11070: FTE_FREIGHT_PRICING_UTIL.close_logs;
11071: END rerate_shipment_online;
11072:
11073:
11074: PROCEDURE delete_fc_temp_pvt (
11079: x_return_status OUT NOCOPY VARCHAR2)
11080: IS
11081:
11082: l_return_status VARCHAR2(1);
11083: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11084:
11085: BEGIN
11086:
11087: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11085: BEGIN
11086:
11087: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11088: IF p_initialized THEN
11089: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11090: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp_pvt','start');
11091: END IF;
11092:
11093: DELETE
11086:
11087: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11088: IF p_initialized THEN
11089: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11090: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp_pvt','start');
11091: END IF;
11092:
11093: DELETE
11094: FROM fte_freight_costs_temp
11097: AND nvl(lane_id,-9999) <> nvl(decode(p_schedule_id,NULL,p_lane_id,NULL),-19999)
11098: AND nvl(schedule_id,-9999) <> nvl(p_schedule_id,-19999);
11099:
11100: IF p_initialized THEN
11101: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11102: END IF;
11103:
11104: EXCEPTION
11105: WHEN others THEN
11104: EXCEPTION
11105: WHEN others THEN
11106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11107: IF p_initialized THEN
11108: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11109: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11110: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11111: END IF;
11112: END delete_fc_temp_pvt;
11105: WHEN others THEN
11106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11107: IF p_initialized THEN
11108: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11109: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11110: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11111: END IF;
11112: END delete_fc_temp_pvt;
11113:
11106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11107: IF p_initialized THEN
11108: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11109: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11110: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11111: END IF;
11112: END delete_fc_temp_pvt;
11113:
11114: -- This API is called by Rate_Delivery of LCSS project
11120: p_freight_cost_temp_price IN Freight_Cost_Temp_Tab_Type,
11121: p_freight_cost_temp_charge IN Freight_Cost_Temp_Tab_Type,
11122: x_return_status OUT NOCOPY VARCHAR2)
11123: IS
11124: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
11125: l_api_name CONSTANT VARCHAR2(30) := 'MOVE_FC_TEMP_TO_MAIN';
11126: l_return_status VARCHAR2(1);
11127: l_msg_count NUMBER := 0;
11128: l_msg_data VARCHAR2(240);
11137:
11138: BEGIN
11139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11140:
11141: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11142: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11143:
11144: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11145:
11138: BEGIN
11139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11140:
11141: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11142: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11143:
11144: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11145:
11146: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11140:
11141: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11142: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11143:
11144: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11145:
11146: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11147:
11148: IF (p_delivery_leg_id IS NULL) THEN
11142: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11143:
11144: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11145:
11146: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11147:
11148: IF (p_delivery_leg_id IS NULL) THEN
11149: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11150: END IF;
11145:
11146: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11147:
11148: IF (p_delivery_leg_id IS NULL) THEN
11149: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11150: END IF;
11151:
11152: --IF p_freight_cost_temp_price.COUNT = 0 THEN
11153: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11149: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11150: END IF;
11151:
11152: --IF p_freight_cost_temp_price.COUNT = 0 THEN
11153: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11154: --END IF;
11155:
11156: SAVEPOINT before_fc_creation;
11157:
11154: --END IF;
11155:
11156: SAVEPOINT before_fc_creation;
11157:
11158: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_price...');
11159: IF p_freight_cost_temp_price.COUNT > 0 THEN
11160:
11161: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11158: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_price...');
11159: IF p_freight_cost_temp_price.COUNT > 0 THEN
11160:
11161: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11163:
11164: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).TOTAL_AMOUNT=' || p_freight_cost_temp_price(i).TOTAL_AMOUNT);
11165:
11166: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).BILLABLE_QUANTITY=' || p_freight_cost_temp_price(i).BILLABLE_QUANTITY);
11160:
11161: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11163:
11164: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).TOTAL_AMOUNT=' || p_freight_cost_temp_price(i).TOTAL_AMOUNT);
11165:
11166: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).BILLABLE_QUANTITY=' || p_freight_cost_temp_price(i).BILLABLE_QUANTITY);
11167:
11168: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).UNIT_AMOUNT=' || p_freight_cost_temp_price(i).UNIT_AMOUNT);
11162: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11163:
11164: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).TOTAL_AMOUNT=' || p_freight_cost_temp_price(i).TOTAL_AMOUNT);
11165:
11166: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).BILLABLE_QUANTITY=' || p_freight_cost_temp_price(i).BILLABLE_QUANTITY);
11167:
11168: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).UNIT_AMOUNT=' || p_freight_cost_temp_price(i).UNIT_AMOUNT);
11169:
11170: --ensures no spill overs from earlier rows
11164: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).TOTAL_AMOUNT=' || p_freight_cost_temp_price(i).TOTAL_AMOUNT);
11165:
11166: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).BILLABLE_QUANTITY=' || p_freight_cost_temp_price(i).BILLABLE_QUANTITY);
11167:
11168: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price(i).UNIT_AMOUNT=' || p_freight_cost_temp_price(i).UNIT_AMOUNT);
11169:
11170: --ensures no spill overs from earlier rows
11171: l_freight_cost_main_row:=l_empty_main_row;
11172:
11205:
11206: -- pack J Enhancement for FPA
11207: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11208: := p_freight_cost_temp_price(i).COMMODITY_CATEGORY_ID;
11209: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11210: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11211:
11212: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11213: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11208: := p_freight_cost_temp_price(i).COMMODITY_CATEGORY_ID;
11209: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11210: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11211:
11212: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11213: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11214: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11215:
11216: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11209: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11210: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11211:
11212: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11213: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11214: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11215:
11216: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11217: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11210: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11211:
11212: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11213: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11214: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11215:
11216: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11217: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11218: AND l_freight_cost_main_row.delivery_leg_id is not null THEN
11223:
11224: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11225: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_main_row.delivery_leg_id;
11226:
11227: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.FREIGHT_COST_ID='||l_freight_cost_main_row.FREIGHT_COST_ID);
11228:
11229: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11230: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11231: p_rowid => l_update_rowid,
11225: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_main_row.delivery_leg_id;
11226:
11227: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.FREIGHT_COST_ID='||l_freight_cost_main_row.FREIGHT_COST_ID);
11228:
11229: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11230: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11231: p_rowid => l_update_rowid,
11232: p_freight_cost_info => l_freight_cost_main_row,
11233: x_return_status => l_return_status);
11234:
11235: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11236: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11237: ROLLBACK to before_fc_creation;
11238: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11239: END IF;
11240: END IF;
11241: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11242:
11237: ROLLBACK to before_fc_creation;
11238: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11239: END IF;
11240: END IF;
11241: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11242:
11243: ELSE
11244:
11245: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11244:
11245: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11246: l_freight_cost_main_row.CREATED_BY := FND_GLOBAL.USER_ID;
11247:
11248: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost...');
11249: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11250: p_freight_cost_info => l_freight_cost_main_row,
11251: x_rowid => l_rowid,
11252: x_freight_cost_id => l_freight_cost_id,
11254:
11255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11257: ROLLBACK to before_fc_creation;
11258: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11259: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11260: END IF;
11261: END IF;
11262: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11257: ROLLBACK to before_fc_creation;
11258: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11259: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11260: END IF;
11261: END IF;
11262: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11263:
11258: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11259: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11260: END IF;
11261: END IF;
11262: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11263:
11264: END IF;
11265:
11266: END LOOP; -- p_freight_cost_temp_price loop
11265:
11266: END LOOP; -- p_freight_cost_temp_price loop
11267: END IF;
11268:
11269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_charge...');
11270: IF p_freight_cost_temp_charge.COUNT > 0 THEN
11271: FOR i in p_freight_cost_temp_charge.FIRST..p_freight_cost_temp_charge.LAST LOOP
11272: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11273:
11268:
11269: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_charge...');
11270: IF p_freight_cost_temp_charge.COUNT > 0 THEN
11271: FOR i in p_freight_cost_temp_charge.FIRST..p_freight_cost_temp_charge.LAST LOOP
11272: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11273:
11274: --ensures no spill overs from earlier rows
11275: l_freight_cost_main_charge:=l_empty_main_row;
11276:
11311:
11312: -- pack J Enhancement for FPA
11313: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
11314: := p_freight_cost_temp_charge(i).COMMODITY_CATEGORY_ID;
11315: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11316: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
11317:
11318: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11319: p_freight_cost_info => l_freight_cost_main_charge,
11323:
11324: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11325: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11326: ROLLBACK to before_fc_creation;
11327: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11328: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11329: END IF;
11330: END IF;
11331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11324: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11325: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11326: ROLLBACK to before_fc_creation;
11327: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11328: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11329: END IF;
11330: END IF;
11331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11332:
11327: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11328: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11329: END IF;
11330: END IF;
11331: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11332:
11333: END LOOP; -- p_freight_cost_temp_charge loop
11334: END IF;
11335:
11332:
11333: END LOOP; -- p_freight_cost_temp_charge loop
11334: END IF;
11335:
11336: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11337:
11338: EXCEPTION
11339: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11335:
11336: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11337:
11338: EXCEPTION
11339: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11341: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11337:
11338: EXCEPTION
11339: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11341: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11338: EXCEPTION
11339: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11341: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11339: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11341: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11341: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11348: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11349: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11342: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11348: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11349: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11343: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11348: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11349: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11351: WHEN others THEN
11345: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11348: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11349: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11351: WHEN others THEN
11352: ROLLBACK to before_fc_creation;
11353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11347: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11348: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11349: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11351: WHEN others THEN
11352: ROLLBACK to before_fc_creation;
11353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11354: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11350: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11351: WHEN others THEN
11352: ROLLBACK to before_fc_creation;
11353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11354: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11357: END;
11358:
11351: WHEN others THEN
11352: ROLLBACK to before_fc_creation;
11353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11354: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11357: END;
11358:
11359: -- This API is called by Rate_Delivery of LCSS project
11352: ROLLBACK to before_fc_creation;
11353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11354: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11355: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11356: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11357: END;
11358:
11359: -- This API is called by Rate_Delivery of LCSS project
11360: -- To move freight costs from pl/sql table to wsh_freight_costs
11363: PROCEDURE Move_fc_temp_to_main (
11364: p_freight_cost_temp IN Freight_Cost_Temp_Tab_Type,
11365: x_return_status OUT NOCOPY VARCHAR2)
11366: IS
11367: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
11368: l_api_name CONSTANT VARCHAR2(30) := 'MOVE_FC_TEMP_TO_MAIN';
11369: l_return_status VARCHAR2(1);
11370: l_msg_count NUMBER := 0;
11371: l_msg_data VARCHAR2(240);
11377:
11378: BEGIN
11379: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11380:
11381: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11382: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11383:
11384: -- IF p_freight_cost_temp.COUNT = 0 THEN
11385: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11378: BEGIN
11379: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11380:
11381: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11382: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11383:
11384: -- IF p_freight_cost_temp.COUNT = 0 THEN
11385: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11386: -- END IF;
11381: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11382: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11383:
11384: -- IF p_freight_cost_temp.COUNT = 0 THEN
11385: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11386: -- END IF;
11387:
11388: SAVEPOINT before_fc_creation;
11389:
11386: -- END IF;
11387:
11388: SAVEPOINT before_fc_creation;
11389:
11390: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp...');
11391: IF p_freight_cost_temp.COUNT > 0 THEN
11392: FOR i in p_freight_cost_temp.FIRST..p_freight_cost_temp.LAST LOOP
11393: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11394:
11389:
11390: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp...');
11391: IF p_freight_cost_temp.COUNT > 0 THEN
11392: FOR i in p_freight_cost_temp.FIRST..p_freight_cost_temp.LAST LOOP
11393: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11394:
11395: --ensures no spill overs from earlier rows
11396: l_freight_cost_main_row:=l_empty_main_row;
11397:
11422:
11423: -- pack J Enhancement for FPA
11424: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11425: := p_freight_cost_temp(i).COMMODITY_CATEGORY_ID;
11426: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11427: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11428:
11429: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11430: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11425: := p_freight_cost_temp(i).COMMODITY_CATEGORY_ID;
11426: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11427: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11428:
11429: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11430: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11431: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11432:
11433: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11426: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11427: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11428:
11429: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11430: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11431: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11432:
11433: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11434: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11427: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11428:
11429: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.line_type_code='||l_freight_cost_main_row.line_type_code);
11430: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_detail_id='||l_freight_cost_main_row.delivery_detail_id);
11431: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.delivery_leg_id='||l_freight_cost_main_row.delivery_leg_id);
11432:
11433: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11434: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11435: AND l_freight_cost_main_row.delivery_leg_id is not null THEN
11439: -- The lane level summary amount becomes the delivery leg level summary amount
11440:
11441: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11442:
11443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.FREIGHT_COST_ID='||l_freight_cost_main_row.FREIGHT_COST_ID);
11444:
11445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11446: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11447: p_rowid => l_update_rowid,
11441: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11442:
11443: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_freight_cost_main_row.FREIGHT_COST_ID='||l_freight_cost_main_row.FREIGHT_COST_ID);
11444:
11445: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11446: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11447: p_rowid => l_update_rowid,
11448: p_freight_cost_info => l_freight_cost_main_row,
11449: x_return_status => l_return_status);
11450:
11451: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11452: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11453: ROLLBACK to before_fc_creation;
11454: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11455: END IF;
11456: END IF;
11457: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11458:
11453: ROLLBACK to before_fc_creation;
11454: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11455: END IF;
11456: END IF;
11457: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11458:
11459: ELSE
11460:
11461: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11460:
11461: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11462: l_freight_cost_main_row.CREATED_BY := FND_GLOBAL.USER_ID;
11463:
11464: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost...');
11465: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11466: p_freight_cost_info => l_freight_cost_main_row,
11467: x_rowid => l_rowid,
11468: x_freight_cost_id => l_freight_cost_id,
11470:
11471: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11472: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11473: ROLLBACK to before_fc_creation;
11474: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11475: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11476: END IF;
11477: END IF;
11478: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11471: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11472: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11473: ROLLBACK to before_fc_creation;
11474: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11475: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11476: END IF;
11477: END IF;
11478: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11479:
11474: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11475: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11476: END IF;
11477: END IF;
11478: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11479:
11480: END IF;
11481:
11482: END LOOP; -- p_freight_cost_temp_price loop
11481:
11482: END LOOP; -- p_freight_cost_temp_price loop
11483: END IF;
11484:
11485: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11486:
11487: EXCEPTION
11488: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11489: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11484:
11485: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11486:
11487: EXCEPTION
11488: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11489: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11490: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11486:
11487: EXCEPTION
11488: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11489: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11490: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11487: EXCEPTION
11488: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11489: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11490: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11488: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11489: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11490: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11490: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11498: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11491: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11498: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11499: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11492: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11498: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11499: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11500: WHEN others THEN
11494: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11498: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11499: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11500: WHEN others THEN
11501: ROLLBACK to before_fc_creation;
11502: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11496: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11498: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11499: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11500: WHEN others THEN
11501: ROLLBACK to before_fc_creation;
11502: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11503: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11499: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11500: WHEN others THEN
11501: ROLLBACK to before_fc_creation;
11502: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11503: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11504: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11505: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11506: END;
11507:
11500: WHEN others THEN
11501: ROLLBACK to before_fc_creation;
11502: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11503: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11504: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11505: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11506: END;
11507:
11508: -- todo take care of applied_to_charge_id
11501: ROLLBACK to before_fc_creation;
11502: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11503: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11504: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11505: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11506: END;
11507:
11508: -- todo take care of applied_to_charge_id
11509: PROCEDURE Move_fc_temp_to_main (
11567: l_update_rowid VARCHAR2(30);
11568: l_freight_cost_id NUMBER;
11569: l_return_status VARCHAR2(1);
11570:
11571: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11572:
11573: BEGIN
11574:
11575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11573: BEGIN
11574:
11575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11576: IF (p_init_prc_log = 'Y') THEN
11577: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
11578: x_return_status => l_return_status );
11579: END IF;
11580:
11581: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11583: x_return_status := l_return_status;
11584: RETURN;
11585: END IF;
11586: ELSE
11587: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11588: END IF;
11589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11591:
11585: END IF;
11586: ELSE
11587: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11588: END IF;
11589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11591:
11592: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Delivery Leg Id - '||p_delivery_leg_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11593: ||' Service type - '||p_service_type_code );
11586: ELSE
11587: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11588: END IF;
11589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11591:
11592: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Delivery Leg Id - '||p_delivery_leg_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11593: ||' Service type - '||p_service_type_code );
11594:
11588: END IF;
11589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11591:
11592: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Delivery Leg Id - '||p_delivery_leg_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11593: ||' Service type - '||p_service_type_code );
11594:
11595: IF (p_delivery_leg_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) OR (p_request_id IS NULL)THEN
11596: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11592: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Delivery Leg Id - '||p_delivery_leg_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11593: ||' Service type - '||p_service_type_code );
11594:
11595: IF (p_delivery_leg_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) OR (p_request_id IS NULL)THEN
11596: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11597: END IF;
11598:
11599: SAVEPOINT before_fc_creation;
11600:
11624: x_return_status=>l_return_status);
11625:
11626: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11627: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11628: raise FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail;
11629: END IF;
11630: END IF;
11631:
11632:
11681:
11682: -- pack J Enhancement for FPA
11683: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11684: := l_freight_cost_temp_row.COMMODITY_CATEGORY_ID;
11685: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11686: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11687:
11688: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY'
11689: OR (l_freight_cost_main_row.line_type_code = 'SUMMARY'
11700:
11701: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11702: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11703: ROLLBACK to before_fc_creation;
11704: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11705: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11706: END IF;
11707: END IF;
11708: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11701: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11702: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11703: ROLLBACK to before_fc_creation;
11704: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11705: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11706: END IF;
11707: END IF;
11708: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11709:
11704: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11705: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11706: END IF;
11707: END IF;
11708: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11709:
11710: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY' THEN
11711: l_price_fc_ids(l_freight_cost_main_row.delivery_detail_id) := l_freight_cost_id;
11712: END IF;
11727:
11728: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11729: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11730: ROLLBACK to before_fc_creation;
11731: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11732: END IF;
11733: END IF;
11734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11735:
11730: ROLLBACK to before_fc_creation;
11731: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11732: END IF;
11733: END IF;
11734: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11735:
11736: END IF;
11737:
11738:
11737:
11738:
11739: END LOOP;
11740: -- IF c_move_fc_temp%ROWCOUNT = 0 THEN
11741: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11742: -- END IF;
11743:
11744: OPEN c_move_fc_temp_charge;
11745: LOOP
11785:
11786: -- pack J Enhancement for FPA
11787: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
11788: := l_freight_cost_temp_charge.COMMODITY_CATEGORY_ID;
11789: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11790: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
11791:
11792: l_freight_cost_main_charge.applied_to_charge_id := l_price_fc_ids(l_freight_cost_main_charge.delivery_detail_id);
11793:
11799:
11800: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11801: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11802: ROLLBACK to before_fc_creation;
11803: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11804: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11805: END IF;
11806: END IF;
11807: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11800: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11801: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11802: ROLLBACK to before_fc_creation;
11803: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11804: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11805: END IF;
11806: END IF;
11807: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11808:
11803: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11804: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11805: END IF;
11806: END IF;
11807: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11808:
11809: END LOOP;
11810:
11811: BEGIN -- anonymous block to make sure transaction goes through even if the
11821: AND moved_to_main_flag = 'N';
11822:
11823: EXCEPTION
11824: WHEN others THEN
11825: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Updating freight_costs_temp moved_to_main_flag failed');
11826: null;
11827: END;
11828:
11829: delete_fc_temp_pvt (
11833: x_return_status => l_return_status);
11834:
11835: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11836: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11837: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11838: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11839: END IF;
11840: ELSE
11841: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11834:
11835: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11836: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11837: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11838: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11839: END IF;
11840: ELSE
11841: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11842: END IF;
11837: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11838: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11839: END IF;
11840: ELSE
11841: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11842: END IF;
11843:
11844: END IF;
11845:
11842: END IF;
11843:
11844: END IF;
11845:
11846: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11847: IF (p_init_prc_log = 'Y') THEN
11848: FTE_FREIGHT_PRICING_UTIL.close_logs;
11849: END IF;
11850:
11844: END IF;
11845:
11846: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11847: IF (p_init_prc_log = 'Y') THEN
11848: FTE_FREIGHT_PRICING_UTIL.close_logs;
11849: END IF;
11850:
11851: EXCEPTION
11852:
11849: END IF;
11850:
11851: EXCEPTION
11852:
11853: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11854: ROLLBACK to before_fc_creation;
11855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11856: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11852:
11853: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11854: ROLLBACK to before_fc_creation;
11855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11856: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11858: IF (p_init_prc_log = 'Y') THEN
11859: FTE_FREIGHT_PRICING_UTIL.close_logs;
11860: END IF;
11853: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11854: ROLLBACK to before_fc_creation;
11855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11856: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11858: IF (p_init_prc_log = 'Y') THEN
11859: FTE_FREIGHT_PRICING_UTIL.close_logs;
11860: END IF;
11861:
11855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11856: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11857: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11858: IF (p_init_prc_log = 'Y') THEN
11859: FTE_FREIGHT_PRICING_UTIL.close_logs;
11860: END IF;
11861:
11862: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11858: IF (p_init_prc_log = 'Y') THEN
11859: FTE_FREIGHT_PRICING_UTIL.close_logs;
11860: END IF;
11861:
11862: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11864: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11865: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11866: IF (p_init_prc_log = 'Y') THEN
11860: END IF;
11861:
11862: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11864: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11865: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11866: IF (p_init_prc_log = 'Y') THEN
11867: FTE_FREIGHT_PRICING_UTIL.close_logs;
11868: END IF;
11861:
11862: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11864: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11865: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11866: IF (p_init_prc_log = 'Y') THEN
11867: FTE_FREIGHT_PRICING_UTIL.close_logs;
11868: END IF;
11869: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11864: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11865: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11866: IF (p_init_prc_log = 'Y') THEN
11867: FTE_FREIGHT_PRICING_UTIL.close_logs;
11868: END IF;
11869: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11870: --ROLLBACK to before_fc_creation;
11871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11865: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11866: IF (p_init_prc_log = 'Y') THEN
11867: FTE_FREIGHT_PRICING_UTIL.close_logs;
11868: END IF;
11869: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11870: --ROLLBACK to before_fc_creation;
11871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11872: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11868: END IF;
11869: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11870: --ROLLBACK to before_fc_creation;
11871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11872: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11874: IF (p_init_prc_log = 'Y') THEN
11875: FTE_FREIGHT_PRICING_UTIL.close_logs;
11876: END IF;
11869: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11870: --ROLLBACK to before_fc_creation;
11871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11872: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11874: IF (p_init_prc_log = 'Y') THEN
11875: FTE_FREIGHT_PRICING_UTIL.close_logs;
11876: END IF;
11877: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11872: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11874: IF (p_init_prc_log = 'Y') THEN
11875: FTE_FREIGHT_PRICING_UTIL.close_logs;
11876: END IF;
11877: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11879: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11873: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11874: IF (p_init_prc_log = 'Y') THEN
11875: FTE_FREIGHT_PRICING_UTIL.close_logs;
11876: END IF;
11877: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11879: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11880: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11881: IF (p_init_prc_log = 'Y') THEN
11875: FTE_FREIGHT_PRICING_UTIL.close_logs;
11876: END IF;
11877: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11879: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11880: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11881: IF (p_init_prc_log = 'Y') THEN
11882: FTE_FREIGHT_PRICING_UTIL.close_logs;
11883: END IF;
11876: END IF;
11877: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11879: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11880: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11881: IF (p_init_prc_log = 'Y') THEN
11882: FTE_FREIGHT_PRICING_UTIL.close_logs;
11883: END IF;
11884: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11879: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11880: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11881: IF (p_init_prc_log = 'Y') THEN
11882: FTE_FREIGHT_PRICING_UTIL.close_logs;
11883: END IF;
11884: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11885: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11886: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11880: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11881: IF (p_init_prc_log = 'Y') THEN
11882: FTE_FREIGHT_PRICING_UTIL.close_logs;
11883: END IF;
11884: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11885: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11886: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11887: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11888: IF (p_init_prc_log = 'Y') THEN
11882: FTE_FREIGHT_PRICING_UTIL.close_logs;
11883: END IF;
11884: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11885: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11886: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11887: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11888: IF (p_init_prc_log = 'Y') THEN
11889: FTE_FREIGHT_PRICING_UTIL.close_logs;
11890: END IF;
11883: END IF;
11884: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11885: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11886: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11887: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11888: IF (p_init_prc_log = 'Y') THEN
11889: FTE_FREIGHT_PRICING_UTIL.close_logs;
11890: END IF;
11891: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11885: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11886: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11887: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11888: IF (p_init_prc_log = 'Y') THEN
11889: FTE_FREIGHT_PRICING_UTIL.close_logs;
11890: END IF;
11891: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11892: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11893: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11887: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11888: IF (p_init_prc_log = 'Y') THEN
11889: FTE_FREIGHT_PRICING_UTIL.close_logs;
11890: END IF;
11891: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11892: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11893: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11895: IF (p_init_prc_log = 'Y') THEN
11889: FTE_FREIGHT_PRICING_UTIL.close_logs;
11890: END IF;
11891: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11892: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11893: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11895: IF (p_init_prc_log = 'Y') THEN
11896: FTE_FREIGHT_PRICING_UTIL.close_logs;
11897: END IF;
11890: END IF;
11891: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11892: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11893: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11895: IF (p_init_prc_log = 'Y') THEN
11896: FTE_FREIGHT_PRICING_UTIL.close_logs;
11897: END IF;
11898: WHEN others THEN
11892: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11893: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11895: IF (p_init_prc_log = 'Y') THEN
11896: FTE_FREIGHT_PRICING_UTIL.close_logs;
11897: END IF;
11898: WHEN others THEN
11899: ROLLBACK to before_fc_creation;
11900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11897: END IF;
11898: WHEN others THEN
11899: ROLLBACK to before_fc_creation;
11900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11901: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11902: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11904: IF (p_init_prc_log = 'Y') THEN
11905: FTE_FREIGHT_PRICING_UTIL.close_logs;
11898: WHEN others THEN
11899: ROLLBACK to before_fc_creation;
11900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11901: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11902: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11904: IF (p_init_prc_log = 'Y') THEN
11905: FTE_FREIGHT_PRICING_UTIL.close_logs;
11906: END IF;
11899: ROLLBACK to before_fc_creation;
11900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11901: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11902: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11904: IF (p_init_prc_log = 'Y') THEN
11905: FTE_FREIGHT_PRICING_UTIL.close_logs;
11906: END IF;
11907: END Move_fc_temp_to_main;
11901: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11902: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11904: IF (p_init_prc_log = 'Y') THEN
11905: FTE_FREIGHT_PRICING_UTIL.close_logs;
11906: END IF;
11907: END Move_fc_temp_to_main;
11908:
11909:
11965: l_init_msg_list VARCHAR2(30) :=FND_API.G_FALSE;
11966: l_freight_cost_id NUMBER;
11967: l_return_status VARCHAR2(1);
11968:
11969: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11970:
11971: BEGIN
11972:
11973: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11971: BEGIN
11972:
11973: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11974: IF (p_init_prc_log = 'Y') THEN
11975: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
11976: x_return_status => l_return_status );
11977: END IF;
11978:
11979: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11981: x_return_status := l_return_status;
11982: RETURN;
11983: END IF;
11984: ELSE
11985: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11986: END IF;
11987: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11988: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11989:
11983: END IF;
11984: ELSE
11985: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11986: END IF;
11987: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11988: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11989:
11990: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Trip Id - '||p_trip_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11991: ||' Service type - '||p_service_type_code );
11984: ELSE
11985: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11986: END IF;
11987: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11988: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11989:
11990: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Trip Id - '||p_trip_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11991: ||' Service type - '||p_service_type_code );
11992:
11986: END IF;
11987: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11988: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11989:
11990: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Trip Id - '||p_trip_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11991: ||' Service type - '||p_service_type_code );
11992:
11993: IF (p_trip_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) THEN
11994: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11990: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id||' Trip Id - '||p_trip_id||' Lane id - '||p_lane_id||' Schedule Id - '||p_schedule_id
11991: ||' Service type - '||p_service_type_code );
11992:
11993: IF (p_trip_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) THEN
11994: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11995: END IF;
11996:
11997:
11998: --Gather mapping from delivery to dleg id. Since this is for a single trip
12010:
12011: l_dleg_ids(l_delivery_id):=l_dleg_id;
12012:
12013: ELSE
12014: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Null dleg/delivery '||l_dleg_id||' '||l_delivery_id);
12015:
12016: END IF;
12017:
12018: FETCH c_get_dlegs_from_trip INTO l_dleg_id,l_delivery_id;
12053:
12054: l_freight_cost_main_row.DELIVERY_LEG_ID := l_dleg_ids(l_freight_cost_main_row.DELIVERY_ID);
12055:
12056: ELSE
12057: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_row.DELIVERY_ID);
12058: ROLLBACK to before_fc_creation;
12059: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
12060: END IF;
12061:
12055:
12056: ELSE
12057: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_row.DELIVERY_ID);
12058: ROLLBACK to before_fc_creation;
12059: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
12060: END IF;
12061:
12062: ELSE
12063: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_temp_row.DELIVERY_LEG_ID;
12084:
12085: -- pack J Enhancement for FPA
12086: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
12087: := l_freight_cost_temp_row.COMMODITY_CATEGORY_ID;
12088: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
12089: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
12090:
12091: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY'
12092: OR (l_freight_cost_main_row.line_type_code = 'SUMMARY'
12103:
12104: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12105: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12106: ROLLBACK to before_fc_creation;
12107: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12108: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12109: END IF;
12110: END IF;
12111: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12104: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12105: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12106: ROLLBACK to before_fc_creation;
12107: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12108: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12109: END IF;
12110: END IF;
12111: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12112:
12107: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12108: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12109: END IF;
12110: END IF;
12111: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12112:
12113: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY' THEN
12114: l_price_fc_ids(l_freight_cost_main_row.delivery_detail_id) := l_freight_cost_id;
12115: END IF;
12130:
12131: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12133: ROLLBACK to before_fc_creation;
12134: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
12135: END IF;
12136: END IF;
12137: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
12138:
12133: ROLLBACK to before_fc_creation;
12134: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
12135: END IF;
12136: END IF;
12137: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
12138:
12139: END IF;
12140:
12141:
12140:
12141:
12142: END LOOP;
12143: -- IF c_move_fc_temp%ROWCOUNT = 0 THEN
12144: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
12145: -- END IF;
12146: CLOSE c_move_fc_temp;
12147:
12148: OPEN c_move_fc_temp_charge;
12175: l_freight_cost_main_charge.DELIVERY_LEG_ID := l_dleg_ids(l_freight_cost_main_charge.DELIVERY_ID);
12176:
12177: ELSE
12178:
12179: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_charge.DELIVERY_ID);
12180:
12181: END IF;
12182:
12183: ELSE
12203:
12204: -- pack J Enhancement for FPA
12205: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
12206: := l_freight_cost_temp_charge.COMMODITY_CATEGORY_ID;
12207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
12208: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
12209:
12210: l_freight_cost_main_charge.applied_to_charge_id := l_price_fc_ids(l_freight_cost_main_charge.delivery_detail_id);
12211:
12217:
12218: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12219: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12220: ROLLBACK to before_fc_creation;
12221: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12222: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12223: END IF;
12224: END IF;
12225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12218: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12219: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12220: ROLLBACK to before_fc_creation;
12221: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12222: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12223: END IF;
12224: END IF;
12225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12226:
12221: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12222: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12223: END IF;
12224: END IF;
12225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12226:
12227: END LOOP;
12228: CLOSE c_move_fc_temp_charge;
12229:
12240: AND moved_to_main_flag = 'N';
12241:
12242: EXCEPTION
12243: WHEN others THEN
12244: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Updating freight_costs_temp moved_to_main_flag failed');
12245: null;
12246: END;
12247:
12248: delete_fc_temp_pvt (
12252: x_return_status => l_return_status);
12253:
12254: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12257: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12258: END IF;
12259: ELSE
12260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12253:
12254: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12257: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12258: END IF;
12259: ELSE
12260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12261: END IF;
12256: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12257: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12258: END IF;
12259: ELSE
12260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12261: END IF;
12262:
12263: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12264: IF (p_init_prc_log = 'Y') THEN
12259: ELSE
12260: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12261: END IF;
12262:
12263: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12264: IF (p_init_prc_log = 'Y') THEN
12265: FTE_FREIGHT_PRICING_UTIL.close_logs;
12266: END IF;
12267:
12261: END IF;
12262:
12263: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12264: IF (p_init_prc_log = 'Y') THEN
12265: FTE_FREIGHT_PRICING_UTIL.close_logs;
12266: END IF;
12267:
12268: EXCEPTION
12269: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12265: FTE_FREIGHT_PRICING_UTIL.close_logs;
12266: END IF;
12267:
12268: EXCEPTION
12269: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12271: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12272: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12273: IF (p_init_prc_log = 'Y') THEN
12267:
12268: EXCEPTION
12269: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12271: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12272: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12273: IF (p_init_prc_log = 'Y') THEN
12274: FTE_FREIGHT_PRICING_UTIL.close_logs;
12275: END IF;
12268: EXCEPTION
12269: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12271: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12272: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12273: IF (p_init_prc_log = 'Y') THEN
12274: FTE_FREIGHT_PRICING_UTIL.close_logs;
12275: END IF;
12276: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12271: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12272: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12273: IF (p_init_prc_log = 'Y') THEN
12274: FTE_FREIGHT_PRICING_UTIL.close_logs;
12275: END IF;
12276: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12277: --ROLLBACK to before_fc_creation;
12278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12272: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12273: IF (p_init_prc_log = 'Y') THEN
12274: FTE_FREIGHT_PRICING_UTIL.close_logs;
12275: END IF;
12276: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12277: --ROLLBACK to before_fc_creation;
12278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12279: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12280: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12275: END IF;
12276: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12277: --ROLLBACK to before_fc_creation;
12278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12279: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12280: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12281: IF (p_init_prc_log = 'Y') THEN
12282: FTE_FREIGHT_PRICING_UTIL.close_logs;
12283: END IF;
12276: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12277: --ROLLBACK to before_fc_creation;
12278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12279: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12280: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12281: IF (p_init_prc_log = 'Y') THEN
12282: FTE_FREIGHT_PRICING_UTIL.close_logs;
12283: END IF;
12284: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12279: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12280: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12281: IF (p_init_prc_log = 'Y') THEN
12282: FTE_FREIGHT_PRICING_UTIL.close_logs;
12283: END IF;
12284: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12286: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12280: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12281: IF (p_init_prc_log = 'Y') THEN
12282: FTE_FREIGHT_PRICING_UTIL.close_logs;
12283: END IF;
12284: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12286: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12287: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12288: IF (p_init_prc_log = 'Y') THEN
12282: FTE_FREIGHT_PRICING_UTIL.close_logs;
12283: END IF;
12284: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12286: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12287: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12288: IF (p_init_prc_log = 'Y') THEN
12289: FTE_FREIGHT_PRICING_UTIL.close_logs;
12290: END IF;
12283: END IF;
12284: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12286: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12287: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12288: IF (p_init_prc_log = 'Y') THEN
12289: FTE_FREIGHT_PRICING_UTIL.close_logs;
12290: END IF;
12291: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12286: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12287: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12288: IF (p_init_prc_log = 'Y') THEN
12289: FTE_FREIGHT_PRICING_UTIL.close_logs;
12290: END IF;
12291: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12293: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12287: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12288: IF (p_init_prc_log = 'Y') THEN
12289: FTE_FREIGHT_PRICING_UTIL.close_logs;
12290: END IF;
12291: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12293: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12294: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12295: IF (p_init_prc_log = 'Y') THEN
12289: FTE_FREIGHT_PRICING_UTIL.close_logs;
12290: END IF;
12291: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12293: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12294: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12295: IF (p_init_prc_log = 'Y') THEN
12296: FTE_FREIGHT_PRICING_UTIL.close_logs;
12297: END IF;
12290: END IF;
12291: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12293: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12294: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12295: IF (p_init_prc_log = 'Y') THEN
12296: FTE_FREIGHT_PRICING_UTIL.close_logs;
12297: END IF;
12298: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12293: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12294: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12295: IF (p_init_prc_log = 'Y') THEN
12296: FTE_FREIGHT_PRICING_UTIL.close_logs;
12297: END IF;
12298: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12299: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12300: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12294: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12295: IF (p_init_prc_log = 'Y') THEN
12296: FTE_FREIGHT_PRICING_UTIL.close_logs;
12297: END IF;
12298: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12299: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12300: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12301: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12302: IF (p_init_prc_log = 'Y') THEN
12296: FTE_FREIGHT_PRICING_UTIL.close_logs;
12297: END IF;
12298: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12299: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12300: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12301: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12302: IF (p_init_prc_log = 'Y') THEN
12303: FTE_FREIGHT_PRICING_UTIL.close_logs;
12304: END IF;
12297: END IF;
12298: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12299: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12300: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12301: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12302: IF (p_init_prc_log = 'Y') THEN
12303: FTE_FREIGHT_PRICING_UTIL.close_logs;
12304: END IF;
12305: WHEN others THEN
12299: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12300: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12301: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12302: IF (p_init_prc_log = 'Y') THEN
12303: FTE_FREIGHT_PRICING_UTIL.close_logs;
12304: END IF;
12305: WHEN others THEN
12306: ROLLBACK to before_fc_creation;
12307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12304: END IF;
12305: WHEN others THEN
12306: ROLLBACK to before_fc_creation;
12307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12308: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12309: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12310: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12311: IF (p_init_prc_log = 'Y') THEN
12312: FTE_FREIGHT_PRICING_UTIL.close_logs;
12305: WHEN others THEN
12306: ROLLBACK to before_fc_creation;
12307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12308: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12309: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12310: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12311: IF (p_init_prc_log = 'Y') THEN
12312: FTE_FREIGHT_PRICING_UTIL.close_logs;
12313: END IF;
12306: ROLLBACK to before_fc_creation;
12307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12308: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12309: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12310: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12311: IF (p_init_prc_log = 'Y') THEN
12312: FTE_FREIGHT_PRICING_UTIL.close_logs;
12313: END IF;
12314: END Move_fc_temp_to_main;
12308: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12309: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12310: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12311: IF (p_init_prc_log = 'Y') THEN
12312: FTE_FREIGHT_PRICING_UTIL.close_logs;
12313: END IF;
12314: END Move_fc_temp_to_main;
12315:
12316:
12321: IS
12322:
12323: l_initialized BOOLEAN := TRUE;
12324: l_return_status VARCHAR2(1);
12325: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
12326:
12327: PRAGMA AUTONOMOUS_TRANSACTION;
12328:
12329: BEGIN
12330: SAVEPOINT DELETE_FC_TEMP;
12331:
12332: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12333:
12334: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
12335: x_return_status => l_return_status );
12336:
12337: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12338: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12339: l_initialized := FALSE;
12340: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12341: END IF;
12342: ELSE
12343: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12344: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12345: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12346: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12347: END IF;
12340: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12341: END IF;
12342: ELSE
12343: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12344: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12345: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12346: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12347: END IF;
12348:
12341: END IF;
12342: ELSE
12343: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12344: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12345: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12346: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12347: END IF;
12348:
12349: delete_fc_temp_pvt (
12342: ELSE
12343: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12344: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12345: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12346: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12347: END IF;
12348:
12349: delete_fc_temp_pvt (
12350: p_request_id => p_request_id, -- Comparison Request ID to move to main
12353:
12354: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12355: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12356: IF l_initialized THEN
12357: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12358: END IF;
12359: ROLLBACK TO DELETE_FC_TEMP;
12360: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12361: END IF;
12360: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12361: END IF;
12362: ELSE
12363: IF l_initialized THEN
12364: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12365: END IF;
12366: COMMIT;
12367: END IF;
12368:
12366: COMMIT;
12367: END IF;
12368:
12369: IF l_initialized THEN
12370: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12371: FTE_FREIGHT_PRICING_UTIL.close_logs;
12372: END IF;
12373:
12374: EXCEPTION
12367: END IF;
12368:
12369: IF l_initialized THEN
12370: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12371: FTE_FREIGHT_PRICING_UTIL.close_logs;
12372: END IF;
12373:
12374: EXCEPTION
12375:
12375:
12376: WHEN others THEN
12377: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12378: IF l_initialized THEN
12379: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12382: FTE_FREIGHT_PRICING_UTIL.close_logs;
12383: END IF;
12376: WHEN others THEN
12377: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12378: IF l_initialized THEN
12379: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12382: FTE_FREIGHT_PRICING_UTIL.close_logs;
12383: END IF;
12384: END delete_fc_temp;
12377: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12378: IF l_initialized THEN
12379: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12382: FTE_FREIGHT_PRICING_UTIL.close_logs;
12383: END IF;
12384: END delete_fc_temp;
12385:
12378: IF l_initialized THEN
12379: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12380: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12381: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12382: FTE_FREIGHT_PRICING_UTIL.close_logs;
12383: END IF;
12384: END delete_fc_temp;
12385:
12386:
12622: l_dummy_fc_temp_charge Freight_Cost_Temp_Tab_Type;
12623: l_currency_code VARCHAR2(10);
12624: l_carrier_id NUMBER;
12625:
12626: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
12627:
12628:
12629: BEGIN
12630:
12631: SAVEPOINT SHIPMENT_PRICE_COMPARE_PVT;
12632:
12633: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12634:
12635: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12636: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12632:
12633: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12634:
12635: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12636: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12634:
12635: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12636: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12635: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12636: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12636: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12637:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12645:
12638: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12645:
12646: IF p_trip_id IS NOT NULL THEN
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12645:
12646: IF p_trip_id IS NOT NULL THEN
12647: validate_nontl_trip(
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12645:
12646: IF p_trip_id IS NOT NULL THEN
12647: validate_nontl_trip(
12648: p_trip_id => p_trip_id,
12676: END IF;
12677:
12678: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12679: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12680: raise FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed;
12681: END IF;
12682: END IF;
12683:
12684:
12701: l_request_id := x_request_id;
12702:
12703: END IF;
12704:
12705: fte_freight_pricing_util.print_msg(p_msg => 'Comparison request_id is ' || l_request_id);
12706:
12707: IF (p_delivery_id IS NOT NULL) THEN
12708:
12709: OPEN c_delivery(p_delivery_id);
12715: END LOOP;
12716:
12717: IF c_delivery%ROWCOUNT = 0 THEN
12718: CLOSE c_delivery;
12719: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12720: ELSE
12721: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery%ROWCOUNT);
12722: END IF;
12723:
12717: IF c_delivery%ROWCOUNT = 0 THEN
12718: CLOSE c_delivery;
12719: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12720: ELSE
12721: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery%ROWCOUNT);
12722: END IF;
12723:
12724: CLOSE c_delivery;
12725:
12734: END LOOP;
12735:
12736: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
12737: CLOSE c_delivery_from_trip;
12738: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12739: ELSE
12740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
12741: END IF;
12742:
12736: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
12737: CLOSE c_delivery_from_trip;
12738: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12739: ELSE
12740: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
12741: END IF;
12742:
12743: CLOSE c_delivery_from_trip;
12744:
12742:
12743: CLOSE c_delivery_from_trip;
12744:
12745: ELSE
12746: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_parameters;
12747: END IF;
12748:
12749:
12750: flatten_shipment (
12752: x_return_status => l_return_status );
12753:
12754: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12755: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12756: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
12757: END IF;
12758: ELSE
12759: IF l_first_level_rows.COUNT = 0 THEN
12760: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12756: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
12757: END IF;
12758: ELSE
12759: IF l_first_level_rows.COUNT = 0 THEN
12760: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12761: END IF;
12762: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 6 : '||l_first_level_rows.COUNT);
12763: END IF;
12764:
12758: ELSE
12759: IF l_first_level_rows.COUNT = 0 THEN
12760: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12761: END IF;
12762: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 6 : '||l_first_level_rows.COUNT);
12763: END IF;
12764:
12765:
12766: IF (p_lane_id_tab.COUNT > 0) THEN
12766: IF (p_lane_id_tab.COUNT > 0) THEN
12767:
12768: IF p_lane_id_tab.COUNT <> p_service_lane_tab.COUNT THEN
12769: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12770: raise FTE_FREIGHT_PRICING_UTIL.g_missing_service_type;
12771: END IF;
12772:
12773: i := p_lane_id_tab.FIRST;
12774: LOOP
12777: FETCH c_get_carrier_for_lane INTO l_carrier_id;
12778: CLOSE c_get_carrier_for_lane;
12779:
12780: IF p_trip_id IS NOT NULL THEN
12781: FTE_FREIGHT_PRICING_UTIL.get_currency_code
12782: (
12783: p_trip_id => p_trip_id,
12784: p_carrier_id => l_carrier_id,
12785: x_currency_code => l_currency_code,
12785: x_currency_code => l_currency_code,
12786: x_return_status => l_return_status
12787: );
12788: ELSE
12789: FTE_FREIGHT_PRICING_UTIL.get_currency_code
12790: (
12791: p_delivery_id => p_delivery_id,
12792: p_carrier_id => l_carrier_id,
12793: x_currency_code => l_currency_code,
12812: x_freight_cost_temp_price => l_dummy_fc_temp_price,
12813: x_freight_cost_temp_charge => l_dummy_fc_temp_charge,
12814: x_return_status => l_return_status ) ;
12815:
12816: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'After shipment_pricing - p_lane_id = '||p_lane_id_tab(i));
12817: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
12818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12820: x_sum_lane_price_tab(i) := -1;
12813: x_freight_cost_temp_charge => l_dummy_fc_temp_charge,
12814: x_return_status => l_return_status ) ;
12815:
12816: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'After shipment_pricing - p_lane_id = '||p_lane_id_tab(i));
12817: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
12818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12820: x_sum_lane_price_tab(i) := -1;
12821: x_sum_lane_price_curr_tab(i) := 'NULL';
12818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12820: x_sum_lane_price_tab(i) := -1;
12821: x_sum_lane_price_curr_tab(i) := 'NULL';
12822: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'lane: '||p_lane_id_tab(i)||' shipment_pricing ');
12823: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12824: END IF;
12825: ELSE
12826: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for lane : '||p_lane_id_tab(i));
12822: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'lane: '||p_lane_id_tab(i)||' shipment_pricing ');
12823: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12824: END IF;
12825: ELSE
12826: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for lane : '||p_lane_id_tab(i));
12827:
12828: x_sum_lane_price_tab(i) := nvl(l_lane_summary,0);
12829: x_sum_lane_price_curr_tab(i) := l_lane_summary_uom;
12830:
12840: IF (p_sched_id_tab.COUNT > 0) THEN
12841:
12842: IF p_sched_id_tab.COUNT <> p_service_sched_tab.COUNT THEN
12843: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12844: raise FTE_FREIGHT_PRICING_UTIL.g_missing_service_type;
12845: END IF;
12846:
12847: i := p_sched_id_tab.FIRST;
12848: LOOP
12866: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12867: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12868: x_sum_sched_price_tab(i) := -1;
12869: x_sum_sched_price_curr_tab(i) := 'NULL';
12870: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'sched: '||p_sched_id_tab(i)||' shipment_pricing ');
12871: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12872: END IF;
12873: ELSE
12874: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for sched : '||p_sched_id_tab(i));
12870: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'sched: '||p_sched_id_tab(i)||' shipment_pricing ');
12871: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12872: END IF;
12873: ELSE
12874: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for sched : '||p_sched_id_tab(i));
12875:
12876: x_sum_sched_price_tab(i) := nvl(l_sched_summary,0);
12877: x_sum_sched_price_curr_tab(i) := l_sched_summary_uom;
12878:
12885: END IF;
12886:
12887: x_request_id := l_request_id;
12888:
12889: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12890:
12891: EXCEPTION
12892: WHEN g_finished_warning THEN
12893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12890:
12891: EXCEPTION
12892: WHEN g_finished_warning THEN
12893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12895: WHEN FND_API.G_EXC_ERROR THEN
12896: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12897: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12895: WHEN FND_API.G_EXC_ERROR THEN
12896: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12897: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12894: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12895: WHEN FND_API.G_EXC_ERROR THEN
12896: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12897: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12895: WHEN FND_API.G_EXC_ERROR THEN
12896: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12897: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12897: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12898: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12899: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12901: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12902: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12903: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12905: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12906: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12907: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12909: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12916: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12917: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12910: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12916: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12917: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12918: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12911: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12916: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12917: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12918: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12919: WHEN others THEN
12913: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12916: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12917: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12918: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12919: WHEN others THEN
12920: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12915: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12916: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12917: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12918: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12919: WHEN others THEN
12920: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12922: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12918: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12919: WHEN others THEN
12920: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12922: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12923: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12924: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12925:
12926: END shipment_price_compare_pvt;
12919: WHEN others THEN
12920: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12922: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12923: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12924: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12925:
12926: END shipment_price_compare_pvt;
12927:
12920: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12922: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12923: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12924: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12925:
12926: END shipment_price_compare_pvt;
12927:
12928:
12936: x_msg_data OUT NOCOPY VARCHAR2 )
12937: IS
12938:
12939: l_return_status VARCHAR2(1);
12940: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
12941:
12942: CURSOR c_delivery_details(c_delivery_id IN NUMBER) IS
12943: SELECT wdd.delivery_detail_id,
12944: wdd.gross_weight ,
12963: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12964:
12965: -- Initialize message list if p_init_msg_list is set to TRUE.
12966:
12967: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
12968: x_return_status => l_return_status );
12969:
12970: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12971: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12972: x_return_status := l_return_status;
12973: RETURN;
12974: END IF;
12975: ELSE
12976: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12977: END IF;
12978:
12979:
12980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12976: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12977: END IF;
12978:
12979:
12980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'FPA_total_commodity_weight','start');
12982:
12983: OPEN c_delivery_wt_uom(p_delivery_id);
12984: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12977: END IF;
12978:
12979:
12980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'FPA_total_commodity_weight','start');
12982:
12983: OPEN c_delivery_wt_uom(p_delivery_id);
12984: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12985: CLOSE c_delivery_wt_uom;
12984: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12985: CLOSE c_delivery_wt_uom;
12986:
12987: IF (l_target_wt_uom IS NULL) THEN
12988: raise fte_freight_pricing_util.g_weight_uom_not_found;
12989: END IF;
12990:
12991: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_target_wt_uom='||l_target_wt_uom);
12992:
12987: IF (l_target_wt_uom IS NULL) THEN
12988: raise fte_freight_pricing_util.g_weight_uom_not_found;
12989: END IF;
12990:
12991: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_target_wt_uom='||l_target_wt_uom);
12992:
12993: l_cum_wt :=0;
12994:
12995: FOR c_det_rec IN c_delivery_details(p_delivery_id) LOOP
12994:
12995: FOR c_det_rec IN c_delivery_details(p_delivery_id) LOOP
12996:
12997: IF (c_det_rec.gross_weight IS NULL OR c_det_rec.weight_uom_code IS NULL) THEN
12998: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
12999: p_exc =>'g_tl_dtl_no_gross_weight',
13000: p_msg_name =>'FTE_INVALID_DEL_DET_WT',
13001: p_delivery_detail_id =>c_det_rec.delivery_detail_id);
13002: raise fte_freight_pricing_util.g_tl_dtl_no_gross_weight;
12998: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
12999: p_exc =>'g_tl_dtl_no_gross_weight',
13000: p_msg_name =>'FTE_INVALID_DEL_DET_WT',
13001: p_delivery_detail_id =>c_det_rec.delivery_detail_id);
13002: raise fte_freight_pricing_util.g_tl_dtl_no_gross_weight;
13003: END IF;
13004:
13005: IF (c_det_rec.weight_uom_code <> l_target_wt_uom) THEN
13006: l_temp_wt := WSH_WV_UTILS.convert_uom(c_det_rec.weight_uom_code,
13014: END IF;
13015:
13016: END LOOP;
13017:
13018: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_cum_wt='||l_cum_wt);
13019: x_total_comm_wt := l_cum_wt;
13020: x_wt_uom := l_target_wt_uom;
13021:
13022: -- Standard call to get message count and if count is 1,
13024: FND_MSG_PUB.Count_And_Get (
13025: p_count => x_msg_count,
13026: p_data => x_msg_data );
13027:
13028: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13029: FTE_FREIGHT_PRICING_UTIL.close_logs;
13030:
13031: EXCEPTION
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13025: p_count => x_msg_count,
13026: p_data => x_msg_data );
13027:
13028: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13029: FTE_FREIGHT_PRICING_UTIL.close_logs;
13030:
13031: EXCEPTION
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13028: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13029: FTE_FREIGHT_PRICING_UTIL.close_logs;
13030:
13031: EXCEPTION
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13030:
13031: EXCEPTION
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13037: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13038: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13031: EXCEPTION
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13037: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13038: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13039: p_exc =>'g_tl_dtl_no_gross_weight',
13032: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13037: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13038: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13039: p_exc =>'g_tl_dtl_no_gross_weight',
13040: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13033: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13037: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13038: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13039: p_exc =>'g_tl_dtl_no_gross_weight',
13040: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13041: p_delivery_id =>p_delivery_id);
13034: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13035: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13036: FTE_FREIGHT_PRICING_UTIL.close_logs;
13037: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13038: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13039: p_exc =>'g_tl_dtl_no_gross_weight',
13040: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13041: p_delivery_id =>p_delivery_id);
13042: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13039: p_exc =>'g_tl_dtl_no_gross_weight',
13040: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13041: p_delivery_id =>p_delivery_id);
13042: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13043: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13045: FTE_FREIGHT_PRICING_UTIL.close_logs;
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13040: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13041: p_delivery_id =>p_delivery_id);
13042: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13043: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13045: FTE_FREIGHT_PRICING_UTIL.close_logs;
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13041: p_delivery_id =>p_delivery_id);
13042: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13043: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13045: FTE_FREIGHT_PRICING_UTIL.close_logs;
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13049: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13045: FTE_FREIGHT_PRICING_UTIL.close_logs;
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13049: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13050: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13051: FTE_FREIGHT_PRICING_UTIL.close_logs;
13052: END FPA_total_commodity_weight;
13045: FTE_FREIGHT_PRICING_UTIL.close_logs;
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13049: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13050: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13051: FTE_FREIGHT_PRICING_UTIL.close_logs;
13052: END FPA_total_commodity_weight;
13053:
13046: WHEN others THEN
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13049: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13050: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13051: FTE_FREIGHT_PRICING_UTIL.close_logs;
13052: END FPA_total_commodity_weight;
13053:
13054:
13047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13048: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13049: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13050: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13051: FTE_FREIGHT_PRICING_UTIL.close_logs;
13052: END FPA_total_commodity_weight;
13053:
13054:
13055:
13129: l_tl_ref dbms_utility.number_array;
13130: l_lane_xref dbms_utility.number_array;
13131: l_sched_xref dbms_utility.number_array;
13132:
13133: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
13134:
13135: l_ret_stat VARCHAR2(1); -- used only for returning log file name
13136:
13137: PRAGMA AUTONOMOUS_TRANSACTION;
13147:
13148:
13149:
13150:
13151: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
13152: x_return_status => l_return_status );
13153:
13154: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13155: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
13156: x_return_status := l_return_status;
13157: RETURN;
13158: END IF;
13159: ELSE
13160: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
13161: END IF;
13162:
13163: END IF;
13164:
13161: END IF;
13162:
13163: END IF;
13164:
13165: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13166: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13167:
13168: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13169:
13162:
13163: END IF;
13164:
13165: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13166: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13167:
13168: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13169:
13170:
13164:
13165: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13166: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13167:
13168: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13169:
13170:
13171: l_warn_flag := 'N';
13172:
13243: x_return_status => l_return_status );
13244:
13245: x_request_id := l_request_id;
13246:
13247: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
13248:
13249: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13250: raise fte_freight_pricing_util.g_unexp_err;
13251: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13246:
13247: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
13248:
13249: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13250: raise fte_freight_pricing_util.g_unexp_err;
13251: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13252: --raise fte_freight_pricing_util.g_ship_prc_compare_fail;
13253: --In case of expected errors in shipment_price_compare_pvt
13254: ---Allow this procedure to continue to TL if necessary
13248:
13249: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13250: raise fte_freight_pricing_util.g_unexp_err;
13251: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13252: --raise fte_freight_pricing_util.g_ship_prc_compare_fail;
13253: --In case of expected errors in shipment_price_compare_pvt
13254: ---Allow this procedure to continue to TL if necessary
13255: x_return_status := l_return_status;
13256: l_warn_flag := 'Y';
13283: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13284: THEN
13285: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13286: THEN
13287: raise FTE_FREIGHT_PRICING_UTIL.g_unexp_err;
13288: END IF;
13289: END IF;
13290:
13291:
13291:
13292:
13293:
13294:
13295: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'>>6');
13296:
13297: FTE_TL_RATING.TL_DELIVERY_PRICE_COMPARE(
13298: p_wsh_delivery_id=>p_delivery_id,
13299: p_lane_rows=>l_exploded_lane_rows,
13313: -- For now only unexpected errors returned cause this procedure to fail
13314: -- However, we can go more granular, and fail even on certain
13315: -- errors caused in the child procedures
13316:
13317: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'>>l_return_status='||l_return_status);
13318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13319: THEN
13320: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13321: THEN
13318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13319: THEN
13320: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13321: THEN
13322: raise FTE_FREIGHT_PRICING_UTIL.g_unexp_err;
13323: ELSE
13324: --In case of expected errors
13325: ---Allow this procedure to continue if necessary
13326: l_warn_flag := 'Y';
13325: ---Allow this procedure to continue if necessary
13326: l_warn_flag := 'Y';
13327: END IF;
13328: END IF;
13329: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'>>l_tl_lane_sched_sum_rows.COUNT='||l_tl_lane_sched_sum_rows.COUNT);
13330:
13331:
13332: END IF;
13333:
13347: -- initialize output nested tables
13348: IF (p_lane_sched_id_tab.COUNT > 0 )
13349: THEN
13350:
13351: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Init op tables');
13352:
13353: x_sum_rate_tab := FTE_ID_TAB_TYPE(0);
13354: x_sum_rate_curr_tab := FTE_CODE_TAB_TYPE('NULL');
13355: -- init all elements the tables with 0 and 'NULL' resp.
13369: x_vehicle_type_tab.EXTEND(l_output_count-1,1);
13370: x_mode_tab.EXTEND(l_output_count-1,1);
13371: x_service_type_tab.EXTEND(l_output_count-1,1);
13372:
13373: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Init op tables End');
13374:
13375: END IF;
13376:
13377:
13384: l_ref:=l_exploded_ref_rows.FIRST;
13385:
13386: WHILE(k<=l_output_count)
13387: LOOP
13388: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Op index:'||k);
13389:
13390: IF (p_mode_tab(i) <> 'TRUCK' )
13391: THEN
13392: IF (p_lane_sched_tab(i) = 'L')
13391: THEN
13392: IF (p_lane_sched_tab(i) = 'L')
13393: THEN
13394:
13395: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Lane:');
13396: IF ((l_sum_lane_price_tab.EXISTS(L)) AND (l_sum_lane_price_curr_tab.EXISTS(L)))
13397: THEN
13398: x_sum_rate_tab(k) := l_sum_lane_price_tab(L);
13399: x_sum_rate_curr_tab(k) := l_sum_lane_price_curr_tab(L);
13408:
13409: L := L + 1;
13410: k:=k+1;
13411:
13412: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Lane ENd:');
13413:
13414: ELSIF (p_lane_sched_tab(i) = 'S')
13415: THEN
13416:
13413:
13414: ELSIF (p_lane_sched_tab(i) = 'S')
13415: THEN
13416:
13417: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Schedule:');
13418:
13419: IF ((l_sum_sched_price_tab.EXISTS(S)) AND (l_sum_sched_price_curr_tab.EXISTS(S)))
13420: THEN
13421:
13433:
13434: S := S + 1;
13435: k:=k+1;
13436:
13437: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Schedule End:');
13438:
13439: END IF;
13440:
13441: ELSIF (p_mode_tab(i) = 'TRUCK' )
13440:
13441: ELSIF (p_mode_tab(i) = 'TRUCK' )
13442: THEN
13443:
13444: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13448:
13441: ELSIF (p_mode_tab(i) = 'TRUCK' )
13442: THEN
13443:
13444: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13448:
13449: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13442: THEN
13443:
13444: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13448:
13449: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13450: LOOP
13443:
13444: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13448:
13449: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13450: LOOP
13451:
13448:
13449: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13450: LOOP
13451:
13452: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13453:
13454: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_tl_lane_sched_sum_rows(l_ref)'||l_tl_lane_sched_sum_rows(l_ref));
13455:
13456: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13450: LOOP
13451:
13452: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13453:
13454: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_tl_lane_sched_sum_rows(l_ref)'||l_tl_lane_sched_sum_rows(l_ref));
13455:
13456: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13457: x_sum_rate_tab(k):=-1;
13458: IF (l_tl_lane_sched_sum_rows.EXISTS(l_ref))
13452: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13453:
13454: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_tl_lane_sched_sum_rows(l_ref)'||l_tl_lane_sched_sum_rows(l_ref));
13455:
13456: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13457: x_sum_rate_tab(k):=-1;
13458: IF (l_tl_lane_sched_sum_rows.EXISTS(l_ref))
13459: THEN
13460: x_sum_rate_tab(k) := nvl(l_tl_lane_sched_sum_rows(l_ref),-1);
13459: THEN
13460: x_sum_rate_tab(k) := nvl(l_tl_lane_sched_sum_rows(l_ref),-1);
13461: END IF;
13462:
13463: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 2:');
13464: x_sum_rate_curr_tab(k):='NULL';
13465: IF(l_tl_lane_sched_curr_rows.EXISTS(l_ref))
13466: THEN
13467: x_sum_rate_curr_tab(k) := nvl(l_tl_lane_sched_curr_rows(l_ref),'NULL');
13465: IF(l_tl_lane_sched_curr_rows.EXISTS(l_ref))
13466: THEN
13467: x_sum_rate_curr_tab(k) := nvl(l_tl_lane_sched_curr_rows(l_ref),'NULL');
13468: END IF;
13469: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 3:');
13470:
13471: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13472: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13473: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13468: END IF;
13469: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 3:');
13470:
13471: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13472: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13473: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13474: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 5:');
13475: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13476: THEN
13470:
13471: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13472: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13473: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13474: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 5:');
13475: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13476: THEN
13477: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13478: END IF;
13475: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13476: THEN
13477: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13478: END IF;
13479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13480: x_mode_tab(k):=p_mode_tab(i);
13481: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13482: x_service_type_tab(k):=p_service_type_tab(i);
13483: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13477: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13478: END IF;
13479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13480: x_mode_tab(k):=p_mode_tab(i);
13481: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13482: x_service_type_tab(k):=p_service_type_tab(i);
13483: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13484:
13485: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13480: x_mode_tab(k):=p_mode_tab(i);
13481: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13482: x_service_type_tab(k):=p_service_type_tab(i);
13483: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13484:
13485: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13486: --' '||l_ref||'-'||i||'-'||l_lane_sched_sum_rows(l_ref)||'-'||l_lane_sched_curr_rows(l_ref));
13487:
13481: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13482: x_service_type_tab(k):=p_service_type_tab(i);
13483: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13484:
13485: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13486: --' '||l_ref||'-'||i||'-'||l_lane_sched_sum_rows(l_ref)||'-'||l_lane_sched_curr_rows(l_ref));
13487:
13488:
13489: k:=k+1;
13492: END LOOP;
13493:
13494: j := j + 1;
13495:
13496: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL End:');
13497:
13498: END IF;
13499:
13500:
13505:
13506: IF (x_sum_rate_tab.COUNT > 0) THEN
13507: FOR i IN x_sum_rate_tab.FIRST .. x_sum_rate_tab.LAST
13508: LOOP
13509: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13510: ' '||x_lane_sched_id_tab(i)||' '||x_lane_sched_tab(i)||' '||x_mode_tab(i)||' '||x_service_type_tab(i)||' '
13511: ||x_vehicle_type_tab(i)||' '||x_sum_rate_tab(i)||' '||x_sum_rate_curr_tab(i) );
13512: END LOOP;
13513: END IF;
13512: END LOOP;
13513: END IF;
13514:
13515:
13516: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'warn flag'||l_warn_flag);
13517:
13518: IF (l_warn_flag = 'Y' ) THEN
13519: -- bug 2762257
13520: FTE_FREIGHT_PRICING_UTIL.set_price_comp_exit_warn;
13516: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'warn flag'||l_warn_flag);
13517:
13518: IF (l_warn_flag = 'Y' ) THEN
13519: -- bug 2762257
13520: FTE_FREIGHT_PRICING_UTIL.set_price_comp_exit_warn;
13521: --Added to ensure return status is warning if l_warn_flag=Y
13522: x_return_status :=WSH_UTIL_CORE.G_RET_STS_WARNING;
13523: END IF;
13524:
13521: --Added to ensure return status is warning if l_warn_flag=Y
13522: x_return_status :=WSH_UTIL_CORE.G_RET_STS_WARNING;
13523: END IF;
13524:
13525: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.2');
13526: x_request_id := l_request_id;
13527: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13528:
13529: COMMIT; -- Commit Autonomous transaction
13523: END IF;
13524:
13525: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.2');
13526: x_request_id := l_request_id;
13527: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13528:
13529: COMMIT; -- Commit Autonomous transaction
13530:
13531: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13527: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13528:
13529: COMMIT; -- Commit Autonomous transaction
13530:
13531: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13532: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13533: IF(p_init_prc_log='Y')
13534: THEN
13535: FTE_FREIGHT_PRICING_UTIL.close_logs;
13528:
13529: COMMIT; -- Commit Autonomous transaction
13530:
13531: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13532: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13533: IF(p_init_prc_log='Y')
13534: THEN
13535: FTE_FREIGHT_PRICING_UTIL.close_logs;
13536: END IF;
13531: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13532: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13533: IF(p_init_prc_log='Y')
13534: THEN
13535: FTE_FREIGHT_PRICING_UTIL.close_logs;
13536: END IF;
13537:
13538:
13539:
13541: EXCEPTION
13542:
13543:
13544:
13545: WHEN FTE_FREIGHT_PRICING_UTIL.g_ship_prc_compare_fail THEN
13546: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13547: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13548: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13549: IF(p_init_prc_log='Y')
13544:
13545: WHEN FTE_FREIGHT_PRICING_UTIL.g_ship_prc_compare_fail THEN
13546: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13547: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13548: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13549: IF(p_init_prc_log='Y')
13550: THEN
13551: FTE_FREIGHT_PRICING_UTIL.close_logs;
13552: END IF;
13547: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13548: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13549: IF(p_init_prc_log='Y')
13550: THEN
13551: FTE_FREIGHT_PRICING_UTIL.close_logs;
13552: END IF;
13553:
13554:
13555: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13551: FTE_FREIGHT_PRICING_UTIL.close_logs;
13552: END IF;
13553:
13554:
13555: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13556: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13558: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13554:
13555: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13556: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13558: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13560: IF(p_init_prc_log='Y')
13561: THEN
13562: FTE_FREIGHT_PRICING_UTIL.close_logs;
13555: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13556: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13557: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13558: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13560: IF(p_init_prc_log='Y')
13561: THEN
13562: FTE_FREIGHT_PRICING_UTIL.close_logs;
13563: END IF;
13558: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13559: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13560: IF(p_init_prc_log='Y')
13561: THEN
13562: FTE_FREIGHT_PRICING_UTIL.close_logs;
13563: END IF;
13564:
13565: WHEN others THEN
13566: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13564:
13565: WHEN others THEN
13566: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13568: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13570: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13571: IF(p_init_prc_log='Y')
13572: THEN
13565: WHEN others THEN
13566: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13568: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13570: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13571: IF(p_init_prc_log='Y')
13572: THEN
13573: FTE_FREIGHT_PRICING_UTIL.close_logs;
13566: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13568: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13570: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13571: IF(p_init_prc_log='Y')
13572: THEN
13573: FTE_FREIGHT_PRICING_UTIL.close_logs;
13574: END IF;
13569: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13570: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13571: IF(p_init_prc_log='Y')
13572: THEN
13573: FTE_FREIGHT_PRICING_UTIL.close_logs;
13574: END IF;
13575:
13576:
13577: END shipment_price_compare;
13576:
13577: END shipment_price_compare;
13578:
13579:
13580: END FTE_FREIGHT_PRICING;
13581: