[Home] [Help]
1352: --Multiplies all the charges by the discount factor
1353:
1354: PROCEDURE Scale_Trip_Charges(
1355: p_discount IN NUMBER,
1356: x_trip_charges_rec IN OUT NOCOPY FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
1357: x_return_status OUT NOCOPY VARCHAR2) IS
1358:
1359: l_return_status VARCHAR2(1);
1360:
1405: --Multiplies all the stop charges by the discount factor
1406:
1407: PROCEDURE Scale_Stop_Charges(
1408: p_discount IN NUMBER,
1409: x_stop_charges_rec IN OUT NOCOPY FTE_TL_CACHE.TL_trip_stop_OUTPUT_REC_TYPE,
1410: x_return_status OUT NOCOPY VARCHAR2) IS
1411:
1412: l_return_status VARCHAR2(1);
1413:
1459: --Determines the fraction of the stop level loading(carrier,ast,fac) charge to
1460: --be allocated to a delivery leg
1461:
1462: PROCEDURE Get_Loading_Fraction(
1463: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1464: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1465: p_basis IN NUMBER,
1466: p_alloc_params TL_allocation_params_rec_type,
1467: x_fraction IN OUT NOCOPY NUMBER,
1460: --be allocated to a delivery leg
1461:
1462: PROCEDURE Get_Loading_Fraction(
1463: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1464: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1465: p_basis IN NUMBER,
1466: p_alloc_params TL_allocation_params_rec_type,
1467: x_fraction IN OUT NOCOPY NUMBER,
1468: x_return_status OUT NOCOPY Varchar2) IS
1555: --be allocated to a delivery leg. As per Step 1 and Step 3 of the Cost
1556: --allocation algorithm
1557:
1558: PROCEDURE Get_Unloading_Fraction(
1559: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1560: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1561: p_basis IN NUMBER,
1562: p_alloc_params TL_allocation_params_rec_type,
1563: x_fraction IN OUT NOCOPY NUMBER,
1556: --allocation algorithm
1557:
1558: PROCEDURE Get_Unloading_Fraction(
1559: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1560: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1561: p_basis IN NUMBER,
1562: p_alloc_params TL_allocation_params_rec_type,
1563: x_fraction IN OUT NOCOPY NUMBER,
1564: x_return_status OUT NOCOPY Varchar2) IS
1654: --allocation algorithm
1655: --4045314
1656:
1657: PROCEDURE Get_Total_Stop_Fraction(
1658: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1659: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1660: p_basis IN NUMBER,
1661: p_alloc_params TL_allocation_params_rec_type,
1662: x_fraction IN OUT NOCOPY NUMBER,
1655: --4045314
1656:
1657: PROCEDURE Get_Total_Stop_Fraction(
1658: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1659: p_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1660: p_basis IN NUMBER,
1661: p_alloc_params TL_allocation_params_rec_type,
1662: x_fraction IN OUT NOCOPY NUMBER,
1663: x_return_status OUT NOCOPY Varchar2) IS
1752: --The hashes hold index into the stop cache and the stop charges table
1753:
1754: PROCEDURE Create_Stop_Hashes(
1755: p_trip_index IN NUMBER,
1756: p_stop_charges_tab IN FTE_TL_CACHE.TL_trip_stop_output_tab_type,
1757: x_stop_input_hash IN OUT NOCOPY DBMS_UTILITY.NUMBER_ARRAY,
1758: x_stop_output_hash IN OUT NOCOPY DBMS_UTILITY.NUMBER_ARRAY,
1759: x_return_status OUT NOCOPY Varchar2) IS
1760:
1775: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1776:
1777: --Create hash to look up stop charges from stop id
1778: l_stop_index_first:=
1779: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
1780: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
1781: THEN
1782:
1783: l_stop_index_last:=
1776:
1777: --Create hash to look up stop charges from stop id
1778: l_stop_index_first:=
1779: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
1780: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
1781: THEN
1782:
1783: l_stop_index_last:=
1784: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference;
1780: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
1781: THEN
1782:
1783: l_stop_index_last:=
1784: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference;
1785:
1786: ELSE
1787:
1788: l_stop_index_last:=FTE_TL_CACHE.g_tl_trip_stop_rows.LAST+1;
1784: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference;
1785:
1786: ELSE
1787:
1788: l_stop_index_last:=FTE_TL_CACHE.g_tl_trip_stop_rows.LAST+1;
1789:
1790: END IF;
1791:
1792: i:=p_stop_charges_tab.FIRST;
1802: --Create hash to look up cached stops from stop id
1803:
1804: i:=l_stop_index_first;
1805:
1806: WHILE(( FTE_TL_CACHE.g_tl_trip_stop_rows.EXISTS(i)) AND
1807: (FTE_TL_CACHE.g_tl_trip_stop_rows(i).trip_id=
1808: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
1810: x_stop_input_hash(FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id):=
1803:
1804: i:=l_stop_index_first;
1805:
1806: WHILE(( FTE_TL_CACHE.g_tl_trip_stop_rows.EXISTS(i)) AND
1807: (FTE_TL_CACHE.g_tl_trip_stop_rows(i).trip_id=
1808: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
1810: x_stop_input_hash(FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id):=
1811: i;
1804: i:=l_stop_index_first;
1805:
1806: WHILE(( FTE_TL_CACHE.g_tl_trip_stop_rows.EXISTS(i)) AND
1807: (FTE_TL_CACHE.g_tl_trip_stop_rows(i).trip_id=
1808: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
1810: x_stop_input_hash(FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id):=
1811: i;
1812:
1806: WHILE(( FTE_TL_CACHE.g_tl_trip_stop_rows.EXISTS(i)) AND
1807: (FTE_TL_CACHE.g_tl_trip_stop_rows(i).trip_id=
1808: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
1810: x_stop_input_hash(FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id):=
1811: i;
1812:
1813: i:=i+1;
1814: END LOOP;
1832: --As per Step 3 of the cost allocation algorithm
1833:
1834: PROCEDURE Assign_StopOff_Charge(
1835: p_stopoff_charge IN NUMBER,p_alloc_params IN TL_allocation_params_rec_type,
1836: p_pickup_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1837: p_dropoff_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1838: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1839: x_dleg_alloc_rec IN OUT NOCOPY TL_dleg_alloc_rec_type,
1840: x_return_status OUT NOCOPY Varchar2) IS
1833:
1834: PROCEDURE Assign_StopOff_Charge(
1835: p_stopoff_charge IN NUMBER,p_alloc_params IN TL_allocation_params_rec_type,
1836: p_pickup_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1837: p_dropoff_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1838: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1839: x_dleg_alloc_rec IN OUT NOCOPY TL_dleg_alloc_rec_type,
1840: x_return_status OUT NOCOPY Varchar2) IS
1841:
1834: PROCEDURE Assign_StopOff_Charge(
1835: p_stopoff_charge IN NUMBER,p_alloc_params IN TL_allocation_params_rec_type,
1836: p_pickup_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1837: p_dropoff_stop_rec IN FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE,
1838: p_dleg_rec IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1839: x_dleg_alloc_rec IN OUT NOCOPY TL_dleg_alloc_rec_type,
1840: x_return_status OUT NOCOPY Varchar2) IS
1841:
1842: l_return_status VARCHAR2(1);
1909: --Step 2 of CA algorithm
1910:
1911: PROCEDURE Get_StopOff_Chrg_Per_Stop(
1912: p_stopoff_charge IN NUMBER,
1913: p_stop_charges_tab IN FTE_TL_CACHE.TL_trip_stop_output_tab_type,
1914: p_alloc_params IN TL_allocation_params_rec_type,
1915: p_stop_input_hash IN DBMS_UTILITY.NUMBER_ARRAY,
1916: p_stop_output_hash IN DBMS_UTILITY.NUMBER_ARRAY,
1917: x_stopoff_charge IN OUT NOCOPY NUMBER,
1945:
1946: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' cache index'||l_cache_index);
1947:
1948: IF ((p_alloc_params.tl_stop_alloc_method=FTE_RTG_GLOBALS.G_CA_PICKUP_STOP) AND
1949: (FTE_TL_CACHE.g_tl_trip_stop_rows(l_cache_index).pickup_weight>
1950: 0))
1951: THEN
1952:
1953: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Pickup');
1954: l_stop_count:=l_stop_count+1;
1955:
1956: ELSIF((p_alloc_params.tl_stop_alloc_method=FTE_RTG_GLOBALS.G_CA_DELIVERY_STOP)
1957: AND
1958: (FTE_TL_CACHE.g_tl_trip_stop_rows(l_cache_index).dropoff_weight>
1959: 0))
1960: THEN
1961: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,' Dropoff');
1962: l_stop_count:=l_stop_count+1;
1993: --Calculates the trip level carrier handling charge for a given delivery leg
1994:
1995: PROCEDURE Allocate_Handling_Charges(
1996: p_trip_index IN NUMBER,
1997: p_dleg_row IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1998: p_trip_rec_charges IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
1999: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
2000: x_handling_chrg IN OUT NOCOPY NUMBER,
2001: x_return_status OUT NOCOPY Varchar2) IS
1994:
1995: PROCEDURE Allocate_Handling_Charges(
1996: p_trip_index IN NUMBER,
1997: p_dleg_row IN FTE_TL_CACHE.TL_delivery_leg_rec_type,
1998: p_trip_rec_charges IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
1999: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
2000: x_handling_chrg IN OUT NOCOPY NUMBER,
2001: x_return_status OUT NOCOPY Varchar2) IS
2002:
2016: l_factor:=0;
2017:
2018: IF ((p_trip_rec_charges.handling_chrg_basis =
2019: FTE_RTG_GLOBALS.G_WEIGHT_BASIS )
2020: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight>0))
2021: THEN
2022: l_factor:=p_dleg_row.weight/
2023: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight;
2024:
2019: FTE_RTG_GLOBALS.G_WEIGHT_BASIS )
2020: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight>0))
2021: THEN
2022: l_factor:=p_dleg_row.weight/
2023: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight;
2024:
2025: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2026: FTE_RTG_GLOBALS.G_VOLUME_BASIS)
2027: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume>0))
2023: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight;
2024:
2025: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2026: FTE_RTG_GLOBALS.G_VOLUME_BASIS)
2027: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume>0))
2028: THEN
2029: l_factor:=p_dleg_row.volume/
2030: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume;
2031:
2026: FTE_RTG_GLOBALS.G_VOLUME_BASIS)
2027: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume>0))
2028: THEN
2029: l_factor:=p_dleg_row.volume/
2030: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume;
2031:
2032:
2033: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2034: FTE_RTG_GLOBALS.G_CONTAINER_BASIS)
2031:
2032:
2033: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2034: FTE_RTG_GLOBALS.G_CONTAINER_BASIS)
2035: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_containers>0))
2036: THEN
2037: l_factor:=p_dleg_row.containers/
2038: FTE_TL_CACHE.g_tl_trip_rows(
2039: p_trip_index).number_of_containers;
2034: FTE_RTG_GLOBALS.G_CONTAINER_BASIS)
2035: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_containers>0))
2036: THEN
2037: l_factor:=p_dleg_row.containers/
2038: FTE_TL_CACHE.g_tl_trip_rows(
2039: p_trip_index).number_of_containers;
2040:
2041: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2042: FTE_RTG_GLOBALS.G_PALLET_BASIS)
2039: p_trip_index).number_of_containers;
2040:
2041: ELSIF((p_trip_rec_charges.handling_chrg_basis =
2042: FTE_RTG_GLOBALS.G_PALLET_BASIS)
2043: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_pallets>0))
2044: THEN
2045: l_factor:=p_dleg_row.pallets/
2046: FTE_TL_CACHE.g_tl_trip_rows(
2047: p_trip_index).number_of_pallets;
2042: FTE_RTG_GLOBALS.G_PALLET_BASIS)
2043: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_pallets>0))
2044: THEN
2045: l_factor:=p_dleg_row.pallets/
2046: FTE_TL_CACHE.g_tl_trip_rows(
2047: p_trip_index).number_of_pallets;
2048:
2049: ELSIF (p_trip_rec_charges.handling_chrg_basis = FTE_RTG_GLOBALS.G_FLAT_BASIS)
2050: THEN
2049: ELSIF (p_trip_rec_charges.handling_chrg_basis = FTE_RTG_GLOBALS.G_FLAT_BASIS)
2050: THEN
2051: IF ((p_cost_allocation_parameters.principal_alloc_basis =
2052: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
2053: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight>0))
2054: THEN
2055: l_factor:=p_dleg_row.weight/
2056: FTE_TL_CACHE.g_tl_trip_rows(
2057: p_trip_index).total_weight;
2052: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
2053: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_weight>0))
2054: THEN
2055: l_factor:=p_dleg_row.weight/
2056: FTE_TL_CACHE.g_tl_trip_rows(
2057: p_trip_index).total_weight;
2058:
2059: ELSIF((p_cost_allocation_parameters.principal_alloc_basis =
2060: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
2057: p_trip_index).total_weight;
2058:
2059: ELSIF((p_cost_allocation_parameters.principal_alloc_basis =
2060: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
2061: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume>0))
2062: THEN
2063: l_factor:=p_dleg_row.volume/
2064: FTE_TL_CACHE.g_tl_trip_rows(
2065: p_trip_index).total_volume;
2060: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
2061: AND(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).total_volume>0))
2062: THEN
2063: l_factor:=p_dleg_row.volume/
2064: FTE_TL_CACHE.g_tl_trip_rows(
2065: p_trip_index).total_volume;
2066: ELSE
2067: l_factor:=0;
2068: END IF;
2094: --to all the dlegs . As per Step 1,2,3 of the CA algorithm
2095:
2096: PROCEDURE Alloc_Loading_Stopoff_To_Dlegs(
2097: p_trip_index IN NUMBER,
2098: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
2099: p_stop_charges_tab IN
2100: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
2101: p_stop_input_hash IN DBMS_UTILITY.NUMBER_ARRAY,
2102: p_stop_output_hash IN DBMS_UTILITY.NUMBER_ARRAY,
2096: PROCEDURE Alloc_Loading_Stopoff_To_Dlegs(
2097: p_trip_index IN NUMBER,
2098: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
2099: p_stop_charges_tab IN
2100: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
2101: p_stop_input_hash IN DBMS_UTILITY.NUMBER_ARRAY,
2102: p_stop_output_hash IN DBMS_UTILITY.NUMBER_ARRAY,
2103: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
2104: x_dleg_alloc_tab IN OUT NOCOPY TL_dleg_alloc_TAB_TYPE ,
2111:
2112:
2113: l_stop_level_charge NUMBER;
2114:
2115: --Index to FTE_TL_CACHE.g_tl_trip_stop_rows/stop input hash
2116: --Used for pickup/loading
2117:
2118: l_pickup_stop_ip_index NUMBER;
2119:
2121: --Used for pickup/loading
2122:
2123: l_pickup_stop_op_index NUMBER;
2124:
2125: --Index to FTE_TL_CACHE.g_tl_trip_stop_rows/stop input hash
2126: --Used for dropoff/unloading
2127:
2128: l_dropoff_stop_ip_index NUMBER;
2129:
2181:
2182: --get indexes for all the dlegs,stops belonging to the trip
2183:
2184: l_dleg_index_first:=
2185: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
2186:
2187: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
2188: THEN
2189: l_dleg_index_last:=
2183:
2184: l_dleg_index_first:=
2185: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
2186:
2187: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
2188: THEN
2189: l_dleg_index_last:=
2190: FTE_TL_CACHE.g_tl_trip_rows(
2191: p_trip_index+1
2186:
2187: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
2188: THEN
2189: l_dleg_index_last:=
2190: FTE_TL_CACHE.g_tl_trip_rows(
2191: p_trip_index+1
2192: ).delivery_leg_reference;
2193:
2194:
2192: ).delivery_leg_reference;
2193:
2194:
2195: ELSE
2196: l_dleg_index_last:=FTE_TL_CACHE.g_tl_delivery_leg_rows.LAST+1;
2197:
2198: END IF;
2199:
2200: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Done Getting indices for dleg');
2200: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Done Getting indices for dleg');
2201:
2202:
2203: i:=l_dleg_index_first;
2204: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
2205: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
2206: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i< l_dleg_index_last))
2207: LOOP
2208:
2201:
2202:
2203: i:=l_dleg_index_first;
2204: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
2205: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
2206: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i< l_dleg_index_last))
2207: LOOP
2208:
2209:
2202:
2203: i:=l_dleg_index_first;
2204: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
2205: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
2206: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i< l_dleg_index_last))
2207: LOOP
2208:
2209:
2210: --Get reference to pickup/dropoff stop in input/output tables
2212:
2213: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting index for pickup op');
2214:
2215: l_pickup_stop_op_index:=
2216: p_stop_output_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(
2217: i).pickup_stop_id);
2218:
2219: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for pickup ip');
2220:
2218:
2219: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for pickup ip');
2220:
2221: l_pickup_stop_ip_index:=p_stop_input_hash(
2222: FTE_TL_CACHE.g_tl_delivery_leg_rows(
2223: i).pickup_stop_id);
2224:
2225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for dropoff op');
2226: l_dropoff_stop_op_index:=
2223: i).pickup_stop_id);
2224:
2225: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for dropoff op');
2226: l_dropoff_stop_op_index:=
2227: p_stop_output_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(
2228: i).dropoff_stop_id);
2229:
2230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for dropoff ip');
2231: l_dropoff_stop_ip_index:=
2228: i).dropoff_stop_id);
2229:
2230: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Getting indices for dropoff ip');
2231: l_dropoff_stop_ip_index:=
2232: p_stop_input_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(
2233: i).dropoff_stop_id);
2234:
2235: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Done Getting indices for Stops'||l_pickup_stop_op_index||':'||l_pickup_stop_ip_index||':'||l_dropoff_stop_op_index||':'||l_dropoff_stop_ip_index);
2236: -------LOADING Charges
2241:
2242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Got loading charges');
2243:
2244: Get_Loading_Fraction(
2245: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2246: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2247: p_basis=> p_stop_charges_tab(l_pickup_stop_op_index).loading_chrg_basis,
2248: p_alloc_params=> p_cost_allocation_parameters,
2249: x_fraction=> l_fraction,
2242: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Got loading charges');
2243:
2244: Get_Loading_Fraction(
2245: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2246: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2247: p_basis=> p_stop_charges_tab(l_pickup_stop_op_index).loading_chrg_basis,
2248: p_alloc_params=> p_cost_allocation_parameters,
2249: x_fraction=> l_fraction,
2250: x_return_status => l_return_status);
2269:
2270:
2271:
2272: Get_Loading_Fraction(
2273: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2274: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2275: p_basis=> p_stop_charges_tab(
2276: l_pickup_stop_op_index).ast_loading_chrg_basis,
2277: p_alloc_params=> p_cost_allocation_parameters,
2270:
2271:
2272: Get_Loading_Fraction(
2273: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2274: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2275: p_basis=> p_stop_charges_tab(
2276: l_pickup_stop_op_index).ast_loading_chrg_basis,
2277: p_alloc_params=> p_cost_allocation_parameters,
2278: x_fraction=> l_fraction,
2295: p_stop_charges_tab(l_pickup_stop_op_index).fac_loading_chrg;
2296:
2297:
2298: Get_Loading_Fraction(
2299: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2300: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2301: p_basis=> p_stop_charges_tab(
2302: l_pickup_stop_op_index).fac_loading_chrg_basis,
2303: p_alloc_params=> p_cost_allocation_parameters,
2296:
2297:
2298: Get_Loading_Fraction(
2299: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2300: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2301: p_basis=> p_stop_charges_tab(
2302: l_pickup_stop_op_index).fac_loading_chrg_basis,
2303: p_alloc_params=> p_cost_allocation_parameters,
2304: x_fraction=> l_fraction,
2316:
2317: l_dleg_alloc_rec.fac_loading_chrg:=
2318: l_stop_level_charge*l_fraction;
2319: l_dleg_alloc_rec.fac_loading_currency:=
2320: FTE_TL_CACHE.g_tl_trip_stop_rows(
2321: l_pickup_stop_ip_index).fac_currency;
2322:
2323: ----Facility Assisted Loading
2324:
2326: p_stop_charges_tab(
2327: l_pickup_stop_op_index).fac_ast_loading_chrg;
2328:
2329: Get_Loading_Fraction(
2330: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2331: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2332: p_basis=> p_stop_charges_tab(
2333: l_pickup_stop_op_index).fac_ast_loading_chrg_basis,
2334: p_alloc_params=> p_cost_allocation_parameters,
2327: l_pickup_stop_op_index).fac_ast_loading_chrg;
2328:
2329: Get_Loading_Fraction(
2330: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2331: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2332: p_basis=> p_stop_charges_tab(
2333: l_pickup_stop_op_index).fac_ast_loading_chrg_basis,
2334: p_alloc_params=> p_cost_allocation_parameters,
2335: x_fraction=> l_fraction,
2347: l_dleg_alloc_rec.fac_ast_loading_chrg:=
2348: l_stop_level_charge*l_fraction;
2349:
2350: l_dleg_alloc_rec.fac_loading_currency:=
2351: FTE_TL_CACHE.g_tl_trip_stop_rows(
2352: l_pickup_stop_ip_index).fac_currency;
2353:
2354:
2355: ---UNLOADING CHARGES
2358: l_stop_level_charge:=
2359: p_stop_charges_tab(l_dropoff_stop_op_index).unloading_chrg;
2360:
2361: Get_Unloading_Fraction(
2362: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2363: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2364: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index).unloading_chrg_basis,
2365: p_alloc_params=> p_cost_allocation_parameters,
2366: x_fraction=> l_fraction,
2359: p_stop_charges_tab(l_dropoff_stop_op_index).unloading_chrg;
2360:
2361: Get_Unloading_Fraction(
2362: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2363: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2364: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index).unloading_chrg_basis,
2365: p_alloc_params=> p_cost_allocation_parameters,
2366: x_fraction=> l_fraction,
2367: x_return_status => l_return_status);
2385: p_stop_charges_tab(l_dropoff_stop_op_index).ast_unloading_chrg;
2386:
2387:
2388: Get_Unloading_Fraction(
2389: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2390: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2391: p_basis=> p_stop_charges_tab(
2392: l_dropoff_stop_op_index).ast_unloading_chrg_basis,
2393: p_alloc_params=> p_cost_allocation_parameters,
2386:
2387:
2388: Get_Unloading_Fraction(
2389: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2390: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2391: p_basis=> p_stop_charges_tab(
2392: l_dropoff_stop_op_index).ast_unloading_chrg_basis,
2393: p_alloc_params=> p_cost_allocation_parameters,
2394: x_fraction=> l_fraction,
2412: p_stop_charges_tab(l_dropoff_stop_op_index).fac_unloading_chrg;
2413:
2414:
2415: Get_Unloading_Fraction(
2416: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2417: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2418: p_basis=> p_stop_charges_tab(
2419: l_dropoff_stop_op_index).fac_unloading_chrg_basis,
2420: p_alloc_params=> p_cost_allocation_parameters,
2413:
2414:
2415: Get_Unloading_Fraction(
2416: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2417: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2418: p_basis=> p_stop_charges_tab(
2419: l_dropoff_stop_op_index).fac_unloading_chrg_basis,
2420: p_alloc_params=> p_cost_allocation_parameters,
2421: x_fraction=> l_fraction,
2432:
2433: l_dleg_alloc_rec.fac_unloading_chrg:=
2434: l_stop_level_charge*l_fraction;
2435: l_dleg_alloc_rec.fac_unloading_currency:=
2436: FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index
2437: ).fac_currency;
2438:
2439: ----Facility Assisted Unloading
2440:
2442: p_stop_charges_tab(l_dropoff_stop_op_index
2443: ).fac_ast_unloading_chrg;
2444:
2445: Get_Unloading_Fraction(
2446: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2447: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2448: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index
2449: ).fac_ast_unloading_chrg_basis,
2450: p_alloc_params=> p_cost_allocation_parameters,
2443: ).fac_ast_unloading_chrg;
2444:
2445: Get_Unloading_Fraction(
2446: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2447: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2448: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index
2449: ).fac_ast_unloading_chrg_basis,
2450: p_alloc_params=> p_cost_allocation_parameters,
2451: x_fraction=> l_fraction,
2463:
2464: l_dleg_alloc_rec.fac_ast_unloading_chrg:=
2465: l_stop_level_charge*l_fraction;
2466: l_dleg_alloc_rec.fac_unloading_currency:=
2467: FTE_TL_CACHE.g_tl_trip_stop_rows(
2468: l_dropoff_stop_ip_index).fac_currency;
2469:
2470: --StopOFF Charge
2471:
2472:
2473: Assign_StopOff_Charge(
2474: p_stopoff_charge=> l_stopoff_charge,
2475: p_alloc_params=> p_cost_allocation_parameters ,
2476: p_pickup_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2477: p_dropoff_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2478: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2479: x_dleg_alloc_rec=> l_dleg_alloc_rec,
2480: x_return_status => l_return_status);
2473: Assign_StopOff_Charge(
2474: p_stopoff_charge=> l_stopoff_charge,
2475: p_alloc_params=> p_cost_allocation_parameters ,
2476: p_pickup_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2477: p_dropoff_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2478: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2479: x_dleg_alloc_rec=> l_dleg_alloc_rec,
2480: x_return_status => l_return_status);
2481:
2474: p_stopoff_charge=> l_stopoff_charge,
2475: p_alloc_params=> p_cost_allocation_parameters ,
2476: p_pickup_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2477: p_dropoff_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2478: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2479: x_dleg_alloc_rec=> l_dleg_alloc_rec,
2480: x_return_status => l_return_status);
2481:
2482: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
2501: --both pickup and dropoff deliveries at a stop
2502:
2503: l_fraction:=0;
2504: --IF
2505: --((FTE_TL_CACHE.g_tl_trip_stop_rows(
2506: -- l_pickup_stop_ip_index).pickup_weight>0) OR (FTE_TL_CACHE.g_tl_trip_stop_rows(
2507: -- l_pickup_stop_ip_index).pickup_volume>0))
2508:
2509: IF ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PU')
2502:
2503: l_fraction:=0;
2504: --IF
2505: --((FTE_TL_CACHE.g_tl_trip_stop_rows(
2506: -- l_pickup_stop_ip_index).pickup_weight>0) OR (FTE_TL_CACHE.g_tl_trip_stop_rows(
2507: -- l_pickup_stop_ip_index).pickup_volume>0))
2508:
2509: IF ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PU')
2510: OR (FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PD'))
2505: --((FTE_TL_CACHE.g_tl_trip_stop_rows(
2506: -- l_pickup_stop_ip_index).pickup_weight>0) OR (FTE_TL_CACHE.g_tl_trip_stop_rows(
2507: -- l_pickup_stop_ip_index).pickup_volume>0))
2508:
2509: IF ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PU')
2510: OR (FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PD'))
2511: THEN
2512: --4045314
2513: Get_Total_Stop_Fraction(
2506: -- l_pickup_stop_ip_index).pickup_weight>0) OR (FTE_TL_CACHE.g_tl_trip_stop_rows(
2507: -- l_pickup_stop_ip_index).pickup_volume>0))
2508:
2509: IF ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PU')
2510: OR (FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PD'))
2511: THEN
2512: --4045314
2513: Get_Total_Stop_Fraction(
2514: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2510: OR (FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index).stop_type='PD'))
2511: THEN
2512: --4045314
2513: Get_Total_Stop_Fraction(
2514: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2515: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2516: p_basis=> p_stop_charges_tab(l_pickup_stop_op_index
2517: ).fac_handling_chrg_basis,
2518: p_alloc_params=> p_cost_allocation_parameters,
2511: THEN
2512: --4045314
2513: Get_Total_Stop_Fraction(
2514: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2515: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2516: p_basis=> p_stop_charges_tab(l_pickup_stop_op_index
2517: ).fac_handling_chrg_basis,
2518: p_alloc_params=> p_cost_allocation_parameters,
2519: x_fraction=> l_fraction,
2532: l_dleg_alloc_rec.fac_handling_chrg:=
2533: p_stop_charges_tab(l_pickup_stop_op_index
2534: ).fac_handling_chrg*l_fraction;
2535: l_dleg_alloc_rec.fac_handling_currency:=
2536: FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index)
2537: .fac_currency;
2538: END IF;
2539:
2540: --If at the dropoff stop no other deliveries are picked up
2539:
2540: --If at the dropoff stop no other deliveries are picked up
2541: --allocate the fac handling charge to his delivery
2542: --Added condition for volume 3958974
2543: --IF((FTE_TL_CACHE.g_tl_trip_stop_rows(
2544: -- l_dropoff_stop_ip_index).pickup_weight=0) AND (FTE_TL_CACHE.g_tl_trip_stop_rows(
2545: -- l_dropoff_stop_ip_index).pickup_volume=0))
2546:
2547: --4045314
2540: --If at the dropoff stop no other deliveries are picked up
2541: --allocate the fac handling charge to his delivery
2542: --Added condition for volume 3958974
2543: --IF((FTE_TL_CACHE.g_tl_trip_stop_rows(
2544: -- l_dropoff_stop_ip_index).pickup_weight=0) AND (FTE_TL_CACHE.g_tl_trip_stop_rows(
2545: -- l_dropoff_stop_ip_index).pickup_volume=0))
2546:
2547: --4045314
2548: IF((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='DO')
2544: -- l_dropoff_stop_ip_index).pickup_weight=0) AND (FTE_TL_CACHE.g_tl_trip_stop_rows(
2545: -- l_dropoff_stop_ip_index).pickup_volume=0))
2546:
2547: --4045314
2548: IF((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='DO')
2549: OR ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='PD')))
2550: THEN
2551:
2552: Get_Total_Stop_Fraction(
2545: -- l_dropoff_stop_ip_index).pickup_volume=0))
2546:
2547: --4045314
2548: IF((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='DO')
2549: OR ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='PD')))
2550: THEN
2551:
2552: Get_Total_Stop_Fraction(
2553: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2549: OR ((FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index).stop_type='PD')))
2550: THEN
2551:
2552: Get_Total_Stop_Fraction(
2553: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2554: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(
2555: l_dropoff_stop_ip_index),
2556: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index
2557: ).fac_handling_chrg_basis,
2550: THEN
2551:
2552: Get_Total_Stop_Fraction(
2553: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2554: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(
2555: l_dropoff_stop_ip_index),
2556: p_basis=> p_stop_charges_tab(l_dropoff_stop_op_index
2557: ).fac_handling_chrg_basis,
2558: p_alloc_params=> p_cost_allocation_parameters,
2571: l_fac_handling_chrg:=
2572: p_stop_charges_tab(l_dropoff_stop_op_index
2573: ).fac_handling_chrg*l_fraction;
2574: l_fac_handling_currency:=
2575: FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index
2576: ).fac_currency;
2577:
2578:
2579: IF (l_fac_handling_chrg > 0)
2609:
2610:
2611: Allocate_Handling_Charges(
2612: p_trip_index=> p_trip_index,
2613: p_dleg_row=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2614: p_trip_rec_charges=> p_trip_charges_rec,
2615: p_cost_allocation_parameters=> p_cost_allocation_parameters,
2616: x_handling_chrg=> l_dleg_alloc_rec.handling_chrg,
2617: x_return_status => l_return_status);
2632:
2633:
2634:
2635: Get_Loading_Fraction(
2636: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2637: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2638: p_basis=> FTE_RTG_GLOBALS.G_FLAT_BASIS,
2639: p_alloc_params=> p_cost_allocation_parameters,
2640: x_fraction=> l_fraction,
2633:
2634:
2635: Get_Loading_Fraction(
2636: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2637: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_pickup_stop_ip_index),
2638: p_basis=> FTE_RTG_GLOBALS.G_FLAT_BASIS,
2639: p_alloc_params=> p_cost_allocation_parameters,
2640: x_fraction=> l_fraction,
2641: x_return_status => l_return_status);
2661:
2662:
2663:
2664: Get_Unloading_Fraction(
2665: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2666: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2667: p_basis=> FTE_RTG_GLOBALS.G_FLAT_BASIS,
2668: p_alloc_params=> p_cost_allocation_parameters,
2669: x_fraction=> l_fraction,
2662:
2663:
2664: Get_Unloading_Fraction(
2665: p_dleg_rec=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i),
2666: p_stop_rec=> FTE_TL_CACHE.g_tl_trip_stop_rows(l_dropoff_stop_ip_index),
2667: p_basis=> FTE_RTG_GLOBALS.G_FLAT_BASIS,
2668: p_alloc_params=> p_cost_allocation_parameters,
2669: x_fraction=> l_fraction,
2670: x_return_status => l_return_status);
2682:
2683:
2684: --Add to output structure
2685: l_dleg_alloc_rec.delivery_leg_id:=
2686: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id;
2687:
2688: l_dleg_alloc_rec.delivery_id:=
2689: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id;
2690:
2685: l_dleg_alloc_rec.delivery_leg_id:=
2686: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id;
2687:
2688: l_dleg_alloc_rec.delivery_id:=
2689: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id;
2690:
2691: x_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
2692: i).delivery_leg_id):=l_dleg_alloc_rec;
2693:
2687:
2688: l_dleg_alloc_rec.delivery_id:=
2689: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id;
2690:
2691: x_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
2692: i).delivery_leg_id):=l_dleg_alloc_rec;
2693:
2694: i:=i+1;
2695:
2828: WHILE(p_child_dleg_hash.EXISTS(l_dleg_id))
2829: LOOP
2830: l_dleg_index:=p_child_dleg_hash(l_dleg_id);
2831:
2832: l_parent_dleg_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(l_dleg_index).parent_dleg_id;
2833:
2834: l_dleg_id:=l_parent_dleg_id;
2835:
2836: END LOOP;
2881: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,'Get_Total_Dleg_Cost','start');
2882:
2883: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2884:
2885: l_currency:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
2886: x_charge:=0;
2887: x_charge:=x_charge+ NVL(p_dleg_alloc_rec.base_dist_load_chrg,0);
2888: x_charge:=x_charge+ NVL(p_dleg_alloc_rec.base_dist_unload_chrg,0);
2889: x_charge:=x_charge+ NVL(p_dleg_alloc_rec.base_unit_chrg,0);
3061: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3062:
3063:
3064: l_child_dleg_index_first:=
3065: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).child_dleg_reference;
3066:
3067: IF(l_child_dleg_index_first IS NOT NULL)
3068: THEN
3069:
3066:
3067: IF(l_child_dleg_index_first IS NOT NULL)
3068: THEN
3069:
3070: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3071: THEN
3072: l_child_dleg_index_last:=
3073: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3074: ).child_dleg_reference;
3069:
3070: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3071: THEN
3072: l_child_dleg_index_last:=
3073: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3074: ).child_dleg_reference;
3075:
3076:
3077: ELSE
3074: ).child_dleg_reference;
3075:
3076:
3077: ELSE
3078: l_child_dleg_index_last:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.LAST+1;
3079:
3080: END IF;
3081:
3082:
3080: END IF;
3081:
3082:
3083: i:=l_child_dleg_index_first;
3084: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3085: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3086: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3087: LOOP
3088:
3081:
3082:
3083: i:=l_child_dleg_index_first;
3084: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3085: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3086: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3087: LOOP
3088:
3089: l_child_dleg_hash(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id):=i;
3082:
3083: i:=l_child_dleg_index_first;
3084: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3085: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3086: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3087: LOOP
3088:
3089: l_child_dleg_hash(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id):=i;
3090:
3085: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3086: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3087: LOOP
3088:
3089: l_child_dleg_hash(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id):=i;
3090:
3091: i:=i+1;
3092: END LOOP;
3093:
3092: END LOOP;
3093:
3094:
3095: l_dleg_index_first:=
3096: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
3097:
3098: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3099: THEN
3100: l_dleg_index_last:=
3094:
3095: l_dleg_index_first:=
3096: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
3097:
3098: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3099: THEN
3100: l_dleg_index_last:=
3101: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3102: ).delivery_leg_reference;
3097:
3098: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3099: THEN
3100: l_dleg_index_last:=
3101: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3102: ).delivery_leg_reference;
3103:
3104:
3105: ELSE
3102: ).delivery_leg_reference;
3103:
3104:
3105: ELSE
3106: l_dleg_index_last:=FTE_TL_CACHE.g_tl_delivery_leg_rows.LAST+1;
3107:
3108: END IF;
3109:
3110:
3108: END IF;
3109:
3110:
3111: i:=l_dleg_index_first;
3112: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3113: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3114: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3115: LOOP
3116:
3109:
3110:
3111: i:=l_dleg_index_first;
3112: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3113: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3114: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3115: LOOP
3116:
3117: l_parent_dleg_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id):=i;
3110:
3111: i:=l_dleg_index_first;
3112: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3113: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3114: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3115: LOOP
3116:
3117: l_parent_dleg_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id):=i;
3118:
3113: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3114: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3115: LOOP
3116:
3117: l_parent_dleg_hash(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id):=i;
3118:
3119: i:=i+1;
3120: END LOOP;
3121:
3121:
3122:
3123:
3124: i:=l_child_dleg_index_first;
3125: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3126: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3127: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3128: LOOP
3129:
3122:
3123:
3124: i:=l_child_dleg_index_first;
3125: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3126: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3127: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3128: LOOP
3129:
3130:
3123:
3124: i:=l_child_dleg_index_first;
3125: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
3126: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
3127: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_child_dleg_index_last))
3128: LOOP
3129:
3130:
3131: Get_Top_Most_Dleg(
3128: LOOP
3129:
3130:
3131: Get_Top_Most_Dleg(
3132: p_child_dleg_id=>FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id,
3133: p_child_dleg_hash=>l_child_dleg_hash,
3134: p_dleg_alloc_tab=>x_dleg_alloc_tab,
3135: x_top_dleg_id=>l_top_dleg_id,
3136: x_return_status=>l_return_status);
3144: END IF;
3145: IF (l_top_dleg_id IS NULL)
3146: THEN
3147:
3148: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'No top dleg for :'||FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id);
3149: raise FTE_FREIGHT_PRICING_UTIL.g_tl_mdc_top_dleg_fail;
3150: END IF;
3151:
3152: l_parent_dleg_index:=l_parent_dleg_hash(l_top_dleg_id);
3158:
3159: IF(p_cost_allocation_parameters.principal_alloc_basis=
3160: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3161: THEN
3162: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight > 0)
3163: THEN
3164: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight/
3165: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight;
3166: END IF;
3160: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3161: THEN
3162: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight > 0)
3163: THEN
3164: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight/
3165: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight;
3166: END IF;
3167:
3168: ELSIF(p_cost_allocation_parameters.principal_alloc_basis=
3161: THEN
3162: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight > 0)
3163: THEN
3164: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight/
3165: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_weight;
3166: END IF;
3167:
3168: ELSIF(p_cost_allocation_parameters.principal_alloc_basis=
3169: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3167:
3168: ELSIF(p_cost_allocation_parameters.principal_alloc_basis=
3169: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3170: THEN
3171: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume > 0)
3172: THEN
3173: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume/
3174: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume;
3175: END IF;
3169: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3170: THEN
3171: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume > 0)
3172: THEN
3173: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume/
3174: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume;
3175: END IF;
3176:
3177:
3170: THEN
3171: IF (FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume > 0)
3172: THEN
3173: l_factor:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume/
3174: FTE_TL_CACHE.g_tl_delivery_leg_rows(l_parent_dleg_index).children_volume;
3175: END IF;
3176:
3177:
3178: END IF;
3178: END IF;
3179:
3180:
3181: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_DBG,'Alloc factor for child dleg:'||
3182: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id||' factor:'||l_factor);
3183:
3184:
3185: l_parent_dleg_alloc_rec:=x_dleg_alloc_tab(l_top_dleg_id);
3186: l_child_dleg_alloc_rec.delivery_leg_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id;
3182: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id||' factor:'||l_factor);
3183:
3184:
3185: l_parent_dleg_alloc_rec:=x_dleg_alloc_tab(l_top_dleg_id);
3186: l_child_dleg_alloc_rec.delivery_leg_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id;
3187: l_child_dleg_alloc_rec.delivery_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id;
3188:
3189: l_child_dleg_alloc_rec.base_dist_load_chrg:=
3190: l_parent_dleg_alloc_rec.base_dist_load_chrg * l_factor;
3183:
3184:
3185: l_parent_dleg_alloc_rec:=x_dleg_alloc_tab(l_top_dleg_id);
3186: l_child_dleg_alloc_rec.delivery_leg_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id;
3187: l_child_dleg_alloc_rec.delivery_id:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id;
3188:
3189: l_child_dleg_alloc_rec.base_dist_load_chrg:=
3190: l_parent_dleg_alloc_rec.base_dist_load_chrg * l_factor;
3191:
3346: --As per Step 4 of the CA algorithm
3347:
3348: PROCEDURE Alloc_Charges_To_Dlegs(
3349: p_trip_index IN NUMBER,
3350: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
3351: p_stop_charges_tab IN
3352: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
3353: p_stop_input_hash IN DBMS_UTILITY.NUMBER_ARRAY,
3354: p_stop_output_hash IN DBMS_UTILITY.NUMBER_ARRAY,
3348: PROCEDURE Alloc_Charges_To_Dlegs(
3349: p_trip_index IN NUMBER,
3350: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
3351: p_stop_charges_tab IN
3352: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
3353: p_stop_input_hash IN DBMS_UTILITY.NUMBER_ARRAY,
3354: p_stop_output_hash IN DBMS_UTILITY.NUMBER_ARRAY,
3355: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
3356: x_dleg_alloc_tab IN OUT NOCOPY TL_dleg_alloc_TAB_TYPE ,
3408: --Find Sum of delivery* distance
3409:
3410:
3411: l_dleg_index_first:=
3412: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
3413:
3414: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3415: THEN
3416: l_dleg_index_last:=
3410:
3411: l_dleg_index_first:=
3412: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
3413:
3414: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3415: THEN
3416: l_dleg_index_last:=
3417: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3418: ).delivery_leg_reference;
3413:
3414: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
3415: THEN
3416: l_dleg_index_last:=
3417: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
3418: ).delivery_leg_reference;
3419:
3420:
3421: ELSE
3418: ).delivery_leg_reference;
3419:
3420:
3421: ELSE
3422: l_dleg_index_last:=FTE_TL_CACHE.g_tl_delivery_leg_rows.LAST+1;
3423:
3424: END IF;
3425: l_sum:=0;
3426: i:=l_dleg_index_first;
3424: END IF;
3425: l_sum:=0;
3426: i:=l_dleg_index_first;
3427:
3428: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3429: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3430: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3431: LOOP
3432: IF(p_cost_allocation_parameters.principal_alloc_basis=
3425: l_sum:=0;
3426: i:=l_dleg_index_first;
3427:
3428: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3429: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3430: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3431: LOOP
3432: IF(p_cost_allocation_parameters.principal_alloc_basis=
3433: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3426: i:=l_dleg_index_first;
3427:
3428: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3429: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3430: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i < l_dleg_index_last))
3431: LOOP
3432: IF(p_cost_allocation_parameters.principal_alloc_basis=
3433: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3434: THEN
3431: LOOP
3432: IF(p_cost_allocation_parameters.principal_alloc_basis=
3433: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3434: THEN
3435: l_value:=FTE_TL_CACHE.g_tl_delivery_leg_rows(i).weight;
3436:
3437: ELSIF(p_cost_allocation_parameters.principal_alloc_basis=
3438: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3439: THEN
3436:
3437: ELSIF(p_cost_allocation_parameters.principal_alloc_basis=
3438: FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3439: THEN
3440: l_value:=FTE_TL_CACHE.g_tl_delivery_leg_rows(i).volume;
3441:
3442: END IF;
3443:
3444: IF(p_cost_allocation_parameters.distance_alloc_method=
3444: IF(p_cost_allocation_parameters.distance_alloc_method=
3445: FTE_RTG_GLOBALS.G_CA_DIRECT_DISTANCE)
3446: THEN
3447: l_distance:=
3448: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).direct_distance;
3449:
3450: ELSIF(p_cost_allocation_parameters.distance_alloc_method=
3451: FTE_RTG_GLOBALS.G_CA_TOTAL_DISTANCE)
3452: THEN
3450: ELSIF(p_cost_allocation_parameters.distance_alloc_method=
3451: FTE_RTG_GLOBALS.G_CA_TOTAL_DISTANCE)
3452: THEN
3453: l_distance:=
3454: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).distance;
3455:
3456: END IF;
3457:
3458: l_sum:=l_sum+l_distance*l_value;
3469:
3470:
3471:
3472: i:=l_dleg_index_first;
3473: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3474: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3475: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND i < l_dleg_index_last)
3476: LOOP
3477: IF(p_cost_allocation_parameters.principal_alloc_basis=
3470:
3471:
3472: i:=l_dleg_index_first;
3473: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3474: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3475: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND i < l_dleg_index_last)
3476: LOOP
3477: IF(p_cost_allocation_parameters.principal_alloc_basis=
3478: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3471:
3472: i:=l_dleg_index_first;
3473: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
3474: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
3475: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND i < l_dleg_index_last)
3476: LOOP
3477: IF(p_cost_allocation_parameters.principal_alloc_basis=
3478: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3479: THEN
3477: IF(p_cost_allocation_parameters.principal_alloc_basis=
3478: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
3479: THEN
3480: l_value:=
3481: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).weight;
3482:
3483: ELSIF(p_cost_allocation_parameters.principal_alloc_basis
3484: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3485: THEN
3484: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
3485: THEN
3486:
3487: l_value:=
3488: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).volume;
3489: ELSE
3490: l_value:=0;
3491:
3492: END IF;
3494: IF(p_cost_allocation_parameters.distance_alloc_method=
3495: FTE_RTG_GLOBALS.G_CA_DIRECT_DISTANCE)
3496: THEN
3497: l_distance:=
3498: FTE_TL_CACHE.g_tl_delivery_leg_rows(i
3499: ).direct_distance;
3500:
3501: ELSIF(p_cost_allocation_parameters.distance_alloc_method
3502: =FTE_RTG_GLOBALS.G_CA_TOTAL_DISTANCE)
3502: =FTE_RTG_GLOBALS.G_CA_TOTAL_DISTANCE)
3503: THEN
3504:
3505: l_distance:=
3506: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).distance;
3507: ELSE
3508: l_distance:=0;
3509:
3510: END IF;
3516: l_factor:=0;
3517: END IF;
3518:
3519: l_dleg_id:=
3520: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id;
3521:
3522: x_dleg_alloc_tab(l_dleg_id).base_dist_load_chrg:=
3523: p_trip_charges_rec.base_dist_load_chrg * l_factor;
3524: x_dleg_alloc_tab(l_dleg_id).base_dist_load_unit_chrg:=
4217:
4218: --Gets the SUMMARY cost associated with a given stop
4219:
4220: PROCEDURE Get_Total_Stop_Cost(
4221: p_stop_charges_rec IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_REC_TYPE,
4222: p_currency IN VARCHAR2,
4223: x_charge IN OUT NOCOPY NUMBER,
4224: x_return_status OUT NOCOPY Varchar2) IS
4225:
4390: --Gets the SUMMARY cost associated with a given trip
4391:
4392: PROCEDURE Get_Total_Trip_Cost(
4393: p_trip_index IN NUMBER,
4394: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
4395: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
4396: x_charge IN OUT NOCOPY NUMBER,
4397: x_return_status OUT NOCOPY Varchar2) IS
4398:
4391:
4392: PROCEDURE Get_Total_Trip_Cost(
4393: p_trip_index IN NUMBER,
4394: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
4395: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
4396: x_charge IN OUT NOCOPY NUMBER,
4397: x_return_status OUT NOCOPY Varchar2) IS
4398:
4399: i NUMBER;
4413:
4414:
4415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4416:
4417: l_currency:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
4418:
4419: x_charge:=0;
4420:
4421: x_charge:=x_charge+ NVL(p_trip_charges_rec.base_dist_load_chrg,0);
4481: --Creates Charges at the trip level once cost allocation is complete
4482:
4483: PROCEDURE Create_Trip_Level_Price_Recs(
4484: p_trip_index IN NUMBER,
4485: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
4486: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
4487: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
4488: x_output_cost_tab IN OUT NOCOPY
4489: FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type,
4482:
4483: PROCEDURE Create_Trip_Level_Price_Recs(
4484: p_trip_index IN NUMBER,
4485: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
4486: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
4487: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
4488: x_output_cost_tab IN OUT NOCOPY
4489: FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type,
4490: x_return_status OUT NOCOPY Varchar2) IS
4532:
4533: --Populate values that are common for all pricing records
4534:
4535: l_freight_rec_common.currency_code:=
4536: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
4537: l_freight_rec_common.trip_id:=p_trip_charges_rec.trip_id;
4538: l_freight_rec_common.charge_source_code:='PRICING_ENGINE';
4539: IF (p_cost_allocation_parameters.output_type='T')
4540: THEN
4542: ELSE
4543: l_freight_rec_common.estimated_flag:='N';
4544: END IF;
4545: l_freight_rec_common.lane_id:=
4546: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4547: l_freight_rec_common.schedule_id:=
4548: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4549: l_freight_rec_common.service_type_code:=
4550: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4544: END IF;
4545: l_freight_rec_common.lane_id:=
4546: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4547: l_freight_rec_common.schedule_id:=
4548: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4549: l_freight_rec_common.service_type_code:=
4550: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4551: l_freight_rec_common.creation_date := SYSDATE;
4552: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
4546: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4547: l_freight_rec_common.schedule_id:=
4548: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4549: l_freight_rec_common.service_type_code:=
4550: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4551: l_freight_rec_common.creation_date := SYSDATE;
4552: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
4553: l_freight_rec_common.last_update_date := sysdate;
4554: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
4553: l_freight_rec_common.last_update_date := sysdate;
4554: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
4555: l_freight_rec_common.last_update_login := FND_GLOBAL.LOGIN_ID;
4556:
4557: l_freight_rec_common.vehicle_type_id:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).vehicle_type;
4558:
4559: --All the common values for the records are now populated;
4560:
4561: --Total trip charge
4625:
4626:
4627: --base_unit_chrg
4628:
4629: IF(FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_WEIGHT_BASIS
4630: )
4631: THEN
4632: l_unit_freight_code:=
4633: g_tl_freight_codes(C_UNIT_WEIGHT_RT).fte_summary_code_id;
4632: l_unit_freight_code:=
4633: g_tl_freight_codes(C_UNIT_WEIGHT_RT).fte_summary_code_id;
4634:
4635: ELSIF
4636: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_VOLUME_BASIS)
4637: THEN
4638: l_unit_freight_code:=
4639: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_summary_code_id;
4640:
4638: l_unit_freight_code:=
4639: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_summary_code_id;
4640:
4641: ELSIF
4642: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_CONTAINER_BASIS)
4643: THEN
4644: l_unit_freight_code:=
4645: g_tl_freight_codes(C_UNIT_CONTAINER_RT).fte_summary_code_id;
4646:
4644: l_unit_freight_code:=
4645: g_tl_freight_codes(C_UNIT_CONTAINER_RT).fte_summary_code_id;
4646:
4647: ELSIF
4648: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_PALLET_BASIS)
4649: THEN
4650: l_unit_freight_code:=
4651: g_tl_freight_codes(C_UNIT_PALLET_RT).fte_summary_code_id;
4652:
4653: ELSE
4654: FTE_FREIGHT_PRICING_UTIL.setmsg (
4655: p_api=>'Create_Trip_Level_Price_Recs',
4656: p_exc=>'g_tl_no_carr_unit_basis',
4657: p_carrier_id=> FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).carrier_id);
4658:
4659: raise FTE_FREIGHT_PRICING_UTIL.g_tl_no_carr_unit_basis;
4660:
4661: END IF;
4935: --Charges at the stop level once cost allocation is complete
4936:
4937: PROCEDURE Create_Stop_Level_Price_Recs(
4938: p_trip_index IN NUMBER,
4939: p_stop_charges_rec IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_REC_TYPE,
4940: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
4941: x_output_cost_tab IN OUT NOCOPY FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type,
4942: x_return_status OUT NOCOPY Varchar2) IS
4943:
4958:
4959:
4960: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4961:
4962: l_currency:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
4963:
4964: --Populate values that are common for all pricing records
4965:
4966: l_freight_rec_common.currency_code:=
4963:
4964: --Populate values that are common for all pricing records
4965:
4966: l_freight_rec_common.currency_code:=
4967: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
4968: l_freight_rec_common.stop_id:=p_stop_charges_rec.stop_id;
4969: l_freight_rec_common.charge_source_code:='PRICING_ENGINE';
4970: IF (p_cost_allocation_parameters.output_type='T')
4971: THEN
4973: ELSE
4974: l_freight_rec_common.estimated_flag:='N';
4975: END IF;
4976: l_freight_rec_common.lane_id:=
4977: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4978: l_freight_rec_common.schedule_id:=
4979: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4980: l_freight_rec_common.service_type_code:=
4981: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4975: END IF;
4976: l_freight_rec_common.lane_id:=
4977: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4978: l_freight_rec_common.schedule_id:=
4979: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4980: l_freight_rec_common.service_type_code:=
4981: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4982: l_freight_rec_common.creation_date := SYSDATE;
4983: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
4977: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
4978: l_freight_rec_common.schedule_id:=
4979: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
4980: l_freight_rec_common.service_type_code:=
4981: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
4982: l_freight_rec_common.creation_date := SYSDATE;
4983: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
4984: l_freight_rec_common.last_update_date := sysdate;
4985: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
4984: l_freight_rec_common.last_update_date := sysdate;
4985: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
4986: l_freight_rec_common.last_update_login := FND_GLOBAL.LOGIN_ID;
4987:
4988: l_freight_rec_common.vehicle_type_id:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).vehicle_type;
4989:
4990: --All the common values for the records are now populated;
4991:
4992: --Total Stop charges
5525:
5526: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5527:
5528: --Populate values that are common for all pricing records
5529: l_currency:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
5530:
5531: l_freight_rec_common.currency_code:=
5532: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
5533: l_freight_rec_common.delivery_leg_id:=p_dleg_alloc_rec.delivery_leg_id;
5528: --Populate values that are common for all pricing records
5529: l_currency:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
5530:
5531: l_freight_rec_common.currency_code:=
5532: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
5533: l_freight_rec_common.delivery_leg_id:=p_dleg_alloc_rec.delivery_leg_id;
5534: l_freight_rec_common.delivery_id:=p_dleg_alloc_rec.delivery_id;
5535: l_freight_rec_common.charge_source_code:='PRICING_ENGINE';
5536: IF (p_cost_allocation_parameters.output_type='T')
5539: ELSE
5540: l_freight_rec_common.estimated_flag:='N';
5541: END IF;
5542: l_freight_rec_common.lane_id:=
5543: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
5544: l_freight_rec_common.schedule_id:=
5545: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
5546: l_freight_rec_common.service_type_code:=
5547: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
5541: END IF;
5542: l_freight_rec_common.lane_id:=
5543: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
5544: l_freight_rec_common.schedule_id:=
5545: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
5546: l_freight_rec_common.service_type_code:=
5547: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
5548: l_freight_rec_common.creation_date := SYSDATE;
5549: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
5543: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
5544: l_freight_rec_common.schedule_id:=
5545: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
5546: l_freight_rec_common.service_type_code:=
5547: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
5548: l_freight_rec_common.creation_date := SYSDATE;
5549: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
5550: l_freight_rec_common.last_update_date := sysdate;
5551: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
5550: l_freight_rec_common.last_update_date := sysdate;
5551: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
5552: l_freight_rec_common.last_update_login := FND_GLOBAL.LOGIN_ID;
5553:
5554: l_freight_rec_common.vehicle_type_id:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).vehicle_type;
5555:
5556: --All the common values for the records are now populated;
5557:
5558: --Total Dleg charges
5637:
5638:
5639: --base_unit_chrg
5640:
5641: IF(FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_WEIGHT_BASIS
5642: )
5643: THEN
5644: l_unit_freight_code:=
5645: g_tl_freight_codes(C_UNIT_WEIGHT_RT).fte_price_code_id;
5644: l_unit_freight_code:=
5645: g_tl_freight_codes(C_UNIT_WEIGHT_RT).fte_price_code_id;
5646:
5647: ELSIF
5648: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_VOLUME_BASIS)
5649: THEN
5650: l_unit_freight_code:=
5651: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_price_code_id;
5652:
5650: l_unit_freight_code:=
5651: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_price_code_id;
5652:
5653: ELSIF
5654: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_CONTAINER_BASIS)
5655: THEN
5656: l_unit_freight_code:=
5657: g_tl_freight_codes(C_UNIT_CONTAINER_RT).fte_price_code_id;
5658:
5656: l_unit_freight_code:=
5657: g_tl_freight_codes(C_UNIT_CONTAINER_RT).fte_price_code_id;
5658:
5659: ELSIF
5660: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_PALLET_BASIS)
5661: THEN
5662: l_unit_freight_code:=
5663: g_tl_freight_codes(C_UNIT_PALLET_RT).fte_price_code_id;
5664:
5665: ELSE
5666: FTE_FREIGHT_PRICING_UTIL.setmsg (
5667: p_api=>'Create_Trip_Level_Price_Recs',
5668: p_exc=>'g_tl_no_carr_unit_basis',
5669: p_carrier_id=> FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).carrier_id);
5670:
5671:
5672: raise FTE_FREIGHT_PRICING_UTIL.g_tl_no_carr_unit_basis;
5673:
6407:
6408: --Populate values that are common for all pricing records
6409:
6410: l_freight_rec_common.currency_code:=
6411: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).currency;
6412: l_freight_rec_common.delivery_id:=p_dtl_rec.delivery_id;
6413: l_freight_rec_common.delivery_leg_id:=p_dtl_rec.delivery_leg_id;
6414: l_freight_rec_common.delivery_detail_id:=p_dtl_rec.delivery_detail_id;
6415: l_freight_rec_common.charge_source_code:='PRICING_ENGINE';
6419: ELSE
6420: l_freight_rec_common.estimated_flag:='N';
6421: END IF;
6422: l_freight_rec_common.lane_id:=
6423: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
6424: l_freight_rec_common.schedule_id:=
6425: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
6426: l_freight_rec_common.service_type_code:=
6427: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
6421: END IF;
6422: l_freight_rec_common.lane_id:=
6423: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
6424: l_freight_rec_common.schedule_id:=
6425: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
6426: l_freight_rec_common.service_type_code:=
6427: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
6428: l_freight_rec_common.creation_date := SYSDATE;
6429: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
6423: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).lane_id;
6424: l_freight_rec_common.schedule_id:=
6425: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).schedule_id;
6426: l_freight_rec_common.service_type_code:=
6427: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).service_type;
6428: l_freight_rec_common.creation_date := SYSDATE;
6429: l_freight_rec_common.created_by := FND_GLOBAL.USER_ID;
6430: l_freight_rec_common.last_update_date := sysdate;
6431: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
6430: l_freight_rec_common.last_update_date := sysdate;
6431: l_freight_rec_common.last_updated_by := FND_GLOBAL.USER_ID;
6432: l_freight_rec_common.last_update_login := FND_GLOBAL.LOGIN_ID;
6433:
6434: l_freight_rec_common.vehicle_type_id:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).vehicle_type;
6435:
6436: --All the common values for the records are now populated;
6437:
6438:
6440: --base_unit_chrg
6441:
6442:
6443:
6444: IF(FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_WEIGHT_BASIS
6445: )
6446: THEN
6447: l_unit_freight_code:=
6448: g_tl_freight_codes(C_UNIT_WEIGHT_RT).fte_price_code_id;
6449:
6450: IF (p_dim_weight IS NOT NULL)
6451: THEN
6452: l_billable_basis:='WEIGHT';
6453: l_billable_uom:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).weight_uom;
6454: l_billable_quantity:=p_dim_weight;
6455: END IF;
6456:
6457: ELSIF
6454: l_billable_quantity:=p_dim_weight;
6455: END IF;
6456:
6457: ELSIF
6458: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_VOLUME_BASIS)
6459: THEN
6460: l_unit_freight_code:=
6461: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_price_code_id;
6462:
6460: l_unit_freight_code:=
6461: g_tl_freight_codes(C_UNIT_VOLUME_RT).fte_price_code_id;
6462:
6463: --l_billable_basis:='VOLUME';
6464: --l_billable_uom:=FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).volume_uom;
6465: --l_billable_quantity:=p_volume;
6466:
6467:
6468: ELSIF
6465: --l_billable_quantity:=p_volume;
6466:
6467:
6468: ELSIF
6469: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_CONTAINER_BASIS)
6470: THEN
6471: l_unit_freight_code:=
6472: g_tl_freight_codes(C_UNIT_CONTAINER_RT).fte_price_code_id;
6473:
6478:
6479:
6480:
6481: ELSIF
6482: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).unit_basis=FTE_RTG_GLOBALS.G_CARRIER_PALLET_BASIS)
6483: THEN
6484: l_unit_freight_code:=
6485: g_tl_freight_codes(C_UNIT_PALLET_RT).fte_price_code_id;
6486:
6488:
6489: FTE_FREIGHT_PRICING_UTIL.setmsg (
6490: p_api=>'Create_Dlv_Dtl_Price_Recs',
6491: p_exc=>'g_tl_no_carr_unit_basis',
6492: p_carrier_id=>FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).carrier_id);
6493:
6494: raise FTE_FREIGHT_PRICING_UTIL.g_tl_no_carr_unit_basis;
6495:
6496: END IF;
6520:
6521:
6522: --base_dist_load_chrg
6523:
6524: IF ((FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).continuous_move='Y') AND
6525: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).cm_rate_variant='DISC
6526: OUNT'))
6527: THEN
6528:
6521:
6522: --base_dist_load_chrg
6523:
6524: IF ((FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).continuous_move='Y') AND
6525: (FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).cm_rate_variant='DISC
6526: OUNT'))
6527: THEN
6528:
6529: Insert_Dlv_Dtl_Level_Charge(
7351:
7352: Create_Dlv_Dtl_Price_Recs(
7353: p_trip_index=>p_trip_index,
7354: p_factor=>1,
7355: p_dtl_rec=>FTE_TL_CACHE.g_tl_int_shipment_line_rows(i),
7356: p_dleg_alloc_rec=>l_dummy_dleg_alloc_rec,
7357: p_cost_allocation_parameters=>p_cost_allocation_parameters,
7358: p_dim_weight=>NULL,
7359: p_only_summary_flag=>'Y',
7439:
7440: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7441:
7442: l_dleg_index_first:=
7443: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
7444: l_carrier_weight_uom:=
7445: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).weight_uom;
7446: l_carrier_volume_uom:=
7447: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).volume_uom;
7441:
7442: l_dleg_index_first:=
7443: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
7444: l_carrier_weight_uom:=
7445: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).weight_uom;
7446: l_carrier_volume_uom:=
7447: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).volume_uom;
7448:
7449: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7443: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).delivery_leg_reference;
7444: l_carrier_weight_uom:=
7445: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).weight_uom;
7446: l_carrier_volume_uom:=
7447: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).volume_uom;
7448:
7449: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7450: THEN
7451: l_dleg_index_last:=
7445: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).weight_uom;
7446: l_carrier_volume_uom:=
7447: FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).volume_uom;
7448:
7449: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7450: THEN
7451: l_dleg_index_last:=
7452: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
7453: ).delivery_leg_reference;
7448:
7449: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7450: THEN
7451: l_dleg_index_last:=
7452: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
7453: ).delivery_leg_reference;
7454:
7455:
7456: ELSE
7453: ).delivery_leg_reference;
7454:
7455:
7456: ELSE
7457: l_dleg_index_last:=FTE_TL_CACHE.g_tl_delivery_leg_rows.LAST + 1;
7458:
7459: END IF;
7460:
7461: i:=l_dleg_index_first;
7458:
7459: END IF;
7460:
7461: i:=l_dleg_index_first;
7462: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
7463: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
7464: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7466:
7459: END IF;
7460:
7461: i:=l_dleg_index_first;
7462: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
7463: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
7464: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7466:
7467: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7460:
7461: i:=l_dleg_index_first;
7462: WHILE (( FTE_TL_CACHE.g_tl_delivery_leg_rows.EXISTS(i)) AND
7463: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
7464: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7466:
7467: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7468: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id)))
7463: (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).trip_id=
7464: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7466:
7467: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7468: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id)))
7469: THEN
7470:
7471: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7464: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7466:
7467: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7468: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id)))
7469: THEN
7470:
7471: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7472: -- p_api=>'Alloc_To_Details',
7470:
7471: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7472: -- p_api=>'Alloc_To_Details',
7473: -- p_exc=>'g_tl_no_dtl_on_dleg',
7474: -- p_delivery_leg_id=> FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_leg_id);
7475:
7476: --raise FTE_FREIGHT_PRICING_UTIL.g_tl_no_dtl_on_dleg;
7477:
7478: l_map_index:=NULL;
7479:
7480: ELSE
7481:
7482: l_map_index:=
7483: FTE_TL_CACHE.g_tl_delivery_detail_hash(
7484: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id);
7485:
7486:
7487: END IF;
7480: ELSE
7481:
7482: l_map_index:=
7483: FTE_TL_CACHE.g_tl_delivery_detail_hash(
7484: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id);
7485:
7486:
7487: END IF;
7488:
7487: END IF;
7488:
7489:
7490:
7491: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index))
7492: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7493: l_map_index).delivery_id=
7494: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id))
7495: LOOP
7488:
7489:
7490:
7491: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index))
7492: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7493: l_map_index).delivery_id=
7494: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id))
7495: LOOP
7496: l_dim_weight:=NULL;
7490:
7491: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index))
7492: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7493: l_map_index).delivery_id=
7494: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).delivery_id))
7495: LOOP
7496: l_dim_weight:=NULL;
7497:
7498: IF((p_cost_allocation_parameters.principal_alloc_basis=
7496: l_dim_weight:=NULL;
7497:
7498: IF((p_cost_allocation_parameters.principal_alloc_basis=
7499: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
7500: AND(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).weight>0))
7501: THEN
7502:
7503: l_quantity:=
7504: FTE_TL_CACHE.g_tl_shipment_line_rows(
7500: AND(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).weight>0))
7501: THEN
7502:
7503: l_quantity:=
7504: FTE_TL_CACHE.g_tl_shipment_line_rows(
7505: FTE_TL_CACHE.g_tl_delivery_detail_map(
7506: l_map_index).delivery_detail_id
7507: ).gross_weight;
7508: l_uom:=
7501: THEN
7502:
7503: l_quantity:=
7504: FTE_TL_CACHE.g_tl_shipment_line_rows(
7505: FTE_TL_CACHE.g_tl_delivery_detail_map(
7506: l_map_index).delivery_detail_id
7507: ).gross_weight;
7508: l_uom:=
7509: FTE_TL_CACHE.g_tl_shipment_line_rows(
7505: FTE_TL_CACHE.g_tl_delivery_detail_map(
7506: l_map_index).delivery_detail_id
7507: ).gross_weight;
7508: l_uom:=
7509: FTE_TL_CACHE.g_tl_shipment_line_rows(
7510: FTE_TL_CACHE.g_tl_delivery_detail_map(
7511: l_map_index).delivery_detail_id).weight_uom_code;
7512:
7513: l_quantity:=
7506: l_map_index).delivery_detail_id
7507: ).gross_weight;
7508: l_uom:=
7509: FTE_TL_CACHE.g_tl_shipment_line_rows(
7510: FTE_TL_CACHE.g_tl_delivery_detail_map(
7511: l_map_index).delivery_detail_id).weight_uom_code;
7512:
7513: l_quantity:=
7514: FTE_FREIGHT_PRICING_UTIL.convert_uom(
7523: END IF;
7524:
7525: l_weight:=l_quantity;
7526:
7527: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7528: FTE_TL_CACHE.g_tl_delivery_detail_map(
7529: l_map_index).delivery_detail_id).volume;
7530: l_uom:=
7531: FTE_TL_CACHE.g_tl_shipment_line_rows(
7524:
7525: l_weight:=l_quantity;
7526:
7527: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7528: FTE_TL_CACHE.g_tl_delivery_detail_map(
7529: l_map_index).delivery_detail_id).volume;
7530: l_uom:=
7531: FTE_TL_CACHE.g_tl_shipment_line_rows(
7532: FTE_TL_CACHE.g_tl_delivery_detail_map(
7527: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7528: FTE_TL_CACHE.g_tl_delivery_detail_map(
7529: l_map_index).delivery_detail_id).volume;
7530: l_uom:=
7531: FTE_TL_CACHE.g_tl_shipment_line_rows(
7532: FTE_TL_CACHE.g_tl_delivery_detail_map(
7533: l_map_index).delivery_detail_id
7534: ).volume_uom_code;
7535:
7528: FTE_TL_CACHE.g_tl_delivery_detail_map(
7529: l_map_index).delivery_detail_id).volume;
7530: l_uom:=
7531: FTE_TL_CACHE.g_tl_shipment_line_rows(
7532: FTE_TL_CACHE.g_tl_delivery_detail_map(
7533: l_map_index).delivery_detail_id
7534: ).volume_uom_code;
7535:
7536: l_quantity:=
7548: l_volume:=l_quantity;
7549:
7550:
7551:
7552: FTE_TL_CACHE.Calculate_Dimensional_Weight(
7553: p_carrier_pref_rec=>FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index),
7554: p_weight=>l_weight,
7555: p_volume=>l_volume,
7556: x_dim_weight=>l_dim_weight,
7549:
7550:
7551:
7552: FTE_TL_CACHE.Calculate_Dimensional_Weight(
7553: p_carrier_pref_rec=>FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index),
7554: p_weight=>l_weight,
7555: p_volume=>l_volume,
7556: x_dim_weight=>l_dim_weight,
7557: x_return_status=>l_return_status);
7565: END IF;
7566:
7567:
7568: l_factor:=l_dim_weight/
7569: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).weight;
7570:
7571: ELSIF((
7572: p_cost_allocation_parameters.principal_alloc_basis
7573: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
7570:
7571: ELSIF((
7572: p_cost_allocation_parameters.principal_alloc_basis
7573: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
7574: AND(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).volume>0))
7575: THEN
7576:
7577: l_quantity:=
7578: FTE_TL_CACHE.g_tl_shipment_line_rows(
7574: AND(FTE_TL_CACHE.g_tl_delivery_leg_rows(i).volume>0))
7575: THEN
7576:
7577: l_quantity:=
7578: FTE_TL_CACHE.g_tl_shipment_line_rows(
7579: FTE_TL_CACHE.g_tl_delivery_detail_map(
7580: l_map_index).delivery_detail_id).volume;
7581: l_uom:=
7582: FTE_TL_CACHE.g_tl_shipment_line_rows(
7575: THEN
7576:
7577: l_quantity:=
7578: FTE_TL_CACHE.g_tl_shipment_line_rows(
7579: FTE_TL_CACHE.g_tl_delivery_detail_map(
7580: l_map_index).delivery_detail_id).volume;
7581: l_uom:=
7582: FTE_TL_CACHE.g_tl_shipment_line_rows(
7583: FTE_TL_CACHE.g_tl_delivery_detail_map(
7578: FTE_TL_CACHE.g_tl_shipment_line_rows(
7579: FTE_TL_CACHE.g_tl_delivery_detail_map(
7580: l_map_index).delivery_detail_id).volume;
7581: l_uom:=
7582: FTE_TL_CACHE.g_tl_shipment_line_rows(
7583: FTE_TL_CACHE.g_tl_delivery_detail_map(
7584: l_map_index).delivery_detail_id
7585: ).volume_uom_code;
7586:
7579: FTE_TL_CACHE.g_tl_delivery_detail_map(
7580: l_map_index).delivery_detail_id).volume;
7581: l_uom:=
7582: FTE_TL_CACHE.g_tl_shipment_line_rows(
7583: FTE_TL_CACHE.g_tl_delivery_detail_map(
7584: l_map_index).delivery_detail_id
7585: ).volume_uom_code;
7586:
7587: l_quantity:=
7595: THEN
7596: raise FTE_FREIGHT_PRICING_UTIL.g_tl_conv_currency_fail;
7597: END IF;
7598: l_factor:=l_quantity/
7599: FTE_TL_CACHE.g_tl_delivery_leg_rows(i).volume;
7600:
7601: ELSE
7602: l_factor:=0;
7603:
7603:
7604: END IF;
7605:
7606:
7607: IF ((FTE_TL_CACHE.g_tl_delivery_leg_rows(i).is_parent_dleg IS NULL)
7608: OR (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).is_parent_dleg='N'))
7609: THEN
7610: l_dtl_summary_only_flag:='N';
7611:
7604: END IF;
7605:
7606:
7607: IF ((FTE_TL_CACHE.g_tl_delivery_leg_rows(i).is_parent_dleg IS NULL)
7608: OR (FTE_TL_CACHE.g_tl_delivery_leg_rows(i).is_parent_dleg='N'))
7609: THEN
7610: l_dtl_summary_only_flag:='N';
7611:
7612: ELSE
7615:
7616: Create_Dlv_Dtl_Price_Recs(
7617: p_trip_index=> p_trip_index,
7618: p_factor=> l_factor,
7619: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7620: FTE_TL_CACHE.g_tl_delivery_detail_map(
7621: l_map_index).delivery_detail_id),
7622: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
7623: i).delivery_leg_id) ,
7616: Create_Dlv_Dtl_Price_Recs(
7617: p_trip_index=> p_trip_index,
7618: p_factor=> l_factor,
7619: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7620: FTE_TL_CACHE.g_tl_delivery_detail_map(
7621: l_map_index).delivery_detail_id),
7622: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
7623: i).delivery_leg_id) ,
7624: p_cost_allocation_parameters=> p_cost_allocation_parameters,
7618: p_factor=> l_factor,
7619: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7620: FTE_TL_CACHE.g_tl_delivery_detail_map(
7621: l_map_index).delivery_detail_id),
7622: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
7623: i).delivery_leg_id) ,
7624: p_cost_allocation_parameters=> p_cost_allocation_parameters,
7625: p_dim_weight=>l_dim_weight,
7626: p_only_summary_flag=>l_dtl_summary_only_flag,
7634: raise FTE_FREIGHT_PRICING_UTIL.g_tl_cr_dlv_dtl_fail;
7635: END IF;
7636: END IF;
7637:
7638: l_detail_summary:=l_factor * p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
7639: i).delivery_leg_id).total_dleg_charge;
7640:
7641: l_detail_id:=FTE_TL_CACHE.g_tl_delivery_detail_map(
7642: l_map_index).delivery_detail_id;
7637:
7638: l_detail_summary:=l_factor * p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_delivery_leg_rows(
7639: i).delivery_leg_id).total_dleg_charge;
7640:
7641: l_detail_id:=FTE_TL_CACHE.g_tl_delivery_detail_map(
7642: l_map_index).delivery_detail_id;
7643:
7644:
7645:
7642: l_map_index).delivery_detail_id;
7643:
7644:
7645:
7646: l_parent_detail_id:=FTE_TL_CACHE.g_tl_shipment_line_rows(l_detail_id).parent_delivery_detail_id;
7647:
7648: IF ((l_parent_detail_id IS NOT NULL) AND
7649: (FTE_TL_CACHE.g_tl_int_shipment_line_rows.EXISTS(l_parent_detail_id)))
7650: THEN
7645:
7646: l_parent_detail_id:=FTE_TL_CACHE.g_tl_shipment_line_rows(l_detail_id).parent_delivery_detail_id;
7647:
7648: IF ((l_parent_detail_id IS NOT NULL) AND
7649: (FTE_TL_CACHE.g_tl_int_shipment_line_rows.EXISTS(l_parent_detail_id)))
7650: THEN
7651:
7652: IF(l_detail_alloc_tab.EXISTS(l_parent_detail_id))
7653: THEN
7671:
7672: -- Details of Child dlegs
7673:
7674: l_child_dleg_index_first:=
7675: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).child_dleg_reference;
7676: IF (l_child_dleg_index_first IS NOT NULL)
7677: THEN
7678:
7679: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7675: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).child_dleg_reference;
7676: IF (l_child_dleg_index_first IS NOT NULL)
7677: THEN
7678:
7679: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7680: THEN
7681: l_child_dleg_index_last:=
7682: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
7683: ).child_dleg_reference;
7678:
7679: IF (FTE_TL_CACHE.g_tl_trip_rows.EXISTS(p_trip_index+1))
7680: THEN
7681: l_child_dleg_index_last:=
7682: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1
7683: ).child_dleg_reference;
7684:
7685:
7686: ELSE
7683: ).child_dleg_reference;
7684:
7685:
7686: ELSE
7687: l_child_dleg_index_last:=FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.LAST + 1;
7688:
7689: END IF;
7690:
7691: i:=l_child_dleg_index_first;
7688:
7689: END IF;
7690:
7691: i:=l_child_dleg_index_first;
7692: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
7693: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
7694: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7696:
7689: END IF;
7690:
7691: i:=l_child_dleg_index_first;
7692: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
7693: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
7694: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7696:
7697: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7690:
7691: i:=l_child_dleg_index_first;
7692: WHILE (( FTE_TL_CACHE.g_tl_chld_delivery_leg_rows.EXISTS(i)) AND
7693: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
7694: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7696:
7697: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7698: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id)))
7693: (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).trip_id=
7694: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7696:
7697: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7698: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id)))
7699: THEN
7700:
7701: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7694: FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id) AND (i
7696:
7697: IF(NOT(FTE_TL_CACHE.g_tl_delivery_detail_hash.EXISTS(
7698: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id)))
7699: THEN
7700:
7701: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7702: -- p_api=>'Alloc_To_Details',
7700:
7701: --FTE_FREIGHT_PRICING_UTIL.setmsg (
7702: -- p_api=>'Alloc_To_Details',
7703: -- p_exc=>'g_tl_no_dtl_on_dleg',
7704: -- p_delivery_leg_id=> FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_leg_id);
7705:
7706:
7707: --raise FTE_FREIGHT_PRICING_UTIL.g_tl_no_dtl_on_dleg;
7708:
7709: l_map_index:=NULL;
7710: ELSE
7711:
7712: l_map_index:=
7713: FTE_TL_CACHE.g_tl_delivery_detail_hash(
7714: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id);
7715:
7716:
7717: END IF;
7710: ELSE
7711:
7712: l_map_index:=
7713: FTE_TL_CACHE.g_tl_delivery_detail_hash(
7714: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id);
7715:
7716:
7717: END IF;
7718:
7717: END IF;
7718:
7719:
7720:
7721: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index)
7722: )
7723: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7724: l_map_index).delivery_id=
7725: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id))
7719:
7720:
7721: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index)
7722: )
7723: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7724: l_map_index).delivery_id=
7725: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id))
7726: LOOP
7727: l_dim_weight:=NULL;
7721: WHILE((l_map_index IS NOT NULL) AND (FTE_TL_CACHE.g_tl_delivery_detail_map.EXISTS(l_map_index)
7722: )
7723: AND(FTE_TL_CACHE.g_tl_delivery_detail_map(
7724: l_map_index).delivery_id=
7725: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).delivery_id))
7726: LOOP
7727: l_dim_weight:=NULL;
7728:
7729: IF((p_cost_allocation_parameters.principal_alloc_basis=
7727: l_dim_weight:=NULL;
7728:
7729: IF((p_cost_allocation_parameters.principal_alloc_basis=
7730: FTE_RTG_GLOBALS.G_CA_WEIGHT_BASIS)
7731: AND(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight>0))
7732: THEN
7733:
7734: l_quantity:=
7735: FTE_TL_CACHE.g_tl_shipment_line_rows(
7731: AND(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight>0))
7732: THEN
7733:
7734: l_quantity:=
7735: FTE_TL_CACHE.g_tl_shipment_line_rows(
7736: FTE_TL_CACHE.g_tl_delivery_detail_map(
7737: l_map_index).delivery_detail_id
7738: ).gross_weight;
7739: l_uom:=
7732: THEN
7733:
7734: l_quantity:=
7735: FTE_TL_CACHE.g_tl_shipment_line_rows(
7736: FTE_TL_CACHE.g_tl_delivery_detail_map(
7737: l_map_index).delivery_detail_id
7738: ).gross_weight;
7739: l_uom:=
7740: FTE_TL_CACHE.g_tl_shipment_line_rows(
7736: FTE_TL_CACHE.g_tl_delivery_detail_map(
7737: l_map_index).delivery_detail_id
7738: ).gross_weight;
7739: l_uom:=
7740: FTE_TL_CACHE.g_tl_shipment_line_rows(
7741: FTE_TL_CACHE.g_tl_delivery_detail_map(
7742: l_map_index).delivery_detail_id).weight_uom_code;
7743:
7744: l_quantity:=
7737: l_map_index).delivery_detail_id
7738: ).gross_weight;
7739: l_uom:=
7740: FTE_TL_CACHE.g_tl_shipment_line_rows(
7741: FTE_TL_CACHE.g_tl_delivery_detail_map(
7742: l_map_index).delivery_detail_id).weight_uom_code;
7743:
7744: l_quantity:=
7745: FTE_FREIGHT_PRICING_UTIL.convert_uom(
7754: END IF;
7755:
7756: l_weight:=l_quantity;
7757:
7758: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7759: FTE_TL_CACHE.g_tl_delivery_detail_map(
7760: l_map_index).delivery_detail_id).volume;
7761: l_uom:=
7762: FTE_TL_CACHE.g_tl_shipment_line_rows(
7755:
7756: l_weight:=l_quantity;
7757:
7758: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7759: FTE_TL_CACHE.g_tl_delivery_detail_map(
7760: l_map_index).delivery_detail_id).volume;
7761: l_uom:=
7762: FTE_TL_CACHE.g_tl_shipment_line_rows(
7763: FTE_TL_CACHE.g_tl_delivery_detail_map(
7758: l_quantity:=FTE_TL_CACHE.g_tl_shipment_line_rows(
7759: FTE_TL_CACHE.g_tl_delivery_detail_map(
7760: l_map_index).delivery_detail_id).volume;
7761: l_uom:=
7762: FTE_TL_CACHE.g_tl_shipment_line_rows(
7763: FTE_TL_CACHE.g_tl_delivery_detail_map(
7764: l_map_index).delivery_detail_id
7765: ).volume_uom_code;
7766:
7759: FTE_TL_CACHE.g_tl_delivery_detail_map(
7760: l_map_index).delivery_detail_id).volume;
7761: l_uom:=
7762: FTE_TL_CACHE.g_tl_shipment_line_rows(
7763: FTE_TL_CACHE.g_tl_delivery_detail_map(
7764: l_map_index).delivery_detail_id
7765: ).volume_uom_code;
7766:
7767: l_quantity:=
7779: l_volume:=l_quantity;
7780:
7781:
7782:
7783: FTE_TL_CACHE.Calculate_Dimensional_Weight(
7784: p_carrier_pref_rec=>FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index),
7785: p_weight=>l_weight,
7786: p_volume=>l_volume,
7787: x_dim_weight=>l_dim_weight,
7780:
7781:
7782:
7783: FTE_TL_CACHE.Calculate_Dimensional_Weight(
7784: p_carrier_pref_rec=>FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index),
7785: p_weight=>l_weight,
7786: p_volume=>l_volume,
7787: x_dim_weight=>l_dim_weight,
7788: x_return_status=>l_return_status);
7796: END IF;
7797:
7798:
7799: l_factor:=l_dim_weight/
7800: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).weight;
7801:
7802: ELSIF((
7803: p_cost_allocation_parameters.principal_alloc_basis
7804: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
7801:
7802: ELSIF((
7803: p_cost_allocation_parameters.principal_alloc_basis
7804: =FTE_RTG_GLOBALS.G_CA_VOLUME_BASIS)
7805: AND(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume>0))
7806: THEN
7807:
7808: l_quantity:=
7809: FTE_TL_CACHE.g_tl_shipment_line_rows(
7805: AND(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume>0))
7806: THEN
7807:
7808: l_quantity:=
7809: FTE_TL_CACHE.g_tl_shipment_line_rows(
7810: FTE_TL_CACHE.g_tl_delivery_detail_map(
7811: l_map_index).delivery_detail_id).volume;
7812: l_uom:=
7813: FTE_TL_CACHE.g_tl_shipment_line_rows(
7806: THEN
7807:
7808: l_quantity:=
7809: FTE_TL_CACHE.g_tl_shipment_line_rows(
7810: FTE_TL_CACHE.g_tl_delivery_detail_map(
7811: l_map_index).delivery_detail_id).volume;
7812: l_uom:=
7813: FTE_TL_CACHE.g_tl_shipment_line_rows(
7814: FTE_TL_CACHE.g_tl_delivery_detail_map(
7809: FTE_TL_CACHE.g_tl_shipment_line_rows(
7810: FTE_TL_CACHE.g_tl_delivery_detail_map(
7811: l_map_index).delivery_detail_id).volume;
7812: l_uom:=
7813: FTE_TL_CACHE.g_tl_shipment_line_rows(
7814: FTE_TL_CACHE.g_tl_delivery_detail_map(
7815: l_map_index).delivery_detail_id
7816: ).volume_uom_code;
7817:
7810: FTE_TL_CACHE.g_tl_delivery_detail_map(
7811: l_map_index).delivery_detail_id).volume;
7812: l_uom:=
7813: FTE_TL_CACHE.g_tl_shipment_line_rows(
7814: FTE_TL_CACHE.g_tl_delivery_detail_map(
7815: l_map_index).delivery_detail_id
7816: ).volume_uom_code;
7817:
7818: l_quantity:=
7826: THEN
7827: raise FTE_FREIGHT_PRICING_UTIL.g_tl_conv_currency_fail;
7828: END IF;
7829: l_factor:=l_quantity/
7830: FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).volume;
7831:
7832: ELSE
7833: l_factor:=0;
7834:
7834:
7835: END IF;
7836:
7837:
7838: IF ((FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).is_parent_dleg IS NULL)
7839: OR (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).is_parent_dleg='N'))
7840: THEN
7841: l_dtl_summary_only_flag:='N';
7842:
7835: END IF;
7836:
7837:
7838: IF ((FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).is_parent_dleg IS NULL)
7839: OR (FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(i).is_parent_dleg='N'))
7840: THEN
7841: l_dtl_summary_only_flag:='N';
7842:
7843: ELSE
7846:
7847: Create_Dlv_Dtl_Price_Recs(
7848: p_trip_index=> p_trip_index,
7849: p_factor=> l_factor,
7850: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7851: FTE_TL_CACHE.g_tl_delivery_detail_map(
7852: l_map_index).delivery_detail_id),
7853: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(
7854: i).delivery_leg_id) ,
7847: Create_Dlv_Dtl_Price_Recs(
7848: p_trip_index=> p_trip_index,
7849: p_factor=> l_factor,
7850: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7851: FTE_TL_CACHE.g_tl_delivery_detail_map(
7852: l_map_index).delivery_detail_id),
7853: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(
7854: i).delivery_leg_id) ,
7855: p_cost_allocation_parameters=> p_cost_allocation_parameters,
7849: p_factor=> l_factor,
7850: p_dtl_rec=> FTE_TL_CACHE.g_tl_shipment_line_rows(
7851: FTE_TL_CACHE.g_tl_delivery_detail_map(
7852: l_map_index).delivery_detail_id),
7853: p_dleg_alloc_rec=> p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(
7854: i).delivery_leg_id) ,
7855: p_cost_allocation_parameters=> p_cost_allocation_parameters,
7856: p_dim_weight=>l_dim_weight,
7857: p_only_summary_flag=>l_dtl_summary_only_flag,
7865: raise FTE_FREIGHT_PRICING_UTIL.g_tl_cr_dlv_dtl_fail;
7866: END IF;
7867: END IF;
7868:
7869: l_detail_summary:=l_factor * p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(
7870: i).delivery_leg_id).total_dleg_charge;
7871:
7872: l_detail_id:=FTE_TL_CACHE.g_tl_delivery_detail_map(
7873: l_map_index).delivery_detail_id;
7868:
7869: l_detail_summary:=l_factor * p_dleg_alloc_tab(FTE_TL_CACHE.g_tl_chld_delivery_leg_rows(
7870: i).delivery_leg_id).total_dleg_charge;
7871:
7872: l_detail_id:=FTE_TL_CACHE.g_tl_delivery_detail_map(
7873: l_map_index).delivery_detail_id;
7874:
7875:
7876: l_parent_detail_id:=FTE_TL_CACHE.g_tl_shipment_line_rows(l_detail_id).parent_delivery_detail_id;
7872: l_detail_id:=FTE_TL_CACHE.g_tl_delivery_detail_map(
7873: l_map_index).delivery_detail_id;
7874:
7875:
7876: l_parent_detail_id:=FTE_TL_CACHE.g_tl_shipment_line_rows(l_detail_id).parent_delivery_detail_id;
7877:
7878: IF ((l_parent_detail_id IS NOT NULL) AND
7879: (FTE_TL_CACHE.g_tl_int_shipment_line_rows.EXISTS(l_parent_detail_id)))
7880: THEN
7875:
7876: l_parent_detail_id:=FTE_TL_CACHE.g_tl_shipment_line_rows(l_detail_id).parent_delivery_detail_id;
7877:
7878: IF ((l_parent_detail_id IS NOT NULL) AND
7879: (FTE_TL_CACHE.g_tl_int_shipment_line_rows.EXISTS(l_parent_detail_id)))
7880: THEN
7881:
7882: IF(l_detail_alloc_tab.EXISTS(l_parent_detail_id))
7883: THEN
7961: --Creates the trip,stop,dleg level price recs
7962: --
7963: PROCEDURE Create_Summary_Price_Recs(
7964: p_trip_index IN NUMBER,
7965: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
7966: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
7967: p_dleg_alloc_tab IN TL_dleg_alloc_tab_type,
7968: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
7969: x_output_cost_tab IN OUT NOCOPY
7962: --
7963: PROCEDURE Create_Summary_Price_Recs(
7964: p_trip_index IN NUMBER,
7965: p_trip_charges_rec IN FTE_TL_CACHE.TL_TRIP_OUTPUT_REC_TYPE,
7966: p_stop_charges_tab IN FTE_TL_CACHE.TL_TRIP_STOP_OUTPUT_TAB_TYPE,
7967: p_dleg_alloc_tab IN TL_dleg_alloc_tab_type,
7968: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
7969: x_output_cost_tab IN OUT NOCOPY
7970: FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type,
8005:
8006: -- p_stop_charges_tab is indexed by stop_id, insert stop charges in order
8007: -- of sequence number
8008:
8009: i:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8010:
8011: l_count:=0;
8012: l_stop_count:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_stops;
8013: WHILE (l_count < l_stop_count)
8008:
8009: i:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8010:
8011: l_count:=0;
8012: l_stop_count:=FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).number_of_stops;
8013: WHILE (l_count < l_stop_count)
8014: LOOP
8015:
8016: --Multiple change dont index p_stop_charges_tab by stop id use stop index
8092: END Create_Summary_Price_Recs;
8093:
8094: PROCEDURE TL_COST_ALLOCATION(
8095: p_trip_index IN NUMBER,
8096: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
8097: p_stop_charges_tab IN
8098: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
8099: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
8100: x_output_cost_tab IN OUT NOCOPY
8094: PROCEDURE TL_COST_ALLOCATION(
8095: p_trip_index IN NUMBER,
8096: p_trip_charges_rec IN FTE_TL_CACHE.TL_trip_output_rec_type ,
8097: p_stop_charges_tab IN
8098: FTE_TL_CACHE.TL_trip_stop_output_tab_type,
8099: p_cost_allocation_parameters IN TL_allocation_params_rec_type,
8100: x_output_cost_tab IN OUT NOCOPY
8101: FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type,
8102: x_return_status OUT NOCOPY VARCHAR2) IS
8176: END IF;
8177: END IF;
8178:
8179:
8180: IF(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).dead_head='N')
8181: THEN
8182:
8183: Alloc_Loading_Stopoff_To_Dlegs(
8184: p_trip_index=> p_trip_index,
8290: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,
8291: 'p_cost_allocation_parameters.output_type='||p_cost_allocation_parameters.output_type);
8292: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_trip_index='||p_trip_index);
8293:
8294: IF ((FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id <> FTE_TL_CACHE.FAKE_TRIP_ID) AND (p_cost_allocation_parameters.output_type='M' OR
8295: (p_cost_allocation_parameters.output_type='T'
8296: AND p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST))) THEN
8297:
8298: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trying to get lock of wsh_trip_stops...');
8292: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_trip_index='||p_trip_index);
8293:
8294: IF ((FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id <> FTE_TL_CACHE.FAKE_TRIP_ID) AND (p_cost_allocation_parameters.output_type='M' OR
8295: (p_cost_allocation_parameters.output_type='T'
8296: AND p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST))) THEN
8297:
8298: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trying to get lock of wsh_trip_stops...');
8299: OPEN c_lock_wts(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id);
8300: CLOSE c_lock_wts;
8295: (p_cost_allocation_parameters.output_type='T'
8296: AND p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST))) THEN
8297:
8298: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trying to get lock of wsh_trip_stops...');
8299: OPEN c_lock_wts(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id);
8300: CLOSE c_lock_wts;
8301: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'got update lock of wsh_trip_stops');
8302:
8303: l_stop_index_low := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8299: OPEN c_lock_wts(FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).trip_id);
8300: CLOSE c_lock_wts;
8301: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'got update lock of wsh_trip_stops');
8302:
8303: l_stop_index_low := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8304: IF p_cost_allocation_parameters.output_type='M' THEN
8305: IF p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST THEN
8306: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8307: ELSE
8301: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'got update lock of wsh_trip_stops');
8302:
8303: l_stop_index_low := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8304: IF p_cost_allocation_parameters.output_type='M' THEN
8305: IF p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST THEN
8306: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8307: ELSE
8308: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference - 2;
8309: END IF;
8302:
8303: l_stop_index_low := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index).stop_reference;
8304: IF p_cost_allocation_parameters.output_type='M' THEN
8305: IF p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST THEN
8306: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8307: ELSE
8308: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference - 2;
8309: END IF;
8310: ELSE
8304: IF p_cost_allocation_parameters.output_type='M' THEN
8305: IF p_trip_index = FTE_TL_CACHE.g_tl_trip_rows.LAST THEN
8306: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8307: ELSE
8308: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference - 2;
8309: END IF;
8310: ELSE
8311: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8312: END IF;
8307: ELSE
8308: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_rows(p_trip_index+1).stop_reference - 2;
8309: END IF;
8310: ELSE
8311: l_stop_index_high := FTE_TL_CACHE.g_tl_trip_stop_rows.LAST - 1;
8312: END IF;
8313: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_stop_index_low='||l_stop_index_low);
8314: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_stop_index_high='||l_stop_index_high);
8315:
8318: g_stop_id_tbl.DELETE;
8319: g_distance_to_next_stop_tbl.DELETE;
8320:
8321: FOR i in l_stop_index_low..l_stop_index_high LOOP
8322: g_stop_id_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id;
8323: g_distance_to_next_stop_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).distance_to_next_stop;
8324: END LOOP;
8325:
8326: l_distance_uom := FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).distance_uom;
8319: g_distance_to_next_stop_tbl.DELETE;
8320:
8321: FOR i in l_stop_index_low..l_stop_index_high LOOP
8322: g_stop_id_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id;
8323: g_distance_to_next_stop_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).distance_to_next_stop;
8324: END LOOP;
8325:
8326: l_distance_uom := FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).distance_uom;
8327:
8322: g_stop_id_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).stop_id;
8323: g_distance_to_next_stop_tbl(i) := FTE_TL_CACHE.g_tl_trip_stop_rows(i).distance_to_next_stop;
8324: END LOOP;
8325:
8326: l_distance_uom := FTE_TL_CACHE.g_tl_carrier_pref_rows(p_trip_index).distance_uom;
8327:
8328: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'bulk updating wsh_trip_stops...');
8329: FORALL i IN g_stop_id_tbl.FIRST..g_stop_id_tbl.LAST
8330: UPDATE wsh_trip_stops
8398: PROCEDURE TEST IS
8399:
8400: l_cost_allocation_parameters TL_allocation_params_rec_type;
8401:
8402: l_trip_rec FTE_TL_CACHE.TL_trip_data_input_rec_type;
8403: l_stop_rec FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE;
8404: l_stop_tab FTE_TL_CACHE.TL_trip_stop_input_tab_type;
8405: l_carrier_pref FTE_TL_CACHE.TL_carrier_pref_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8399:
8400: l_cost_allocation_parameters TL_allocation_params_rec_type;
8401:
8402: l_trip_rec FTE_TL_CACHE.TL_trip_data_input_rec_type;
8403: l_stop_rec FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE;
8404: l_stop_tab FTE_TL_CACHE.TL_trip_stop_input_tab_type;
8405: l_carrier_pref FTE_TL_CACHE.TL_carrier_pref_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8407:
8400: l_cost_allocation_parameters TL_allocation_params_rec_type;
8401:
8402: l_trip_rec FTE_TL_CACHE.TL_trip_data_input_rec_type;
8403: l_stop_rec FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE;
8404: l_stop_tab FTE_TL_CACHE.TL_trip_stop_input_tab_type;
8405: l_carrier_pref FTE_TL_CACHE.TL_carrier_pref_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8407:
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8401:
8402: l_trip_rec FTE_TL_CACHE.TL_trip_data_input_rec_type;
8403: l_stop_rec FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE;
8404: l_stop_tab FTE_TL_CACHE.TL_trip_stop_input_tab_type;
8405: l_carrier_pref FTE_TL_CACHE.TL_carrier_pref_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8407:
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8409:
8402: l_trip_rec FTE_TL_CACHE.TL_trip_data_input_rec_type;
8403: l_stop_rec FTE_TL_CACHE.TL_TRIP_STOP_INPUT_REC_TYPE;
8404: l_stop_tab FTE_TL_CACHE.TL_trip_stop_input_tab_type;
8405: l_carrier_pref FTE_TL_CACHE.TL_carrier_pref_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8407:
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8409:
8410: l_trip_charges_rec FTE_TL_CACHE.TL_trip_output_rec_type;
8406: l_dleg_rec FTE_TL_CACHE.TL_delivery_leg_rec_type;
8407:
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8409:
8410: l_trip_charges_rec FTE_TL_CACHE.TL_trip_output_rec_type;
8411: l_stop_charges_tab FTE_TL_CACHE.TL_trip_stop_output_tab_type;
8412: l_stop_charges_rec FTE_TL_CACHE.TL_trip_stop_output_rec_type;
8413:
8414: l_return_status VARCHAR2(1);
8407:
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8409:
8410: l_trip_charges_rec FTE_TL_CACHE.TL_trip_output_rec_type;
8411: l_stop_charges_tab FTE_TL_CACHE.TL_trip_stop_output_tab_type;
8412: l_stop_charges_rec FTE_TL_CACHE.TL_trip_stop_output_rec_type;
8413:
8414: l_return_status VARCHAR2(1);
8415: l_output_cost_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
8408: l_dtl_rec FTE_FREIGHT_PRICING.shipment_line_rec_type;
8409:
8410: l_trip_charges_rec FTE_TL_CACHE.TL_trip_output_rec_type;
8411: l_stop_charges_tab FTE_TL_CACHE.TL_trip_stop_output_tab_type;
8412: l_stop_charges_rec FTE_TL_CACHE.TL_trip_stop_output_rec_type;
8413:
8414: l_return_status VARCHAR2(1);
8415: l_output_cost_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
8416: l_map_rec FTE_TL_CACHE.TL_DLV_DETAIL_MAP_REC_TYPE;
8412: l_stop_charges_rec FTE_TL_CACHE.TL_trip_stop_output_rec_type;
8413:
8414: l_return_status VARCHAR2(1);
8415: l_output_cost_tab FTE_FREIGHT_PRICING.Freight_Cost_Temp_Tab_Type;
8416: l_map_rec FTE_TL_CACHE.TL_DLV_DETAIL_MAP_REC_TYPE;
8417: i NUMBER;
8418: l_dlv_id NUMBER;
8419: l_map_index NUMBER;
8420:
8440: l_lane_rows(1):=2609;
8441: l_schedule_rows(1):=NULL;
8442: l_vehicle_rows(1):=1201;
8443:
8444: FTE_TL_CACHE.TL_BUILD_CACHE_FOR_TRP_COMPARE(
8445: p_wsh_trip_id=> 1117828,
8446: p_lane_rows=>l_lane_rows,
8447: p_schedule_rows=>l_schedule_rows,
8448: p_vehicle_rows=>l_vehicle_rows,
8448: p_vehicle_rows=>l_vehicle_rows,
8449: x_return_status=>l_return_status);
8450:
8451:
8452: FTE_TL_CACHE.Display_Cache;
8453:
8454:
8455:
8456: --Populate trip charges