[Home] [Help]
1736: ELSE
1737: l_inv_id := 0;
1738: END IF;
1739:
1740: -- fnd_file.put_line(fnd_file.log,'Item id is ' || l_inv_id||'-'||p_orgn_id );
1741:
1742: IF l_inv_id = 0 AND l_item_id IS NOT NULL THEN
1743: SELECT distinct inventory_item_id into l_inv_id FROM
1744: (
1771: AND g.cost_type_id = l_cost_type_id
1772: AND msi.inventory_item_id = p_item_id
1773: AND msi.organization_id = p_orgn_id ) ;
1774:
1775: -- fnd_file.put_line(fnd_file.log,'After Query in is_item_lot_costed ' || l_inv_id ||'--' ||p_item_id||'-'||p_orgn_id);
1776: -- insert into table
1777: lc_items_tab(p_item_id||'-'||p_orgn_id) := p_item_id;
1778:
1779: END IF;
1784:
1785: EXCEPTION
1786: WHEN NO_DATA_FOUND THEN
1787: IF l_debug_level >= l_debug_level_medium THEN
1788: fnd_file.put_line(fnd_file.log,'Item is not lot costed ' || p_item_id||'-'||p_orgn_id );
1789: END IF;
1790: RETURN null;
1791: WHEN OTHERS THEN
1792: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in is_item_lot_costed');
1788: fnd_file.put_line(fnd_file.log,'Item is not lot costed ' || p_item_id||'-'||p_orgn_id );
1789: END IF;
1790: RETURN null;
1791: WHEN OTHERS THEN
1792: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in is_item_lot_costed');
1793: RETURN null;
1794: END;
1795:
1796: /*=========================================================
1819: procedure_name VARCHAR2(100);
1820: BEGIN
1821: procedure_name := 'Reload Lot Costed Items GT';
1822: IF l_debug_level >= l_debug_level_medium THEN
1823: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
1824: END IF;
1825:
1826: DELETE FROM GMF_LOT_COSTED_ITEMS_GT ;
1827:
1876: END LOOP;
1877:
1878: x_return_status := 0;
1879: IF l_debug_level >= l_debug_level_medium THEN
1880: fnd_file.put_line
1881: (fnd_file.log,'Leaving Procedure: '||procedure_name);
1882: END IF;
1883:
1884: EXCEPTION
1877:
1878: x_return_status := 0;
1879: IF l_debug_level >= l_debug_level_medium THEN
1880: fnd_file.put_line
1881: (fnd_file.log,'Leaving Procedure: '||procedure_name);
1882: END IF;
1883:
1884: EXCEPTION
1885: WHEN OTHERS THEN
1882: END IF;
1883:
1884: EXCEPTION
1885: WHEN OTHERS THEN
1886: fnd_file.put_line
1887: (fnd_file.log,'Procedure failed: '||procedure_name);
1888: x_return_status := -1;
1889: END;
1890:
1883:
1884: EXCEPTION
1885: WHEN OTHERS THEN
1886: fnd_file.put_line
1887: (fnd_file.log,'Procedure failed: '||procedure_name);
1888: x_return_status := -1;
1889: END;
1890:
1891: /**********************************************************************************************
1919:
1920: procedure_name := 'Merge Costs';
1921:
1922: IF l_debug_level >= l_debug_level_medium THEN
1923: fnd_file.put_line
1924: (fnd_file.log,'Entered Procedure: '||procedure_name);
1925: END IF;
1926:
1927: IF l_debug_level >= l_debug_level_high THEN
1920: procedure_name := 'Merge Costs';
1921:
1922: IF l_debug_level >= l_debug_level_medium THEN
1923: fnd_file.put_line
1924: (fnd_file.log,'Entered Procedure: '||procedure_name);
1925: END IF;
1926:
1927: IF l_debug_level >= l_debug_level_high THEN
1928: fnd_file.put_line(fnd_file.log,'Cost_qty = '||cost_qty||', new_qty = '||new_qty);
1924: (fnd_file.log,'Entered Procedure: '||procedure_name);
1925: END IF;
1926:
1927: IF l_debug_level >= l_debug_level_high THEN
1928: fnd_file.put_line(fnd_file.log,'Cost_qty = '||cost_qty||', new_qty = '||new_qty);
1929:
1930: fnd_file.put_line(fnd_file.log,'Before merge new_cost_tab is:');
1931:
1932: FOR k IN 1 .. new_cost_tab.COUNT
1926:
1927: IF l_debug_level >= l_debug_level_high THEN
1928: fnd_file.put_line(fnd_file.log,'Cost_qty = '||cost_qty||', new_qty = '||new_qty);
1929:
1930: fnd_file.put_line(fnd_file.log,'Before merge new_cost_tab is:');
1931:
1932: FOR k IN 1 .. new_cost_tab.COUNT
1933: LOOP
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1930: fnd_file.put_line(fnd_file.log,'Before merge new_cost_tab is:');
1931:
1932: FOR k IN 1 .. new_cost_tab.COUNT
1933: LOOP
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1935: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1936: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1937: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1938: fnd_file.put_line(fnd_file.log,'====================================');
1931:
1932: FOR k IN 1 .. new_cost_tab.COUNT
1933: LOOP
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1935: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1936: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1937: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1938: fnd_file.put_line(fnd_file.log,'====================================');
1939: END LOOP;
1932: FOR k IN 1 .. new_cost_tab.COUNT
1933: LOOP
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1935: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1936: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1937: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1938: fnd_file.put_line(fnd_file.log,'====================================');
1939: END LOOP;
1940:
1933: LOOP
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1935: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1936: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1937: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1938: fnd_file.put_line(fnd_file.log,'====================================');
1939: END LOOP;
1940:
1941: IF costs_table.EXISTS(1) THEN
1934: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1935: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1936: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1937: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1938: fnd_file.put_line(fnd_file.log,'====================================');
1939: END LOOP;
1940:
1941: IF costs_table.EXISTS(1) THEN
1942: fnd_file.put_line(fnd_file.log,'Before merge costs_tab is:');
1938: fnd_file.put_line(fnd_file.log,'====================================');
1939: END LOOP;
1940:
1941: IF costs_table.EXISTS(1) THEN
1942: fnd_file.put_line(fnd_file.log,'Before merge costs_tab is:');
1943: FOR k IN 1 .. costs_table.COUNT
1944: LOOP
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1941: IF costs_table.EXISTS(1) THEN
1942: fnd_file.put_line(fnd_file.log,'Before merge costs_tab is:');
1943: FOR k IN 1 .. costs_table.COUNT
1944: LOOP
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1947: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1942: fnd_file.put_line(fnd_file.log,'Before merge costs_tab is:');
1943: FOR k IN 1 .. costs_table.COUNT
1944: LOOP
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1947: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1950: END LOOP;
1943: FOR k IN 1 .. costs_table.COUNT
1944: LOOP
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1947: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1950: END LOOP;
1951: ELSE
1944: LOOP
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1947: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1950: END LOOP;
1951: ELSE
1952: fnd_file.put_line(fnd_file.log,'No costs to merge');
1945: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
1946: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1947: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1950: END LOOP;
1951: ELSE
1952: fnd_file.put_line(fnd_file.log,'No costs to merge');
1953: END IF;
1948: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
1949: fnd_file.put_line(fnd_file.log,'====================================');
1950: END LOOP;
1951: ELSE
1952: fnd_file.put_line(fnd_file.log,'No costs to merge');
1953: END IF;
1954: END IF; -- End printing cost tabs for debug mode
1955:
1956: IF costs_table.EXISTS(1) THEN
1961: divisor := 1;
1962: END IF;
1963:
1964: IF l_debug_level >= l_debug_level_high THEN
1965: fnd_file.put_line(fnd_file.log,'Divisor is '||divisor||'cost qty = '||cost_qty||' new qty= '||new_qty);
1966: END IF;
1967:
1968: IF merge_mode ='A' THEN
1969: FOR k in 1 .. costs_table.COUNT
1983: -- AF
1984: END LOOP;
1985:
1986: IF l_debug_level >= l_debug_level_high THEN
1987: fnd_file.put_line(fnd_file.log,'Cost_qty = '||cost_qty||', new_qty = '||new_qty);
1988: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
1989:
1990: FOR k IN 1 .. new_cost_tab.COUNT
1991: LOOP
1984: END LOOP;
1985:
1986: IF l_debug_level >= l_debug_level_high THEN
1987: fnd_file.put_line(fnd_file.log,'Cost_qty = '||cost_qty||', new_qty = '||new_qty);
1988: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
1989:
1990: FOR k IN 1 .. new_cost_tab.COUNT
1991: LOOP
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1988: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
1989:
1990: FOR k IN 1 .. new_cost_tab.COUNT
1991: LOOP
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1993: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1994: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1989:
1990: FOR k IN 1 .. new_cost_tab.COUNT
1991: LOOP
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1993: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1994: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1997: END LOOP;
1990: FOR k IN 1 .. new_cost_tab.COUNT
1991: LOOP
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1993: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1994: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1997: END LOOP;
1998:
1991: LOOP
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1993: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1994: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1997: END LOOP;
1998:
1999: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
1992: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
1993: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
1994: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1997: END LOOP;
1998:
1999: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
2000: FOR k IN 1 .. costs_table.COUNT
1995: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
1996: fnd_file.put_line(fnd_file.log,'====================================');
1997: END LOOP;
1998:
1999: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
2000: FOR k IN 1 .. costs_table.COUNT
2001: LOOP
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
1998:
1999: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
2000: FOR k IN 1 .. costs_table.COUNT
2001: LOOP
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
2004: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
2005: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
2006: fnd_file.put_line(fnd_file.log,'====================================');
1999: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
2000: FOR k IN 1 .. costs_table.COUNT
2001: LOOP
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
2004: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
2005: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
2006: fnd_file.put_line(fnd_file.log,'====================================');
2007: END LOOP;
2000: FOR k IN 1 .. costs_table.COUNT
2001: LOOP
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
2004: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
2005: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
2006: fnd_file.put_line(fnd_file.log,'====================================');
2007: END LOOP;
2008: END IF;
2001: LOOP
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
2004: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
2005: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
2006: fnd_file.put_line(fnd_file.log,'====================================');
2007: END LOOP;
2008: END IF;
2009: END IF; -- merge_mode IN ('A','V')
2002: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
2003: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
2004: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
2005: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
2006: fnd_file.put_line(fnd_file.log,'====================================');
2007: END LOOP;
2008: END IF;
2009: END IF; -- merge_mode IN ('A','V')
2010:
2043: new_cost.unit_cost := new_cost.unit_cost + new_cost_tab(k).component_cost;
2044: END LOOP;
2045:
2046: IF l_debug_level >= l_debug_level_high THEN
2047: fnd_file.put_line(fnd_file.log,'After merge new_cost_tab is:');
2048:
2049: FOR k IN 1 .. new_cost_tab.COUNT
2050: LOOP
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2047: fnd_file.put_line(fnd_file.log,'After merge new_cost_tab is:');
2048:
2049: FOR k IN 1 .. new_cost_tab.COUNT
2050: LOOP
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2052: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2048:
2049: FOR k IN 1 .. new_cost_tab.COUNT
2050: LOOP
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2052: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2056: END LOOP;
2049: FOR k IN 1 .. new_cost_tab.COUNT
2050: LOOP
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2052: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2056: END LOOP;
2057: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||new_cost.unit_cost);
2050: LOOP
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2052: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2056: END LOOP;
2057: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||new_cost.unit_cost);
2058: END IF;
2051: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
2052: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2056: END LOOP;
2057: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||new_cost.unit_cost);
2058: END IF;
2059:
2053: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
2054: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
2055: fnd_file.put_line(fnd_file.log,'====================================');
2056: END LOOP;
2057: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||new_cost.unit_cost);
2058: END IF;
2059:
2060: IF l_debug_level >= l_debug_level_medium THEN
2061: fnd_file.put_line
2057: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||new_cost.unit_cost);
2058: END IF;
2059:
2060: IF l_debug_level >= l_debug_level_medium THEN
2061: fnd_file.put_line
2062: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2063: END IF;
2064: END;
2065:
2058: END IF;
2059:
2060: IF l_debug_level >= l_debug_level_medium THEN
2061: fnd_file.put_line
2062: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2063: END IF;
2064: END;
2065:
2066: --**********************************************************************************************
2083:
2084: procedure_name := 'Process Burdens';
2085:
2086: IF l_debug_level >= l_debug_level_medium THEN
2087: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2088: END IF;
2089:
2090: l_return_status := 'S';
2091: l_burdens_total := 0;
2093:
2094: -- Bug 13038249 Grupo viz changes starts
2095: IF transaction_row.burden_ind = 0 THEN
2096: IF l_debug_level >= l_debug_level_medium THEN
2097: fnd_file.put_line(fnd_file.log,'No Burden defined for '|| transaction_row.inventory_item_id || '-' ||
2098: transaction_row.orgn_id );
2099: END IF;
2100: RETURN;
2101: END IF;
2115:
2116: IF l_burdens_tab.EXISTS(1) THEN
2117:
2118: IF l_debug_level >= l_debug_level_high THEN
2119: fnd_file.put_line(fnd_file.log,
2120: 'Burdens found for item: ' || transaction_row.inventory_item_id ||
2121: ' orgn: ' || l_org_tab(transaction_row.orgn_id) ||
2122: ' cost type: ' || l_cost_method_code ||
2123: ' lot: ' || transaction_row.lot_number ||
2122: ' cost type: ' || l_cost_method_code ||
2123: ' lot: ' || transaction_row.lot_number ||
2124: ' trans_date: ' || to_char(transaction_row.trans_date));
2125:
2126: fnd_file.put_line( fnd_file.log, 'Burdens Table is:');
2127: FOR i IN 1.. l_burdens_tab.COUNT
2128: LOOP
2129: fnd_file.put_line( fnd_file.log, 'Resources['||i||']:'||l_burdens_tab(i).resources);
2130: fnd_file.put_line( fnd_file.log, 'CCC ID ['||i||']:'||l_burdens_tab(i).cost_cmpntcls_id);
2125:
2126: fnd_file.put_line( fnd_file.log, 'Burdens Table is:');
2127: FOR i IN 1.. l_burdens_tab.COUNT
2128: LOOP
2129: fnd_file.put_line( fnd_file.log, 'Resources['||i||']:'||l_burdens_tab(i).resources);
2130: fnd_file.put_line( fnd_file.log, 'CCC ID ['||i||']:'||l_burdens_tab(i).cost_cmpntcls_id);
2131: fnd_file.put_line( fnd_file.log, 'C/A Code ['||i||']:'||l_burdens_tab(i).cost_analysis_code);
2132: fnd_file.put_line( fnd_file.log, 'B/Factor ['||i||']:'||l_burdens_tab(i).burden_factor);
2133: END LOOP;
2126: fnd_file.put_line( fnd_file.log, 'Burdens Table is:');
2127: FOR i IN 1.. l_burdens_tab.COUNT
2128: LOOP
2129: fnd_file.put_line( fnd_file.log, 'Resources['||i||']:'||l_burdens_tab(i).resources);
2130: fnd_file.put_line( fnd_file.log, 'CCC ID ['||i||']:'||l_burdens_tab(i).cost_cmpntcls_id);
2131: fnd_file.put_line( fnd_file.log, 'C/A Code ['||i||']:'||l_burdens_tab(i).cost_analysis_code);
2132: fnd_file.put_line( fnd_file.log, 'B/Factor ['||i||']:'||l_burdens_tab(i).burden_factor);
2133: END LOOP;
2134: END IF;
2127: FOR i IN 1.. l_burdens_tab.COUNT
2128: LOOP
2129: fnd_file.put_line( fnd_file.log, 'Resources['||i||']:'||l_burdens_tab(i).resources);
2130: fnd_file.put_line( fnd_file.log, 'CCC ID ['||i||']:'||l_burdens_tab(i).cost_cmpntcls_id);
2131: fnd_file.put_line( fnd_file.log, 'C/A Code ['||i||']:'||l_burdens_tab(i).cost_analysis_code);
2132: fnd_file.put_line( fnd_file.log, 'B/Factor ['||i||']:'||l_burdens_tab(i).burden_factor);
2133: END LOOP;
2134: END IF;
2135:
2128: LOOP
2129: fnd_file.put_line( fnd_file.log, 'Resources['||i||']:'||l_burdens_tab(i).resources);
2130: fnd_file.put_line( fnd_file.log, 'CCC ID ['||i||']:'||l_burdens_tab(i).cost_cmpntcls_id);
2131: fnd_file.put_line( fnd_file.log, 'C/A Code ['||i||']:'||l_burdens_tab(i).cost_analysis_code);
2132: fnd_file.put_line( fnd_file.log, 'B/Factor ['||i||']:'||l_burdens_tab(i).burden_factor);
2133: END LOOP;
2134: END IF;
2135:
2136: -- Retrieve the cost for each resource. If we can't find a cost for this cost method
2143: -- umoogala: using co_code and default_cost_mthd to get costs for non-lot controlled items.
2144: -- was calendar_code and cost_mthd_code
2145:
2146: IF l_debug_level >= l_debug_level_high THEN
2147: fnd_file.put_line( fnd_file.log,
2148: 'Searching for resource cost using LE: ' || l_le_id ||
2149: ' mthd: ' || l_default_cost_type_id ||
2150: ' rsrc: ' || l_burdens_tab(i).resources ||
2151: ' orgn: ' || l_org_tab(transaction_row.orgn_id) ||
2172:
2173: IF l_burden_cost IS NOT NULL THEN
2174:
2175: IF l_debug_level >= l_debug_level_high THEN
2176: fnd_file.put_line
2177: (fnd_file.log, 'Found cost: '|| l_burden_cost);
2178: END IF;
2179:
2180: l_burdens_tab(i).burden_cost := l_burdens_tab(i).burden_factor * l_burden_cost;
2173: IF l_burden_cost IS NOT NULL THEN
2174:
2175: IF l_debug_level >= l_debug_level_high THEN
2176: fnd_file.put_line
2177: (fnd_file.log, 'Found cost: '|| l_burden_cost);
2178: END IF;
2179:
2180: l_burdens_tab(i).burden_cost := l_burdens_tab(i).burden_factor * l_burden_cost;
2181:
2180: l_burdens_tab(i).burden_cost := l_burdens_tab(i).burden_factor * l_burden_cost;
2181:
2182: ELSE
2183:
2184: fnd_file.put_line
2185: ( fnd_file.log
2186: , 'ERROR: Unable to locate a burden cost. Resource: '
2187: || l_burdens_tab(i).resources
2188: || ', analysis code: '
2181:
2182: ELSE
2183:
2184: fnd_file.put_line
2185: ( fnd_file.log
2186: , 'ERROR: Unable to locate a burden cost. Resource: '
2187: || l_burdens_tab(i).resources
2188: || ', analysis code: '
2189: || l_burdens_tab(i).cost_analysis_code
2208: END LOOP;
2209: END IF;
2210:
2211: IF l_debug_level >= l_debug_level_high THEN
2212: fnd_file.put_line(fnd_file.log,'At end of process_burdens, the burden costs are:');
2213: FOR i IN 1 .. l_burden_costs_tab.COUNT
2214: LOOP
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2211: IF l_debug_level >= l_debug_level_high THEN
2212: fnd_file.put_line(fnd_file.log,'At end of process_burdens, the burden costs are:');
2213: FOR i IN 1 .. l_burden_costs_tab.COUNT
2214: LOOP
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2217: fnd_file.put_line(fnd_file.log,'Level ['||i||']: '||l_burden_costs_tab(i).cost_level);
2218: fnd_file.put_line(fnd_file.log,'C/Cost['||i||']: '||l_burden_costs_tab(i).component_cost);
2219: fnd_file.put_line(fnd_file.log,'====================================');
2212: fnd_file.put_line(fnd_file.log,'At end of process_burdens, the burden costs are:');
2213: FOR i IN 1 .. l_burden_costs_tab.COUNT
2214: LOOP
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2217: fnd_file.put_line(fnd_file.log,'Level ['||i||']: '||l_burden_costs_tab(i).cost_level);
2218: fnd_file.put_line(fnd_file.log,'C/Cost['||i||']: '||l_burden_costs_tab(i).component_cost);
2219: fnd_file.put_line(fnd_file.log,'====================================');
2220: END LOOP;
2213: FOR i IN 1 .. l_burden_costs_tab.COUNT
2214: LOOP
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2217: fnd_file.put_line(fnd_file.log,'Level ['||i||']: '||l_burden_costs_tab(i).cost_level);
2218: fnd_file.put_line(fnd_file.log,'C/Cost['||i||']: '||l_burden_costs_tab(i).component_cost);
2219: fnd_file.put_line(fnd_file.log,'====================================');
2220: END LOOP;
2221: END IF;
2214: LOOP
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2217: fnd_file.put_line(fnd_file.log,'Level ['||i||']: '||l_burden_costs_tab(i).cost_level);
2218: fnd_file.put_line(fnd_file.log,'C/Cost['||i||']: '||l_burden_costs_tab(i).component_cost);
2219: fnd_file.put_line(fnd_file.log,'====================================');
2220: END LOOP;
2221: END IF;
2222:
2215: fnd_file.put_line(fnd_file.log,'CCC/ID['||i||']: '||l_burden_costs_tab(i).cost_cmpntcls_id);
2216: fnd_file.put_line(fnd_file.log,'A/Code['||i||']: '||l_burden_costs_tab(i).cost_analysis_code);
2217: fnd_file.put_line(fnd_file.log,'Level ['||i||']: '||l_burden_costs_tab(i).cost_level);
2218: fnd_file.put_line(fnd_file.log,'C/Cost['||i||']: '||l_burden_costs_tab(i).component_cost);
2219: fnd_file.put_line(fnd_file.log,'====================================');
2220: END LOOP;
2221: END IF;
2222:
2223: IF l_debug_level >= l_debug_level_medium THEN
2220: END LOOP;
2221: END IF;
2222:
2223: IF l_debug_level >= l_debug_level_medium THEN
2224: fnd_file.put_line
2225: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2226: END IF;
2227:
2228: EXCEPTION
2221: END IF;
2222:
2223: IF l_debug_level >= l_debug_level_medium THEN
2224: fnd_file.put_line
2225: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2226: END IF;
2227:
2228: EXCEPTION
2229: WHEN OTHERS THEN
2227:
2228: EXCEPTION
2229: WHEN OTHERS THEN
2230:
2231: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
2232: l_return_status := 'E';
2233:
2234: END process_burdens;
2235:
2261: procedure_name VARCHAR2(100);
2262: BEGIN
2263: procedure_name := 'Create Cost Header';
2264: IF l_debug_level >= l_debug_level_medium THEN
2265: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2266: END IF;
2267:
2268: IF p_unit_cost IS NULL THEN
2269: fnd_file.put_line
2265: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2266: END IF;
2267:
2268: IF p_unit_cost IS NULL THEN
2269: fnd_file.put_line
2270: (fnd_file.log,'ERROR: Could not create cost header for Lot Number '||to_char(transaction_row.lot_number)||' as no cost was available');
2271: fnd_file.put_line
2272: (fnd_file.log,' Transaction type/ID was '||transaction_row.transaction_source_type_id||'/'||to_char(transaction_row.transaction_id));
2273: fnd_file.put_line(fnd_file.log, 'p_unit_cost = '||p_unit_cost);
2266: END IF;
2267:
2268: IF p_unit_cost IS NULL THEN
2269: fnd_file.put_line
2270: (fnd_file.log,'ERROR: Could not create cost header for Lot Number '||to_char(transaction_row.lot_number)||' as no cost was available');
2271: fnd_file.put_line
2272: (fnd_file.log,' Transaction type/ID was '||transaction_row.transaction_source_type_id||'/'||to_char(transaction_row.transaction_id));
2273: fnd_file.put_line(fnd_file.log, 'p_unit_cost = '||p_unit_cost);
2274: x_return_status := 'E';
2267:
2268: IF p_unit_cost IS NULL THEN
2269: fnd_file.put_line
2270: (fnd_file.log,'ERROR: Could not create cost header for Lot Number '||to_char(transaction_row.lot_number)||' as no cost was available');
2271: fnd_file.put_line
2272: (fnd_file.log,' Transaction type/ID was '||transaction_row.transaction_source_type_id||'/'||to_char(transaction_row.transaction_id));
2273: fnd_file.put_line(fnd_file.log, 'p_unit_cost = '||p_unit_cost);
2274: x_return_status := 'E';
2275: RETURN;
2268: IF p_unit_cost IS NULL THEN
2269: fnd_file.put_line
2270: (fnd_file.log,'ERROR: Could not create cost header for Lot Number '||to_char(transaction_row.lot_number)||' as no cost was available');
2271: fnd_file.put_line
2272: (fnd_file.log,' Transaction type/ID was '||transaction_row.transaction_source_type_id||'/'||to_char(transaction_row.transaction_id));
2273: fnd_file.put_line(fnd_file.log, 'p_unit_cost = '||p_unit_cost);
2274: x_return_status := 'E';
2275: RETURN;
2276: END IF;
2269: fnd_file.put_line
2270: (fnd_file.log,'ERROR: Could not create cost header for Lot Number '||to_char(transaction_row.lot_number)||' as no cost was available');
2271: fnd_file.put_line
2272: (fnd_file.log,' Transaction type/ID was '||transaction_row.transaction_source_type_id||'/'||to_char(transaction_row.transaction_id));
2273: fnd_file.put_line(fnd_file.log, 'p_unit_cost = '||p_unit_cost);
2274: x_return_status := 'E';
2275: RETURN;
2276: END IF;
2277:
2275: RETURN;
2276: END IF;
2277:
2278: IF l_debug_level >= l_debug_level_medium THEN
2279: fnd_file.put_line(fnd_file.log,'Inside INSERT HEADER');
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2276: END IF;
2277:
2278: IF l_debug_level >= l_debug_level_medium THEN
2279: fnd_file.put_line(fnd_file.log,'Inside INSERT HEADER');
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2277:
2278: IF l_debug_level >= l_debug_level_medium THEN
2279: fnd_file.put_line(fnd_file.log,'Inside INSERT HEADER');
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2278: IF l_debug_level >= l_debug_level_medium THEN
2279: fnd_file.put_line(fnd_file.log,'Inside INSERT HEADER');
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2279: fnd_file.put_line(fnd_file.log,'Inside INSERT HEADER');
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2280: fnd_file.put_line(fnd_file.log,'Item ID = '||p_item_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2288: fnd_file.put_line(fnd_file.log,'Doc ID = '||p_doc_id);
2281: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_number);
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2288: fnd_file.put_line(fnd_file.log,'Doc ID = '||p_doc_id);
2289: END IF;
2282: fnd_file.put_line(fnd_file.log,'Unit Cost = '||p_unit_cost);
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2288: fnd_file.put_line(fnd_file.log,'Doc ID = '||p_doc_id);
2289: END IF;
2290:
2283: fnd_file.put_line(fnd_file.log,'Cost Date = '||p_cost_date);
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2288: fnd_file.put_line(fnd_file.log,'Doc ID = '||p_doc_id);
2289: END IF;
2290:
2291: INSERT INTO gmf_lot_costs
2284: fnd_file.put_line(fnd_file.log,'Whse Code = '||p_orgn_id);
2285: fnd_file.put_line(fnd_file.log,'Cost Method = '||p_cost_type_id);
2286: fnd_file.put_line(fnd_file.log,'Onhand Qty = '||p_onhand_qty);
2287: fnd_file.put_line(fnd_file.log,'Doc Type = '||p_trx_src_type_id||','||p_txn_act_id);
2288: fnd_file.put_line(fnd_file.log,'Doc ID = '||p_doc_id);
2289: END IF;
2290:
2291: INSERT INTO gmf_lot_costs
2292: ( header_id
2340:
2341: x_return_status := 'S';
2342:
2343: IF l_debug_level >= l_debug_level_medium THEN
2344: fnd_file.put_line
2345: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2346: END IF;
2347:
2348: EXCEPTION
2341: x_return_status := 'S';
2342:
2343: IF l_debug_level >= l_debug_level_medium THEN
2344: fnd_file.put_line
2345: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2346: END IF;
2347:
2348: EXCEPTION
2349:
2347:
2348: EXCEPTION
2349:
2350: WHEN OTHERS THEN
2351: fnd_file.put_line
2352: (fnd_file.log,'ERROR: Unable to create cost header');
2353: fnd_file.put_line
2354: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2355:
2348: EXCEPTION
2349:
2350: WHEN OTHERS THEN
2351: fnd_file.put_line
2352: (fnd_file.log,'ERROR: Unable to create cost header');
2353: fnd_file.put_line
2354: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2355:
2356: x_return_status := 'E';
2349:
2350: WHEN OTHERS THEN
2351: fnd_file.put_line
2352: (fnd_file.log,'ERROR: Unable to create cost header');
2353: fnd_file.put_line
2354: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2355:
2356: x_return_status := 'E';
2357:
2350: WHEN OTHERS THEN
2351: fnd_file.put_line
2352: (fnd_file.log,'ERROR: Unable to create cost header');
2353: fnd_file.put_line
2354: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2355:
2356: x_return_status := 'E';
2357:
2358: END create_cost_header;
2381:
2382: BEGIN
2383: procedure_name := 'Create Cost Detail';
2384: IF l_debug_level >= l_debug_level_medium THEN
2385: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2382: BEGIN
2383: procedure_name := 'Create Cost Detail';
2384: IF l_debug_level >= l_debug_level_medium THEN
2385: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2383: procedure_name := 'Create Cost Detail';
2384: IF l_debug_level >= l_debug_level_medium THEN
2385: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2384: IF l_debug_level >= l_debug_level_medium THEN
2385: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2385: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2393: END IF;
2386: fnd_file.put_line(fnd_file.log,'Inside INSERT DETAIL');
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2393: END IF;
2394:
2387: fnd_file.put_line(fnd_file.log,'Header ID = '||p_header_id);
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2393: END IF;
2394:
2395: INSERT INTO gmf_lot_cost_details
2388: fnd_file.put_line(fnd_file.log,'Component Class ID = '||p_component_class_id);
2389: fnd_file.put_line(fnd_file.log,'Analysis Code = '||p_cost_analysis_code);
2390: fnd_file.put_line(fnd_file.log,'Cost Level = '||p_cost_level);
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2393: END IF;
2394:
2395: INSERT INTO gmf_lot_cost_details
2396: ( header_id
2433:
2434:
2435: x_return_status := 'S';
2436: IF l_debug_level >= l_debug_level_medium THEN
2437: fnd_file.put_line
2438: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2439: END IF;
2440:
2441: EXCEPTION
2434:
2435: x_return_status := 'S';
2436: IF l_debug_level >= l_debug_level_medium THEN
2437: fnd_file.put_line
2438: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2439: END IF;
2440:
2441: EXCEPTION
2442:
2440:
2441: EXCEPTION
2442:
2443: WHEN OTHERS THEN
2444: fnd_file.put_line
2445: (fnd_file.log,'ERROR: Unable to create cost detail');
2446: fnd_file.put_line
2447: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2448:
2441: EXCEPTION
2442:
2443: WHEN OTHERS THEN
2444: fnd_file.put_line
2445: (fnd_file.log,'ERROR: Unable to create cost detail');
2446: fnd_file.put_line
2447: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2448:
2449: x_return_status := 'E';
2442:
2443: WHEN OTHERS THEN
2444: fnd_file.put_line
2445: (fnd_file.log,'ERROR: Unable to create cost detail');
2446: fnd_file.put_line
2447: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2448:
2449: x_return_status := 'E';
2450:
2443: WHEN OTHERS THEN
2444: fnd_file.put_line
2445: (fnd_file.log,'ERROR: Unable to create cost detail');
2446: fnd_file.put_line
2447: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2448:
2449: x_return_status := 'E';
2450:
2451: END create_cost_detail;
2466: BEGIN
2467:
2468: procedure_name := 'Clone Costs';
2469: IF l_debug_level >= l_debug_level_medium THEN
2470: fnd_file.put_line
2471: (fnd_file.log,'Entered Procedure: '||procedure_name);
2472: END IF;
2473:
2474: create_cost_header
2467:
2468: procedure_name := 'Clone Costs';
2469: IF l_debug_level >= l_debug_level_medium THEN
2470: fnd_file.put_line
2471: (fnd_file.log,'Entered Procedure: '||procedure_name);
2472: END IF;
2473:
2474: create_cost_header
2475: ( old_cost.inventory_item_id /*bug 5309434*/
2504: );
2505: END LOOP;
2506: END IF;
2507: IF l_debug_level >= l_debug_level_medium THEN
2508: fnd_file.put_line
2509: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2510: END IF;
2511:
2512: EXCEPTION
2505: END LOOP;
2506: END IF;
2507: IF l_debug_level >= l_debug_level_medium THEN
2508: fnd_file.put_line
2509: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2510: END IF;
2511:
2512: EXCEPTION
2513:
2511:
2512: EXCEPTION
2513:
2514: WHEN OTHERS THEN
2515: fnd_file.put_line(fnd_file.log
2516: , 'ERROR: Could not clone costs '||SQLERRM
2517: );
2518:
2519: l_return_status := 'U';
2546: procedure_name VARCHAR2(100);
2547: BEGIN
2548: procedure_name := 'Create Material Transaction';
2549: IF l_debug_level >= l_debug_level_medium THEN
2550: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2547: BEGIN
2548: procedure_name := 'Create Material Transaction';
2549: IF l_debug_level >= l_debug_level_medium THEN
2550: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2548: procedure_name := 'Create Material Transaction';
2549: IF l_debug_level >= l_debug_level_medium THEN
2550: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2549: IF l_debug_level >= l_debug_level_medium THEN
2550: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2550: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2551: fnd_file.put_line(fnd_file.log,'Creating material transaction with these values:');
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2552: fnd_file.put_line(fnd_file.log,'Header ID :'||p_header_id);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2553: fnd_file.put_line(fnd_file.log,'Cost Method :'||p_cost_type_id);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2554: fnd_file.put_line(fnd_file.log,'Date :'||p_trans_date);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2555: fnd_file.put_line(fnd_file.log,'Trans Qty :'||p_trans_qty);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2556: fnd_file.put_line(fnd_file.log,'UoM :'||p_trans_um);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2564: fnd_file.put_line(fnd_file.log,'Lot Number :'||p_lot_number);
2557: fnd_file.put_line(fnd_file.log,'Total Cost :'||p_total_cost);
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2564: fnd_file.put_line(fnd_file.log,'Lot Number :'||p_lot_number);
2565: END IF;
2558: fnd_file.put_line(fnd_file.log,'Trans ID :'||p_trans_id);
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2564: fnd_file.put_line(fnd_file.log,'Lot Number :'||p_lot_number);
2565: END IF;
2566:
2559: fnd_file.put_line(fnd_file.log,'Unit Cost :'||p_unit_cost);
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2564: fnd_file.put_line(fnd_file.log,'Lot Number :'||p_lot_number);
2565: END IF;
2566:
2567: INSERT INTO gmf_material_lot_cost_txns
2560: fnd_file.put_line(fnd_file.log,'Onhand Qty :'||p_onhand_qty);
2561: fnd_file.put_line(fnd_file.log,'Old Unit Cost :'||p_old_unit_cost);
2562: fnd_file.put_line(fnd_file.log,'Old Onhand Qty :'||p_old_onhand_qty);
2563: fnd_file.put_line(fnd_file.log,'New Cost Ind :'||p_new_cost_ind);
2564: fnd_file.put_line(fnd_file.log,'Lot Number :'||p_lot_number);
2565: END IF;
2566:
2567: INSERT INTO gmf_material_lot_cost_txns
2568: ( cost_trans_id
2616: );
2617: x_return_status := 'S';
2618:
2619: IF l_debug_level >= l_debug_level_medium THEN
2620: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN OTHERS THEN
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN OTHERS THEN
2625: fnd_file.put_line
2626: (fnd_file.log,'ERROR: Unable to create material cost transaction');
2627: fnd_file.put_line
2628: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2629:
2622:
2623: EXCEPTION
2624: WHEN OTHERS THEN
2625: fnd_file.put_line
2626: (fnd_file.log,'ERROR: Unable to create material cost transaction');
2627: fnd_file.put_line
2628: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2629:
2630: x_return_status := 'E';
2623: EXCEPTION
2624: WHEN OTHERS THEN
2625: fnd_file.put_line
2626: (fnd_file.log,'ERROR: Unable to create material cost transaction');
2627: fnd_file.put_line
2628: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2629:
2630: x_return_status := 'E';
2631:
2624: WHEN OTHERS THEN
2625: fnd_file.put_line
2626: (fnd_file.log,'ERROR: Unable to create material cost transaction');
2627: fnd_file.put_line
2628: (fnd_file.log,SQLERRM || ' in ' || procedure_name);
2629:
2630: x_return_status := 'E';
2631:
2632: END create_material_transaction;
2723: BEGIN
2724:
2725: procedure_name := 'Process Special Charges';
2726: IF l_debug_level >= l_debug_level_medium THEN
2727: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2728: END IF;
2729:
2730: l_acquisitions_total := 0;
2731:
2754: l_acq_tab(i).component_cost := l_acquisition_cost;
2755:
2756: IF ((l_acquisition_cost = -99999) OR (SIGN(l_acq_tab(i).component_cost)<> SIGN (l_acquisition_cost)))
2757: THEN
2758: fnd_file.put_line
2759: (fnd_file.log,'ERROR: Unable to convert from '
2760: ||transaction_row.trans_um
2761: ||' to '||l_from_uom||' for transaction ID '
2762: ||transaction_row.transaction_id
2755:
2756: IF ((l_acquisition_cost = -99999) OR (SIGN(l_acq_tab(i).component_cost)<> SIGN (l_acquisition_cost)))
2757: THEN
2758: fnd_file.put_line
2759: (fnd_file.log,'ERROR: Unable to convert from '
2760: ||transaction_row.trans_um
2761: ||' to '||l_from_uom||' for transaction ID '
2762: ||transaction_row.transaction_id
2763: ||' aqui component cost '|| l_acq_tab(i).component_cost
2778: */
2779: IF ( l_base_ccy_code <> receipt_ccy AND l_acq_tab(i).lcm_flag = 0) THEN /* Check if the receipt currency is the same as the base currency */
2780:
2781: IF l_debug_level >= l_debug_level_medium THEN
2782: fnd_file.put_line (fnd_file.log,'
2783: In Acquisition Costs() : Converting component_cost : '||
2784: NVL(l_acq_tab(i).component_cost,0)||' Receipt Currency : '||receipt_ccy||
2785: ' to Base Currency : '||l_base_ccy_code||'. New component_cost : '||
2786: NVL(l_acq_tab(i).component_cost,0) * l_exchange_rate||'. Exchange Rate is : '||l_exchange_rate);
2811: END LOOP;
2812: END IF;
2813:
2814: IF l_debug_level >= l_debug_level_medium THEN
2815: fnd_file.put_line(fnd_file.log,'At end of get_special_charges, the costs are:');
2816: FOR i IN 1 .. l_acqui_cost_tab.COUNT
2817: LOOP
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2814: IF l_debug_level >= l_debug_level_medium THEN
2815: fnd_file.put_line(fnd_file.log,'At end of get_special_charges, the costs are:');
2816: FOR i IN 1 .. l_acqui_cost_tab.COUNT
2817: LOOP
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2820: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||l_acqui_cost_tab(i).cost_level);
2821: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_acqui_cost_tab(i).component_cost);
2822: fnd_file.put_line(fnd_file.log,'====================================');
2815: fnd_file.put_line(fnd_file.log,'At end of get_special_charges, the costs are:');
2816: FOR i IN 1 .. l_acqui_cost_tab.COUNT
2817: LOOP
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2820: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||l_acqui_cost_tab(i).cost_level);
2821: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_acqui_cost_tab(i).component_cost);
2822: fnd_file.put_line(fnd_file.log,'====================================');
2823:
2816: FOR i IN 1 .. l_acqui_cost_tab.COUNT
2817: LOOP
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2820: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||l_acqui_cost_tab(i).cost_level);
2821: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_acqui_cost_tab(i).component_cost);
2822: fnd_file.put_line(fnd_file.log,'====================================');
2823:
2824: END LOOP;
2817: LOOP
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2820: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||l_acqui_cost_tab(i).cost_level);
2821: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_acqui_cost_tab(i).component_cost);
2822: fnd_file.put_line(fnd_file.log,'====================================');
2823:
2824: END LOOP;
2825: END IF;
2818: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_acqui_cost_tab(i).cost_cmpntcls_id);
2819: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_acqui_cost_tab(i).cost_analysis_code);
2820: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||l_acqui_cost_tab(i).cost_level);
2821: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_acqui_cost_tab(i).component_cost);
2822: fnd_file.put_line(fnd_file.log,'====================================');
2823:
2824: END LOOP;
2825: END IF;
2826:
2824: END LOOP;
2825: END IF;
2826:
2827: IF l_debug_level >= l_debug_level_medium THEN
2828: fnd_file.put_line
2829: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2830: END IF;
2831:
2832: EXCEPTION
2825: END IF;
2826:
2827: IF l_debug_level >= l_debug_level_medium THEN
2828: fnd_file.put_line
2829: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2830: END IF;
2831:
2832: EXCEPTION
2833: WHEN OTHERS THEN
2830: END IF;
2831:
2832: EXCEPTION
2833: WHEN OTHERS THEN
2834: fnd_file.put_line(fnd_file.log,procedure_name||':'||SQLERRM);
2835: END get_special_charges;
2836:
2837: --*************************************************************************************
2838: --* Procedure Name : PROCESS_ADJUSTMENT
2856: BEGIN
2857:
2858: procedure_name := 'Process Adjustment';
2859: IF l_debug_level >= l_debug_level_medium THEN
2860: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2861: fnd_file.put_line
2862: (fnd_file.log,'Updating lot cost header with trans_qty of '||transaction_row.trans_qty);
2863: END IF;
2864:
2857:
2858: procedure_name := 'Process Adjustment';
2859: IF l_debug_level >= l_debug_level_medium THEN
2860: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2861: fnd_file.put_line
2862: (fnd_file.log,'Updating lot cost header with trans_qty of '||transaction_row.trans_qty);
2863: END IF;
2864:
2865: -- This procedure is used if the lot being adjusted has a lot cost. Lots being created
2858: procedure_name := 'Process Adjustment';
2859: IF l_debug_level >= l_debug_level_medium THEN
2860: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
2861: fnd_file.put_line
2862: (fnd_file.log,'Updating lot cost header with trans_qty of '||transaction_row.trans_qty);
2863: END IF;
2864:
2865: -- This procedure is used if the lot being adjusted has a lot cost. Lots being created
2866: -- via ADJx transactions are handled by the process_creation procedure (above).
2885: WHERE header_id = old_cost.header_id;
2886:
2887: IF SQL%ROWCOUNT = 1 THEN
2888: IF l_debug_level >= l_debug_level_medium THEN
2889: fnd_file.put_line
2890: (fnd_file.log,'Creating new cost transaction');
2891: END IF;
2892:
2893: l_header_id := old_cost.header_id;
2886:
2887: IF SQL%ROWCOUNT = 1 THEN
2888: IF l_debug_level >= l_debug_level_medium THEN
2889: fnd_file.put_line
2890: (fnd_file.log,'Creating new cost transaction');
2891: END IF;
2892:
2893: l_header_id := old_cost.header_id;
2894:
2916: l_return_status := 'E';
2917: RETURN;
2918: END IF;
2919: IF l_debug_level >= l_debug_level_medium THEN
2920: fnd_file.put_line
2921: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2922: END IF;
2923:
2924: EXCEPTION
2917: RETURN;
2918: END IF;
2919: IF l_debug_level >= l_debug_level_medium THEN
2920: fnd_file.put_line
2921: (fnd_file.log,'Leaving Procedure: '||procedure_name);
2922: END IF;
2923:
2924: EXCEPTION
2925: WHEN OTHERS THEN
2922: END IF;
2923:
2924: EXCEPTION
2925: WHEN OTHERS THEN
2926: fnd_file.put_line
2927: (fnd_file.log,'Failed in procedure process_adjustment with error');
2928: fnd_file.put_line
2929: (fnd_file.log,SQLERRM);
2930: l_return_status := 'U';
2923:
2924: EXCEPTION
2925: WHEN OTHERS THEN
2926: fnd_file.put_line
2927: (fnd_file.log,'Failed in procedure process_adjustment with error');
2928: fnd_file.put_line
2929: (fnd_file.log,SQLERRM);
2930: l_return_status := 'U';
2931:
2924: EXCEPTION
2925: WHEN OTHERS THEN
2926: fnd_file.put_line
2927: (fnd_file.log,'Failed in procedure process_adjustment with error');
2928: fnd_file.put_line
2929: (fnd_file.log,SQLERRM);
2930: l_return_status := 'U';
2931:
2932: END process_adjustment;
2925: WHEN OTHERS THEN
2926: fnd_file.put_line
2927: (fnd_file.log,'Failed in procedure process_adjustment with error');
2928: fnd_file.put_line
2929: (fnd_file.log,SQLERRM);
2930: l_return_status := 'U';
2931:
2932: END process_adjustment;
2933:
3033: BEGIN
3034:
3035: procedure_name := 'Process Reversals';
3036: IF l_debug_level >= l_debug_level_medium THEN
3037: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
3038: END IF;
3039:
3040: --
3041: -- Running this loop only twice to see two previous cost rows.
3061: THEN
3062: -- Other types of txns after original yield. So, process this reversal
3063: -- as regular adjustment. This will result in incorrect avg costs. known issue
3064: IF l_debug_level >= l_debug_level_medium THEN
3065: fnd_file.put_line
3066: (fnd_file.log,'Reversals: Processing reversal as regular adjustment');
3067: END IF;
3068:
3069: process_adjustment;
3062: -- Other types of txns after original yield. So, process this reversal
3063: -- as regular adjustment. This will result in incorrect avg costs. known issue
3064: IF l_debug_level >= l_debug_level_medium THEN
3065: fnd_file.put_line
3066: (fnd_file.log,'Reversals: Processing reversal as regular adjustment');
3067: END IF;
3068:
3069: process_adjustment;
3070: RETURN;
3076: -- set cost and onhand qty to zero assuming no previous costs.
3077: -- if prev costs exists, then we'll use those costs and qty, but will
3078: -- get set in the else block below in the 2nd iteration.
3079: IF l_debug_level >= l_debug_level_low THEN
3080: fnd_file.put_line
3081: (fnd_file.log, 'Reversals: This txn is (pure) reversal of previous txn');
3082: END IF;
3083:
3084: l_prev_header_id := i.prev_header_id;
3077: -- if prev costs exists, then we'll use those costs and qty, but will
3078: -- get set in the else block below in the 2nd iteration.
3079: IF l_debug_level >= l_debug_level_low THEN
3080: fnd_file.put_line
3081: (fnd_file.log, 'Reversals: This txn is (pure) reversal of previous txn');
3082: END IF;
3083:
3084: l_prev_header_id := i.prev_header_id;
3085: l_cost_header_id := i.prev_header_id; /* will be used to insert in material txns table */
3097: --
3098: -- Will come here if there any old costs before original yield.
3099: --
3100: IF l_debug_level >= l_debug_level_low THEN
3101: fnd_file.put_line
3102: (fnd_file.log,'Reversals: costs exists prior to original yield');
3103: END IF;
3104: l_prev_header_id := i.prev_header_id;
3105: l_prev_prev_header_id := i.prev_header_id;
3098: -- Will come here if there any old costs before original yield.
3099: --
3100: IF l_debug_level >= l_debug_level_low THEN
3101: fnd_file.put_line
3102: (fnd_file.log,'Reversals: costs exists prior to original yield');
3103: END IF;
3104: l_prev_header_id := i.prev_header_id;
3105: l_prev_prev_header_id := i.prev_header_id;
3106: l_prev_unit_cost := i.prev_unit_cost;
3119: END LOOP;
3120:
3121:
3122: IF l_debug_level >= l_debug_level_low THEN
3123: fnd_file.put_line
3124: (fnd_file.log,'Reversals: setting unit cost to ' || l_prev_unit_cost ||
3125: ' and qty to ' || (old_cost.onhand_qty + transaction_row.trans_qty));
3126: END IF;
3127:
3120:
3121:
3122: IF l_debug_level >= l_debug_level_low THEN
3123: fnd_file.put_line
3124: (fnd_file.log,'Reversals: setting unit cost to ' || l_prev_unit_cost ||
3125: ' and qty to ' || (old_cost.onhand_qty + transaction_row.trans_qty));
3126: END IF;
3127:
3128: IF l_prev_cost_cnt = 0 THEN
3125: ' and qty to ' || (old_cost.onhand_qty + transaction_row.trans_qty));
3126: END IF;
3127:
3128: IF l_prev_cost_cnt = 0 THEN
3129: fnd_file.put_line
3130: (fnd_file.log,'ERROR: Failed to retrieve previous costs in Process Reversals');
3131: RETURN;
3132: END IF;
3133:
3126: END IF;
3127:
3128: IF l_prev_cost_cnt = 0 THEN
3129: fnd_file.put_line
3130: (fnd_file.log,'ERROR: Failed to retrieve previous costs in Process Reversals');
3131: RETURN;
3132: END IF;
3133:
3134: create_cost_header
3150:
3151:
3152: IF l_return_status = 'S' THEN
3153: IF l_debug_level >= l_debug_level_low THEN
3154: fnd_file.put_line
3155: (fnd_file.log,'Reversals: Creating new cost detail row');
3156: END IF;
3157:
3158: FOR j in get_cost_details_cur(l_prev_header_id)
3151:
3152: IF l_return_status = 'S' THEN
3153: IF l_debug_level >= l_debug_level_low THEN
3154: fnd_file.put_line
3155: (fnd_file.log,'Reversals: Creating new cost detail row');
3156: END IF;
3157:
3158: FOR j in get_cost_details_cur(l_prev_header_id)
3159: LOOP
3179:
3180: IF l_return_status = 'S' THEN
3181:
3182: IF l_debug_level >= l_debug_level_medium THEN
3183: fnd_file.put_line
3184: (fnd_file.log,'Reversals: Creating new material cost transaction. the l_prev_prev_header_id is '||l_prev_prev_header_id||' and l_cost_header_id '||l_cost_header_id);
3185: END IF;
3186:
3187: SELECT NVL(SUM(component_cost),0)
3180: IF l_return_status = 'S' THEN
3181:
3182: IF l_debug_level >= l_debug_level_medium THEN
3183: fnd_file.put_line
3184: (fnd_file.log,'Reversals: Creating new material cost transaction. the l_prev_prev_header_id is '||l_prev_prev_header_id||' and l_cost_header_id '||l_cost_header_id);
3185: END IF;
3186:
3187: SELECT NVL(SUM(component_cost),0)
3188: INTO l_prev_trans_unit_cost
3216: END IF;
3217:
3218: EXCEPTION
3219: WHEN OTHERS
3220: THEN fnd_file.put_line
3221: (fnd_file.log,'Failed in procedure process_reversals with error');
3222: fnd_file.put_line
3223: (fnd_file.log,SQLERRM);
3224: l_return_status := 'U';
3217:
3218: EXCEPTION
3219: WHEN OTHERS
3220: THEN fnd_file.put_line
3221: (fnd_file.log,'Failed in procedure process_reversals with error');
3222: fnd_file.put_line
3223: (fnd_file.log,SQLERRM);
3224: l_return_status := 'U';
3225: END process_reversals;
3218: EXCEPTION
3219: WHEN OTHERS
3220: THEN fnd_file.put_line
3221: (fnd_file.log,'Failed in procedure process_reversals with error');
3222: fnd_file.put_line
3223: (fnd_file.log,SQLERRM);
3224: l_return_status := 'U';
3225: END process_reversals;
3226:
3219: WHEN OTHERS
3220: THEN fnd_file.put_line
3221: (fnd_file.log,'Failed in procedure process_reversals with error');
3222: fnd_file.put_line
3223: (fnd_file.log,SQLERRM);
3224: l_return_status := 'U';
3225: END process_reversals;
3226:
3227: --************************************************************************************************
3306:
3307: BEGIN
3308: procedure_name := 'Process Reversals2';
3309: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
3310: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
3311: fnd_file.put_line(fnd_file.log,'Reversals2 getting orig_trx for txn_id '||transaction_row.reverse_id);
3312: END IF;
3313:
3314: -- Bug 9239944
3307: BEGIN
3308: procedure_name := 'Process Reversals2';
3309: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
3310: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
3311: fnd_file.put_line(fnd_file.log,'Reversals2 getting orig_trx for txn_id '||transaction_row.reverse_id);
3312: END IF;
3313:
3314: -- Bug 9239944
3315: IF transaction_row.reverse_id IS NULL THEN
3316: -- WIP completion Return for products
3317: orig_completion_transid := 0 ;
3318:
3319: IF l_debug_level >= l_debug_level_medium THEN
3320: fnd_file.put_line
3321: (fnd_file.log,'WIP Product Return transaction ID = '||to_char(transaction_row.transaction_id)
3322: || ' Batch No(Batch_ID) '||l_batch_no||'('||to_char(transaction_row.doc_id)||')'
3323: || ' Material Line Id ' || transaction_row.line_id
3324: || ' Quanity ' || transaction_row.trans_qty ||' UOM '||transaction_row.trans_um );
3317: orig_completion_transid := 0 ;
3318:
3319: IF l_debug_level >= l_debug_level_medium THEN
3320: fnd_file.put_line
3321: (fnd_file.log,'WIP Product Return transaction ID = '||to_char(transaction_row.transaction_id)
3322: || ' Batch No(Batch_ID) '||l_batch_no||'('||to_char(transaction_row.doc_id)||')'
3323: || ' Material Line Id ' || transaction_row.line_id
3324: || ' Quanity ' || transaction_row.trans_qty ||' UOM '||transaction_row.trans_um );
3325:
3329: FETCH get_last_wipcompletion INTO orig_completion_transid ;
3330:
3331: IF(get_last_wipcompletion%NOTFOUND) THEN
3332: CLOSE get_last_wipcompletion;
3333: fnd_file.put_line(fnd_file.log,'Reversals2: Error in locating the Last WIP completion ');
3334: l_return_status := 'E';
3335: RETURN;
3336: END IF;
3337: CLOSE get_last_wipcompletion;
3346: FETCH get_orig_trx INTO l_orig_trx_header_id, l_orig_trx_new_cost_ind;
3347:
3348: IF(get_orig_trx%NOTFOUND) THEN
3349: CLOSE get_orig_trx;
3350: fnd_file.put_line(fnd_file.log,'Reversals2: Error in locating the original trx '||transaction_row.reverse_id||' of transaction'||transaction_row.transaction_id);
3351: l_return_status := 'E';
3352: RETURN;
3353: END IF;
3354: CLOSE get_orig_trx;
3353: END IF;
3354: CLOSE get_orig_trx;
3355:
3356: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
3357: fnd_file.put_line(fnd_file.log,'After get_orig_trx cost header_id '||l_orig_trx_header_id);
3358: END IF;
3359:
3360: /* l_orig_trx_header_id directly points to trx cost. and it can be negative */
3361: OPEN lot_cost_detail_cursor(l_orig_trx_header_id);
3362: FETCH lot_cost_detail_cursor BULK COLLECT INTO orig_trx_cost_tab;
3363:
3364: IF(orig_trx_cost_tab.COUNT = 0) THEN
3365: CLOSE lot_cost_detail_cursor;
3366: fnd_file.put_line(fnd_file.log,'Reversals2: Error in locating the cost detail for orig_trx '||transaction_row.reverse_id);
3367: l_return_status := 'E';
3368: RETURN;
3369: END IF;
3370: CLOSE lot_cost_detail_cursor;
3397:
3398: IF(SQL%ROWCOUNT = 1) THEN
3399: l_return_status := 'S';
3400: ELSE
3401: fnd_file.put_line(fnd_file.log,'Reversals2: Error in updating gmf_lot_costs for transaction_id: '||to_char(transaction_row.transaction_id));
3402: l_return_status := 'E';
3403: RETURN;
3404: END IF;
3405:
3427:
3428:
3429: IF l_return_status = 'S' THEN
3430: IF l_debug_level >= l_debug_level_medium THEN
3431: fnd_file.put_line(fnd_file.log,'Reversals2: Creating new cost detail row');
3432: END IF;
3433:
3434: FOR i in 1..new_cost_tab.COUNT
3435: LOOP
3480: END LOOP;
3481: */
3482:
3483: IF l_debug_level >= l_debug_level_medium THEN
3484: fnd_file.put_line
3485: (fnd_file.log,'Reversals2: Creating new material cost transaction. The orig_header_id is '||l_orig_trx_header_id||' and l_header_id '||l_header_id);
3486: END IF;
3487: -- PK Bug 8730374 pass ABS when creating material transaction.
3488: create_material_transaction
3481: */
3482:
3483: IF l_debug_level >= l_debug_level_medium THEN
3484: fnd_file.put_line
3485: (fnd_file.log,'Reversals2: Creating new material cost transaction. The orig_header_id is '||l_orig_trx_header_id||' and l_header_id '||l_header_id);
3486: END IF;
3487: -- PK Bug 8730374 pass ABS when creating material transaction.
3488: create_material_transaction
3489: ( l_header_id --ABS(l_orig_trx_header_id) /*Bug 13528789 */
3503: );
3504:
3505:
3506: IF l_return_status <> 'S' THEN
3507: fnd_file.put_line(fnd_file.log,'Reversals2: Error in creating material_transaction for '||to_char(transaction_row.transaction_id));
3508: RETURN;
3509: END IF;
3510:
3511: ELSE
3508: RETURN;
3509: END IF;
3510:
3511: ELSE
3512: fnd_file.put_line(fnd_file.log,'Reversals2: Error in creating Cost Header/Detail for transaction '||to_char(transaction_row.transaction_id));
3513: RETURN;
3514: END IF;
3515: IF l_debug_level >= l_debug_level_medium THEN
3516: fnd_file.put_line
3512: fnd_file.put_line(fnd_file.log,'Reversals2: Error in creating Cost Header/Detail for transaction '||to_char(transaction_row.transaction_id));
3513: RETURN;
3514: END IF;
3515: IF l_debug_level >= l_debug_level_medium THEN
3516: fnd_file.put_line
3517: (fnd_file.log,'Leaving Procedure: '||procedure_name);
3518: END IF;
3519:
3520: EXCEPTION
3513: RETURN;
3514: END IF;
3515: IF l_debug_level >= l_debug_level_medium THEN
3516: fnd_file.put_line
3517: (fnd_file.log,'Leaving Procedure: '||procedure_name);
3518: END IF;
3519:
3520: EXCEPTION
3521: WHEN OTHERS THEN fnd_file.put_line
3517: (fnd_file.log,'Leaving Procedure: '||procedure_name);
3518: END IF;
3519:
3520: EXCEPTION
3521: WHEN OTHERS THEN fnd_file.put_line
3522: (fnd_file.log,'Failed in procedure process_reversals2 with error');
3523: fnd_file.put_line(fnd_file.log,SQLERRM);
3524: l_return_status := 'U';
3525: END PROCESS_REVERSALS2;
3518: END IF;
3519:
3520: EXCEPTION
3521: WHEN OTHERS THEN fnd_file.put_line
3522: (fnd_file.log,'Failed in procedure process_reversals2 with error');
3523: fnd_file.put_line(fnd_file.log,SQLERRM);
3524: l_return_status := 'U';
3525: END PROCESS_REVERSALS2;
3526:
3519:
3520: EXCEPTION
3521: WHEN OTHERS THEN fnd_file.put_line
3522: (fnd_file.log,'Failed in procedure process_reversals2 with error');
3523: fnd_file.put_line(fnd_file.log,SQLERRM);
3524: l_return_status := 'U';
3525: END PROCESS_REVERSALS2;
3526:
3527: --**********************************************************************************************
3581:
3582: BEGIN
3583: procedure_name := 'Process Movement';
3584: IF l_debug_level >= l_debug_level_medium THEN
3585: fnd_file.put_line
3586: (fnd_file.log,'Entered Procedure: '||procedure_name);
3587: END IF;
3588: -- This procedure is only called when the source and target organizations differ.
3589:
3582: BEGIN
3583: procedure_name := 'Process Movement';
3584: IF l_debug_level >= l_debug_level_medium THEN
3585: fnd_file.put_line
3586: (fnd_file.log,'Entered Procedure: '||procedure_name);
3587: END IF;
3588: -- This procedure is only called when the source and target organizations differ.
3589:
3590: -- If this is a debit on the source organization (line type = -1) this is equivalent to an adjustment
3605: -- This is the credit on the target organization. Retrieve the costs from the source organization.
3606: -- This section also caters for line type 0 (used in PORC transactions for internal orders)
3607:
3608: IF l_debug_level >= l_debug_level_medium THEN
3609: fnd_file.put_line(fnd_file.log,'At start of Process Movement, new_cost_tab is:');
3610: IF new_cost_tab.EXISTS(1) THEN
3611: FOR k IN 1 .. new_cost_tab.COUNT
3612: LOOP
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3609: fnd_file.put_line(fnd_file.log,'At start of Process Movement, new_cost_tab is:');
3610: IF new_cost_tab.EXISTS(1) THEN
3611: FOR k IN 1 .. new_cost_tab.COUNT
3612: LOOP
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3614: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3615: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3610: IF new_cost_tab.EXISTS(1) THEN
3611: FOR k IN 1 .. new_cost_tab.COUNT
3612: LOOP
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3614: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3615: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3618: END LOOP;
3611: FOR k IN 1 .. new_cost_tab.COUNT
3612: LOOP
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3614: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3615: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3618: END LOOP;
3619: ELSE
3612: LOOP
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3614: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3615: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3618: END LOOP;
3619: ELSE
3620: fnd_file.put_line(fnd_file.log,'EMPTY');
3613: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3614: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3615: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3618: END LOOP;
3619: ELSE
3620: fnd_file.put_line(fnd_file.log,'EMPTY');
3621: END IF;
3616: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3617: fnd_file.put_line(fnd_file.log,'====================================');
3618: END LOOP;
3619: ELSE
3620: fnd_file.put_line(fnd_file.log,'EMPTY');
3621: END IF;
3622: END IF;
3623: -- As there is a chance that the two organizations could be in separate companies we need to do something
3624: -- to ensure we can locate a cost for the sending transaction. If the two companies involved are the same
3628: l_source_ou := org_coll_tab(p_source_orgn).ou_id ;
3629: l_target_ou := org_coll_tab(p_target_orgn).ou_id ;
3630:
3631: IF l_debug_level >= l_debug_level_medium THEN
3632: fnd_file.put_line(fnd_file.log,'l_source_ou =' || l_source_ou || ' l_target_ou=' || l_target_ou);
3633: END IF;
3634:
3635: --Begin Bug 9561690
3636: /* SELECT to_number(org_information3)
3678: prd_cost_tab := new_cost_tab; /* Bug 11929896 */
3679:
3680:
3681: IF l_debug_level >= l_debug_level_medium THEN
3682: fnd_file.put_line(fnd_file.log,'Intercompany transfer Transaction_id '||transaction_row.transaction_id||' Transfer Price '||l_unit_cost);
3683: fnd_file.put_line(fnd_file.log,'Fiscal Policy cost component '||l_ccc_id||' Analysis Code '||l_a_code||' Origin Le '||p_source_le||' Destination Le '||p_target_le);
3684: END IF;
3685:
3686: -- PK Bug Bug 9356358 / 12.1 Bug 9400419 Comment out Old code
3679:
3680:
3681: IF l_debug_level >= l_debug_level_medium THEN
3682: fnd_file.put_line(fnd_file.log,'Intercompany transfer Transaction_id '||transaction_row.transaction_id||' Transfer Price '||l_unit_cost);
3683: fnd_file.put_line(fnd_file.log,'Fiscal Policy cost component '||l_ccc_id||' Analysis Code '||l_a_code||' Origin Le '||p_source_le||' Destination Le '||p_target_le);
3684: END IF;
3685:
3686: -- PK Bug Bug 9356358 / 12.1 Bug 9400419 Comment out Old code
3687:
3717: ,v_status => retval
3718: );
3719: IF retval <> 0 THEN
3720: l_return_status := 'E';
3721: fnd_file.put_line
3722: (fnd_file.log,'ERROR: Failed to retrieve single cost component in source organization '||l_org_tab(p_source_orgn));
3723: RETURN;
3724: ELSE
3725: -- Procedure doesn't return burden ind so coerce it to zero.
3718: );
3719: IF retval <> 0 THEN
3720: l_return_status := 'E';
3721: fnd_file.put_line
3722: (fnd_file.log,'ERROR: Failed to retrieve single cost component in source organization '||l_org_tab(p_source_orgn));
3723: RETURN;
3724: ELSE
3725: -- Procedure doesn't return burden ind so coerce it to zero.
3726: new_cost_tab(i) := SYSTEM.gmf_cost_type ( l_ccc_id, l_a_code, 0, l_unit_cost, 0);
3733: OPEN component_class_cursor( p_target_le,transaction_row.inventory_item_id,p_target_orgn,p_trans_date);
3734: FETCH component_class_cursor INTO l_ccc_id,l_a_code,dummy;
3735: IF (component_class_cursor%NOTFOUND) THEN
3736: l_return_status := 'E';
3737: fnd_file.put_line
3738: (fnd_file.log,'ERROR: Failed to retrieve cost multiple components in source organization '||l_org_tab(p_source_orgn));
3739: CLOSE component_class_cursor;
3740: RETURN;
3741: END IF;
3734: FETCH component_class_cursor INTO l_ccc_id,l_a_code,dummy;
3735: IF (component_class_cursor%NOTFOUND) THEN
3736: l_return_status := 'E';
3737: fnd_file.put_line
3738: (fnd_file.log,'ERROR: Failed to retrieve cost multiple components in source organization '||l_org_tab(p_source_orgn));
3739: CLOSE component_class_cursor;
3740: RETURN;
3741: END IF;
3742: END IF; */
3761: IF new_cost.header_id IS NULL THEN
3762: l_org_code := NULL;
3763: l_item_no := NULL;
3764: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_org_code, l_item_no) ;
3765: fnd_file.put_line
3766: ( fnd_file.log,'ERROR: Unable to locate cost header for organization: '||l_org_tab(p_source_orgn)
3767: || ', item ID: '||transaction_row.inventory_item_id||'('||l_item_no||')'
3768: ||', lot Number: '||transaction_row.lot_number
3769: );
3762: l_org_code := NULL;
3763: l_item_no := NULL;
3764: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_org_code, l_item_no) ;
3765: fnd_file.put_line
3766: ( fnd_file.log,'ERROR: Unable to locate cost header for organization: '||l_org_tab(p_source_orgn)
3767: || ', item ID: '||transaction_row.inventory_item_id||'('||l_item_no||')'
3768: ||', lot Number: '||transaction_row.lot_number
3769: );
3770: l_return_status := 'E';
3777: END IF;
3778:
3779:
3780: IF l_debug_level >= l_debug_level_medium THEN
3781: fnd_file.put_line(fnd_file.log,'After reading costs from source organization, new_cost_tab is:');
3782: FOR k IN 1 .. new_cost_tab.COUNT
3783: LOOP
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3780: IF l_debug_level >= l_debug_level_medium THEN
3781: fnd_file.put_line(fnd_file.log,'After reading costs from source organization, new_cost_tab is:');
3782: FOR k IN 1 .. new_cost_tab.COUNT
3783: LOOP
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3786: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3787: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3788: fnd_file.put_line(fnd_file.log,'====================================');
3781: fnd_file.put_line(fnd_file.log,'After reading costs from source organization, new_cost_tab is:');
3782: FOR k IN 1 .. new_cost_tab.COUNT
3783: LOOP
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3786: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3787: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3788: fnd_file.put_line(fnd_file.log,'====================================');
3789: END LOOP;
3782: FOR k IN 1 .. new_cost_tab.COUNT
3783: LOOP
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3786: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3787: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3788: fnd_file.put_line(fnd_file.log,'====================================');
3789: END LOOP;
3790: END IF;
3783: LOOP
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3786: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3787: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3788: fnd_file.put_line(fnd_file.log,'====================================');
3789: END LOOP;
3790: END IF;
3791:
3784: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
3785: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
3786: fnd_file.put_line(fnd_file.log,'Level ['||k||']: '||new_cost_tab(k).cost_level);
3787: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
3788: fnd_file.put_line(fnd_file.log,'====================================');
3789: END LOOP;
3790: END IF;
3791:
3792:
3793: IF NOT new_cost_tab.EXISTS(1) THEN
3794: l_org_code := NULL;
3795: l_item_no := NULL;
3796: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_org_code, l_item_no) ;
3797: fnd_file.put_line
3798: ( fnd_file.log,'ERROR: Unable to locate source cost details for organization: '||l_org_tab(p_source_orgn)
3799: ||', inventory item ID: '||transaction_row.inventory_item_id||'('||l_item_no||')'
3800: ||', lot number: '||transaction_row.lot_number /* INVCONV sschinch */
3801: );
3794: l_org_code := NULL;
3795: l_item_no := NULL;
3796: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_org_code, l_item_no) ;
3797: fnd_file.put_line
3798: ( fnd_file.log,'ERROR: Unable to locate source cost details for organization: '||l_org_tab(p_source_orgn)
3799: ||', inventory item ID: '||transaction_row.inventory_item_id||'('||l_item_no||')'
3800: ||', lot number: '||transaction_row.lot_number /* INVCONV sschinch */
3801: );
3802: l_return_status := 'E';
3808:
3809: OPEN get_src_qty_uom;
3810: FETCH get_src_qty_uom INTO l_src_qty, l_src_uom;
3811: IF get_src_qty_uom%NOTFOUND THEN
3812: fnd_file.put_line( fnd_file.log,'ERROR: Unable to locate source primary quantity and primary uom for the transfer transaction id: '||
3813: transaction_row.transfer_transaction_id);
3814: l_return_status := 'E';
3815: CLOSE get_src_qty_uom;
3816: RETURN;
3818: CLOSE get_src_qty_uom;
3819:
3820: IF l_src_uom <> transaction_row.trans_um THEN
3821: IF l_debug_level >= l_debug_level_medium THEN
3822: fnd_file.put_line( fnd_file.log,'Source primary uom: '||l_src_uom||' and Receiving primary uom: '||transaction_row.trans_um||
3823: ' are different');
3824: END IF;
3825:
3826: IF transaction_row.trans_qty <> 0 THEN
3826: IF transaction_row.trans_qty <> 0 THEN
3827: l_cost_ratio := (l_src_qty * -1)/transaction_row.trans_qty;
3828:
3829: IF l_debug_level >= l_debug_level_medium THEN
3830: fnd_file.put_line(fnd_file.log,'Source primary qty: '||l_src_qty||', Receiving primary qty: '||transaction_row.trans_qty||
3831: ', cost ratio: '||l_cost_ratio);
3832: END IF;
3833:
3834: ELSE
3834: ELSE
3835: l_cost_ratio := 0;
3836:
3837: IF l_debug_level >= l_debug_level_medium THEN
3838: fnd_file.put_line(fnd_file.log,'Transaction qty is zero, so making cost ratio as zero');
3839: END IF;
3840:
3841: END IF;
3842:
3846: END LOOP;
3847:
3848: ELSE -- l_src_uom <> transaction_row.trans_um
3849: IF l_debug_level >= l_debug_level_medium THEN
3850: fnd_file.put_line( fnd_file.log,'Source primary uom: '||l_src_uom||' and Receiving primary uom: '||transaction_row.trans_um||
3851: ' are same');
3852: END IF;
3853: l_cost_ratio := 1;
3854: END IF;
3853: l_cost_ratio := 1;
3854: END IF;
3855: ELSE -- ( (p_source_le = p_target_le) AND (l_source_ou = l_target_ou) )
3856: IF l_debug_level >= l_debug_level_medium THEN
3857: fnd_file.put_line( fnd_file.log,'Transfer Across LE and/or OU. No need to check source org cost or UOM.');
3858: END IF;
3859: l_cost_ratio := 1;
3860:
3861: END IF; -- B13935001
3891:
3892:
3893:
3894: IF l_error_status <> 0 THEN
3895: fnd_file.put_line
3896: ( fnd_file.log
3897: , 'ERROR: Unable to find exchange rate from '||l_from_ccy_code
3898: ||' to '||l_to_ccy_code
3899: ||' on '||transaction_row.trans_date
3892:
3893:
3894: IF l_error_status <> 0 THEN
3895: fnd_file.put_line
3896: ( fnd_file.log
3897: , 'ERROR: Unable to find exchange rate from '||l_from_ccy_code
3898: ||' to '||l_to_ccy_code
3899: ||' on '||transaction_row.trans_date
3900: );
3921: END LOOP;
3922:
3923: IF l_burdens_total <> 0 THEN
3924: IF l_debug_level >= l_debug_level_medium THEN
3925: fnd_file.put_line
3926: (fnd_file.log,'Combining burden costs');
3927: END IF;
3928:
3929: merge_costs( l_burden_costs_tab
3922:
3923: IF l_burdens_total <> 0 THEN
3924: IF l_debug_level >= l_debug_level_medium THEN
3925: fnd_file.put_line
3926: (fnd_file.log,'Combining burden costs');
3927: END IF;
3928:
3929: merge_costs( l_burden_costs_tab
3930: , 1
3942: IF l_burden_costs_tab.EXISTS(1) THEN -- Can be eliminated? we would not come here unless burdens exist
3943:
3944: IF l_debug_level >= l_debug_level_high THEN
3945:
3946: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
3947: FOR k IN 1 .. prd_cost_tab.COUNT
3948: LOOP
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3945:
3946: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
3947: FOR k IN 1 .. prd_cost_tab.COUNT
3948: LOOP
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3951: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3946: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
3947: FOR k IN 1 .. prd_cost_tab.COUNT
3948: LOOP
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3951: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3954: END LOOP;
3947: FOR k IN 1 .. prd_cost_tab.COUNT
3948: LOOP
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3951: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3954: END LOOP;
3955:
3948: LOOP
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3951: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3954: END LOOP;
3955:
3956: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
3949: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
3950: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
3951: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3954: END LOOP;
3955:
3956: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
3957: FOR k IN 1 .. l_burden_costs_tab.COUNT
3952: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
3953: fnd_file.put_line(fnd_file.log,'====================================');
3954: END LOOP;
3955:
3956: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
3957: FOR k IN 1 .. l_burden_costs_tab.COUNT
3958: LOOP
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3955:
3956: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
3957: FOR k IN 1 .. l_burden_costs_tab.COUNT
3958: LOOP
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3961: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
3962: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
3963: fnd_file.put_line(fnd_file.log,'====================================');
3956: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
3957: FOR k IN 1 .. l_burden_costs_tab.COUNT
3958: LOOP
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3961: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
3962: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
3963: fnd_file.put_line(fnd_file.log,'====================================');
3964: END LOOP;
3957: FOR k IN 1 .. l_burden_costs_tab.COUNT
3958: LOOP
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3961: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
3962: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
3963: fnd_file.put_line(fnd_file.log,'====================================');
3964: END LOOP;
3965:
3958: LOOP
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3961: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
3962: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
3963: fnd_file.put_line(fnd_file.log,'====================================');
3964: END LOOP;
3965:
3966: END IF; -- End printing cost tabs for debug mode
3959: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
3960: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
3961: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
3962: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
3963: fnd_file.put_line(fnd_file.log,'====================================');
3964: END LOOP;
3965:
3966: END IF; -- End printing cost tabs for debug mode
3967:
4000: END IF; -- l_burden_costs_tab.EXISTS(1)
4001:
4002: IF l_debug_level >= l_debug_level_high THEN
4003:
4004: fnd_file.put_line(fnd_file.log,'After Burden merge prd_cost_tab is:');
4005:
4006: FOR k IN 1 .. prd_cost_tab.COUNT
4007: LOOP
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4004: fnd_file.put_line(fnd_file.log,'After Burden merge prd_cost_tab is:');
4005:
4006: FOR k IN 1 .. prd_cost_tab.COUNT
4007: LOOP
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4009: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
4010: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
4011: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
4012: fnd_file.put_line(fnd_file.log,'====================================');
4005:
4006: FOR k IN 1 .. prd_cost_tab.COUNT
4007: LOOP
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4009: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
4010: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
4011: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
4012: fnd_file.put_line(fnd_file.log,'====================================');
4013: END LOOP;
4006: FOR k IN 1 .. prd_cost_tab.COUNT
4007: LOOP
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4009: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
4010: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
4011: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
4012: fnd_file.put_line(fnd_file.log,'====================================');
4013: END LOOP;
4014: END IF;
4007: LOOP
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4009: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
4010: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
4011: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
4012: fnd_file.put_line(fnd_file.log,'====================================');
4013: END LOOP;
4014: END IF;
4015:
4008: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
4009: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
4010: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
4011: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
4012: fnd_file.put_line(fnd_file.log,'====================================');
4013: END LOOP;
4014: END IF;
4015:
4016:
4026: -- prd_cost_tab := new_cost_tab;
4027: -- Genesis bug.
4028:
4029: IF l_debug_level >= l_debug_level_medium THEN
4030: fnd_file.put_line
4031: (fnd_file.log,'Aggregating old costs with new costs');
4032: END IF;
4033:
4034: merge_costs( old_cost_tab
4027: -- Genesis bug.
4028:
4029: IF l_debug_level >= l_debug_level_medium THEN
4030: fnd_file.put_line
4031: (fnd_file.log,'Aggregating old costs with new costs');
4032: END IF;
4033:
4034: merge_costs( old_cost_tab
4035: , old_cost.onhand_qty
4054: );
4055:
4056: IF l_return_status = 'S' THEN
4057: IF l_debug_level >= l_debug_level_medium THEN
4058: fnd_file.put_line
4059: (fnd_file.log,'Creating new cost detail rows');
4060: END IF;
4061:
4062: -- Bug 3388974
4055:
4056: IF l_return_status = 'S' THEN
4057: IF l_debug_level >= l_debug_level_medium THEN
4058: fnd_file.put_line
4059: (fnd_file.log,'Creating new cost detail rows');
4060: END IF;
4061:
4062: -- Bug 3388974
4063: new_cost.header_id := l_header_id;
4081: END IF;
4082: END LOOP;
4083:
4084: IF l_debug_level >= l_debug_level_medium THEN
4085: fnd_file.put_line
4086: (fnd_file.log,'Creating new material cost transaction');
4087: END IF;
4088:
4089: /* Genesis Bug Always create negative details
4082: END LOOP;
4083:
4084: IF l_debug_level >= l_debug_level_medium THEN
4085: fnd_file.put_line
4086: (fnd_file.log,'Creating new material cost transaction');
4087: END IF;
4088:
4089: /* Genesis Bug Always create negative details
4090:
4089: /* Genesis Bug Always create negative details
4090:
4091: IF NOT old_cost_tab.EXISTS(1) THEN
4092: IF l_debug_level >= l_debug_level_high THEN
4093: fnd_file.put_line (fnd_file.log,'AAAAA');
4094: END IF;
4095:
4096: create_material_transaction
4097: ( new_cost.header_id
4113: ELSE
4114: Genesis Bug Always create negative details */
4115:
4116: IF l_debug_level >= l_debug_level_high THEN
4117: fnd_file.put_line (fnd_file.log,'BBBBB');
4118: END IF;
4119: create_material_transaction
4120: ( new_cost.header_id
4121: , l_cost_type_id
4156: END IF;
4157: END IF; /* get cost */
4158: END IF; /* Line type */
4159: IF l_debug_level >= l_debug_level_medium THEN
4160: fnd_file.put_line
4161: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4162: END IF;
4163: EXCEPTION
4164: WHEN OTHERS THEN
4157: END IF; /* get cost */
4158: END IF; /* Line type */
4159: IF l_debug_level >= l_debug_level_medium THEN
4160: fnd_file.put_line
4161: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4162: END IF;
4163: EXCEPTION
4164: WHEN OTHERS THEN
4165: fnd_file.put_line
4161: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4162: END IF;
4163: EXCEPTION
4164: WHEN OTHERS THEN
4165: fnd_file.put_line
4166: (fnd_file.log,'Failed in procedure Process Movement with error');
4167: fnd_file.put_line
4168: (fnd_file.log,SQLERRM);
4169: l_return_status := 'U';
4162: END IF;
4163: EXCEPTION
4164: WHEN OTHERS THEN
4165: fnd_file.put_line
4166: (fnd_file.log,'Failed in procedure Process Movement with error');
4167: fnd_file.put_line
4168: (fnd_file.log,SQLERRM);
4169: l_return_status := 'U';
4170:
4163: EXCEPTION
4164: WHEN OTHERS THEN
4165: fnd_file.put_line
4166: (fnd_file.log,'Failed in procedure Process Movement with error');
4167: fnd_file.put_line
4168: (fnd_file.log,SQLERRM);
4169: l_return_status := 'U';
4170:
4171: END process_movement;
4164: WHEN OTHERS THEN
4165: fnd_file.put_line
4166: (fnd_file.log,'Failed in procedure Process Movement with error');
4167: fnd_file.put_line
4168: (fnd_file.log,SQLERRM);
4169: l_return_status := 'U';
4170:
4171: END process_movement;
4172:
4199: l_rcv_transaction_id NUMBER;
4200: BEGIN
4201: procedure_name := 'Process Receipt';
4202: IF l_debug_level >= l_debug_level_medium THEN
4203: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4204: fnd_file.put_line
4205: (fnd_file.log,'PO Receipt found: transaction ID = '||to_char(transaction_row.transaction_id));
4206: fnd_file.put_line
4207: (fnd_file.log,' Retrieving receipt details');
4200: BEGIN
4201: procedure_name := 'Process Receipt';
4202: IF l_debug_level >= l_debug_level_medium THEN
4203: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4204: fnd_file.put_line
4205: (fnd_file.log,'PO Receipt found: transaction ID = '||to_char(transaction_row.transaction_id));
4206: fnd_file.put_line
4207: (fnd_file.log,' Retrieving receipt details');
4208: END IF;
4201: procedure_name := 'Process Receipt';
4202: IF l_debug_level >= l_debug_level_medium THEN
4203: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4204: fnd_file.put_line
4205: (fnd_file.log,'PO Receipt found: transaction ID = '||to_char(transaction_row.transaction_id));
4206: fnd_file.put_line
4207: (fnd_file.log,' Retrieving receipt details');
4208: END IF;
4209:
4202: IF l_debug_level >= l_debug_level_medium THEN
4203: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4204: fnd_file.put_line
4205: (fnd_file.log,'PO Receipt found: transaction ID = '||to_char(transaction_row.transaction_id));
4206: fnd_file.put_line
4207: (fnd_file.log,' Retrieving receipt details');
4208: END IF;
4209:
4210: -- The pointers in the inventory transaction link to the receipt as follows:
4203: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4204: fnd_file.put_line
4205: (fnd_file.log,'PO Receipt found: transaction ID = '||to_char(transaction_row.transaction_id));
4206: fnd_file.put_line
4207: (fnd_file.log,' Retrieving receipt details');
4208: END IF;
4209:
4210: -- The pointers in the inventory transaction link to the receipt as follows:
4211: -- DOC_ID is the SHIPMENT_HEADER_ID in rcv_shipment_headers
4259: -- and make a swift exit.
4260: /******** Bug 4038722 - Dinesh Vadivel - Convert to Base Currency, if Receipt currency is different **********/
4261: /* Added the query to pick up the base currency in the main lot_cost_rollup procedure */
4262: IF l_debug_level >= l_debug_level_high THEN
4263: fnd_file.put_line
4264: (fnd_file.log,' receipt details found rcv transaction id'||l_rcv_transaction_id);
4265: END IF;
4266:
4267: IF ( l_base_ccy_code <> receipt_ccy) THEN /* Check if the receipt currency is the same as the base currency */
4260: /******** Bug 4038722 - Dinesh Vadivel - Convert to Base Currency, if Receipt currency is different **********/
4261: /* Added the query to pick up the base currency in the main lot_cost_rollup procedure */
4262: IF l_debug_level >= l_debug_level_high THEN
4263: fnd_file.put_line
4264: (fnd_file.log,' receipt details found rcv transaction id'||l_rcv_transaction_id);
4265: END IF;
4266:
4267: IF ( l_base_ccy_code <> receipt_ccy) THEN /* Check if the receipt currency is the same as the base currency */
4268: IF l_debug_level >= l_debug_level_medium THEN
4265: END IF;
4266:
4267: IF ( l_base_ccy_code <> receipt_ccy) THEN /* Check if the receipt currency is the same as the base currency */
4268: IF l_debug_level >= l_debug_level_medium THEN
4269: fnd_file.put_line (fnd_file.log,' Converting Receipt_unit_cost : '||receipt_unit_cost||' Receipt Currency : '||receipt_ccy||
4270: ' to Base Currency : '||l_base_ccy_code||'. New_receipt_unit_cost : '||receipt_unit_cost * l_exchange_rate||'. Exchange Rate is : '||l_exchange_rate);
4271: END IF;
4272:
4273: receipt_unit_cost := receipt_unit_cost * l_exchange_rate;
4279:
4280:
4281: IF document_code = 'RMA' THEN
4282: IF l_debug_level >= l_debug_level_medium THEN
4283: fnd_file.put_line
4284: (fnd_file.log,' Processing PORC txn as an RMA');
4285: END IF;
4286: process_adjustment;
4287: RETURN;
4280:
4281: IF document_code = 'RMA' THEN
4282: IF l_debug_level >= l_debug_level_medium THEN
4283: fnd_file.put_line
4284: (fnd_file.log,' Processing PORC txn as an RMA');
4285: END IF;
4286: process_adjustment;
4287: RETURN;
4288: END IF;
4367: END IF;
4368:
4369: -- If we reach here the PORC transaction is for a true PO Receipt
4370: IF receipt_unit_cost IS NULL THEN
4371: fnd_file.put_line
4372: (fnd_file.log,'ERROR: Could not retrieve PO unit price for transaction ID '||to_char(transaction_row.transaction_id));
4373: l_return_status := 'E';
4374: RETURN;
4375: END IF;
4368:
4369: -- If we reach here the PORC transaction is for a true PO Receipt
4370: IF receipt_unit_cost IS NULL THEN
4371: fnd_file.put_line
4372: (fnd_file.log,'ERROR: Could not retrieve PO unit price for transaction ID '||to_char(transaction_row.transaction_id));
4373: l_return_status := 'E';
4374: RETURN;
4375: END IF;
4376:
4374: RETURN;
4375: END IF;
4376:
4377: IF l_debug_level >= l_debug_level_medium THEN
4378: fnd_file.put_line
4379: (fnd_file.log,'Received '||transaction_row.trans_qty ||' '||transaction_row.trans_um
4380: ||' at a unit price of '||l_base_ccy_code||' '||to_char(receipt_unit_cost)); /* Bug 4038722 - Changed the receipt_ccy to l_base_ccy_code. */
4381: END IF;
4382:
4375: END IF;
4376:
4377: IF l_debug_level >= l_debug_level_medium THEN
4378: fnd_file.put_line
4379: (fnd_file.log,'Received '||transaction_row.trans_qty ||' '||transaction_row.trans_um
4380: ||' at a unit price of '||l_base_ccy_code||' '||to_char(receipt_unit_cost)); /* Bug 4038722 - Changed the receipt_ccy to l_base_ccy_code. */
4381: END IF;
4382:
4383: IF transaction_row.trans_um <> receipt_uom THEN
4384: -- convert unit cost of receipt to a unit cost that is in the OPM transaction uom
4385: -- BUG 3485915 Reversed the uom parameters in the call
4386: -- B9131983
4387: IF l_debug_level >= l_debug_level_medium THEN
4388: fnd_file.put_line
4389: (fnd_file.log,'Before UOM Conversion for lot_unit_cost: convert from '
4390: ||transaction_row.trans_um
4391: ||' to '||receipt_uom
4392: ||' for item ID '
4385: -- BUG 3485915 Reversed the uom parameters in the call
4386: -- B9131983
4387: IF l_debug_level >= l_debug_level_medium THEN
4388: fnd_file.put_line
4389: (fnd_file.log,'Before UOM Conversion for lot_unit_cost: convert from '
4390: ||transaction_row.trans_um
4391: ||' to '||receipt_uom
4392: ||' for item ID '
4393: ||transaction_row.inventory_item_id
4410: ,TO_NAME => NULL
4411: );
4412:
4413: IF lot_unit_cost = -99999 THEN -- B9131983
4414: fnd_file.put_line
4415: (fnd_file.log,'ERROR: Could not convert PO receipt uom for transaction ID '||to_char(transaction_row.transaction_id));
4416: l_return_status := 'E';
4417: RETURN;
4418: END IF;
4411: );
4412:
4413: IF lot_unit_cost = -99999 THEN -- B9131983
4414: fnd_file.put_line
4415: (fnd_file.log,'ERROR: Could not convert PO receipt uom for transaction ID '||to_char(transaction_row.transaction_id));
4416: l_return_status := 'E';
4417: RETURN;
4418: END IF;
4419:
4421: lot_unit_cost := receipt_unit_cost;
4422: END IF;
4423:
4424: IF l_debug_level >= l_debug_level_medium THEN
4425: fnd_file.put_line(fnd_file.log,'Retrieving burdens for receipt');
4426: END IF;
4427:
4428: process_burdens;
4429:
4431: RETURN;
4432: END IF;
4433:
4434: IF l_debug_level >= l_debug_level_medium THEN
4435: fnd_file.put_line(fnd_file.log,'Retrieving Freight and special charges for receipt');
4436: END IF;
4437:
4438: get_special_charges;
4439:
4441: RETURN;
4442: END IF;
4443:
4444: IF l_debug_level >= l_debug_level_medium THEN
4445: fnd_file.put_line
4446: (fnd_file.log,'Retrieving component class and analysis code for cost details');
4447: END IF;
4448:
4449: OPEN component_class_cursor
4442: END IF;
4443:
4444: IF l_debug_level >= l_debug_level_medium THEN
4445: fnd_file.put_line
4446: (fnd_file.log,'Retrieving component class and analysis code for cost details');
4447: END IF;
4448:
4449: OPEN component_class_cursor
4450: (l_le_id, transaction_row.inventory_item_id, transaction_row.orgn_id,transaction_row.trans_date);
4451: FETCH component_class_cursor INTO component_class_id, cost_analysis_code, dummy;
4452: CLOSE component_class_cursor;
4453:
4454: IF l_debug_level >= l_debug_level_medium THEN
4455: fnd_file.put_line
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4452: CLOSE component_class_cursor;
4453:
4454: IF l_debug_level >= l_debug_level_medium THEN
4455: fnd_file.put_line
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4453:
4454: IF l_debug_level >= l_debug_level_medium THEN
4455: fnd_file.put_line
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4461: END IF;
4454: IF l_debug_level >= l_debug_level_medium THEN
4455: fnd_file.put_line
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4461: END IF;
4462:
4455: fnd_file.put_line
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4461: END IF;
4462:
4463: new_cost_tab(1) := SYSTEM.gmf_cost_type
4456: (fnd_file.log,'Setting up lot cost of PO receipt');
4457: fnd_file.put_line
4458: (fnd_file.log,'Lot cost of PO Receipt is: ' || to_char(lot_unit_cost));
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4461: END IF;
4462:
4463: new_cost_tab(1) := SYSTEM.gmf_cost_type
4464: ( component_class_id
4474: -- No costing data for this lot/organization exists
4475:
4476: IF l_burdens_total <> 0 THEN
4477: IF l_debug_level >= l_debug_level_medium THEN
4478: fnd_file.put_line
4479: (fnd_file.log,'Merging burden costs');
4480: END IF;
4481:
4482: merge_costs( l_burden_costs_tab
4475:
4476: IF l_burdens_total <> 0 THEN
4477: IF l_debug_level >= l_debug_level_medium THEN
4478: fnd_file.put_line
4479: (fnd_file.log,'Merging burden costs');
4480: END IF;
4481:
4482: merge_costs( l_burden_costs_tab
4483: , 0
4488: END IF;
4489:
4490: IF l_acquisitions_total <> 0 THEN
4491: IF l_debug_level >= l_debug_level_medium THEN
4492: fnd_file.put_line
4493: (fnd_file.log,'Merging acquisition costs');
4494: END IF;
4495:
4496: merge_costs( l_acqui_cost_tab
4489:
4490: IF l_acquisitions_total <> 0 THEN
4491: IF l_debug_level >= l_debug_level_medium THEN
4492: fnd_file.put_line
4493: (fnd_file.log,'Merging acquisition costs');
4494: END IF;
4495:
4496: merge_costs( l_acqui_cost_tab
4497: , 0
4505:
4506: l_onhand_qty := transaction_row.trans_qty;
4507:
4508: IF l_debug_level >= l_debug_level_medium THEN
4509: fnd_file.put_line
4510: (fnd_file.log,'Finished setting up costs for PO Receipt. Lot unit cost is:'||to_char(lot_unit_cost));
4511: END IF;
4512: ELSE
4513: IF l_debug_level >= l_debug_level_medium THEN
4506: l_onhand_qty := transaction_row.trans_qty;
4507:
4508: IF l_debug_level >= l_debug_level_medium THEN
4509: fnd_file.put_line
4510: (fnd_file.log,'Finished setting up costs for PO Receipt. Lot unit cost is:'||to_char(lot_unit_cost));
4511: END IF;
4512: ELSE
4513: IF l_debug_level >= l_debug_level_medium THEN
4514: fnd_file.put_line
4510: (fnd_file.log,'Finished setting up costs for PO Receipt. Lot unit cost is:'||to_char(lot_unit_cost));
4511: END IF;
4512: ELSE
4513: IF l_debug_level >= l_debug_level_medium THEN
4514: fnd_file.put_line
4515: (fnd_file.log,'Merging old costs with new cost');
4516: END IF;
4517:
4518: IF l_burdens_total <> 0 THEN
4511: END IF;
4512: ELSE
4513: IF l_debug_level >= l_debug_level_medium THEN
4514: fnd_file.put_line
4515: (fnd_file.log,'Merging old costs with new cost');
4516: END IF;
4517:
4518: IF l_burdens_total <> 0 THEN
4519: IF l_debug_level >= l_debug_level_medium THEN
4516: END IF;
4517:
4518: IF l_burdens_total <> 0 THEN
4519: IF l_debug_level >= l_debug_level_medium THEN
4520: fnd_file.put_line
4521: (fnd_file.log,'Merging burden costs');
4522: END IF;
4523:
4524: merge_costs( l_burden_costs_tab
4517:
4518: IF l_burdens_total <> 0 THEN
4519: IF l_debug_level >= l_debug_level_medium THEN
4520: fnd_file.put_line
4521: (fnd_file.log,'Merging burden costs');
4522: END IF;
4523:
4524: merge_costs( l_burden_costs_tab
4525: , transaction_row.trans_qty
4530: END IF;
4531:
4532: IF l_acquisitions_total <> 0 THEN
4533: IF l_debug_level >= l_debug_level_medium THEN
4534: fnd_file.put_line (fnd_file.log,'Merging Special Charges');
4535: END IF;
4536:
4537: merge_costs( l_acqui_cost_tab
4538: , transaction_row.trans_qty
4552: , 'A'
4553: );
4554:
4555: IF l_debug_level >= l_debug_level_medium THEN
4556: fnd_file.put_line(fnd_file.log,'Lot_unit_cost = '||lot_unit_cost);
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4553: );
4554:
4555: IF l_debug_level >= l_debug_level_medium THEN
4556: fnd_file.put_line(fnd_file.log,'Lot_unit_cost = '||lot_unit_cost);
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4561: fnd_file.put_line(fnd_file.log,'trans_qty = '||transaction_row.trans_qty);
4554:
4555: IF l_debug_level >= l_debug_level_medium THEN
4556: fnd_file.put_line(fnd_file.log,'Lot_unit_cost = '||lot_unit_cost);
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4561: fnd_file.put_line(fnd_file.log,'trans_qty = '||transaction_row.trans_qty);
4562: END IF;
4555: IF l_debug_level >= l_debug_level_medium THEN
4556: fnd_file.put_line(fnd_file.log,'Lot_unit_cost = '||lot_unit_cost);
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4561: fnd_file.put_line(fnd_file.log,'trans_qty = '||transaction_row.trans_qty);
4562: END IF;
4563:
4556: fnd_file.put_line(fnd_file.log,'Lot_unit_cost = '||lot_unit_cost);
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4561: fnd_file.put_line(fnd_file.log,'trans_qty = '||transaction_row.trans_qty);
4562: END IF;
4563:
4564: lot_unit_cost := new_cost.unit_cost;
4557: fnd_file.put_line(fnd_file.log,'l_burdens_total = '||l_burdens_total);
4558: fnd_file.put_line(fnd_file.log,'l_acquisitions_total = '||l_acquisitions_total);
4559: fnd_file.put_line(fnd_file.log,'old_onhand = '||old_cost.onhand_qty);
4560: fnd_file.put_line(fnd_file.log,'old_unit_cost = '||old_cost.unit_cost);
4561: fnd_file.put_line(fnd_file.log,'trans_qty = '||transaction_row.trans_qty);
4562: END IF;
4563:
4564: lot_unit_cost := new_cost.unit_cost;
4565:
4563:
4564: lot_unit_cost := new_cost.unit_cost;
4565:
4566: IF l_debug_level >= l_debug_level_medium THEN
4567: fnd_file.put_line
4568: (fnd_file.log,'Finished setting up revised costs for PO Receipt. Lot unit cost is:'||to_char(lot_unit_cost));
4569: END IF;
4570:
4571: l_onhand_qty := transaction_row.trans_qty + old_cost.onhand_qty;
4564: lot_unit_cost := new_cost.unit_cost;
4565:
4566: IF l_debug_level >= l_debug_level_medium THEN
4567: fnd_file.put_line
4568: (fnd_file.log,'Finished setting up revised costs for PO Receipt. Lot unit cost is:'||to_char(lot_unit_cost));
4569: END IF;
4570:
4571: l_onhand_qty := transaction_row.trans_qty + old_cost.onhand_qty;
4572:
4668:
4669: END IF;
4670: END IF;
4671: IF l_debug_level >= l_debug_level_medium THEN
4672: fnd_file.put_line
4673: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4674: END IF;
4675: END process_receipt;
4676:
4669: END IF;
4670: END IF;
4671: IF l_debug_level >= l_debug_level_medium THEN
4672: fnd_file.put_line
4673: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4674: END IF;
4675: END process_receipt;
4676:
4677:
4715: -- Retrieve data in a form that the user will understand
4716: SELECT item_number INTO l_item_no FROM mtl_item_flexfields
4717: WHERE inventory_item_id = p_item_id AND organization_id = p_orgn_id;
4718:
4719: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4720: fnd_file.put_line
4721: (fnd_file.log, 'Lot cost breakdown for item '
4722: ||l_item_no
4723: ||' lot '
4716: SELECT item_number INTO l_item_no FROM mtl_item_flexfields
4717: WHERE inventory_item_id = p_item_id AND organization_id = p_orgn_id;
4718:
4719: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4720: fnd_file.put_line
4721: (fnd_file.log, 'Lot cost breakdown for item '
4722: ||l_item_no
4723: ||' lot '
4724: ||l_lot_number
4717: WHERE inventory_item_id = p_item_id AND organization_id = p_orgn_id;
4718:
4719: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
4720: fnd_file.put_line
4721: (fnd_file.log, 'Lot cost breakdown for item '
4722: ||l_item_no
4723: ||' lot '
4724: ||l_lot_number
4725: ||' created by batch '
4731: ||' on '
4732: ||to_char(p_date_costed)
4733: );
4734:
4735: fnd_file.put_line
4736: (fnd_file.log, '==============================================================================================');
4737:
4738: --
4739: -- umoogala 26-dec-03: program is failing with ORA error when there are no batch steps
4732: ||to_char(p_date_costed)
4733: );
4734:
4735: fnd_file.put_line
4736: (fnd_file.log, '==============================================================================================');
4737:
4738: --
4739: -- umoogala 26-dec-03: program is failing with ORA error when there are no batch steps
4740: --
4738: --
4739: -- umoogala 26-dec-03: program is failing with ORA error when there are no batch steps
4740: --
4741: IF NOT l_step_tab.EXISTS(1) THEN
4742: fnd_file.put_line(fnd_file.log,'No batch steps to print.');
4743: RETURN;
4744: END IF;
4745:
4746: fnd_file.put_line(fnd_file.log,' ');
4742: fnd_file.put_line(fnd_file.log,'No batch steps to print.');
4743: RETURN;
4744: END IF;
4745:
4746: fnd_file.put_line(fnd_file.log,' ');
4747:
4748: FOR i IN 1..l_step_tab.count
4749: LOOP
4750: fnd_file.put_line
4746: fnd_file.put_line(fnd_file.log,' ');
4747:
4748: FOR i IN 1..l_step_tab.count
4749: LOOP
4750: fnd_file.put_line
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4747:
4748: FOR i IN 1..l_step_tab.count
4749: LOOP
4750: fnd_file.put_line
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4748: FOR i IN 1..l_step_tab.count
4749: LOOP
4750: fnd_file.put_line
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4749: LOOP
4750: fnd_file.put_line
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4750: fnd_file.put_line
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4751: (fnd_file.log,'Dump of step index '||to_char(i));
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4752: fnd_file.put_line
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4753: (fnd_file.log,'---------------------');
4754: fnd_file.put_line
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4755: (fnd_file.log,'Step ID = '||to_char(l_step_tab(i).current_step_id));
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4756: fnd_file.put_line
4757: (fnd_file.log,'Step qty = '
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4764:
4758: ||to_char(ROUND(l_step_tab(i).step_qty,2))||' '||l_step_tab(i).step_qty_uom);
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4759: fnd_file.put_line
4760: (fnd_file.log,'Output qty = '
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4767: fnd_file.put_line
4761: ||to_char(ROUND(l_step_tab(i).output_qty,2))||' '||l_step_tab(i).step_qty_uom);
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4767: fnd_file.put_line
4768: (fnd_file.log,' -------------');
4769:
4762: fnd_file.put_line
4763: (fnd_file.log,' ');
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4767: fnd_file.put_line
4768: (fnd_file.log,' -------------');
4769:
4770: IF l_step_tab(i).current_costs.EXISTS(1) THEN
4763: (fnd_file.log,' ');
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4767: fnd_file.put_line
4768: (fnd_file.log,' -------------');
4769:
4770: IF l_step_tab(i).current_costs.EXISTS(1) THEN
4771: FOR j IN 1..l_step_tab(i).current_costs.count
4764:
4765: fnd_file.put_line
4766: (fnd_file.log,' Current Costs');
4767: fnd_file.put_line
4768: (fnd_file.log,' -------------');
4769:
4770: IF l_step_tab(i).current_costs.EXISTS(1) THEN
4771: FOR j IN 1..l_step_tab(i).current_costs.count
4772: LOOP
4769:
4770: IF l_step_tab(i).current_costs.EXISTS(1) THEN
4771: FOR j IN 1..l_step_tab(i).current_costs.count
4772: LOOP
4773: fnd_file.put_line
4774: (fnd_file.log,' Component Class ID = '
4775: ||to_char(l_step_tab(i).current_costs(j).cost_cmpntcls_id));
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4770: IF l_step_tab(i).current_costs.EXISTS(1) THEN
4771: FOR j IN 1..l_step_tab(i).current_costs.count
4772: LOOP
4773: fnd_file.put_line
4774: (fnd_file.log,' Component Class ID = '
4775: ||to_char(l_step_tab(i).current_costs(j).cost_cmpntcls_id));
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4772: LOOP
4773: fnd_file.put_line
4774: (fnd_file.log,' Component Class ID = '
4775: ||to_char(l_step_tab(i).current_costs(j).cost_cmpntcls_id));
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4773: fnd_file.put_line
4774: (fnd_file.log,' Component Class ID = '
4775: ||to_char(l_step_tab(i).current_costs(j).cost_cmpntcls_id));
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4775: ||to_char(l_step_tab(i).current_costs(j).cost_cmpntcls_id));
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4782: fnd_file.put_line
4783: (fnd_file.log,' Component Cost = '
4776: fnd_file.put_line
4777: (fnd_file.log,' Cost Analysis Code = '
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4782: fnd_file.put_line
4783: (fnd_file.log,' Component Cost = '
4784: ||to_char(ROUND(l_step_tab(i).current_costs(j).component_cost,2)));
4778: ||l_step_tab(i).current_costs(j).cost_analysis_code);
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4782: fnd_file.put_line
4783: (fnd_file.log,' Component Cost = '
4784: ||to_char(ROUND(l_step_tab(i).current_costs(j).component_cost,2)));
4785: fnd_file.put_line(fnd_file.log,' ');
4786: END LOOP;
4779: fnd_file.put_line
4780: (fnd_file.log,' Cost Level = '
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4782: fnd_file.put_line
4783: (fnd_file.log,' Component Cost = '
4784: ||to_char(ROUND(l_step_tab(i).current_costs(j).component_cost,2)));
4785: fnd_file.put_line(fnd_file.log,' ');
4786: END LOOP;
4787: ELSE
4781: ||to_char(l_step_tab(i).current_costs(j).cost_level));
4782: fnd_file.put_line
4783: (fnd_file.log,' Component Cost = '
4784: ||to_char(ROUND(l_step_tab(i).current_costs(j).component_cost,2)));
4785: fnd_file.put_line(fnd_file.log,' ');
4786: END LOOP;
4787: ELSE
4788: fnd_file.put_line(fnd_file.log,' This step has no current costs');
4789: END IF;
4784: ||to_char(ROUND(l_step_tab(i).current_costs(j).component_cost,2)));
4785: fnd_file.put_line(fnd_file.log,' ');
4786: END LOOP;
4787: ELSE
4788: fnd_file.put_line(fnd_file.log,' This step has no current costs');
4789: END IF;
4790:
4791: fnd_file.put_line
4792: (fnd_file.log,' Inherited Costs');
4787: ELSE
4788: fnd_file.put_line(fnd_file.log,' This step has no current costs');
4789: END IF;
4790:
4791: fnd_file.put_line
4792: (fnd_file.log,' Inherited Costs');
4793: fnd_file.put_line
4794: (fnd_file.log,' ---------------');
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4788: fnd_file.put_line(fnd_file.log,' This step has no current costs');
4789: END IF;
4790:
4791: fnd_file.put_line
4792: (fnd_file.log,' Inherited Costs');
4793: fnd_file.put_line
4794: (fnd_file.log,' ---------------');
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4796: FOR j IN 1..l_step_tab(i).inherited_costs.count
4789: END IF;
4790:
4791: fnd_file.put_line
4792: (fnd_file.log,' Inherited Costs');
4793: fnd_file.put_line
4794: (fnd_file.log,' ---------------');
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4796: FOR j IN 1..l_step_tab(i).inherited_costs.count
4797: LOOP
4790:
4791: fnd_file.put_line
4792: (fnd_file.log,' Inherited Costs');
4793: fnd_file.put_line
4794: (fnd_file.log,' ---------------');
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4796: FOR j IN 1..l_step_tab(i).inherited_costs.count
4797: LOOP
4798: fnd_file.put_line
4794: (fnd_file.log,' ---------------');
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4796: FOR j IN 1..l_step_tab(i).inherited_costs.count
4797: LOOP
4798: fnd_file.put_line
4799: (fnd_file.log,' Component Class ID = '
4800: ||to_char(l_step_tab(i).inherited_costs(j).cost_cmpntcls_id));
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4795: IF l_step_tab(i).inherited_costs.EXISTS(1) THEN
4796: FOR j IN 1..l_step_tab(i).inherited_costs.count
4797: LOOP
4798: fnd_file.put_line
4799: (fnd_file.log,' Component Class ID = '
4800: ||to_char(l_step_tab(i).inherited_costs(j).cost_cmpntcls_id));
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4797: LOOP
4798: fnd_file.put_line
4799: (fnd_file.log,' Component Class ID = '
4800: ||to_char(l_step_tab(i).inherited_costs(j).cost_cmpntcls_id));
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4798: fnd_file.put_line
4799: (fnd_file.log,' Component Class ID = '
4800: ||to_char(l_step_tab(i).inherited_costs(j).cost_cmpntcls_id));
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4800: ||to_char(l_step_tab(i).inherited_costs(j).cost_cmpntcls_id));
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4807: fnd_file.put_line
4808: (fnd_file.log,' Component Cost = '
4801: fnd_file.put_line
4802: (fnd_file.log,' Cost Analysis Code = '
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4807: fnd_file.put_line
4808: (fnd_file.log,' Component Cost = '
4809: ||to_char(ROUND(l_step_tab(i).inherited_costs(j).component_cost,2)));
4803: ||l_step_tab(i).inherited_costs(j).cost_analysis_code);
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4807: fnd_file.put_line
4808: (fnd_file.log,' Component Cost = '
4809: ||to_char(ROUND(l_step_tab(i).inherited_costs(j).component_cost,2)));
4810: fnd_file.put_line(fnd_file.log,' ');
4811: END LOOP;
4804: fnd_file.put_line
4805: (fnd_file.log,' Cost Level = '
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4807: fnd_file.put_line
4808: (fnd_file.log,' Component Cost = '
4809: ||to_char(ROUND(l_step_tab(i).inherited_costs(j).component_cost,2)));
4810: fnd_file.put_line(fnd_file.log,' ');
4811: END LOOP;
4812: ELSE
4806: ||to_char(l_step_tab(i).inherited_costs(j).cost_level));
4807: fnd_file.put_line
4808: (fnd_file.log,' Component Cost = '
4809: ||to_char(ROUND(l_step_tab(i).inherited_costs(j).component_cost,2)));
4810: fnd_file.put_line(fnd_file.log,' ');
4811: END LOOP;
4812: ELSE
4813: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
4814: END IF;
4809: ||to_char(ROUND(l_step_tab(i).inherited_costs(j).component_cost,2)));
4810: fnd_file.put_line(fnd_file.log,' ');
4811: END LOOP;
4812: ELSE
4813: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
4814: END IF;
4815:
4816: fnd_file.put_line
4817: (fnd_file.log,' Step Costs');
4812: ELSE
4813: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
4814: END IF;
4815:
4816: fnd_file.put_line
4817: (fnd_file.log,' Step Costs');
4818: fnd_file.put_line
4819: (fnd_file.log,' ---------------');
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4813: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
4814: END IF;
4815:
4816: fnd_file.put_line
4817: (fnd_file.log,' Step Costs');
4818: fnd_file.put_line
4819: (fnd_file.log,' ---------------');
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4821: FOR j IN 1..l_step_tab(i).step_costs.count
4814: END IF;
4815:
4816: fnd_file.put_line
4817: (fnd_file.log,' Step Costs');
4818: fnd_file.put_line
4819: (fnd_file.log,' ---------------');
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4821: FOR j IN 1..l_step_tab(i).step_costs.count
4822: LOOP
4815:
4816: fnd_file.put_line
4817: (fnd_file.log,' Step Costs');
4818: fnd_file.put_line
4819: (fnd_file.log,' ---------------');
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4821: FOR j IN 1..l_step_tab(i).step_costs.count
4822: LOOP
4823: fnd_file.put_line
4819: (fnd_file.log,' ---------------');
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4821: FOR j IN 1..l_step_tab(i).step_costs.count
4822: LOOP
4823: fnd_file.put_line
4824: (fnd_file.log,' Component Class ID = '
4825: ||to_char(l_step_tab(i).step_costs(j).cost_cmpntcls_id));
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4820: IF l_step_tab(i).step_costs.EXISTS(1) THEN
4821: FOR j IN 1..l_step_tab(i).step_costs.count
4822: LOOP
4823: fnd_file.put_line
4824: (fnd_file.log,' Component Class ID = '
4825: ||to_char(l_step_tab(i).step_costs(j).cost_cmpntcls_id));
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4822: LOOP
4823: fnd_file.put_line
4824: (fnd_file.log,' Component Class ID = '
4825: ||to_char(l_step_tab(i).step_costs(j).cost_cmpntcls_id));
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4823: fnd_file.put_line
4824: (fnd_file.log,' Component Class ID = '
4825: ||to_char(l_step_tab(i).step_costs(j).cost_cmpntcls_id));
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4825: ||to_char(l_step_tab(i).step_costs(j).cost_cmpntcls_id));
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4832: fnd_file.put_line
4833: (fnd_file.log,' Component Cost = '
4826: fnd_file.put_line
4827: (fnd_file.log,' Cost Analysis Code = '
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4832: fnd_file.put_line
4833: (fnd_file.log,' Component Cost = '
4834: ||to_char(ROUND(l_step_tab(i).step_costs(j).component_cost,2)));
4828: ||l_step_tab(i).step_costs(j).cost_analysis_code);
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4832: fnd_file.put_line
4833: (fnd_file.log,' Component Cost = '
4834: ||to_char(ROUND(l_step_tab(i).step_costs(j).component_cost,2)));
4835: fnd_file.put_line(fnd_file.log,' ');
4836: END LOOP;
4829: fnd_file.put_line
4830: (fnd_file.log,' Cost Level = '
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4832: fnd_file.put_line
4833: (fnd_file.log,' Component Cost = '
4834: ||to_char(ROUND(l_step_tab(i).step_costs(j).component_cost,2)));
4835: fnd_file.put_line(fnd_file.log,' ');
4836: END LOOP;
4837: ELSE
4831: ||to_char(l_step_tab(i).step_costs(j).cost_level));
4832: fnd_file.put_line
4833: (fnd_file.log,' Component Cost = '
4834: ||to_char(ROUND(l_step_tab(i).step_costs(j).component_cost,2)));
4835: fnd_file.put_line(fnd_file.log,' ');
4836: END LOOP;
4837: ELSE
4838: fnd_file.put_line(fnd_file.log,' This step has no step costs - THIS SHOULD NEVER HAPPEN');
4839: END IF;
4834: ||to_char(ROUND(l_step_tab(i).step_costs(j).component_cost,2)));
4835: fnd_file.put_line(fnd_file.log,' ');
4836: END LOOP;
4837: ELSE
4838: fnd_file.put_line(fnd_file.log,' This step has no step costs - THIS SHOULD NEVER HAPPEN');
4839: END IF;
4840:
4841:
4842: fnd_file.put_line(fnd_file.log,' ');
4838: fnd_file.put_line(fnd_file.log,' This step has no step costs - THIS SHOULD NEVER HAPPEN');
4839: END IF;
4840:
4841:
4842: fnd_file.put_line(fnd_file.log,' ');
4843: fnd_file.put_line
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4839: END IF;
4840:
4841:
4842: fnd_file.put_line(fnd_file.log,' ');
4843: fnd_file.put_line
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4847: IF l_step_tab(i).dependencies(1).step_index IS NULL THEN
4840:
4841:
4842: fnd_file.put_line(fnd_file.log,' ');
4843: fnd_file.put_line
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4847: IF l_step_tab(i).dependencies(1).step_index IS NULL THEN
4848: fnd_file.put_line(fnd_file.log,' This is a terminal step');
4841:
4842: fnd_file.put_line(fnd_file.log,' ');
4843: fnd_file.put_line
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4847: IF l_step_tab(i).dependencies(1).step_index IS NULL THEN
4848: fnd_file.put_line(fnd_file.log,' This is a terminal step');
4849: ELSE
4842: fnd_file.put_line(fnd_file.log,' ');
4843: fnd_file.put_line
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4847: IF l_step_tab(i).dependencies(1).step_index IS NULL THEN
4848: fnd_file.put_line(fnd_file.log,' This is a terminal step');
4849: ELSE
4850: FOR j IN 1..l_step_tab(i).dependencies.count
4844: (fnd_file.log,' Subsequent steps');
4845: fnd_file.put_line
4846: (fnd_file.log,' ----------------');
4847: IF l_step_tab(i).dependencies(1).step_index IS NULL THEN
4848: fnd_file.put_line(fnd_file.log,' This is a terminal step');
4849: ELSE
4850: FOR j IN 1..l_step_tab(i).dependencies.count
4851: LOOP
4852: fnd_file.put_line
4848: fnd_file.put_line(fnd_file.log,' This is a terminal step');
4849: ELSE
4850: FOR j IN 1..l_step_tab(i).dependencies.count
4851: LOOP
4852: fnd_file.put_line
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4849: ELSE
4850: FOR j IN 1..l_step_tab(i).dependencies.count
4851: LOOP
4852: fnd_file.put_line
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4850: FOR j IN 1..l_step_tab(i).dependencies.count
4851: LOOP
4852: fnd_file.put_line
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4858: ||to_char(ROUND(l_step_tab(i).dependencies(j).step_qty,2))
4851: LOOP
4852: fnd_file.put_line
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4858: ||to_char(ROUND(l_step_tab(i).dependencies(j).step_qty,2))
4859: ||l_step_tab(i).dependencies(j).step_qty_uom);
4852: fnd_file.put_line
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4858: ||to_char(ROUND(l_step_tab(i).dependencies(j).step_qty,2))
4859: ||l_step_tab(i).dependencies(j).step_qty_uom);
4860: fnd_file.put_line(fnd_file.log,' ');
4853: (fnd_file.log,' Step index = '||to_char(l_step_tab(i).dependencies(j).step_index));
4854: fnd_file.put_line
4855: (fnd_file.log,' Step ID = '||to_char(l_step_tab(i).dependencies(j).batchstep_id));
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4858: ||to_char(ROUND(l_step_tab(i).dependencies(j).step_qty,2))
4859: ||l_step_tab(i).dependencies(j).step_qty_uom);
4860: fnd_file.put_line(fnd_file.log,' ');
4861: END LOOP;
4856: fnd_file.put_line
4857: (fnd_file.log,' Step qty = '
4858: ||to_char(ROUND(l_step_tab(i).dependencies(j).step_qty,2))
4859: ||l_step_tab(i).dependencies(j).step_qty_uom);
4860: fnd_file.put_line(fnd_file.log,' ');
4861: END LOOP;
4862: END IF;
4863:
4864: fnd_file.put_line(fnd_file.log,' ');
4860: fnd_file.put_line(fnd_file.log,' ');
4861: END LOOP;
4862: END IF;
4863:
4864: fnd_file.put_line(fnd_file.log,' ');
4865: fnd_file.put_line
4866: (fnd_file.log,' Materials');
4867: fnd_file.put_line
4868: (fnd_file.log,' ---------');
4861: END LOOP;
4862: END IF;
4863:
4864: fnd_file.put_line(fnd_file.log,' ');
4865: fnd_file.put_line
4866: (fnd_file.log,' Materials');
4867: fnd_file.put_line
4868: (fnd_file.log,' ---------');
4869:
4862: END IF;
4863:
4864: fnd_file.put_line(fnd_file.log,' ');
4865: fnd_file.put_line
4866: (fnd_file.log,' Materials');
4867: fnd_file.put_line
4868: (fnd_file.log,' ---------');
4869:
4870: IF l_step_tab(i).materials.EXISTS(1) THEN
4863:
4864: fnd_file.put_line(fnd_file.log,' ');
4865: fnd_file.put_line
4866: (fnd_file.log,' Materials');
4867: fnd_file.put_line
4868: (fnd_file.log,' ---------');
4869:
4870: IF l_step_tab(i).materials.EXISTS(1) THEN
4871: FOR j in 1..l_step_tab(i).materials.count
4864: fnd_file.put_line(fnd_file.log,' ');
4865: fnd_file.put_line
4866: (fnd_file.log,' Materials');
4867: fnd_file.put_line
4868: (fnd_file.log,' ---------');
4869:
4870: IF l_step_tab(i).materials.EXISTS(1) THEN
4871: FOR j in 1..l_step_tab(i).materials.count
4872: LOOP
4869:
4870: IF l_step_tab(i).materials.EXISTS(1) THEN
4871: FOR j in 1..l_step_tab(i).materials.count
4872: LOOP
4873: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4870: IF l_step_tab(i).materials.EXISTS(1) THEN
4871: FOR j in 1..l_step_tab(i).materials.count
4872: LOOP
4873: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4871: FOR j in 1..l_step_tab(i).materials.count
4872: LOOP
4873: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4872: LOOP
4873: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4873: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4874: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).materials(j).trans_id));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4875: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4876: (fnd_file.log,' Legal Entity = '||l_step_tab(i).materials(j).legal_entity_id);
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4877: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4878: (fnd_file.log,' Organization = '||l_org_tab(l_step_tab(i).materials(j).organization_id));
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4879: fnd_file.put_line
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4880: (fnd_file.log,' Item ID = '||to_char(l_step_tab(i).materials(j).item_id));
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4881: fnd_file.put_line
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4882: (fnd_file.log,' Lot Number = '||to_char(l_step_tab(i).materials(j).lot_number));
4883: fnd_file.put_line
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4884: (fnd_file.log,' Line type = '||to_char(l_step_tab(i).materials(j).line_type));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4885: fnd_file.put_line
4886: (fnd_file.log,' Trans Qty = '||to_char(l_step_tab(i).materials(j).trans_qty)
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4887: ||l_step_tab(i).materials(j).trans_um);
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4888: fnd_file.put_line
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4889: (fnd_file.log,' Trans Date = '
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4890: ||to_char(l_step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4891: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4892: (fnd_file.log,' Lot Cost Flag = '||to_char(l_step_tab(i).materials(j).lot_costed_flag));
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4893: fnd_file.put_line
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4894: (fnd_file.log,' Contribution = '||to_char(l_step_tab(i).materials(j).step_contribution));
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4902: fnd_file.put_line
4895: fnd_file.put_line
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4902: fnd_file.put_line
4903: (fnd_file.log,' ----------------------------------------------');
4896: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).materials(j).trans_cost,2)));
4897: fnd_file.put_line
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4902: fnd_file.put_line
4903: (fnd_file.log,' ----------------------------------------------');
4904:
4898: (fnd_file.log,' ');
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4902: fnd_file.put_line
4903: (fnd_file.log,' ----------------------------------------------');
4904:
4905: IF l_step_tab(i).materials(j).cost_details.EXISTS(1) THEN
4906: FOR k IN 1..l_step_tab(i).materials(j).cost_details.count
4899: fnd_file.put_line
4900: (fnd_file.log,' Cost Details for material transaction '
4901: ||to_char(l_step_tab(i).materials(j).trans_id));
4902: fnd_file.put_line
4903: (fnd_file.log,' ----------------------------------------------');
4904:
4905: IF l_step_tab(i).materials(j).cost_details.EXISTS(1) THEN
4906: FOR k IN 1..l_step_tab(i).materials(j).cost_details.count
4907: LOOP
4904:
4905: IF l_step_tab(i).materials(j).cost_details.EXISTS(1) THEN
4906: FOR k IN 1..l_step_tab(i).materials(j).cost_details.count
4907: LOOP
4908: fnd_file.put_line
4909: (fnd_file.log,' Component Class ID = '
4910: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4905: IF l_step_tab(i).materials(j).cost_details.EXISTS(1) THEN
4906: FOR k IN 1..l_step_tab(i).materials(j).cost_details.count
4907: LOOP
4908: fnd_file.put_line
4909: (fnd_file.log,' Component Class ID = '
4910: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4907: LOOP
4908: fnd_file.put_line
4909: (fnd_file.log,' Component Class ID = '
4910: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4908: fnd_file.put_line
4909: (fnd_file.log,' Component Class ID = '
4910: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4910: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4917: fnd_file.put_line
4918: (fnd_file.log,' Component Cost = '
4911: fnd_file.put_line
4912: (fnd_file.log,' Cost Analysis Code = '
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4917: fnd_file.put_line
4918: (fnd_file.log,' Component Cost = '
4919: ||to_char(ROUND(l_step_tab(i).materials(j).cost_details(k).component_cost,2)));
4913: ||l_step_tab(i).materials(j).cost_details(k).cost_analysis_code);
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4917: fnd_file.put_line
4918: (fnd_file.log,' Component Cost = '
4919: ||to_char(ROUND(l_step_tab(i).materials(j).cost_details(k).component_cost,2)));
4920: fnd_file.put_line(fnd_file.log,' ');
4921: END LOOP;
4914: fnd_file.put_line
4915: (fnd_file.log,' Cost Level = '
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4917: fnd_file.put_line
4918: (fnd_file.log,' Component Cost = '
4919: ||to_char(ROUND(l_step_tab(i).materials(j).cost_details(k).component_cost,2)));
4920: fnd_file.put_line(fnd_file.log,' ');
4921: END LOOP;
4922: ELSE
4916: ||to_char(l_step_tab(i).materials(j).cost_details(k).cost_level));
4917: fnd_file.put_line
4918: (fnd_file.log,' Component Cost = '
4919: ||to_char(ROUND(l_step_tab(i).materials(j).cost_details(k).component_cost,2)));
4920: fnd_file.put_line(fnd_file.log,' ');
4921: END LOOP;
4922: ELSE
4923: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
4924: END IF;
4919: ||to_char(ROUND(l_step_tab(i).materials(j).cost_details(k).component_cost,2)));
4920: fnd_file.put_line(fnd_file.log,' ');
4921: END LOOP;
4922: ELSE
4923: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
4924: END IF;
4925: END LOOP;
4926: ELSE
4927: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
4923: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
4924: END IF;
4925: END LOOP;
4926: ELSE
4927: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
4928: END IF;
4929:
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4926: ELSE
4927: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
4928: END IF;
4929:
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4932: (fnd_file.log,' Resources');
4933: fnd_file.put_line
4934: (fnd_file.log,' ---------');
4927: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
4928: END IF;
4929:
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4932: (fnd_file.log,' Resources');
4933: fnd_file.put_line
4934: (fnd_file.log,' ---------');
4935:
4928: END IF;
4929:
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4932: (fnd_file.log,' Resources');
4933: fnd_file.put_line
4934: (fnd_file.log,' ---------');
4935:
4936: IF l_step_tab(i).resources.EXISTS(1) THEN
4929:
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4932: (fnd_file.log,' Resources');
4933: fnd_file.put_line
4934: (fnd_file.log,' ---------');
4935:
4936: IF l_step_tab(i).resources.EXISTS(1) THEN
4937: FOR j in 1..l_step_tab(i).resources.count
4930: fnd_file.put_line(fnd_file.log,' ');
4931: fnd_file.put_line
4932: (fnd_file.log,' Resources');
4933: fnd_file.put_line
4934: (fnd_file.log,' ---------');
4935:
4936: IF l_step_tab(i).resources.EXISTS(1) THEN
4937: FOR j in 1..l_step_tab(i).resources.count
4938: LOOP
4935:
4936: IF l_step_tab(i).resources.EXISTS(1) THEN
4937: FOR j in 1..l_step_tab(i).resources.count
4938: LOOP
4939: fnd_file.put_line
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4936: IF l_step_tab(i).resources.EXISTS(1) THEN
4937: FOR j in 1..l_step_tab(i).resources.count
4938: LOOP
4939: fnd_file.put_line
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4937: FOR j in 1..l_step_tab(i).resources.count
4938: LOOP
4939: fnd_file.put_line
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4938: LOOP
4939: fnd_file.put_line
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4939: fnd_file.put_line
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4940: (fnd_file.log,' Trans ID = '||to_char(l_step_tab(i).resources(j).trans_id));
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4941: fnd_file.put_line
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4942: (fnd_file.log,' Orgn Id = '||l_org_tab(l_step_tab(i).resources(j).organization_id));
4943: fnd_file.put_line
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4944: (fnd_file.log,' Resource = '||l_step_tab(i).resources(j).resources);
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4945: fnd_file.put_line
4946: (fnd_file.log,' Resource Usage= '||to_char(l_step_tab(i).resources(j).resource_usage)
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4947: ||l_step_tab(i).resources(j).trans_um);
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4948: fnd_file.put_line
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4949: (fnd_file.log,' Trans Date = '
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4950: ||to_char(l_step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4958: fnd_file.put_line
4951: fnd_file.put_line
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4958: fnd_file.put_line
4959: (fnd_file.log,' ---------------------------------------------');
4952: (fnd_file.log,' Trans Cost = '||to_char(ROUND(l_step_tab(i).resources(j).trans_cost,2)));
4953: fnd_file.put_line
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4958: fnd_file.put_line
4959: (fnd_file.log,' ---------------------------------------------');
4960:
4954: (fnd_file.log,' ');
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4958: fnd_file.put_line
4959: (fnd_file.log,' ---------------------------------------------');
4960:
4961: IF l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
4962: FOR k IN 1..l_step_tab(i).resources(j).cost_details.count
4955: fnd_file.put_line
4956: (fnd_file.log,' Cost Details for resource transaction '
4957: ||to_char(l_step_tab(i).resources(j).trans_id));
4958: fnd_file.put_line
4959: (fnd_file.log,' ---------------------------------------------');
4960:
4961: IF l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
4962: FOR k IN 1..l_step_tab(i).resources(j).cost_details.count
4963: LOOP
4960:
4961: IF l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
4962: FOR k IN 1..l_step_tab(i).resources(j).cost_details.count
4963: LOOP
4964: fnd_file.put_line
4965: (fnd_file.log,' Component Class ID = '
4966: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4961: IF l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
4962: FOR k IN 1..l_step_tab(i).resources(j).cost_details.count
4963: LOOP
4964: fnd_file.put_line
4965: (fnd_file.log,' Component Class ID = '
4966: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4963: LOOP
4964: fnd_file.put_line
4965: (fnd_file.log,' Component Class ID = '
4966: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4964: fnd_file.put_line
4965: (fnd_file.log,' Component Class ID = '
4966: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4966: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4973: fnd_file.put_line
4974: (fnd_file.log,' Component Cost = '
4967: fnd_file.put_line
4968: (fnd_file.log,' Cost Analysis Code = '
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4973: fnd_file.put_line
4974: (fnd_file.log,' Component Cost = '
4975: ||to_char(ROUND(l_step_tab(i).resources(j).cost_details(k).component_cost,2)));
4969: ||l_step_tab(i).resources(j).cost_details(k).cost_analysis_code);
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4973: fnd_file.put_line
4974: (fnd_file.log,' Component Cost = '
4975: ||to_char(ROUND(l_step_tab(i).resources(j).cost_details(k).component_cost,2)));
4976: fnd_file.put_line(fnd_file.log,' ');
4977: END LOOP;
4970: fnd_file.put_line
4971: (fnd_file.log,' Cost Level = '
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4973: fnd_file.put_line
4974: (fnd_file.log,' Component Cost = '
4975: ||to_char(ROUND(l_step_tab(i).resources(j).cost_details(k).component_cost,2)));
4976: fnd_file.put_line(fnd_file.log,' ');
4977: END LOOP;
4978: ELSE
4972: ||to_char(l_step_tab(i).resources(j).cost_details(k).cost_level));
4973: fnd_file.put_line
4974: (fnd_file.log,' Component Cost = '
4975: ||to_char(ROUND(l_step_tab(i).resources(j).cost_details(k).component_cost,2)));
4976: fnd_file.put_line(fnd_file.log,' ');
4977: END LOOP;
4978: ELSE
4979: fnd_file.put_line(fnd_file.log,' This resource has no costs');
4980: END IF;
4975: ||to_char(ROUND(l_step_tab(i).resources(j).cost_details(k).component_cost,2)));
4976: fnd_file.put_line(fnd_file.log,' ');
4977: END LOOP;
4978: ELSE
4979: fnd_file.put_line(fnd_file.log,' This resource has no costs');
4980: END IF;
4981: END LOOP;
4982: ELSE
4983: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
4979: fnd_file.put_line(fnd_file.log,' This resource has no costs');
4980: END IF;
4981: END LOOP;
4982: ELSE
4983: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
4984: END IF;
4985: END LOOP;
4986: fnd_file.put_line
4987: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4982: ELSE
4983: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
4984: END IF;
4985: END LOOP;
4986: fnd_file.put_line
4987: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4988:
4989: END lot_cost_audit;
4990:
4983: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
4984: END IF;
4985: END LOOP;
4986: fnd_file.put_line
4987: (fnd_file.log,'Leaving Procedure: '||procedure_name);
4988:
4989: END lot_cost_audit;
4990:
4991: --********************************************************************************************************
5100: BEGIN
5101:
5102: procedure_name := 'Process Batch';
5103: IF l_debug_level >= l_debug_level_medium THEN
5104: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
5105: END IF;
5106:
5107: l_skip_this_batch := FALSE;
5108: l_skip_this_txn := FALSE;
5118:
5119: -- We're in business . Will reach here only if batch_status is in (3,4)
5120:
5121: IF l_debug_level >= l_debug_level_medium THEN
5122: fnd_file.put_line
5123: (fnd_file.log,'Batch is eligible for lot costing');
5124: END IF;
5125:
5126: l_skip_this_batch := FALSE;
5119: -- We're in business . Will reach here only if batch_status is in (3,4)
5120:
5121: IF l_debug_level >= l_debug_level_medium THEN
5122: fnd_file.put_line
5123: (fnd_file.log,'Batch is eligible for lot costing');
5124: END IF;
5125:
5126: l_skip_this_batch := FALSE;
5127:
5130: -- with all associated material and resource transactions.
5131:
5132: IF transaction_row.line_type = 1 THEN -- Don't explode for byproducts
5133: IF l_debug_level >= l_debug_level_medium THEN
5134: fnd_file.put_line
5135: (fnd_file.log,'About to explode batch');
5136: END IF;
5137:
5138: -- Explode the batch
5131:
5132: IF transaction_row.line_type = 1 THEN -- Don't explode for byproducts
5133: IF l_debug_level >= l_debug_level_medium THEN
5134: fnd_file.put_line
5135: (fnd_file.log,'About to explode batch');
5136: END IF;
5137:
5138: -- Explode the batch
5139:
5157: IF (l_new_batch = 1) THEN
5158: -- {
5159: IF l_routing = 0 THEN /* Start if of l_routing = 0 */
5160: IF l_debug_level >= l_debug_level_medium THEN
5161: fnd_file.put_line(fnd_file.log,' Opening explosion_cursor_nr cursor');
5162: END IF;
5163:
5164: OPEN explosion_cursor_nr;
5165: FETCH explosion_cursor_nr BULK COLLECT INTO l_step_lev, l_step_tab;
5171: P_parm_name => 'FM_YIELD_TYPE',
5172: P_parm_value => l_um_type,
5173: X_return_status => l_return_status);
5174: IF l_return_status = 'E' THEN
5175: fnd_file.put_line(fnd_file.log,'Error Cannot find the value for the FM_YIELD_TYPE' );
5176: -- Bug 13038249 Mark the batch as uncostable
5177: l_uncostable_batches_tab(transaction_row.doc_id) := transaction_row.doc_id;
5178: RETURN;
5179: ELSE -- B9131983
5177: l_uncostable_batches_tab(transaction_row.doc_id) := transaction_row.doc_id;
5178: RETURN;
5179: ELSE -- B9131983
5180: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
5181: fnd_file.put_line(fnd_file.log,'The value for the FM_YIELD_TYPE is SET as '||l_um_type );
5182: END IF;
5183: END IF;
5184:
5185: SELECT uom_code INTO l_step_tab(1).step_qty_uom
5187: WHERE uom_class = l_um_type AND base_uom_flag = 'Y';
5188:
5189: ELSE
5190: IF l_debug_level >= l_debug_level_medium THEN
5191: fnd_file.put_line(fnd_file.log,' Entering else part of l_routing=0');
5192: END IF;
5193:
5194: SELECT count(*) INTO l_dep_steps
5195: FROM gme_batch_step_dependencies
5203:
5204: l_independent_steps_cnt := NVL(l_independent_steps.COUNT,0) ;
5205:
5206: IF l_debug_level >= l_debug_level_medium THEN
5207: fnd_file.put_line(fnd_file.log,
5208: ' Before all the CASES...' ||
5209: '# of dep steps : '|| l_dep_steps || '...' ||
5210: '# of independent steps : '|| l_independent_steps_cnt );
5211: fnd_file.put_line(fnd_file.log,
5207: fnd_file.put_line(fnd_file.log,
5208: ' Before all the CASES...' ||
5209: '# of dep steps : '|| l_dep_steps || '...' ||
5210: '# of independent steps : '|| l_independent_steps_cnt );
5211: fnd_file.put_line(fnd_file.log,
5212: ' Independent steps(ids), if any, are: ' );
5213: FOR i in 1.. l_independent_steps_cnt LOOP
5214: fnd_file.put_line(fnd_file.log, ' i = '||i||'. step_id --> '||l_independent_steps(i));
5215: END LOOP;
5210: '# of independent steps : '|| l_independent_steps_cnt );
5211: fnd_file.put_line(fnd_file.log,
5212: ' Independent steps(ids), if any, are: ' );
5213: FOR i in 1.. l_independent_steps_cnt LOOP
5214: fnd_file.put_line(fnd_file.log, ' i = '||i||'. step_id --> '||l_independent_steps(i));
5215: END LOOP;
5216: END IF;
5217:
5218:
5220: -- All the steps have Dependency defined
5221: IF (l_independent_steps_cnt = 0 AND l_dep_steps > 0) THEN
5222:
5223: IF l_debug_level >= l_debug_level_medium THEN
5224: fnd_file.put_line(fnd_file.log,' Opening the Normal Explosion Cursor at CASE 1. All dependency already defined ');
5225: END IF;
5226:
5227: OPEN explosion_cursor (transaction_row.doc_id);
5228: FETCH explosion_cursor BULK COLLECT INTO l_step_lev, l_step_tab;
5232: -- Single Step Batch. No Dependency
5233: ELSIF (l_independent_steps_cnt = 1 AND l_dep_steps = 0) THEN
5234:
5235: IF l_debug_level >= l_debug_level_medium THEN
5236: fnd_file.put_line(fnd_file.log,' Opening the Single Step Explosion Cursor at CASE 2');
5237: END IF;
5238:
5239: OPEN explosion_cursor_ss (transaction_row.doc_id);
5240: FETCH explosion_cursor_ss BULK COLLECT INTO l_step_lev, l_step_tab;
5244: -- All steps are Independent
5245: ELSIF ( l_independent_steps_cnt > 1 AND l_dep_steps = 0) THEN
5246:
5247: IF l_debug_level >= l_debug_level_medium THEN
5248: fnd_file.put_line(fnd_file.log,
5249: ' Inside CASE 3 : All steps are independent. So we are
5250: building virtual dependency chain. ');
5251: END IF;
5252:
5297: -- Few steps have dependency defined and Few are independent.
5298: ELSIF(l_independent_steps_cnt > 0 AND l_dep_steps > 0) THEN
5299:
5300: IF l_debug_level >= l_debug_level_medium THEN
5301: fnd_file.put_line(fnd_file.log,
5302: ' Inside CASE 4 : Few steps are independent. So we are
5303: building virtual dependency chain only for those
5304: independent rows. ');
5305: END IF;
5314: CONNECT BY PRIOR dep_step_id = batchstep_id
5315: AND batch_id = PRIOR batch_id;
5316:
5317: IF l_debug_level >= l_debug_level_medium THEN
5318: fnd_file.put_line(fnd_file.log,' CASE 4 : The minimum step id is '||l_min_dep_step_id);
5319: END IF;
5320:
5321: i:= 0;
5322: l_cur_step_id := l_min_dep_step_id;
5390:
5391: END IF; /* End if of l_routing = 0 */
5392:
5393: IF NOT l_step_tab.EXISTS(1) THEN
5394: fnd_file.put_line
5395: (fnd_file.log,'ERROR: Could not explode steps of Batch No(Batch_Id) '||l_batch_no||'('||to_char(transaction_row.doc_id)||')');
5396: l_return_status := 'E'; /* Bug 4297815 - Set Return Status to E (WARNING)*/
5397: l_tmp := FALSE;
5398: -- Bug 13038249 Mark the batch as uncostable
5391: END IF; /* End if of l_routing = 0 */
5392:
5393: IF NOT l_step_tab.EXISTS(1) THEN
5394: fnd_file.put_line
5395: (fnd_file.log,'ERROR: Could not explode steps of Batch No(Batch_Id) '||l_batch_no||'('||to_char(transaction_row.doc_id)||')');
5396: l_return_status := 'E'; /* Bug 4297815 - Set Return Status to E (WARNING)*/
5397: l_tmp := FALSE;
5398: -- Bug 13038249 Mark the batch as uncostable
5399: l_uncostable_batches_tab(transaction_row.doc_id) := transaction_row.doc_id;
5400: RETURN;
5401: END IF;
5402:
5403: IF l_debug_level >= l_debug_level_medium THEN
5404: fnd_file.put_line
5405: (fnd_file.log,'After explosion, '||to_char(l_step_tab.count)||' steps loaded');
5406: END IF;
5407:
5408: -- Bug 13038249 moved code for l_cost_alloc_profile to outside the loop originally starting at line 5486
5401: END IF;
5402:
5403: IF l_debug_level >= l_debug_level_medium THEN
5404: fnd_file.put_line
5405: (fnd_file.log,'After explosion, '||to_char(l_step_tab.count)||' steps loaded');
5406: END IF;
5407:
5408: -- Bug 13038249 moved code for l_cost_alloc_profile to outside the loop originally starting at line 5486
5409: /***** Bug 4057323 - To check whether all the Products are yielded in one single step - Start *****/
5407:
5408: -- Bug 13038249 moved code for l_cost_alloc_profile to outside the loop originally starting at line 5486
5409: /***** Bug 4057323 - To check whether all the Products are yielded in one single step - Start *****/
5410: IF l_debug_level >= l_debug_level_high THEN
5411: fnd_file.put_line (fnd_file.log, 'Cost Allocation Factor : Just before entering the cost allocation factor code , l_cost_alloc_profile value is '||l_cost_alloc_profile);
5412: END IF;
5413:
5414: IF (l_cost_alloc_profile = 1) THEN /* Start if of l_cost_alloc_profile =1 */
5415: IF l_debug_level >= l_debug_level_high THEN
5412: END IF;
5413:
5414: IF (l_cost_alloc_profile = 1) THEN /* Start if of l_cost_alloc_profile =1 */
5415: IF l_debug_level >= l_debug_level_high THEN
5416: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : l_Step_tab.COUNT is '||l_step_tab.COUNT);
5417: END IF;
5418: IF (l_step_tab.COUNT = 1) THEN
5419: IF l_debug_level >= l_debug_level_high THEN
5420: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : Go ahead as there is only one total step ');
5416: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : l_Step_tab.COUNT is '||l_step_tab.COUNT);
5417: END IF;
5418: IF (l_step_tab.COUNT = 1) THEN
5419: IF l_debug_level >= l_debug_level_high THEN
5420: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : Go ahead as there is only one total step ');
5421: END IF;
5422: -- Go ahead... There is only one step available. So all products should be attached to this step only.
5423: l_cost_alloc_profile := 1;
5424: ELSIF (l_step_tab.COUNT > 1) THEN
5422: -- Go ahead... There is only one step available. So all products should be attached to this step only.
5423: l_cost_alloc_profile := 1;
5424: ELSIF (l_step_tab.COUNT > 1) THEN
5425: IF l_debug_level >= l_debug_level_high THEN
5426: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : Wait, there are many steps. So have to process others. Before the distinct batchstep_id area');
5427: END IF;
5428:
5429: /* Check whether the number of Distinct steps having step material association is 1.
5430: If not don't use Cost Allocation Factor */
5436: AND gmd.line_type = 1
5437: AND gmd.batch_id = transaction_row.doc_id;
5438:
5439: IF l_debug_level >= l_debug_level_high THEN
5440: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : After the distinct batchstep_id area. the l_count is '||l_count);
5441: END IF;
5442:
5443: IF (NVL (l_count, 0) = 1) THEN
5444: IF l_debug_level >= l_debug_level_high THEN
5441: END IF;
5442:
5443: IF (NVL (l_count, 0) = 1) THEN
5444: IF l_debug_level >= l_debug_level_high THEN
5445: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : There are some Step Matl Association. So check any unassociated products ');
5446: END IF;
5447:
5448: -- If l_count is 1 then there is only one step having step material association
5449: /* Get Unassociated Products */
5464: FROM gme_batch_step_items
5465: WHERE batch_id = transaction_row.doc_id);
5466:
5467: IF l_debug_level >= l_debug_level_high THEN
5468: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : The number of unassociated products are '||l_unassociated_prds);
5469: END IF;
5470:
5471: IF (l_unassociated_prds = 0) THEN
5472: IF l_debug_level >= l_debug_level_high THEN
5469: END IF;
5470:
5471: IF (l_unassociated_prds = 0) THEN
5472: IF l_debug_level >= l_debug_level_high THEN
5473: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : unassociated prds are zero. so Go Ahead');
5474: END IF;
5475:
5476: -- Go ahead and use the profile
5477: l_cost_alloc_profile := 1;
5482: -- and some unassociated products.
5483: -- Although there is a chance that all the products which have explicit step association
5484: -- is on terminal step and our logic considers the unassociated products
5485: -- to be attached with the terminal step, BUT WE DONOT SUPPORT THIS CASE
5486: fnd_file.put_line
5487: ( fnd_file.log, ' NOTE : The profile GMF: Use Cost Alloc Factor in Lot Costing has been set to ''Yes''.
5488: Since few products have step association defined and few does not, this profile will NOT be used.');
5489: l_cost_alloc_profile := 0;
5490: END IF;
5483: -- Although there is a chance that all the products which have explicit step association
5484: -- is on terminal step and our logic considers the unassociated products
5485: -- to be attached with the terminal step, BUT WE DONOT SUPPORT THIS CASE
5486: fnd_file.put_line
5487: ( fnd_file.log, ' NOTE : The profile GMF: Use Cost Alloc Factor in Lot Costing has been set to ''Yes''.
5488: Since few products have step association defined and few does not, this profile will NOT be used.');
5489: l_cost_alloc_profile := 0;
5490: END IF;
5491:
5490: END IF;
5491:
5492: ELSIF (NVL (l_count, 0) = 0) THEN
5493: IF l_debug_level >= l_debug_level_high THEN
5494: fnd_file.put_line (fnd_file.log, ' Cost Allocation Factor : No Step material Associations. So Go Ahead ');
5495: END IF;
5496:
5497: -- Go Ahead.. The Number of steps having step material Association is zero.
5498: -- So all steps should have been attached to a single step by default which is the terminal step
5498: -- So all steps should have been attached to a single step by default which is the terminal step
5499: l_cost_alloc_profile := 1;
5500:
5501: ELSE -- The Products are associated with multiple steps. So don't use the profile
5502: fnd_file.put_line
5503: ( fnd_file.log, ' NOTE : The profile GMF: Use Cost Alloc Factor in Lot Costing has been set to ''Yes''.
5504: Since all the products are not yielded in a single step this profile will NOT be used.');
5505: l_cost_alloc_profile := 0;
5506: END IF; /* End if of IF( NVL(l_count,0) = 1) */
5499: l_cost_alloc_profile := 1;
5500:
5501: ELSE -- The Products are associated with multiple steps. So don't use the profile
5502: fnd_file.put_line
5503: ( fnd_file.log, ' NOTE : The profile GMF: Use Cost Alloc Factor in Lot Costing has been set to ''Yes''.
5504: Since all the products are not yielded in a single step this profile will NOT be used.');
5505: l_cost_alloc_profile := 0;
5506: END IF; /* End if of IF( NVL(l_count,0) = 1) */
5507: END IF; /* End of IF (l_step_tab.COUNT = 1) */
5514: c_batch_details(transaction_row.doc_id).batch_id:= transaction_row.doc_id;
5515: c_batch_details(transaction_row.doc_id).step_tab:= l_step_tab;
5516:
5517: IF l_debug_level >= l_debug_level_high THEN
5518: fnd_file.put_line
5519: (fnd_file.log,'START STEP_TAB CACHING FOR BATCH_ID = '
5520: || c_batch_details(transaction_row.doc_id).batch_id );
5521: END IF;
5522:
5515: c_batch_details(transaction_row.doc_id).step_tab:= l_step_tab;
5516:
5517: IF l_debug_level >= l_debug_level_high THEN
5518: fnd_file.put_line
5519: (fnd_file.log,'START STEP_TAB CACHING FOR BATCH_ID = '
5520: || c_batch_details(transaction_row.doc_id).batch_id );
5521: END IF;
5522:
5523: END IF;
5524: ELSE
5525: l_step_tab:=c_batch_details(transaction_row.doc_id).step_tab;
5526: l_cost_alloc_profile := 1;
5527: IF l_debug_level >= l_debug_level_medium THEN
5528: fnd_file.put_line(fnd_file.log,' Restored details of '||l_step_tab.count||' steps from the cache');
5529: END IF;
5530: --}
5531: END IF;
5532:
5542: /*
5543: IF (l_routing <> 0 AND l_step_tab(i).step_qty = 0) THEN
5544: l_skip_this_batch := TRUE;
5545:
5546: fnd_file.put_line
5547: ( fnd_file.log,'ERROR: The Actual Step Qty of one of the steps in Batch_Id '||transaction_row.doc_id||' is zero. The Batch will be skipped from being costed.');
5548:
5549: l_return_status := 'E';
5550: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
5543: IF (l_routing <> 0 AND l_step_tab(i).step_qty = 0) THEN
5544: l_skip_this_batch := TRUE;
5545:
5546: fnd_file.put_line
5547: ( fnd_file.log,'ERROR: The Actual Step Qty of one of the steps in Batch_Id '||transaction_row.doc_id||' is zero. The Batch will be skipped from being costed.');
5548:
5549: l_return_status := 'E';
5550: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
5551: l_tmp := FALSE;
5557: IF l_routing <> 0 THEN /* Start l_routing <> 0 */
5558: -- Load all resource transactions for each step and calculate the cost of each
5559:
5560: IF l_debug_level >= l_debug_level_medium THEN
5561: fnd_file.put_line
5562: (fnd_file.log,'Loading resource transactions for step ID '
5563: ||to_char(l_step_tab(i).current_step_id)
5564: );
5565: END IF;
5558: -- Load all resource transactions for each step and calculate the cost of each
5559:
5560: IF l_debug_level >= l_debug_level_medium THEN
5561: fnd_file.put_line
5562: (fnd_file.log,'Loading resource transactions for step ID '
5563: ||to_char(l_step_tab(i).current_step_id)
5564: );
5565: END IF;
5566:
5576: /* Bug 13386258-VC */
5577: IF (l_cost_alloc_profile = 1) THEN -- cache the batch
5578: c_batch_details(transaction_row.doc_id).step_tab(i).resources:=l_step_tab(i).resources;
5579: IF l_debug_level >= l_debug_level_high THEN
5580: fnd_file.put_line
5581: (fnd_file.log,'START RESOURCE_TAB CACHING, Number of Resources = '
5582: || c_batch_details(transaction_row.doc_id).step_tab(i).resources.count );
5583: END IF;
5584:
5577: IF (l_cost_alloc_profile = 1) THEN -- cache the batch
5578: c_batch_details(transaction_row.doc_id).step_tab(i).resources:=l_step_tab(i).resources;
5579: IF l_debug_level >= l_debug_level_high THEN
5580: fnd_file.put_line
5581: (fnd_file.log,'START RESOURCE_TAB CACHING, Number of Resources = '
5582: || c_batch_details(transaction_row.doc_id).step_tab(i).resources.count );
5583: END IF;
5584:
5585: IF l_debug_level >= l_debug_level_medium THEN
5582: || c_batch_details(transaction_row.doc_id).step_tab(i).resources.count );
5583: END IF;
5584:
5585: IF l_debug_level >= l_debug_level_medium THEN
5586: fnd_file.put_line
5587: (fnd_file.log,'Loaded '
5588: ||to_char(l_step_tab(i).resources.count)||' resource txns'
5589: );
5590: END IF;
5583: END IF;
5584:
5585: IF l_debug_level >= l_debug_level_medium THEN
5586: fnd_file.put_line
5587: (fnd_file.log,'Loaded '
5588: ||to_char(l_step_tab(i).resources.count)||' resource txns'
5589: );
5590: END IF;
5591:
5593:
5594: ELSE
5595:
5596: IF l_debug_level >= l_debug_level_medium THEN
5597: fnd_file.put_line
5598: (fnd_file.log,'Restored '
5599: ||to_char(l_step_tab(i).resources.count)||' resource txns'
5600: );
5601: -- }
5594: ELSE
5595:
5596: IF l_debug_level >= l_debug_level_medium THEN
5597: fnd_file.put_line
5598: (fnd_file.log,'Restored '
5599: ||to_char(l_step_tab(i).resources.count)||' resource txns'
5600: );
5601: -- }
5602: END IF;
5618: FETCH resource_cost_cursor BULK COLLECT INTO l_step_tab(i).resources(j).cost_details;
5619: CLOSE resource_cost_cursor;
5620:
5621: IF NOT l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
5622: fnd_file.put_line
5623: (fnd_file.log, 'Warning: The resource '
5624: ||l_step_tab(i).resources(j).resources
5625: ||' transaction is ignored as the resource has no cost'
5626: );
5619: CLOSE resource_cost_cursor;
5620:
5621: IF NOT l_step_tab(i).resources(j).cost_details.EXISTS(1) THEN
5622: fnd_file.put_line
5623: (fnd_file.log, 'Warning: The resource '
5624: ||l_step_tab(i).resources(j).resources
5625: ||' transaction is ignored as the resource has no cost'
5626: );
5627:
5694: -- {
5695: l_step_tab(i).materials := SYSTEM.gmf_matl_tab(); -- Bug 7317270
5696: -- Only come in here for single step routings
5697: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
5698: fnd_file.put_line(fnd_file.log,' Opening materials_cursor_nr cursor: single step routings');
5699: END IF;
5700:
5701: OPEN materials_cursor_nr (transaction_row.doc_id);
5702: FETCH materials_cursor_nr BULK COLLECT INTO l_step_tab(i).materials ;
5706:
5707: c_batch_details(transaction_row.doc_id).step_tab(i).materials:=l_step_tab(i).materials;
5708:
5709: IF l_debug_level >= l_debug_level_high THEN
5710: fnd_file.put_line
5711: (fnd_file.log,'START materials_NR CACHING, Number of Materials = '
5712: || c_batch_details(transaction_row.doc_id).step_tab(i).materials.count );
5713: END IF;
5714:
5707: c_batch_details(transaction_row.doc_id).step_tab(i).materials:=l_step_tab(i).materials;
5708:
5709: IF l_debug_level >= l_debug_level_high THEN
5710: fnd_file.put_line
5711: (fnd_file.log,'START materials_NR CACHING, Number of Materials = '
5712: || c_batch_details(transaction_row.doc_id).step_tab(i).materials.count );
5713: END IF;
5714:
5715: END IF;
5723: -- {
5724: l_step_tab(i).materials := SYSTEM.gmf_matl_tab(); -- Bug 7317270
5725: -- Get here if dependenies exist, so attach inventory to the correct step.
5726: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
5727: fnd_file.put_line(fnd_file.log,' Opening materials_cursor ');
5728: END IF;
5729:
5730: OPEN materials_cursor (transaction_row.doc_id, l_step_tab(i).current_step_id);
5731: FETCH materials_cursor BULK COLLECT INTO l_step_tab(i).materials;
5736: -- associate the ingredients with the first step and the products with the last step
5737:
5738: IF i = 1 THEN
5739: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
5740: fnd_file.put_line(fnd_file.log,' Opening unassociated_ings_cursor cursor: Only One Ingrad');
5741: END IF;
5742:
5743: OPEN unassociated_ings_cursor (transaction_row.doc_id);
5744: FETCH unassociated_ings_cursor BULK COLLECT INTO ing_tab;
5752: END IF;
5753:
5754: IF i = l_step_tab.COUNT THEN
5755: IF l_debug_level >= l_debug_level_medium THEN -- B9131983
5756: fnd_file.put_line(fnd_file.log,' Opening unassociated_prds_cursor cursor');
5757: END IF;
5758:
5759: OPEN unassociated_prds_cursor (transaction_row.doc_id);
5760: FETCH unassociated_prds_cursor BULK COLLECT INTO prd_tab;
5772: IF (l_cost_alloc_profile = 1) THEN -- cache the batch
5773:
5774: c_batch_details(transaction_row.doc_id).step_tab(i).materials:= l_step_tab(i).materials;
5775: IF l_debug_level >= l_debug_level_high THEN
5776: fnd_file.put_line
5777: (fnd_file.log,'START materials CACHING, Number of Materials = '
5778: || c_batch_details(transaction_row.doc_id).step_tab(i).materials.count );
5779: END IF;
5780: END IF;
5773:
5774: c_batch_details(transaction_row.doc_id).step_tab(i).materials:= l_step_tab(i).materials;
5775: IF l_debug_level >= l_debug_level_high THEN
5776: fnd_file.put_line
5777: (fnd_file.log,'START materials CACHING, Number of Materials = '
5778: || c_batch_details(transaction_row.doc_id).step_tab(i).materials.count );
5779: END IF;
5780: END IF;
5781: END IF;
5817: l_orgn_code := NULL;
5818: l_item_no := NULL;
5819: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
5820:
5821: fnd_file.put_line
5822: (fnd_file.log,'ERROR: Unable to convert from '
5823: ||l_step_tab(1).materials(j).trans_um
5824: ||' to '||l_step_tab(1).step_qty_uom||' for transaction ID '
5825: ||l_step_tab(1).materials(j).trans_id
5818: l_item_no := NULL;
5819: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
5820:
5821: fnd_file.put_line
5822: (fnd_file.log,'ERROR: Unable to convert from '
5823: ||l_step_tab(1).materials(j).trans_um
5824: ||' to '||l_step_tab(1).step_qty_uom||' for transaction ID '
5825: ||l_step_tab(1).materials(j).trans_id
5826: ||' for item ID '
5885: l_orgn_code := NULL;
5886: l_item_no := NULL;
5887: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
5888:
5889: fnd_file.put_line
5890: (fnd_file.log,'ERROR: Unable to convert from '
5891: ||l_step_tab(i).materials(j).trans_um
5892: ||' to '||l_step_tab(i).step_qty_uom||' for transaction ID '
5893: ||l_step_tab(i).materials(j).trans_id
5886: l_item_no := NULL;
5887: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
5888:
5889: fnd_file.put_line
5890: (fnd_file.log,'ERROR: Unable to convert from '
5891: ||l_step_tab(i).materials(j).trans_um
5892: ||' to '||l_step_tab(i).step_qty_uom||' for transaction ID '
5893: ||l_step_tab(i).materials(j).trans_id
5894: ||' for item ID '
5918: -- Only consider lot costed products for output_qty Ends
5919: END IF; /*B13386258(b)- End if of l_cost_alloc_profile <> 1 */
5920:
5921: IF l_debug_level >= l_debug_level_medium THEN
5922: fnd_file.put_line
5923: (fnd_file.log,'Loaded '||to_char(l_step_tab(i).materials.count)||' material txns');
5924: END IF;
5925:
5926: FOR j in 1..l_step_tab(i).materials.count
5919: END IF; /*B13386258(b)- End if of l_cost_alloc_profile <> 1 */
5920:
5921: IF l_debug_level >= l_debug_level_medium THEN
5922: fnd_file.put_line
5923: (fnd_file.log,'Loaded '||to_char(l_step_tab(i).materials.count)||' material txns');
5924: END IF;
5925:
5926: FOR j in 1..l_step_tab(i).materials.count
5927: LOOP
5960: SELECT to_char(TRUNC(l_step_tab(i).materials(j).trans_date),'J')
5961: into k_date from dual ;
5962:
5963: IF period_tab.EXISTS(k_date) THEN
5964: -- fnd_file.put_line(fnd_file.log,'period_id = '||
5965: -- period_tab(k_date).period_id );
5966: k_period_id := period_tab(k_date).period_id;
5967: ELSE
5968: -- fnd_file.put_line(fnd_file.log,'period_id = DID NOT FIND') ;
5964: -- fnd_file.put_line(fnd_file.log,'period_id = '||
5965: -- period_tab(k_date).period_id );
5966: k_period_id := period_tab(k_date).period_id;
5967: ELSE
5968: -- fnd_file.put_line(fnd_file.log,'period_id = DID NOT FIND') ;
5969: k_period_id := NULL;
5970:
5971: END IF;
5972:
5969: k_period_id := NULL;
5970:
5971: END IF;
5972:
5973: -- fnd_file.put_line
5974: -- (fnd_file.log, 'Line 5805 = ' || l_default_cost_type_id || '*' || l_le_id || '*' ||
5975: -- TO_char(l_step_tab(i).materials(j).trans_date,'DD-MON-YYYY HH24:MI:SS') );
5976:
5977: /* Query or get the value from caching */
5970:
5971: END IF;
5972:
5973: -- fnd_file.put_line
5974: -- (fnd_file.log, 'Line 5805 = ' || l_default_cost_type_id || '*' || l_le_id || '*' ||
5975: -- TO_char(l_step_tab(i).materials(j).trans_date,'DD-MON-YYYY HH24:MI:SS') );
5976:
5977: /* Query or get the value from caching */
5978: IF Alter_cost_tab.EXISTS(l_step_tab(i).materials(j).item_id ||'-'||
5984:
5985: total_alt_cost_tab(1) := Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
5986: l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost ;
5987:
5988: -- fnd_file.put_line
5989: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id GOT IT FROM CAHCE -- '
5990: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
5991: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
5992: -- || ' TOTAL COST = ' || total_alt_cost_tab(1)
5985: total_alt_cost_tab(1) := Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
5986: l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost ;
5987:
5988: -- fnd_file.put_line
5989: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id GOT IT FROM CAHCE -- '
5990: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
5991: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
5992: -- || ' TOTAL COST = ' || total_alt_cost_tab(1)
5993: -- );
6034: := NULL ;
6035:
6036: END IF;
6037:
6038: -- fnd_file.put_line
6039: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id 5812 -- '
6040: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6041: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6042: -- || ' TOTAL COST = ' || Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6035:
6036: END IF;
6037:
6038: -- fnd_file.put_line
6039: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id 5812 -- '
6040: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6041: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6042: -- || ' TOTAL COST = ' || Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6043: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost
6080: END IF;
6081:
6082: ELSE
6083: -- IF l_debug_level >= l_debug_level_medium THEN -- B9131983
6084: -- fnd_file.put_line
6085: -- (fnd_file.log,' If Item Lot costed then Org: '
6086: -- || l_step_tab(i).materials(j).organization_id
6087: -- ||' transaction ID '
6088: -- ||l_step_tab(i).materials(j).trans_id
6081:
6082: ELSE
6083: -- IF l_debug_level >= l_debug_level_medium THEN -- B9131983
6084: -- fnd_file.put_line
6085: -- (fnd_file.log,' If Item Lot costed then Org: '
6086: -- || l_step_tab(i).materials(j).organization_id
6087: -- ||' transaction ID '
6088: -- ||l_step_tab(i).materials(j).trans_id
6089: -- ||' item ID '
6137: -- IF l_skip_this_batch PK Avoid incorrect log messages
6138:
6139: IF l_skip_this_txn THEN
6140:
6141: fnd_file.put_line
6142: (fnd_file.log, 'ERROR: Cannot calculate cost of lot '
6143: ||to_char(transaction_row.lot_number)
6144: ||' because material transaction '
6145: ||to_char(l_step_tab(i).materials(j).trans_id)
6138:
6139: IF l_skip_this_txn THEN
6140:
6141: fnd_file.put_line
6142: (fnd_file.log, 'ERROR: Cannot calculate cost of lot '
6143: ||to_char(transaction_row.lot_number)
6144: ||' because material transaction '
6145: ||to_char(l_step_tab(i).materials(j).trans_id)
6146: ||' cannot be costed'
6210: select to_char(TRUNC(l_step_tab(i).materials(j).trans_date),'J')
6211: into k_date from dual ;
6212:
6213: IF period_tab.EXISTS(k_date) THEN
6214: -- fnd_file.put_line(fnd_file.log,'period_id = '||
6215: -- period_tab(k_date).period_id );
6216: k_period_id := period_tab(k_date).period_id;
6217: ELSE
6218: -- fnd_file.put_line(fnd_file.log,'period_id = DID NOT FIND') ;
6214: -- fnd_file.put_line(fnd_file.log,'period_id = '||
6215: -- period_tab(k_date).period_id );
6216: k_period_id := period_tab(k_date).period_id;
6217: ELSE
6218: -- fnd_file.put_line(fnd_file.log,'period_id = DID NOT FIND') ;
6219: k_period_id := NULL;
6220:
6221: END IF;
6222:
6219: k_period_id := NULL;
6220:
6221: END IF;
6222:
6223: -- fnd_file.put_line
6224: -- (fnd_file.log, 'Line 6087 = ' || l_default_cost_type_id || '*' || l_le_id || '*' ||
6225: -- TO_char(l_step_tab(i).materials(j).trans_date,'DD-MON-YYYY HH24:MI:SS') );
6226:
6227: /* Query or get the value from caching */
6220:
6221: END IF;
6222:
6223: -- fnd_file.put_line
6224: -- (fnd_file.log, 'Line 6087 = ' || l_default_cost_type_id || '*' || l_le_id || '*' ||
6225: -- TO_char(l_step_tab(i).materials(j).trans_date,'DD-MON-YYYY HH24:MI:SS') );
6226:
6227: /* Query or get the value from caching */
6228: IF Alter_cost_tab.EXISTS(l_step_tab(i).materials(j).item_id ||'-'||
6234:
6235: total_alt_cost_tab(1) := Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6236: l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost ;
6237:
6238: -- fnd_file.put_line
6239: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id GOT IT FROM CAHCE -- '
6240: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6241: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6242: -- || ' TOTAL COST = ' || total_alt_cost_tab(1)
6235: total_alt_cost_tab(1) := Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6236: l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost ;
6237:
6238: -- fnd_file.put_line
6239: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id GOT IT FROM CAHCE -- '
6240: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6241: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6242: -- || ' TOTAL COST = ' || total_alt_cost_tab(1)
6243: -- );
6286: := NULL ;
6287:
6288: END IF;
6289:
6290: -- fnd_file.put_line
6291: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id 6103 -- '
6292: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6293: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6294: -- || ' TOTAL COST = ' || Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6287:
6288: END IF;
6289:
6290: -- fnd_file.put_line
6291: -- (fnd_file.log, ' TESTING RAJESH inventory_item_id 6103 -- '
6292: -- ||Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6293: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).inventory_item_id
6294: -- || ' TOTAL COST = ' || Alter_cost_tab(l_step_tab(i).materials(j).item_id ||'-'||
6295: -- l_step_tab(i).materials(j).organization_id ||'-'|| k_period_id).total_cost
6321: IF NOT l_step_tab(i).materials(j).cost_details.EXISTS(1) THEN
6322: l_orgn_code := NULL;
6323: l_item_no := NULL;
6324: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
6325: fnd_file.put_line
6326: (fnd_file.log, 'ERROR: Cannot calculate cost of Lot Number '
6327: ||to_char(transaction_row.lot_number)
6328: ||' because item ID / Lot Number '
6329: ||to_char(l_step_tab(i).materials(j).item_id)
6322: l_orgn_code := NULL;
6323: l_item_no := NULL;
6324: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
6325: fnd_file.put_line
6326: (fnd_file.log, 'ERROR: Cannot calculate cost of Lot Number '
6327: ||to_char(transaction_row.lot_number)
6328: ||' because item ID / Lot Number '
6329: ||to_char(l_step_tab(i).materials(j).item_id)
6330: ||'/'
6380: END IF; -- If trans_qty <> 0
6381: END LOOP;
6382:
6383: IF l_debug_level >= l_debug_level_medium THEN
6384: fnd_file.put_line
6385: (fnd_file.log,'Setting up step dependency index and quantities');
6386: END IF;
6387:
6388: -- Set up the step_index field in the 'next steps' nested tables
6381: END LOOP;
6382:
6383: IF l_debug_level >= l_debug_level_medium THEN
6384: fnd_file.put_line
6385: (fnd_file.log,'Setting up step dependency index and quantities');
6386: END IF;
6387:
6388: -- Set up the step_index field in the 'next steps' nested tables
6389:
6394: IF l_step_tab(k).current_step_id = l_step_tab(i).dependencies(j).batchstep_id
6395: THEN
6396:
6397: IF l_debug_level >= l_debug_level_medium THEN
6398: fnd_file.put_line
6399: (fnd_file.log,'Setting ('||to_char(i)||','||to_char(j)||') to '||to_char(k));
6400: END IF;
6401:
6402: l_step_tab(i).dependencies(j).step_index := k;
6395: THEN
6396:
6397: IF l_debug_level >= l_debug_level_medium THEN
6398: fnd_file.put_line
6399: (fnd_file.log,'Setting ('||to_char(i)||','||to_char(j)||') to '||to_char(k));
6400: END IF;
6401:
6402: l_step_tab(i).dependencies(j).step_index := k;
6403:
6406: END LOOP;
6407: END LOOP;
6408:
6409: IF l_debug_level >= l_debug_level_medium THEN
6410: fnd_file.put_line
6411: (fnd_file.log,'End of transaction load/costing loop for iteration '||to_char(i));
6412: END IF;
6413:
6414: END LOOP; -- End of loop that retrieves and costs the transactions
6407: END LOOP;
6408:
6409: IF l_debug_level >= l_debug_level_medium THEN
6410: fnd_file.put_line
6411: (fnd_file.log,'End of transaction load/costing loop for iteration '||to_char(i));
6412: END IF;
6413:
6414: END LOOP; -- End of loop that retrieves and costs the transactions
6415:
6416: -- Start of the actual rollup
6417:
6418: IF l_skip_this_batch THEN
6419: -- For one reason or another we cannot cost this lot.
6420: fnd_file.put_line
6421: ( fnd_file.log,'ERROR: Batch No(Batch_ID) '||l_batch_no||'('
6422: ||to_char(transaction_row.doc_id)||') was skipped because of missing cost(s)');
6423: l_return_status := 'E';
6424: -- l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
6417:
6418: IF l_skip_this_batch THEN
6419: -- For one reason or another we cannot cost this lot.
6420: fnd_file.put_line
6421: ( fnd_file.log,'ERROR: Batch No(Batch_ID) '||l_batch_no||'('
6422: ||to_char(transaction_row.doc_id)||') was skipped because of missing cost(s)');
6423: l_return_status := 'E';
6424: -- l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
6425: -- copy_uncostable_record ; /* B9894310 */
6465: -- step_qty_uom (the unit of measure of the above)
6466: -- step_index (this is the index of the step in l_step_tab)
6467:
6468: IF l_debug_level >= l_debug_level_low THEN
6469: fnd_file.put_line
6470: ( fnd_file.log,'Transaction costs complete. Starting rollup for Batch No(Batch_ID) '||l_batch_no||'('
6471: ||to_char(transaction_row.doc_id)||')');
6472: END IF;
6473:
6466: -- step_index (this is the index of the step in l_step_tab)
6467:
6468: IF l_debug_level >= l_debug_level_low THEN
6469: fnd_file.put_line
6470: ( fnd_file.log,'Transaction costs complete. Starting rollup for Batch No(Batch_ID) '||l_batch_no||'('
6471: ||to_char(transaction_row.doc_id)||')');
6472: END IF;
6473:
6474: FOR i in 1..l_step_tab.count
6473:
6474: FOR i in 1..l_step_tab.count
6475: LOOP
6476: IF l_debug_level >= l_debug_level_medium THEN
6477: fnd_file.put_line
6478: (fnd_file.log,'Inside rollup loop for step index '||to_char(i));
6479: END IF;
6480:
6481: -- We need to set up the step_costs table. This holds the combined inherited costs (that is
6474: FOR i in 1..l_step_tab.count
6475: LOOP
6476: IF l_debug_level >= l_debug_level_medium THEN
6477: fnd_file.put_line
6478: (fnd_file.log,'Inside rollup loop for step index '||to_char(i));
6479: END IF;
6480:
6481: -- We need to set up the step_costs table. This holds the combined inherited costs (that is
6482: -- those that have come from prior steps) and the current costs (ie those that have been
6519:
6520: FOR j IN 1..l_step_tab(i).materials.count -- Main Processing
6521: LOOP
6522:
6523: /* fnd_file.put_line
6524: ( fnd_file.log,'#TITAN#2a## (i/j='||i||'/'||j||') line_type/lot_costed_flag/step_index/transaction_id/trans_id/LotNum1/LotNum2 = '
6525: ||l_step_tab(i).materials(j).line_type||' /'||l_step_tab(i).materials(j).lot_costed_flag
6526: ||' /'||l_step_tab(i).dependencies(1).step_index
6527: ||' /'||transaction_row.transaction_id ||' /'|| l_step_tab(i).materials(j).trans_id
6520: FOR j IN 1..l_step_tab(i).materials.count -- Main Processing
6521: LOOP
6522:
6523: /* fnd_file.put_line
6524: ( fnd_file.log,'#TITAN#2a## (i/j='||i||'/'||j||') line_type/lot_costed_flag/step_index/transaction_id/trans_id/LotNum1/LotNum2 = '
6525: ||l_step_tab(i).materials(j).line_type||' /'||l_step_tab(i).materials(j).lot_costed_flag
6526: ||' /'||l_step_tab(i).dependencies(1).step_index
6527: ||' /'||transaction_row.transaction_id ||' /'|| l_step_tab(i).materials(j).trans_id
6528: ||' /'||l_step_tab(i).materials(j).lot_number||' /'||transaction_row.lot_number
6545: old_cost_tab.delete;
6546: cur_cost_tab.delete; /* Bug 3533452 */
6547:
6548: IF l_debug_level >= l_debug_level_medium THEN
6549: fnd_file.put_line(fnd_file.log,'Setting up new_cost_tab');
6550: END IF;
6551:
6552: -- Bug 3548217
6553: IF l_step_tab(i).step_qty_uom <> l_step_tab(i).materials(j).trans_um THEN
6564: ,TO_NAME => NULL
6565: );
6566: -- PK Bug 9069363 do not return for all negative quatities.
6567: IF l_tran_qty = -99999 THEN -- B9131983
6568: fnd_file.put_line
6569: (fnd_file.log,'ERROR: Unable to convert to step qty uom for transaction ID '
6570: ||l_step_tab(i).materials(j).trans_id
6571: );
6572: l_return_status := 'E';
6565: );
6566: -- PK Bug 9069363 do not return for all negative quatities.
6567: IF l_tran_qty = -99999 THEN -- B9131983
6568: fnd_file.put_line
6569: (fnd_file.log,'ERROR: Unable to convert to step qty uom for transaction ID '
6570: ||l_step_tab(i).materials(j).trans_id
6571: );
6572: l_return_status := 'E';
6573: l_tmp := FALSE;
6608: IF l_step_tab(i).output_qty<>0 THEN /*Condition Added - Bug 5985680, pmarada */
6609: l_cost_factor := (l_tran_qty /l_step_tab(i).output_qty);
6610: ELSE
6611: l_cost_factor := 0;
6612: fnd_file.put_line (fnd_file.log,' Setting Cost Allocation Factor to zero as output_qty is zero.');
6613: END IF;
6614: END IF;
6615: /***** Bug 4057323 - Use Cost Allocation Factor Depending on Profile value - End *****/
6616:
6614: END IF;
6615: /***** Bug 4057323 - Use Cost Allocation Factor Depending on Profile value - End *****/
6616:
6617: IF l_debug_level >= l_debug_level_high THEN
6618: fnd_file.put_line (fnd_file.log,' Cost Allocation Factor : For the transaction of '||l_step_tab(i).materials(j).trans_id
6619: || ' the new cost_factor is '|| l_cost_factor);
6620: END IF;
6621:
6622: -- Reduce remaining output_qty for next time around
6638: -- IF l_step_tab(i).step_qty <> 0 THEN /*Condition Added - Bug 5985680, pmarada */
6639: -- l_cost_factor := l_tran_qty / l_step_tab(i).step_qty;
6640: -- ELSE
6641: -- l_cost_factor := 0;
6642: -- fnd_file.put_line (fnd_file.log,' Setting Cost Allocation Factor to zero as step_qty is zero.');
6643: -- END IF;
6644: -- END IF;
6645: /***** Bug 4057323 - Use Cost Allocation Factor Depending on Profile value - End *****/
6646: -- END IF;
6646: -- END IF;
6647: /******* Bug 9616762 Front port of 4601607 - End */
6648:
6649: IF l_debug_level >= l_debug_level_low THEN
6650: fnd_file.put_line
6651: (fnd_file.log,'Cost factor for yield costs calculation is '||l_cost_factor);
6652:
6653: fnd_file.put_line(fnd_file.log,'Step costs before are');
6654: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6647: /******* Bug 9616762 Front port of 4601607 - End */
6648:
6649: IF l_debug_level >= l_debug_level_low THEN
6650: fnd_file.put_line
6651: (fnd_file.log,'Cost factor for yield costs calculation is '||l_cost_factor);
6652:
6653: fnd_file.put_line(fnd_file.log,'Step costs before are');
6654: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6655: LOOP
6649: IF l_debug_level >= l_debug_level_low THEN
6650: fnd_file.put_line
6651: (fnd_file.log,'Cost factor for yield costs calculation is '||l_cost_factor);
6652:
6653: fnd_file.put_line(fnd_file.log,'Step costs before are');
6654: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6655: LOOP
6656: fnd_file.put_line
6657: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6652:
6653: fnd_file.put_line(fnd_file.log,'Step costs before are');
6654: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6655: LOOP
6656: fnd_file.put_line
6657: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6658: END LOOP;
6659: END IF;
6660:
6653: fnd_file.put_line(fnd_file.log,'Step costs before are');
6654: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6655: LOOP
6656: fnd_file.put_line
6657: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6658: END LOOP;
6659: END IF;
6660:
6661: -- Now calculate the costs of the yielded lot and reduce the step costs by the same amounts
6694: ,TO_NAME => NULL
6695: );
6696: -- PK Bug 9069363 do not return for all negative quatities.
6697: IF l_actual_line_qty = -99999 THEN
6698: fnd_file.put_line
6699: (fnd_file.log,'ERROR: Unable to convert to Actual Line qty uom for transaction ID '
6700: ||l_step_tab(i).materials(j).trans_id
6701: );
6702: l_return_status := 'E';
6695: );
6696: -- PK Bug 9069363 do not return for all negative quatities.
6697: IF l_actual_line_qty = -99999 THEN
6698: fnd_file.put_line
6699: (fnd_file.log,'ERROR: Unable to convert to Actual Line qty uom for transaction ID '
6700: ||l_step_tab(i).materials(j).trans_id
6701: );
6702: l_return_status := 'E';
6703: l_tmp := FALSE;
6721: -- l_step_tab(i).materials(j).line_um := l_step_tab(i).step_qty_uom ;
6722: -- End 9887438
6723: /* Rajesh Patangya B9131983 Ends */
6724: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
6725: fnd_file.put_line
6726: (fnd_file.log, 'Actual Line Qty = ' || l_actual_line_qty || '-line_um-'
6727: || l_step_tab(i).materials(j).line_um || '-Trans_um-'
6728: || l_step_tab(i).materials(j).trans_um
6729: ||'-CompoNENT-'|| l_step_tab(i).step_costs(l).component_cost ||'-factor-'||
6722: -- End 9887438
6723: /* Rajesh Patangya B9131983 Ends */
6724: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
6725: fnd_file.put_line
6726: (fnd_file.log, 'Actual Line Qty = ' || l_actual_line_qty || '-line_um-'
6727: || l_step_tab(i).materials(j).line_um || '-Trans_um-'
6728: || l_step_tab(i).materials(j).trans_um
6729: ||'-CompoNENT-'|| l_step_tab(i).step_costs(l).component_cost ||'-factor-'||
6730: l_cost_factor ||'-trans_qty-'||
6745: -- End 3548217
6746:
6747: IF l_debug_level >= l_debug_level_low THEN
6748:
6749: fnd_file.put_line(fnd_file.log,'Step costs after are');
6750:
6751: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6752: LOOP
6753: fnd_file.put_line
6749: fnd_file.put_line(fnd_file.log,'Step costs after are');
6750:
6751: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6752: LOOP
6753: fnd_file.put_line
6754: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6755: END LOOP;
6756:
6757: fnd_file.put_line(fnd_file.log,'New costs after are');
6750:
6751: FOR jj IN 1..l_step_tab(i).step_costs.COUNT
6752: LOOP
6753: fnd_file.put_line
6754: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6755: END LOOP;
6756:
6757: fnd_file.put_line(fnd_file.log,'New costs after are');
6758:
6753: fnd_file.put_line
6754: (fnd_file.log,l_step_tab(i).step_costs(jj).component_cost);
6755: END LOOP;
6756:
6757: fnd_file.put_line(fnd_file.log,'New costs after are');
6758:
6759: FOR jj IN 1..new_cost_tab.COUNT
6760: LOOP
6761: fnd_file.put_line
6757: fnd_file.put_line(fnd_file.log,'New costs after are');
6758:
6759: FOR jj IN 1..new_cost_tab.COUNT
6760: LOOP
6761: fnd_file.put_line
6762: (fnd_file.log,new_cost_tab(jj).component_cost);
6763: END LOOP;
6764:
6765: END IF;
6758:
6759: FOR jj IN 1..new_cost_tab.COUNT
6760: LOOP
6761: fnd_file.put_line
6762: (fnd_file.log,new_cost_tab(jj).component_cost);
6763: END LOOP;
6764:
6765: END IF;
6766:
6773:
6774: process_burdens;
6775:
6776: IF l_return_status <> 'S' THEN
6777: fnd_file.put_line
6778: (fnd_file.log,'ERROR: Processing Burdens ');
6779: -- Bug 13038249 Mark the batch as uncostable
6780: l_uncostable_batches_tab(transaction_row.doc_id) := transaction_row.doc_id;
6781: RETURN;
6774: process_burdens;
6775:
6776: IF l_return_status <> 'S' THEN
6777: fnd_file.put_line
6778: (fnd_file.log,'ERROR: Processing Burdens ');
6779: -- Bug 13038249 Mark the batch as uncostable
6780: l_uncostable_batches_tab(transaction_row.doc_id) := transaction_row.doc_id;
6781: RETURN;
6782: END IF;
6797: FOR l IN 1..l_burden_costs_tab.count
6798: LOOP
6799: l_burden_costs_tab(l).component_cost := l_burden_costs_tab(l).component_cost * transaction_row.trans_qty;
6800: IF l_debug_level >= l_debug_level_medium THEN
6801: fnd_file.put_line
6802: (fnd_file.log,'l_burden_costs_tab['||l||'] is '||l_burden_costs_tab(l).component_cost);
6803: END IF;
6804: END LOOP;
6805:
6798: LOOP
6799: l_burden_costs_tab(l).component_cost := l_burden_costs_tab(l).component_cost * transaction_row.trans_qty;
6800: IF l_debug_level >= l_debug_level_medium THEN
6801: fnd_file.put_line
6802: (fnd_file.log,'l_burden_costs_tab['||l||'] is '||l_burden_costs_tab(l).component_cost);
6803: END IF;
6804: END LOOP;
6805:
6806: merge_costs ( l_burden_costs_tab
6812: IF l_burden_costs_tab.EXISTS(1) THEN
6813:
6814: IF l_debug_level >= l_debug_level_high THEN
6815:
6816: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
6817: FOR k IN 1 .. prd_cost_tab.COUNT
6818: LOOP
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6815:
6816: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
6817: FOR k IN 1 .. prd_cost_tab.COUNT
6818: LOOP
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6821: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6816: fnd_file.put_line(fnd_file.log,'Before merge prd_cost_tab is:');
6817: FOR k IN 1 .. prd_cost_tab.COUNT
6818: LOOP
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6821: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6824: END LOOP;
6817: FOR k IN 1 .. prd_cost_tab.COUNT
6818: LOOP
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6821: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6824: END LOOP;
6825:
6818: LOOP
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6821: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6824: END LOOP;
6825:
6826: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
6819: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6820: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6821: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6824: END LOOP;
6825:
6826: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
6827: FOR k IN 1 .. l_burden_costs_tab.COUNT
6822: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6823: fnd_file.put_line(fnd_file.log,'====================================');
6824: END LOOP;
6825:
6826: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
6827: FOR k IN 1 .. l_burden_costs_tab.COUNT
6828: LOOP
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6825:
6826: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
6827: FOR k IN 1 .. l_burden_costs_tab.COUNT
6828: LOOP
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6831: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
6832: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
6833: fnd_file.put_line(fnd_file.log,'====================================');
6826: fnd_file.put_line(fnd_file.log,'Before merge l_burden_costs_tab is:');
6827: FOR k IN 1 .. l_burden_costs_tab.COUNT
6828: LOOP
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6831: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
6832: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
6833: fnd_file.put_line(fnd_file.log,'====================================');
6834: END LOOP;
6827: FOR k IN 1 .. l_burden_costs_tab.COUNT
6828: LOOP
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6831: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
6832: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
6833: fnd_file.put_line(fnd_file.log,'====================================');
6834: END LOOP;
6835:
6828: LOOP
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6831: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
6832: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
6833: fnd_file.put_line(fnd_file.log,'====================================');
6834: END LOOP;
6835:
6836: END IF; -- End printing cost tabs for debug mode
6829: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||l_burden_costs_tab(k).cost_cmpntcls_id);
6830: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||l_burden_costs_tab(k).cost_analysis_code);
6831: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||l_burden_costs_tab(k).cost_level);
6832: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||l_burden_costs_tab(k).component_cost);
6833: fnd_file.put_line(fnd_file.log,'====================================');
6834: END LOOP;
6835:
6836: END IF; -- End printing cost tabs for debug mode
6837:
6870: END IF; -- l_burden_costs_tab.EXISTS(1) THEN
6871:
6872: IF l_debug_level >= l_debug_level_high THEN
6873:
6874: fnd_file.put_line(fnd_file.log,'After Burden merge prd_cost_tab is:');
6875:
6876: FOR k IN 1 .. prd_cost_tab.COUNT
6877: LOOP
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6874: fnd_file.put_line(fnd_file.log,'After Burden merge prd_cost_tab is:');
6875:
6876: FOR k IN 1 .. prd_cost_tab.COUNT
6877: LOOP
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6879: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6880: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6881: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6882: fnd_file.put_line(fnd_file.log,'====================================');
6875:
6876: FOR k IN 1 .. prd_cost_tab.COUNT
6877: LOOP
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6879: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6880: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6881: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6882: fnd_file.put_line(fnd_file.log,'====================================');
6883: END LOOP;
6876: FOR k IN 1 .. prd_cost_tab.COUNT
6877: LOOP
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6879: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6880: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6881: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6882: fnd_file.put_line(fnd_file.log,'====================================');
6883: END LOOP;
6884: END IF;
6877: LOOP
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6879: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6880: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6881: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6882: fnd_file.put_line(fnd_file.log,'====================================');
6883: END LOOP;
6884: END IF;
6885:
6878: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
6879: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
6880: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
6881: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
6882: fnd_file.put_line(fnd_file.log,'====================================');
6883: END LOOP;
6884: END IF;
6885:
6886: END IF; -- l_burdens_total <> 0 now moved down as in process_movement
6945: );
6946:
6947: l_new_cost := new_cost.unit_cost;
6948: IF l_debug_level >= l_debug_level_low THEN
6949: fnd_file.put_line (fnd_file.log, 'Before create_cost_header in process_batch ');
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6946:
6947: l_new_cost := new_cost.unit_cost;
6948: IF l_debug_level >= l_debug_level_low THEN
6949: fnd_file.put_line (fnd_file.log, 'Before create_cost_header in process_batch ');
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6947: l_new_cost := new_cost.unit_cost;
6948: IF l_debug_level >= l_debug_level_low THEN
6949: fnd_file.put_line (fnd_file.log, 'Before create_cost_header in process_batch ');
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6955: fnd_file.put_line (fnd_file.log, 'prd_cost_tab count: '||new_cost_tab.count);
6948: IF l_debug_level >= l_debug_level_low THEN
6949: fnd_file.put_line (fnd_file.log, 'Before create_cost_header in process_batch ');
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6955: fnd_file.put_line (fnd_file.log, 'prd_cost_tab count: '||new_cost_tab.count);
6956: END IF;
6949: fnd_file.put_line (fnd_file.log, 'Before create_cost_header in process_batch ');
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6955: fnd_file.put_line (fnd_file.log, 'prd_cost_tab count: '||new_cost_tab.count);
6956: END IF;
6957:
6950: fnd_file.put_line (fnd_file.log, 'new unit cost: '||new_cost.unit_cost);
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6955: fnd_file.put_line (fnd_file.log, 'prd_cost_tab count: '||new_cost_tab.count);
6956: END IF;
6957:
6958: -- At this stage we have all the header and cost component information we need
6951: fnd_file.put_line (fnd_file.log, 'l_new unit cost: '||l_new_cost);
6952: fnd_file.put_line (fnd_file.log, 'trans qty: '||transaction_row.trans_qty);
6953: fnd_file.put_line (fnd_file.log, 'onhand qty: '||old_cost.onhand_qty);
6954: fnd_file.put_line (fnd_file.log, 'new_cost_tab count: '||new_cost_tab.count);
6955: fnd_file.put_line (fnd_file.log, 'prd_cost_tab count: '||new_cost_tab.count);
6956: END IF;
6957:
6958: -- At this stage we have all the header and cost component information we need
6959: -- to store the costs in the database.
6990: IF l_step_tab(i).materials(j).lot_number = transaction_row.lot_number THEN
6991: if 2 product lots Lot Number should be same */
6992:
6993: IF l_debug_level >= l_debug_level_low THEN
6994: fnd_file.put_line
6995: (fnd_file.log,'Before Create Header Call 1');
6996: END IF;
6997:
6998: create_cost_header
6991: if 2 product lots Lot Number should be same */
6992:
6993: IF l_debug_level >= l_debug_level_low THEN
6994: fnd_file.put_line
6995: (fnd_file.log,'Before Create Header Call 1');
6996: END IF;
6997:
6998: create_cost_header
6999: ( l_step_tab(i).materials(j).item_id
7030: new_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
7031: END IF;
7032:
7033: IF l_debug_level >= l_debug_level_low THEN
7034: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7031: END IF;
7032:
7033: IF l_debug_level >= l_debug_level_low THEN
7034: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7039: fnd_file.put_line(fnd_file.log,'====================================');
7032:
7033: IF l_debug_level >= l_debug_level_low THEN
7034: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7039: fnd_file.put_line(fnd_file.log,'====================================');
7040: END IF;
7033: IF l_debug_level >= l_debug_level_low THEN
7034: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7039: fnd_file.put_line(fnd_file.log,'====================================');
7040: END IF;
7041:
7034: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7039: fnd_file.put_line(fnd_file.log,'====================================');
7040: END IF;
7041:
7042: IF (new_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = new_cost_tab.count )) THEN -- Bug 13038249 Modified condition and restored IF
7035: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7036: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7037: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7038: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7039: fnd_file.put_line(fnd_file.log,'====================================');
7040: END IF;
7041:
7042: IF (new_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = new_cost_tab.count )) THEN -- Bug 13038249 Modified condition and restored IF
7043:
7075: prd_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
7076: END IF;
7077:
7078: IF l_debug_level >= l_debug_level_low THEN
7079: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7076: END IF;
7077:
7078: IF l_debug_level >= l_debug_level_low THEN
7079: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7084: fnd_file.put_line(fnd_file.log,'====================================');
7077:
7078: IF l_debug_level >= l_debug_level_low THEN
7079: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7084: fnd_file.put_line(fnd_file.log,'====================================');
7085: END IF;
7078: IF l_debug_level >= l_debug_level_low THEN
7079: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7084: fnd_file.put_line(fnd_file.log,'====================================');
7085: END IF;
7086:
7079: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7084: fnd_file.put_line(fnd_file.log,'====================================');
7085: END IF;
7086:
7087: IF ( prd_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = prd_cost_tab.COUNT )) THEN -- B9131983 Bug 13038249 Modified condition and restored IF
7080: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7081: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7082: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7083: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7084: fnd_file.put_line(fnd_file.log,'====================================');
7085: END IF;
7086:
7087: IF ( prd_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = prd_cost_tab.COUNT )) THEN -- B9131983 Bug 13038249 Modified condition and restored IF
7088:
7121: , l_return_status
7122: );
7123:
7124: IF l_debug_level >= l_debug_level_low THEN
7125: fnd_file.put_line (fnd_file.log, 'Completed inserts into tables in process_batch ');
7126: END IF;
7127:
7128: IF l_return_status <> 'S' THEN
7129:
7139:
7140: ELSE /* IF old_cost.header_id IS NOT NULL THEN */
7141:
7142: IF l_debug_level >= l_debug_level_high THEN
7143: fnd_file.put_line(fnd_file.log,'No cost currently exists, create one and all associated details and transactions');
7144: END IF;
7145:
7146: -- No cost currently exists, create one and all associated details
7147: -- and transactions. Again, this is only for the invoking transaction
7146: -- No cost currently exists, create one and all associated details
7147: -- and transactions. Again, this is only for the invoking transaction
7148:
7149: IF l_debug_level >= l_debug_level_high THEN
7150: fnd_file.put_line
7151: ( fnd_file.log,'New cost tab has '||to_char(new_cost_tab.count)||' entries:');
7152:
7153: FOR k IN 1 .. new_cost_tab.COUNT
7154: LOOP
7147: -- and transactions. Again, this is only for the invoking transaction
7148:
7149: IF l_debug_level >= l_debug_level_high THEN
7150: fnd_file.put_line
7151: ( fnd_file.log,'New cost tab has '||to_char(new_cost_tab.count)||' entries:');
7152:
7153: FOR k IN 1 .. new_cost_tab.COUNT
7154: LOOP
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7151: ( fnd_file.log,'New cost tab has '||to_char(new_cost_tab.count)||' entries:');
7152:
7153: FOR k IN 1 .. new_cost_tab.COUNT
7154: LOOP
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7156: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7157: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7158: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7159: fnd_file.put_line(fnd_file.log,'====================================');
7152:
7153: FOR k IN 1 .. new_cost_tab.COUNT
7154: LOOP
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7156: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7157: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7158: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7159: fnd_file.put_line(fnd_file.log,'====================================');
7160: END LOOP;
7153: FOR k IN 1 .. new_cost_tab.COUNT
7154: LOOP
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7156: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7157: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7158: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7159: fnd_file.put_line(fnd_file.log,'====================================');
7160: END LOOP;
7161: END IF;
7154: LOOP
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7156: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7157: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7158: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7159: fnd_file.put_line(fnd_file.log,'====================================');
7160: END LOOP;
7161: END IF;
7162:
7155: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7156: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7157: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7158: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7159: fnd_file.put_line(fnd_file.log,'====================================');
7160: END LOOP;
7161: END IF;
7162:
7163: /* B9131983 Rajesh Patangya Starts */
7191: -- PK Bug 9069363
7192: /* B9131983 Rajesh Patangya Ends */
7193:
7194: IF l_debug_level >= l_debug_level_high THEN
7195: fnd_file.put_line(fnd_file.log,' New total cost is : '||new_cost.unit_cost);
7196: fnd_file.put_line(fnd_file.log,' New unit cost is : '||new_cost.unit_cost/l_temp_trans_qty);
7197:
7198: END IF;
7199:
7192: /* B9131983 Rajesh Patangya Ends */
7193:
7194: IF l_debug_level >= l_debug_level_high THEN
7195: fnd_file.put_line(fnd_file.log,' New total cost is : '||new_cost.unit_cost);
7196: fnd_file.put_line(fnd_file.log,' New unit cost is : '||new_cost.unit_cost/l_temp_trans_qty);
7197:
7198: END IF;
7199:
7200: /* B9131983
7201: IF l_step_tab(i).materials(j).lot_number = transaction_row.lot_number THEN
7202: if 2 product lots Lot Number should be same */
7203:
7204: IF l_debug_level >= l_debug_level_low THEN
7205: fnd_file.put_line
7206: (fnd_file.log,'Before Create Header Call 2');
7207: END IF;
7208:
7209: create_cost_header
7202: if 2 product lots Lot Number should be same */
7203:
7204: IF l_debug_level >= l_debug_level_low THEN
7205: fnd_file.put_line
7206: (fnd_file.log,'Before Create Header Call 2');
7207: END IF;
7208:
7209: create_cost_header
7210: ( l_step_tab(i).materials(j).item_id
7241: new_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
7242: END IF;
7243:
7244: IF l_debug_level >= l_debug_level_low THEN
7245: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7242: END IF;
7243:
7244: IF l_debug_level >= l_debug_level_low THEN
7245: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7250: fnd_file.put_line(fnd_file.log,'====================================');
7243:
7244: IF l_debug_level >= l_debug_level_low THEN
7245: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7250: fnd_file.put_line(fnd_file.log,'====================================');
7251: END IF;
7244: IF l_debug_level >= l_debug_level_low THEN
7245: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7250: fnd_file.put_line(fnd_file.log,'====================================');
7251: END IF;
7252:
7245: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7250: fnd_file.put_line(fnd_file.log,'====================================');
7251: END IF;
7252:
7253: create_cost_detail
7246: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
7247: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
7248: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
7249: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
7250: fnd_file.put_line(fnd_file.log,'====================================');
7251: END IF;
7252:
7253: create_cost_detail
7254: ( new_cost.header_id
7312: prd_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
7313: END IF;
7314:
7315: IF l_debug_level >= l_debug_level_low THEN
7316: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7313: END IF;
7314:
7315: IF l_debug_level >= l_debug_level_low THEN
7316: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7321: fnd_file.put_line(fnd_file.log,'====================================');
7314:
7315: IF l_debug_level >= l_debug_level_low THEN
7316: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7321: fnd_file.put_line(fnd_file.log,'====================================');
7322: END IF;
7315: IF l_debug_level >= l_debug_level_low THEN
7316: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7321: fnd_file.put_line(fnd_file.log,'====================================');
7322: END IF;
7323:
7316: fnd_file.put_line(fnd_file.log,'After Replacing component/analysis/level to fiscal policy');
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7321: fnd_file.put_line(fnd_file.log,'====================================');
7322: END IF;
7323:
7324: IF ( prd_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = prd_cost_tab.COUNT )) THEN -- B9131983 Bug 13038249 Modified condition and restored IF
7317: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||prd_cost_tab(k).cost_cmpntcls_id);
7318: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||prd_cost_tab(k).cost_analysis_code);
7319: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||prd_cost_tab(k).cost_level);
7320: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||prd_cost_tab(k).component_cost);
7321: fnd_file.put_line(fnd_file.log,'====================================');
7322: END IF;
7323:
7324: IF ( prd_cost_tab(k).component_cost <> 0 OR (l_dtl_inserted = 0 AND k = prd_cost_tab.COUNT )) THEN -- B9131983 Bug 13038249 Modified condition and restored IF
7325:
7377:
7378: END LOOP; /* -- Main Processing */
7379:
7380: IF l_debug_level >= l_debug_level_medium THEN
7381: fnd_file.put_line
7382: (fnd_file.log,'After yield check');
7383: END IF;
7384:
7385: -- If we are not on a terminal step, we have to roll the costs into
7378: END LOOP; /* -- Main Processing */
7379:
7380: IF l_debug_level >= l_debug_level_medium THEN
7381: fnd_file.put_line
7382: (fnd_file.log,'After yield check');
7383: END IF;
7384:
7385: -- If we are not on a terminal step, we have to roll the costs into
7386: -- the next step(s) in the dependency chain. Also, if the route divides
7388: -- all subsequent steps.
7389: IF l_step_tab(i).dependencies(1).step_index IS NOT NULL THEN
7390:
7391: IF l_debug_level >= l_debug_level_medium THEN
7392: fnd_file.put_line
7393: (fnd_file.log,'Before quantity accumulation');
7394: END IF;
7395:
7396: l_total_qty := 0;
7389: IF l_step_tab(i).dependencies(1).step_index IS NOT NULL THEN
7390:
7391: IF l_debug_level >= l_debug_level_medium THEN
7392: fnd_file.put_line
7393: (fnd_file.log,'Before quantity accumulation');
7394: END IF;
7395:
7396: l_total_qty := 0;
7397:
7402: END LOOP;
7403:
7404: IF l_debug_level >= l_debug_level_high THEN
7405:
7406: fnd_file.put_line
7407: (fnd_file.log,'After quantity accumulation, total_qty is'
7408: ||to_char(l_total_qty,'999999999.99')
7409: );
7410: END IF;
7403:
7404: IF l_debug_level >= l_debug_level_high THEN
7405:
7406: fnd_file.put_line
7407: (fnd_file.log,'After quantity accumulation, total_qty is'
7408: ||to_char(l_total_qty,'999999999.99')
7409: );
7410: END IF;
7411:
7431: l_cost_factor := NVL(l_step_tab(i).dependencies(j).step_qty, 0) / l_total_qty;
7432: ELSE
7433: l_cost_factor := 0;
7434: IF l_debug_level >= l_debug_level_medium THEN
7435: fnd_file.put_line
7436: (fnd_file.log,'Assigning cost factor as zero');
7437: END IF;
7438: END IF;
7439: */
7432: ELSE
7433: l_cost_factor := 0;
7434: IF l_debug_level >= l_debug_level_medium THEN
7435: fnd_file.put_line
7436: (fnd_file.log,'Assigning cost factor as zero');
7437: END IF;
7438: END IF;
7439: */
7440: -- Bug 9616762 Front port of 4601607 End commenting out old code
7439: */
7440: -- Bug 9616762 Front port of 4601607 End commenting out old code
7441:
7442: IF l_debug_level >= l_debug_level_medium THEN
7443: fnd_file.put_line
7444: (fnd_file.log,'Cost factor is '||to_char(l_cost_factor,'9999.99'));
7445: END IF;
7446:
7447: -- Roll current costs into next step(s). We loop through all costs accumulated
7440: -- Bug 9616762 Front port of 4601607 End commenting out old code
7441:
7442: IF l_debug_level >= l_debug_level_medium THEN
7443: fnd_file.put_line
7444: (fnd_file.log,'Cost factor is '||to_char(l_cost_factor,'9999.99'));
7445: END IF;
7446:
7447: -- Roll current costs into next step(s). We loop through all costs accumulated
7448: -- and apply the above factor to each cost when rolling them forward
7457: IF (NVL(l_step_tab(i).step_costs(k).cost_analysis_code, ' ') <> ' ')
7458: THEN
7459:
7460: IF l_debug_level >= l_debug_level_medium THEN
7461: fnd_file.put_line
7462: (fnd_file.log,'Rolling costs of step '
7463: ||to_char(i)||' into step '||to_char(l_step_index));
7464: END IF;
7465:
7458: THEN
7459:
7460: IF l_debug_level >= l_debug_level_medium THEN
7461: fnd_file.put_line
7462: (fnd_file.log,'Rolling costs of step '
7463: ||to_char(i)||' into step '||to_char(l_step_index));
7464: END IF;
7465:
7466: -- Now roll current costs into the next step
7490:
7491: IF NOT l_cost_accrued THEN
7492: -- B9131983 use NVL here as well ??
7493: IF l_debug_level >= l_debug_level_medium THEN
7494: fnd_file.put_line (fnd_file.log,'cost_analysis_code '||l_step_tab(l_step_index).inherited_costs(1).cost_analysis_code||'.');
7495: END IF;
7496: IF l_step_tab(l_step_index).inherited_costs(1).cost_analysis_code = ' ' THEN
7497: l_step_tab(l_step_index).inherited_costs(1) :=
7498: l_step_tab(i).step_costs(k);
7542: WHERE batch_id = transaction_row.doc_id;
7543:
7544: END IF;
7545: IF l_debug_level >= l_debug_level_medium THEN
7546: fnd_file.put_line
7547: (fnd_file.log,'Entered Procedure: '||procedure_name);
7548: END IF;
7549:
7550: END process_batch;
7543:
7544: END IF;
7545: IF l_debug_level >= l_debug_level_medium THEN
7546: fnd_file.put_line
7547: (fnd_file.log,'Entered Procedure: '||procedure_name);
7548: END IF;
7549:
7550: END process_batch;
7551:
7566: BEGIN
7567:
7568: procedure_name := 'Process Creation';
7569: IF l_debug_level >= l_debug_level_medium THEN
7570: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7571: END IF;
7572:
7573: -- We assume that no lot cost exists, as the lot is being created by this transaction.
7574: -- The only costs we can determine come from burdens.
7601: IF l_return_status = 'S' THEN
7602:
7603: IF l_burdens_total <> 0 THEN
7604: IF l_debug_level >= l_debug_level_medium THEN
7605: fnd_file.put_line
7606: (fnd_file.log,'Processing' || l_burden_costs_tab.count ||' burdens for CREI transaction ID '||transaction_row.transaction_id);
7607: END IF;
7608:
7609: FOR i IN 1..l_burden_costs_tab.COUNT
7602:
7603: IF l_burdens_total <> 0 THEN
7604: IF l_debug_level >= l_debug_level_medium THEN
7605: fnd_file.put_line
7606: (fnd_file.log,'Processing' || l_burden_costs_tab.count ||' burdens for CREI transaction ID '||transaction_row.transaction_id);
7607: END IF;
7608:
7609: FOR i IN 1..l_burden_costs_tab.COUNT
7610: LOOP
7625:
7626: ELSE
7627:
7628: IF l_debug_level >= l_debug_level_medium THEN
7629: fnd_file.put_line
7630: (fnd_file.log,'No burdens found, retrieving default component class and analysis code for cost details');
7631: END IF;
7632:
7633:
7626: ELSE
7627:
7628: IF l_debug_level >= l_debug_level_medium THEN
7629: fnd_file.put_line
7630: (fnd_file.log,'No burdens found, retrieving default component class and analysis code for cost details');
7631: END IF;
7632:
7633:
7634: OPEN component_class_cursor
7678: RETURN;
7679: END IF;
7680: END IF;
7681: IF l_debug_level >= l_debug_level_medium THEN
7682: fnd_file.put_line
7683: (fnd_file.log,'Leaving Procedure: '||procedure_name);
7684: END IF;
7685:
7686: EXCEPTION
7679: END IF;
7680: END IF;
7681: IF l_debug_level >= l_debug_level_medium THEN
7682: fnd_file.put_line
7683: (fnd_file.log,'Leaving Procedure: '||procedure_name);
7684: END IF;
7685:
7686: EXCEPTION
7687: WHEN OTHERS THEN
7684: END IF;
7685:
7686: EXCEPTION
7687: WHEN OTHERS THEN
7688: fnd_file.put_line
7689: (fnd_file.log,'Failed in procedure process_creation with error');
7690: fnd_file.put_line(fnd_file.log,SQLERRM);
7691: l_return_status := 'U';
7692: END process_creation;
7685:
7686: EXCEPTION
7687: WHEN OTHERS THEN
7688: fnd_file.put_line
7689: (fnd_file.log,'Failed in procedure process_creation with error');
7690: fnd_file.put_line(fnd_file.log,SQLERRM);
7691: l_return_status := 'U';
7692: END process_creation;
7693:
7686: EXCEPTION
7687: WHEN OTHERS THEN
7688: fnd_file.put_line
7689: (fnd_file.log,'Failed in procedure process_creation with error');
7690: fnd_file.put_line(fnd_file.log,SQLERRM);
7691: l_return_status := 'U';
7692: END process_creation;
7693:
7694: --**********************************************************************************************
7704: BEGIN
7705:
7706: procedure_name := 'Process Sales Order';
7707: IF l_debug_level >= l_debug_level_medium THEN
7708: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7709: END IF;
7710: -- This is a debit on the source organization so treat this as an adjustment. Returns are handled
7711: -- as PORC transactions.
7712:
7712:
7713: process_adjustment;
7714:
7715: IF l_debug_level >= l_debug_level_medium THEN
7716: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
7717: END IF;
7718:
7719: END process_sales_order;
7720:
7734: BEGIN
7735:
7736: procedure_name := 'Process cycle count';
7737: IF l_debug_level >= l_debug_level_medium THEN
7738: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7739: END IF;
7740:
7741: -- For costing purposes this is equivalent to an adjustment
7742:
7741: -- For costing purposes this is equivalent to an adjustment
7742:
7743: process_adjustment;
7744: IF l_debug_level >= l_debug_level_medium THEN
7745: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
7746: END IF;
7747:
7748: END process_cycle_count;
7749:
7822:
7823: BEGIN
7824: procedure_name := 'process_lc_adjustments';
7825: IF l_debug_level >= l_debug_level_medium THEN
7826: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7827: fnd_file.put_line(fnd_file.log,'INSIDE LC Actual adjustments for adjustment transaction ID/Rcv Transaction Id/Shipment line ID '
7828: ||transaction_row.transaction_id ||'/'||transaction_row.doc_id ||'/'|| transaction_row.line_id);
7829: fnd_file.put_line(fnd_file.log,'transaction_row.transaction_id: '||transaction_row.transaction_id);
7830: fnd_file.put_line(fnd_file.log,'Entered transaction_row.doc_id: '||transaction_row.doc_id);
7823: BEGIN
7824: procedure_name := 'process_lc_adjustments';
7825: IF l_debug_level >= l_debug_level_medium THEN
7826: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7827: fnd_file.put_line(fnd_file.log,'INSIDE LC Actual adjustments for adjustment transaction ID/Rcv Transaction Id/Shipment line ID '
7828: ||transaction_row.transaction_id ||'/'||transaction_row.doc_id ||'/'|| transaction_row.line_id);
7829: fnd_file.put_line(fnd_file.log,'transaction_row.transaction_id: '||transaction_row.transaction_id);
7830: fnd_file.put_line(fnd_file.log,'Entered transaction_row.doc_id: '||transaction_row.doc_id);
7831: fnd_file.put_line(fnd_file.log,'Entered transaction_row.line_id: '||transaction_row.line_id);
7825: IF l_debug_level >= l_debug_level_medium THEN
7826: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7827: fnd_file.put_line(fnd_file.log,'INSIDE LC Actual adjustments for adjustment transaction ID/Rcv Transaction Id/Shipment line ID '
7828: ||transaction_row.transaction_id ||'/'||transaction_row.doc_id ||'/'|| transaction_row.line_id);
7829: fnd_file.put_line(fnd_file.log,'transaction_row.transaction_id: '||transaction_row.transaction_id);
7830: fnd_file.put_line(fnd_file.log,'Entered transaction_row.doc_id: '||transaction_row.doc_id);
7831: fnd_file.put_line(fnd_file.log,'Entered transaction_row.line_id: '||transaction_row.line_id);
7832: END IF;
7833:
7826: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
7827: fnd_file.put_line(fnd_file.log,'INSIDE LC Actual adjustments for adjustment transaction ID/Rcv Transaction Id/Shipment line ID '
7828: ||transaction_row.transaction_id ||'/'||transaction_row.doc_id ||'/'|| transaction_row.line_id);
7829: fnd_file.put_line(fnd_file.log,'transaction_row.transaction_id: '||transaction_row.transaction_id);
7830: fnd_file.put_line(fnd_file.log,'Entered transaction_row.doc_id: '||transaction_row.doc_id);
7831: fnd_file.put_line(fnd_file.log,'Entered transaction_row.line_id: '||transaction_row.line_id);
7832: END IF;
7833:
7834: -- Load adjustment cost details
7827: fnd_file.put_line(fnd_file.log,'INSIDE LC Actual adjustments for adjustment transaction ID/Rcv Transaction Id/Shipment line ID '
7828: ||transaction_row.transaction_id ||'/'||transaction_row.doc_id ||'/'|| transaction_row.line_id);
7829: fnd_file.put_line(fnd_file.log,'transaction_row.transaction_id: '||transaction_row.transaction_id);
7830: fnd_file.put_line(fnd_file.log,'Entered transaction_row.doc_id: '||transaction_row.doc_id);
7831: fnd_file.put_line(fnd_file.log,'Entered transaction_row.line_id: '||transaction_row.line_id);
7832: END IF;
7833:
7834: -- Load adjustment cost details
7835: OPEN c_adjustments_cursor;
7836: FETCH c_adjustments_cursor BULK COLLECT INTO l_adjustments_cursor;
7837: CLOSE c_adjustments_cursor;
7838:
7839: IF l_debug_level >= l_debug_level_medium THEN
7840: fnd_file.put_line(fnd_file.log,'Opened the c_adjustments_cursor');
7841: END IF;
7842:
7843: FOR i IN 1 .. l_adjustments_cursor.COUNT
7844: LOOP
7843: FOR i IN 1 .. l_adjustments_cursor.COUNT
7844: LOOP
7845:
7846: IF l_debug_level >= l_debug_level_medium THEN
7847: fnd_file.put_line(fnd_file.log,'Add the gmf_cost_type to new_cost_tab');
7848: END IF;
7849:
7850: -- PK Bug 10159100 Code to prorate quantities Begins
7851:
7856: l_adjustments_cursor(i).applied_amt := 0;
7857: ELSE
7858: l_adjustments_cursor(i).applied_amt := l_adjustments_cursor(i).adjustment_amt * old_cost.onhand_qty / l_adjustments_cursor(i).received_qty;
7859: IF l_debug_level >= l_debug_level_medium THEN
7860: fnd_file.put_line(fnd_file.log,' Onhand Qty ' || old_cost.onhand_qty);
7861: fnd_file.put_line(fnd_file.log,' Received Qty ' || l_adjustments_cursor(i).received_qty);
7862: fnd_file.put_line(fnd_file.log,' Adjustment Amt ' || l_adjustments_cursor(i).adjustment_amt);
7863: fnd_file.put_line(fnd_file.log,' Applied Amt ' || l_adjustments_cursor(i).applied_amt);
7864: END IF;
7857: ELSE
7858: l_adjustments_cursor(i).applied_amt := l_adjustments_cursor(i).adjustment_amt * old_cost.onhand_qty / l_adjustments_cursor(i).received_qty;
7859: IF l_debug_level >= l_debug_level_medium THEN
7860: fnd_file.put_line(fnd_file.log,' Onhand Qty ' || old_cost.onhand_qty);
7861: fnd_file.put_line(fnd_file.log,' Received Qty ' || l_adjustments_cursor(i).received_qty);
7862: fnd_file.put_line(fnd_file.log,' Adjustment Amt ' || l_adjustments_cursor(i).adjustment_amt);
7863: fnd_file.put_line(fnd_file.log,' Applied Amt ' || l_adjustments_cursor(i).applied_amt);
7864: END IF;
7865: END IF;
7858: l_adjustments_cursor(i).applied_amt := l_adjustments_cursor(i).adjustment_amt * old_cost.onhand_qty / l_adjustments_cursor(i).received_qty;
7859: IF l_debug_level >= l_debug_level_medium THEN
7860: fnd_file.put_line(fnd_file.log,' Onhand Qty ' || old_cost.onhand_qty);
7861: fnd_file.put_line(fnd_file.log,' Received Qty ' || l_adjustments_cursor(i).received_qty);
7862: fnd_file.put_line(fnd_file.log,' Adjustment Amt ' || l_adjustments_cursor(i).adjustment_amt);
7863: fnd_file.put_line(fnd_file.log,' Applied Amt ' || l_adjustments_cursor(i).applied_amt);
7864: END IF;
7865: END IF;
7866:
7859: IF l_debug_level >= l_debug_level_medium THEN
7860: fnd_file.put_line(fnd_file.log,' Onhand Qty ' || old_cost.onhand_qty);
7861: fnd_file.put_line(fnd_file.log,' Received Qty ' || l_adjustments_cursor(i).received_qty);
7862: fnd_file.put_line(fnd_file.log,' Adjustment Amt ' || l_adjustments_cursor(i).adjustment_amt);
7863: fnd_file.put_line(fnd_file.log,' Applied Amt ' || l_adjustments_cursor(i).applied_amt);
7864: END IF;
7865: END IF;
7866:
7867: END IF;
7875: l_adjustments_cursor(i).applied_amt, -- PK Bug 10159100 l_adjustments_cursor(i).adjustment_amt,
7876: 0);
7877:
7878: IF l_debug_level >= l_debug_level_medium THEN
7879: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_cmpntcls_id: ' || new_cost_tab(i).cost_cmpntcls_id);
7880: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_analysis_code: ' || new_cost_tab(i).cost_analysis_code);
7881: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_level: ' || new_cost_tab(i).cost_level);
7882: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').component_cost: ' || new_cost_tab(i).component_cost);
7883: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').burden_ind: ' || new_cost_tab(i).burden_ind);
7876: 0);
7877:
7878: IF l_debug_level >= l_debug_level_medium THEN
7879: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_cmpntcls_id: ' || new_cost_tab(i).cost_cmpntcls_id);
7880: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_analysis_code: ' || new_cost_tab(i).cost_analysis_code);
7881: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_level: ' || new_cost_tab(i).cost_level);
7882: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').component_cost: ' || new_cost_tab(i).component_cost);
7883: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').burden_ind: ' || new_cost_tab(i).burden_ind);
7884: END IF;
7877:
7878: IF l_debug_level >= l_debug_level_medium THEN
7879: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_cmpntcls_id: ' || new_cost_tab(i).cost_cmpntcls_id);
7880: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_analysis_code: ' || new_cost_tab(i).cost_analysis_code);
7881: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_level: ' || new_cost_tab(i).cost_level);
7882: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').component_cost: ' || new_cost_tab(i).component_cost);
7883: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').burden_ind: ' || new_cost_tab(i).burden_ind);
7884: END IF;
7885:
7878: IF l_debug_level >= l_debug_level_medium THEN
7879: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_cmpntcls_id: ' || new_cost_tab(i).cost_cmpntcls_id);
7880: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_analysis_code: ' || new_cost_tab(i).cost_analysis_code);
7881: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_level: ' || new_cost_tab(i).cost_level);
7882: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').component_cost: ' || new_cost_tab(i).component_cost);
7883: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').burden_ind: ' || new_cost_tab(i).burden_ind);
7884: END IF;
7885:
7886: -- Now merge the costs adjustments just loaded with the existing costs loaded in the rollup_lot_costs
7879: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_cmpntcls_id: ' || new_cost_tab(i).cost_cmpntcls_id);
7880: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_analysis_code: ' || new_cost_tab(i).cost_analysis_code);
7881: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').cost_level: ' || new_cost_tab(i).cost_level);
7882: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').component_cost: ' || new_cost_tab(i).component_cost);
7883: fnd_file.put_line(fnd_file.log,'new_cost_tab('||i ||').burden_ind: ' || new_cost_tab(i).burden_ind);
7884: END IF;
7885:
7886: -- Now merge the costs adjustments just loaded with the existing costs loaded in the rollup_lot_costs
7887: -- procedure. pass Merge type as V value adjustment
7964: END IF;
7965:
7966: END IF; -- PK Bug 10159100 do not create LC records if applied_amt is zero
7967:
7968: fnd_file.put_line(fnd_file.log,'adj_transaction_id: ' || l_adjustments_cursor(i).adj_transaction_id);
7969:
7970: OPEN cur_lca_count (l_adjustments_cursor(i).adj_transaction_id, transaction_row.lot_number);
7971: FETCH cur_lca_count INTO l_count;
7972: CLOSE cur_lca_count;
8052:
8053: END LOOP;
8054:
8055: IF l_debug_level >= l_debug_level_medium THEN
8056: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '|| procedure_name );
8057: END IF;
8058:
8059: EXCEPTION
8060: WHEN OTHERS THEN
8057: END IF;
8058:
8059: EXCEPTION
8060: WHEN OTHERS THEN
8061: fnd_file.put_line(fnd_file.log,'ERROR: Unable to Process Actual LC Adjustment ');
8062: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8063: l_return_status := 'E';
8064:
8065: END process_lc_adjustments;
8058:
8059: EXCEPTION
8060: WHEN OTHERS THEN
8061: fnd_file.put_line(fnd_file.log,'ERROR: Unable to Process Actual LC Adjustment ');
8062: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8063: l_return_status := 'E';
8064:
8065: END process_lc_adjustments;
8066:
8100:
8101: BEGIN
8102: procedure_name := 'Delete Lot Costs';
8103: IF l_debug_level >= l_debug_level_medium THEN
8104: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8105: END IF;
8106:
8107: l_rows_to_delete := 1000;
8108: l_matl_rows_deleted := 0;
8150: l_max_loop_cnt := ceil(l_header_ids_tab.count/l_rows_to_delete);
8151: END IF;
8152:
8153:
8154: fnd_file.put_line(fnd_File.LOG, '#of rows to delete in cost header: ' || l_header_ids_tab.count);
8155: fnd_file.put_line(fnd_File.LOG, 'l_max_loop_cnt: ' || l_max_loop_cnt);
8156:
8157: FOR i in 1..l_max_loop_cnt
8158: LOOP
8151: END IF;
8152:
8153:
8154: fnd_file.put_line(fnd_File.LOG, '#of rows to delete in cost header: ' || l_header_ids_tab.count);
8155: fnd_file.put_line(fnd_File.LOG, 'l_max_loop_cnt: ' || l_max_loop_cnt);
8156:
8157: FOR i in 1..l_max_loop_cnt
8158: LOOP
8159: -- Delete all material trx info
8193: FORALL indx IN l_rowids_tab.FIRST..l_rowids_tab.LAST
8194: DELETE FROM gmf_lot_costs
8195: WHERE rowid in l_rowids_tab(indx);
8196:
8197: fnd_file.put_line(fnd_File.LOG, ' ' || l_matl_rows_deleted || ' rows deleted from gmf_material_lot_cost_txns.');
8198: fnd_file.put_line(fnd_File.LOG, ' ' || l_cdtl_rows_deleted || ' rows deleted from gmf_lot_cost_details.');
8199: fnd_file.put_line(fnd_File.LOG, ' ' || SQL%ROWCOUNT || ' rows deleted from gmf_lot_costs.');
8200:
8201: COMMIT;
8194: DELETE FROM gmf_lot_costs
8195: WHERE rowid in l_rowids_tab(indx);
8196:
8197: fnd_file.put_line(fnd_File.LOG, ' ' || l_matl_rows_deleted || ' rows deleted from gmf_material_lot_cost_txns.');
8198: fnd_file.put_line(fnd_File.LOG, ' ' || l_cdtl_rows_deleted || ' rows deleted from gmf_lot_cost_details.');
8199: fnd_file.put_line(fnd_File.LOG, ' ' || SQL%ROWCOUNT || ' rows deleted from gmf_lot_costs.');
8200:
8201: COMMIT;
8202:
8195: WHERE rowid in l_rowids_tab(indx);
8196:
8197: fnd_file.put_line(fnd_File.LOG, ' ' || l_matl_rows_deleted || ' rows deleted from gmf_material_lot_cost_txns.');
8198: fnd_file.put_line(fnd_File.LOG, ' ' || l_cdtl_rows_deleted || ' rows deleted from gmf_lot_cost_details.');
8199: fnd_file.put_line(fnd_File.LOG, ' ' || SQL%ROWCOUNT || ' rows deleted from gmf_lot_costs.');
8200:
8201: COMMIT;
8202:
8203: -- remove old rows and release memory.
8226:
8227: l_matl_rows_deleted := l_matl_rows_deleted + SQL%ROWCOUNT;
8228:
8229: IF l_matl_rows_deleted = 0 THEN
8230: fnd_file.put_line(fnd_File.LOG, ' No rows found to delete.');
8231: END IF;
8232:
8233: COMMIT;
8234: /***** Bug 4094132 - Added the above Delete - End *****/
8232:
8233: COMMIT;
8234: /***** Bug 4094132 - Added the above Delete - End *****/
8235: IF l_debug_level >= l_debug_level_medium THEN
8236: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
8237: END IF;
8238:
8239: END delete_lot_costs;
8240:
8263:
8264: BEGIN
8265: procedure_name := 'Process Lot Cost Adjustments';
8266: IF l_debug_level >= l_debug_level_medium THEN
8267: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8268: END IF;
8269:
8270: OPEN adjustments_cursor;
8271: FETCH adjustments_cursor BULK COLLECT INTO new_cost_tab;
8361: END IF;
8362: END IF;
8363:
8364: IF l_debug_level >= l_debug_level_medium THEN
8365: fnd_file.put_line
8366: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8367: END IF;
8368:
8369: END process_lot_cost_adjustments;
8362: END IF;
8363:
8364: IF l_debug_level >= l_debug_level_medium THEN
8365: fnd_file.put_line
8366: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8367: END IF;
8368:
8369: END process_lot_cost_adjustments;
8370:
8390:
8391: BEGIN
8392: procedure_name := 'Process WIP Batch';
8393: IF l_debug_level >= l_debug_level_medium THEN
8394: fnd_file.put_line (fnd_file.log,' Entering process_wip_batch');
8395: END IF;
8396:
8397: /* B9131983 If cost is ZERO or component is not available
8398: select the default value from fiscal policy and use it in cost details */
8410: FETCH lot_cost_cursor INTO old_cost;
8411:
8412: IF lot_cost_cursor%FOUND THEN
8413: IF l_debug_level >= l_debug_level_high THEN
8414: fnd_file.put_line
8415: (fnd_file.log,'Reading existing costs for header ID '||old_cost.header_id);
8416: END IF;
8417:
8418: OPEN lot_cost_detail_cursor (old_cost.header_id);
8411:
8412: IF lot_cost_cursor%FOUND THEN
8413: IF l_debug_level >= l_debug_level_high THEN
8414: fnd_file.put_line
8415: (fnd_file.log,'Reading existing costs for header ID '||old_cost.header_id);
8416: END IF;
8417:
8418: OPEN lot_cost_detail_cursor (old_cost.header_id);
8419: FETCH lot_cost_detail_cursor BULK COLLECT INTO old_cost_tab;
8423: CLOSE lot_cost_cursor;
8424:
8425: IF old_cost_tab.EXISTS(1) THEN
8426: IF l_debug_level >= l_debug_level_high THEN
8427: fnd_file.put_line
8428: (fnd_file.log,'Lot Cost before this transaction is '||to_char(old_cost.unit_cost,'999999999.99'));
8429: END IF;
8430:
8431: -- At this stage we have all the header and cost component information we need
8424:
8425: IF old_cost_tab.EXISTS(1) THEN
8426: IF l_debug_level >= l_debug_level_high THEN
8427: fnd_file.put_line
8428: (fnd_file.log,'Lot Cost before this transaction is '||to_char(old_cost.unit_cost,'999999999.99'));
8429: END IF;
8430:
8431: -- At this stage we have all the header and cost component information we need
8432: -- to store the costs in the database.
8464: old_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
8465: END IF;
8466:
8467: IF l_debug_level >= l_debug_level_low THEN
8468: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8465: END IF;
8466:
8467: IF l_debug_level >= l_debug_level_low THEN
8468: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8473: fnd_file.put_line(fnd_file.log,'====================================');
8466:
8467: IF l_debug_level >= l_debug_level_low THEN
8468: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8473: fnd_file.put_line(fnd_file.log,'====================================');
8474: END IF;
8467: IF l_debug_level >= l_debug_level_low THEN
8468: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8473: fnd_file.put_line(fnd_file.log,'====================================');
8474: END IF;
8475:
8468: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8473: fnd_file.put_line(fnd_file.log,'====================================');
8474: END IF;
8475:
8476: create_cost_detail
8469: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8470: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8471: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8472: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8473: fnd_file.put_line(fnd_file.log,'====================================');
8474: END IF;
8475:
8476: create_cost_detail
8477: ( new_cost.header_id
8511: old_cost_tab(k).cost_analysis_code := x_mtl_analysis_code;
8512: END IF;
8513:
8514: IF l_debug_level >= l_debug_level_low THEN
8515: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8512: END IF;
8513:
8514: IF l_debug_level >= l_debug_level_low THEN
8515: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8520: fnd_file.put_line(fnd_file.log,'====================================');
8513:
8514: IF l_debug_level >= l_debug_level_low THEN
8515: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8520: fnd_file.put_line(fnd_file.log,'====================================');
8521: END IF;
8514: IF l_debug_level >= l_debug_level_low THEN
8515: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8520: fnd_file.put_line(fnd_file.log,'====================================');
8521: END IF;
8522:
8515: fnd_file.put_line(fnd_file.log,'WIP:After Replacing component/analysis/level to fiscal policy');
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8520: fnd_file.put_line(fnd_file.log,'====================================');
8521: END IF;
8522:
8523: create_cost_detail
8516: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||old_cost_tab(k).cost_cmpntcls_id);
8517: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||old_cost_tab(k).cost_analysis_code);
8518: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||old_cost_tab(k).cost_level);
8519: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||old_cost_tab(k).component_cost);
8520: fnd_file.put_line(fnd_file.log,'====================================');
8521: END IF;
8522:
8523: create_cost_detail
8524: ( -new_cost.header_id
8563: ELSE
8564: -- No cost currently exists, create one and all associated details
8565: -- and transactions. Again, this is only for the invoking transaction
8566: IF l_debug_level >= l_debug_level_high THEN
8567: fnd_file.put_line( fnd_file.log,' Previous Cost is NULL');
8568: END IF;
8569:
8570: create_cost_header
8571: ( transaction_row.inventory_item_id
8629: END IF;
8630:
8631: END IF;
8632: IF l_debug_level >= l_debug_level_medium THEN
8633: fnd_file.put_line (fnd_file.log,' Leaving process_wip_batch');
8634: END IF;
8635:
8636: END process_wip_batch;
8637:
8659:
8660: procedure_name := 'Weighted Average';
8661:
8662: IF l_debug_level >= l_debug_level_high THEN
8663: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8664: fnd_file.put_line(fnd_file.log,'trans_qty = '||trans_qty);
8665: fnd_file.put_line(fnd_file.log,'Previous Copy of new_cost_tab is:');
8666:
8667: FOR k IN 1 .. new_cost_tab.COUNT
8660: procedure_name := 'Weighted Average';
8661:
8662: IF l_debug_level >= l_debug_level_high THEN
8663: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8664: fnd_file.put_line(fnd_file.log,'trans_qty = '||trans_qty);
8665: fnd_file.put_line(fnd_file.log,'Previous Copy of new_cost_tab is:');
8666:
8667: FOR k IN 1 .. new_cost_tab.COUNT
8668: LOOP
8661:
8662: IF l_debug_level >= l_debug_level_high THEN
8663: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8664: fnd_file.put_line(fnd_file.log,'trans_qty = '||trans_qty);
8665: fnd_file.put_line(fnd_file.log,'Previous Copy of new_cost_tab is:');
8666:
8667: FOR k IN 1 .. new_cost_tab.COUNT
8668: LOOP
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8665: fnd_file.put_line(fnd_file.log,'Previous Copy of new_cost_tab is:');
8666:
8667: FOR k IN 1 .. new_cost_tab.COUNT
8668: LOOP
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8670: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8671: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8672: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8673: fnd_file.put_line(fnd_file.log,'====================================');
8666:
8667: FOR k IN 1 .. new_cost_tab.COUNT
8668: LOOP
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8670: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8671: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8672: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8673: fnd_file.put_line(fnd_file.log,'====================================');
8674: END LOOP;
8667: FOR k IN 1 .. new_cost_tab.COUNT
8668: LOOP
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8670: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8671: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8672: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8673: fnd_file.put_line(fnd_file.log,'====================================');
8674: END LOOP;
8675:
8668: LOOP
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8670: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8671: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8672: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8673: fnd_file.put_line(fnd_file.log,'====================================');
8674: END LOOP;
8675:
8676: IF costs_table.EXISTS(1) THEN
8669: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8670: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8671: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8672: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8673: fnd_file.put_line(fnd_file.log,'====================================');
8674: END LOOP;
8675:
8676: IF costs_table.EXISTS(1) THEN
8677: fnd_file.put_line(fnd_file.log,'Before Average costs_tab is:');
8673: fnd_file.put_line(fnd_file.log,'====================================');
8674: END LOOP;
8675:
8676: IF costs_table.EXISTS(1) THEN
8677: fnd_file.put_line(fnd_file.log,'Before Average costs_tab is:');
8678: FOR k IN 1 .. costs_table.COUNT
8679: LOOP
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8676: IF costs_table.EXISTS(1) THEN
8677: fnd_file.put_line(fnd_file.log,'Before Average costs_tab is:');
8678: FOR k IN 1 .. costs_table.COUNT
8679: LOOP
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8682: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8677: fnd_file.put_line(fnd_file.log,'Before Average costs_tab is:');
8678: FOR k IN 1 .. costs_table.COUNT
8679: LOOP
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8682: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8685: END LOOP;
8678: FOR k IN 1 .. costs_table.COUNT
8679: LOOP
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8682: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8685: END LOOP;
8686: ELSE
8679: LOOP
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8682: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8685: END LOOP;
8686: ELSE
8687: fnd_file.put_line(fnd_file.log,'No costs to merge');
8680: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8681: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8682: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8685: END LOOP;
8686: ELSE
8687: fnd_file.put_line(fnd_file.log,'No costs to merge');
8688: END IF;
8683: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8684: fnd_file.put_line(fnd_file.log,'====================================');
8685: END LOOP;
8686: ELSE
8687: fnd_file.put_line(fnd_file.log,'No costs to merge');
8688: END IF;
8689: END IF;
8690:
8691: IF costs_table.EXISTS(1) THEN
8695: divisor := 1;
8696: END IF;
8697:
8698: IF l_debug_level >= l_debug_level_high THEN
8699: fnd_file.put_line(fnd_file.log,'Divisor is '||divisor);
8700: END IF; /* Bug 10415925 */
8701:
8702: FOR k in 1 .. costs_table.COUNT
8703: LOOP
8704: costs_table(k).component_cost := costs_table(k).component_cost * trans_qty / divisor;
8705: END LOOP;
8706:
8707: IF l_debug_level >= l_debug_level_high THEN
8708: fnd_file.put_line(fnd_file.log,' new_qty = '||trans_qty);
8709:
8710: -- fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8711:
8712: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
8706:
8707: IF l_debug_level >= l_debug_level_high THEN
8708: fnd_file.put_line(fnd_file.log,' new_qty = '||trans_qty);
8709:
8710: -- fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8711:
8712: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
8713: FOR k IN 1 .. costs_table.COUNT
8714: LOOP
8708: fnd_file.put_line(fnd_file.log,' new_qty = '||trans_qty);
8709:
8710: -- fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8711:
8712: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
8713: FOR k IN 1 .. costs_table.COUNT
8714: LOOP
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8711:
8712: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
8713: FOR k IN 1 .. costs_table.COUNT
8714: LOOP
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8717: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8718: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8719: fnd_file.put_line(fnd_file.log,'====================================');
8712: fnd_file.put_line(fnd_file.log,'After averaging costs_tab is:');
8713: FOR k IN 1 .. costs_table.COUNT
8714: LOOP
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8717: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8718: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8719: fnd_file.put_line(fnd_file.log,'====================================');
8720: END LOOP;
8713: FOR k IN 1 .. costs_table.COUNT
8714: LOOP
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8717: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8718: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8719: fnd_file.put_line(fnd_file.log,'====================================');
8720: END LOOP;
8721: END IF;
8714: LOOP
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8717: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8718: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8719: fnd_file.put_line(fnd_file.log,'====================================');
8720: END LOOP;
8721: END IF;
8722:
8715: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||costs_table(k).cost_cmpntcls_id);
8716: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||costs_table(k).cost_analysis_code);
8717: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||costs_table(k).cost_level);
8718: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||costs_table(k).component_cost);
8719: fnd_file.put_line(fnd_file.log,'====================================');
8720: END LOOP;
8721: END IF;
8722:
8723: IF (new_cost_tab.COUNT = 0) THEN
8734: 'C'
8735: );
8736: END IF;
8737:
8738: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8739: FOR k IN 1 .. new_cost_tab.COUNT
8740: LOOP
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8737:
8738: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8739: FOR k IN 1 .. new_cost_tab.COUNT
8740: LOOP
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8743: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8744: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8745: fnd_file.put_line(fnd_file.log,'====================================');
8738: fnd_file.put_line(fnd_file.log,'After averaging new_cost_tab is:');
8739: FOR k IN 1 .. new_cost_tab.COUNT
8740: LOOP
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8743: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8744: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8745: fnd_file.put_line(fnd_file.log,'====================================');
8746: END LOOP;
8739: FOR k IN 1 .. new_cost_tab.COUNT
8740: LOOP
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8743: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8744: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8745: fnd_file.put_line(fnd_file.log,'====================================');
8746: END LOOP;
8747: END IF;
8740: LOOP
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8743: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8744: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8745: fnd_file.put_line(fnd_file.log,'====================================');
8746: END LOOP;
8747: END IF;
8748:
8741: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||new_cost_tab(k).cost_cmpntcls_id);
8742: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||new_cost_tab(k).cost_analysis_code);
8743: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||new_cost_tab(k).cost_level);
8744: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||new_cost_tab(k).component_cost);
8745: fnd_file.put_line(fnd_file.log,'====================================');
8746: END LOOP;
8747: END IF;
8748:
8749: IF l_debug_level >= l_debug_level_medium THEN
8746: END LOOP;
8747: END IF;
8748:
8749: IF l_debug_level >= l_debug_level_medium THEN
8750: fnd_file.put_line
8751: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8752: END IF;
8753: EXCEPTION
8754: WHEN OTHERS THEN
8747: END IF;
8748:
8749: IF l_debug_level >= l_debug_level_medium THEN
8750: fnd_file.put_line
8751: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8752: END IF;
8753: EXCEPTION
8754: WHEN OTHERS THEN
8755: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8751: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8752: END IF;
8753: EXCEPTION
8754: WHEN OTHERS THEN
8755: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8756: END perform_weighted_average;
8757:
8758:
8759: /*=====================================================================
8783:
8784: BEGIN
8785: procedure_name := 'Get New Cost';
8786: IF l_debug_level >= l_debug_level_medium THEN
8787: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
8788: END IF;
8789:
8790: IF (p_cost_tab.COUNT > 0) THEN
8791: FOR i IN 1..p_cost_tab.COUNT LOOP
8806: INTO x_total_cost
8807: FROM TABLE ( CAST(l_cost_table AS SYSTEM.gmf_cost_tab) ) nct;
8808:
8809: IF l_debug_level >= l_debug_level_high THEN
8810: fnd_file.put_line(fnd_file.log,'After weighted average new_cost_tab is:');
8811: FOR k IN 1 .. new_cost_tab.COUNT
8812: LOOP
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8809: IF l_debug_level >= l_debug_level_high THEN
8810: fnd_file.put_line(fnd_file.log,'After weighted average new_cost_tab is:');
8811: FOR k IN 1 .. new_cost_tab.COUNT
8812: LOOP
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8810: fnd_file.put_line(fnd_file.log,'After weighted average new_cost_tab is:');
8811: FOR k IN 1 .. new_cost_tab.COUNT
8812: LOOP
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8818: END LOOP;
8811: FOR k IN 1 .. new_cost_tab.COUNT
8812: LOOP
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8818: END LOOP;
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8812: LOOP
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8818: END LOOP;
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8820: END IF;
8813: fnd_file.put_line(fnd_file.log,'CCC/ID['||k||']: '||x_new_cost_tab(k).cost_cmpntcls_id);
8814: fnd_file.put_line(fnd_file.log,'A/Code['||k||']: '||x_new_cost_tab(k).cost_analysis_code);
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8818: END LOOP;
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8820: END IF;
8821: IF l_debug_level >= l_debug_level_medium THEN
8815: fnd_file.put_line(fnd_file.log,'Level['||k||'] : '||x_new_cost_tab(k).cost_level);
8816: fnd_file.put_line(fnd_file.log,'C/Cost['||k||']: '||x_new_cost_tab(k).component_cost);
8817: fnd_file.put_line(fnd_file.log,'====================================');
8818: END LOOP;
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8820: END IF;
8821: IF l_debug_level >= l_debug_level_medium THEN
8822: fnd_file.put_line
8823: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8818: END LOOP;
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8820: END IF;
8821: IF l_debug_level >= l_debug_level_medium THEN
8822: fnd_file.put_line
8823: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8824: END IF;
8825: EXCEPTION
8826: WHEN OTHERS THEN
8819: fnd_file.put_line(fnd_file.log,'After merging, new unit cost is: '||x_total_cost);
8820: END IF;
8821: IF l_debug_level >= l_debug_level_medium THEN
8822: fnd_file.put_line
8823: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8824: END IF;
8825: EXCEPTION
8826: WHEN OTHERS THEN
8827: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8823: (fnd_file.log,'Leaving Procedure: '||procedure_name);
8824: END IF;
8825: EXCEPTION
8826: WHEN OTHERS THEN
8827: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
8828: END get_new_cost;
8829:
8830: /*=========================================================
8831: PROCEDURE : Load_lot_costed_items_gt
8865: BEGIN
8866:
8867: procedure_name := 'Load_Lot_Costed_Items_gt';
8868:
8869: fnd_file.put_line(fnd_file.log,'Loading GT Items: '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
8870:
8871: IF (p_le_id IS NOT NULL) THEN
8872:
8873: l_le_id := p_le_id;
9016:
9017: x_return_status := 0;
9018:
9019: ELSE
9020: fnd_file.put_line
9021: (fnd_file.log,'ERROR: Legal entity is NULL in '||procedure_name);
9022: x_return_status := -1;
9023: END IF;
9024:
9017: x_return_status := 0;
9018:
9019: ELSE
9020: fnd_file.put_line
9021: (fnd_file.log,'ERROR: Legal entity is NULL in '||procedure_name);
9022: x_return_status := -1;
9023: END IF;
9024:
9025: IF l_debug_level >= l_debug_level_medium THEN
9022: x_return_status := -1;
9023: END IF;
9024:
9025: IF l_debug_level >= l_debug_level_medium THEN
9026: fnd_file.put_line
9027: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9028: END IF;
9029:
9030: EXCEPTION
9023: END IF;
9024:
9025: IF l_debug_level >= l_debug_level_medium THEN
9026: fnd_file.put_line
9027: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9028: END IF;
9029:
9030: EXCEPTION
9031: WHEN OTHERS THEN
9028: END IF;
9029:
9030: EXCEPTION
9031: WHEN OTHERS THEN
9032: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9033: x_return_status := -1;
9034: END Load_Lot_Costed_Items_gt;
9035:
9036: /*=========================================================
9050: procedure_name VARCHAR2(100);
9051: BEGIN
9052: procedure_name := 'Process Lot Split';
9053: IF l_debug_level >= l_debug_level_medium THEN
9054: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9055: END IF;
9056:
9057: IF (transaction_row.transaction_id = transaction_row.transfer_transaction_id)
9058: THEN /* This is a parent lot from which split happened */
9079: FETCH lot_cost_cursor INTO l_old_cost;
9080:
9081: IF lot_cost_cursor%FOUND THEN
9082: IF l_debug_level >= l_debug_level_high THEN
9083: fnd_file.put_line
9084: (fnd_file.log,'Reading existing costs for header ID '||l_old_cost.header_id);
9085: END IF;
9086:
9087: OPEN lot_cost_detail_cursor (l_old_cost.header_id);
9080:
9081: IF lot_cost_cursor%FOUND THEN
9082: IF l_debug_level >= l_debug_level_high THEN
9083: fnd_file.put_line
9084: (fnd_file.log,'Reading existing costs for header ID '||l_old_cost.header_id);
9085: END IF;
9086:
9087: OPEN lot_cost_detail_cursor (l_old_cost.header_id);
9088: FETCH lot_cost_detail_cursor BULK COLLECT INTO l_old_cost_tab;
9169: END IF;
9170: END IF;
9171: END IF;
9172: IF l_debug_level >= l_debug_level_medium THEN
9173: fnd_file.put_line
9174: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9175: END IF;
9176: END process_lot_split;
9177:
9170: END IF;
9171: END IF;
9172: IF l_debug_level >= l_debug_level_medium THEN
9173: fnd_file.put_line
9174: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9175: END IF;
9176: END process_lot_split;
9177:
9178: /* INVCONV sschinch New procedure*/
9207:
9208: BEGIN
9209: procedure_name := 'Process Merged Lot';
9210: IF l_debug_level >= l_debug_level_medium THEN
9211: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9212: END IF;
9213:
9214: IF (transaction_row.transaction_id = transaction_row.transfer_transaction_id)
9215: THEN
9236: child_lot_row.trans_qty,
9237: transaction_row.trans_qty
9238: );
9239: ELSE
9240: fnd_file.put_line
9241: (fnd_File.LOG,'PROCEDURE Process_Lot_Merge '||'Warning : Child Lot :'||child_lot_row.lot_number||' has no cost will be using 0 cost ');
9242: END IF;
9243:
9244: CLOSE lot_cost_cursor;
9237: transaction_row.trans_qty
9238: );
9239: ELSE
9240: fnd_file.put_line
9241: (fnd_File.LOG,'PROCEDURE Process_Lot_Merge '||'Warning : Child Lot :'||child_lot_row.lot_number||' has no cost will be using 0 cost ');
9242: END IF;
9243:
9244: CLOSE lot_cost_cursor;
9245: FETCH child_lots_cursor INTO child_lot_row;
9324: -- This is a child lot and consumed lot. Consider this as an adjustment.
9325: process_adjustment;
9326: END IF;
9327: IF l_debug_level >= l_debug_level_medium THEN
9328: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9329: END IF;
9330: EXCEPTION
9331: WHEN OTHERS THEN
9332: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9328: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9329: END IF;
9330: EXCEPTION
9331: WHEN OTHERS THEN
9332: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9333: END process_lot_merge;
9334: /*=========================================================
9335: PROCEDURE : Process_lot_translate
9336: DESCRIPTION
9349: procedure_name VARCHAR2(100);
9350: BEGIN
9351: procedure_name := 'Process Lot Translate';
9352: IF l_debug_level >= l_debug_level_medium THEN
9353: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9354: END IF;
9355:
9356: IF (transaction_row.transaction_id = transaction_row.transfer_transaction_id) THEN
9357: process_adjustment;
9465: END IF;
9466: END IF;
9467: END IF;
9468: IF l_debug_level >= l_debug_level_medium THEN
9469: fnd_file.put_line
9470: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9471: END IF;
9472: EXCEPTION
9473: WHEN OTHERS THEN
9466: END IF;
9467: END IF;
9468: IF l_debug_level >= l_debug_level_medium THEN
9469: fnd_file.put_line
9470: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9471: END IF;
9472: EXCEPTION
9473: WHEN OTHERS THEN
9474: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9470: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9471: END IF;
9472: EXCEPTION
9473: WHEN OTHERS THEN
9474: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9475: END process_lot_translate;
9476:
9477:
9478: /*=========================================================
9492: procedure_name VARCHAR2(100);
9493: BEGIN
9494: procedure_name := 'Process Consigned Inventory';
9495: IF l_debug_level >= l_debug_level_medium THEN
9496: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9497: END IF;
9498:
9499: OPEN component_class_cursor
9500: ( l_le_id
9574: END IF;
9575: END IF;
9576:
9577: IF l_debug_level >= l_debug_level_medium THEN
9578: fnd_file.put_line
9579: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9580: END IF;
9581: EXCEPTION
9582: WHEN OTHERS THEN
9575: END IF;
9576:
9577: IF l_debug_level >= l_debug_level_medium THEN
9578: fnd_file.put_line
9579: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9580: END IF;
9581: EXCEPTION
9582: WHEN OTHERS THEN
9583: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9579: (fnd_file.log,'Leaving Procedure: '||procedure_name);
9580: END IF;
9581: EXCEPTION
9582: WHEN OTHERS THEN
9583: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9584: END process_consigned_inventory;
9585:
9586: /*=========================================================
9587: PROCEDURE : process_pdtxf_cost
9624: BEGIN
9625:
9626: procedure_name := 'process_pdtxf_cost';
9627: IF l_debug_level >= l_debug_level_medium THEN
9628: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9629: END IF;
9630:
9631: OPEN component_class_cursor(l_le_id,
9632: transaction_row.inventory_item_id,
9638: IF(transaction_row.trans_qty <> 0) THEN
9639: l_new_cost := transaction_row.transfer_price;
9640: l_trp_cost := transaction_row.transportation_cost/transaction_row.trans_qty;
9641: ELSE
9642: fnd_file.put_line
9643: (fnd_file.log,'ERROR Procedure : '||procedure_name||' Transaction qty is zero.Cannot proceed');
9644: l_return_status := 'E';
9645: RETURN;
9646: END IF;
9639: l_new_cost := transaction_row.transfer_price;
9640: l_trp_cost := transaction_row.transportation_cost/transaction_row.trans_qty;
9641: ELSE
9642: fnd_file.put_line
9643: (fnd_file.log,'ERROR Procedure : '||procedure_name||' Transaction qty is zero.Cannot proceed');
9644: l_return_status := 'E';
9645: RETURN;
9646: END IF;
9647:
9650: l_cost_tab(1) := SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,l_new_cost,0);
9651: ELSE
9652: l_return_status := 'E';
9653: -- PK added this message as above
9654: fnd_file.put_line
9655: (fnd_file.log,'ERROR Procedure : '||procedure_name||' l_ccc_id has value NULL. Cannot proceed');
9656:
9657: RETURN;
9658: END IF;
9651: ELSE
9652: l_return_status := 'E';
9653: -- PK added this message as above
9654: fnd_file.put_line
9655: (fnd_file.log,'ERROR Procedure : '||procedure_name||' l_ccc_id has value NULL. Cannot proceed');
9656:
9657: RETURN;
9658: END IF;
9659:
9662: FETCH cur_get_default_cmpt INTO l_cmpntcls_id,l_cost_analysis_code,l_cost_level,l_component_cost,l_burden_ind;
9663: CLOSE cur_get_default_cmpt;
9664:
9665: IF(l_cmpntcls_id IS NULL OR l_cost_analysis_code IS NULL) THEN
9666: fnd_file.put_line (fnd_file.log,'Procedure : '||procedure_name||' Overhead default component/analysis code in fiscal policies table is not defined. Ignoring the transportation cost');
9667: ELSE
9668: l_cost_tab(2) := SYSTEM.gmf_cost_type(l_cmpntcls_id,l_cost_analysis_code,l_cost_level,l_component_cost,l_burden_ind);
9669: END IF;
9670: END IF;
9689: l_onhand_qty := transaction_row.trans_qty;
9690: new_cost_tab(1) := SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,l_new_cost,0);
9691: ELSE
9692: l_return_status := 'E';
9693: fnd_file.put_line
9694: (fnd_file.log,'ERROR Procedure : '||procedure_name||' loc2 l_ccc_id has value NULL. Cannot proceed');
9695: RETURN;
9696: END IF;
9697: END IF;
9690: new_cost_tab(1) := SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,l_new_cost,0);
9691: ELSE
9692: l_return_status := 'E';
9693: fnd_file.put_line
9694: (fnd_file.log,'ERROR Procedure : '||procedure_name||' loc2 l_ccc_id has value NULL. Cannot proceed');
9695: RETURN;
9696: END IF;
9697: END IF;
9698:
9780:
9781: END IF; -- Bug PK Bug 9669214
9782:
9783: IF l_debug_level >= l_debug_level_medium THEN
9784: fnd_file.put_line
9785: (fnd_file.log,'Procedure : '||procedure_name||' Creating cost transaction');
9786: END IF;
9787:
9788: create_material_transaction
9781: END IF; -- Bug PK Bug 9669214
9782:
9783: IF l_debug_level >= l_debug_level_medium THEN
9784: fnd_file.put_line
9785: (fnd_file.log,'Procedure : '||procedure_name||' Creating cost transaction');
9786: END IF;
9787:
9788: create_material_transaction
9789: ( new_cost.header_id
9802: ,l_return_status
9803: );
9804: END IF;
9805: IF l_debug_level >= l_debug_level_medium THEN
9806: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9807: END IF;
9808: EXCEPTION
9809: WHEN OTHERS THEN
9810: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9806: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9807: END IF;
9808: EXCEPTION
9809: WHEN OTHERS THEN
9810: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9811: END process_pdtxf_cost;
9812:
9813:
9814:
9828: procedure_name VARCHAR2(100);
9829: BEGIN
9830: procedure_name := 'Process Pd Transfer';
9831: IF l_debug_level >= l_debug_level_medium THEN
9832: fnd_file.put_line(fnd_file.log,'Entered Procedure: '||procedure_name);
9833: END IF;
9834:
9835: IF new_cost_tab.EXISTS(1) THEN
9836: new_cost_tab.delete;
9892: ,x_return_status => l_return_status
9893: );
9894: END IF;
9895: IF l_debug_level >= l_debug_level_medium THEN
9896: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9897: END IF;
9898: EXCEPTION
9899: WHEN OTHERS THEN
9900: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9896: fnd_file.put_line(fnd_file.log,'Leaving Procedure: '||procedure_name);
9897: END IF;
9898: EXCEPTION
9899: WHEN OTHERS THEN
9900: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
9901: l_return_status := 'E';
9902: END process_pd_transfer;
9903:
9904:
10121: INTO l_mtl_analysis_code, l_mtl_cmpntcls_id , l_base_ccy_code
10122: FROM GMF_FISCAL_POLICIES
10123: WHERE legal_entity_id = l_le_id ;
10124:
10125: fnd_file.put_line(fnd_file.log,'Fiscal Policy material component class = '||l_mtl_cmpntcls_id||' Analysis Code '||l_mtl_analysis_code);
10126:
10127: /******** Bug 4038722 - Dinesh Vadivel - End**********/
10128:
10129: -- PK print file version as well
10130: OPEN file_version;
10131: FETCH file_version INTO l_code_version;
10132: CLOSE file_version;
10133:
10134: fnd_file.put_line(fnd_file.log,'Code version '||l_code_version);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10131: FETCH file_version INTO l_code_version;
10132: CLOSE file_version;
10133:
10134: fnd_file.put_line(fnd_file.log,'Code version '||l_code_version);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10132: CLOSE file_version;
10133:
10134: fnd_file.put_line(fnd_file.log,'Code version '||l_code_version);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10133:
10134: fnd_file.put_line(fnd_file.log,'Code version '||l_code_version);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10134: fnd_file.put_line(fnd_file.log,'Code version '||l_code_version);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10135: fnd_file.put_line(fnd_file.log,'Parameters for this run are:');
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10136: fnd_file.put_line(fnd_file.log,'Legal Entity Id = '||p_le_id);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10137: fnd_file.put_line(fnd_file.log,'Cost Type = '||l_cost_mthd_code);
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10138: fnd_file.put_line(fnd_file.log,'Default Cost Type = '||l_default_cost_mthd);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10139: fnd_file.put_line(fnd_file.log,'Rate Type Code = '||l_rate_type_code);
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10140: fnd_file.put_line(fnd_file.log,'Base Currency Code = '||l_base_ccy_code);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10141: fnd_file.put_line(fnd_file.log,'trans start date = '||l_trans_start_date);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10142: fnd_file.put_line(fnd_file.log,'Item Category Id = '||p_category_id);
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10143: fnd_file.put_line(fnd_file.log,'Item Id = '||p_item_id);
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10151:
10144: fnd_file.put_line(fnd_file.log,'Lot Number = '||p_lot_no);
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10151:
10152: fnd_file.put_line(fnd_file.log,'l_process_wip_batch = '|| l_process_wip_batch); /*Bug 13808832*/
10145: fnd_file.put_line(fnd_file.log,'Debug Level = '||to_char(l_debug_level));
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10151:
10152: fnd_file.put_line(fnd_file.log,'l_process_wip_batch = '|| l_process_wip_batch); /*Bug 13808832*/
10153:
10146: fnd_file.put_line(fnd_file.log,'User = '||l_user);
10147: fnd_file.put_line(fnd_file.log,'Final Date = '||to_char(l_final_run_date,'DD-MON-YYYY HH24:MI:SS'));
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10151:
10152: fnd_file.put_line(fnd_file.log,'l_process_wip_batch = '|| l_process_wip_batch); /*Bug 13808832*/
10153:
10154: -- Bug 13038249 Grupo viz changes start
10148: fnd_file.put_line(fnd_file.log,'Final Run? = '|| p_final_run_flag);
10149: fnd_file.put_line(fnd_file.log,'Cost Alloc Factor Profile = '|| l_cost_alloc_profile);
10150: fnd_file.put_line(fnd_file.log,'GMF: Maximum Number of Iterations for Lot costing = '|| l_incr_iter || ' '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10151:
10152: fnd_file.put_line(fnd_file.log,'l_process_wip_batch = '|| l_process_wip_batch); /*Bug 13808832*/
10153:
10154: -- Bug 13038249 Grupo viz changes start
10155: FOR Cur_org_info IN cur_org_coll
10156: LOOP
10155: FOR Cur_org_info IN cur_org_coll
10156: LOOP
10157: org_coll_tab(Cur_org_info.organization_id) := Cur_org_info ;
10158: /*
10159: fnd_file.put_line(fnd_file.log,'organization_id = '||
10160: org_coll_tab(Cur_org_info.organization_id).organization_id || '---'||
10161: org_coll_tab(Cur_org_info.organization_id).organization_code || '---'||
10162: org_coll_tab(Cur_org_info.organization_id).le_id || '---'||
10163: org_coll_tab(Cur_org_info.organization_id).ou_id );
10169: FOR Cur_altcost_info IN Cur_altcost_period
10170: LOOP
10171: period_tab(Cur_altcost_info.final_date) := Cur_altcost_info ;
10172: /*
10173: fnd_file.put_line(fnd_file.log,'period_id = '||
10174: period_tab(Cur_altcost_info.final_date).period_id || '---'||
10175: period_tab(Cur_altcost_info.final_date).start_date || '---'||
10176: period_tab(Cur_altcost_info.final_date).end_date || '---'||
10177: period_tab(Cur_altcost_info.final_date).final_date );
10191: OR p_lot_no IS NOT NULL
10192: OR p_orgn_id IS NOT NULL
10193: )
10194: THEN
10195: fnd_file.put_line
10196: ( fnd_file.log, 'WARNING : Rollup submitted in final mode, limiting parameters will be ignored');
10197:
10198: l_cost_category_id := NULL;
10199: l_item_id := NULL;
10192: OR p_orgn_id IS NOT NULL
10193: )
10194: THEN
10195: fnd_file.put_line
10196: ( fnd_file.log, 'WARNING : Rollup submitted in final mode, limiting parameters will be ignored');
10197:
10198: l_cost_category_id := NULL;
10199: l_item_id := NULL;
10200: l_lot_no := NULL;
10201: l_orgn_id := NULL;
10202: l_tmp := FALSE;
10203: ELSE
10204: IF p_item_id IS NOT NULL AND p_category_id IS NOT NULL THEN
10205: fnd_file.put_line
10206: ( fnd_file.log, 'WARNING : Lot cost process should consider Item ONLY ! IF BOTH Cost Category and item are specified');
10207: l_cost_category_id := NULL;
10208: l_tmp := FALSE;
10209: END IF;
10202: l_tmp := FALSE;
10203: ELSE
10204: IF p_item_id IS NOT NULL AND p_category_id IS NOT NULL THEN
10205: fnd_file.put_line
10206: ( fnd_file.log, 'WARNING : Lot cost process should consider Item ONLY ! IF BOTH Cost Category and item are specified');
10207: l_cost_category_id := NULL;
10208: l_tmp := FALSE;
10209: END IF;
10210:
10209: END IF;
10210:
10211: -- PK Bug 6822310 always make l_orgn_id as NULL.
10212: IF p_orgn_id IS NOT NULL THEN
10213: fnd_file.put_line
10214: ( fnd_file.log, 'WARNING : Lot cost process should consider all lot transactions. Setting Organization_code to NULL');
10215: l_orgn_id := NULL;
10216: l_tmp := FALSE;
10217: END IF;
10210:
10211: -- PK Bug 6822310 always make l_orgn_id as NULL.
10212: IF p_orgn_id IS NOT NULL THEN
10213: fnd_file.put_line
10214: ( fnd_file.log, 'WARNING : Lot cost process should consider all lot transactions. Setting Organization_code to NULL');
10215: l_orgn_id := NULL;
10216: l_tmp := FALSE;
10217: END IF;
10218:
10254: p_category_id => l_cost_category_id,
10255: x_return_status => x_return_status
10256: );
10257: IF (x_return_status <> 0) THEN
10258: fnd_file.put_line
10259: (fnd_file.log,'ERROR Procedure : '||procedure_name||' Load_Lot_Costed_Items_gt returned error. Cannot proceed');
10260: l_return_status := 'E';
10261: RETURN;
10262: END IF;
10255: x_return_status => x_return_status
10256: );
10257: IF (x_return_status <> 0) THEN
10258: fnd_file.put_line
10259: (fnd_file.log,'ERROR Procedure : '||procedure_name||' Load_Lot_Costed_Items_gt returned error. Cannot proceed');
10260: l_return_status := 'E';
10261: RETURN;
10262: END IF;
10263:
10269: END LOOP;
10270:
10271: -- umoogala 05-Dec-2003
10272:
10273: fnd_file.put_line(fnd_file.log,'Removing rows of previous trial run: '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10274: delete_lot_costs;
10275:
10276: -- Cursors to retrieve all transactions for items that are costed by lot
10277: -- that have not yet been processed. The above type is used to store the
10345: -- phantom batches even when there is no reversals causing duplicate selection of data.
10346:
10347: -- Bug 13038249 Grupo viz changes starts
10348:
10349: fnd_file.put_line(fnd_File.LOG,'Reading uncosted transactions: '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
10350:
10351: -- Perf B14616815 Inv_tran_cursor query is now split into two one for specific lot and another for all lots.
10352: -- One item all lots would still be part of first query. Works as gmf_lot_costed_items_gt would have one item.
10353:
11111: END IF; -- l_lot_no IS NULL
11112:
11113: FETCH inv_tran_cursor INTO transaction_row;
11114:
11115: fnd_file.put_line(fnd_File.LOG,'Processing uncosted transactions: '|| to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
11116:
11117: WHILE inv_tran_cursor%FOUND
11118: LOOP
11119:
11130: prev_uncostable_cnt := l_uncostable_tab.COUNT ;
11131:
11132: l_uncostable_lots_tab.delete;
11133: l_uncostable_batches_tab.delete; -- Bug 13038249
11134: fnd_file.put_line(fnd_file.log,'Total Uncostable Records = '|| prev_uncostable_cnt || ' for Pass = ' || j || ' ' || to_char(sysdate,'DD-MON-YYYY HH24:MI:SS') );
11135:
11136: IF uc_count > 0 THEN
11137: IF nuc_count > 0 THEN
11138: n_uncostable_tab.delete;
11157:
11158: new_uncostable_cnt := l_uncostable_tab.COUNT ;
11159:
11160: IF ((new_uncostable_cnt >= prev_uncostable_cnt) OR (new_uncostable_cnt = 0) OR (prev_uncostable_cnt = 0)) THEN
11161: fnd_file.put_line(fnd_file.log,
11162: 'EXITING Becuase Previous Uncostable Records: ' || prev_uncostable_cnt || ' = New Uncostable Records: ' || new_uncostable_cnt );
11163: EXIT;
11164: END IF;
11165:
11172: ELSE
11173: l_tmp := fnd_concurrent.set_completion_status('NORMAL','Process completed successfully.');
11174: END IF;
11175:
11176: fnd_file.put_line
11177: (fnd_file.log,'Lot Cost Rollup finished at '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11178:
11179: COMMIT;
11180:
11173: l_tmp := fnd_concurrent.set_completion_status('NORMAL','Process completed successfully.');
11174: END IF;
11175:
11176: fnd_file.put_line
11177: (fnd_file.log,'Lot Cost Rollup finished at '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11178:
11179: COMMIT;
11180:
11181: EXCEPTION
11179: COMMIT;
11180:
11181: EXCEPTION
11182: WHEN OTHERS THEN
11183: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in ' || procedure_name);
11184: l_tmp := fnd_concurrent.set_completion_status('ERROR',sqlerrm || ' in ' || procedure_name);
11185: ROLLBACK;
11186: END rollup_lot_costs;
11187:
11240: l_orgn_code := NULL;
11241: l_item_no := NULL;
11242: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11243:
11244: fnd_file.put_line
11245: (fnd_file.log,'Inside inv_tran_cursor, Item = ' || transaction_row.inventory_item_id ||'('||l_item_no||')'||
11246: ' Lot = '||transaction_row.lot_number ||
11247: ' transaction_id = '||to_char(transaction_row.transaction_id) ||
11248: ' organization = '|| to_char(transaction_row.orgn_id) ||'('||l_org_tab(transaction_row.orgn_id)||')'||
11241: l_item_no := NULL;
11242: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11243:
11244: fnd_file.put_line
11245: (fnd_file.log,'Inside inv_tran_cursor, Item = ' || transaction_row.inventory_item_id ||'('||l_item_no||')'||
11246: ' Lot = '||transaction_row.lot_number ||
11247: ' transaction_id = '||to_char(transaction_row.transaction_id) ||
11248: ' organization = '|| to_char(transaction_row.orgn_id) ||'('||l_org_tab(transaction_row.orgn_id)||')'||
11249: ' reverse_id = '||to_char(transaction_row.reverse_id) ||
11254: ' source = ' || transaction_row.source ||
11255: ' transfer_org = ' || transaction_row.transfer_orgn_id ||
11256: ' line id = ' || transaction_row.line_id);
11257:
11258: fnd_file.put_line
11259: (fnd_File.LOG,'Loading existing cost for lot_id '||to_char(transaction_row.lot_number)||' in organization '
11260: ||l_org_tab(transaction_row.orgn_id)||' Timestamp '||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS'));
11261: END IF;
11262:
11255: ' transfer_org = ' || transaction_row.transfer_orgn_id ||
11256: ' line id = ' || transaction_row.line_id);
11257:
11258: fnd_file.put_line
11259: (fnd_File.LOG,'Loading existing cost for lot_id '||to_char(transaction_row.lot_number)||' in organization '
11260: ||l_org_tab(transaction_row.orgn_id)||' Timestamp '||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS'));
11261: END IF;
11262:
11263: l_lot_number := transaction_row.lot_number;
11264:
11265: IF NOT l_uncostable_lots_tab.EXISTS(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number)
11266: THEN
11267: IF l_debug_level >= l_debug_level_high THEN
11268: fnd_file.put_line(fnd_file.log,' Yes. Current Lot '||transaction_row.lot_number||' is Costable.');
11269: END IF;
11270:
11271: -- Bug 4130869 Added Date field as NULL.. Because, the Date field has no significance here.
11272: -- We have to delete all the records irrespective of trans_date.
11284: FETCH lot_cost_cursor INTO old_cost;
11285:
11286: IF lot_cost_cursor%FOUND THEN
11287: IF l_debug_level >= l_debug_level_high THEN
11288: fnd_file.put_line
11289: (fnd_file.log,'Reading existing costs for header ID '||old_cost.header_id);
11290: END IF;
11291:
11292: OPEN lot_cost_detail_cursor (old_cost.header_id);
11285:
11286: IF lot_cost_cursor%FOUND THEN
11287: IF l_debug_level >= l_debug_level_high THEN
11288: fnd_file.put_line
11289: (fnd_file.log,'Reading existing costs for header ID '||old_cost.header_id);
11290: END IF;
11291:
11292: OPEN lot_cost_detail_cursor (old_cost.header_id);
11293: FETCH lot_cost_detail_cursor BULK COLLECT INTO old_cost_tab;
11299: CLOSE lot_cost_cursor;
11300:
11301: IF old_cost_tab.EXISTS(1) THEN
11302: IF l_debug_level >= l_debug_level_high THEN
11303: fnd_file.put_line
11304: (fnd_file.log,'Lot Cost before this transaction is '||to_char(old_cost.unit_cost,'999999999.99'));
11305: END IF;
11306: ELSE
11307: /* Bug 4227784 - This has to be moved up. We can have a case, where we have header
11300:
11301: IF old_cost_tab.EXISTS(1) THEN
11302: IF l_debug_level >= l_debug_level_high THEN
11303: fnd_file.put_line
11304: (fnd_file.log,'Lot Cost before this transaction is '||to_char(old_cost.unit_cost,'999999999.99'));
11305: END IF;
11306: ELSE
11307: /* Bug 4227784 - This has to be moved up. We can have a case, where we have header
11308: but not details. So old_cost_tab can be null, even though old_cost has some record.
11308: but not details. So old_cost_tab can be null, even though old_cost has some record.
11309: In that case, we should not initialize onhand_qty to zero*/
11310: -- old_cost.onhand_qty := 0;
11311: IF l_debug_level >= l_debug_level_high THEN
11312: fnd_file.put_line(fnd_file.log,'Previous cost was NULL');
11313: END IF;
11314: END IF;
11315:
11316: IF l_debug_level >= l_debug_level_high THEN
11313: END IF;
11314: END IF;
11315:
11316: IF l_debug_level >= l_debug_level_high THEN
11317: fnd_file.put_line(fnd_file.log,' Checking if the Current Lot '||transaction_row.lot_number||' is Costable ?');
11318:
11319: END IF;
11320:
11321: /*IF NOT l_uncostable_lots_tab.EXISTS(transaction_row.lot_id)*/
11344: END IF;
11345:
11346: IF (old_cost.onhand_qty < 0 AND l_residual_qty <= 0 AND transaction_row.transaction_source_type_id <> LC_ADJUSTMENT) THEN -- PK Bug 12913227
11347: IF l_debug_level >= l_debug_level_high THEN
11348: fnd_file.put_line
11349: (fnd_file.log,'Onhand balance is currently -ve and will remain -ve. Processing txn as an ADJI');
11350: END IF;
11351:
11352: process_adjustment;
11345:
11346: IF (old_cost.onhand_qty < 0 AND l_residual_qty <= 0 AND transaction_row.transaction_source_type_id <> LC_ADJUSTMENT) THEN -- PK Bug 12913227
11347: IF l_debug_level >= l_debug_level_high THEN
11348: fnd_file.put_line
11349: (fnd_file.log,'Onhand balance is currently -ve and will remain -ve. Processing txn as an ADJI');
11350: END IF;
11351:
11352: process_adjustment;
11353:
11354: ELSE
11355: IF (old_cost.onhand_qty < 0 AND l_residual_qty > 0 AND transaction_row.transaction_source_type_id <> LC_ADJUSTMENT ) THEN -- PK Bug 12913227
11356:
11357: IF l_debug_level >= l_debug_level_high THEN
11358: fnd_file.put_line
11359: (fnd_file.log,'Onhand balance is currently -ve and will go +ve. Clearing old balance to zero');
11360: END IF;
11361:
11362: old_cost.onhand_qty := 0;
11355: IF (old_cost.onhand_qty < 0 AND l_residual_qty > 0 AND transaction_row.transaction_source_type_id <> LC_ADJUSTMENT ) THEN -- PK Bug 12913227
11356:
11357: IF l_debug_level >= l_debug_level_high THEN
11358: fnd_file.put_line
11359: (fnd_file.log,'Onhand balance is currently -ve and will go +ve. Clearing old balance to zero');
11360: END IF;
11361:
11362: old_cost.onhand_qty := 0;
11363: ELSE
11362: old_cost.onhand_qty := 0;
11363: ELSE
11364: IF (transaction_row.transaction_source_type_id <> LC_ADJUSTMENT) THEN -- PK Bug 12913227
11365: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11366: fnd_file.put_line
11367: (fnd_file.log,'Onhand balance is currently +ve. Processing normally');
11368: END IF;
11369: ELSE -- PK Bug 12913227
11370: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11363: ELSE
11364: IF (transaction_row.transaction_source_type_id <> LC_ADJUSTMENT) THEN -- PK Bug 12913227
11365: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11366: fnd_file.put_line
11367: (fnd_file.log,'Onhand balance is currently +ve. Processing normally');
11368: END IF;
11369: ELSE -- PK Bug 12913227
11370: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11371: fnd_file.put_line
11367: (fnd_file.log,'Onhand balance is currently +ve. Processing normally');
11368: END IF;
11369: ELSE -- PK Bug 12913227
11370: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11371: fnd_file.put_line
11372: (fnd_file.log,'Ignore Prior Onhand balance for LCM Adjustments. Processing normally');
11373: END IF;
11374: END IF;
11375:
11368: END IF;
11369: ELSE -- PK Bug 12913227
11370: IF l_debug_level >= l_debug_level_medium THEN -- Bug#13000758
11371: fnd_file.put_line
11372: (fnd_file.log,'Ignore Prior Onhand balance for LCM Adjustments. Processing normally');
11373: END IF;
11374: END IF;
11375:
11376: l_residual_qty := transaction_row.trans_qty;
11384: )
11385: THEN
11386: -- Bug 13038249 Grupo viz changes
11387: l_flg_ind:= org_coll_tab(transaction_row.transfer_orgn_id).process_enabled_flag ;
11388: -- fnd_file.put_line(fnd_file.log,'l_flg_ind ' || l_flg_ind);
11389:
11390: IF (l_flg_ind = 'Y') THEN
11391: process_receipt;
11392: ELSE
11437: ELSE
11438: l_orgn_code := NULL;
11439: l_item_no := NULL;
11440: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11441: fnd_file.put_line(fnd_file.log,'WARNING: Batch status is not -1 or 3 or 4 Setting Lot for the orgn/Item/Lot '||transaction_row.orgn_id||'('||l_orgn_code||')'||'/'||transaction_row.inventory_item_id
11442: ||'('||l_item_no||')'||'/'||transaction_row.lot_number||' as uncostable');
11443: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11444: copy_uncostable_record ; /* B9894310 */
11445: goto DONT_PROCESS_WIPBATCH ;
11463: IF l_batch_status IN (3,4) THEN /* Bug 12704358 B14197262 removed -1 */
11464: -- Bug 13038249 check if batch is costable first.
11465: IF l_uncostable_batches_tab.EXISTS(transaction_row.doc_id) THEN
11466: IF l_debug_level >= l_debug_level_high THEN
11467: fnd_file.put_line(fnd_file.log,' No. Current batch_id '||transaction_row.doc_id||' is NOT Costable.');
11468: END IF;
11469: -- B 13038249 next if condition may be redunduant
11470: IF NOT l_uncostable_lots_tab.EXISTS(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) THEN
11471: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11473: copy_uncostable_record ;
11474: goto DONT_PROCESS_WIPBATCH ;
11475: ELSE
11476: IF l_debug_level >= l_debug_level_high THEN
11477: fnd_file.put_line(fnd_file.log,' Yes. For now Current batch_id '||transaction_row.doc_id||' is Costable.');
11478: END IF;
11479: process_batch;
11480: END IF;
11481: -- Bug 13038249 check if batch is costable first End.
11481: -- Bug 13038249 check if batch is costable first End.
11482: ELSIF l_batch_status = -1 THEN -- B14197262 Added this ELSIF
11483:
11484: IF l_debug_level >= l_debug_level_high THEN
11485: fnd_file.put_line(fnd_file.log,' 2 Cancelled batch. Calling process_wip_batch');
11486: END IF;
11487:
11488: process_wip_batch;
11489:
11490: ELSE /* The Status as on Final Date is not completed. So copy the previous cost for this record or 0$ */
11491: IF (l_process_wip_batch = 1) THEN /*Bug 13808832 - works as before for WIP batches*/
11492: /* The Status as on Final Date is not completed. So copy the previous cost for this record or 0$ */
11493: IF l_debug_level >= l_debug_level_high THEN
11494: fnd_file.put_line(fnd_file.log,' The Current Batch status is not 3 or 4 ');
11495: END IF;
11496: process_wip_batch;
11497: ELSE
11498: -- Bug 9284024 Macsteel. Decided not to process wip batches product yield
11499: -- for item, lot combination.
11500: l_orgn_code := NULL;
11501: l_item_no := NULL;
11502: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11503: fnd_file.put_line(fnd_file.log,'WARNING: Batch status is not 3 or 4 Setting Lot for the orgn/Item/Lot '||transaction_row.orgn_id||'('||l_orgn_code||')'||'/'||transaction_row.inventory_item_id
11504: ||'('||l_item_no||')'||'/'||transaction_row.lot_number||' as uncostable');
11505: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11506: copy_uncostable_record ; /* B9894310 */
11507: goto DONT_PROCESS_WIPBATCH ;
11558: AND hoi.org_information_context = 'Accounting Information';
11559:
11560: -- Bug 13038249 Grupo viz changes
11561: l_flg_ind:= org_coll_tab(transaction_row.transfer_orgn_id).process_enabled_flag ;
11562: --fnd_file.put_line(fnd_file.log,'l_flg_ind ' || l_flg_ind);
11563:
11564: IF (l_flg_ind = 'Y') THEN
11565: process_movement( transaction_row.line_type
11566: , l_source_orgn_id
11637: -- AF LCM-OPM Integration
11638: ELSIF transaction_row.transaction_source_type_id = LC_ADJUSTMENT THEN
11639: -- Bug 10159100 Logic to prorate implemented. No changes here
11640: IF l_debug_level >= l_debug_level_high THEN
11641: fnd_file.put_line (fnd_file.log,'Call process_lc_adjustments for :' || transaction_row.transaction_id);
11642: END IF;
11643: process_lc_adjustments();
11644: -- AF
11645: END IF;
11648: -- The transaction that has been processed flipped a negative onhand balance back to positive
11649: -- so we need to adjust the onhand balance in the header to the residual balance
11650:
11651: IF l_debug_level >= l_debug_level_high THEN
11652: fnd_file.put_line
11653: (fnd_file.log,'Onhand balance has flipped from -ve to +ve. Setting onhand qty to residual qty');
11654: END IF;
11655:
11656: -- Bug 12394608 Need to use 'AND inventory_item_id = transaction_row.inventory_item_id' as well
11649: -- so we need to adjust the onhand balance in the header to the residual balance
11650:
11651: IF l_debug_level >= l_debug_level_high THEN
11652: fnd_file.put_line
11653: (fnd_file.log,'Onhand balance has flipped from -ve to +ve. Setting onhand qty to residual qty');
11654: END IF;
11655:
11656: -- Bug 12394608 Need to use 'AND inventory_item_id = transaction_row.inventory_item_id' as well
11657:
11682: -- PK Bug 6697946 If old_cost.header_id is NULL Use new_cost.header_id
11683: -- RDP MAcsteel 10415925
11684: IF transaction_row.source = 3 THEN
11685: IF l_debug_level >= l_debug_level_high THEN
11686: fnd_file.put_line
11687: (fnd_file.log,'FINAL Mode old '||old_cost.header_id||' new '||new_cost.header_id||' Onhand '||new_cost.onhand_qty||' adj '||transaction_row.doc_id);
11688: END IF;
11689:
11690:
11683: -- RDP MAcsteel 10415925
11684: IF transaction_row.source = 3 THEN
11685: IF l_debug_level >= l_debug_level_high THEN
11686: fnd_file.put_line
11687: (fnd_file.log,'FINAL Mode old '||old_cost.header_id||' new '||new_cost.header_id||' Onhand '||new_cost.onhand_qty||' adj '||transaction_row.doc_id);
11688: END IF;
11689:
11690:
11691: UPDATE gmf_lot_cost_adjustments
11721: l_orgn_code := NULL;
11722: l_item_no := NULL;
11723: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11724:
11725: fnd_file.put_line(fnd_file.log,'WARNING: Setting Lot for the orgn/Item/Lot '||transaction_row.orgn_id||'('||l_orgn_code||')'||'/'||transaction_row.inventory_item_id||'('||l_item_no||')'||'/'||transaction_row.lot_number||' as uncostable');
11726: l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11727: copy_uncostable_record ; /* B9894310 */
11728: l_tmp := FALSE;
11729: l_return_code := 'F';
11734: IF l_debug_level >= l_debug_level_high THEN
11735: l_orgn_code := NULL;
11736: l_item_no := NULL;
11737: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11738: fnd_file.put_line(fnd_file.log,'Current orgn/Item/Lot '||transaction_row.orgn_id||'('||l_orgn_code||')'||'/'||transaction_row.inventory_item_id||'('||l_item_no||')'||'/'||transaction_row.lot_number||' is Not Costable');
11739: fnd_file.put_line(fnd_file.log,' So skipping the transaction: '||transaction_row.transaction_id);
11740: -- Bug 13038249 we came here because lot is already uncostable commenting out next one line
11741: -- l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11742: copy_uncostable_record ; /* B9894310 */
11735: l_orgn_code := NULL;
11736: l_item_no := NULL;
11737: organization_item_code (transaction_row.orgn_id, transaction_row.inventory_item_id, l_orgn_code, l_item_no) ;
11738: fnd_file.put_line(fnd_file.log,'Current orgn/Item/Lot '||transaction_row.orgn_id||'('||l_orgn_code||')'||'/'||transaction_row.inventory_item_id||'('||l_item_no||')'||'/'||transaction_row.lot_number||' is Not Costable');
11739: fnd_file.put_line(fnd_file.log,' So skipping the transaction: '||transaction_row.transaction_id);
11740: -- Bug 13038249 we came here because lot is already uncostable commenting out next one line
11741: -- l_uncostable_lots_tab(transaction_row.orgn_id||'-'||transaction_row.inventory_item_id||'-'||transaction_row.lot_number) := transaction_row.inventory_item_id;
11742: copy_uncostable_record ; /* B9894310 */
11743: END IF;
11782: WHEN NO_DATA_FOUND THEN
11783: p_item_no := NULL ;
11784: WHEN OTHERS THEN
11785: p_item_no := NULL ;
11786: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in organization_item_code');
11787: END organization_item_code;
11788:
11789: --**********************************************************************************************
11790: --* *
11827: l_uncostable_tab(uc_count).burden_ind := transaction_row.burden_ind ;
11828:
11829:
11830:
11831: fnd_file.put_line
11832: (fnd_File.LOG,'Loading in copy_uncostable_record for lot_id '||to_char(transaction_row.lot_number)||' Trasaction_id '
11833: ||to_char(transaction_row.transaction_id) );
11834: ELSE
11835: NULL ;
11828:
11829:
11830:
11831: fnd_file.put_line
11832: (fnd_File.LOG,'Loading in copy_uncostable_record for lot_id '||to_char(transaction_row.lot_number)||' Trasaction_id '
11833: ||to_char(transaction_row.transaction_id) );
11834: ELSE
11835: NULL ;
11836: END IF;
11835: NULL ;
11836: END IF;
11837: EXCEPTION
11838: WHEN OTHERS THEN
11839: fnd_file.put_line(fnd_file.log,'ERROR: '||substr(sqlerrm,1,100) || ' in copy_uncostable_record');
11840: END copy_uncostable_record;
11841:
11842: --**********************************************************************************************
11843: --* *
11876: transaction_row.routing_id := n_uncostable_tab(nuc_count).routing_id; -- Bug 13038249
11877: transaction_row.burden_ind := n_uncostable_tab(nuc_count).burden_ind; -- Bug 13038249
11878:
11879:
11880: fnd_file.put_line
11881: (fnd_File.LOG,'Loading in copy_to_transrow for lot_id '||to_char(transaction_row.lot_number)||' Trasaction_id '
11882: ||to_char(transaction_row.transaction_id) );
11883:
11884: END copy_to_transrow;
11877: transaction_row.burden_ind := n_uncostable_tab(nuc_count).burden_ind; -- Bug 13038249
11878:
11879:
11880: fnd_file.put_line
11881: (fnd_File.LOG,'Loading in copy_to_transrow for lot_id '||to_char(transaction_row.lot_number)||' Trasaction_id '
11882: ||to_char(transaction_row.transaction_id) );
11883:
11884: END copy_to_transrow;
11885:
11903:
11904: BEGIN
11905: procedure_name := 'display cached batch details';
11906:
11907: fnd_file.put_line
11908: (fnd_file.log,'Entered Procedure: '||procedure_name);
11909:
11910: IF NOT c_batch_details.EXISTS(p_batch_id) THEN
11911: fnd_file.put_line(fnd_file.log,'Details of batch-id:'||p_batch_id||' are not cached');
11904: BEGIN
11905: procedure_name := 'display cached batch details';
11906:
11907: fnd_file.put_line
11908: (fnd_file.log,'Entered Procedure: '||procedure_name);
11909:
11910: IF NOT c_batch_details.EXISTS(p_batch_id) THEN
11911: fnd_file.put_line(fnd_file.log,'Details of batch-id:'||p_batch_id||' are not cached');
11912: RETURN;
11907: fnd_file.put_line
11908: (fnd_file.log,'Entered Procedure: '||procedure_name);
11909:
11910: IF NOT c_batch_details.EXISTS(p_batch_id) THEN
11911: fnd_file.put_line(fnd_file.log,'Details of batch-id:'||p_batch_id||' are not cached');
11912: RETURN;
11913: END IF;
11914:
11915: -- print details from c_batch_details(p_batch_id) for debugging purpose
11915: -- print details from c_batch_details(p_batch_id) for debugging purpose
11916:
11917:
11918: IF l_debug_level >= l_debug_level_high THEN
11919: fnd_file.put_line(fnd_file.log,' ');
11920:
11921: FOR i IN 1..c_batch_details(p_batch_id).step_tab.count
11922: LOOP
11923: fnd_file.put_line
11919: fnd_file.put_line(fnd_file.log,' ');
11920:
11921: FOR i IN 1..c_batch_details(p_batch_id).step_tab.count
11922: LOOP
11923: fnd_file.put_line
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11920:
11921: FOR i IN 1..c_batch_details(p_batch_id).step_tab.count
11922: LOOP
11923: fnd_file.put_line
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11921: FOR i IN 1..c_batch_details(p_batch_id).step_tab.count
11922: LOOP
11923: fnd_file.put_line
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11922: LOOP
11923: fnd_file.put_line
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11923: fnd_file.put_line
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11924: (fnd_file.log,'Dump of step index '||to_char(i));
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11925: fnd_file.put_line
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11926: (fnd_file.log,'---------------------');
11927: fnd_file.put_line
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11928: (fnd_file.log,'Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).current_step_id));
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11929: fnd_file.put_line
11930: (fnd_file.log,'Step qty = '
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11937:
11931: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11932: fnd_file.put_line
11933: (fnd_file.log,'Output qty = '
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11940: fnd_file.put_line
11934: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).output_qty,2))||' '||c_batch_details(p_batch_id).step_tab(i).step_qty_uom);
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11940: fnd_file.put_line
11941: (fnd_file.log,' -------------');
11942:
11935: fnd_file.put_line
11936: (fnd_file.log,' ');
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11940: fnd_file.put_line
11941: (fnd_file.log,' -------------');
11942:
11943: IF c_batch_details(p_batch_id).step_tab(i).current_costs.EXISTS(1) THEN
11936: (fnd_file.log,' ');
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11940: fnd_file.put_line
11941: (fnd_file.log,' -------------');
11942:
11943: IF c_batch_details(p_batch_id).step_tab(i).current_costs.EXISTS(1) THEN
11944: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).current_costs.count
11937:
11938: fnd_file.put_line
11939: (fnd_file.log,' Current Costs');
11940: fnd_file.put_line
11941: (fnd_file.log,' -------------');
11942:
11943: IF c_batch_details(p_batch_id).step_tab(i).current_costs.EXISTS(1) THEN
11944: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).current_costs.count
11945: LOOP
11942:
11943: IF c_batch_details(p_batch_id).step_tab(i).current_costs.EXISTS(1) THEN
11944: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).current_costs.count
11945: LOOP
11946: fnd_file.put_line
11947: (fnd_file.log,' Component Class ID = '
11948: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_cmpntcls_id));
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11943: IF c_batch_details(p_batch_id).step_tab(i).current_costs.EXISTS(1) THEN
11944: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).current_costs.count
11945: LOOP
11946: fnd_file.put_line
11947: (fnd_file.log,' Component Class ID = '
11948: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_cmpntcls_id));
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11945: LOOP
11946: fnd_file.put_line
11947: (fnd_file.log,' Component Class ID = '
11948: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_cmpntcls_id));
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11946: fnd_file.put_line
11947: (fnd_file.log,' Component Class ID = '
11948: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_cmpntcls_id));
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11948: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_cmpntcls_id));
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11955: fnd_file.put_line
11956: (fnd_file.log,' Component Cost = '
11949: fnd_file.put_line
11950: (fnd_file.log,' Cost Analysis Code = '
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11955: fnd_file.put_line
11956: (fnd_file.log,' Component Cost = '
11957: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).current_costs(j).component_cost,2)));
11951: ||c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_analysis_code);
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11955: fnd_file.put_line
11956: (fnd_file.log,' Component Cost = '
11957: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).current_costs(j).component_cost,2)));
11958: fnd_file.put_line(fnd_file.log,' ');
11959: END LOOP;
11952: fnd_file.put_line
11953: (fnd_file.log,' Cost Level = '
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11955: fnd_file.put_line
11956: (fnd_file.log,' Component Cost = '
11957: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).current_costs(j).component_cost,2)));
11958: fnd_file.put_line(fnd_file.log,' ');
11959: END LOOP;
11960: ELSE
11954: ||to_char(c_batch_details(p_batch_id).step_tab(i).current_costs(j).cost_level));
11955: fnd_file.put_line
11956: (fnd_file.log,' Component Cost = '
11957: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).current_costs(j).component_cost,2)));
11958: fnd_file.put_line(fnd_file.log,' ');
11959: END LOOP;
11960: ELSE
11961: fnd_file.put_line(fnd_file.log,' This step has no current costs');
11962: END IF;
11957: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).current_costs(j).component_cost,2)));
11958: fnd_file.put_line(fnd_file.log,' ');
11959: END LOOP;
11960: ELSE
11961: fnd_file.put_line(fnd_file.log,' This step has no current costs');
11962: END IF;
11963:
11964: fnd_file.put_line
11965: (fnd_file.log,' Inherited Costs');
11960: ELSE
11961: fnd_file.put_line(fnd_file.log,' This step has no current costs');
11962: END IF;
11963:
11964: fnd_file.put_line
11965: (fnd_file.log,' Inherited Costs');
11966: fnd_file.put_line
11967: (fnd_file.log,' ---------------');
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11961: fnd_file.put_line(fnd_file.log,' This step has no current costs');
11962: END IF;
11963:
11964: fnd_file.put_line
11965: (fnd_file.log,' Inherited Costs');
11966: fnd_file.put_line
11967: (fnd_file.log,' ---------------');
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11969: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).inherited_costs.count
11962: END IF;
11963:
11964: fnd_file.put_line
11965: (fnd_file.log,' Inherited Costs');
11966: fnd_file.put_line
11967: (fnd_file.log,' ---------------');
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11969: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).inherited_costs.count
11970: LOOP
11963:
11964: fnd_file.put_line
11965: (fnd_file.log,' Inherited Costs');
11966: fnd_file.put_line
11967: (fnd_file.log,' ---------------');
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11969: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).inherited_costs.count
11970: LOOP
11971: fnd_file.put_line
11967: (fnd_file.log,' ---------------');
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11969: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).inherited_costs.count
11970: LOOP
11971: fnd_file.put_line
11972: (fnd_file.log,' Component Class ID = '
11973: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_cmpntcls_id));
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11968: IF c_batch_details(p_batch_id).step_tab(i).inherited_costs.EXISTS(1) THEN
11969: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).inherited_costs.count
11970: LOOP
11971: fnd_file.put_line
11972: (fnd_file.log,' Component Class ID = '
11973: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_cmpntcls_id));
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11970: LOOP
11971: fnd_file.put_line
11972: (fnd_file.log,' Component Class ID = '
11973: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_cmpntcls_id));
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11971: fnd_file.put_line
11972: (fnd_file.log,' Component Class ID = '
11973: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_cmpntcls_id));
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11973: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_cmpntcls_id));
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11980: fnd_file.put_line
11981: (fnd_file.log,' Component Cost = '
11974: fnd_file.put_line
11975: (fnd_file.log,' Cost Analysis Code = '
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11980: fnd_file.put_line
11981: (fnd_file.log,' Component Cost = '
11982: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).component_cost,2)));
11976: ||c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_analysis_code);
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11980: fnd_file.put_line
11981: (fnd_file.log,' Component Cost = '
11982: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).component_cost,2)));
11983: fnd_file.put_line(fnd_file.log,' ');
11984: END LOOP;
11977: fnd_file.put_line
11978: (fnd_file.log,' Cost Level = '
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11980: fnd_file.put_line
11981: (fnd_file.log,' Component Cost = '
11982: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).component_cost,2)));
11983: fnd_file.put_line(fnd_file.log,' ');
11984: END LOOP;
11985: ELSE
11979: ||to_char(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).cost_level));
11980: fnd_file.put_line
11981: (fnd_file.log,' Component Cost = '
11982: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).component_cost,2)));
11983: fnd_file.put_line(fnd_file.log,' ');
11984: END LOOP;
11985: ELSE
11986: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
11987: END IF;
11982: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).inherited_costs(j).component_cost,2)));
11983: fnd_file.put_line(fnd_file.log,' ');
11984: END LOOP;
11985: ELSE
11986: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
11987: END IF;
11988:
11989: fnd_file.put_line
11990: (fnd_file.log,' Step Costs');
11985: ELSE
11986: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
11987: END IF;
11988:
11989: fnd_file.put_line
11990: (fnd_file.log,' Step Costs');
11991: fnd_file.put_line
11992: (fnd_file.log,' ---------------');
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11986: fnd_file.put_line(fnd_file.log,' This step has no inherited costs');
11987: END IF;
11988:
11989: fnd_file.put_line
11990: (fnd_file.log,' Step Costs');
11991: fnd_file.put_line
11992: (fnd_file.log,' ---------------');
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11994: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).step_costs.count
11987: END IF;
11988:
11989: fnd_file.put_line
11990: (fnd_file.log,' Step Costs');
11991: fnd_file.put_line
11992: (fnd_file.log,' ---------------');
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11994: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).step_costs.count
11995: LOOP
11988:
11989: fnd_file.put_line
11990: (fnd_file.log,' Step Costs');
11991: fnd_file.put_line
11992: (fnd_file.log,' ---------------');
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11994: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).step_costs.count
11995: LOOP
11996: fnd_file.put_line
11992: (fnd_file.log,' ---------------');
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11994: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).step_costs.count
11995: LOOP
11996: fnd_file.put_line
11997: (fnd_file.log,' Component Class ID = '
11998: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_cmpntcls_id));
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
11993: IF c_batch_details(p_batch_id).step_tab(i).step_costs.EXISTS(1) THEN
11994: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).step_costs.count
11995: LOOP
11996: fnd_file.put_line
11997: (fnd_file.log,' Component Class ID = '
11998: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_cmpntcls_id));
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
11995: LOOP
11996: fnd_file.put_line
11997: (fnd_file.log,' Component Class ID = '
11998: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_cmpntcls_id));
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
11996: fnd_file.put_line
11997: (fnd_file.log,' Component Class ID = '
11998: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_cmpntcls_id));
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
11998: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_cmpntcls_id));
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
12005: fnd_file.put_line
12006: (fnd_file.log,' Component Cost = '
11999: fnd_file.put_line
12000: (fnd_file.log,' Cost Analysis Code = '
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
12005: fnd_file.put_line
12006: (fnd_file.log,' Component Cost = '
12007: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_costs(j).component_cost,2)));
12001: ||c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_analysis_code);
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
12005: fnd_file.put_line
12006: (fnd_file.log,' Component Cost = '
12007: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_costs(j).component_cost,2)));
12008: fnd_file.put_line(fnd_file.log,' ');
12009: END LOOP;
12002: fnd_file.put_line
12003: (fnd_file.log,' Cost Level = '
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
12005: fnd_file.put_line
12006: (fnd_file.log,' Component Cost = '
12007: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_costs(j).component_cost,2)));
12008: fnd_file.put_line(fnd_file.log,' ');
12009: END LOOP;
12010: ELSE
12004: ||to_char(c_batch_details(p_batch_id).step_tab(i).step_costs(j).cost_level));
12005: fnd_file.put_line
12006: (fnd_file.log,' Component Cost = '
12007: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_costs(j).component_cost,2)));
12008: fnd_file.put_line(fnd_file.log,' ');
12009: END LOOP;
12010: ELSE
12011: fnd_file.put_line(fnd_file.log,' This step has no step costs');
12012: END IF;
12007: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).step_costs(j).component_cost,2)));
12008: fnd_file.put_line(fnd_file.log,' ');
12009: END LOOP;
12010: ELSE
12011: fnd_file.put_line(fnd_file.log,' This step has no step costs');
12012: END IF;
12013:
12014:
12015: fnd_file.put_line(fnd_file.log,' ');
12011: fnd_file.put_line(fnd_file.log,' This step has no step costs');
12012: END IF;
12013:
12014:
12015: fnd_file.put_line(fnd_file.log,' ');
12016: fnd_file.put_line
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12012: END IF;
12013:
12014:
12015: fnd_file.put_line(fnd_file.log,' ');
12016: fnd_file.put_line
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12020: IF c_batch_details(p_batch_id).step_tab(i).dependencies(1).step_index IS NULL THEN
12013:
12014:
12015: fnd_file.put_line(fnd_file.log,' ');
12016: fnd_file.put_line
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12020: IF c_batch_details(p_batch_id).step_tab(i).dependencies(1).step_index IS NULL THEN
12021: fnd_file.put_line(fnd_file.log,' This is a terminal step');
12014:
12015: fnd_file.put_line(fnd_file.log,' ');
12016: fnd_file.put_line
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12020: IF c_batch_details(p_batch_id).step_tab(i).dependencies(1).step_index IS NULL THEN
12021: fnd_file.put_line(fnd_file.log,' This is a terminal step');
12022: ELSE
12015: fnd_file.put_line(fnd_file.log,' ');
12016: fnd_file.put_line
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12020: IF c_batch_details(p_batch_id).step_tab(i).dependencies(1).step_index IS NULL THEN
12021: fnd_file.put_line(fnd_file.log,' This is a terminal step');
12022: ELSE
12023: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).dependencies.count
12017: (fnd_file.log,' Subsequent steps');
12018: fnd_file.put_line
12019: (fnd_file.log,' ----------------');
12020: IF c_batch_details(p_batch_id).step_tab(i).dependencies(1).step_index IS NULL THEN
12021: fnd_file.put_line(fnd_file.log,' This is a terminal step');
12022: ELSE
12023: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).dependencies.count
12024: LOOP
12025: fnd_file.put_line
12021: fnd_file.put_line(fnd_file.log,' This is a terminal step');
12022: ELSE
12023: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).dependencies.count
12024: LOOP
12025: fnd_file.put_line
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12022: ELSE
12023: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).dependencies.count
12024: LOOP
12025: fnd_file.put_line
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12023: FOR j IN 1..c_batch_details(p_batch_id).step_tab(i).dependencies.count
12024: LOOP
12025: fnd_file.put_line
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12031: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty,2))
12024: LOOP
12025: fnd_file.put_line
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12031: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty,2))
12032: ||c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty_uom);
12025: fnd_file.put_line
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12031: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty,2))
12032: ||c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty_uom);
12033: fnd_file.put_line(fnd_file.log,' ');
12026: (fnd_file.log,' Step index = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_index));
12027: fnd_file.put_line
12028: (fnd_file.log,' Step ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).dependencies(j).batchstep_id));
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12031: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty,2))
12032: ||c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty_uom);
12033: fnd_file.put_line(fnd_file.log,' ');
12034: END LOOP;
12029: fnd_file.put_line
12030: (fnd_file.log,' Step qty = '
12031: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty,2))
12032: ||c_batch_details(p_batch_id).step_tab(i).dependencies(j).step_qty_uom);
12033: fnd_file.put_line(fnd_file.log,' ');
12034: END LOOP;
12035: END IF;
12036:
12037: fnd_file.put_line(fnd_file.log,' ');
12033: fnd_file.put_line(fnd_file.log,' ');
12034: END LOOP;
12035: END IF;
12036:
12037: fnd_file.put_line(fnd_file.log,' ');
12038: fnd_file.put_line
12039: (fnd_file.log,' Materials');
12040: fnd_file.put_line
12041: (fnd_file.log,' ---------');
12034: END LOOP;
12035: END IF;
12036:
12037: fnd_file.put_line(fnd_file.log,' ');
12038: fnd_file.put_line
12039: (fnd_file.log,' Materials');
12040: fnd_file.put_line
12041: (fnd_file.log,' ---------');
12042:
12035: END IF;
12036:
12037: fnd_file.put_line(fnd_file.log,' ');
12038: fnd_file.put_line
12039: (fnd_file.log,' Materials');
12040: fnd_file.put_line
12041: (fnd_file.log,' ---------');
12042:
12043: IF c_batch_details(p_batch_id).step_tab(i).materials.EXISTS(1) THEN
12036:
12037: fnd_file.put_line(fnd_file.log,' ');
12038: fnd_file.put_line
12039: (fnd_file.log,' Materials');
12040: fnd_file.put_line
12041: (fnd_file.log,' ---------');
12042:
12043: IF c_batch_details(p_batch_id).step_tab(i).materials.EXISTS(1) THEN
12044: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).materials.count
12037: fnd_file.put_line(fnd_file.log,' ');
12038: fnd_file.put_line
12039: (fnd_file.log,' Materials');
12040: fnd_file.put_line
12041: (fnd_file.log,' ---------');
12042:
12043: IF c_batch_details(p_batch_id).step_tab(i).materials.EXISTS(1) THEN
12044: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).materials.count
12045: LOOP
12042:
12043: IF c_batch_details(p_batch_id).step_tab(i).materials.EXISTS(1) THEN
12044: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).materials.count
12045: LOOP
12046: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12043: IF c_batch_details(p_batch_id).step_tab(i).materials.EXISTS(1) THEN
12044: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).materials.count
12045: LOOP
12046: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12044: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).materials.count
12045: LOOP
12046: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12045: LOOP
12046: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12046: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12047: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12048: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12049: (fnd_file.log,' Legal Entity = '||c_batch_details(p_batch_id).step_tab(i).materials(j).legal_entity_id);
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12050: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12051: (fnd_file.log,' Organization = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).materials(j).organization_id));
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12052: fnd_file.put_line
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12053: (fnd_file.log,' Item ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).item_id));
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12054: fnd_file.put_line
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12055: (fnd_file.log,' Lot Number = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_number));
12056: fnd_file.put_line
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12057: (fnd_file.log,' Line type = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).line_type));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12058: fnd_file.put_line
12059: (fnd_file.log,' Trans Qty = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_qty)
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12060: ||c_batch_details(p_batch_id).step_tab(i).materials(j).trans_um);
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12061: fnd_file.put_line
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12062: (fnd_file.log,' Trans Date = '
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12063: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12064: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12065: (fnd_file.log,' Lot Cost Flag = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).lot_costed_flag));
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12066: fnd_file.put_line
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12067: (fnd_file.log,' Contribution = '||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).step_contribution));
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12075: fnd_file.put_line
12068: fnd_file.put_line
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12075: fnd_file.put_line
12076: (fnd_file.log,' ----------------------------------------------');
12069: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_cost,2)));
12070: fnd_file.put_line
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12075: fnd_file.put_line
12076: (fnd_file.log,' ----------------------------------------------');
12077:
12071: (fnd_file.log,' ');
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12075: fnd_file.put_line
12076: (fnd_file.log,' ----------------------------------------------');
12077:
12078: IF c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.EXISTS(1) THEN
12079: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.count
12072: fnd_file.put_line
12073: (fnd_file.log,' Cost Details for material transaction '
12074: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).trans_id));
12075: fnd_file.put_line
12076: (fnd_file.log,' ----------------------------------------------');
12077:
12078: IF c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.EXISTS(1) THEN
12079: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.count
12080: LOOP
12077:
12078: IF c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.EXISTS(1) THEN
12079: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.count
12080: LOOP
12081: fnd_file.put_line
12082: (fnd_file.log,' Component Class ID = '
12083: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12078: IF c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.EXISTS(1) THEN
12079: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details.count
12080: LOOP
12081: fnd_file.put_line
12082: (fnd_file.log,' Component Class ID = '
12083: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12080: LOOP
12081: fnd_file.put_line
12082: (fnd_file.log,' Component Class ID = '
12083: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12081: fnd_file.put_line
12082: (fnd_file.log,' Component Class ID = '
12083: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12083: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_cmpntcls_id));
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12090: fnd_file.put_line
12091: (fnd_file.log,' Component Cost = '
12084: fnd_file.put_line
12085: (fnd_file.log,' Cost Analysis Code = '
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12090: fnd_file.put_line
12091: (fnd_file.log,' Component Cost = '
12092: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).component_cost,2)));
12086: ||c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_analysis_code);
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12090: fnd_file.put_line
12091: (fnd_file.log,' Component Cost = '
12092: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).component_cost,2)));
12093: fnd_file.put_line(fnd_file.log,' ');
12094: END LOOP;
12087: fnd_file.put_line
12088: (fnd_file.log,' Cost Level = '
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12090: fnd_file.put_line
12091: (fnd_file.log,' Component Cost = '
12092: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).component_cost,2)));
12093: fnd_file.put_line(fnd_file.log,' ');
12094: END LOOP;
12095: ELSE
12089: ||to_char(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).cost_level));
12090: fnd_file.put_line
12091: (fnd_file.log,' Component Cost = '
12092: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).component_cost,2)));
12093: fnd_file.put_line(fnd_file.log,' ');
12094: END LOOP;
12095: ELSE
12096: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
12097: END IF;
12092: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).materials(j).cost_details(k).component_cost,2)));
12093: fnd_file.put_line(fnd_file.log,' ');
12094: END LOOP;
12095: ELSE
12096: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
12097: END IF;
12098: END LOOP;
12099: ELSE
12100: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
12096: fnd_file.put_line(fnd_file.log,' No costs exist for this material');
12097: END IF;
12098: END LOOP;
12099: ELSE
12100: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
12101: END IF;
12102:
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12099: ELSE
12100: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
12101: END IF;
12102:
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12105: (fnd_file.log,' Resources');
12106: fnd_file.put_line
12107: (fnd_file.log,' ---------');
12100: fnd_file.put_line(fnd_file.log,' This step has no associated materials');
12101: END IF;
12102:
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12105: (fnd_file.log,' Resources');
12106: fnd_file.put_line
12107: (fnd_file.log,' ---------');
12108:
12101: END IF;
12102:
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12105: (fnd_file.log,' Resources');
12106: fnd_file.put_line
12107: (fnd_file.log,' ---------');
12108:
12109: IF c_batch_details(p_batch_id).step_tab(i).resources.EXISTS(1) THEN
12102:
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12105: (fnd_file.log,' Resources');
12106: fnd_file.put_line
12107: (fnd_file.log,' ---------');
12108:
12109: IF c_batch_details(p_batch_id).step_tab(i).resources.EXISTS(1) THEN
12110: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).resources.count
12103: fnd_file.put_line(fnd_file.log,' ');
12104: fnd_file.put_line
12105: (fnd_file.log,' Resources');
12106: fnd_file.put_line
12107: (fnd_file.log,' ---------');
12108:
12109: IF c_batch_details(p_batch_id).step_tab(i).resources.EXISTS(1) THEN
12110: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).resources.count
12111: LOOP
12108:
12109: IF c_batch_details(p_batch_id).step_tab(i).resources.EXISTS(1) THEN
12110: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).resources.count
12111: LOOP
12112: fnd_file.put_line
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12109: IF c_batch_details(p_batch_id).step_tab(i).resources.EXISTS(1) THEN
12110: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).resources.count
12111: LOOP
12112: fnd_file.put_line
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12110: FOR j in 1..c_batch_details(p_batch_id).step_tab(i).resources.count
12111: LOOP
12112: fnd_file.put_line
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12111: LOOP
12112: fnd_file.put_line
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12112: fnd_file.put_line
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12113: (fnd_file.log,' Trans ID = '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12114: fnd_file.put_line
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12115: (fnd_file.log,' Orgn Id = '||l_org_tab(c_batch_details(p_batch_id).step_tab(i).resources(j).organization_id));
12116: fnd_file.put_line
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12117: (fnd_file.log,' Resource = '||c_batch_details(p_batch_id).step_tab(i).resources(j).resources);
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12118: fnd_file.put_line
12119: (fnd_file.log,' Resource Usage= '||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).resource_usage)
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12120: ||c_batch_details(p_batch_id).step_tab(i).resources(j).trans_um);
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12121: fnd_file.put_line
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12122: (fnd_file.log,' Trans Date = '
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12123: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_date,'DD-Mon-YYYY HH24:MI:SS'));
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12131: fnd_file.put_line
12124: fnd_file.put_line
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12131: fnd_file.put_line
12132: (fnd_file.log,' ---------------------------------------------');
12125: (fnd_file.log,' Trans Cost = '||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_cost,2)));
12126: fnd_file.put_line
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12131: fnd_file.put_line
12132: (fnd_file.log,' ---------------------------------------------');
12133:
12127: (fnd_file.log,' ');
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12131: fnd_file.put_line
12132: (fnd_file.log,' ---------------------------------------------');
12133:
12134: IF c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.EXISTS(1) THEN
12135: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.count
12128: fnd_file.put_line
12129: (fnd_file.log,' Cost Details for resource transaction '
12130: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).trans_id));
12131: fnd_file.put_line
12132: (fnd_file.log,' ---------------------------------------------');
12133:
12134: IF c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.EXISTS(1) THEN
12135: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.count
12136: LOOP
12133:
12134: IF c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.EXISTS(1) THEN
12135: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.count
12136: LOOP
12137: fnd_file.put_line
12138: (fnd_file.log,' Component Class ID = '
12139: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12134: IF c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.EXISTS(1) THEN
12135: FOR k IN 1..c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details.count
12136: LOOP
12137: fnd_file.put_line
12138: (fnd_file.log,' Component Class ID = '
12139: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12136: LOOP
12137: fnd_file.put_line
12138: (fnd_file.log,' Component Class ID = '
12139: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12137: fnd_file.put_line
12138: (fnd_file.log,' Component Class ID = '
12139: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12139: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_cmpntcls_id));
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12146: fnd_file.put_line
12147: (fnd_file.log,' Component Cost = '
12140: fnd_file.put_line
12141: (fnd_file.log,' Cost Analysis Code = '
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12146: fnd_file.put_line
12147: (fnd_file.log,' Component Cost = '
12148: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).component_cost,2)));
12142: ||c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_analysis_code);
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12146: fnd_file.put_line
12147: (fnd_file.log,' Component Cost = '
12148: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).component_cost,2)));
12149: fnd_file.put_line(fnd_file.log,' ');
12150: END LOOP;
12143: fnd_file.put_line
12144: (fnd_file.log,' Cost Level = '
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12146: fnd_file.put_line
12147: (fnd_file.log,' Component Cost = '
12148: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).component_cost,2)));
12149: fnd_file.put_line(fnd_file.log,' ');
12150: END LOOP;
12151: ELSE
12145: ||to_char(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).cost_level));
12146: fnd_file.put_line
12147: (fnd_file.log,' Component Cost = '
12148: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).component_cost,2)));
12149: fnd_file.put_line(fnd_file.log,' ');
12150: END LOOP;
12151: ELSE
12152: fnd_file.put_line(fnd_file.log,' This resource has no costs');
12153: END IF;
12148: ||to_char(ROUND(c_batch_details(p_batch_id).step_tab(i).resources(j).cost_details(k).component_cost,2)));
12149: fnd_file.put_line(fnd_file.log,' ');
12150: END LOOP;
12151: ELSE
12152: fnd_file.put_line(fnd_file.log,' This resource has no costs');
12153: END IF;
12154: END LOOP;
12155: ELSE
12156: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
12152: fnd_file.put_line(fnd_file.log,' This resource has no costs');
12153: END IF;
12154: END LOOP;
12155: ELSE
12156: fnd_file.put_line(fnd_file.log,' This step has no associated resources');
12157: END IF;
12158: END LOOP;
12159: END IF;
12160:
12157: END IF;
12158: END LOOP;
12159: END IF;
12160:
12161: fnd_file.put_line
12162: (fnd_file.log,'Leaving Procedure: '||procedure_name);
12163:
12164: END display_c_batch_details;
12165:
12158: END LOOP;
12159: END IF;
12160:
12161: fnd_file.put_line
12162: (fnd_file.log,'Leaving Procedure: '||procedure_name);
12163:
12164: END display_c_batch_details;
12165:
12166: END GMF_LOT_COSTING_PUB;