[Home] [Help]
144: AND (p_old_header_rec.header_id IS NOT NULL OR
145: p_initial_header_rec.credit_card_number IS NOT NULL))
146: ) -- AND condition added to fix 3098878
147: THEN
148: oe_debug_pub.add('In credit card number clear ....'||p_x_header_rec.credit_card_number);
149: p_x_header_rec.credit_card_number := FND_API.G_MISS_CHAR;
150:
151: END IF;
152: END CREDIT_CARD_NUMBER;
757: -- end
758:
759: BEGIN
760:
761: oe_debug_pub.add('Entering OE_HEADER_UTIL.Clear_Dependent',1);
762: IF p_src_attr_tbl.COUNT <> 0 THEN
763:
764: OE_Dependencies.Mark_Dependent
765: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
899: END IF;
900: END LOOP;
901: END IF;
902:
903: oe_debug_pub.add('Exiting OE_HEADER_UTIL.Clear_Dependent',1);
904:
905: EXCEPTION
906:
907: WHEN FND_API.G_EXC_ERROR THEN
916: , 'Clear_Dependents'
917: );
918: END IF;
919:
920: oe_debug_pub.add('Error : '||substr(sqlerrm,1,200),1);
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
922:
923: END Clear_Dependents;
924:
1515: l_index NUMBER :=0;
1516: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
1517: BEGIN
1518:
1519: oe_debug_pub.add('Entering OE_HEADER_UTIL.CLEAR_DEPENDENT_ATTR', 1);
1520:
1521: IF p_attr_id <> FND_API.G_MISS_NUM THEN
1522:
1523: l_index := l_index + 1.0;
1674: --can be cleared during the future calls when the cc is not selected
1675: --from the LOV.
1676: g_is_cc_selected_from_LOV := 'N';
1677:
1678: oe_debug_pub.add('Exiting OE_HEADER_UTIL.CLEAR_DEPENDENT_ATTR', 1);
1679:
1680: EXCEPTION
1681: WHEN FND_API.G_EXC_ERROR THEN
1682: RAISE FND_API.G_EXC_ERROR;
1704: l_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
1705: l_old_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
1706: l_initial_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
1707: BEGIN
1708: oe_debug_pub.add('Security code in Clear_dep_attr....'||p_x_header_rec.instrument_security_code);
1709: API_Rec_To_Rowtype_Rec(p_x_header_rec, l_header_rec);
1710: API_Rec_To_Rowtype_Rec(p_old_header_rec, l_old_header_rec);
1711:
1712: l_initial_header_rec := l_header_rec;
1758: l_log_delete_payment_req VARCHAR2(1) := 'N';
1759:
1760: BEGIN
1761:
1762: oe_debug_pub.add('Entering OE_HEADER_UTIL.APPLY_ATTRIBUTE_CHANGES', 1);
1763:
1764: -- Load out record
1765:
1766: IF NOT OE_GLOBALS.Equal(p_x_header_rec.booked_flag,p_old_header_rec.booked_flag)
1778: p_old_header_rec,
1779: l_return_status);
1780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1782: oe_debug_pub.ADD('Update Line Process Order return UNEXP_ERROR');
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: oe_debug_pub.ADD('Update Line Process Order return RET_STS_ERROR');
1786: RAISE FND_API.G_EXC_ERROR;
1781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1782: oe_debug_pub.ADD('Update Line Process Order return UNEXP_ERROR');
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1785: oe_debug_pub.ADD('Update Line Process Order return RET_STS_ERROR');
1786: RAISE FND_API.G_EXC_ERROR;
1787: END IF;
1788: END IF;
1789:
1791:
1792: END IF; -- cancelled flag
1793:
1794: END IF;
1795: oe_debug_pub.add('Raj1', 1);
1796: oe_debug_pub.add('Operation--'||p_x_header_rec.operation);
1797: oe_debug_pub.add('payment type--'||nvl(p_x_header_rec.payment_type_code,'xxx'));
1798: oe_debug_pub.add('Old inv to ...'||p_x_header_rec.invoice_to_org_id);
1799: oe_debug_pub.add('New inv to...'||p_old_header_rec.invoice_to_org_id);
1792: END IF; -- cancelled flag
1793:
1794: END IF;
1795: oe_debug_pub.add('Raj1', 1);
1796: oe_debug_pub.add('Operation--'||p_x_header_rec.operation);
1797: oe_debug_pub.add('payment type--'||nvl(p_x_header_rec.payment_type_code,'xxx'));
1798: oe_debug_pub.add('Old inv to ...'||p_x_header_rec.invoice_to_org_id);
1799: oe_debug_pub.add('New inv to...'||p_old_header_rec.invoice_to_org_id);
1800:
1793:
1794: END IF;
1795: oe_debug_pub.add('Raj1', 1);
1796: oe_debug_pub.add('Operation--'||p_x_header_rec.operation);
1797: oe_debug_pub.add('payment type--'||nvl(p_x_header_rec.payment_type_code,'xxx'));
1798: oe_debug_pub.add('Old inv to ...'||p_x_header_rec.invoice_to_org_id);
1799: oe_debug_pub.add('New inv to...'||p_old_header_rec.invoice_to_org_id);
1800:
1801: IF NOT OE_GLOBALS.Equal(p_x_header_rec.invoice_to_org_id,p_old_header_rec.invoice_to_org_id)
1794: END IF;
1795: oe_debug_pub.add('Raj1', 1);
1796: oe_debug_pub.add('Operation--'||p_x_header_rec.operation);
1797: oe_debug_pub.add('payment type--'||nvl(p_x_header_rec.payment_type_code,'xxx'));
1798: oe_debug_pub.add('Old inv to ...'||p_x_header_rec.invoice_to_org_id);
1799: oe_debug_pub.add('New inv to...'||p_old_header_rec.invoice_to_org_id);
1800:
1801: IF NOT OE_GLOBALS.Equal(p_x_header_rec.invoice_to_org_id,p_old_header_rec.invoice_to_org_id)
1802: THEN
1795: oe_debug_pub.add('Raj1', 1);
1796: oe_debug_pub.add('Operation--'||p_x_header_rec.operation);
1797: oe_debug_pub.add('payment type--'||nvl(p_x_header_rec.payment_type_code,'xxx'));
1798: oe_debug_pub.add('Old inv to ...'||p_x_header_rec.invoice_to_org_id);
1799: oe_debug_pub.add('New inv to...'||p_old_header_rec.invoice_to_org_id);
1800:
1801: IF NOT OE_GLOBALS.Equal(p_x_header_rec.invoice_to_org_id,p_old_header_rec.invoice_to_org_id)
1802: THEN
1803: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1812: IF l_delete_payment_count > 0 THEN
1813: l_log_delete_payment_req := 'Y';
1814: END IF;
1815:
1816: oe_debug_pub.add('Payment_type code in invoice to '||p_x_header_rec.payment_type_code);
1817: oe_debug_pub.add('Delete Payment Count count'||l_delete_payment_count);
1818: oe_debug_pub.add('Log delete payment req Flag'||l_log_delete_payment_req);
1819: IF l_log_delete_payment_req = 'Y' THEN
1820: OE_delayed_requests_Pvt.log_request
1813: l_log_delete_payment_req := 'Y';
1814: END IF;
1815:
1816: oe_debug_pub.add('Payment_type code in invoice to '||p_x_header_rec.payment_type_code);
1817: oe_debug_pub.add('Delete Payment Count count'||l_delete_payment_count);
1818: oe_debug_pub.add('Log delete payment req Flag'||l_log_delete_payment_req);
1819: IF l_log_delete_payment_req = 'Y' THEN
1820: OE_delayed_requests_Pvt.log_request
1821: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
1814: END IF;
1815:
1816: oe_debug_pub.add('Payment_type code in invoice to '||p_x_header_rec.payment_type_code);
1817: oe_debug_pub.add('Delete Payment Count count'||l_delete_payment_count);
1818: oe_debug_pub.add('Log delete payment req Flag'||l_log_delete_payment_req);
1819: IF l_log_delete_payment_req = 'Y' THEN
1820: OE_delayed_requests_Pvt.log_request
1821: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
1822: p_entity_id => p_x_Header_rec.header_id,
1829: END IF;--Log delayed req.
1830: END IF;--Payment type code check for deleting payments
1831: --R12 CC Encryption
1832: IF p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
1833: oe_debug_pub.add('Log Verify Payment Delayed Request in Invoice To');
1834: -- Set Flag to Log a request for Verify Payment
1835: l_verify_payment_flag := 'Y';
1836: ELSE
1837: -- BUG 2114156
1834: -- Set Flag to Log a request for Verify Payment
1835: l_verify_payment_flag := 'Y';
1836: ELSE
1837: -- BUG 2114156
1838: oe_debug_pub.add('Call OE_CREDIT_CHECK_UTIL.GET_credit_check_level ');
1839: l_level := NULL ;
1840:
1841: l_level :=
1842: OE_CREDIT_CHECK_UTIL.GET_credit_check_level
1843: ( p_calling_action => 'UPDATE'
1844: , p_order_type_id =>
1845: p_x_header_rec.order_type_id
1846: ) ;
1847: oe_debug_pub.add('l_level = '|| l_level );
1848:
1849: IF l_level = 'ORDER'
1850: THEN
1851:
1850: THEN
1851:
1852:
1853: -- Set Flag to Log a request for Verify Payment
1854: oe_debug_pub.add('Log Verify Payment Delayed Request in Invoice To - Credit Check');
1855: --
1856: l_verify_payment_flag := 'Y';
1857: END IF;
1858: END IF;
1857: END IF;
1858: END IF;
1859: END IF;--Operation - Update
1860: END IF;
1861: oe_debug_pub.add('Raj2', 1);
1862: oe_debug_pub.add('p_x_header_rec.open_flag:'||p_x_header_rec.open_flag);
1863: oe_debug_pub.add('p_old_header_rec.open_flag:'||p_old_header_rec.open_flag);
1864:
1865:
1858: END IF;
1859: END IF;--Operation - Update
1860: END IF;
1861: oe_debug_pub.add('Raj2', 1);
1862: oe_debug_pub.add('p_x_header_rec.open_flag:'||p_x_header_rec.open_flag);
1863: oe_debug_pub.add('p_old_header_rec.open_flag:'||p_old_header_rec.open_flag);
1864:
1865:
1866: IF (NOT OE_GLOBALS.Equal(p_x_header_rec.open_flag,
1859: END IF;--Operation - Update
1860: END IF;
1861: oe_debug_pub.add('Raj2', 1);
1862: oe_debug_pub.add('p_x_header_rec.open_flag:'||p_x_header_rec.open_flag);
1863: oe_debug_pub.add('p_old_header_rec.open_flag:'||p_old_header_rec.open_flag);
1864:
1865:
1866: IF (NOT OE_GLOBALS.Equal(p_x_header_rec.open_flag,
1867: p_old_header_rec.open_flag)) OR
1889:
1890: IF p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
1891:
1892: -- Set Flag to Log a request for Verify Payment
1893: oe_debug_pub.add('Log Verify Payment Delayed Request in Order Type');
1894: l_verify_payment_flag := 'Y';
1895: ELSE
1896:
1897: /* Additional Task - If the payment type is not CREDIT CARD ,
1900:
1901: IF p_x_header_rec.booked_flag ='Y'
1902: THEN
1903:
1904: oe_debug_pub.add('Log Verify Payment Delayed Request in Order Type',3);
1905: l_verify_payment_flag := 'Y';
1906:
1907: END IF;
1908:
1950: END IF;
1951:
1952: NULL;
1953: END IF;
1954: oe_debug_pub.add('Raj3', 1);
1955:
1956: IF NOT OE_GLOBALS.Equal(p_x_header_rec.sold_to_org_id,p_old_header_rec.sold_to_org_id)
1957: THEN
1958: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1958: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1959: AND p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
1960:
1961: -- Set Flag to Log a request for Verify Payment
1962: oe_debug_pub.add('Log Verify Payment Delayed Request in Sold To',3);
1963: --
1964: l_verify_payment_flag := 'Y';
1965:
1966: END IF;
1966: END IF;
1967:
1968: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1969: -- Log request to evaluate Holds.
1970: oe_debug_pub.ADD('Customer update: logging request for eval_hold_source',1);
1971: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
1972: 'Entity ID:' || to_char(p_x_header_rec.sold_to_org_id),1);
1973: OE_delayed_requests_Pvt.log_request
1974: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1967:
1968: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1969: -- Log request to evaluate Holds.
1970: oe_debug_pub.ADD('Customer update: logging request for eval_hold_source',1);
1971: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
1972: 'Entity ID:' || to_char(p_x_header_rec.sold_to_org_id),1);
1973: OE_delayed_requests_Pvt.log_request
1974: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
1975: p_entity_id => p_x_header_rec.header_id,
1979: p_request_unique_key1 => 'CUSTOMER',
1980: p_param1 => 'C',
1981: p_param2 => p_x_header_rec.sold_to_org_id,
1982: x_return_status => l_return_status);
1983: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
1984: END IF;
1985:
1986:
1987: END IF;
1998:
1999: IF p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2000:
2001: -- Set Flag to Log a request for Verify Payment
2002: oe_debug_pub.add('Log Verify Payment Delayed Request in Curr Code',3);
2003: l_verify_payment_flag := 'Y';
2004:
2005: ELSE
2006: /* Additional Task - If the payment type is not CREDIT CARD,
2007: then also log delayed req for verify payment if the
2008: order is booked */
2009:
2010: if p_x_header_rec.booked_flag ='Y' then
2011: oe_debug_pub.add('Log Verify Payment Delayed Request in Currency Code',3);
2012: l_verify_payment_flag := 'Y';
2013: end if;
2014: END IF;
2015: END IF;
2023: --now be handled in pre_write_process procedure
2024: IF p_x_header_rec.payment_type_code IS NOT NULL
2025: AND p_x_header_rec.payment_type_code <> 'CREDIT_CARD' THEN
2026: -- Set Flag Log a request for Verify Payment
2027: oe_debug_pub.add('Log Verify Payment Delayed Request in Payment Type',3);
2028: l_verify_payment_flag := 'Y';
2029: l_payments_upd_flag := 'Y';
2030: END IF;
2031:
2038: AND p_x_header_rec.payment_type_code in ('CASH', 'CHECK')
2039: THEN
2040:
2041: -- Set Flag to Log a request for Verify Payment
2042: oe_debug_pub.add('Log Update Payments Delayed',3);
2043: --
2044: --l_verify_payment_flag := 'Y';
2045:
2046: l_payments_upd_flag := 'Y';
2054: AND p_x_header_rec.payment_type_code = 'CHECK'
2055: THEN
2056:
2057: -- Set Flag to Log a request for Verify Payment
2058: oe_debug_pub.add('Log Update Payments Delayed',3);
2059: --
2060: --l_verify_payment_flag := 'Y';
2061:
2062: l_payments_upd_flag := 'Y';
2070: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2071: AND p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2072:
2073: -- Set Flag to Log a request for Verify Payment
2074: oe_debug_pub.add('Log Verify Payment Delayed Request in CC Holder',3);
2075: --
2076: l_verify_payment_flag := 'Y';
2077: --R12 CC Encryption
2078: --Credit card processing would now be handled in pre_write_process procedure
2090: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2091: AND p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2092:
2093: -- Set Flag to Log a request for Verify Payment
2094: oe_debug_pub.add('Log Verify Payment Delayed Request in CC Number',3);
2095: --
2096: l_verify_payment_flag := 'Y';
2097: --R12 CC Encryption
2098: --Credit card processing would now be handled in pre_write_process procedure
2100:
2101: --R12 CC Encryption
2102: END IF;
2103: END IF;
2104: oe_debug_pub.add('Raj4', 1);
2105:
2106: IF NOT OE_GLOBALS.Equal(p_x_header_rec.credit_card_expiration_date,p_old_header_rec.credit_card_expiration_date)
2107: THEN
2108: /* Fix Bug # 3686048(FP 3659342): Set the Exp Date as the Last Day of the Month */
2112: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2113: AND p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2114:
2115: -- Set Flag to Log a request for Verify Payment
2116: oe_debug_pub.add('Log Verify Payment Delayed Request in CC Exp Date',3);
2117: --
2118: l_verify_payment_flag := 'Y';
2119: --R12 CC Encryption
2120: --Credit card processing would now be handled in pre_write_process procedure
2129: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2130: AND p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2131:
2132: -- Set Flag to Log a request for Verify Payment
2133: oe_debug_pub.add('Log Verify Payment Delayed Request in CC Approval',3);
2134: --
2135: l_verify_payment_flag := 'Y';
2136: --R12 CC Encryption
2137: --Credit card processing would now be handled in pre_write_process procedure
2156: -- Added IF condition for bug 6697401
2157: IF OE_ORDER_COPY_UTIL.G_COPY_REC.line_price_mode =
2158: OE_ORDER_COPY_UTIL.G_CPY_ORIG_PRICE THEN
2159:
2160: oe_debug_pub.add(' Copy as original price');
2161: -- bug 6697401
2162: -- Log a request to copy Freight Charges to the copied order.
2163: oe_debug_pub.add('Log Delayed Request To Copy Charges in SRC Doc Type Id',3);
2164:
2159:
2160: oe_debug_pub.add(' Copy as original price');
2161: -- bug 6697401
2162: -- Log a request to copy Freight Charges to the copied order.
2163: oe_debug_pub.add('Log Delayed Request To Copy Charges in SRC Doc Type Id',3);
2164:
2165: OE_delayed_requests_Pvt.log_request(
2166: p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2167: p_entity_id => p_x_header_rec.header_id,
2184: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
2185: AND p_x_header_rec.source_document_type_id = 2 THEN
2186:
2187: -- Log a request to copy header adjustments to the copied order.
2188: oe_debug_pub.add('Log Delayed Request To Copy header adjustments ',3);
2189: --
2190:
2191: IF OE_ORDER_COPY_UTIL.G_COPY_REC.line_price_mode IN (OE_ORDER_COPY_UTIL.G_CPY_ORIG_PRICE,OE_ORDER_COPY_UTIL.G_CPY_REPRICE_PARTIAL) THEN
2192: oe_debug_pub.add(' Copy as original price');
2188: oe_debug_pub.add('Log Delayed Request To Copy header adjustments ',3);
2189: --
2190:
2191: IF OE_ORDER_COPY_UTIL.G_COPY_REC.line_price_mode IN (OE_ORDER_COPY_UTIL.G_CPY_ORIG_PRICE,OE_ORDER_COPY_UTIL.G_CPY_REPRICE_PARTIAL) THEN
2192: oe_debug_pub.add(' Copy as original price');
2193: OE_delayed_requests_Pvt.log_request(
2194: p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2195: p_entity_id => p_x_header_rec.header_id,
2196: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2245: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2246: THEN
2247: OE_Holds_PUB.G_PAYMENT_HOLD_APPLIED := 'N';
2248: OE_Holds_PUB.G_HDR_PAYMENT := 'Y';
2249: oe_debug_pub.ADD('payment type update: logging request for eval_hold_source',1);
2250: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2251: 'Entity ID:' || to_char(p_x_header_rec.payment_type_code),1);
2252: OE_delayed_requests_Pvt.log_request
2253: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2246: THEN
2247: OE_Holds_PUB.G_PAYMENT_HOLD_APPLIED := 'N';
2248: OE_Holds_PUB.G_HDR_PAYMENT := 'Y';
2249: oe_debug_pub.ADD('payment type update: logging request for eval_hold_source',1);
2250: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2251: 'Entity ID:' || to_char(p_x_header_rec.payment_type_code),1);
2252: OE_delayed_requests_Pvt.log_request
2253: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2254: p_entity_id => p_x_header_rec.header_id,
2258: p_request_unique_key1 => 'PAYMENT_TYPE',
2259: p_param1 => 'P',
2260: p_param2 => p_x_header_rec.payment_type_code,
2261: x_return_status => l_return_status);
2262: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
2263:
2264: END IF;
2265:
2266: IF NOT OE_GLOBALS.Equal(p_x_header_rec.transactional_curr_code,p_old_header_rec.transactional_curr_code)
2265:
2266: IF NOT OE_GLOBALS.Equal(p_x_header_rec.transactional_curr_code,p_old_header_rec.transactional_curr_code)
2267: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2268: THEN
2269: oe_debug_pub.ADD('Currency update: logging request for eval_hold_source',1);
2270: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2271: 'Entity ID:' || to_char(p_x_header_rec.transactional_curr_code),1);
2272: OE_delayed_requests_Pvt.log_request
2273: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2266: IF NOT OE_GLOBALS.Equal(p_x_header_rec.transactional_curr_code,p_old_header_rec.transactional_curr_code)
2267: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2268: THEN
2269: oe_debug_pub.ADD('Currency update: logging request for eval_hold_source',1);
2270: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2271: 'Entity ID:' || to_char(p_x_header_rec.transactional_curr_code),1);
2272: OE_delayed_requests_Pvt.log_request
2273: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2274: p_entity_id => p_x_header_rec.header_id,
2278: p_request_unique_key1 => 'CURRENCY',
2279: p_param1 => 'TC',
2280: p_param2 => p_x_header_rec.transactional_curr_code,
2281: x_return_status => l_return_status);
2282: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
2283:
2284: END IF;
2285:
2286: IF NOT OE_GLOBALS.Equal(p_x_header_rec.sales_channel_code,p_old_header_rec.sales_channel_code)
2285:
2286: IF NOT OE_GLOBALS.Equal(p_x_header_rec.sales_channel_code,p_old_header_rec.sales_channel_code)
2287: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2288: THEN
2289: oe_debug_pub.ADD('sales channel update: logging request for eval_hold_source',1);
2290: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2291: 'Entity ID:' || to_char(p_x_header_rec.sales_channel_code),1);
2292: OE_delayed_requests_Pvt.log_request
2293: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2286: IF NOT OE_GLOBALS.Equal(p_x_header_rec.sales_channel_code,p_old_header_rec.sales_channel_code)
2287: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2288: THEN
2289: oe_debug_pub.ADD('sales channel update: logging request for eval_hold_source',1);
2290: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2291: 'Entity ID:' || to_char(p_x_header_rec.sales_channel_code),1);
2292: OE_delayed_requests_Pvt.log_request
2293: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2294: p_entity_id => p_x_header_rec.header_id,
2298: p_request_unique_key1 => 'SALES_CHANNEL',
2299: p_param1 => 'SC',
2300: p_param2 => p_x_header_rec.sales_channel_code,
2301: x_return_status => l_return_status);
2302: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
2303:
2304: END IF;
2305:
2306: IF NOT OE_GLOBALS.Equal(p_x_header_rec.price_list_id,p_old_header_rec.price_list_id)
2305:
2306: IF NOT OE_GLOBALS.Equal(p_x_header_rec.price_list_id,p_old_header_rec.price_list_id)
2307: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2308: THEN
2309: oe_debug_pub.ADD('price list update: logging request for eval_hold_source',1);
2310: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2311: 'Entity ID:' || to_char(p_x_header_rec.price_list_id),1);
2312: OE_delayed_requests_Pvt.log_request
2313: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2306: IF NOT OE_GLOBALS.Equal(p_x_header_rec.price_list_id,p_old_header_rec.price_list_id)
2307: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2308: THEN
2309: oe_debug_pub.ADD('price list update: logging request for eval_hold_source',1);
2310: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2311: 'Entity ID:' || to_char(p_x_header_rec.price_list_id),1);
2312: OE_delayed_requests_Pvt.log_request
2313: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2314: p_entity_id => p_x_header_rec.header_id,
2318: p_request_unique_key1 => 'PRICE_LIST',
2319: p_param1 => 'PL',
2320: p_param2 => p_x_header_rec.price_list_id,
2321: x_return_status => l_return_status);
2322: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
2323:
2324: END IF;
2325:
2326: IF NOT OE_GLOBALS.Equal(p_x_header_rec.order_type_id,p_old_header_rec.order_type_id)
2325:
2326: IF NOT OE_GLOBALS.Equal(p_x_header_rec.order_type_id,p_old_header_rec.order_type_id)
2327: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2328: THEN
2329: oe_debug_pub.ADD('Order type update: logging request for eval_hold_source',1);
2330: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2331: 'Entity ID:' || to_char(p_x_header_rec.order_type_id),1);
2332: OE_delayed_requests_Pvt.log_request
2333: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2326: IF NOT OE_GLOBALS.Equal(p_x_header_rec.order_type_id,p_old_header_rec.order_type_id)
2327: AND p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
2328: THEN
2329: oe_debug_pub.ADD('Order type update: logging request for eval_hold_source',1);
2330: oe_debug_pub.ADD('Header ID:' || to_char(p_x_header_rec.header_id) ||
2331: 'Entity ID:' || to_char(p_x_header_rec.order_type_id),1);
2332: OE_delayed_requests_Pvt.log_request
2333: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
2334: p_entity_id => p_x_header_rec.header_id,
2338: p_request_unique_key1 => 'ORDER_TYPE',
2339: p_param1 => 'OT',
2340: p_param2 => p_x_header_rec.order_type_id,
2341: x_return_status => l_return_status);
2342: oe_debug_pub.ADD('after call to log_request: l_return_status: '||l_return_status , 1);
2343:
2344: END IF;
2345: --ER#7479609 end
2346:
2346:
2347: IF (l_verify_payment_flag = 'Y') THEN
2348:
2349: -- Log a request for Verify Payment
2350: oe_debug_pub.add('Logging Delayed Request for Verify Payment',3);
2351: --
2352: OE_delayed_requests_Pvt.log_request
2353: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2354: p_entity_id => p_x_header_rec.header_id,
2362: /* code added by Renga for multiple payments */
2363: l_payment_count := 0;
2364: Begin
2365:
2366: oe_debug_pub.add('before getting payment count ', 1);
2367: open payment_count_cur;
2368: fetch payment_count_cur into l_payment_count;
2369: close payment_count_cur;
2370:
2378: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED = TRUE
2379: and l_payments_upd_flag = 'Y'
2380: and l_payment_count > 0 then --modified for bug 3733877
2381:
2382: oe_debug_pub.add('logging synch payment delayed request', 1);
2383:
2384: OE_delayed_requests_Pvt.log_request
2385: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2386: p_entity_id => p_x_header_rec.header_id,
2403: THEN
2404: OE_Schedule_Util.G_DATE_TYPE := p_x_header_rec.order_date_type_code; END IF;
2405: END IF;
2406: /*-- 3288805 --*/
2407: oe_debug_pub.add('Exiting OE_HEADER_UTIL.APPLY_ATTRIBUTE_CHANGES', 1);
2408:
2409: END Apply_Attribute_Changes;
2410:
2411: -- Procedure Complete_Record
2417: IS
2418:
2419: BEGIN
2420:
2421: oe_debug_pub.add('Entering OE_HEADER_UTIL.COMPLETE_RECORD', 1);
2422:
2423: IF p_x_header_rec.accounting_rule_id = FND_API.G_MISS_NUM THEN
2424: p_x_header_rec.accounting_rule_id := p_old_header_rec.accounting_rule_id;
2425: END IF;
3129: --key Transaction Dates
3130: IF p_x_header_rec.order_firmed_date = FND_API.G_MISS_DATE THEN
3131: p_x_header_rec.order_firmed_date := p_old_header_rec.order_firmed_date;
3132: END IF;
3133: oe_debug_pub.add('Exiting OE_HEADER_UTIL.COMPLETE_RECORD', 1);
3134:
3135:
3136: END Complete_Record;
3137:
3143: IS
3144: --p_x_header_rec OE_Order_PUB.Header_Rec_Type := p_header_rec;
3145: BEGIN
3146:
3147: oe_debug_pub.add('Entering OE_HEADER_UTIL.CONVERT_MISS_TO_NULL', 1);
3148:
3149: IF p_x_header_rec.accounting_rule_id = FND_API.G_MISS_NUM THEN
3150: p_x_header_rec.accounting_rule_id := NULL;
3151: END IF;
3785: IF p_x_header_rec.order_firmed_date = FND_API.G_MISS_DATE THEN
3786: p_x_header_rec.order_firmed_date := NULL;
3787: END IF;
3788:
3789: oe_debug_pub.add('Exiting OE_HEADER_UTIL.CONVERT_MISS_TO_NULL', 1);
3790:
3791:
3792: END Convert_Miss_To_Null;
3793:
3803: l_index NUMBER;
3804: l_return_status VARCHAR2(1);
3805: BEGIN
3806:
3807: oe_debug_pub.add('Entering OE_HEADER_UTIL.UPDATE_ROW', 1);
3808: --Commented for MOAC start
3809: /*l_org_id := OE_GLOBALS.G_ORG_ID;
3810:
3811: IF l_org_id IS NULL THEN
3831: p_header_id => p_header_rec.header_id,
3832: x_index => l_index,
3833: x_return_status => l_return_status);
3834:
3835: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.update_row is: ' || l_return_status);
3836: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3837: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
3838: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3833: x_return_status => l_return_status);
3834:
3835: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.update_row is: ' || l_return_status);
3836: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3837: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
3838: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3841: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Update_row');
3834:
3835: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.update_row is: ' || l_return_status);
3836: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3837: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
3838: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3841: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Update_row');
3842: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3837: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
3838: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3841: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Update_row');
3842: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3843: RAISE FND_API.G_EXC_ERROR;
3844: END IF;
3845: END IF; /*code_release_level*/
3838: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3841: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Update_row');
3842: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.Update_ROW', 1);
3843: RAISE FND_API.G_EXC_ERROR;
3844: END IF;
3845: END IF; /*code_release_level*/
3846: -- notification framework end
4044: -- to call below procedure to update, updated directly above
4045:
4046: -- OE_Order_Cache.Set_Order_Header(p_header_rec);
4047:
4048: oe_debug_pub.add('Exiting OE_HEADER_UTIL.UPDATE_ROW', 1);
4049:
4050: EXCEPTION
4051:
4052: WHEN OTHERS THEN
4073: l_upgraded_flag varchar2(1) ;
4074: l_lock_control NUMBER := 1;
4075: l_index NUMBER;
4076: l_return_status VARCHAR2(1);
4077: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4078: BEGIN
4079:
4080: oe_debug_pub.add('Entering OE_HEADER_UTIL.INSERT_ROW', 1);
4081:
4076: l_return_status VARCHAR2(1);
4077: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4078: BEGIN
4079:
4080: oe_debug_pub.add('Entering OE_HEADER_UTIL.INSERT_ROW', 1);
4081:
4082: --MOAC change
4083: OE_GLOBALS.Set_Context;
4084: l_org_id := OE_GLOBALS.G_ORG_ID;
4084: l_org_id := OE_GLOBALS.G_ORG_ID;
4085: IF l_org_id IS NULL THEN
4086: -- org_id is null, don't do insert. raise an error
4087: If l_debug_level > 0 Then
4088: oe_debug_pub.add('Org_Id is NULL',1);
4089: End If;
4090: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
4091: FND_MSG_PUB.ADD;
4092: RAISE FND_API.G_EXC_ERROR;
4475: p_Header_rec =>p_header_rec,
4476: p_header_id => p_header_rec.header_id,
4477: x_index => l_index,
4478: x_return_status => l_return_status);
4479: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.insert_row is: ' || l_return_status);
4480: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
4481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4482: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4476: p_header_id => p_header_rec.header_id,
4477: x_index => l_index,
4478: x_return_status => l_return_status);
4479: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.insert_row is: ' || l_return_status);
4480: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
4481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4482: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4478: x_return_status => l_return_status);
4479: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.insert_row is: ' || l_return_status);
4480: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
4481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4482: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4486: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Insert_row');
4479: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.insert_row is: ' || l_return_status);
4480: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
4481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4482: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4486: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Insert_row');
4487: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4482: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4486: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Insert_row');
4487: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4488: RAISE FND_API.G_EXC_ERROR;
4489: END IF;
4490: END IF; /*code_release_level*/
4483: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4486: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Insert_row');
4487: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4488: RAISE FND_API.G_EXC_ERROR;
4489: END IF;
4490: END IF; /*code_release_level*/
4491: -- notification framework end
4489: END IF;
4490: END IF; /*code_release_level*/
4491: -- notification framework end
4492:
4493: oe_debug_pub.add('Exiting OE_HEADER_UTIL.INSERT_ROW', 1);
4494:
4495: EXCEPTION
4496:
4497: WHEN OTHERS THEN
4526: l_msg_count NUMBER;
4527: l_msg_data VARCHAR2(2000);
4528: BEGIN
4529:
4530: oe_debug_pub.add('Entering OE_HEADER_UTIL.DELETE_ROW', 1);
4531: --Commented for MOAC start
4532: /*l_org_id := OE_GLOBALS.G_ORG_ID;
4533: IF l_org_id IS NULL THEN
4534: OE_GLOBALS.Set_Context;
4545: p_Header_rec =>l_new_header_rec,
4546: p_header_id => p_header_id,
4547: x_index => l_index,
4548: x_return_status => l_return_status);
4549: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.delete_row is: ' || l_return_status);
4550:
4551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4552: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4553: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4548: x_return_status => l_return_status);
4549: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.delete_row is: ' || l_return_status);
4550:
4551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4552: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4553: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4556: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Delete_row');
4549: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_HEADER_UTIL.delete_row is: ' || l_return_status);
4550:
4551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4552: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4553: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4556: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Delete_row');
4557: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4552: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
4553: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4556: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Delete_row');
4557: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4558: RAISE FND_API.G_EXC_ERROR;
4559: END IF;
4560: END IF; /* code_release_level*/
4553: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4556: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_HEADER_UTIL.Delete_row');
4557: OE_DEBUG_PUB.ADD('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4558: RAISE FND_API.G_EXC_ERROR;
4559: END IF;
4560: END IF; /* code_release_level*/
4561: -- notification framework end
4560: END IF; /* code_release_level*/
4561: -- notification framework end
4562:
4563: -- BUG 2670775 Reverse Limits Begin
4564: oe_debug_pub.add('log request to Reverse_Limits for HEADER level DELETE',1);
4565: OE_Order_Cache.Load_Order_Header(p_header_id);
4566: l_price_request_code := OE_ORDER_CACHE.g_header_rec.price_request_code;
4567: l_transaction_phase_code := OE_ORDER_CACHE.g_header_rec.transaction_phase_code;
4568:
4568:
4569: -- If price_request_code is not cached, retrieve it
4570: IF l_price_request_code = FND_API.G_MISS_CHAR
4571: OR l_price_request_code is NULL THEN
4572: oe_debug_pub.add('Select price_request_code from HEADER',1);
4573: SELECT price_request_code
4574: INTO l_price_request_code
4575: FROM OE_ORDER_HEADERS
4576: WHERE HEADER_ID = p_header_id;
4585: , p_ret_price_request_code => NULL
4586: , p_returned_qty => NULL
4587: , p_line_id => NULL
4588: );
4589: oe_debug_pub.add('Request to Reverse_Limits in OE_HEADER_UTIL.Delete_Row is done',1);
4590: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4593: RAISE FND_API.G_EXC_ERROR;
4650: /* AND
4651: (NVL(ORG_ID,NVL(l_org_id,0))= NVL(l_org_id,0))
4652: ;*/
4653:
4654: oe_debug_pub.add('Exiting OE_HEADER_UTIL.DELETE_ROW', 1);
4655:
4656: EXCEPTION
4657: WHEN FND_API.G_EXC_ERROR THEN
4658: --takintoy, added for delete articles
4702: l_payment_type_code VARCHAR2(40) := 'CREDIT_CARD';
4703: l_return_status VARCHAR2(30) := NULL ;
4704: l_msg_count NUMBER := 0 ;
4705: l_msg_data VARCHAR2(2000) := NULL ;
4706: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4707:
4708: BEGIN
4709: IF l_debug_level >0 THEN
4710: oe_debug_pub.add('Entering Query Card Details....');
4706: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4707:
4708: BEGIN
4709: IF l_debug_level >0 THEN
4710: oe_debug_pub.add('Entering Query Card Details....');
4711: l_return_status := FND_API.G_RET_STS_SUCCESS;
4712: END IF;
4713:
4714: BEGIN
4721: EXCEPTION
4722: WHEN NO_DATA_FOUND THEN
4723: l_exists := 'N';
4724: IF l_debug_level >0 THEN
4725: oe_debug_pub.add('No record in oe_payments ...in query card details');
4726: oe_debug_pub.add('Header id passed...'||p_header_id);
4727: END IF;
4728: END;
4729:
4722: WHEN NO_DATA_FOUND THEN
4723: l_exists := 'N';
4724: IF l_debug_level >0 THEN
4725: oe_debug_pub.add('No record in oe_payments ...in query card details');
4726: oe_debug_pub.add('Header id passed...'||p_header_id);
4727: END IF;
4728: END;
4729:
4730: IF l_exists = 'Y' and l_trxn_extension_id is not null then
4748: X_msg_data => l_msg_data);
4749:
4750: IF l_return_status = FND_API.G_RET_STS_ERROR OR
4751: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4752: OE_DEBUG_PUB.add('Error in get payment trxn info...');
4753: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
4754: OE_DEBUG_PUB.add('Success in get payment trxn info...');
4755: oe_debug_pub.add('Card holder name...'||p_credit_card_holder_name);
4756: END IF;
4750: IF l_return_status = FND_API.G_RET_STS_ERROR OR
4751: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4752: OE_DEBUG_PUB.add('Error in get payment trxn info...');
4753: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
4754: OE_DEBUG_PUB.add('Success in get payment trxn info...');
4755: oe_debug_pub.add('Card holder name...'||p_credit_card_holder_name);
4756: END IF;
4757:
4758: EXCEPTION
4751: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4752: OE_DEBUG_PUB.add('Error in get payment trxn info...');
4753: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
4754: OE_DEBUG_PUB.add('Success in get payment trxn info...');
4755: oe_debug_pub.add('Card holder name...'||p_credit_card_holder_name);
4756: END IF;
4757:
4758: EXCEPTION
4759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4758: EXCEPTION
4759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4760: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4761: IF l_debug_level>0 THEN
4762: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4763: oe_debug_pub.add('Return status'||l_return_status);
4764: oe_debug_pub.add('Msg data'||l_msg_data);
4765: END IF;
4766: WHEN OTHERS THEN
4759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4760: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4761: IF l_debug_level>0 THEN
4762: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4763: oe_debug_pub.add('Return status'||l_return_status);
4764: oe_debug_pub.add('Msg data'||l_msg_data);
4765: END IF;
4766: WHEN OTHERS THEN
4767: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4760: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4761: IF l_debug_level>0 THEN
4762: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4763: oe_debug_pub.add('Return status'||l_return_status);
4764: oe_debug_pub.add('Msg data'||l_msg_data);
4765: END IF;
4766: WHEN OTHERS THEN
4767: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768: IF l_debug_level>0 THEN
4765: END IF;
4766: WHEN OTHERS THEN
4767: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768: IF l_debug_level>0 THEN
4769: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4770: oe_debug_pub.add('Return status'||l_return_status);
4771: oe_debug_pub.add('Msg data'||l_msg_data);
4772: END IF;
4773: END;
4766: WHEN OTHERS THEN
4767: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768: IF l_debug_level>0 THEN
4769: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4770: oe_debug_pub.add('Return status'||l_return_status);
4771: oe_debug_pub.add('Msg data'||l_msg_data);
4772: END IF;
4773: END;
4774: ELSIF l_exists = 'Y' and l_trxn_extension_id is null then
4767: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768: IF l_debug_level>0 THEN
4769: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4770: oe_debug_pub.add('Return status'||l_return_status);
4771: oe_debug_pub.add('Msg data'||l_msg_data);
4772: END IF;
4773: END;
4774: ELSIF l_exists = 'Y' and l_trxn_extension_id is null then
4775: BEGIN
4811:
4812: EXCEPTION
4813: WHEN OTHERS THEN
4814: IF l_debug_level>0 THEN
4815: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4816: oe_debug_pub.add('Return status'||l_return_status);
4817: oe_debug_pub.add('Msg data'||l_msg_data);
4818: END IF;
4819: END Query_card_Details;
4812: EXCEPTION
4813: WHEN OTHERS THEN
4814: IF l_debug_level>0 THEN
4815: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4816: oe_debug_pub.add('Return status'||l_return_status);
4817: oe_debug_pub.add('Msg data'||l_msg_data);
4818: END IF;
4819: END Query_card_Details;
4820: --R12 CC Encryption
4813: WHEN OTHERS THEN
4814: IF l_debug_level>0 THEN
4815: oe_debug_pub.add('Exception in Query card details....'||sqlerrm);
4816: oe_debug_pub.add('Return status'||l_return_status);
4817: oe_debug_pub.add('Msg data'||l_msg_data);
4818: END IF;
4819: END Query_card_Details;
4820: --R12 CC Encryption
4821:
4850: IS
4851: l_org_id NUMBER;
4852: l_x_header_rec_oper VARCHAR2(30);
4853: l_trxn_extension_id NUMBER;
4854: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4855: l_return_status VARCHAR2(1);
4856: BEGIN
4857:
4858: if l_debug_level > 0 then
4855: l_return_status VARCHAR2(1);
4856: BEGIN
4857:
4858: if l_debug_level > 0 then
4859: oe_debug_pub.add('Entering OE_HEADER_UTIL.QUERY_ROW', 1);
4860: end if;
4861: --Commented for MOAC start
4862: /*l_org_id := OE_GLOBALS.G_ORG_ID;
4863: IF l_org_id IS NULL THEN
5257: END;
5258:
5259: IF l_trxn_extension_id is not null THEN
5260: if l_debug_level > 0 then
5261: oe_debug_pub.add('Calling query card details...');
5262: end if;
5263: Query_card_details
5264: ( p_header_id => x_header_rec.header_id,
5265: p_credit_card_code => x_header_rec.credit_card_code,
5278:
5279: -- aksingh assigning the global record, so later the cached record
5280: -- will be used instead of querying again
5281: if l_debug_level > 0 then
5282: oe_debug_pub.add('Before caching OE_HEADER_UTIL.QUERY_ROW', 1);
5283: end if;
5284:
5285: oe_order_cache.g_header_rec := x_header_rec;
5286: oe_order_cache.g_header_rec.operation := null;
5285: oe_order_cache.g_header_rec := x_header_rec;
5286: oe_order_cache.g_header_rec.operation := null;
5287:
5288: if l_debug_level > 0 then
5289: oe_debug_pub.add('Exiting OE_HEADER_UTIL.QUERY_ROW', 1);
5290: end if;
5291:
5292:
5293: EXCEPTION
5324: l_lock_control NUMBER;
5325: l_db_lock_control NUMBER;
5326: BEGIN
5327:
5328: oe_debug_pub.add('Entering OE_HEADER_UTIL.LOCK_ROW', 1);
5329:
5330: SAVEPOINT Lock_Row;
5331:
5332: l_lock_control := NULL;
5355:
5356: OE_Header_Util.Query_Row(p_header_id => l_header_id,
5357: x_header_rec => p_x_header_rec);
5358:
5359: oe_debug_pub.add('selected for update, now compare', 3);
5360:
5361:
5362: -- If lock_control is not passed(is null or missing), then return the locked record.
5363:
5389: IF OE_GLOBALS.Equal(p_x_header_rec.lock_control,
5390: l_lock_control)
5391: THEN
5392:
5393: oe_debug_pub.add('done comparison, success', 1);
5394: -- Row has not changed. Set out parameter.
5395:
5396: -- Set return status
5397:
5399: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5400:
5401: ELSE
5402:
5403: oe_debug_pub.add('row changed by other user', 1);
5404:
5405: -- Row has changed by another user.
5406:
5407: x_return_status := FND_API.G_RET_STS_ERROR;
5419: END IF;
5420:
5421: END IF;
5422:
5423: oe_debug_pub.add('Exiting OE_HEADER_UTIL.LOCK_ROW', 1);
5424:
5425: OE_GLOBALS.G_LOCK_TEST := 'N';
5426: EXCEPTION
5427:
5429:
5430: x_return_status := FND_API.G_RET_STS_ERROR;
5431: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
5432:
5433: oe_debug_pub.add('no data found in lock_header', 1);
5434:
5435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
5436: THEN
5437:
5446:
5447: x_return_status := FND_API.G_RET_STS_ERROR;
5448: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
5449:
5450: oe_debug_pub.add('record_lock in lock_header', 1);
5451:
5452: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
5453: THEN
5454:
5458: END IF;
5459: OE_GLOBALS.G_LOCK_TEST := 'N';
5460: WHEN OTHERS THEN
5461:
5462: oe_debug_pub.add('others in lock_header', 1);
5463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5464: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5465:
5466: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5487: l_msg_count NUMBER;
5488: l_msg_data VARCHAR2(2000);
5489: BEGIN
5490:
5491: oe_debug_pub.add('Entering OE_HEADER_UTIL.GET_VALUES', 1);
5492:
5493: l_header_val_rec := OE_Order_PUB.G_MISS_HEADER_VAL_REC;
5494:
5495: IF (p_header_rec.accounting_rule_id IS NULL OR
6007: );
6008:
6009: END IF;
6010:
6011: oe_debug_pub.add('Exiting OE_HEADER_UTIL.GET_VALUES', 1);
6012:
6013: RETURN l_header_val_rec;
6014:
6015: END Get_Values;
6026: l_invoice_to_org_id NUMBER;
6027: l_deliver_to_org_id NUMBER;
6028: BEGIN
6029:
6030: oe_debug_pub.add('Entering OE_HEADER_UTIL.GET_IDS', 1);
6031:
6032:
6033: IF p_header_val_rec.accounting_rule <> FND_API.G_MISS_CHAR
6034: THEN
6196: ( p_ship_method => p_header_val_rec.shipping_method
6197: );
6198:
6199: IF p_x_header_rec.shipping_method_code = FND_API.G_MISS_CHAR THEN
6200: oe_debug_pub.add('Ship Method Conversion Error');
6201: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
6202: END IF;
6203:
6204: END IF;
6685: ----------------------------------------------------------------------
6686: -- Retreiving ids for invoice_to_customer
6687: ----------------------------------------------------------------------
6688:
6689: oe_debug_pub.add('hdr Invoice_to_cust_id='||p_x_header_rec.invoice_to_customer_id);
6690: IF p_header_val_rec.invoice_to_customer_name_oi <> FND_API.G_MISS_CHAR
6691: OR p_header_val_rec.invoice_to_customer_number_oi <> FND_API.G_MISS_CHAR
6692: THEN
6693:
7050: , p_sold_to_location_country => p_header_val_rec.sold_to_location_country
7051: );
7052:
7053:
7054: oe_debug_pub.add('after hdr sold_to_site_use_id='||p_x_header_rec.sold_to_site_use_id);
7055:
7056: IF p_x_header_rec.sold_to_site_use_id = FND_API.G_MISS_NUM THEN
7057: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
7058: END IF;
7235:
7236: END IF;
7237:
7238: ELSE
7239: oe_debug_pub.add('before calling aend customer contact value to id');
7240: p_x_header_rec.end_customer_contact_id := OE_Value_To_Id.end_customer_contact
7241: ( p_end_customer_contact => p_header_val_rec.end_customer_contact
7242: ,p_end_customer_id =>p_x_header_rec.end_customer_id
7243: );
7240: p_x_header_rec.end_customer_contact_id := OE_Value_To_Id.end_customer_contact
7241: ( p_end_customer_contact => p_header_val_rec.end_customer_contact
7242: ,p_end_customer_id =>p_x_header_rec.end_customer_id
7243: );
7244: oe_debug_pub.add('End customer contact id is '||p_x_header_rec.end_customer_contact_id);
7245:
7246: IF p_x_header_rec.end_customer_contact_id = FND_API.G_MISS_NUM THEN
7247: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
7248: END IF;
7275:
7276: END IF;
7277:
7278: ELSE
7279: oe_debug_pub.add('Before calling End custoemr site use value to id');
7280: p_x_header_rec.end_customer_site_use_id := OE_Value_To_Id.end_customer_site
7281: ( p_end_customer_site_address1 => p_header_val_rec.end_customer_site_address1
7282: , p_end_customer_site_address2 => p_header_val_rec.end_customer_site_address2
7283: , p_end_customer_site_address3 => p_header_val_rec.end_customer_site_address3
7292: , p_end_customer_site_use_code => NULL
7293: );
7294:
7295:
7296: oe_debug_pub.add('after hdr sold_to_site_use_id='||p_x_header_rec.end_customer_site_use_id);
7297:
7298: IF p_x_header_rec.end_customer_site_use_id = FND_API.G_MISS_NUM THEN
7299: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
7300: END IF;
7323: p_x_header_rec.ib_owner:=OE_Value_To_Id.ib_owner
7324: ( p_ib_owner => p_header_val_rec.ib_owner_dsp
7325: );
7326:
7327: oe_Debug_pub.add('ib owner id is '||p_x_header_rec.ib_owner);
7328: IF p_x_header_rec.ib_owner = FND_API.G_MISS_CHAR THEN
7329: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
7330: END IF;
7331:
7351:
7352: p_x_header_rec.ib_installed_at_location:=OE_Value_To_Id.ib_installed_at_location
7353: ( p_ib_installed_at_location => p_header_val_rec.ib_installed_at_location_dsp
7354: );
7355: oe_Debug_pub.add('installed at location'||p_x_header_rec.ib_installed_at_location);
7356:
7357: IF p_x_header_rec.ib_installed_at_location = FND_API.G_MISS_CHAR THEN
7358: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
7359: END IF;
7394: ----------------------------------------------------------------------
7395: -- End of get IDs for customer related fields
7396: ----------------------------------------------------------------------
7397:
7398: oe_debug_pub.add('Exiting OE_HEADER_UTIL.GET_IDS', 1);
7399:
7400: END Get_Ids;
7401:
7402:
7422: x_result NUMBER;
7423:
7424: BEGIN
7425:
7426: oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Ord_Seq_Type',1);
7427:
7428: IF p_order_type_id IS NULL OR
7429: p_order_type_id = FND_API.G_MISS_NUM
7430: THEN
7464: IF x_result <> 0 THEN
7465: RAISE FND_API.G_EXC_ERROR;
7466: END IF;
7467:
7468: oe_debug_pub.add('Exiting OE_HEADER_UTIL.Get_Ord_Seq_Type',1);
7469:
7470: RETURN x_doc_sequence_type;
7471:
7472: EXCEPTION
7493: l_order_number NUMBER;
7494: l_order_type_id NUMBER := 0;
7495: BEGIN
7496:
7497: --Commenting the oe_debug_pub call to fix bug 2105266.
7498:
7499: -- oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Info',1);
7500:
7501: BEGIN
7495: BEGIN
7496:
7497: --Commenting the oe_debug_pub call to fix bug 2105266.
7498:
7499: -- oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Info',1);
7500:
7501: BEGIN
7502: SELECT order_number,order_type_id
7503: INTO l_order_number,l_order_type_id
7525: WHEN NO_DATA_FOUND THEN
7526: x_order_type := NULL;
7527: END;
7528:
7529: -- oe_debug_pub.add('Exiting OE_HEADER_UTIL.Get_Order_Info',1);
7530:
7531: END Get_Order_Info;
7532:
7533: FUNCTION Get_Header_Id (p_order_number IN NUMBER,
7573: l_order_type_id NUMBER;
7574: l_order_type VARCHAR2(240);
7575: BEGIN
7576:
7577: oe_debug_pub.add('Entering OR_HEADER_UTIL.Get_Order_Type',1);
7578:
7579: Select name
7580: into l_order_type
7581: from oe_order_types_v
7580: into l_order_type
7581: from oe_order_types_v
7582: where transaction_type_id = p_order_type_id;
7583:
7584: oe_debug_pub.add('Exiting OR_HEADER_UTIL.Get_Order_Type',1);
7585:
7586: RETURN l_order_type;
7587:
7588: EXCEPTION
7622: lcount NUMBER;
7623: x_result NUMBER;
7624:
7625: BEGIN
7626: oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Number',1);
7627: oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Number',1);
7628: -- Check if Order Number can be updated or not???? bug 4146258
7629: -- Fixed by Srini
7630: IF NOT OE_GLOBALS.EQUAL(p_x_header_rec.order_number,
7623: x_result NUMBER;
7624:
7625: BEGIN
7626: oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Number',1);
7627: oe_debug_pub.add('Entering OE_HEADER_UTIL.Get_Order_Number',1);
7628: -- Check if Order Number can be updated or not???? bug 4146258
7629: -- Fixed by Srini
7630: IF NOT OE_GLOBALS.EQUAL(p_x_header_rec.order_number,
7631: p_old_header_rec.order_number)
7641: end if;
7642: l_set_of_books_rec := OE_Order_Cache.Load_Set_Of_Books;
7643: x_Set_Of_Books_Id := l_set_of_books_rec.set_of_books_id;
7644: l_order_type_rec := OE_Order_Cache.Load_Order_Type (p_x_header_rec.order_type_id);
7645: oe_debug_pub.add('When Order Number has been changed :'||p_x_header_rec.transaction_phase_code);
7646: IF nvl(p_x_header_rec.transaction_phase_code,'F') = 'F' THEN
7647: X_Doc_Category_Code := to_char(p_x_header_rec.order_type_id);
7648: ELSIF p_x_header_rec.transaction_phase_code = 'N' THEN
7649: X_Doc_Category_Code := to_char(p_x_header_rec.order_type_id)||'-Quote';
7681: p_old_header_rec.transaction_phase_code)
7682: )
7683: THEN
7684:
7685: oe_debug_pub.ADD('Ordertype is :' || to_char(p_x_header_rec.order_type_id),3);
7686:
7687: l_set_of_books_rec := OE_Order_Cache.Load_Set_Of_Books;
7688: x_Set_Of_Books_Id := l_set_of_books_rec.set_of_books_id;
7689:
7692: THEN
7693:
7694: l_order_type_rec := OE_Order_Cache.Load_Order_Type (p_x_header_rec.order_type_id);
7695:
7696: oe_debug_pub.add('transaction phase :'||p_x_header_rec.transaction_phase_code);
7697: -- Quoting Changes
7698: IF nvl(p_x_header_rec.transaction_phase_code,'F') = 'F' THEN
7699: X_Doc_Category_Code := to_char(p_x_header_rec.order_type_id);
7700: ELSIF p_x_header_rec.transaction_phase_code = 'N' THEN
7707: -- QUOTING changes
7708: IF OE_Quote_Util.G_COMPLETE_NEG = 'Y'
7709: AND nvl(l_order_type_rec.quote_num_as_ord_num_flag,'Y') = 'Y' --added nvl for bug4474915
7710: THEN
7711: oe_debug_pub.ADD('retain document number is Yes');
7712: GOTO End_Of_Procedure;
7713: END IF;
7714:
7715: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7711: oe_debug_pub.ADD('retain document number is Yes');
7712: GOTO End_Of_Procedure;
7713: END IF;
7714:
7715: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7716: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7717: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7718: x_result := fnd_seqnum.get_seq_info(
7719: 660,
7712: GOTO End_Of_Procedure;
7713: END IF;
7714:
7715: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7716: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7717: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7718: x_result := fnd_seqnum.get_seq_info(
7719: 660,
7720: x_doc_category_code,
7713: END IF;
7714:
7715: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7716: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7717: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7718: x_result := fnd_seqnum.get_seq_info(
7719: 660,
7720: x_doc_category_code,
7721: x_set_of_books_id,
7730: X_Aud_Tbl_Name,
7731: X_Msg_Flag
7732: );
7733:
7734: oe_debug_pub.ADD('after calling get_seq_info ', 2);
7735:
7736: IF x_result <> FND_SEQNUM.SEQSUCC THEN
7737: IF x_result = FND_SEQNUM.NOTUSED THEN
7738: fnd_message.set_name('ONT','OE_MISS_DOC_SEQ');
7757: IF x_result <> 0 THEN
7758: RAISE FND_API.G_EXC_ERROR;
7759: END IF;
7760:
7761: oe_debug_pub.ADD('fndseqresult'||to_char(x_result), 2);
7762: oe_debug_pub.ADD('fndseqtype'||x_doc_sequence_value, 2);
7763:
7764: -- Quoting Changes
7765: IF nvl(p_x_header_rec.transaction_phase_code,'F') = 'F' THEN
7758: RAISE FND_API.G_EXC_ERROR;
7759: END IF;
7760:
7761: oe_debug_pub.ADD('fndseqresult'||to_char(x_result), 2);
7762: oe_debug_pub.ADD('fndseqtype'||x_doc_sequence_value, 2);
7763:
7764: -- Quoting Changes
7765: IF nvl(p_x_header_rec.transaction_phase_code,'F') = 'F' THEN
7766: p_x_header_rec.order_number := x_doc_sequence_value;
7770: END IF;
7771:
7772:
7773: ELSIF (l_doc_seq_type = 'M') THEN
7774: oe_debug_pub.add('manual sequence');
7775:
7776: -- Quoting Changes
7777: -- Fix for bug 3204076
7778: -- Raise error if manual sequence and quote/order number is
7822: RAISE FND_API.G_EXC_ERROR;
7823: END IF;
7824:
7825: -- Fix for bug# 3526149. Also see bug 3485680
7826: oe_debug_pub.add('p_old_header_rec.order_number:' || p_old_header_rec.order_number,1);
7827: oe_debug_pub.add('p_old_header_rec.transaction_phase_code:' ||
7828: p_old_header_rec.transaction_phase_code,1);
7829: IF (p_x_header_rec.order_number <> p_old_header_rec.order_number AND
7830: p_old_header_rec.order_number is not null AND
7823: END IF;
7824:
7825: -- Fix for bug# 3526149. Also see bug 3485680
7826: oe_debug_pub.add('p_old_header_rec.order_number:' || p_old_header_rec.order_number,1);
7827: oe_debug_pub.add('p_old_header_rec.transaction_phase_code:' ||
7828: p_old_header_rec.transaction_phase_code,1);
7829: IF (p_x_header_rec.order_number <> p_old_header_rec.order_number AND
7830: p_old_header_rec.order_number is not null AND
7831: p_old_header_rec.order_number <> FND_API.G_MISS_NUM) AND
7829: IF (p_x_header_rec.order_number <> p_old_header_rec.order_number AND
7830: p_old_header_rec.order_number is not null AND
7831: p_old_header_rec.order_number <> FND_API.G_MISS_NUM) AND
7832: OE_Quote_Util.G_COMPLETE_NEG = 'N' THEN
7833: oe_debug_pub.add('Ord_Num Changed, Calling Set_Header_User_Key and WF_ENGINE.SetItemUserKey',1);
7834: OE_Order_WF_Util.Set_Header_User_Key(p_x_header_rec);
7835: WF_ENGINE.SetItemUserKey(OE_Globals.G_WFI_HDR, to_char(p_x_header_rec.header_id),
7836: substrb(fnd_message.get, 1, 240));
7837:
7857: RAISE FND_API.G_EXC_ERROR;
7858: END IF;
7859:
7860: -- Fix for bug# 3526149. Also see bug 3485680
7861: oe_debug_pub.add('p_old_header_rec.quote_number:' || p_old_header_rec.quote_number,1);
7862: IF (p_x_header_rec.quote_number <> p_old_header_rec.quote_number AND
7863: p_old_header_rec.quote_number is not null AND
7864: p_old_header_rec.quote_number <> FND_API.G_MISS_NUM) THEN
7865: oe_debug_pub.add('Calling OE_Order_WF_Util.Set_Negotiate_Hdr_User_Key for HeaderID:'
7861: oe_debug_pub.add('p_old_header_rec.quote_number:' || p_old_header_rec.quote_number,1);
7862: IF (p_x_header_rec.quote_number <> p_old_header_rec.quote_number AND
7863: p_old_header_rec.quote_number is not null AND
7864: p_old_header_rec.quote_number <> FND_API.G_MISS_NUM) THEN
7865: oe_debug_pub.add('Calling OE_Order_WF_Util.Set_Negotiate_Hdr_User_Key for HeaderID:'
7866: || to_char(p_x_header_rec.header_id), 1);
7867: OE_Order_WF_Util.Set_Negotiate_Hdr_User_Key
7868: (p_header_id => p_x_header_rec.header_id
7869: ,p_sales_document_type_code => 'O'
7879: END IF; -- Global equal
7880:
7881: <
7882:
7883: oe_debug_pub.add('Exiting OR_HEADER_UTIL.Get_Order_Number',1);
7884:
7885: EXCEPTION
7886: WHEN FND_API.G_EXC_ERROR THEN
7887: oe_debug_pub.ADD('Get Order Number-Exp exception ', 1);
7883: oe_debug_pub.add('Exiting OR_HEADER_UTIL.Get_Order_Number',1);
7884:
7885: EXCEPTION
7886: WHEN FND_API.G_EXC_ERROR THEN
7887: oe_debug_pub.ADD('Get Order Number-Exp exception ', 1);
7888: RAISE FND_API.G_EXC_ERROR;
7889:
7890:
7891: WHEN OTHERS THEN
7888: RAISE FND_API.G_EXC_ERROR;
7889:
7890:
7891: WHEN OTHERS THEN
7892: oe_debug_pub.ADD('Get Order Number-exception ', 1);
7893:
7894:
7895: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7896: THEN
7910: IS
7911: l_order_type_id NUMBER;
7912: l_order_type VARCHAR2(240);
7913: --
7914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7915: --
7916: BEGIN
7917: IF l_debug_level > 0 THEN
7918: oe_debug_pub.add('Entering OR_HEADER_UTIL.Get_Base_Order_Type ' || p_order_type_id,1);
7914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7915: --
7916: BEGIN
7917: IF l_debug_level > 0 THEN
7918: oe_debug_pub.add('Entering OR_HEADER_UTIL.Get_Base_Order_Type ' || p_order_type_id,1);
7919: END IF;
7920:
7921: SELECT NAME
7922: INTO l_order_type
7926: from fnd_languages
7927: where installed_flag = 'B');
7928:
7929: IF l_debug_level > 0 THEN
7930: oe_debug_pub.add('Exiting OR_HEADER_UTIL.Get_Base_Order_Type ' || l_order_type,1);
7931: END IF;
7932:
7933: RETURN l_order_type;
7934:
7990: -- R12 CC encryption
7991: l_changed_attribute VARCHAR2(200);
7992: l_modified_from VARCHAR2(30);
7993: --
7994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7995: --
7996: l_attr_attach_change boolean := FALSE; --6896311
7997: BEGIN
7998: oe_debug_pub.add('Entering OR_HEADER_UTIL.Pre_Write_Process',1);
7994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7995: --
7996: l_attr_attach_change boolean := FALSE; --6896311
7997: BEGIN
7998: oe_debug_pub.add('Entering OR_HEADER_UTIL.Pre_Write_Process',1);
7999:
8000: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8001: -- Setting the global for IR ISO Tracking bug 7667702
8002:
8004:
8005: IF (p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) THEN
8006:
8007: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
8008: OE_DEBUG_PUB.add('OEXUHDRB: Audit check requires reason', 5);
8009:
8010: IF (p_x_header_rec.change_reason IS NULL
8011: OR p_x_header_rec.change_reason = FND_API.G_MISS_CHAR
8012: OR NOT OE_Validate.Change_Reason_Code(p_x_header_rec.change_reason)) then
8016: OE_Versioning_Util.Get_Reason_Info(l_reason_code, l_reason_comments);
8017: IF l_reason_code IS NULL THEN
8018: -- bug 3636884, defaulting reason from group API
8019: IF OE_GLOBALS.G_DEFAULT_REASON THEN
8020: oe_debug_pub.add('Defaulting Audit Reason for Order Header', 1);
8021: p_x_header_rec.change_reason := 'SYSTEM';
8022: ELSE
8023: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
8024: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
8019: IF OE_GLOBALS.G_DEFAULT_REASON THEN
8020: oe_debug_pub.add('Defaulting Audit Reason for Order Header', 1);
8021: p_x_header_rec.change_reason := 'SYSTEM';
8022: ELSE
8023: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
8024: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
8025: fnd_message.set_token('OBJECT','ORDER');
8026: oe_msg_pub.add;
8027: RAISE FND_API.G_EXC_ERROR;
8028: END IF;
8029: END IF;
8030: END IF;
8031: ELSE
8032: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
8033: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
8034: fnd_message.set_token('OBJECT','ORDER');
8035: oe_msg_pub.add;
8036: RAISE FND_API.G_EXC_ERROR;
8076: IF (p_x_header_rec.cancelled_flag = 'Y') then
8077:
8078: /* Fix Bug # 3241831: Set Global before Order Cancellation Starts */
8079: IF OE_GLOBALS.G_UI_FLAG = FALSE THEN
8080: oe_debug_pub.add('SET G_ORD_LVL_CAN TO TRUE FOR NON UI ORDER CANCEL');
8081: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can := TRUE;
8082: END IF;
8083:
8084: /* 7576948: IR ISO Change Management project Start */
8167:
8168: IF (p_x_header_rec.order_source_id = 10) THEN
8169: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := TRUE;
8170: IF l_debug_level > 0 THEN
8171: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to TRUE',5);
8172: END IF;
8173: END IF;
8174: -- Setting this global to TRUE confirming it to be
8175: -- Order header level full cancellation
8180:
8181: IF (p_x_header_rec.order_source_id = 10) THEN
8182: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8183: IF l_debug_level > 0 THEN
8184: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to FALSE',5);
8185: END IF;
8186: END IF;
8187: -- Resetting the global to FALSE
8188:
8197: ELSE -- If return status is SUCCESS
8198: IF (p_x_header_rec.order_source_id = 10) THEN
8199: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req THEN
8200: IF l_debug_level > 0 THEN
8201: oe_debug_pub.add(' Header level cancellation. Log the IR ISO update delayed request',5);
8202: END IF;
8203:
8204: OE_delayed_requests_Pvt.log_request
8205: ( p_entity_code => OE_GLOBALS.G_ENTITY_HEADER
8262:
8263: -- Valid shipping method.
8264:
8265: IF l_debug_level > 0 THEN
8266: oe_debug_pub.add('l_count : ' || l_count);
8267: oe_debug_pub.add('shipping_method_code : ' || p_x_header_rec.shipping_method_code);
8268: END IF;
8269:
8270: IF l_count = 0 THEN
8263: -- Valid shipping method.
8264:
8265: IF l_debug_level > 0 THEN
8266: oe_debug_pub.add('l_count : ' || l_count);
8267: oe_debug_pub.add('shipping_method_code : ' || p_x_header_rec.shipping_method_code);
8268: END IF;
8269:
8270: IF l_count = 0 THEN
8271:
8277: and list_line_type_code = 'TSN'
8278: and modified_to = p_x_header_rec.shipping_method_code;
8279: IF v_count > 0 THEN
8280: IF l_debug_level > 0 THEN
8281: oe_debug_pub.add('Deleting the header tsn adjustments');
8282: END IF;
8283: DELETE FROM OE_PRICE_ADJUSTMENTS
8284: WHERE HEADER_ID = p_x_header_rec.header_id
8285: AND LIST_LINE_TYPE_CODE = 'TSN'
8324: OE_Order_Util.Get_Attribute_Name('shipping_method_code') || ' ' || l_meaning);
8325: OE_MSG_PUB.Add;
8326: OE_MSG_PUB.Update_Msg_Context(p_attribute_code => null);
8327:
8328: oe_debug_pub.add('Value of shipping Method:'
8329: ||p_x_header_rec.shipping_method_code,2);
8330:
8331: --bug 4190357
8332: for i in line_ids(p_x_header_rec.header_id) loop
8391: p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) AND --5893276
8392: 6896311*/
8393: IF (p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE ) AND --6896311
8394: l_apply_automatic_atchmt = 'Y' THEN
8395: oe_debug_pub.add('log request to apply atcmt');
8396: OE_DELAYED_REQUESTS_PVT.Log_Request
8397: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8398: p_entity_id => p_x_header_rec.header_id,
8399: p_request_type => OE_GLOBALS.G_APPLY_AUTOMATIC_ATCHMT,
8406: --6896311
8407: IF (p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE ) AND
8408: l_apply_automatic_atchmt = 'Y'
8409: THEN
8410: oe_debug_pub.add('log request to update atcmt');
8411:
8412: IF NOT OE_GLOBALS.Equal(p_x_header_rec.CUST_PO_NUMBER
8413: ,p_old_header_rec.CUST_PO_NUMBER)
8414: OR NOT OE_GLOBALS.Equal(p_x_header_rec.INVOICE_TO_ORG_ID
8455: -- 3817802 : New api Get_Base_Order_Type is used to get order type based on base lang
8456: l_new_order_type := Get_Base_Order_Type(p_x_header_rec.order_type_id);
8457: l_order_type := Get_Base_Order_Type(p_old_header_rec.order_type_id);
8458: IF l_debug_level > 0 THEN
8459: oe_debug_pub.add('l_source_code ' || l_source_code,2);
8460: oe_debug_pub.add('l_new_order_type ' || l_new_order_type,2);
8461: oe_debug_pub.add('l_order_type ' || l_order_type,2);
8462: END IF;
8463: l_return_value :=
8456: l_new_order_type := Get_Base_Order_Type(p_x_header_rec.order_type_id);
8457: l_order_type := Get_Base_Order_Type(p_old_header_rec.order_type_id);
8458: IF l_debug_level > 0 THEN
8459: oe_debug_pub.add('l_source_code ' || l_source_code,2);
8460: oe_debug_pub.add('l_new_order_type ' || l_new_order_type,2);
8461: oe_debug_pub.add('l_order_type ' || l_order_type,2);
8462: END IF;
8463: l_return_value :=
8464: inv_salesorder.synch_salesorders_with_om(
8457: l_order_type := Get_Base_Order_Type(p_old_header_rec.order_type_id);
8458: IF l_debug_level > 0 THEN
8459: oe_debug_pub.add('l_source_code ' || l_source_code,2);
8460: oe_debug_pub.add('l_new_order_type ' || l_new_order_type,2);
8461: oe_debug_pub.add('l_order_type ' || l_order_type,2);
8462: END IF;
8463: l_return_value :=
8464: inv_salesorder.synch_salesorders_with_om(
8465: p_original_order_number =>
8470: to_char(p_x_header_rec.order_number),
8471: p_new_order_type => l_new_order_type,
8472: p_new_order_source => l_source_code,
8473: p_multiple_rows => 'N');
8474: oe_debug_pub.add(' Return Value ' || l_return_value,1);
8475: END IF;
8476:
8477: END IF;
8478: --included for the create internal requisition Spares Management (Ikon) project mshenoy
8481: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
8482: p_x_header_rec.Source_Document_Type_id = 10 AND
8483: p_x_header_rec.Source_Document_id is null AND
8484: p_x_header_rec.Orig_sys_document_ref is null THEN
8485: oe_debug_pub.add('log request to create internal Req for ISO');
8486: OE_delayed_requests_Pvt.Log_Request
8487: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8488: p_entity_id => p_x_header_rec.header_id,
8489: p_request_type => OE_GLOBALS.G_CREATE_INTERNAL_REQ,
8489: p_request_type => OE_GLOBALS.G_CREATE_INTERNAL_REQ,
8490: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8491: p_requesting_entity_id => p_x_header_rec.header_id,
8492: x_return_status => l_return_status );
8493: oe_debug_pub.add(' Return Status log_request Delayed Requests for Int req ' || l_return_status);
8494:
8495: END IF;
8496:
8497: -- Fix for bug1167537
8552: THEN
8553: l_changed_attribute := l_changed_attribute||',' ||'CREDIT_CARD_EXPIRATION_DATE';
8554:
8555: END IF;
8556: oe_debug_pub.add('changed attr is: '||l_changed_attribute, 3);
8557: END IF;
8558:
8559: -- Bug 1755817: clear the cached constraint results for header entity
8560: -- when order header is updated.
8570: OE_GLOBALS.G_REASON_CODE := p_x_header_rec.change_reason;
8571: OE_GLOBALS.G_REASON_COMMENTS := p_x_header_rec.change_comments;
8572: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
8573: ELSE
8574: OE_DEBUG_PUB.add('Reason code for versioning is missing', 1);
8575: if OE_GLOBALS.G_UI_FLAG THEN
8576: raise FND_API.G_EXC_ERROR;
8577: end if;
8578: END IF;
8578: END IF;
8579: END IF;
8580:
8581: --log delayed request
8582: oe_debug_pub.add('log versioning request',1);
8583: OE_Delayed_Requests_Pvt.Log_Request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8584: p_entity_id => p_x_header_rec.header_id,
8585: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8586: p_requesting_entity_id => p_x_header_rec.header_id,
8590: END IF;
8591:
8592: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' OR
8593: OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG = 'Y' THEN
8594: OE_DEBUG_PUB.add('Call oe_order_chg_pvt to record Header Audit History',5);
8595:
8596: --11.5.10 Versioning/Audit Trail updates
8597: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8598: OE_Versioning_Util.Capture_Audit_Info(p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8619: x_return_status => l_return_status
8620: );
8621:
8622: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8623: oe_debug_pub.add('Inserting Header History Caused Error ',1);
8624: if l_return_status = FND_API.G_RET_STS_ERROR then
8625: raise FND_API.G_EXC_ERROR;
8626: else
8627: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8664: Blkt_Req_For_Curr_Upd_And_Del(p_x_header_rec,p_old_header_rec);
8665: END IF;
8666:
8667:
8668: oe_debug_pub.add('Exiting OR_HEADER_UTIL.Pre_Write_Process',1);
8669:
8670: EXCEPTION
8671: -- included to fix bug 1589196 Begin
8672: WHEN FND_API.G_EXC_ERROR THEN
8715: l_payment_exists VARCHAR2(1) := 'N';
8716: l_payment_number NUMBER;
8717: l_old_payment_type_code VARCHAR2(30) := NULL;
8718: --R12 CC Encryption
8719: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8720: --bug 5258767
8721: l_payment_term_id NUMBER;
8722: l_prepayment_flag VARCHAR2(1) := NULL;
8723: l_prepay_count NUMBER := 0;
8730: L_DOWNPAYMENT number;
8731: l_line_payment_count NUMBER;
8732: --bug 5258767
8733: BEGIN
8734: oe_debug_pub.add('Entering OE_HEADER_UTIL.Post_Write_Process',1);
8735:
8736: -- Added call to new procedure eval_post_write_header for performance
8737: -- and to be consistent with evalualte_post_write for lines.
8738: -- See bug#1777317
8771: -- and to be consistent with evalualte_post_write for lines.
8772: -- See bug#1777317
8773:
8774: /*ER#7479609
8775: oe_debug_pub.add('Before calling eval_post_write_header in HEADER Post Write',1);
8776:
8777: OE_HOLDS_PUB.eval_post_write_header
8778: ( p_entity_code => OE_GLOBALS.G_ENTITY_HEADER
8779: ,p_entity_id => p_x_header_rec.header_id
8790: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8791: RAISE FND_API.G_EXC_ERROR;
8792: END IF;
8793:
8794: oe_debug_pub.add('After calling eval_post_write_header in HEADER Post Write',1);
8795: ER#7479609*/
8796:
8797: --ER#7479609 start
8798: if l_debug_level > 0 then
8795: ER#7479609*/
8796:
8797: --ER#7479609 start
8798: if l_debug_level > 0 then
8799: oe_debug_pub.add('Call evaluate_holds_post_write for CREATE');
8800: end if;
8801: OE_Holds_PUB.evaluate_holds_post_write
8802: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER
8803: ,p_entity_id => p_x_header_rec.header_id
8812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8813: END IF;
8814:
8815: if l_debug_level > 0 then
8816: oe_debug_pub.add('After evaluate_holds_post_write in Header Post Write');
8817: end if;
8818: --ER#7479609 end
8819:
8820: -- Create record in the MTL_SALES_ORDERS table
8818: --ER#7479609 end
8819:
8820: -- Create record in the MTL_SALES_ORDERS table
8821:
8822: oe_debug_pub.add('Before calling OE_SCHEDULE_UTIL',3);
8823: OE_SCHEDULE_UTIL.Insert_into_mtl_sales_orders(p_x_header_rec);
8824:
8825: -- Create and Start the Header level Workflow
8826:
8844: -- were updates due to synchronous activities like booking in
8845: -- the header flow. If yes, refresh the header record
8846:
8847: OE_Order_Cache.Load_Order_Header(p_x_header_rec.header_id);
8848: oe_debug_pub.add('DB lock control :'||
8849: OE_Order_Cache.g_header_rec.lock_control);
8850:
8851: IF OE_Order_Cache.g_header_rec.lock_control
8852: <> p_x_header_rec.lock_control
8893: 'RETRY','CANCEL');
8894:
8895: -- OE_GLOBALS.G_RECURSION_MODE := l_recursion_mode;
8896: -- BUG 2013611 - Increment promotional balance in response to cancellation
8897: oe_debug_pub.add('log request to Reverse_Limits for CANCEL in HEADER Post Write',1);
8898: OE_delayed_requests_Pvt.log_request(
8899: p_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8900: p_entity_id => p_x_header_rec.header_id,
8901: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_HEADER,
8908: p_param5 => NULL,
8909: p_param6 => NULL,
8910: p_request_type => OE_GLOBALS.G_REVERSE_LIMITS,
8911: x_return_status => l_return_status);
8912: oe_debug_pub.add('Request to Reverse_Limits in HEADER Post Write is done',1);
8913: -- BUG 2013611 End
8914: EXCEPTION
8915: WHEN OTHERS THEN
8916: -- OE_GLOBALS.G_RECURSION_MODE := l_recursion_mode;
9065: );
9066:
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9068: if l_debug_level > 0 then
9069: oe_debug_pub.ADD('OE_Header_Util.Post_Write unexp error in instantiate doc terms',1);
9070: end if;
9071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9073: if l_debug_level > 0 then
9070: end if;
9071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9073: if l_debug_level > 0 then
9074: oe_debug_pub.ADD('OE_Header_Util.Post_Write exp error in instantiate doc terms',1);
9075: end if;
9076: RAISE FND_API.G_EXC_ERROR;
9077: END IF;
9078:
9076: RAISE FND_API.G_EXC_ERROR;
9077: END IF;
9078:
9079: END IF;
9080: oe_debug_pub.add('Post Write Process R12 CCE changes...'||p_x_header_rec.header_id);
9081: oe_debug_pub.add('Old header id'||p_old_header_rec.header_id);
9082: oe_debug_pub.add('payment type'||p_x_header_rec.payment_type_code);
9083: oe_debug_pub.add('card number'||p_x_header_rec.credit_Card_number);
9084: --If Bill to site is changed, then the payment record would
9077: END IF;
9078:
9079: END IF;
9080: oe_debug_pub.add('Post Write Process R12 CCE changes...'||p_x_header_rec.header_id);
9081: oe_debug_pub.add('Old header id'||p_old_header_rec.header_id);
9082: oe_debug_pub.add('payment type'||p_x_header_rec.payment_type_code);
9083: oe_debug_pub.add('card number'||p_x_header_rec.credit_Card_number);
9084: --If Bill to site is changed, then the payment record would
9085: --be deleted through the delayed request. So not calling
9078:
9079: END IF;
9080: oe_debug_pub.add('Post Write Process R12 CCE changes...'||p_x_header_rec.header_id);
9081: oe_debug_pub.add('Old header id'||p_old_header_rec.header_id);
9082: oe_debug_pub.add('payment type'||p_x_header_rec.payment_type_code);
9083: oe_debug_pub.add('card number'||p_x_header_rec.credit_Card_number);
9084: --If Bill to site is changed, then the payment record would
9085: --be deleted through the delayed request. So not calling
9086: --the process order if bill to site has changed.
9079: END IF;
9080: oe_debug_pub.add('Post Write Process R12 CCE changes...'||p_x_header_rec.header_id);
9081: oe_debug_pub.add('Old header id'||p_old_header_rec.header_id);
9082: oe_debug_pub.add('payment type'||p_x_header_rec.payment_type_code);
9083: oe_debug_pub.add('card number'||p_x_header_rec.credit_Card_number);
9084: --If Bill to site is changed, then the payment record would
9085: --be deleted through the delayed request. So not calling
9086: --the process order if bill to site has changed.
9087: --bug 4885313
9090: --If the user has modified the bill to site and has entered a new
9091: --credit card before saving the record, then the global flag need
9092: --to be set to Y so that the current trxn extension id would be
9093: --deleted and a new one created (as the context has changed).
9094: oe_debug_pub.add('Old invoice to'||p_x_header_rec.invoice_to_org_id);
9095: oe_debug_pub.add('New invoice to'||p_old_header_rec.invoice_to_org_id);
9096: IF NOT OE_GLOBALS.Equal(p_old_header_rec.invoice_to_org_id,FND_API.G_MISS_NUM)
9097: AND p_old_header_rec.invoice_to_org_id IS NOT NULL AND
9098: p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
9091: --credit card before saving the record, then the global flag need
9092: --to be set to Y so that the current trxn extension id would be
9093: --deleted and a new one created (as the context has changed).
9094: oe_debug_pub.add('Old invoice to'||p_x_header_rec.invoice_to_org_id);
9095: oe_debug_pub.add('New invoice to'||p_old_header_rec.invoice_to_org_id);
9096: IF NOT OE_GLOBALS.Equal(p_old_header_rec.invoice_to_org_id,FND_API.G_MISS_NUM)
9097: AND p_old_header_rec.invoice_to_org_id IS NOT NULL AND
9098: p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
9099: OE_Payment_Trxn_Util.g_old_bill_to_site := p_old_header_rec.invoice_to_org_id;
9097: AND p_old_header_rec.invoice_to_org_id IS NOT NULL AND
9098: p_x_header_rec.payment_type_code = 'CREDIT_CARD' THEN
9099: OE_Payment_Trxn_Util.g_old_bill_to_site := p_old_header_rec.invoice_to_org_id;
9100: END IF;
9101: oe_debug_pub.add('Bill to site changed in post_write_process'||OE_Payment_Trxn_Util.g_old_bill_to_site);
9102: END IF;
9103:
9104: oe_debug_pub.add('Operatoin in post write...in header rec..'||p_x_header_rec.operation);
9105:
9100: END IF;
9101: oe_debug_pub.add('Bill to site changed in post_write_process'||OE_Payment_Trxn_Util.g_old_bill_to_site);
9102: END IF;
9103:
9104: oe_debug_pub.add('Operatoin in post write...in header rec..'||p_x_header_rec.operation);
9105:
9106: --R12 CC Encryption
9107: --As ACH and Direct Debit are not supported in Order Header Others tab
9108: --only Credit card payment type code is checked here.
9173: l_x_Header_Payment_tbl(1).CC_INSTRUMENT_ASSIGNMENT_ID := p_x_header_rec.CC_INSTRUMENT_ASSIGNMENT_ID;
9174: l_x_Header_Payment_tbl(1).instrument_security_code := p_x_header_rec.instrument_security_code;
9175: l_x_Header_Payment_tbl(1).payment_number := l_payment_number;
9176: l_x_Header_Payment_tbl(1).check_number := p_x_header_rec.check_number;
9177: oe_debug_pub.add('Old payment type'||l_old_payment_type_code);
9178: oe_debug_pub.add('New payment type'||p_x_header_rec.payment_type_code);
9179: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9180: /*IF NOT OE_GLOBALS.Equal(l_old_payment_type_code,p_x_header_rec.payment_type_code) THEN
9181: oe_debug_pub.add('ksurendr: Receipt method id in uhdrb post write'||l_x_Header_Payment_tbl(1).receipt_method_id);
9174: l_x_Header_Payment_tbl(1).instrument_security_code := p_x_header_rec.instrument_security_code;
9175: l_x_Header_Payment_tbl(1).payment_number := l_payment_number;
9176: l_x_Header_Payment_tbl(1).check_number := p_x_header_rec.check_number;
9177: oe_debug_pub.add('Old payment type'||l_old_payment_type_code);
9178: oe_debug_pub.add('New payment type'||p_x_header_rec.payment_type_code);
9179: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9180: /*IF NOT OE_GLOBALS.Equal(l_old_payment_type_code,p_x_header_rec.payment_type_code) THEN
9181: oe_debug_pub.add('ksurendr: Receipt method id in uhdrb post write'||l_x_Header_Payment_tbl(1).receipt_method_id);
9182: l_x_Header_Payment_tbl(1).receipt_method_id := FND_API.G_MISS_NUM;
9175: l_x_Header_Payment_tbl(1).payment_number := l_payment_number;
9176: l_x_Header_Payment_tbl(1).check_number := p_x_header_rec.check_number;
9177: oe_debug_pub.add('Old payment type'||l_old_payment_type_code);
9178: oe_debug_pub.add('New payment type'||p_x_header_rec.payment_type_code);
9179: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9180: /*IF NOT OE_GLOBALS.Equal(l_old_payment_type_code,p_x_header_rec.payment_type_code) THEN
9181: oe_debug_pub.add('ksurendr: Receipt method id in uhdrb post write'||l_x_Header_Payment_tbl(1).receipt_method_id);
9182: l_x_Header_Payment_tbl(1).receipt_method_id := FND_API.G_MISS_NUM;
9183: END IF;*/
9177: oe_debug_pub.add('Old payment type'||l_old_payment_type_code);
9178: oe_debug_pub.add('New payment type'||p_x_header_rec.payment_type_code);
9179: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9180: /*IF NOT OE_GLOBALS.Equal(l_old_payment_type_code,p_x_header_rec.payment_type_code) THEN
9181: oe_debug_pub.add('ksurendr: Receipt method id in uhdrb post write'||l_x_Header_Payment_tbl(1).receipt_method_id);
9182: l_x_Header_Payment_tbl(1).receipt_method_id := FND_API.G_MISS_NUM;
9183: END IF;*/
9184:
9185: --Verify
9223: WHEN NO_DATA_FOUND THEN
9224: l_payment_term_id := NULL;
9225: END;
9226: IF l_debug_level > 0 THEN
9227: oe_debug_pub.add('OEXUHDRB post write: term id : ' || l_payment_term_id);
9228: END IF;
9229:
9230: if l_payment_term_id is not null then
9231: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(l_payment_term_id);
9229:
9230: if l_payment_term_id is not null then
9231: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(l_payment_term_id);
9232: IF l_debug_level > 0 THEN
9233: oe_debug_pub.add('prepayment_flag is : ' || l_prepayment_flag );
9234: END IF;
9235: end if;
9236:
9237: IF nvl(l_prepayment_flag,'N') = 'Y' THEN
9249: l_prepay_count := 0;
9250: END;
9251:
9252: IF l_debug_level > 0 THEN
9253: oe_debug_pub.add('OEXUHDRB post write: prepayment count...'||l_prepay_count);
9254: END IF;
9255:
9256: --Since prepayments should not be allowed when there are line
9257: --payments, checking the line payments count before calling the
9267: l_line_payment_count := 0;
9268: END;
9269:
9270: IF l_debug_level > 0 THEN
9271: oe_debug_pub.add('OEXUHDRB post write: line payment count...'||l_line_payment_count);
9272: END IF;
9273:
9274: --If prepayment count is zero, then need to insert an
9275: --additional prepayment record in Oe_Payments as the payment
9275: --additional prepayment record in Oe_Payments as the payment
9276: --term used has the prepayment check box checked
9277: IF nvl(l_prepay_count,0) = 0 and nvl(l_line_payment_count,0) = 0 THEN
9278: IF l_debug_level > 0 THEN
9279: oe_debug_pub.add('OEXUHDRB: Inside prepayment record insertion....'||l_prepay_count);
9280: oe_debug_pub.add('Payment number value...'||l_payment_number);
9281: oe_debug_pub.add('Header id ----> '||p_x_header_rec.header_id);
9282: END IF;
9283:
9276: --term used has the prepayment check box checked
9277: IF nvl(l_prepay_count,0) = 0 and nvl(l_line_payment_count,0) = 0 THEN
9278: IF l_debug_level > 0 THEN
9279: oe_debug_pub.add('OEXUHDRB: Inside prepayment record insertion....'||l_prepay_count);
9280: oe_debug_pub.add('Payment number value...'||l_payment_number);
9281: oe_debug_pub.add('Header id ----> '||p_x_header_rec.header_id);
9282: END IF;
9283:
9284: l_x_Header_Payment_tbl(2):=OE_ORDER_PUB.G_MISS_HEADER_PAYMENT_REC;
9277: IF nvl(l_prepay_count,0) = 0 and nvl(l_line_payment_count,0) = 0 THEN
9278: IF l_debug_level > 0 THEN
9279: oe_debug_pub.add('OEXUHDRB: Inside prepayment record insertion....'||l_prepay_count);
9280: oe_debug_pub.add('Payment number value...'||l_payment_number);
9281: oe_debug_pub.add('Header id ----> '||p_x_header_rec.header_id);
9282: END IF;
9283:
9284: l_x_Header_Payment_tbl(2):=OE_ORDER_PUB.G_MISS_HEADER_PAYMENT_REC;
9285: l_x_old_Header_Payment_Tbl(2):=OE_ORDER_PUB.G_MISS_HEADER_PAYMENT_REC;
9319:
9320: l_x_Header_Payment_tbl(2).payment_amount := l_downpayment;
9321:
9322: IF l_debug_level > 0 THEN
9323: oe_debug_pub.add('Inside prepayment type'||l_old_payment_type_code);
9324: oe_debug_pub.add('New prepayment type'||p_x_header_rec.payment_type_code);
9325: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9326: END IF;
9327: l_x_Header_Payment_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
9320: l_x_Header_Payment_tbl(2).payment_amount := l_downpayment;
9321:
9322: IF l_debug_level > 0 THEN
9323: oe_debug_pub.add('Inside prepayment type'||l_old_payment_type_code);
9324: oe_debug_pub.add('New prepayment type'||p_x_header_rec.payment_type_code);
9325: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9326: END IF;
9327: l_x_Header_Payment_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
9328: END IF;
9321:
9322: IF l_debug_level > 0 THEN
9323: oe_debug_pub.add('Inside prepayment type'||l_old_payment_type_code);
9324: oe_debug_pub.add('New prepayment type'||p_x_header_rec.payment_type_code);
9325: oe_debug_pub.add('Header_id'||p_x_header_rec.header_id);
9326: END IF;
9327: l_x_Header_Payment_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
9328: END IF;
9329: END IF;
9329: END IF;
9330: END IF;
9331: --bug 5258767
9332: END IF;
9333: oe_debug_pub.add('Operation to be performed....frm post write proces...'||l_x_Header_Payment_tbl(1).operation);
9334:
9335: OE_Order_PVT.Header_Payments
9336: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
9337: , p_init_msg_list => FND_API.G_FALSE
9344: RAISE FND_API.G_EXC_ERROR;
9345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9347: ELSIF l_return_Status = FND_API.G_RET_STS_SUCCESS THEN
9348: oe_debug_pub.add('Success in Header Payments call...');
9349: END IF;
9350: END IF;
9351: --R12 CC Encryption
9352: oe_debug_pub.add('Exiting OE_HEADER_UTIL.Post_Write_Process',1);
9348: oe_debug_pub.add('Success in Header Payments call...');
9349: END IF;
9350: END IF;
9351: --R12 CC Encryption
9352: oe_debug_pub.add('Exiting OE_HEADER_UTIL.Post_Write_Process',1);
9353: EXCEPTION
9354: WHEN FND_API.G_EXC_ERROR THEN
9355: RAISE FND_API.G_EXC_ERROR;
9356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9381: l_transaction_phase_code VARCHAR2(1)
9382: := oe_header_security.g_record.transaction_phase_code;
9383: BEGIN
9384:
9385: oe_debug_pub.add('Entering OR_HEADER_UTIL.Validate_Gapless_Seq',1);
9386:
9387: select order_type_id into
9388: l_order_type_id
9389: from oe_order_headers_all
9517: x_return_status OUT NOCOPY varchar2
9518: )
9519: IS
9520: l_total_quantity NUMBER;
9521: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9522:
9523: BEGIN
9524:
9525: SELECT sum(ordered_quantity) into l_total_quantity from
9535: x_return_status := FND_API.G_RET_STS_ERROR;
9536:
9537: WHEN OTHERS THEN
9538: IF l_debug_level > 0 THEN
9539: oe_debug_pub.add( 'UNEXPECTED ERROR IN ' || G_PKG_NAME || ':' || 'PERFORM_LINE_CANCEL' ) ;
9540: x_return_status := FND_API.G_RET_STS_ERROR;
9541: END IF;
9542: END;
9543: