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:
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';
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:
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 (
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:
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;
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 (
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;
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
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,
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;
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:
8422:
8423: l_consolidation_allowed VARCHAR2(1);
8424: --Bug 12964037: Removed referring FTE.
8425: l_lane_function FTE_PRC_PARAMETERS.VALUE_FROM%TYPE;
8426: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8427:
8428: BEGIN
8429:
8430: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8426: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8427:
8428: BEGIN
8429:
8430: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8431: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'is_consolidated','start');
8432:
8433: -- OPEN c_get_consolidate_flag;
8434: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8427:
8428: BEGIN
8429:
8430: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8431: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'is_consolidated','start');
8432:
8433: -- OPEN c_get_consolidate_flag;
8434: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8435: -- CLOSE c_get_consolidate_flag;
8434: -- FETCH c_get_consolidate_flag INTO l_consolidation_allowed;
8435: -- CLOSE c_get_consolidate_flag;
8436:
8437: -- IF l_consolidation_allowed = 'Y' THEN
8438: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8439: -- RETURN TRUE;
8440: -- ELSE
8441: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8442: -- RETURN FALSE;
8437: -- IF l_consolidation_allowed = 'Y' THEN
8438: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8439: -- RETURN TRUE;
8440: -- ELSE
8441: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8442: -- RETURN FALSE;
8443: -- END IF;
8444:
8445: -- *** FTE J --
8452: FETCH c_get_lane_function INTO l_lane_function;
8453: CLOSE c_get_lane_function;
8454:
8455: IF l_lane_function = 'FLAT' THEN
8456: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8457: RETURN FALSE;
8458: ELSE
8459: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8460: RETURN TRUE;
8455: IF l_lane_function = 'FLAT' THEN
8456: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8457: RETURN FALSE;
8458: ELSE
8459: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8460: RETURN TRUE;
8461: END IF;
8462: EXCEPTION
8463: WHEN others THEN
8461: END IF;
8462: EXCEPTION
8463: WHEN others THEN
8464: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8465: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8466: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8468: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8469: END is_consolidated;
8462: EXCEPTION
8463: WHEN others THEN
8464: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8465: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8466: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8468: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8469: END is_consolidated;
8470:
8463: WHEN others THEN
8464: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8465: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8466: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8468: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8469: END is_consolidated;
8470:
8471: FUNCTION get_segment_from_dleg (
8464: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8465: FTE_FREIGHT_PRICING_UTIL.set_exception('is_consolidated',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8466: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8467: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8468: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'is_consolidated');
8469: END is_consolidated;
8470:
8471: FUNCTION get_segment_from_dleg (
8472: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8484: AND wdl.delivery_leg_id = p_delivery_leg_id;
8485:
8486: l_segment_id NUMBER;
8487:
8488: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8489:
8490: BEGIN
8491:
8492: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8488: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8489:
8490: BEGIN
8491:
8492: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8493: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_segment_from_dleg','start');
8494: OPEN c_get_segment;
8495: FETCH c_get_segment INTO l_segment_id;
8496: CLOSE c_get_segment;
8489:
8490: BEGIN
8491:
8492: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8493: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_segment_from_dleg','start');
8494: OPEN c_get_segment;
8495: FETCH c_get_segment INTO l_segment_id;
8496: CLOSE c_get_segment;
8497:
8494: OPEN c_get_segment;
8495: FETCH c_get_segment INTO l_segment_id;
8496: CLOSE c_get_segment;
8497:
8498: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8499: RETURN l_segment_id;
8500:
8501: EXCEPTION
8502: WHEN others THEN
8500:
8501: EXCEPTION
8502: WHEN others THEN
8503: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8504: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8505: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8507: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8508: END get_segment_from_dleg;
8501: EXCEPTION
8502: WHEN others THEN
8503: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8504: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8505: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8507: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8508: END get_segment_from_dleg;
8509:
8502: WHEN others THEN
8503: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8504: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8505: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8507: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8508: END get_segment_from_dleg;
8509:
8510: FUNCTION get_delivery_from_dleg (
8503: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8504: FTE_FREIGHT_PRICING_UTIL.set_exception('get_segment_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8505: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8506: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8507: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_segment_from_dleg');
8508: END get_segment_from_dleg;
8509:
8510: FUNCTION get_delivery_from_dleg (
8511: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8516: WHERE delivery_leg_id = p_delivery_leg_id;
8517:
8518: l_delivery_id NUMBER;
8519:
8520: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8521:
8522: BEGIN
8523:
8524: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8520: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8521:
8522: BEGIN
8523:
8524: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8525: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_from_dleg','start');
8526:
8527: OPEN c_get_delivery;
8528: FETCH c_get_delivery INTO l_delivery_id;
8521:
8522: BEGIN
8523:
8524: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8525: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_from_dleg','start');
8526:
8527: OPEN c_get_delivery;
8528: FETCH c_get_delivery INTO l_delivery_id;
8529: CLOSE c_get_delivery;
8527: OPEN c_get_delivery;
8528: FETCH c_get_delivery INTO l_delivery_id;
8529: CLOSE c_get_delivery;
8530:
8531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8532: RETURN l_delivery_id;
8533:
8534: EXCEPTION
8535: WHEN others THEN
8533:
8534: EXCEPTION
8535: WHEN others THEN
8536: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8537: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8538: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8540: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8541: END get_delivery_from_dleg;
8534: EXCEPTION
8535: WHEN others THEN
8536: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8537: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8538: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8540: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8541: END get_delivery_from_dleg;
8542:
8535: WHEN others THEN
8536: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8537: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8538: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8540: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8541: END get_delivery_from_dleg;
8542:
8543: FUNCTION get_fc_id_from_dleg (
8536: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8537: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8538: --FTE_FREIGHT_PRICING_UTIL.print_debug('Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8539: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8540: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_from_dleg');
8541: END get_delivery_from_dleg;
8542:
8543: FUNCTION get_fc_id_from_dleg (
8544: p_delivery_leg_id IN NUMBER ) RETURN NUMBER
8552: AND line_type_code = 'SUMMARY';
8553:
8554: l_freight_cost_id NUMBER;
8555:
8556: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8557:
8558: BEGIN
8559:
8560: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8556: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8557:
8558: BEGIN
8559:
8560: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8561: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8562:
8563:
8564: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8557:
8558: BEGIN
8559:
8560: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8561: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8562:
8563:
8564: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8565:
8560: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8561: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_fc_id_from_dleg','start');
8562:
8563:
8564: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DLEG ID:'||p_delivery_leg_id);
8565:
8566: OPEN c_get_freight_cost_id;
8567: FETCH c_get_freight_cost_id INTO l_freight_cost_id;
8568: CLOSE c_get_freight_cost_id;
8566: OPEN c_get_freight_cost_id;
8567: FETCH c_get_freight_cost_id INTO l_freight_cost_id;
8568: CLOSE c_get_freight_cost_id;
8569:
8570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'FC ID:'||l_freight_cost_id);
8571:
8572: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8573: RETURN l_freight_cost_id;
8574:
8568: CLOSE c_get_freight_cost_id;
8569:
8570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'FC ID:'||l_freight_cost_id);
8571:
8572: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8573: RETURN l_freight_cost_id;
8574:
8575: EXCEPTION
8576: WHEN others THEN
8574:
8575: EXCEPTION
8576: WHEN others THEN
8577: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8578: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8579: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8580: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8581: END get_fc_id_from_dleg;
8582:
8575: EXCEPTION
8576: WHEN others THEN
8577: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8578: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8579: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8580: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8581: END get_fc_id_from_dleg;
8582:
8583: PROCEDURE delete_invalid_fc_recs (
8576: WHEN others THEN
8577: --x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8578: FTE_FREIGHT_PRICING_UTIL.set_exception('get_fc_id_from_dleg',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8579: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8580: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_fc_id_from_dleg');
8581: END get_fc_id_from_dleg;
8582:
8583: PROCEDURE delete_invalid_fc_recs (
8584: p_segment_id IN NUMBER DEFAULT NULL,
8585: p_delivery_leg_id IN NUMBER DEFAULT NULL,
8586: x_return_status OUT NOCOPY VARCHAR2 )
8587: IS
8588:
8589: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8590:
8591:
8592:
8593: CURSOR c_lock_wfc_1(c_segment_id NUMBER)
8618:
8619: BEGIN
8620:
8621: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8622: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8623: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_invalid_fc_recs','start');
8624:
8625: -- Here determine if a trip has been passed or a delivery leg
8626:
8619: BEGIN
8620:
8621: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8622: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8623: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_invalid_fc_recs','start');
8624:
8625: -- Here determine if a trip has been passed or a delivery leg
8626:
8627: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8626:
8627: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8628:
8629: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8630: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8631: RETURN;
8632:
8633: ELSIF p_delivery_leg_id IS NULL THEN
8634:
8690:
8691:
8692:
8693: END IF;
8694: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8695:
8696: EXCEPTION
8697: WHEN others THEN
8698: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8695:
8696: EXCEPTION
8697: WHEN others THEN
8698: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8699: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8700: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8702: END delete_invalid_fc_recs;
8703:
8696: EXCEPTION
8697: WHEN others THEN
8698: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8699: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8700: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8702: END delete_invalid_fc_recs;
8703:
8704: PROCEDURE unmark_reprice_required (
8697: WHEN others THEN
8698: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8699: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_invalid_fc_recs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8700: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8701: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_invalid_fc_recs');
8702: END delete_invalid_fc_recs;
8703:
8704: PROCEDURE unmark_reprice_required (
8705: p_segment_id IN NUMBER DEFAULT NULL,
8706: p_delivery_leg_id IN NUMBER DEFAULT NULL,
8707: x_return_status OUT NOCOPY VARCHAR2 )
8708: IS
8709:
8710: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
8711:
8712: BEGIN
8713:
8714: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8711:
8712: BEGIN
8713:
8714: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8715: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8716: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'unmark_reprice_required','start');
8717:
8718: -- Here determine if a trip has been passed or a delivery leg
8719:
8712: BEGIN
8713:
8714: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8715: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8716: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'unmark_reprice_required','start');
8717:
8718: -- Here determine if a trip has been passed or a delivery leg
8719:
8720: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8719:
8720: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8721:
8722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8723: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8724: RETURN;
8725:
8726: ELSIF p_delivery_leg_id IS NULL THEN
8727:
8745: SET reprice_required = 'N'
8746: WHERE delivery_leg_id = p_delivery_leg_id;
8747:
8748: END IF;
8749: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8750:
8751: EXCEPTION
8752: WHEN others THEN
8753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8750:
8751: EXCEPTION
8752: WHEN others THEN
8753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8754: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8755: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8756: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8757: END unmark_reprice_required;
8758:
8751: EXCEPTION
8752: WHEN others THEN
8753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8754: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8755: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8756: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8757: END unmark_reprice_required;
8758:
8759: PROCEDURE shipment_price_consolidate (
8752: WHEN others THEN
8753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8754: FTE_FREIGHT_PRICING_UTIL.set_exception('unmark_reprice_required',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
8755: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
8756: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'unmark_reprice_required');
8757: END unmark_reprice_required;
8758:
8759: PROCEDURE shipment_price_consolidate (
8760: p_delivery_leg_id IN NUMBER DEFAULT NULL, -- Gets either Dleg or wsh trip
8971:
8972: l_initial_pickup_date DATE;
8973: l_ultimate_dropoff_date DATE;
8974:
8975: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
8976:
8977: BEGIN
8978:
8979: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8976:
8977: BEGIN
8978:
8979: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8982:
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8977: BEGIN
8978:
8979: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8982:
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8985: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8979: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8982:
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8985: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8986:
8987: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8980: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
8981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8982:
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8985: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8986:
8987: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8988:
8981: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate','start');
8982:
8983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
8984: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_segment_id='||p_segment_id);
8985: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8986:
8987: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8988:
8989: raise FTE_FREIGHT_PRICING_UTIL.g_noleg_segment;
8985: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_check_reprice_flag='||p_check_reprice_flag);
8986:
8987: IF p_segment_id IS NULL AND p_delivery_leg_id IS NULL THEN
8988:
8989: raise FTE_FREIGHT_PRICING_UTIL.g_noleg_segment;
8990:
8991: ELSIF p_segment_id IS NOT NULL THEN
8992: validate_nontl_trip(
8993: p_trip_id => p_segment_id,
9048: g_shipment_line_rows(l_delvy_det_rec.delivery_detail_id) := l_delvy_det_rec;
9049: END LOOP;
9050: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9051: CLOSE c_delivery_from_trip;
9052: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9053: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9054: --raise others; -- Should not happen ie. unexpected error
9055: ELSE
9056: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9049: END LOOP;
9050: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9051: CLOSE c_delivery_from_trip;
9052: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9053: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9054: --raise others; -- Should not happen ie. unexpected error
9055: ELSE
9056: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9057: END IF;
9052: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9053: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9054: --raise others; -- Should not happen ie. unexpected error
9055: ELSE
9056: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9057: END IF;
9058:
9059: CLOSE c_delivery_from_trip;
9060:
9072:
9073: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9074: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9075: ROLLBACK to before_pricing;
9076: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9077: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9078: END IF;
9079: ELSE
9080: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9073: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9074: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9075: ROLLBACK to before_pricing;
9076: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9077: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9078: END IF;
9079: ELSE
9080: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9081: END IF;
9076: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:delete_invalid_fc_recs ');
9077: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9078: END IF;
9079: ELSE
9080: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : Existing freight cost records deleted ');
9081: END IF;
9082:
9083: flatten_shipment (
9084: x_first_level_rows => l_first_level_rows,
9085: x_return_status => l_return_status );
9086:
9087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9088: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9089: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:flatten_shipment ');
9090: ROLLBACK to before_pricing;
9091: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9092: END IF;
9093: ELSE -- What happens if no first level rows are created
9087: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9088: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9089: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:flatten_shipment ');
9090: ROLLBACK to before_pricing;
9091: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9092: END IF;
9093: ELSE -- What happens if no first level rows are created
9094: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9095: -- Should never happen AG 05/10
9090: ROLLBACK to before_pricing;
9091: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9092: END IF;
9093: ELSE -- What happens if no first level rows are created
9094: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9095: -- Should never happen AG 05/10
9096: IF l_first_level_rows.COUNT = 0 THEN
9097: ROLLBACK to before_pricing;
9098: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9094: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9095: -- Should never happen AG 05/10
9096: IF l_first_level_rows.COUNT = 0 THEN
9097: ROLLBACK to before_pricing;
9098: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9099: END IF;
9100: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 2 : '||l_first_level_rows.COUNT);
9101: END IF;
9102:
9096: IF l_first_level_rows.COUNT = 0 THEN
9097: ROLLBACK to before_pricing;
9098: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9099: END IF;
9100: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 2 : '||l_first_level_rows.COUNT);
9101: END IF;
9102:
9103: -- Scoped out for patch H
9104: /*
9131:
9132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9133: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9134: ROLLBACK to before_pricing;
9135: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9136: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9137: END IF;
9138: ELSE -- What happens if no first level rows are created
9139: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9133: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9134: ROLLBACK to before_pricing;
9135: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9136: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9137: END IF;
9138: ELSE -- What happens if no first level rows are created
9139: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9140: END IF;
9135: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=Y:shipment_pricing ');
9136: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9137: END IF;
9138: ELSE -- What happens if no first level rows are created
9139: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9140: END IF;
9141:
9142: -- Here the reprice required flag for all the delivery legs for this segment should be marked as 'N'
9143: unmark_reprice_required (
9146:
9147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9148: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9149: ROLLBACK to before_pricing;
9150: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9151: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9152: END IF;
9153: ELSE -- What happens if no first level rows are created
9154: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9148: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9149: ROLLBACK to before_pricing;
9150: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9151: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9152: END IF;
9153: ELSE -- What happens if no first level rows are created
9154: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9155: END IF;
9150: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:unmark_reprice_required ');
9151: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9152: END IF;
9153: ELSE -- What happens if no first level rows are created
9154: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_segment_id||' : reprice required flag unmarked ');
9155: END IF;
9156:
9157: ELSE -- Need to call separately for each different delivery leg in the segment
9158: -- if it's reprice_required flag = 'Y'
9164:
9165: IF (p_check_reprice_flag = 'Y' AND g_shipment_line_rows(i).reprice_required = 'Y') OR
9166: p_check_reprice_flag = 'N' THEN
9167:
9168: 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');
9169: l_dlvy(g_shipment_line_rows(i).delivery_leg_id) := g_shipment_line_rows(i).delivery_leg_id;
9170: END IF;
9171: END IF;
9172: EXIT WHEN i=g_shipment_line_rows.LAST;
9180:
9181: l_first_level_rows.delete;
9182: l_first_level_charges.delete;
9183:
9184: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : First level lines initialized ');
9185:
9186: -- Need to delete existing freight cost records
9187: -- for this delivery leg
9188:
9192:
9193: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9194: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9195: ROLLBACK to before_pricing;
9196: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9197: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9198: END IF;
9199: ELSE
9200: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9193: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9194: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9195: ROLLBACK to before_pricing;
9196: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9197: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9198: END IF;
9199: ELSE
9200: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9201: END IF;
9196: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9197: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9198: END IF;
9199: ELSE
9200: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : Existing freight cost records deleted ');
9201: END IF;
9202:
9203: flatten_shipment (
9204: p_delivery_leg_id => l_dlvy(j),
9206: x_return_status => l_return_status );
9207:
9208: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9209: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9210: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:flatten_shipment ');
9211: ROLLBACK to before_pricing;
9212: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9213: END IF;
9214: ELSE -- What happens if no first level rows are created
9208: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9209: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9210: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:flatten_shipment ');
9211: ROLLBACK to before_pricing;
9212: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9213: END IF;
9214: ELSE -- What happens if no first level rows are created
9215: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9216: -- Should not ever happen AG 05/10
9211: ROLLBACK to before_pricing;
9212: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9213: END IF;
9214: ELSE -- What happens if no first level rows are created
9215: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9216: -- Should not ever happen AG 05/10
9217: IF l_first_level_rows.COUNT = 0 THEN
9218: ROLLBACK to before_pricing;
9219: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9215: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9216: -- Should not ever happen AG 05/10
9217: IF l_first_level_rows.COUNT = 0 THEN
9218: ROLLBACK to before_pricing;
9219: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9220: END IF;
9221: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 3 : '||l_first_level_rows.COUNT);
9222: END IF;
9223:
9217: IF l_first_level_rows.COUNT = 0 THEN
9218: ROLLBACK to before_pricing;
9219: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9220: END IF;
9221: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 3 : '||l_first_level_rows.COUNT);
9222: END IF;
9223:
9224: /*
9225: get_top_level_charges (
9241:
9242: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9243: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9244: ROLLBACK to before_pricing;
9245: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9246: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9247: END IF;
9248: ELSE -- What happens if no first level rows are created
9249: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9242: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9243: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9244: ROLLBACK to before_pricing;
9245: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9246: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9247: END IF;
9248: ELSE -- What happens if no first level rows are created
9249: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9250: END IF;
9245: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment:Consolidate=N:shipment_pricing ');
9246: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9247: END IF;
9248: ELSE -- What happens if no first level rows are created
9249: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9250: END IF;
9251:
9252: -- Here the reprice required flag for this delivery leg should be marked as 'N'
9253: unmark_reprice_required (
9256:
9257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9258: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9259: ROLLBACK to before_pricing;
9260: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9261: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9262: END IF;
9263: ELSE
9264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9258: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9259: ROLLBACK to before_pricing;
9260: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9261: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9262: END IF;
9263: ELSE
9264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9265: END IF;
9260: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9261: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9262: END IF;
9263: ELSE
9264: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_dlvy(j)||' : reprice required flag unmarked ');
9265: END IF;
9266:
9267: EXIT WHEN j=l_dlvy.LAST;
9268: j := l_dlvy.NEXT(j);
9271: ELSE
9272: -- Even though reprice_required count > 0
9273: -- No g_shipment_line_rows got created with reprice_required = 'Y'
9274: -- which can arise out of the concerning delivery leg being empty
9275: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9276: END IF;
9277:
9278: END IF;
9279:
9277:
9278: END IF;
9279:
9280: ELSE
9281: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9282: END IF; -- reprice required count > 0
9283:
9284: ELSIF p_delivery_leg_id IS NOT NULL THEN
9285:
9308: g_shipment_line_rows(l_delvy_det_rec.delivery_detail_id) := l_delvy_det_rec;
9309: END LOOP;
9310: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9311: CLOSE c_delivery_from_trip;
9312: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9313: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9314: ELSE
9315: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9316: END IF;
9309: END LOOP;
9310: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
9311: CLOSE c_delivery_from_trip;
9312: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9313: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9314: ELSE
9315: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9316: END IF;
9317:
9311: CLOSE c_delivery_from_trip;
9312: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9313: --raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9314: ELSE
9315: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
9316: END IF;
9317:
9318: CLOSE c_delivery_from_trip;
9319:
9326:
9327: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9328: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9329: ROLLBACK to before_pricing;
9330: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9331: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9332: END IF;
9333: ELSE
9334: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9327: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9328: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9329: ROLLBACK to before_pricing;
9330: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9331: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9332: END IF;
9333: ELSE
9334: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9335: END IF;
9330: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:delete_invalid_fc_recs ');
9331: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9332: END IF;
9333: ELSE
9334: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : Existing freight cost records deleted ');
9335: END IF;
9336:
9337: flatten_shipment (
9338: x_first_level_rows => l_first_level_rows,
9339: x_return_status => l_return_status );
9340:
9341: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9342: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9343: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:flatten_shipment ');
9344: ROLLBACK to before_pricing;
9345: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9346: END IF;
9347: ELSE -- What happens if no first level rows are created
9341: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9342: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9343: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:flatten_shipment ');
9344: ROLLBACK to before_pricing;
9345: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9346: END IF;
9347: ELSE -- What happens if no first level rows are created
9348: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9349: -- Should never happen AG 5/10
9344: ROLLBACK to before_pricing;
9345: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9346: END IF;
9347: ELSE -- What happens if no first level rows are created
9348: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9349: -- Should never happen AG 5/10
9350: IF l_first_level_rows.COUNT = 0 THEN
9351: ROLLBACK to before_pricing;
9352: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9348: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9349: -- Should never happen AG 5/10
9350: IF l_first_level_rows.COUNT = 0 THEN
9351: ROLLBACK to before_pricing;
9352: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9353: END IF;
9354: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 4 : '||l_first_level_rows.COUNT);
9355: END IF;
9356:
9350: IF l_first_level_rows.COUNT = 0 THEN
9351: ROLLBACK to before_pricing;
9352: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9353: END IF;
9354: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 4 : '||l_first_level_rows.COUNT);
9355: END IF;
9356:
9357: /*
9358: get_top_level_charges (
9384:
9385: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9386: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9387: ROLLBACK to before_pricing;
9388: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9389: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9390: END IF;
9391: ELSE -- What happens if no first level rows are created
9392: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9385: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9386: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9387: ROLLBACK to before_pricing;
9388: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9389: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9390: END IF;
9391: ELSE -- What happens if no first level rows are created
9392: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9393: END IF;
9388: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=Y:shipment_pricing ');
9389: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9390: END IF;
9391: ELSE -- What happens if no first level rows are created
9392: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9393: END IF;
9394:
9395: -- Here the reprice required flag for all the delivery legs for this segment should be marked as 'N'
9396: unmark_reprice_required (
9399:
9400: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9401: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9402: ROLLBACK to before_pricing;
9403: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9404: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9405: END IF;
9406: ELSE -- What happens if no first level rows are created
9407: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9400: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9401: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9402: ROLLBACK to before_pricing;
9403: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9404: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9405: END IF;
9406: ELSE -- What happens if no first level rows are created
9407: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9408: END IF;
9403: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:Y:unmark_reprice_required ');
9404: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9405: END IF;
9406: ELSE -- What happens if no first level rows are created
9407: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9408: END IF;
9409:
9410: ELSE
9411: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9407: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,l_segment_id||' : reprice required flag unmarked ');
9408: END IF;
9409:
9410: ELSE
9411: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9412: END IF; -- reprice required count > 0
9413:
9414: ELSE
9415:
9422: END LOOP;
9423: IF c_delivery_leg%ROWCOUNT = 0 THEN
9424: CLOSE c_delivery_leg;
9425: ROLLBACK to before_pricing;
9426: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9427: ELSE
9428: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_leg%ROWCOUNT);
9429: END IF;
9430:
9424: CLOSE c_delivery_leg;
9425: ROLLBACK to before_pricing;
9426: raise FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required;
9427: ELSE
9428: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_leg%ROWCOUNT);
9429: END IF;
9430:
9431: CLOSE c_delivery_leg;
9432:
9439:
9440: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9441: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9442: ROLLBACK to before_pricing;
9443: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9444: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9445: END IF;
9446: ELSE
9447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9440: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9441: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9442: ROLLBACK to before_pricing;
9443: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9444: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9445: END IF;
9446: ELSE
9447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9448: END IF;
9443: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:delete_invalid_fc_recs ');
9444: raise FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed;
9445: END IF;
9446: ELSE
9447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : Existing freight cost records deleted ');
9448: END IF;
9449:
9450: flatten_shipment (
9451: -- p_delivery_leg_id => p_delivery_leg_id, -- Not required
9453: x_return_status => l_return_status );
9454:
9455: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9456: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9457: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:flatten_shipment ');
9458: ROLLBACK to before_pricing;
9459: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9460: END IF;
9461: ELSE -- What happens if no first level rows are created
9455: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9456: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9457: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:flatten_shipment ');
9458: ROLLBACK to before_pricing;
9459: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9460: END IF;
9461: ELSE -- What happens if no first level rows are created
9462: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9463: -- Should never happen AG 5/10
9458: ROLLBACK to before_pricing;
9459: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
9460: END IF;
9461: ELSE -- What happens if no first level rows are created
9462: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9463: -- Should never happen AG 5/10
9464: IF l_first_level_rows.COUNT = 0 THEN
9465: ROLLBACK to before_pricing;
9466: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9462: -- raise FTE_FREIGHT_PRICING_UTIL.g_an exception
9463: -- Should never happen AG 5/10
9464: IF l_first_level_rows.COUNT = 0 THEN
9465: ROLLBACK to before_pricing;
9466: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9467: END IF;
9468: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 5: '||l_first_level_rows.COUNT);
9469: END IF;
9470:
9464: IF l_first_level_rows.COUNT = 0 THEN
9465: ROLLBACK to before_pricing;
9466: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
9467: END IF;
9468: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 5: '||l_first_level_rows.COUNT);
9469: END IF;
9470:
9471: /*
9472: get_top_level_charges (
9488:
9489: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9490: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9491: ROLLBACK to before_pricing;
9492: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9493: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9494: END IF;
9495: ELSE -- What happens if no first level rows are created
9496: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9489: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9490: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9491: ROLLBACK to before_pricing;
9492: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9493: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9494: END IF;
9495: ELSE -- What happens if no first level rows are created
9496: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9497: END IF;
9492: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:Consolidate=N:shipment_pricing ');
9493: raise FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed;
9494: END IF;
9495: ELSE -- What happens if no first level rows are created
9496: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful ');
9497: END IF;
9498:
9499: -- Here the reprice required flag for this delivery leg should be marked as 'N'
9500: unmark_reprice_required (
9503:
9504: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9505: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9506: ROLLBACK to before_pricing;
9507: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9508: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9509: END IF;
9510: ELSE -- What happens if no first level rows are created
9511: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9504: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9505: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9506: ROLLBACK to before_pricing;
9507: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9508: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9509: END IF;
9510: ELSE -- What happens if no first level rows are created
9511: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9512: END IF;
9507: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'dleg:consolidate:N:unmark_reprice_required ');
9508: raise FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed;
9509: END IF;
9510: ELSE -- What happens if no first level rows are created
9511: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_INF,p_delivery_leg_id||' : reprice required flag unmarked ');
9512: END IF;
9513:
9514: END IF;
9515:
9513:
9514: END IF;
9515:
9516: END IF;
9517: --FTE_FREIGHT_PRICING_UTIL.close_logs;
9518: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9519:
9520: EXCEPTION
9521: WHEN g_finished_warning THEN
9514: END IF;
9515:
9516: END IF;
9517: --FTE_FREIGHT_PRICING_UTIL.close_logs;
9518: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9519:
9520: EXCEPTION
9521: WHEN g_finished_warning THEN
9522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9519:
9520: EXCEPTION
9521: WHEN g_finished_warning THEN
9522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9523: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9524: WHEN FND_API.G_EXC_ERROR THEN
9525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9526: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9523: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9524: WHEN FND_API.G_EXC_ERROR THEN
9525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9526: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9523: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9524: WHEN FND_API.G_EXC_ERROR THEN
9525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9526: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9524: WHEN FND_API.G_EXC_ERROR THEN
9525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9526: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9526: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9528: WHEN FTE_FREIGHT_PRICING_UTIL.g_noleg_segment THEN
9529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9530: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_noleg_segment');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9531: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9532: WHEN FTE_FREIGHT_PRICING_UTIL.g_pricing_not_required THEN
9533: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9534: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9535: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9536: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
9537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9538: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9539: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9540: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
9541: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9542: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9543: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9544: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
9545: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9546: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9554: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9547: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9554: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9555: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9548: WHEN FTE_FREIGHT_PRICING_UTIL.g_unmark_reprice_req_failed THEN
9549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9554: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9555: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9556: WHEN others THEN
9550: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_unmark_reprice_req_failed');
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9554: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9555: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9556: WHEN others THEN
9557: ROLLBACK to before_pricing;
9558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9551: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9552: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_invalid_fc_failed THEN
9553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9554: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delete_invalid_fc_failed');
9555: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9556: WHEN others THEN
9557: ROLLBACK to before_pricing;
9558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9559: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9555: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9556: WHEN others THEN
9557: ROLLBACK to before_pricing;
9558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9559: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9560: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9561: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9562:
9563: END shipment_price_consolidate;
9556: WHEN others THEN
9557: ROLLBACK to before_pricing;
9558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9559: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9560: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9561: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9562:
9563: END shipment_price_consolidate;
9564:
9557: ROLLBACK to before_pricing;
9558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9559: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_consolidate',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
9560: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9561: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate');
9562:
9563: END shipment_price_consolidate;
9564:
9565: PROCEDURE shipment_price_consolidate (
9574:
9575: l_trip_id NUMBER;
9576: l_mode VARCHAR2(30);
9577: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9578: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9579:
9580: BEGIN
9581:
9582: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9583:
9584: -- Initialize message list if p_init_msg_list is set to TRUE.
9585: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9586:
9587: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
9588: x_return_status => l_return_status );
9589:
9590: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9591: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9592: x_return_status := l_return_status;
9593: RETURN;
9594: END IF;
9595: ELSE
9596: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9597: END IF;
9598:
9599: END IF;
9600:
9597: END IF;
9598:
9599: END IF;
9600:
9601: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9602: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate_standard','start');
9603:
9604:
9605: l_trip_id:=NULL;
9598:
9599: END IF;
9600:
9601: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9602: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_consolidate_standard','start');
9603:
9604:
9605: l_trip_id:=NULL;
9606: l_mode:=NULL;
9619: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9620: THEN
9621: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9622: THEN
9623: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9624: END IF;
9625: END IF;
9626: ELSIF(p_in_attributes.delivery_leg_id IS NOT NULL)
9627: THEN
9636: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9637: THEN
9638: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9639: THEN
9640: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9641: END IF;
9642: END IF;
9643:
9644:
9656: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9657: THEN
9658: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9659: THEN
9660: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9661: END IF;
9662: END IF;
9663:
9664:
9673: p_check_reprice_flag => 'Y',
9674: x_return_status => l_return_status );
9675:
9676: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9677: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful ');
9678: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9679: x_return_status := l_return_status;
9680: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9681: ELSE
9676: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9677: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful ');
9678: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9679: x_return_status := l_return_status;
9680: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9681: ELSE
9682: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9683: END IF;
9684: END IF;
9678: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9679: x_return_status := l_return_status;
9680: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning ');
9681: ELSE
9682: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9683: END IF;
9684: END IF;
9685:
9686: -- Standard call to get message count and if count is 1,
9688: FND_MSG_PUB.Count_And_Get (
9689: p_count => x_msg_count,
9690: p_data => x_msg_data );
9691:
9692: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9693: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9694: FTE_FREIGHT_PRICING_UTIL.close_logs;
9695: END IF;
9696:
9690: p_data => x_msg_data );
9691:
9692: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9693: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9694: FTE_FREIGHT_PRICING_UTIL.close_logs;
9695: END IF;
9696:
9697: EXCEPTION
9698:
9695: END IF;
9696:
9697: EXCEPTION
9698:
9699: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9701: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9702: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9697: EXCEPTION
9698:
9699: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9701: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9702: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9704: FTE_FREIGHT_PRICING_UTIL.close_logs;
9705: END IF;
9698:
9699: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
9700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9701: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9702: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9704: FTE_FREIGHT_PRICING_UTIL.close_logs;
9705: END IF;
9706:
9700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9701: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_get_trip_mode_fail');
9702: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9704: FTE_FREIGHT_PRICING_UTIL.close_logs;
9705: END IF;
9706:
9707:
9708: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9704: FTE_FREIGHT_PRICING_UTIL.close_logs;
9705: END IF;
9706:
9707:
9708: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9710: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9711: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9706:
9707:
9708: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9710: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9711: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9713: FTE_FREIGHT_PRICING_UTIL.close_logs;
9714: END IF;
9707:
9708: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
9709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9710: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9711: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9713: FTE_FREIGHT_PRICING_UTIL.close_logs;
9714: END IF;
9715:
9709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9710: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_tl_rate_trip_fail');
9711: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9713: FTE_FREIGHT_PRICING_UTIL.close_logs;
9714: END IF;
9715:
9716:
9717: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9713: FTE_FREIGHT_PRICING_UTIL.close_logs;
9714: END IF;
9715:
9716:
9717: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9719: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9720: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9715:
9716:
9717: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9719: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9720: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9722: FTE_FREIGHT_PRICING_UTIL.close_logs;
9723: END IF;
9716:
9717: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
9718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9719: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9720: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9722: FTE_FREIGHT_PRICING_UTIL.close_logs;
9723: END IF;
9724: WHEN others THEN
9718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9719: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_price_consolidate_failed');
9720: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9722: FTE_FREIGHT_PRICING_UTIL.close_logs;
9723: END IF;
9724: WHEN others THEN
9725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9726: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9722: FTE_FREIGHT_PRICING_UTIL.close_logs;
9723: END IF;
9724: WHEN others THEN
9725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9726: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9727: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9728: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9729: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9730: FTE_FREIGHT_PRICING_UTIL.close_logs;
9723: END IF;
9724: WHEN others THEN
9725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9726: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9727: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9728: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9729: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9730: FTE_FREIGHT_PRICING_UTIL.close_logs;
9731: END IF;
9724: WHEN others THEN
9725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9726: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9727: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9728: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9729: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9730: FTE_FREIGHT_PRICING_UTIL.close_logs;
9731: END IF;
9732: END shipment_price_consolidate;
9726: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_consolidate_standard','g_others');
9727: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
9728: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_consolidate_standard');
9729: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9730: FTE_FREIGHT_PRICING_UTIL.close_logs;
9731: END IF;
9732: END shipment_price_consolidate;
9733:
9734: PROCEDURE shipment_price_compare (
9769: l_return_status VARCHAR2(1);
9770: l_status VARCHAR2(10);
9771: l_temp BOOLEAN;
9772:
9773: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9774:
9775: BEGIN
9776: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9777: x_return_status => l_return_status );
9772:
9773: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9774:
9775: BEGIN
9776: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9777: x_return_status => l_return_status );
9778:
9779: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9780: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9775: BEGIN
9776: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9777: x_return_status => l_return_status );
9778:
9779: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9780: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9781:
9782: shipment_reprice2 (
9783: p_fte_trip_id => p_fte_trip_id,
9776: FTE_FREIGHT_PRICING_UTIL.initialize_logging(p_debug_mode => 'CONC',
9777: x_return_status => l_return_status );
9778:
9779: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9780: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice_conc','start');
9781:
9782: shipment_reprice2 (
9783: p_fte_trip_id => p_fte_trip_id,
9784: p_segment_id => p_segment_id,
9800: retcode := '2';
9801: END IF;
9802:
9803: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_status,'');
9804: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice_conc');
9805:
9806: EXCEPTION
9807: WHEN OTHERS THEN
9808: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
9807: WHEN OTHERS THEN
9808: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
9809: errbuf := 'Shipment Reprice is completed with an Unexpected error';
9810: retcode := '2';
9811: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice_conc');
9812:
9813: END shipment_reprice;
9814:
9815: PROCEDURE shipment_reprice2 (
9839: l_output_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
9840: l_mode VARCHAR2(30);
9841: l_trip_id NUMBER;
9842:
9843: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
9844:
9845: BEGIN
9846:
9847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9846:
9847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9848:
9849: IF p_init_prc_log = 'Y' THEN
9850: FTE_FREIGHT_PRICING_UTIL.initialize_logging(x_return_status => l_return_status);
9851:
9852: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9853: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9854: x_return_status := l_return_status;
9854: x_return_status := l_return_status;
9855: RETURN;
9856: END IF;
9857: ELSE
9858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9859: END IF;
9860: END IF;
9861: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9862: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9857: ELSE
9858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9859: END IF;
9860: END IF;
9861: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9862: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9863:
9864: 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);
9865:
9858: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
9859: END IF;
9860: END IF;
9861: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9862: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9863:
9864: 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);
9865:
9866: 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
9860: END IF;
9861: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
9862: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_reprice2','start');
9863:
9864: 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);
9865:
9866: 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
9867: THEN
9868: raise FTE_FREIGHT_PRICING_UTIL.g_no_input;
9864: 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);
9865:
9866: 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
9867: THEN
9868: raise FTE_FREIGHT_PRICING_UTIL.g_no_input;
9869: ELSIF p_segment_id IS NOT NULL THEN
9870:
9871: Get_Trip_Mode(
9872: p_trip_id=>p_segment_id,
9878: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9879: THEN
9880: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9881: THEN
9882: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9883: END IF;
9884: END IF;
9885:
9886: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
9895: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9896: THEN
9897: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9898: THEN
9899: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9900: END IF;
9901: END IF;
9902:
9903:
9908: p_segment_id => p_segment_id,
9909: x_return_status => l_return_status );
9910:
9911: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9912: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9913: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9914: x_return_status := l_return_status;
9915: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9916: ELSE
9911: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9912: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9913: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9914: x_return_status := l_return_status;
9915: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9916: ELSE
9917: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9918: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9919: END IF;
9913: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9914: x_return_status := l_return_status;
9915: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9916: ELSE
9917: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9918: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9919: END IF;
9920:
9921:
9914: x_return_status := l_return_status;
9915: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful with warning for segment : '||p_segment_id);
9916: ELSE
9917: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'segment: '||p_segment_id||' shipment_price_consolidate ');
9918: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9919: END IF;
9920:
9921:
9922: END IF;
9943: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9944: THEN
9945: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9946: THEN
9947: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
9948: END IF;
9949: END IF;
9950:
9951: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
9960: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
9961: THEN
9962: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
9963: THEN
9964: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
9965: END IF;
9966: END IF;
9967:
9968:
9974: p_delivery_leg_id => l_delivery_leg_id,
9975: x_return_status => l_return_status );
9976:
9977: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9978: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||l_delivery_leg_id);
9979: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9980: x_return_status := l_return_status;
9981: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9982: ELSE
9977: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9978: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||l_delivery_leg_id);
9979: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9980: x_return_status := l_return_status;
9981: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9982: ELSE
9983: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9984: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9985: END IF;
9979: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9980: x_return_status := l_return_status;
9981: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9982: ELSE
9983: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9984: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9985: END IF;
9986: END IF;
9987:
9980: x_return_status := l_return_status;
9981: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for segment : '||p_segment_id);
9982: ELSE
9983: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Delivery leg: '||l_delivery_leg_id||' shipment_price_consolidate ');
9984: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
9985: END IF;
9986: END IF;
9987:
9988: END LOOP;
10000: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
10001: THEN
10002: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
10003: THEN
10004: raise FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail;
10005: END IF;
10006: END IF;
10007:
10008: IF ((l_mode IS NOT NULL) AND (l_mode='TRUCK'))
10017: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
10018: THEN
10019: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
10020: THEN
10021: raise FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail;
10022: END IF;
10023: END IF;
10024:
10025:
10029: p_delivery_leg_id => p_delivery_leg_id,
10030: x_return_status => l_return_status );
10031:
10032: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10033: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||p_delivery_leg_id);
10034: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10035: x_return_status := l_return_status;
10036: ELSE
10037: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10033: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment price consolidate successful for delivery leg : '||p_delivery_leg_id);
10034: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10035: x_return_status := l_return_status;
10036: ELSE
10037: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10038: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
10039: END IF;
10040: END IF;
10041:
10034: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10035: x_return_status := l_return_status;
10036: ELSE
10037: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'delivery leg: '||p_delivery_leg_id||' shipment_price_consolidate ');
10038: raise FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed;
10039: END IF;
10040: END IF;
10041:
10042: END IF;
10039: END IF;
10040: END IF;
10041:
10042: END IF;
10043: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10044: IF p_init_prc_log = 'Y' THEN
10045: FTE_FREIGHT_PRICING_UTIL.close_logs;
10046: END IF;
10047:
10041:
10042: END IF;
10043: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10044: IF p_init_prc_log = 'Y' THEN
10045: FTE_FREIGHT_PRICING_UTIL.close_logs;
10046: END IF;
10047:
10048: EXCEPTION
10049: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10045: FTE_FREIGHT_PRICING_UTIL.close_logs;
10046: END IF;
10047:
10048: EXCEPTION
10049: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10050: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10051: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10052: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10053: IF p_init_prc_log = 'Y' THEN
10047:
10048: EXCEPTION
10049: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10050: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10051: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10052: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10053: IF p_init_prc_log = 'Y' THEN
10054: FTE_FREIGHT_PRICING_UTIL.close_logs;
10055: END IF;
10048: EXCEPTION
10049: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_input THEN
10050: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10051: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10052: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10053: IF p_init_prc_log = 'Y' THEN
10054: FTE_FREIGHT_PRICING_UTIL.close_logs;
10055: END IF;
10056:
10050: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10051: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_input');
10052: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10053: IF p_init_prc_log = 'Y' THEN
10054: FTE_FREIGHT_PRICING_UTIL.close_logs;
10055: END IF;
10056:
10057: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10053: IF p_init_prc_log = 'Y' THEN
10054: FTE_FREIGHT_PRICING_UTIL.close_logs;
10055: END IF;
10056:
10057: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10059: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10060: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10061: IF p_init_prc_log = 'Y' THEN
10055: END IF;
10056:
10057: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10059: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10060: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10061: IF p_init_prc_log = 'Y' THEN
10062: FTE_FREIGHT_PRICING_UTIL.close_logs;
10063: END IF;
10056:
10057: WHEN FTE_FREIGHT_PRICING_UTIL.g_get_trip_mode_fail THEN
10058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10059: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10060: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10061: IF p_init_prc_log = 'Y' THEN
10062: FTE_FREIGHT_PRICING_UTIL.close_logs;
10063: END IF;
10064:
10058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10059: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_get_trip_mode_fail');
10060: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10061: IF p_init_prc_log = 'Y' THEN
10062: FTE_FREIGHT_PRICING_UTIL.close_logs;
10063: END IF;
10064:
10065: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10061: IF p_init_prc_log = 'Y' THEN
10062: FTE_FREIGHT_PRICING_UTIL.close_logs;
10063: END IF;
10064:
10065: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10067: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10068: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10069: IF p_init_prc_log = 'Y' THEN
10063: END IF;
10064:
10065: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10067: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10068: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10069: IF p_init_prc_log = 'Y' THEN
10070: FTE_FREIGHT_PRICING_UTIL.close_logs;
10071: END IF;
10064:
10065: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_rate_trip_fail THEN
10066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10067: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10068: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10069: IF p_init_prc_log = 'Y' THEN
10070: FTE_FREIGHT_PRICING_UTIL.close_logs;
10071: END IF;
10072:
10066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10067: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_tl_rate_trip_fail');
10068: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10069: IF p_init_prc_log = 'Y' THEN
10070: FTE_FREIGHT_PRICING_UTIL.close_logs;
10071: END IF;
10072:
10073:
10074: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10070: FTE_FREIGHT_PRICING_UTIL.close_logs;
10071: END IF;
10072:
10073:
10074: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10076: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10077: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10078: IF p_init_prc_log = 'Y' THEN
10072:
10073:
10074: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10076: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10077: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10078: IF p_init_prc_log = 'Y' THEN
10079: FTE_FREIGHT_PRICING_UTIL.close_logs;
10080: END IF;
10073:
10074: WHEN FTE_FREIGHT_PRICING_UTIL.g_price_consolidate_failed THEN
10075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10076: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10077: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10078: IF p_init_prc_log = 'Y' THEN
10079: FTE_FREIGHT_PRICING_UTIL.close_logs;
10080: END IF;
10081:
10075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10076: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_price_consolidate_failed');
10077: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10078: IF p_init_prc_log = 'Y' THEN
10079: FTE_FREIGHT_PRICING_UTIL.close_logs;
10080: END IF;
10081:
10082: WHEN others THEN
10083: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10080: END IF;
10081:
10082: WHEN others THEN
10083: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10084: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10085: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10086: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10087: IF p_init_prc_log = 'Y' THEN
10088: FTE_FREIGHT_PRICING_UTIL.close_logs;
10081:
10082: WHEN others THEN
10083: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10084: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10085: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10086: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10087: IF p_init_prc_log = 'Y' THEN
10088: FTE_FREIGHT_PRICING_UTIL.close_logs;
10089: END IF;
10082: WHEN others THEN
10083: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10084: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10085: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10086: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10087: IF p_init_prc_log = 'Y' THEN
10088: FTE_FREIGHT_PRICING_UTIL.close_logs;
10089: END IF;
10090: END shipment_reprice2;
10084: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10085: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10086: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
10087: IF p_init_prc_log = 'Y' THEN
10088: FTE_FREIGHT_PRICING_UTIL.close_logs;
10089: END IF;
10090: END shipment_reprice2;
10091:
10092:
10102: x_delivery_legs OUT NOCOPY DELIVERY_LEG_TAB_TYPE,
10103: x_return_status OUT NOCOPY VARCHAR2)
10104: IS
10105:
10106: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10107: l_delvy_tab DELIVERY_LEG_TAB_TYPE;
10108: l_delv_leg_rec delivery_leg_rec_type;
10109: i NUMBER := 0;
10110: l_index NUMBER := 0;
10116: AND wnd.delivery_id = wdl.delivery_id;
10117:
10118: BEGIN
10119:
10120: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10121: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10122:
10123: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10124: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10117:
10118: BEGIN
10119:
10120: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10121: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10122:
10123: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10124: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10125: OPEN c_get_delivery_legs_detail(p_deliveries_list(i));
10120: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10121: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'get_delivery_legs','start');
10122:
10123: FOR i in p_deliveries_list.FIRST..p_deliveries_list.LAST LOOP
10124: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through Delivery ids in get_delivery_legs... ');
10125: OPEN c_get_delivery_legs_detail(p_deliveries_list(i));
10126: LOOP
10127: FETCH c_get_delivery_legs_detail INTO l_delv_leg_rec;
10128: EXIT WHEN c_get_delivery_legs_detail%NOTFOUND;
10126: LOOP
10127: FETCH c_get_delivery_legs_detail INTO l_delv_leg_rec;
10128: EXIT WHEN c_get_delivery_legs_detail%NOTFOUND;
10129: l_index := l_index +1;
10130: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_leg_rec.delivery_leg_id. ' ||l_delv_leg_rec.delivery_leg_id );
10131: --l_delvy_tab(l_delv_leg_rec.delivery_leg_id) := l_delv_leg_rec;
10132: l_delvy_tab(l_index) := l_delv_leg_rec;
10133: END LOOP;
10134: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Total Leg Count for Delivery. ' || p_deliveries_list(i) || ' is '|| l_delvy_tab.COUNT );
10130: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_leg_rec.delivery_leg_id. ' ||l_delv_leg_rec.delivery_leg_id );
10131: --l_delvy_tab(l_delv_leg_rec.delivery_leg_id) := l_delv_leg_rec;
10132: l_delvy_tab(l_index) := l_delv_leg_rec;
10133: END LOOP;
10134: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Total Leg Count for Delivery. ' || p_deliveries_list(i) || ' is '|| l_delvy_tab.COUNT );
10135: CLOSE c_get_delivery_legs_detail ;
10136: END LOOP;
10137:
10138: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10135: CLOSE c_get_delivery_legs_detail ;
10136: END LOOP;
10137:
10138: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10139: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Leg is='|| l_delvy_tab(i).delivery_leg_id);
10140: END LOOP;
10141:
10142: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Out of loop for Delivery ids in get_delivery_legs... ');
10143:
10138: FOR i IN l_delvy_tab.FIRST..l_delvy_tab.LAST LOOP
10139: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Leg is='|| l_delvy_tab(i).delivery_leg_id);
10140: END LOOP;
10141:
10142: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Out of loop for Delivery ids in get_delivery_legs... ');
10143:
10144: x_delivery_legs := l_delvy_tab;
10145:
10146: EXCEPTION
10145:
10146: EXCEPTION
10147: WHEN others THEN
10148: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10149: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10150: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10151: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10152: END get_delivery_legs;
10153:
10146: EXCEPTION
10147: WHEN others THEN
10148: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10149: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10150: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10151: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10152: END get_delivery_legs;
10153:
10154: -- Internal procedure to get distinct trip_ids for a given
10147: WHEN others THEN
10148: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10149: FTE_FREIGHT_PRICING_UTIL.set_exception('get_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
10150: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10151: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_delivery_legs');
10152: END get_delivery_legs;
10153:
10154: -- Internal procedure to get distinct trip_ids for a given
10155: -- delivery legs table.
10177:
10178: i NUMBER := 0;
10179: l_dleg_ids VARCHAR2(32767);
10180: l_trip_ids VARCHAR2(32767);
10181: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10182: l_api_name CONSTANT VARCHAR2(30) := 'get_distinct_trip_ids';
10183: l_trip_id NUMBER;
10184: l_is_first BOOLEAN := TRUE ;
10185: --l_del_trip_tab DELIVERY_TRIP_TAB_TYPE;
10189: l_trip_index NUMBER := 0;
10190:
10191: BEGIN
10192:
10193: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10194: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10195: --x_trip_ids := FTE_ID_TAB_TYPE();
10196:
10197: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10190:
10191: BEGIN
10192:
10193: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10194: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10195: --x_trip_ids := FTE_ID_TAB_TYPE();
10196:
10197: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10198:
10193: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10194: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10195: --x_trip_ids := FTE_ID_TAB_TYPE();
10196:
10197: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,p_dleg_list.COUNT);
10198:
10199: FOR i IN p_dleg_list.FIRST..p_dleg_list.COUNT LOOP
10200: OPEN c_get_distinct_trip_ids(p_dleg_list(i));
10201: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10198:
10199: FOR i IN p_dleg_list.FIRST..p_dleg_list.COUNT LOOP
10200: OPEN c_get_distinct_trip_ids(p_dleg_list(i));
10201: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10202: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Fetch');
10203: -- Only store unique trips in trips table.
10204: IF x_trip_ids.COUNT > 0 THEN
10205: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10206: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10201: FETCH c_get_distinct_trip_ids INTO l_del_trip_rec;
10202: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Fetch');
10203: -- Only store unique trips in trips table.
10204: IF x_trip_ids.COUNT > 0 THEN
10205: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10206: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10208: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10209: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10203: -- Only store unique trips in trips table.
10204: IF x_trip_ids.COUNT > 0 THEN
10205: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10206: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10208: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10209: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10210: trip_exists := true;
10211: EXIT WHEN trip_exists;
10204: IF x_trip_ids.COUNT > 0 THEN
10205: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids.COUNT > 0');
10206: FOR j IN x_trip_ids.FIRST..x_trip_ids.COUNT LOOP
10207: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_trip_ids(j).trip_id = ' || x_trip_ids(j).trip_id);
10208: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_del_trip_rec.trip_id = ' || l_del_trip_rec.trip_id);
10209: IF x_trip_ids(j).trip_id = l_del_trip_rec.trip_id THEN
10210: trip_exists := true;
10211: EXIT WHEN trip_exists;
10212: -- break the loop
10214: trip_exists := false;
10215: END IF;
10216: END LOOP;
10217: END IF;
10218: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Unique trip loop ');
10219: --FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip_exists = ' || to_char(trip_exists));
10220:
10221: IF NOT trip_exists then
10222: l_trip_index := l_trip_index +1;
10215: END IF;
10216: END LOOP;
10217: END IF;
10218: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After Unique trip loop ');
10219: --FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip_exists = ' || to_char(trip_exists));
10220:
10221: IF NOT trip_exists then
10222: l_trip_index := l_trip_index +1;
10223: x_trip_ids(l_trip_index) := l_del_trip_rec;
10227:
10228: CLOSE c_get_distinct_trip_ids;
10229: END LOOP;
10230:
10231: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Ids Count=' || x_trip_ids.COUNT);
10232: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10233:
10234:
10235: EXCEPTION
10228: CLOSE c_get_distinct_trip_ids;
10229: END LOOP;
10230:
10231: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Ids Count=' || x_trip_ids.COUNT);
10232: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10233:
10234:
10235: EXCEPTION
10236: WHEN others THEN
10234:
10235: EXCEPTION
10236: WHEN others THEN
10237: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10238: FTE_FREIGHT_PRICING_UTIL.set_exception('get_distinct_trip_ids',FTE_FREIGHT_PRICING_UTIL.G_ERR,'get distinct trips failed');
10239: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10240: END get_distinct_trip_ids;
10241:
10242: --This API is written for R12. It does the following validation
10235: EXCEPTION
10236: WHEN others THEN
10237: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10238: FTE_FREIGHT_PRICING_UTIL.set_exception('get_distinct_trip_ids',FTE_FREIGHT_PRICING_UTIL.G_ERR,'get distinct trips failed');
10239: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'get_distinct_trip_ids');
10240: END get_distinct_trip_ids;
10241:
10242: --This API is written for R12. It does the following validation
10243: -- 1) Delivery type is Outbound/Internal Orders and status is Open
10254: IS
10255:
10256: l_new_delv_list FTE_ID_TAB_TYPE;
10257: l_api_name CONSTANT VARCHAR2(30) := 'validate_delv_for_rerating';
10258: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10259: i NUMBER := 0;
10260: l_var VARCHAR2(1);
10261:
10262: CURSOR check_delivery_type (c_delivery_id IN NUMBER)
10266: OR ( shipment_direction IN ('D','I') )
10267: AND delivery_id = c_delivery_id ;
10268:
10269: BEGIN
10270: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10271: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10272: l_new_delv_list := FTE_ID_TAB_TYPE();
10273:
10274: FOR i IN p_deliveries_list.FIRST..p_deliveries_list.LAST
10267: AND delivery_id = c_delivery_id ;
10268:
10269: BEGIN
10270: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10271: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10272: l_new_delv_list := FTE_ID_TAB_TYPE();
10273:
10274: FOR i IN p_deliveries_list.FIRST..p_deliveries_list.LAST
10275: LOOP
10275: LOOP
10276: OPEN check_delivery_type(p_deliveries_list(i));
10277: FETCH check_delivery_type INTO l_var;
10278: IF check_delivery_type%NOTFOUND THEN
10279: 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');
10280: ELSE
10281: l_new_delv_list.EXTEND;
10282: l_new_delv_list(i) := p_deliveries_list(i);
10283: END IF;
10288:
10289: EXCEPTION
10290:
10291: WHEN OTHERS THEN
10292: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delv_for_rerating',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delv_for_rerating failed');
10293: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delv_for_rerating');
10294:
10295: END validate_delv_for_rerating;
10296:
10289: EXCEPTION
10290:
10291: WHEN OTHERS THEN
10292: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delv_for_rerating',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delv_for_rerating failed');
10293: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delv_for_rerating');
10294:
10295: END validate_delv_for_rerating;
10296:
10297: --This API is written for R12. It does the following validation
10308: IS
10309: l_new_dleg_list FTE_ID_TAB_TYPE;
10310: l_failed_dleg_list FTE_ID_TAB_TYPE;
10311: l_api_name CONSTANT VARCHAR2(30) := 'validate_delivery_legs';
10312: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10313: i NUMBER := 0;
10314: l_var NUMBER;--VARCHAR2(1);
10315: dleg_rates_not_found EXCEPTION;
10316:
10323: AND freight_cost_type_id is not null
10324: AND delivery_leg_id= c_delivery_leg_id;
10325:
10326: BEGIN
10327: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10328: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10329: l_new_dleg_list := FTE_ID_TAB_TYPE();
10330: l_failed_dleg_list := FTE_ID_TAB_TYPE();
10331:
10324: AND delivery_leg_id= c_delivery_leg_id;
10325:
10326: BEGIN
10327: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10328: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10329: l_new_dleg_list := FTE_ID_TAB_TYPE();
10330: l_failed_dleg_list := FTE_ID_TAB_TYPE();
10331:
10332: FOR i IN p_dlegs_list.FIRST..p_dlegs_list.LAST
10333: LOOP
10334: OPEN check_freight_cost_exist(p_dlegs_list(i));
10335: FETCH check_freight_cost_exist INTO l_var;
10336: IF check_freight_cost_exist%NOTFOUND THEN
10337: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10338: l_failed_dleg_list.EXTEND;
10339: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10340: ELSIF l_var IS NULL THEN
10341: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10337: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10338: l_failed_dleg_list.EXTEND;
10339: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10340: ELSIF l_var IS NULL THEN
10341: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10342: l_failed_dleg_list.EXTEND;
10343: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10344: ELSE
10345: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10341: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total amt. Null for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10342: l_failed_dleg_list.EXTEND;
10343: l_failed_dleg_list(l_failed_dleg_list.LAST) := p_dlegs_list(i);
10344: ELSE
10345: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Existing rates found for dleg='|| p_dlegs_list(i) || ' Required for rerating ');
10346: l_new_dleg_list.EXTEND;
10347: l_new_dleg_list(l_new_dleg_list.LAST) := p_dlegs_list(i);
10348: END IF;
10349: CLOSE check_freight_cost_exist;
10351:
10352: x_dleg_list := l_new_dleg_list;
10353: x_failed_dleg_list := l_failed_dleg_list;
10354:
10355: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10356:
10357:
10358: EXCEPTION
10359:
10358: EXCEPTION
10359:
10360: --WHEN dleg_rates_not_found THEN
10361: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10362: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10363: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10364: WHEN OTHERS THEN
10365: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10359:
10360: --WHEN dleg_rates_not_found THEN
10361: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10362: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10363: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10364: WHEN OTHERS THEN
10365: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10367: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10361: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10362: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10363: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10364: WHEN OTHERS THEN
10365: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10367: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10368: END validate_delivery_legs;
10369:
10362: -- FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'dleg_rates_not_found');
10363: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10364: WHEN OTHERS THEN
10365: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10367: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10368: END validate_delivery_legs;
10369:
10370:
10363: -- FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10364: WHEN OTHERS THEN
10365: FTE_FREIGHT_PRICING_UTIL.set_exception('validate_delivery_legs',FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_delivery_legs failed');
10366: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
10367: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'validate_delivery_legs');
10368: END validate_delivery_legs;
10369:
10370:
10371: PROCEDURE validate_trips(p_trip_id_list IN WSH_UTIL_CORE.id_tab_type,
10403: l_fail_index NUMBER := 0;
10404: l_success_index NUMBER := 0;
10405: l_closed_index NUMBER := 0;
10406: l_api_name CONSTANT VARCHAR2(30) := 'validate_trips';
10407: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10408: l_trip_direction VARCHAR2(30);
10409: l_valid_trip VARCHAR2(1) := 'Y';
10410:
10411: BEGIN
10408: l_trip_direction VARCHAR2(30);
10409: l_valid_trip VARCHAR2(1) := 'Y';
10410:
10411: BEGIN
10412: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10413: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10414:
10415: FOR i IN p_trip_id_list.FIRST..p_trip_id_list.LAST
10416: LOOP
10409: l_valid_trip VARCHAR2(1) := 'Y';
10410:
10411: BEGIN
10412: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10413: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10414:
10415: FOR i IN p_trip_id_list.FIRST..p_trip_id_list.LAST
10416: LOOP
10417: OPEN c_trip_info(p_trip_id_list(i));
10417: OPEN c_trip_info(p_trip_id_list(i));
10418: FETCH c_trip_info INTO l_trip_info;
10419: CLOSE c_trip_info;
10420:
10421: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Trip Id is ='|| p_trip_id_list(i));
10422: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip status is ='|| l_trip_info.status_code);
10423:
10424: -- In CASE OF closed trips, only allow re-rating of
10425: -- Inbound or Mixed trips. Do not allow rerating of
10418: FETCH c_trip_info INTO l_trip_info;
10419: CLOSE c_trip_info;
10420:
10421: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Trip Id is ='|| p_trip_id_list(i));
10422: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip status is ='|| l_trip_info.status_code);
10423:
10424: -- In CASE OF closed trips, only allow re-rating of
10425: -- Inbound or Mixed trips. Do not allow rerating of
10426: -- closed outbound trips.
10427: IF l_trip_info.status_code = 'CL' THEN
10428: OPEN c_get_trip_direction(p_trip_id_list(i));
10429: FETCH c_get_trip_direction INTO l_trip_direction;
10430: CLOSE c_get_trip_direction;
10431: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_direction ='|| l_trip_direction);
10432: IF (l_trip_direction = 'O' ) OR (l_trip_direction IS NULL) THEN
10433: l_valid_trip := 'N';
10434: ELSE
10435: l_valid_trip := 'Y';
10439: IF l_valid_trip = 'Y' THEN
10440:
10441: IF l_trip_info.carrier_id is null OR l_trip_info.mode_of_transport is null
10442: OR l_trip_info.service_level is null THEN
10443: 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));
10444: l_fail_index := l_fail_index + 1;
10445: x_failed_trips_list(l_fail_index) := p_trip_id_list(i);
10446: ELSE
10447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip has full ship method !!! Trip Id ='|| p_trip_id_list(i));
10443: 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));
10444: l_fail_index := l_fail_index + 1;
10445: x_failed_trips_list(l_fail_index) := p_trip_id_list(i);
10446: ELSE
10447: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip has full ship method !!! Trip Id ='|| p_trip_id_list(i));
10448: l_success_index := l_success_index + 1;
10449: x_success_trips_list(l_success_index) := p_trip_id_list(i);
10450: END IF;
10451: ELSE
10448: l_success_index := l_success_index + 1;
10449: x_success_trips_list(l_success_index) := p_trip_id_list(i);
10450: END IF;
10451: ELSE
10452: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Trip Direction/Status combination is not elegible for rarating ');
10453: l_closed_index := l_closed_index + 1;
10454: x_closed_trips_list(l_closed_index) := p_trip_id_list(i);
10455: END IF;
10456: END LOOP;
10454: x_closed_trips_list(l_closed_index) := p_trip_id_list(i);
10455: END IF;
10456: END LOOP;
10457:
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10459: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10460:
10461: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10462:
10455: END IF;
10456: END LOOP;
10457:
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10459: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10460:
10461: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10462:
10463: EXCEPTION
10457:
10458: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Trips = '|| x_failed_trips_list.COUNT);
10459: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Success Trips = '|| x_success_trips_list.COUNT);
10460:
10461: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10462:
10463: EXCEPTION
10464:
10465: WHEN OTHERS THEN
10462:
10463: EXCEPTION
10464:
10465: WHEN OTHERS THEN
10466: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_trips failed');
10467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10468:
10469: END validate_trips;
10470: -- This API is called directly from DWB
10463: EXCEPTION
10464:
10465: WHEN OTHERS THEN
10466: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'validate_trips failed');
10467: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10468:
10469: END validate_trips;
10470: -- This API is called directly from DWB
10471: -- Modified the signature for 12i. p_delivery_leg_list can contain list of Delivery Ids or Delivery Legs
10494: l_trip_rating_failed EXCEPTION;
10495: l_dleg_validation_failed EXCEPTION;
10496: l_delivery_validation_failed EXCEPTION;
10497:
10498: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
10499: l_api_version CONSTANT NUMBER := 1.0;
10500: l_api_name CONSTANT VARCHAR2(30) := 'rerate_shipment_online';
10501: --l_return_status VARCHAR2(1);
10502: l_msg_count NUMBER := 0;
10574: END IF;
10575:
10576: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10577:
10578: FTE_FREIGHT_PRICING_UTIL.initialize_logging(x_return_status => l_return_status);
10579:
10580: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10581: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10582: x_return_status := l_return_status;
10582: x_return_status := l_return_status;
10583: RETURN;
10584: END IF;
10585: ELSE
10586: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10587: END IF;
10588:
10589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10585: ELSE
10586: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10587: END IF;
10588:
10589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10586: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Initialize Logging successful ');
10587: END IF;
10588:
10589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10588:
10589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10596: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10589: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10596: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10597:
10590: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10596: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10597:
10598:
10591:
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10596: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10597:
10598:
10599: IF p_deliveries_list.COUNT <= 0 THEN
10592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_api_version='||p_api_version);
10593: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_init_msg_list='||p_init_msg_list);
10594: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_commit='||p_commit);
10595: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_list_type='||p_deliveries_list_type);
10596: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_deliveries_name_list.count='||p_delivery_name_list.count);
10597:
10598:
10599: IF p_deliveries_list.COUNT <= 0 THEN
10600: IF p_deliveries_list_type = 'DEL' THEN
10637: l_warning_list.EXTEND;
10638: l_warning_list(l_warning_list.LAST) := p_deliveries_list(l_index);
10639: END IF;
10640: END LOOP;
10641: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10642: l_index := 0;
10643: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10645: 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);
10640: END LOOP;
10641: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10642: l_index := 0;
10643: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10645: 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);
10646: l_dleg_list.EXTEND;
10647: l_dleg_list(l_dleg_list.LAST) := l_delv_legs(l_index).delivery_leg_id;
10648: END LOOP;
10641: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_delv_legs.count=' || l_delv_legs.count);
10642: l_index := 0;
10643: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10644: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_index=' || l_index);
10645: 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);
10646: l_dleg_list.EXTEND;
10647: l_dleg_list(l_dleg_list.LAST) := l_delv_legs(l_index).delivery_leg_id;
10648: END LOOP;
10649: ELSE
10664: -- Get distinct trips from these delivery legs so that
10665: -- rating is not performed for same trips multiple times
10666: -- Add validation failed delivery legs also to failed list
10667: -- And raise Exception
10668: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_fail_val_dleg_list.COUNT);
10669:
10670: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total Delivery Legs list l_delv_legs::= '||l_delv_legs.COUNT);
10671:
10672: l_index := 0;
10666: -- Add validation failed delivery legs also to failed list
10667: -- And raise Exception
10668: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_fail_val_dleg_list.COUNT);
10669:
10670: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Total Delivery Legs list l_delv_legs::= '||l_delv_legs.COUNT);
10671:
10672: l_index := 0;
10673:
10674: IF l_fail_val_dleg_list.COUNT > 0 THEN
10675: FOR j1 IN l_fail_val_dleg_list.FIRST..l_fail_val_dleg_list.LAST LOOP
10676: IF p_deliveries_list_type = 'DEL' THEN
10677: FOR l_index IN l_delv_legs.FIRST..l_delv_legs.LAST LOOP
10678: IF l_delv_legs(l_index).delivery_leg_id = l_fail_val_dleg_list(j1) THEN
10679: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Delivery Name :='||l_delv_legs(l_index).delivery_name);
10680: IF l_fail_delivery_name_list IS NOT NULL THEN
10681: l_fail_delivery_name_list := l_delv_legs(l_index).delivery_name;
10682: ELSE
10683: l_fail_delivery_name_list := l_fail_delivery_name_list ||' '||l_delv_legs(l_index).delivery_name;
10686: END LOOP;
10687: ELSE
10688: FOR l_index IN l_dleg_list.FIRST..l_dleg_list.LAST LOOP
10689: IF l_dleg_list(l_index) = l_fail_val_dleg_list(j1) THEN
10690: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Failed Delivery Name :='||p_delivery_name_list(l_index));
10691: IF l_fail_delivery_name_list IS NOT NULL THEN
10692: l_fail_delivery_name_list := p_delivery_name_list(l_index);
10693: ELSE
10694: l_fail_delivery_name_list := l_fail_delivery_name_list ||' '||p_delivery_name_list(l_index);
10696: END IF;
10697: END LOOP;
10698: END IF;
10699: END LOOP;
10700: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_no_rates_delv_ids);
10701: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_NORATES');
10702: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10703: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10704: FND_MSG_PUB.ADD;
10699: END LOOP;
10700: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' No rates failed list::= '||l_no_rates_delv_ids);
10701: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_NORATES');
10702: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10703: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10704: FND_MSG_PUB.ADD;
10705: raise l_delivery_validation_failed;
10706: END IF;
10707:
10786: END LOOP;
10787: END LOOP;
10788: END IF;
10789:
10790: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Failed Service Deliveries= '||l_service_failed_delv_ids);
10791:
10792:
10793:
10794: l_index := 0;
10813: x_msg_data => l_msg_data
10814: );
10815: j1 := 0;
10816: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10817: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Trip Re-Rating successful for trip_id : '||l_trip_ids(l_index).trip_id);
10818: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10819: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10820: l_success_list.EXTEND;
10821: IF p_deliveries_list_type = 'DEL' THEN
10825: END IF;
10826: END IF;
10827: END LOOP;
10828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
10829: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Trip Re-Rating with Warnings for trip_id : '||l_trip_ids(l_index).trip_id);
10830: x_return_status := l_return_status;
10831:
10832: FND_MSG_PUB.Count_And_Get
10833: (
10834: p_count => l_msg_count,
10835: p_data => l_message,
10836: p_encoded => FND_API.G_FALSE
10837: );
10838: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Warning : '||l_message);
10839: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10840: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10841: IF l_warn_delivery_name_list is null THEN
10842: l_warn_delivery_name_list := l_all_trips(j1).delivery_id;
10851: END IF;
10852: END IF;
10853: END LOOP;
10854: ELSE
10855: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'trip id: '|| l_trip_ids(l_index).trip_id || ' rate_trip2 ');
10856: x_return_status := l_return_status;
10857: FND_MSG_PUB.Count_And_Get
10858: (
10859: p_count => l_msg_count,
10859: p_count => l_msg_count,
10860: p_data => l_message,
10861: p_encoded => FND_API.G_FALSE
10862: );
10863: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Error : '||l_message);
10864: FOR j1 IN l_all_trips.FIRST..l_all_trips.LAST LOOP
10865: IF l_all_trips(j1).trip_id = l_trip_ids(l_index).trip_id THEN
10866: IF l_fail_delivery_name_list is null THEN
10867: l_fail_delivery_name_list := l_all_trips(j1).delivery_id;
10879: END IF;
10880: END LOOP; -- End Loop for l_trip_ids. Trip rating.
10881: END IF;
10882:
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10886: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10887:
10880: END LOOP; -- End Loop for l_trip_ids. Trip rating.
10881: END IF;
10882:
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10886: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10887:
10888: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10881: END IF;
10882:
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10886: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10887:
10888: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10889:
10882:
10883: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_trip_ids.COUNT=' || l_trip_ids.COUNT);
10884: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_list.COUNT='|| l_failed_list.COUNT);
10885: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_warning_list.COUNT='|| l_warning_list.COUNT);
10886: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_success_list.COUNT='|| l_success_list.COUNT);
10887:
10888: FND_MSG_PUB.Delete_Msg ( p_msg_index => null);
10889:
10890: IF l_success_list.COUNT > 0 THEN
10895:
10896: IF l_warning_list.COUNT > 0 THEN
10897: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10898: IF l_delv_with_multlegs_names IS NOT NULL THEN
10899: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' Delv with MulipleLegs::= '||l_delv_with_multlegs_names);
10900: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_MULTILEG_WARN');
10901: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_with_multlegs_names);
10902: FND_MSG_PUB.ADD;
10903: END IF;
10902: FND_MSG_PUB.ADD;
10903: END IF;
10904: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_WARNIN');
10905: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_warn_delivery_name_list);
10906: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10907: FND_MSG_PUB.ADD;
10908: END IF;
10909:
10910:
10909:
10910:
10911: IF l_failed_list.COUNT >0 THEN
10912: IF l_delv_srv_failed_names IS NOT NULL THEN
10913: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Service failed list::= '||l_delv_srv_failed_names);
10914: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SERVICE_FAILED');
10915: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_srv_failed_names);
10916: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10917: FND_MSG_PUB.ADD;
10912: IF l_delv_srv_failed_names IS NOT NULL THEN
10913: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Service failed list::= '||l_delv_srv_failed_names);
10914: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SERVICE_FAILED');
10915: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_delv_srv_failed_names);
10916: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10917: FND_MSG_PUB.ADD;
10918: END IF;
10919: IF l_closed_trips_delv_ids IS NOT NULL THEN
10920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10916: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10917: FND_MSG_PUB.ADD;
10918: END IF;
10919: IF l_closed_trips_delv_ids IS NOT NULL THEN
10920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10921: FND_MESSAGE.SET_NAME('FTE','FTE_MLS_CANNOT_UPD_RATE');
10922: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_close_trdelv_name_list);
10923: FND_MESSAGE.SET_TOKEN('DELIVERY_STATUS',l_status);
10924: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10920: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Deliveries with Closed Trips list::= '||l_close_trdelv_name_list);
10921: FND_MESSAGE.SET_NAME('FTE','FTE_MLS_CANNOT_UPD_RATE');
10922: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_close_trdelv_name_list);
10923: FND_MESSAGE.SET_TOKEN('DELIVERY_STATUS',l_status);
10924: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10925: FND_MSG_PUB.ADD;
10926: END IF;
10927: IF l_fail_delivery_name_list IS NOT NULL THEN
10928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10924: --FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10925: FND_MSG_PUB.ADD;
10926: END IF;
10927: IF l_fail_delivery_name_list IS NOT NULL THEN
10928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10929: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
10930: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10931: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10932: FND_MSG_PUB.ADD;
10927: IF l_fail_delivery_name_list IS NOT NULL THEN
10928: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,' failed list::= '||l_fail_delivery_name_list);
10929: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
10930: FND_MESSAGE.SET_TOKEN('DEL_NAMES',l_fail_delivery_name_list);
10931: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
10932: FND_MSG_PUB.ADD;
10933: END IF;
10934: IF l_success_list.COUNT > 0 OR l_warning_list.COUNT > 0 THEN
10935: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10936: ELSE
10937: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10938: END IF;
10939: END IF;
10940: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
10941:
10942: x_success_list := l_success_list;
10943: x_warning_list := l_warning_list;
10944: x_fail_list := l_failed_list;
10961: );
10962:
10963:
10964:
10965: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10966:
10967: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10968: FTE_FREIGHT_PRICING_UTIL.close_logs;
10969:
10963:
10964:
10965: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10966:
10967: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10968: FTE_FREIGHT_PRICING_UTIL.close_logs;
10969:
10970: EXCEPTION
10971: WHEN l_delivery_validation_failed THEN
10964:
10965: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Msg Count'||x_msg_count||' Msg data:'||x_msg_data);
10966:
10967: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10968: FTE_FREIGHT_PRICING_UTIL.close_logs;
10969:
10970: EXCEPTION
10971: WHEN l_delivery_validation_failed THEN
10972: ROLLBACK TO rerate_shipment_online;
10976: -- p_count => x_msg_count,
10977: -- p_data => x_msg_data,
10978: -- p_encoded => FND_API.G_FALSE
10979: -- );
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10981: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10982: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10983: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10984: FTE_FREIGHT_PRICING_UTIL.close_logs;
10977: -- p_data => x_msg_data,
10978: -- p_encoded => FND_API.G_FALSE
10979: -- );
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10981: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10982: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10983: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10984: FTE_FREIGHT_PRICING_UTIL.close_logs;
10985: WHEN l_dleg_list_empty THEN
10978: -- p_encoded => FND_API.G_FALSE
10979: -- );
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10981: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10982: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10983: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10984: FTE_FREIGHT_PRICING_UTIL.close_logs;
10985: WHEN l_dleg_list_empty THEN
10986: ROLLBACK TO rerate_shipment_online;
10979: -- );
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10981: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10982: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10983: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10984: FTE_FREIGHT_PRICING_UTIL.close_logs;
10985: WHEN l_dleg_list_empty THEN
10986: ROLLBACK TO rerate_shipment_online;
10987: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10980: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg count is ='||x_msg_count);
10981: -- FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'msg data is ='||x_msg_data);
10982: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delivery_validation_failed');
10983: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10984: FTE_FREIGHT_PRICING_UTIL.close_logs;
10985: WHEN l_dleg_list_empty THEN
10986: ROLLBACK TO rerate_shipment_online;
10987: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10988: FND_MSG_PUB.Count_And_Get
10990: p_count => x_msg_count,
10991: p_data => x_msg_data,
10992: p_encoded => FND_API.G_FALSE
10993: );
10994: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10995: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10996: FTE_FREIGHT_PRICING_UTIL.close_logs;
10997:
10998: WHEN l_delv_list_empty THEN
10991: p_data => x_msg_data,
10992: p_encoded => FND_API.G_FALSE
10993: );
10994: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10995: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10996: FTE_FREIGHT_PRICING_UTIL.close_logs;
10997:
10998: WHEN l_delv_list_empty THEN
10999: ROLLBACK TO rerate_shipment_online;
10992: p_encoded => FND_API.G_FALSE
10993: );
10994: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_dleg_list_empty');
10995: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
10996: FTE_FREIGHT_PRICING_UTIL.close_logs;
10997:
10998: WHEN l_delv_list_empty THEN
10999: ROLLBACK TO rerate_shipment_online;
11000: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11003: p_count => x_msg_count,
11004: p_data => x_msg_data,
11005: p_encoded => FND_API.G_FALSE
11006: );
11007: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11008: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11009: FTE_FREIGHT_PRICING_UTIL.close_logs;
11010:
11011: WHEN l_del_name_mismatch THEN
11004: p_data => x_msg_data,
11005: p_encoded => FND_API.G_FALSE
11006: );
11007: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11008: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11009: FTE_FREIGHT_PRICING_UTIL.close_logs;
11010:
11011: WHEN l_del_name_mismatch THEN
11012: ROLLBACK TO rerate_shipment_online;
11005: p_encoded => FND_API.G_FALSE
11006: );
11007: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_delv_list_empty');
11008: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11009: FTE_FREIGHT_PRICING_UTIL.close_logs;
11010:
11011: WHEN l_del_name_mismatch THEN
11012: ROLLBACK TO rerate_shipment_online;
11013: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11016: p_count => x_msg_count,
11017: p_data => x_msg_data,
11018: p_encoded => FND_API.G_FALSE
11019: );
11020: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11021: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11022: FTE_FREIGHT_PRICING_UTIL.close_logs;
11023: WHEN l_dleg_validation_failed THEN
11024: ROLLBACK TO rerate_shipment_online;
11017: p_data => x_msg_data,
11018: p_encoded => FND_API.G_FALSE
11019: );
11020: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11021: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11022: FTE_FREIGHT_PRICING_UTIL.close_logs;
11023: WHEN l_dleg_validation_failed THEN
11024: ROLLBACK TO rerate_shipment_online;
11025: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11018: p_encoded => FND_API.G_FALSE
11019: );
11020: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'l_del_name_mismatch');
11021: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11022: FTE_FREIGHT_PRICING_UTIL.close_logs;
11023: WHEN l_dleg_validation_failed THEN
11024: ROLLBACK TO rerate_shipment_online;
11025: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11026: FND_MSG_PUB.Count_And_Get
11028: p_count => x_msg_count,
11029: p_data => x_msg_data,
11030: p_encoded => FND_API.G_FALSE
11031: );
11032: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11033: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11034: FTE_FREIGHT_PRICING_UTIL.close_logs;
11035: WHEN l_trip_rating_failed THEN
11036: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11029: p_data => x_msg_data,
11030: p_encoded => FND_API.G_FALSE
11031: );
11032: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11033: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11034: FTE_FREIGHT_PRICING_UTIL.close_logs;
11035: WHEN l_trip_rating_failed THEN
11036: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11037: FND_MSG_PUB.Count_And_Get
11030: p_encoded => FND_API.G_FALSE
11031: );
11032: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_dleg_validation_failed');
11033: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11034: FTE_FREIGHT_PRICING_UTIL.close_logs;
11035: WHEN l_trip_rating_failed THEN
11036: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11037: FND_MSG_PUB.Count_And_Get
11038: (
11039: p_count => x_msg_count,
11040: p_data => x_msg_data,
11041: p_encoded => FND_API.G_FALSE
11042: );
11043: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11045: FTE_FREIGHT_PRICING_UTIL.close_logs;
11046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11047: ROLLBACK TO rerate_shipment_online;
11040: p_data => x_msg_data,
11041: p_encoded => FND_API.G_FALSE
11042: );
11043: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11045: FTE_FREIGHT_PRICING_UTIL.close_logs;
11046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11047: ROLLBACK TO rerate_shipment_online;
11048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11041: p_encoded => FND_API.G_FALSE
11042: );
11043: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_reprice2',FTE_FREIGHT_PRICING_UTIL.G_ERR,'l_delivery_leg_rating_failed');
11044: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_reprice2');
11045: FTE_FREIGHT_PRICING_UTIL.close_logs;
11046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11047: ROLLBACK TO rerate_shipment_online;
11048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11049: FND_MSG_PUB.Count_And_Get
11052: p_data => x_msg_data,
11053: p_encoded => FND_API.G_FALSE
11054: );
11055:
11056: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11057: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11058: FTE_FREIGHT_PRICING_UTIL.close_logs;
11059: WHEN others THEN
11060: ROLLBACK TO rerate_shipment_online;
11053: p_encoded => FND_API.G_FALSE
11054: );
11055:
11056: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11057: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11058: FTE_FREIGHT_PRICING_UTIL.close_logs;
11059: WHEN others THEN
11060: ROLLBACK TO rerate_shipment_online;
11061: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11054: );
11055:
11056: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'FND_API.G_EXC_UNEXPECTED_ERROR');
11057: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11058: FTE_FREIGHT_PRICING_UTIL.close_logs;
11059: WHEN others THEN
11060: ROLLBACK TO rerate_shipment_online;
11061: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11062: FND_MSG_PUB.Count_And_Get
11064: p_count => x_msg_count,
11065: p_data => x_msg_data,
11066: p_encoded => FND_API.G_FALSE
11067: );
11068: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11069: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11070: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11071: FTE_FREIGHT_PRICING_UTIL.close_logs;
11072: END rerate_shipment_online;
11065: p_data => x_msg_data,
11066: p_encoded => FND_API.G_FALSE
11067: );
11068: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11069: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11070: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11071: FTE_FREIGHT_PRICING_UTIL.close_logs;
11072: END rerate_shipment_online;
11073:
11066: p_encoded => FND_API.G_FALSE
11067: );
11068: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11069: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11070: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11071: FTE_FREIGHT_PRICING_UTIL.close_logs;
11072: END rerate_shipment_online;
11073:
11074:
11067: );
11068: FTE_FREIGHT_PRICING_UTIL.set_exit_exception(l_api_name,'g_others');
11069: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11070: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11071: FTE_FREIGHT_PRICING_UTIL.close_logs;
11072: END rerate_shipment_online;
11073:
11074:
11075: PROCEDURE delete_fc_temp_pvt (
11080: x_return_status OUT NOCOPY VARCHAR2)
11081: IS
11082:
11083: l_return_status VARCHAR2(1);
11084: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11085:
11086: BEGIN
11087:
11088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11086: BEGIN
11087:
11088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11089: IF p_initialized THEN
11090: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11091: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp_pvt','start');
11092: END IF;
11093:
11094: DELETE
11087:
11088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11089: IF p_initialized THEN
11090: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11091: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp_pvt','start');
11092: END IF;
11093:
11094: DELETE
11095: FROM fte_freight_costs_temp
11098: AND nvl(lane_id,-9999) <> nvl(decode(p_schedule_id,NULL,p_lane_id,NULL),-19999)
11099: AND nvl(schedule_id,-9999) <> nvl(p_schedule_id,-19999);
11100:
11101: IF p_initialized THEN
11102: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11103: END IF;
11104:
11105: EXCEPTION
11106: WHEN others THEN
11105: EXCEPTION
11106: WHEN others THEN
11107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11108: IF p_initialized THEN
11109: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11110: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11111: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11112: END IF;
11113: END delete_fc_temp_pvt;
11106: WHEN others THEN
11107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11108: IF p_initialized THEN
11109: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11110: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11111: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11112: END IF;
11113: END delete_fc_temp_pvt;
11114:
11107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11108: IF p_initialized THEN
11109: FTE_FREIGHT_PRICING_UTIL.set_exception('delete_fc_temp_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11110: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11111: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp_pvt');
11112: END IF;
11113: END delete_fc_temp_pvt;
11114:
11115: -- This API is called by Rate_Delivery of LCSS project
11121: p_freight_cost_temp_price IN Freight_Cost_Temp_Tab_Type,
11122: p_freight_cost_temp_charge IN Freight_Cost_Temp_Tab_Type,
11123: x_return_status OUT NOCOPY VARCHAR2)
11124: IS
11125: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
11126: l_api_name CONSTANT VARCHAR2(30) := 'MOVE_FC_TEMP_TO_MAIN';
11127: l_return_status VARCHAR2(1);
11128: l_msg_count NUMBER := 0;
11129: l_msg_data VARCHAR2(240);
11138:
11139: BEGIN
11140: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11141:
11142: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11143: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11144:
11145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11146:
11139: BEGIN
11140: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11141:
11142: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11143: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11144:
11145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11146:
11147: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11141:
11142: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11143: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11144:
11145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11146:
11147: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11148:
11149: IF (p_delivery_leg_id IS NULL) THEN
11143: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11144:
11145: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_leg_id='||p_delivery_leg_id);
11146:
11147: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11148:
11149: IF (p_delivery_leg_id IS NULL) THEN
11150: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11151: END IF;
11146:
11147: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_freight_cost_temp_price.COUNT=' || p_freight_cost_temp_price.COUNT );
11148:
11149: IF (p_delivery_leg_id IS NULL) THEN
11150: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11151: END IF;
11152:
11153: --IF p_freight_cost_temp_price.COUNT = 0 THEN
11154: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11150: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11151: END IF;
11152:
11153: --IF p_freight_cost_temp_price.COUNT = 0 THEN
11154: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11155: --END IF;
11156:
11157: SAVEPOINT before_fc_creation;
11158:
11155: --END IF;
11156:
11157: SAVEPOINT before_fc_creation;
11158:
11159: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_price...');
11160: IF p_freight_cost_temp_price.COUNT > 0 THEN
11161:
11162: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11163: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11159: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_price...');
11160: IF p_freight_cost_temp_price.COUNT > 0 THEN
11161:
11162: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11163: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11164:
11165: 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);
11166:
11167: 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);
11161:
11162: FOR i in p_freight_cost_temp_price.FIRST..p_freight_cost_temp_price.LAST LOOP
11163: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11164:
11165: 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);
11166:
11167: 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);
11168:
11169: 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);
11163: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11164:
11165: 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);
11166:
11167: 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);
11168:
11169: 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);
11170:
11171: --ensures no spill overs from earlier rows
11165: 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);
11166:
11167: 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);
11168:
11169: 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);
11170:
11171: --ensures no spill overs from earlier rows
11172: l_freight_cost_main_row:=l_empty_main_row;
11173:
11206:
11207: -- pack J Enhancement for FPA
11208: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11209: := p_freight_cost_temp_price(i).COMMODITY_CATEGORY_ID;
11210: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11211: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11212:
11213: 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);
11214: 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);
11209: := p_freight_cost_temp_price(i).COMMODITY_CATEGORY_ID;
11210: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11211: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11212:
11213: 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);
11214: 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);
11215: 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);
11216:
11217: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11210: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11211: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11212:
11213: 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);
11214: 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);
11215: 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);
11216:
11217: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11218: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11211: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11212:
11213: 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);
11214: 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);
11215: 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);
11216:
11217: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11218: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11219: AND l_freight_cost_main_row.delivery_leg_id is not null THEN
11224:
11225: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11226: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_main_row.delivery_leg_id;
11227:
11228: 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);
11229:
11230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11231: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11232: p_rowid => l_update_rowid,
11226: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_main_row.delivery_leg_id;
11227:
11228: 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);
11229:
11230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11231: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11232: p_rowid => l_update_rowid,
11233: p_freight_cost_info => l_freight_cost_main_row,
11234: x_return_status => l_return_status);
11235:
11236: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11237: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11238: ROLLBACK to before_fc_creation;
11239: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11240: END IF;
11241: END IF;
11242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11243:
11238: ROLLBACK to before_fc_creation;
11239: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11240: END IF;
11241: END IF;
11242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11243:
11244: ELSE
11245:
11246: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11245:
11246: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11247: l_freight_cost_main_row.CREATED_BY := FND_GLOBAL.USER_ID;
11248:
11249: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost...');
11250: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11251: p_freight_cost_info => l_freight_cost_main_row,
11252: x_rowid => l_rowid,
11253: x_freight_cost_id => l_freight_cost_id,
11255:
11256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11258: ROLLBACK to before_fc_creation;
11259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11260: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11261: END IF;
11262: END IF;
11263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11258: ROLLBACK to before_fc_creation;
11259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11260: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11261: END IF;
11262: END IF;
11263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11264:
11259: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11260: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11261: END IF;
11262: END IF;
11263: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11264:
11265: END IF;
11266:
11267: END LOOP; -- p_freight_cost_temp_price loop
11266:
11267: END LOOP; -- p_freight_cost_temp_price loop
11268: END IF;
11269:
11270: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_charge...');
11271: IF p_freight_cost_temp_charge.COUNT > 0 THEN
11272: FOR i in p_freight_cost_temp_charge.FIRST..p_freight_cost_temp_charge.LAST LOOP
11273: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11274:
11269:
11270: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp_charge...');
11271: IF p_freight_cost_temp_charge.COUNT > 0 THEN
11272: FOR i in p_freight_cost_temp_charge.FIRST..p_freight_cost_temp_charge.LAST LOOP
11273: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11274:
11275: --ensures no spill overs from earlier rows
11276: l_freight_cost_main_charge:=l_empty_main_row;
11277:
11312:
11313: -- pack J Enhancement for FPA
11314: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
11315: := p_freight_cost_temp_charge(i).COMMODITY_CATEGORY_ID;
11316: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11317: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
11318:
11319: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11320: p_freight_cost_info => l_freight_cost_main_charge,
11324:
11325: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11326: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11327: ROLLBACK to before_fc_creation;
11328: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11329: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11330: END IF;
11331: END IF;
11332: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11325: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11326: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11327: ROLLBACK to before_fc_creation;
11328: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11329: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11330: END IF;
11331: END IF;
11332: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11333:
11328: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11329: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11330: END IF;
11331: END IF;
11332: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11333:
11334: END LOOP; -- p_freight_cost_temp_charge loop
11335: END IF;
11336:
11333:
11334: END LOOP; -- p_freight_cost_temp_charge loop
11335: END IF;
11336:
11337: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11338:
11339: EXCEPTION
11340: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11341: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11336:
11337: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11338:
11339: EXCEPTION
11340: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11341: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11342: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11338:
11339: EXCEPTION
11340: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11341: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11342: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11339: EXCEPTION
11340: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11341: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11342: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11340: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11341: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11342: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11342: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11350: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11343: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11350: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11351: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11344: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11350: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11351: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11352: WHEN others THEN
11346: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11350: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11351: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11352: WHEN others THEN
11353: ROLLBACK to before_fc_creation;
11354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11347: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11348: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11350: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11351: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11352: WHEN others THEN
11353: ROLLBACK to before_fc_creation;
11354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11355: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11351: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11352: WHEN others THEN
11353: ROLLBACK to before_fc_creation;
11354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11355: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11356: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11357: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11358: END;
11359:
11352: WHEN others THEN
11353: ROLLBACK to before_fc_creation;
11354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11355: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11356: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11357: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11358: END;
11359:
11360: -- This API is called by Rate_Delivery of LCSS project
11353: ROLLBACK to before_fc_creation;
11354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11355: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11356: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11357: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11358: END;
11359:
11360: -- This API is called by Rate_Delivery of LCSS project
11361: -- To move freight costs from pl/sql table to wsh_freight_costs
11364: PROCEDURE Move_fc_temp_to_main (
11365: p_freight_cost_temp IN Freight_Cost_Temp_Tab_Type,
11366: x_return_status OUT NOCOPY VARCHAR2)
11367: IS
11368: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
11369: l_api_name CONSTANT VARCHAR2(30) := 'MOVE_FC_TEMP_TO_MAIN';
11370: l_return_status VARCHAR2(1);
11371: l_msg_count NUMBER := 0;
11372: l_msg_data VARCHAR2(240);
11378:
11379: BEGIN
11380: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11381:
11382: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11383: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11384:
11385: -- IF p_freight_cost_temp.COUNT = 0 THEN
11386: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11379: BEGIN
11380: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11381:
11382: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11383: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11384:
11385: -- IF p_freight_cost_temp.COUNT = 0 THEN
11386: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11387: -- END IF;
11382: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11383: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
11384:
11385: -- IF p_freight_cost_temp.COUNT = 0 THEN
11386: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11387: -- END IF;
11388:
11389: SAVEPOINT before_fc_creation;
11390:
11387: -- END IF;
11388:
11389: SAVEPOINT before_fc_creation;
11390:
11391: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp...');
11392: IF p_freight_cost_temp.COUNT > 0 THEN
11393: FOR i in p_freight_cost_temp.FIRST..p_freight_cost_temp.LAST LOOP
11394: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11395:
11390:
11391: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'looping through p_freight_cost_temp...');
11392: IF p_freight_cost_temp.COUNT > 0 THEN
11393: FOR i in p_freight_cost_temp.FIRST..p_freight_cost_temp.LAST LOOP
11394: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'i='||i);
11395:
11396: --ensures no spill overs from earlier rows
11397: l_freight_cost_main_row:=l_empty_main_row;
11398:
11423:
11424: -- pack J Enhancement for FPA
11425: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11426: := p_freight_cost_temp(i).COMMODITY_CATEGORY_ID;
11427: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11428: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11429:
11430: 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);
11431: 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);
11426: := p_freight_cost_temp(i).COMMODITY_CATEGORY_ID;
11427: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11428: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11429:
11430: 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);
11431: 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);
11432: 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);
11433:
11434: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11427: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11428: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11429:
11430: 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);
11431: 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);
11432: 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);
11433:
11434: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11435: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11428: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11429:
11430: 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);
11431: 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);
11432: 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);
11433:
11434: IF l_freight_cost_main_row.line_type_code = 'SUMMARY'
11435: AND l_freight_cost_main_row.delivery_detail_id IS NULL
11436: AND l_freight_cost_main_row.delivery_leg_id is not null THEN
11440: -- The lane level summary amount becomes the delivery leg level summary amount
11441:
11442: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11443:
11444: 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);
11445:
11446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11447: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11448: p_rowid => l_update_rowid,
11442: l_freight_cost_main_row.FREIGHT_COST_ID := get_fc_id_from_dleg(l_freight_cost_main_row.delivery_leg_id);
11443:
11444: 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);
11445:
11446: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost...');
11447: WSH_FREIGHT_COSTS_PVT.Update_Freight_Cost(
11448: p_rowid => l_update_rowid,
11449: p_freight_cost_info => l_freight_cost_main_row,
11450: x_return_status => l_return_status);
11451:
11452: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11453: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11454: ROLLBACK to before_fc_creation;
11455: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11456: END IF;
11457: END IF;
11458: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11459:
11454: ROLLBACK to before_fc_creation;
11455: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11456: END IF;
11457: END IF;
11458: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11459:
11460: ELSE
11461:
11462: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11461:
11462: l_freight_cost_main_row.CREATION_DATE := SYSDATE;
11463: l_freight_cost_main_row.CREATED_BY := FND_GLOBAL.USER_ID;
11464:
11465: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Calling WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost...');
11466: WSH_FREIGHT_COSTS_PVT.Create_Freight_Cost(
11467: p_freight_cost_info => l_freight_cost_main_row,
11468: x_rowid => l_rowid,
11469: x_freight_cost_id => l_freight_cost_id,
11471:
11472: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11473: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11474: ROLLBACK to before_fc_creation;
11475: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11476: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11477: END IF;
11478: END IF;
11479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11472: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11473: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11474: ROLLBACK to before_fc_creation;
11475: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11476: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11477: END IF;
11478: END IF;
11479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11480:
11475: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11476: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11477: END IF;
11478: END IF;
11479: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11480:
11481: END IF;
11482:
11483: END LOOP; -- p_freight_cost_temp_price loop
11482:
11483: END LOOP; -- p_freight_cost_temp_price loop
11484: END IF;
11485:
11486: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11487:
11488: EXCEPTION
11489: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11485:
11486: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11487:
11488: EXCEPTION
11489: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11491: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11487:
11488: EXCEPTION
11489: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11491: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11488: EXCEPTION
11489: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11491: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11489: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11491: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11491: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_no_temp_fc_to_move');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11499: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11492: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11499: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11500: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11493: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11499: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11500: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11501: WHEN others THEN
11495: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_create_freight_cost_failed');
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11499: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11500: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11501: WHEN others THEN
11502: ROLLBACK to before_fc_creation;
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11496: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11497: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11499: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_update_freight_cost_failed');
11500: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11501: WHEN others THEN
11502: ROLLBACK to before_fc_creation;
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11504: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11500: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11501: WHEN others THEN
11502: ROLLBACK to before_fc_creation;
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11504: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11507: END;
11508:
11501: WHEN others THEN
11502: ROLLBACK to before_fc_creation;
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11504: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11507: END;
11508:
11509: -- todo take care of applied_to_charge_id
11502: ROLLBACK to before_fc_creation;
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11504: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
11505: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11506: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
11507: END;
11508:
11509: -- todo take care of applied_to_charge_id
11510: PROCEDURE Move_fc_temp_to_main (
11568: l_update_rowid VARCHAR2(30);
11569: l_freight_cost_id NUMBER;
11570: l_return_status VARCHAR2(1);
11571:
11572: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11573:
11574: BEGIN
11575:
11576: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11574: BEGIN
11575:
11576: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11577: IF (p_init_prc_log = 'Y') THEN
11578: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
11579: x_return_status => l_return_status );
11580: END IF;
11581:
11582: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11584: x_return_status := l_return_status;
11585: RETURN;
11586: END IF;
11587: ELSE
11588: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11589: END IF;
11590: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11591: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11592:
11586: END IF;
11587: ELSE
11588: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11589: END IF;
11590: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11591: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11592:
11593: 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
11594: ||' Service type - '||p_service_type_code );
11587: ELSE
11588: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11589: END IF;
11590: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11591: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11592:
11593: 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
11594: ||' Service type - '||p_service_type_code );
11595:
11589: END IF;
11590: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11591: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11592:
11593: 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
11594: ||' Service type - '||p_service_type_code );
11595:
11596: 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
11597: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11593: 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
11594: ||' Service type - '||p_service_type_code );
11595:
11596: 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
11597: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11598: END IF;
11599:
11600: SAVEPOINT before_fc_creation;
11601:
11625: x_return_status=>l_return_status);
11626:
11627: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11628: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11629: raise FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail;
11630: END IF;
11631: END IF;
11632:
11633:
11682:
11683: -- pack J Enhancement for FPA
11684: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
11685: := l_freight_cost_temp_row.COMMODITY_CATEGORY_ID;
11686: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11687: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
11688:
11689: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY'
11690: OR (l_freight_cost_main_row.line_type_code = 'SUMMARY'
11701:
11702: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11703: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11704: ROLLBACK to before_fc_creation;
11705: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11706: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11707: END IF;
11708: END IF;
11709: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11702: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11703: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11704: ROLLBACK to before_fc_creation;
11705: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11706: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11707: END IF;
11708: END IF;
11709: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11710:
11705: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
11706: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11707: END IF;
11708: END IF;
11709: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11710:
11711: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY' THEN
11712: l_price_fc_ids(l_freight_cost_main_row.delivery_detail_id) := l_freight_cost_id;
11713: END IF;
11728:
11729: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11730: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11731: ROLLBACK to before_fc_creation;
11732: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11733: END IF;
11734: END IF;
11735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11736:
11731: ROLLBACK to before_fc_creation;
11732: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
11733: END IF;
11734: END IF;
11735: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
11736:
11737: END IF;
11738:
11739:
11738:
11739:
11740: END LOOP;
11741: -- IF c_move_fc_temp%ROWCOUNT = 0 THEN
11742: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
11743: -- END IF;
11744:
11745: OPEN c_move_fc_temp_charge;
11746: LOOP
11786:
11787: -- pack J Enhancement for FPA
11788: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
11789: := l_freight_cost_temp_charge.COMMODITY_CATEGORY_ID;
11790: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
11791: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
11792:
11793: l_freight_cost_main_charge.applied_to_charge_id := l_price_fc_ids(l_freight_cost_main_charge.delivery_detail_id);
11794:
11800:
11801: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11802: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11803: ROLLBACK to before_fc_creation;
11804: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11805: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11806: END IF;
11807: END IF;
11808: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11801: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11802: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11803: ROLLBACK to before_fc_creation;
11804: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11805: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11806: END IF;
11807: END IF;
11808: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11809:
11804: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
11805: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
11806: END IF;
11807: END IF;
11808: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
11809:
11810: END LOOP;
11811:
11812: BEGIN -- anonymous block to make sure transaction goes through even if the
11822: AND moved_to_main_flag = 'N';
11823:
11824: EXCEPTION
11825: WHEN others THEN
11826: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Updating freight_costs_temp moved_to_main_flag failed');
11827: null;
11828: END;
11829:
11830: delete_fc_temp_pvt (
11834: x_return_status => l_return_status);
11835:
11836: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11837: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11838: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11839: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11840: END IF;
11841: ELSE
11842: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11835:
11836: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11837: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11838: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11839: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11840: END IF;
11841: ELSE
11842: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11843: END IF;
11838: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
11839: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
11840: END IF;
11841: ELSE
11842: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
11843: END IF;
11844:
11845: END IF;
11846:
11843: END IF;
11844:
11845: END IF;
11846:
11847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11848: IF (p_init_prc_log = 'Y') THEN
11849: FTE_FREIGHT_PRICING_UTIL.close_logs;
11850: END IF;
11851:
11845: END IF;
11846:
11847: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11848: IF (p_init_prc_log = 'Y') THEN
11849: FTE_FREIGHT_PRICING_UTIL.close_logs;
11850: END IF;
11851:
11852: EXCEPTION
11853:
11850: END IF;
11851:
11852: EXCEPTION
11853:
11854: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11855: ROLLBACK to before_fc_creation;
11856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11857: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11858: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11853:
11854: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11855: ROLLBACK to before_fc_creation;
11856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11857: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11858: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11859: IF (p_init_prc_log = 'Y') THEN
11860: FTE_FREIGHT_PRICING_UTIL.close_logs;
11861: END IF;
11854: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_move_dlv_rec_fail THEN
11855: ROLLBACK to before_fc_creation;
11856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11857: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11858: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11859: IF (p_init_prc_log = 'Y') THEN
11860: FTE_FREIGHT_PRICING_UTIL.close_logs;
11861: END IF;
11862:
11856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11857: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_tl_move_dlv_rec_fail');
11858: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11859: IF (p_init_prc_log = 'Y') THEN
11860: FTE_FREIGHT_PRICING_UTIL.close_logs;
11861: END IF;
11862:
11863: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11859: IF (p_init_prc_log = 'Y') THEN
11860: FTE_FREIGHT_PRICING_UTIL.close_logs;
11861: END IF;
11862:
11863: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11865: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11866: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11867: IF (p_init_prc_log = 'Y') THEN
11861: END IF;
11862:
11863: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11865: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11866: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11867: IF (p_init_prc_log = 'Y') THEN
11868: FTE_FREIGHT_PRICING_UTIL.close_logs;
11869: END IF;
11862:
11863: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
11864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11865: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11866: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11867: IF (p_init_prc_log = 'Y') THEN
11868: FTE_FREIGHT_PRICING_UTIL.close_logs;
11869: END IF;
11870: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11865: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
11866: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11867: IF (p_init_prc_log = 'Y') THEN
11868: FTE_FREIGHT_PRICING_UTIL.close_logs;
11869: END IF;
11870: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11871: --ROLLBACK to before_fc_creation;
11872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11866: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11867: IF (p_init_prc_log = 'Y') THEN
11868: FTE_FREIGHT_PRICING_UTIL.close_logs;
11869: END IF;
11870: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11871: --ROLLBACK to before_fc_creation;
11872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11873: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11874: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11869: END IF;
11870: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11871: --ROLLBACK to before_fc_creation;
11872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11873: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11874: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11875: IF (p_init_prc_log = 'Y') THEN
11876: FTE_FREIGHT_PRICING_UTIL.close_logs;
11877: END IF;
11870: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
11871: --ROLLBACK to before_fc_creation;
11872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11873: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11874: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11875: IF (p_init_prc_log = 'Y') THEN
11876: FTE_FREIGHT_PRICING_UTIL.close_logs;
11877: END IF;
11878: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11873: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
11874: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11875: IF (p_init_prc_log = 'Y') THEN
11876: FTE_FREIGHT_PRICING_UTIL.close_logs;
11877: END IF;
11878: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11880: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11874: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11875: IF (p_init_prc_log = 'Y') THEN
11876: FTE_FREIGHT_PRICING_UTIL.close_logs;
11877: END IF;
11878: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11880: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11881: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11882: IF (p_init_prc_log = 'Y') THEN
11876: FTE_FREIGHT_PRICING_UTIL.close_logs;
11877: END IF;
11878: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11880: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11881: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11882: IF (p_init_prc_log = 'Y') THEN
11883: FTE_FREIGHT_PRICING_UTIL.close_logs;
11884: END IF;
11877: END IF;
11878: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
11879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11880: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11881: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11882: IF (p_init_prc_log = 'Y') THEN
11883: FTE_FREIGHT_PRICING_UTIL.close_logs;
11884: END IF;
11885: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11880: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
11881: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11882: IF (p_init_prc_log = 'Y') THEN
11883: FTE_FREIGHT_PRICING_UTIL.close_logs;
11884: END IF;
11885: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11881: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11882: IF (p_init_prc_log = 'Y') THEN
11883: FTE_FREIGHT_PRICING_UTIL.close_logs;
11884: END IF;
11885: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11888: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11889: IF (p_init_prc_log = 'Y') THEN
11883: FTE_FREIGHT_PRICING_UTIL.close_logs;
11884: END IF;
11885: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11888: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11889: IF (p_init_prc_log = 'Y') THEN
11890: FTE_FREIGHT_PRICING_UTIL.close_logs;
11891: END IF;
11884: END IF;
11885: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11888: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11889: IF (p_init_prc_log = 'Y') THEN
11890: FTE_FREIGHT_PRICING_UTIL.close_logs;
11891: END IF;
11892: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
11888: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11889: IF (p_init_prc_log = 'Y') THEN
11890: FTE_FREIGHT_PRICING_UTIL.close_logs;
11891: END IF;
11892: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11894: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11888: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11889: IF (p_init_prc_log = 'Y') THEN
11890: FTE_FREIGHT_PRICING_UTIL.close_logs;
11891: END IF;
11892: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11894: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11896: IF (p_init_prc_log = 'Y') THEN
11890: FTE_FREIGHT_PRICING_UTIL.close_logs;
11891: END IF;
11892: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11894: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11896: IF (p_init_prc_log = 'Y') THEN
11897: FTE_FREIGHT_PRICING_UTIL.close_logs;
11898: END IF;
11891: END IF;
11892: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
11893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11894: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11896: IF (p_init_prc_log = 'Y') THEN
11897: FTE_FREIGHT_PRICING_UTIL.close_logs;
11898: END IF;
11899: WHEN others THEN
11893: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11894: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
11895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11896: IF (p_init_prc_log = 'Y') THEN
11897: FTE_FREIGHT_PRICING_UTIL.close_logs;
11898: END IF;
11899: WHEN others THEN
11900: ROLLBACK to before_fc_creation;
11901: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11898: END IF;
11899: WHEN others THEN
11900: ROLLBACK to before_fc_creation;
11901: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11902: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11903: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11904: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11905: IF (p_init_prc_log = 'Y') THEN
11906: FTE_FREIGHT_PRICING_UTIL.close_logs;
11899: WHEN others THEN
11900: ROLLBACK to before_fc_creation;
11901: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11902: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11903: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11904: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11905: IF (p_init_prc_log = 'Y') THEN
11906: FTE_FREIGHT_PRICING_UTIL.close_logs;
11907: END IF;
11900: ROLLBACK to before_fc_creation;
11901: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11902: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11903: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11904: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11905: IF (p_init_prc_log = 'Y') THEN
11906: FTE_FREIGHT_PRICING_UTIL.close_logs;
11907: END IF;
11908: END Move_fc_temp_to_main;
11902: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
11903: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
11904: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
11905: IF (p_init_prc_log = 'Y') THEN
11906: FTE_FREIGHT_PRICING_UTIL.close_logs;
11907: END IF;
11908: END Move_fc_temp_to_main;
11909:
11910:
11966: l_init_msg_list VARCHAR2(30) :=FND_API.G_FALSE;
11967: l_freight_cost_id NUMBER;
11968: l_return_status VARCHAR2(1);
11969:
11970: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
11971:
11972: BEGIN
11973:
11974: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11972: BEGIN
11973:
11974: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11975: IF (p_init_prc_log = 'Y') THEN
11976: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
11977: x_return_status => l_return_status );
11978: END IF;
11979:
11980: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11982: x_return_status := l_return_status;
11983: RETURN;
11984: END IF;
11985: ELSE
11986: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11987: END IF;
11988: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11989: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11990:
11984: END IF;
11985: ELSE
11986: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11987: END IF;
11988: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11989: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11990:
11991: 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
11992: ||' Service type - '||p_service_type_code );
11985: ELSE
11986: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
11987: END IF;
11988: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11989: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11990:
11991: 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
11992: ||' Service type - '||p_service_type_code );
11993:
11987: END IF;
11988: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
11989: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Move_fc_temp_to_main','start');
11990:
11991: 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
11992: ||' Service type - '||p_service_type_code );
11993:
11994: IF (p_trip_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) THEN
11995: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11991: 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
11992: ||' Service type - '||p_service_type_code );
11993:
11994: IF (p_trip_id IS NULL) OR (p_lane_id IS NULL AND p_schedule_id IS NULL) THEN
11995: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
11996: END IF;
11997:
11998:
11999: --Gather mapping from delivery to dleg id. Since this is for a single trip
12011:
12012: l_dleg_ids(l_delivery_id):=l_dleg_id;
12013:
12014: ELSE
12015: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Null dleg/delivery '||l_dleg_id||' '||l_delivery_id);
12016:
12017: END IF;
12018:
12019: FETCH c_get_dlegs_from_trip INTO l_dleg_id,l_delivery_id;
12054:
12055: l_freight_cost_main_row.DELIVERY_LEG_ID := l_dleg_ids(l_freight_cost_main_row.DELIVERY_ID);
12056:
12057: ELSE
12058: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_row.DELIVERY_ID);
12059: ROLLBACK to before_fc_creation;
12060: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
12061: END IF;
12062:
12056:
12057: ELSE
12058: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_row.DELIVERY_ID);
12059: ROLLBACK to before_fc_creation;
12060: raise FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg;
12061: END IF;
12062:
12063: ELSE
12064: l_freight_cost_main_row.DELIVERY_LEG_ID := l_freight_cost_temp_row.DELIVERY_LEG_ID;
12085:
12086: -- pack J Enhancement for FPA
12087: l_freight_cost_main_row.COMMODITY_CATEGORY_ID
12088: := l_freight_cost_temp_row.COMMODITY_CATEGORY_ID;
12089: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
12090: '(FPA)l_freight_cost_main_row.COMMODITY_CATEGORY_ID='||l_freight_cost_main_row.COMMODITY_CATEGORY_ID);
12091:
12092: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY'
12093: OR (l_freight_cost_main_row.line_type_code = 'SUMMARY'
12104:
12105: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12106: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12107: ROLLBACK to before_fc_creation;
12108: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12109: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12110: END IF;
12111: END IF;
12112: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12105: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12106: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12107: ROLLBACK to before_fc_creation;
12108: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12109: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12110: END IF;
12111: END IF;
12112: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12113:
12108: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Base price');
12109: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12110: END IF;
12111: END IF;
12112: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12113:
12114: IF l_freight_cost_main_row.line_type_code <> 'SUMMARY' THEN
12115: l_price_fc_ids(l_freight_cost_main_row.delivery_detail_id) := l_freight_cost_id;
12116: END IF;
12131:
12132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12133: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12134: ROLLBACK to before_fc_creation;
12135: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
12136: END IF;
12137: END IF;
12138: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
12139:
12134: ROLLBACK to before_fc_creation;
12135: raise FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed;
12136: END IF;
12137: END IF;
12138: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Update_Freight_Cost ');
12139:
12140: END IF;
12141:
12142:
12141:
12142:
12143: END LOOP;
12144: -- IF c_move_fc_temp%ROWCOUNT = 0 THEN
12145: -- raise FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move;
12146: -- END IF;
12147: CLOSE c_move_fc_temp;
12148:
12149: OPEN c_move_fc_temp_charge;
12176: l_freight_cost_main_charge.DELIVERY_LEG_ID := l_dleg_ids(l_freight_cost_main_charge.DELIVERY_ID);
12177:
12178: ELSE
12179:
12180: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No dleg for delivery '||l_freight_cost_main_charge.DELIVERY_ID);
12181:
12182: END IF;
12183:
12184: ELSE
12204:
12205: -- pack J Enhancement for FPA
12206: l_freight_cost_main_charge.COMMODITY_CATEGORY_ID
12207: := l_freight_cost_temp_charge.COMMODITY_CATEGORY_ID;
12208: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
12209: '(FPA)l_freight_cost_main_charge.COMMODITY_CATEGORY_ID='||l_freight_cost_main_charge.COMMODITY_CATEGORY_ID);
12210:
12211: l_freight_cost_main_charge.applied_to_charge_id := l_price_fc_ids(l_freight_cost_main_charge.delivery_detail_id);
12212:
12218:
12219: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12220: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12221: ROLLBACK to before_fc_creation;
12222: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12223: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12224: END IF;
12225: END IF;
12226: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12219: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12220: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12221: ROLLBACK to before_fc_creation;
12222: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12223: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12224: END IF;
12225: END IF;
12226: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12227:
12222: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'Charge');
12223: raise FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed;
12224: END IF;
12225: END IF;
12226: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'After Create_Freight_Cost id : '||l_freight_cost_id);
12227:
12228: END LOOP;
12229: CLOSE c_move_fc_temp_charge;
12230:
12241: AND moved_to_main_flag = 'N';
12242:
12243: EXCEPTION
12244: WHEN others THEN
12245: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Updating freight_costs_temp moved_to_main_flag failed');
12246: null;
12247: END;
12248:
12249: delete_fc_temp_pvt (
12253: x_return_status => l_return_status);
12254:
12255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12257: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12258: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12259: END IF;
12260: ELSE
12261: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12254:
12255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12256: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12257: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12258: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12259: END IF;
12260: ELSE
12261: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12262: END IF;
12257: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12258: raise FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed;
12259: END IF;
12260: ELSE
12261: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12262: END IF;
12263:
12264: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12265: IF (p_init_prc_log = 'Y') THEN
12260: ELSE
12261: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12262: END IF;
12263:
12264: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12265: IF (p_init_prc_log = 'Y') THEN
12266: FTE_FREIGHT_PRICING_UTIL.close_logs;
12267: END IF;
12268:
12262: END IF;
12263:
12264: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12265: IF (p_init_prc_log = 'Y') THEN
12266: FTE_FREIGHT_PRICING_UTIL.close_logs;
12267: END IF;
12268:
12269: EXCEPTION
12270: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12266: FTE_FREIGHT_PRICING_UTIL.close_logs;
12267: END IF;
12268:
12269: EXCEPTION
12270: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12272: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12274: IF (p_init_prc_log = 'Y') THEN
12268:
12269: EXCEPTION
12270: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12272: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12274: IF (p_init_prc_log = 'Y') THEN
12275: FTE_FREIGHT_PRICING_UTIL.close_logs;
12276: END IF;
12269: EXCEPTION
12270: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_lanesched_seg THEN
12271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12272: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12274: IF (p_init_prc_log = 'Y') THEN
12275: FTE_FREIGHT_PRICING_UTIL.close_logs;
12276: END IF;
12277: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12272: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_lanesched_seg');
12273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12274: IF (p_init_prc_log = 'Y') THEN
12275: FTE_FREIGHT_PRICING_UTIL.close_logs;
12276: END IF;
12277: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12278: --ROLLBACK to before_fc_creation;
12279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12274: IF (p_init_prc_log = 'Y') THEN
12275: FTE_FREIGHT_PRICING_UTIL.close_logs;
12276: END IF;
12277: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12278: --ROLLBACK to before_fc_creation;
12279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12280: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12276: END IF;
12277: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12278: --ROLLBACK to before_fc_creation;
12279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12280: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12282: IF (p_init_prc_log = 'Y') THEN
12283: FTE_FREIGHT_PRICING_UTIL.close_logs;
12284: END IF;
12277: WHEN FTE_FREIGHT_PRICING_UTIL.g_no_temp_fc_to_move THEN
12278: --ROLLBACK to before_fc_creation;
12279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12280: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12282: IF (p_init_prc_log = 'Y') THEN
12283: FTE_FREIGHT_PRICING_UTIL.close_logs;
12284: END IF;
12285: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12280: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_no_temp_fc_to_move');
12281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12282: IF (p_init_prc_log = 'Y') THEN
12283: FTE_FREIGHT_PRICING_UTIL.close_logs;
12284: END IF;
12285: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12286: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12287: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12282: IF (p_init_prc_log = 'Y') THEN
12283: FTE_FREIGHT_PRICING_UTIL.close_logs;
12284: END IF;
12285: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12286: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12287: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12288: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12289: IF (p_init_prc_log = 'Y') THEN
12283: FTE_FREIGHT_PRICING_UTIL.close_logs;
12284: END IF;
12285: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12286: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12287: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12288: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12289: IF (p_init_prc_log = 'Y') THEN
12290: FTE_FREIGHT_PRICING_UTIL.close_logs;
12291: END IF;
12284: END IF;
12285: WHEN FTE_FREIGHT_PRICING_UTIL.g_create_freight_cost_failed THEN
12286: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12287: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12288: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12289: IF (p_init_prc_log = 'Y') THEN
12290: FTE_FREIGHT_PRICING_UTIL.close_logs;
12291: END IF;
12292: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12286: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12287: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_create_freight_cost_failed');
12288: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12289: IF (p_init_prc_log = 'Y') THEN
12290: FTE_FREIGHT_PRICING_UTIL.close_logs;
12291: END IF;
12292: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12294: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12288: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12289: IF (p_init_prc_log = 'Y') THEN
12290: FTE_FREIGHT_PRICING_UTIL.close_logs;
12291: END IF;
12292: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12294: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12295: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12296: IF (p_init_prc_log = 'Y') THEN
12290: FTE_FREIGHT_PRICING_UTIL.close_logs;
12291: END IF;
12292: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12294: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12295: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12296: IF (p_init_prc_log = 'Y') THEN
12297: FTE_FREIGHT_PRICING_UTIL.close_logs;
12298: END IF;
12291: END IF;
12292: WHEN FTE_FREIGHT_PRICING_UTIL.g_update_freight_cost_failed THEN
12293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12294: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12295: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12296: IF (p_init_prc_log = 'Y') THEN
12297: FTE_FREIGHT_PRICING_UTIL.close_logs;
12298: END IF;
12299: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12294: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_update_freight_cost_failed');
12295: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12296: IF (p_init_prc_log = 'Y') THEN
12297: FTE_FREIGHT_PRICING_UTIL.close_logs;
12298: END IF;
12299: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12300: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12301: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12295: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12296: IF (p_init_prc_log = 'Y') THEN
12297: FTE_FREIGHT_PRICING_UTIL.close_logs;
12298: END IF;
12299: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12300: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12301: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12302: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12303: IF (p_init_prc_log = 'Y') THEN
12297: FTE_FREIGHT_PRICING_UTIL.close_logs;
12298: END IF;
12299: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12300: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12301: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12302: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12303: IF (p_init_prc_log = 'Y') THEN
12304: FTE_FREIGHT_PRICING_UTIL.close_logs;
12305: END IF;
12298: END IF;
12299: WHEN FTE_FREIGHT_PRICING_UTIL.g_delete_fc_temp_failed THEN
12300: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12301: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12302: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12303: IF (p_init_prc_log = 'Y') THEN
12304: FTE_FREIGHT_PRICING_UTIL.close_logs;
12305: END IF;
12306: WHEN others THEN
12300: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12301: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_delete_fc_temp_failed');
12302: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12303: IF (p_init_prc_log = 'Y') THEN
12304: FTE_FREIGHT_PRICING_UTIL.close_logs;
12305: END IF;
12306: WHEN others THEN
12307: ROLLBACK to before_fc_creation;
12308: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12305: END IF;
12306: WHEN others THEN
12307: ROLLBACK to before_fc_creation;
12308: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12309: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12310: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12311: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12312: IF (p_init_prc_log = 'Y') THEN
12313: FTE_FREIGHT_PRICING_UTIL.close_logs;
12306: WHEN others THEN
12307: ROLLBACK to before_fc_creation;
12308: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12309: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12310: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12311: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12312: IF (p_init_prc_log = 'Y') THEN
12313: FTE_FREIGHT_PRICING_UTIL.close_logs;
12314: END IF;
12307: ROLLBACK to before_fc_creation;
12308: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12309: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12310: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12311: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12312: IF (p_init_prc_log = 'Y') THEN
12313: FTE_FREIGHT_PRICING_UTIL.close_logs;
12314: END IF;
12315: END Move_fc_temp_to_main;
12309: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('Move_fc_temp_to_main','g_others');
12310: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12311: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'Move_fc_temp_to_main');
12312: IF (p_init_prc_log = 'Y') THEN
12313: FTE_FREIGHT_PRICING_UTIL.close_logs;
12314: END IF;
12315: END Move_fc_temp_to_main;
12316:
12317:
12322: IS
12323:
12324: l_initialized BOOLEAN := TRUE;
12325: l_return_status VARCHAR2(1);
12326: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_DBG;
12327:
12328: PRAGMA AUTONOMOUS_TRANSACTION;
12329:
12330: BEGIN
12331: SAVEPOINT DELETE_FC_TEMP;
12332:
12333: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12334:
12335: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
12336: x_return_status => l_return_status );
12337:
12338: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12339: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12340: l_initialized := FALSE;
12341: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12342: END IF;
12343: ELSE
12344: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12345: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12346: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12347: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12348: END IF;
12341: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12342: END IF;
12343: ELSE
12344: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12345: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12346: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12347: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12348: END IF;
12349:
12342: END IF;
12343: ELSE
12344: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12345: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12346: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12347: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12348: END IF;
12349:
12350: delete_fc_temp_pvt (
12343: ELSE
12344: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12345: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12346: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'delete_fc_temp','start');
12347: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Input : Request Id - '||p_request_id);
12348: END IF;
12349:
12350: delete_fc_temp_pvt (
12351: p_request_id => p_request_id, -- Comparison Request ID to move to main
12354:
12355: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12356: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12357: IF l_initialized THEN
12358: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp failed ');
12359: END IF;
12360: ROLLBACK TO DELETE_FC_TEMP;
12361: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12362: END IF;
12361: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12362: END IF;
12363: ELSE
12364: IF l_initialized THEN
12365: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'delete_fc_temp successful ');
12366: END IF;
12367: COMMIT;
12368: END IF;
12369:
12367: COMMIT;
12368: END IF;
12369:
12370: IF l_initialized THEN
12371: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12372: FTE_FREIGHT_PRICING_UTIL.close_logs;
12373: END IF;
12374:
12375: EXCEPTION
12368: END IF;
12369:
12370: IF l_initialized THEN
12371: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12372: FTE_FREIGHT_PRICING_UTIL.close_logs;
12373: END IF;
12374:
12375: EXCEPTION
12376:
12376:
12377: WHEN others THEN
12378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12379: IF l_initialized THEN
12380: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12381: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12382: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12383: FTE_FREIGHT_PRICING_UTIL.close_logs;
12384: END IF;
12377: WHEN others THEN
12378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12379: IF l_initialized THEN
12380: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12381: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12382: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12383: FTE_FREIGHT_PRICING_UTIL.close_logs;
12384: END IF;
12385: END delete_fc_temp;
12378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12379: IF l_initialized THEN
12380: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12381: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12382: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12383: FTE_FREIGHT_PRICING_UTIL.close_logs;
12384: END IF;
12385: END delete_fc_temp;
12386:
12379: IF l_initialized THEN
12380: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('delete_fc_temp','g_others');
12381: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12382: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'delete_fc_temp');
12383: FTE_FREIGHT_PRICING_UTIL.close_logs;
12384: END IF;
12385: END delete_fc_temp;
12386:
12387:
12623: l_dummy_fc_temp_charge Freight_Cost_Temp_Tab_Type;
12624: l_currency_code VARCHAR2(10);
12625: l_carrier_id NUMBER;
12626:
12627: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
12628:
12629:
12630: BEGIN
12631:
12632: SAVEPOINT SHIPMENT_PRICE_COMPARE_PVT;
12633:
12634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12635:
12636: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12637: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12633:
12634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12635:
12636: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12637: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12635:
12636: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12637: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12636: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12637: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12637: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare_pvt','start');
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12645: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12638:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12645: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12646:
12639: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id ='||p_delivery_id);
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12645: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12646:
12647: IF p_trip_id IS NOT NULL THEN
12640: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_trip_id ='||p_trip_id);
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12645: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12646:
12647: IF p_trip_id IS NOT NULL THEN
12648: validate_nontl_trip(
12641: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_lane_id_tab.COUNT ='||p_lane_id_tab.COUNT);
12642: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_sched_id_tab.COUNT ='||p_sched_id_tab.COUNT);
12643: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_dep_date ='||p_dep_date);
12644: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_arr_date ='||p_arr_date);
12645: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'x_request_id ='||x_request_id);
12646:
12647: IF p_trip_id IS NOT NULL THEN
12648: validate_nontl_trip(
12649: p_trip_id => p_trip_id,
12677: END IF;
12678:
12679: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12680: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12681: raise FTE_FREIGHT_PRICING_UTIL.g_currency_code_failed;
12682: END IF;
12683: END IF;
12684:
12685:
12702: l_request_id := x_request_id;
12703:
12704: END IF;
12705:
12706: fte_freight_pricing_util.print_msg(p_msg => 'Comparison request_id is ' || l_request_id);
12707:
12708: IF (p_delivery_id IS NOT NULL) THEN
12709:
12710: OPEN c_delivery(p_delivery_id);
12716: END LOOP;
12717:
12718: IF c_delivery%ROWCOUNT = 0 THEN
12719: CLOSE c_delivery;
12720: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12721: ELSE
12722: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery%ROWCOUNT);
12723: END IF;
12724:
12718: IF c_delivery%ROWCOUNT = 0 THEN
12719: CLOSE c_delivery;
12720: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12721: ELSE
12722: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery%ROWCOUNT);
12723: END IF;
12724:
12725: CLOSE c_delivery;
12726:
12735: END LOOP;
12736:
12737: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
12738: CLOSE c_delivery_from_trip;
12739: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12740: ELSE
12741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
12742: END IF;
12743:
12737: IF c_delivery_from_trip%ROWCOUNT = 0 THEN
12738: CLOSE c_delivery_from_trip;
12739: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12740: ELSE
12741: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Matching number of delivery lines : '||c_delivery_from_trip%ROWCOUNT);
12742: END IF;
12743:
12744: CLOSE c_delivery_from_trip;
12745:
12743:
12744: CLOSE c_delivery_from_trip;
12745:
12746: ELSE
12747: raise FTE_FREIGHT_PRICING_UTIL.g_invalid_parameters;
12748: END IF;
12749:
12750:
12751: flatten_shipment (
12753: x_return_status => l_return_status );
12754:
12755: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12756: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12757: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
12758: END IF;
12759: ELSE
12760: IF l_first_level_rows.COUNT = 0 THEN
12761: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12757: raise FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed;
12758: END IF;
12759: ELSE
12760: IF l_first_level_rows.COUNT = 0 THEN
12761: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12762: END IF;
12763: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 6 : '||l_first_level_rows.COUNT);
12764: END IF;
12765:
12759: ELSE
12760: IF l_first_level_rows.COUNT = 0 THEN
12761: raise FTE_FREIGHT_PRICING_UTIL.g_empty_delivery;
12762: END IF;
12763: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'No. of top level lines 6 : '||l_first_level_rows.COUNT);
12764: END IF;
12765:
12766:
12767: IF (p_lane_id_tab.COUNT > 0) THEN
12767: IF (p_lane_id_tab.COUNT > 0) THEN
12768:
12769: IF p_lane_id_tab.COUNT <> p_service_lane_tab.COUNT THEN
12770: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12771: raise FTE_FREIGHT_PRICING_UTIL.g_missing_service_type;
12772: END IF;
12773:
12774: i := p_lane_id_tab.FIRST;
12775: LOOP
12778: FETCH c_get_carrier_for_lane INTO l_carrier_id;
12779: CLOSE c_get_carrier_for_lane;
12780:
12781: IF p_trip_id IS NOT NULL THEN
12782: FTE_FREIGHT_PRICING_UTIL.get_currency_code
12783: (
12784: p_trip_id => p_trip_id,
12785: p_carrier_id => l_carrier_id,
12786: x_currency_code => l_currency_code,
12786: x_currency_code => l_currency_code,
12787: x_return_status => l_return_status
12788: );
12789: ELSE
12790: FTE_FREIGHT_PRICING_UTIL.get_currency_code
12791: (
12792: p_delivery_id => p_delivery_id,
12793: p_carrier_id => l_carrier_id,
12794: x_currency_code => l_currency_code,
12813: x_freight_cost_temp_price => l_dummy_fc_temp_price,
12814: x_freight_cost_temp_charge => l_dummy_fc_temp_charge,
12815: x_return_status => l_return_status ) ;
12816:
12817: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'After shipment_pricing - p_lane_id = '||p_lane_id_tab(i));
12818: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12820: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12821: x_sum_lane_price_tab(i) := -1;
12814: x_freight_cost_temp_charge => l_dummy_fc_temp_charge,
12815: x_return_status => l_return_status ) ;
12816:
12817: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'After shipment_pricing - p_lane_id = '||p_lane_id_tab(i));
12818: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12820: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12821: x_sum_lane_price_tab(i) := -1;
12822: x_sum_lane_price_curr_tab(i) := 'NULL';
12819: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12820: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12821: x_sum_lane_price_tab(i) := -1;
12822: x_sum_lane_price_curr_tab(i) := 'NULL';
12823: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'lane: '||p_lane_id_tab(i)||' shipment_pricing ');
12824: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12825: END IF;
12826: ELSE
12827: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for lane : '||p_lane_id_tab(i));
12823: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'lane: '||p_lane_id_tab(i)||' shipment_pricing ');
12824: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12825: END IF;
12826: ELSE
12827: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for lane : '||p_lane_id_tab(i));
12828:
12829: x_sum_lane_price_tab(i) := nvl(l_lane_summary,0);
12830: x_sum_lane_price_curr_tab(i) := l_lane_summary_uom;
12831:
12841: IF (p_sched_id_tab.COUNT > 0) THEN
12842:
12843: IF p_sched_id_tab.COUNT <> p_service_sched_tab.COUNT THEN
12844: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12845: raise FTE_FREIGHT_PRICING_UTIL.g_missing_service_type;
12846: END IF;
12847:
12848: i := p_sched_id_tab.FIRST;
12849: LOOP
12867: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12868: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12869: x_sum_sched_price_tab(i) := -1;
12870: x_sum_sched_price_curr_tab(i) := 'NULL';
12871: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'sched: '||p_sched_id_tab(i)||' shipment_pricing ');
12872: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12873: END IF;
12874: ELSE
12875: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for sched : '||p_sched_id_tab(i));
12871: FTE_FREIGHT_PRICING_UTIL.set_location(p_loc => 'sched: '||p_sched_id_tab(i)||' shipment_pricing ');
12872: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12873: END IF;
12874: ELSE
12875: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'Shipment pricing successful for sched : '||p_sched_id_tab(i));
12876:
12877: x_sum_sched_price_tab(i) := nvl(l_sched_summary,0);
12878: x_sum_sched_price_curr_tab(i) := l_sched_summary_uom;
12879:
12886: END IF;
12887:
12888: x_request_id := l_request_id;
12889:
12890: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12891:
12892: EXCEPTION
12893: WHEN g_finished_warning THEN
12894: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12891:
12892: EXCEPTION
12893: WHEN g_finished_warning THEN
12894: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12896: WHEN FND_API.G_EXC_ERROR THEN
12897: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12898: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12894: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12896: WHEN FND_API.G_EXC_ERROR THEN
12897: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12898: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12895: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12896: WHEN FND_API.G_EXC_ERROR THEN
12897: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12898: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12896: WHEN FND_API.G_EXC_ERROR THEN
12897: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12898: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12898: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12899: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12900: WHEN FTE_FREIGHT_PRICING_UTIL.g_delivery_not_found THEN
12901: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12902: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_delivery_not_found');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12903: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12904: WHEN FTE_FREIGHT_PRICING_UTIL.g_flatten_shipment_failed THEN
12905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12906: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_flatten_shipment_failed');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12907: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12908: WHEN FTE_FREIGHT_PRICING_UTIL.g_empty_delivery THEN
12909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12910: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_empty_delivery');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12918: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12911: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12918: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12919: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12912: WHEN FTE_FREIGHT_PRICING_UTIL.g_missing_service_type THEN
12913: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12918: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12919: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12920: WHEN others THEN
12914: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_missing_service_type');
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12918: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12919: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12920: WHEN others THEN
12921: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12915: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12916: WHEN FTE_FREIGHT_PRICING_UTIL.g_shipment_pricing_failed THEN
12917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12918: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_shipment_pricing_failed');
12919: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12920: WHEN others THEN
12921: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12923: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12919: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12920: WHEN others THEN
12921: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12923: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12925: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12926:
12927: END shipment_price_compare_pvt;
12920: WHEN others THEN
12921: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12923: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12925: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12926:
12927: END shipment_price_compare_pvt;
12928:
12921: ROLLBACK TO SHIPMENT_PRICE_COMPARE_PVT;
12922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12923: FTE_FREIGHT_PRICING_UTIL.set_exception('shipment_price_compare_pvt',FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
12924: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
12925: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare_pvt');
12926:
12927: END shipment_price_compare_pvt;
12928:
12929:
12937: x_msg_data OUT NOCOPY VARCHAR2 )
12938: IS
12939:
12940: l_return_status VARCHAR2(1);
12941: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
12942:
12943: CURSOR c_delivery_details(c_delivery_id IN NUMBER) IS
12944: SELECT wdd.delivery_detail_id,
12945: wdd.gross_weight ,
12964: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12965:
12966: -- Initialize message list if p_init_msg_list is set to TRUE.
12967:
12968: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
12969: x_return_status => l_return_status );
12970:
12971: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12972: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12973: x_return_status := l_return_status;
12974: RETURN;
12975: END IF;
12976: ELSE
12977: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12978: END IF;
12979:
12980:
12981: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12977: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
12978: END IF;
12979:
12980:
12981: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12982: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'FPA_total_commodity_weight','start');
12983:
12984: OPEN c_delivery_wt_uom(p_delivery_id);
12985: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12978: END IF;
12979:
12980:
12981: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
12982: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'FPA_total_commodity_weight','start');
12983:
12984: OPEN c_delivery_wt_uom(p_delivery_id);
12985: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12986: CLOSE c_delivery_wt_uom;
12985: FETCH c_delivery_wt_uom INTO l_target_wt_uom;
12986: CLOSE c_delivery_wt_uom;
12987:
12988: IF (l_target_wt_uom IS NULL) THEN
12989: raise fte_freight_pricing_util.g_weight_uom_not_found;
12990: END IF;
12991:
12992: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_target_wt_uom='||l_target_wt_uom);
12993:
12988: IF (l_target_wt_uom IS NULL) THEN
12989: raise fte_freight_pricing_util.g_weight_uom_not_found;
12990: END IF;
12991:
12992: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_target_wt_uom='||l_target_wt_uom);
12993:
12994: l_cum_wt :=0;
12995:
12996: FOR c_det_rec IN c_delivery_details(p_delivery_id) LOOP
12995:
12996: FOR c_det_rec IN c_delivery_details(p_delivery_id) LOOP
12997:
12998: IF (c_det_rec.gross_weight IS NULL OR c_det_rec.weight_uom_code IS NULL) THEN
12999: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13000: p_exc =>'g_tl_dtl_no_gross_weight',
13001: p_msg_name =>'FTE_INVALID_DEL_DET_WT',
13002: p_delivery_detail_id =>c_det_rec.delivery_detail_id);
13003: raise fte_freight_pricing_util.g_tl_dtl_no_gross_weight;
12999: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13000: p_exc =>'g_tl_dtl_no_gross_weight',
13001: p_msg_name =>'FTE_INVALID_DEL_DET_WT',
13002: p_delivery_detail_id =>c_det_rec.delivery_detail_id);
13003: raise fte_freight_pricing_util.g_tl_dtl_no_gross_weight;
13004: END IF;
13005:
13006: IF (c_det_rec.weight_uom_code <> l_target_wt_uom) THEN
13007: l_temp_wt := WSH_WV_UTILS.convert_uom(c_det_rec.weight_uom_code,
13015: END IF;
13016:
13017: END LOOP;
13018:
13019: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_cum_wt='||l_cum_wt);
13020: x_total_comm_wt := l_cum_wt;
13021: x_wt_uom := l_target_wt_uom;
13022:
13023: -- Standard call to get message count and if count is 1,
13025: FND_MSG_PUB.Count_And_Get (
13026: p_count => x_msg_count,
13027: p_data => x_msg_data );
13028:
13029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13030: FTE_FREIGHT_PRICING_UTIL.close_logs;
13031:
13032: EXCEPTION
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13026: p_count => x_msg_count,
13027: p_data => x_msg_data );
13028:
13029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13030: FTE_FREIGHT_PRICING_UTIL.close_logs;
13031:
13032: EXCEPTION
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13029: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13030: FTE_FREIGHT_PRICING_UTIL.close_logs;
13031:
13032: EXCEPTION
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13031:
13032: EXCEPTION
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13038: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13039: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13032: EXCEPTION
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13038: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13039: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13040: p_exc =>'g_tl_dtl_no_gross_weight',
13033: WHEN FTE_FREIGHT_PRICING_UTIL.g_tl_dtl_no_gross_weight THEN
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13038: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13039: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13040: p_exc =>'g_tl_dtl_no_gross_weight',
13041: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13034: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13038: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13039: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13040: p_exc =>'g_tl_dtl_no_gross_weight',
13041: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13042: p_delivery_id =>p_delivery_id);
13035: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_tl_dtl_no_gross_weight');
13036: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13037: FTE_FREIGHT_PRICING_UTIL.close_logs;
13038: WHEN FTE_FREIGHT_PRICING_UTIL.g_weight_uom_not_found THEN
13039: FTE_FREIGHT_PRICING_UTIL.setmsg (p_api =>'FPA_total_commodity_weight',
13040: p_exc =>'g_tl_dtl_no_gross_weight',
13041: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13042: p_delivery_id =>p_delivery_id);
13043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13040: p_exc =>'g_tl_dtl_no_gross_weight',
13041: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13042: p_delivery_id =>p_delivery_id);
13043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13044: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13045: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13046: FTE_FREIGHT_PRICING_UTIL.close_logs;
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13041: p_msg_name =>'FTE_INVALID_DEL_WT_UOM',
13042: p_delivery_id =>p_delivery_id);
13043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13044: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13045: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13046: FTE_FREIGHT_PRICING_UTIL.close_logs;
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13042: p_delivery_id =>p_delivery_id);
13043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13044: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_weight_uom_not_found');
13045: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13046: FTE_FREIGHT_PRICING_UTIL.close_logs;
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13050: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13045: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13046: FTE_FREIGHT_PRICING_UTIL.close_logs;
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13050: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13052: FTE_FREIGHT_PRICING_UTIL.close_logs;
13053: END FPA_total_commodity_weight;
13046: FTE_FREIGHT_PRICING_UTIL.close_logs;
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13050: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13052: FTE_FREIGHT_PRICING_UTIL.close_logs;
13053: END FPA_total_commodity_weight;
13054:
13047: WHEN others THEN
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13050: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13052: FTE_FREIGHT_PRICING_UTIL.close_logs;
13053: END FPA_total_commodity_weight;
13054:
13055:
13048: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13049: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('FPA_total_commodity_weight','g_others');
13050: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13051: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'FPA_total_commodity_weight');
13052: FTE_FREIGHT_PRICING_UTIL.close_logs;
13053: END FPA_total_commodity_weight;
13054:
13055:
13056:
13130: l_tl_ref dbms_utility.number_array;
13131: l_lane_xref dbms_utility.number_array;
13132: l_sched_xref dbms_utility.number_array;
13133:
13134: l_log_level NUMBER := FTE_FREIGHT_PRICING_UTIL.G_LOG;
13135:
13136: l_ret_stat VARCHAR2(1); -- used only for returning log file name
13137:
13138: PRAGMA AUTONOMOUS_TRANSACTION;
13148:
13149:
13150:
13151:
13152: FTE_FREIGHT_PRICING_UTIL.initialize_logging( p_init_msg_list => p_init_msg_list,
13153: x_return_status => l_return_status );
13154:
13155: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13156: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
13157: x_return_status := l_return_status;
13158: RETURN;
13159: END IF;
13160: ELSE
13161: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Initialize Logging successful ');
13162: END IF;
13163:
13164: END IF;
13165:
13162: END IF;
13163:
13164: END IF;
13165:
13166: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13167: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13168:
13169: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13170:
13163:
13164: END IF;
13165:
13166: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13167: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13168:
13169: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13170:
13171:
13165:
13166: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
13167: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'shipment_price_compare','start');
13168:
13169: FTE_FREIGHT_PRICING_UTIL.print_msg(p_msg => 'p_delivery_id='||p_delivery_id);
13170:
13171:
13172: l_warn_flag := 'N';
13173:
13244: x_return_status => l_return_status );
13245:
13246: x_request_id := l_request_id;
13247:
13248: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
13249:
13250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13251: raise fte_freight_pricing_util.g_unexp_err;
13252: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13247:
13248: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_return_status='||l_return_status);
13249:
13250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13251: raise fte_freight_pricing_util.g_unexp_err;
13252: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13253: --raise fte_freight_pricing_util.g_ship_prc_compare_fail;
13254: --In case of expected errors in shipment_price_compare_pvt
13255: ---Allow this procedure to continue to TL if necessary
13249:
13250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
13251: raise fte_freight_pricing_util.g_unexp_err;
13252: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
13253: --raise fte_freight_pricing_util.g_ship_prc_compare_fail;
13254: --In case of expected errors in shipment_price_compare_pvt
13255: ---Allow this procedure to continue to TL if necessary
13256: x_return_status := l_return_status;
13257: l_warn_flag := 'Y';
13284: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13285: THEN
13286: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13287: THEN
13288: raise FTE_FREIGHT_PRICING_UTIL.g_unexp_err;
13289: END IF;
13290: END IF;
13291:
13292:
13292:
13293:
13294:
13295:
13296: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'>>6');
13297:
13298: FTE_TL_RATING.TL_DELIVERY_PRICE_COMPARE(
13299: p_wsh_delivery_id=>p_delivery_id,
13300: p_lane_rows=>l_exploded_lane_rows,
13314: -- For now only unexpected errors returned cause this procedure to fail
13315: -- However, we can go more granular, and fail even on certain
13316: -- errors caused in the child procedures
13317:
13318: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'>>l_return_status='||l_return_status);
13319: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13320: THEN
13321: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13322: THEN
13319: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
13320: THEN
13321: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
13322: THEN
13323: raise FTE_FREIGHT_PRICING_UTIL.g_unexp_err;
13324: ELSE
13325: --In case of expected errors
13326: ---Allow this procedure to continue if necessary
13327: l_warn_flag := 'Y';
13326: ---Allow this procedure to continue if necessary
13327: l_warn_flag := 'Y';
13328: END IF;
13329: END IF;
13330: 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);
13331:
13332:
13333: END IF;
13334:
13348: -- initialize output nested tables
13349: IF (p_lane_sched_id_tab.COUNT > 0 )
13350: THEN
13351:
13352: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Init op tables');
13353:
13354: x_sum_rate_tab := FTE_ID_TAB_TYPE(0);
13355: x_sum_rate_curr_tab := FTE_CODE_TAB_TYPE('NULL');
13356: -- init all elements the tables with 0 and 'NULL' resp.
13370: x_vehicle_type_tab.EXTEND(l_output_count-1,1);
13371: x_mode_tab.EXTEND(l_output_count-1,1);
13372: x_service_type_tab.EXTEND(l_output_count-1,1);
13373:
13374: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Init op tables End');
13375:
13376: END IF;
13377:
13378:
13385: l_ref:=l_exploded_ref_rows.FIRST;
13386:
13387: WHILE(k<=l_output_count)
13388: LOOP
13389: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Op index:'||k);
13390:
13391: IF (p_mode_tab(i) <> 'TRUCK' )
13392: THEN
13393: IF (p_lane_sched_tab(i) = 'L')
13392: THEN
13393: IF (p_lane_sched_tab(i) = 'L')
13394: THEN
13395:
13396: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Lane:');
13397: IF ((l_sum_lane_price_tab.EXISTS(L)) AND (l_sum_lane_price_curr_tab.EXISTS(L)))
13398: THEN
13399: x_sum_rate_tab(k) := l_sum_lane_price_tab(L);
13400: x_sum_rate_curr_tab(k) := l_sum_lane_price_curr_tab(L);
13409:
13410: L := L + 1;
13411: k:=k+1;
13412:
13413: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Lane ENd:');
13414:
13415: ELSIF (p_lane_sched_tab(i) = 'S')
13416: THEN
13417:
13414:
13415: ELSIF (p_lane_sched_tab(i) = 'S')
13416: THEN
13417:
13418: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Schedule:');
13419:
13420: IF ((l_sum_sched_price_tab.EXISTS(S)) AND (l_sum_sched_price_curr_tab.EXISTS(S)))
13421: THEN
13422:
13434:
13435: S := S + 1;
13436: k:=k+1;
13437:
13438: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Non TL Schedule End:');
13439:
13440: END IF;
13441:
13442: ELSIF (p_mode_tab(i) = 'TRUCK' )
13441:
13442: ELSIF (p_mode_tab(i) = 'TRUCK' )
13443: THEN
13444:
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13448: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13449:
13442: ELSIF (p_mode_tab(i) = 'TRUCK' )
13443: THEN
13444:
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13448: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13449:
13450: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13443: THEN
13444:
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13448: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13449:
13450: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13451: LOOP
13444:
13445: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL :');
13446: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_ref'||l_ref);
13447: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'j'||j);
13448: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows count'||l_exploded_ref_rows.COUNT);
13449:
13450: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13451: LOOP
13452:
13449:
13450: WHILE(l_exploded_ref_rows.EXISTS(l_ref) AND l_exploded_ref_rows(l_ref)=j)
13451: LOOP
13452:
13453: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13454:
13455: --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));
13456:
13457: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13451: LOOP
13452:
13453: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13454:
13455: --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));
13456:
13457: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13458: x_sum_rate_tab(k):=-1;
13459: IF (l_tl_lane_sched_sum_rows.EXISTS(l_ref))
13453: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'l_exploded_ref_rows(l_ref)'||l_exploded_ref_rows(l_ref));
13454:
13455: --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));
13456:
13457: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 1:');
13458: x_sum_rate_tab(k):=-1;
13459: IF (l_tl_lane_sched_sum_rows.EXISTS(l_ref))
13460: THEN
13461: x_sum_rate_tab(k) := nvl(l_tl_lane_sched_sum_rows(l_ref),-1);
13460: THEN
13461: x_sum_rate_tab(k) := nvl(l_tl_lane_sched_sum_rows(l_ref),-1);
13462: END IF;
13463:
13464: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 2:');
13465: x_sum_rate_curr_tab(k):='NULL';
13466: IF(l_tl_lane_sched_curr_rows.EXISTS(l_ref))
13467: THEN
13468: x_sum_rate_curr_tab(k) := nvl(l_tl_lane_sched_curr_rows(l_ref),'NULL');
13466: IF(l_tl_lane_sched_curr_rows.EXISTS(l_ref))
13467: THEN
13468: x_sum_rate_curr_tab(k) := nvl(l_tl_lane_sched_curr_rows(l_ref),'NULL');
13469: END IF;
13470: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 3:');
13471:
13472: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13473: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13474: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13469: END IF;
13470: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 3:');
13471:
13472: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13473: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13474: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13475: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 5:');
13476: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13477: THEN
13471:
13472: x_lane_sched_id_tab(k):=p_lane_sched_id_tab(i);
13473: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 4:');
13474: x_lane_sched_tab(k):=p_lane_sched_tab(i);
13475: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 5:');
13476: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13477: THEN
13478: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13479: END IF;
13476: IF (l_exploded_vehicle_rows.EXISTS(l_ref))
13477: THEN
13478: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13479: END IF;
13480: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13481: x_mode_tab(k):=p_mode_tab(i);
13482: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13483: x_service_type_tab(k):=p_service_type_tab(i);
13484: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13478: x_vehicle_type_tab(k):=l_exploded_vehicle_rows(l_ref);
13479: END IF;
13480: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13481: x_mode_tab(k):=p_mode_tab(i);
13482: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13483: x_service_type_tab(k):=p_service_type_tab(i);
13484: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13485:
13486: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13480: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 6:');
13481: x_mode_tab(k):=p_mode_tab(i);
13482: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13483: x_service_type_tab(k):=p_service_type_tab(i);
13484: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13485:
13486: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13487: --' '||l_ref||'-'||i||'-'||l_lane_sched_sum_rows(l_ref)||'-'||l_lane_sched_curr_rows(l_ref));
13488:
13482: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 7:');
13483: x_service_type_tab(k):=p_service_type_tab(i);
13484: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL 8:');
13485:
13486: --FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13487: --' '||l_ref||'-'||i||'-'||l_lane_sched_sum_rows(l_ref)||'-'||l_lane_sched_curr_rows(l_ref));
13488:
13489:
13490: k:=k+1;
13493: END LOOP;
13494:
13495: j := j + 1;
13496:
13497: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'TL End:');
13498:
13499: END IF;
13500:
13501:
13506:
13507: IF (x_sum_rate_tab.COUNT > 0) THEN
13508: FOR i IN x_sum_rate_tab.FIRST .. x_sum_rate_tab.LAST
13509: LOOP
13510: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,
13511: ' '||x_lane_sched_id_tab(i)||' '||x_lane_sched_tab(i)||' '||x_mode_tab(i)||' '||x_service_type_tab(i)||' '
13512: ||x_vehicle_type_tab(i)||' '||x_sum_rate_tab(i)||' '||x_sum_rate_curr_tab(i) );
13513: END LOOP;
13514: END IF;
13513: END LOOP;
13514: END IF;
13515:
13516:
13517: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'warn flag'||l_warn_flag);
13518:
13519: IF (l_warn_flag = 'Y' ) THEN
13520: -- bug 2762257
13521: FTE_FREIGHT_PRICING_UTIL.set_price_comp_exit_warn;
13517: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'warn flag'||l_warn_flag);
13518:
13519: IF (l_warn_flag = 'Y' ) THEN
13520: -- bug 2762257
13521: FTE_FREIGHT_PRICING_UTIL.set_price_comp_exit_warn;
13522: --Added to ensure return status is warning if l_warn_flag=Y
13523: x_return_status :=WSH_UTIL_CORE.G_RET_STS_WARNING;
13524: END IF;
13525:
13522: --Added to ensure return status is warning if l_warn_flag=Y
13523: x_return_status :=WSH_UTIL_CORE.G_RET_STS_WARNING;
13524: END IF;
13525:
13526: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.2');
13527: x_request_id := l_request_id;
13528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13529:
13530: COMMIT; -- Commit Autonomous transaction
13524: END IF;
13525:
13526: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.2');
13527: x_request_id := l_request_id;
13528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13529:
13530: COMMIT; -- Commit Autonomous transaction
13531:
13532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13528: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.3');
13529:
13530: COMMIT; -- Commit Autonomous transaction
13531:
13532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13534: IF(p_init_prc_log='Y')
13535: THEN
13536: FTE_FREIGHT_PRICING_UTIL.close_logs;
13529:
13530: COMMIT; -- Commit Autonomous transaction
13531:
13532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13534: IF(p_init_prc_log='Y')
13535: THEN
13536: FTE_FREIGHT_PRICING_UTIL.close_logs;
13537: END IF;
13532: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'DBg.4');
13533: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13534: IF(p_init_prc_log='Y')
13535: THEN
13536: FTE_FREIGHT_PRICING_UTIL.close_logs;
13537: END IF;
13538:
13539:
13540:
13542: EXCEPTION
13543:
13544:
13545:
13546: WHEN FTE_FREIGHT_PRICING_UTIL.g_ship_prc_compare_fail THEN
13547: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13549: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13550: IF(p_init_prc_log='Y')
13545:
13546: WHEN FTE_FREIGHT_PRICING_UTIL.g_ship_prc_compare_fail THEN
13547: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13549: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13550: IF(p_init_prc_log='Y')
13551: THEN
13552: FTE_FREIGHT_PRICING_UTIL.close_logs;
13553: END IF;
13548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13549: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13550: IF(p_init_prc_log='Y')
13551: THEN
13552: FTE_FREIGHT_PRICING_UTIL.close_logs;
13553: END IF;
13554:
13555:
13556: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13552: FTE_FREIGHT_PRICING_UTIL.close_logs;
13553: END IF;
13554:
13555:
13556: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13557: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13559: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13555:
13556: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13557: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13559: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13561: IF(p_init_prc_log='Y')
13562: THEN
13563: FTE_FREIGHT_PRICING_UTIL.close_logs;
13556: WHEN FTE_FREIGHT_PRICING_UTIL.g_unexp_err THEN
13557: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13558: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13559: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13561: IF(p_init_prc_log='Y')
13562: THEN
13563: FTE_FREIGHT_PRICING_UTIL.close_logs;
13564: END IF;
13559: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13560: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13561: IF(p_init_prc_log='Y')
13562: THEN
13563: FTE_FREIGHT_PRICING_UTIL.close_logs;
13564: END IF;
13565:
13566: WHEN others THEN
13567: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13565:
13566: WHEN others THEN
13567: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13569: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13572: IF(p_init_prc_log='Y')
13573: THEN
13566: WHEN others THEN
13567: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13569: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13572: IF(p_init_prc_log='Y')
13573: THEN
13574: FTE_FREIGHT_PRICING_UTIL.close_logs;
13567: ROLLBACK; -- TO SHIPMENT_PRICE_COMPARE;
13568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13569: FTE_FREIGHT_PRICING_UTIL.set_exit_exception('shipment_price_compare','g_others');
13570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13572: IF(p_init_prc_log='Y')
13573: THEN
13574: FTE_FREIGHT_PRICING_UTIL.close_logs;
13575: END IF;
13570: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
13571: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,'shipment_price_compare');
13572: IF(p_init_prc_log='Y')
13573: THEN
13574: FTE_FREIGHT_PRICING_UTIL.close_logs;
13575: END IF;
13576:
13577:
13578: END shipment_price_compare;