[Home] [Help]
188: ---------------------------------------------------------------------
189: FUNCTION get_event_security_context
190: ( p_org_id IN NUMBER,
191: p_calling_sequence IN VARCHAR2
192: ) RETURN XLA_EVENTS_PUB_PKG.T_SECURITY;
193:
194: ---------------------------------------------------------------------
195: --Definition of get_invoice_event_source_info function (private)
196: ---------------------------------------------------------------------
198: ( p_legal_entity_id IN NUMBER,
199: p_ledger_id IN NUMBER,
200: p_invoice_id IN NUMBER,
201: p_calling_sequence IN VARCHAR2
202: ) RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
203:
204: ---------------------------------------------------------------------
205: --Definition of get_payment_event_source_info function (private)
206: ---------------------------------------------------------------------
208: ( p_legal_entity_id IN NUMBER,
209: p_ledger_id IN NUMBER,
210: p_check_id IN NUMBER,
211: p_calling_sequence IN VARCHAR2
212: ) RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
213:
214: ---------------------------------------------------------------------
215: --Definition of get_invoice_info procedure (private)
216: ---------------------------------------------------------------------
277: l_event_status VARCHAR2(1);
278: l_legal_entity_id NUMBER(15);
279: l_ledger_id NUMBER(15);
280: l_org_id NUMBER(15);
281: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
282: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
283: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
284:
285: BEGIN
278: l_legal_entity_id NUMBER(15);
279: l_ledger_id NUMBER(15);
280: l_org_id NUMBER(15);
281: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
282: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
283: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
284:
285: BEGIN
286:
319: p_calling_sequence => l_curr_calling_sequence
320: );
321:
322:
323: AP_XLA_EVENTS_PKG.delete_event
324: ( p_event_source_info => l_event_source_info,
325: p_event_id => p_accounting_event_id,
326: p_valuation_method => NULL,
327: p_security_context => l_event_security_context,
1042:
1043: l_legal_entity_id NUMBER(15);
1044: l_ledger_id NUMBER(15);
1045: l_org_id NUMBER(15);
1046: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1047: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1048: l_prepay_app_event_id NUMBER;
1049: l_inv_adj_event_id NUMBER;
1050: l_curr_calling_sequence VARCHAR2(2000);
1043: l_legal_entity_id NUMBER(15);
1044: l_ledger_id NUMBER(15);
1045: l_org_id NUMBER(15);
1046: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1047: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1048: l_prepay_app_event_id NUMBER;
1049: l_inv_adj_event_id NUMBER;
1050: l_curr_calling_sequence VARCHAR2(2000);
1051: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1105: SELECT distinct(AID.accounting_event_id)
1106: INTO l_accounting_event_id
1107: FROM ap_invoice_distributions AID,
1108: ap_invoice_lines AIL,
1109: xla_events xe
1110: WHERE AID.accounting_date = event_dist_rec.accounting_date
1111: AND AIL.invoice_id = P_invoice_id
1112: AND AIL.line_number = event_dist_rec.invoice_line_number
1113: AND AIL.invoice_id = AID.invoice_id
1259: G_MODULE_NAME || l_procedure_name,
1260: l_log_msg);
1261: END IF;
1262:
1263: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1264: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1265: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1266: G_MODULE_NAME || l_procedure_name,
1267: l_log_msg);
1272: --Update the Prepayment Unapplication event to No Action
1273:
1274: -- Bug 4927664. For now comment out the event NOACTION update
1275: /* Start comment out
1276: AP_XLA_EVENTS_PKG.UPDATE_EVENT
1277: (p_event_source_info => l_event_source_info,
1278: p_event_id => l_Accounting_Event_id,
1279: p_event_type_code => 'PREPAYMENT UNAPPLIED',
1280: p_event_date => NULL,
1277: (p_event_source_info => l_event_source_info,
1278: p_event_id => l_Accounting_Event_id,
1279: p_event_type_code => 'PREPAYMENT UNAPPLIED',
1280: p_event_date => NULL,
1281: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1282: p_valuation_method => NULL,
1283: p_security_context => l_event_security_context,
1284: p_calling_sequence => l_curr_calling_sequence);
1285:
1282: p_valuation_method => NULL,
1283: p_security_context => l_event_security_context,
1284: p_calling_sequence => l_curr_calling_sequence);
1285:
1286: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1287: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1288: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1289: G_MODULE_NAME || l_procedure_name,
1290: l_log_msg);
1289: G_MODULE_NAME || l_procedure_name,
1290: l_log_msg);
1291: END IF; End comment out */
1292:
1293: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1294: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1295: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1296: G_MODULE_NAME || l_procedure_name,
1297: l_log_msg);
1301: -- PREPAYMENT APPLICATION APPLIED
1302: --Update the Prepayment Application Event to No Action
1303: -- Bug 4927664. For now comment out the event NOACTION update
1304: /* Start comment out
1305: AP_XLA_EVENTS_PKG.UPDATE_EVENT
1306: (p_event_source_info => l_event_source_info,
1307: p_event_id => l_prepay_app_event_id,
1308: p_event_type_code => 'PREPAYMENT APPLIED',
1309: p_event_date => NULL,
1306: (p_event_source_info => l_event_source_info,
1307: p_event_id => l_prepay_app_event_id,
1308: p_event_type_code => 'PREPAYMENT APPLIED',
1309: p_event_date => NULL,
1310: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1311: p_valuation_method => NULL,
1312: p_security_context => l_event_security_context,
1313: p_calling_sequence => l_curr_calling_sequence);
1314:
1311: p_valuation_method => NULL,
1312: p_security_context => l_event_security_context,
1313: p_calling_sequence => l_curr_calling_sequence);
1314:
1315: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1316: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1317: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1318: G_MODULE_NAME || l_procedure_name,
1319: l_log_msg);
1347: -- Bug 4927664. For now comment out the event NOACTION update
1348: -- Bug 8547225 Uncomment the event NOACTION update for PREPAYMENT
1349: -- APPL ADJUSTMENT event type, and pass appropriate adj event_id
1350:
1351: AP_XLA_EVENTS_PKG.UPDATE_EVENT
1352: (p_event_source_info => l_event_source_info,
1353: p_event_id => l_prepay_adj_event_id.accounting_event_id,
1354: p_event_type_code => NULL,
1355: p_event_date => NULL,
1352: (p_event_source_info => l_event_source_info,
1353: p_event_id => l_prepay_adj_event_id.accounting_event_id,
1354: p_event_type_code => NULL,
1355: p_event_date => NULL,
1356: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1357: p_valuation_method => NULL,
1358: p_security_context => l_event_security_context,
1359: p_calling_sequence => l_curr_calling_sequence);
1360:
1357: p_valuation_method => NULL,
1358: p_security_context => l_event_security_context,
1359: p_calling_sequence => l_curr_calling_sequence);
1360:
1361: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1363: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1364: G_MODULE_NAME || l_procedure_name,
1365: l_log_msg);
1434: BEGIN
1435: SELECT MAX(accounting_event_id)
1436: INTO l_accounting_event_id
1437: FROM ap_invoice_distributions,
1438: xla_events xe,
1439: xla_transaction_entities_upg xte --bug 13508211
1440: WHERE invoice_id = p_invoice_id
1441: AND NVL(posted_flag, 'N') <> 'Y'
1442: AND line_type_lookup_code <> 'PREPAY'
1569: ( is_event_complete ( p_doc_type => INVOICES_ENTITY,
1570: p_source_id => p_invoice_id,
1571: p_calling_sequence => l_curr_calling_sequence
1572: ) = 'CREATED') THEN
1573: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1574: ELSE
1575: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1576: END IF;
1577:
1571: p_calling_sequence => l_curr_calling_sequence
1572: ) = 'CREATED') THEN
1573: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1574: ELSE
1575: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1576: END IF;
1577:
1578: get_invoice_info
1579: ( p_invoice_id => p_invoice_id,
1597: p_invoice_id => p_invoice_id,
1598: p_calling_sequence => l_curr_calling_sequence
1599: );
1600:
1601: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1602: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1603: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1604: G_MODULE_NAME || l_procedure_name,
1605: l_log_msg);
1604: G_MODULE_NAME || l_procedure_name,
1605: l_log_msg);
1606: END IF;
1607:
1608: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
1609: ( p_event_source_info => l_event_source_info,
1610: p_event_class_code => l_event_class,
1611: p_event_type_code => l_event_type,
1612: p_event_date => event_dist_rec.accounting_date,
1615: p_security_context => l_event_security_context,
1616: p_calling_sequence => l_curr_calling_sequence
1617: );
1618:
1619: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1620: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1621: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1622: G_MODULE_NAME || l_procedure_name,
1623: l_log_msg);
1829: l_event_status VARCHAR2(1);
1830: l_legal_entity_id NUMBER(15);
1831: l_ledger_id NUMBER(15);
1832: l_org_id NUMBER(15);
1833: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1834: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1835: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1836:
1837: l_curr_calling_sequence VARCHAR2(2000);
1830: l_legal_entity_id NUMBER(15);
1831: l_ledger_id NUMBER(15);
1832: l_org_id NUMBER(15);
1833: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1834: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1835: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1836:
1837: l_curr_calling_sequence VARCHAR2(2000);
1838:
1858: ( is_event_complete
1859: ( p_doc_type => INVOICES_ENTITY,
1860: p_source_id => p_invoice_id,
1861: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1862: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1863: ELSE
1864: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1865: END IF;
1866:
1860: p_source_id => p_invoice_id,
1861: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1862: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1863: ELSE
1864: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1865: END IF;
1866:
1867: get_invoice_info
1868: ( p_invoice_id => p_invoice_id,
1893: G_MODULE_NAME || l_procedure_name,
1894: l_log_msg);
1895: END IF;
1896:
1897: l_log_msg := 'Calling proc AP_XLA_EVENTS_PKG.CREATE_EVENT and return';
1898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1900: G_MODULE_NAME || l_procedure_name,
1901: l_log_msg);
1901: l_log_msg);
1902: END IF;
1903:
1904: RETURN
1905: AP_XLA_EVENTS_PKG.CREATE_EVENT
1906: ( p_event_source_info => l_event_source_info,
1907: p_event_type_code => p_event_type,
1908: p_event_date => p_event_date,
1909: p_event_status_code => l_event_status,
1967: l_event_status VARCHAR2(1);
1968: l_legal_entity_id NUMBER(15);
1969: l_ledger_id NUMBER(15);
1970: l_org_id NUMBER(15);
1971: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1972: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1973: l_matured_events_count NUMBER;
1974: l_unmatured_events_count NUMBER;
1975: l_amount NUMBER;
1968: l_legal_entity_id NUMBER(15);
1969: l_ledger_id NUMBER(15);
1970: l_org_id NUMBER(15);
1971: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1972: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1973: l_matured_events_count NUMBER;
1974: l_unmatured_events_count NUMBER;
1975: l_amount NUMBER;
1976: l_currency_code VARCHAR2(15);
2001: PAYMENT_UNCLEARED_TRX_TYPE, PAYMENT_CLEARING_ADJUSTED_TYPE)
2002: AND NOT EXISTS
2003: (SELECT 1
2004: FROM ap_payment_history_all aphp,
2005: xla_events xe,
2006: ap_system_parameters_all asp
2007: WHERE aph.check_id = aphp.check_id
2008: AND aphp.payment_history_id = aph.rev_pmt_hist_id
2009: AND aphp.transaction_type = PAYMENT_CLEARED_TRX_TYPE
2026: PAYMENT_CLEARED_TRX_TYPE, PAYMENT_UNCLEARED_TRX_TYPE)
2027: AND NOT EXISTS
2028: (SELECT 1
2029: FROM ap_payment_history_all aphp,
2030: xla_events xe
2031: WHERE aph.check_id = aphp.check_id
2032: AND aphp.payment_history_id = aph.rev_pmt_hist_id
2033: AND aphp.posted_flag = 'Y'
2034: AND aphp.accounting_event_id = xe.event_id
2082: IF (p_event_type IN (PAYMENT_CANCELLED_TYPE, REFUND_CANCELLED_TYPE,PAYMENT_CREATED_TYPE, REFUND_RECORDED_TYPE,
2083: PAYMENT_MATURED_TYPE, PAYMENT_MATURITY_REVERSED_TYPE,MANUAL_PAYMENT_ADJUSTED_TYPE,--14544093
2084: MANUAL_REFUND_ADJUSTED_TYPE)
2085: AND l_when_to_acct = 'CLEARING ONLY') THEN --bug 8771563 and 12603516
2086: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION;
2087: ELSIF (is_event_complete
2088: (p_doc_type => PAYMENTS_ENTITY,
2089: p_source_id => p_check_id,
2090: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
2087: ELSIF (is_event_complete
2088: (p_doc_type => PAYMENTS_ENTITY,
2089: p_source_id => p_check_id,
2090: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
2091: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2092: ELSE
2093: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2094: END IF;
2095:
2089: p_source_id => p_check_id,
2090: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
2091: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2092: ELSE
2093: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2094: END IF;
2095:
2096: get_payment_info
2097: ( p_check_id => p_check_id,
2114: p_check_id => p_check_id,
2115: p_calling_sequence => l_curr_calling_sequence
2116: );
2117:
2118: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.CREATE_EVENT';
2119: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2120: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2121: G_MODULE_NAME || l_procedure_name,
2122: l_log_msg);
2151: )
2152: OR (ac.currency_code = asp.base_currency_code));
2153: EXCEPTION
2154: WHEN NO_DATA_FOUND THEN
2155: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2156: END;
2157: ELSE
2158: BEGIN
2159: SELECT 1
2178: OR (ac.currency_code = asp.base_currency_code));
2179:
2180: EXCEPTION
2181: WHEN NO_DATA_FOUND THEN
2182: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2183: END;
2184: END IF;
2185: /*
2186: BEGIN
2232: OR (ac.currency_code = asp.base_currency_code));
2233:
2234: EXCEPTION
2235: WHEN NO_DATA_FOUND THEN
2236: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2237: END;
2238: END;
2239: --bug 9069767 starts
2240: --bug 8358552 ends
2241: */
2242: --bug 12555714 Ends
2243:
2244: l_ret:=
2245: AP_XLA_EVENTS_PKG.CREATE_EVENT
2246: ( p_event_source_info => l_event_source_info,
2247: p_event_type_code => p_event_type,
2248: p_event_date => p_event_date,
2249: p_event_status_code => l_event_status,
2254: p_security_context => l_event_security_context,
2255: p_calling_sequence => l_curr_calling_sequence
2256: );
2257:
2258: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.CREATE_EVENT';
2259: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2260: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2261: G_MODULE_NAME || l_procedure_name,
2262: l_log_msg);
2380: G_MODULE_NAME || l_procedure_name,
2381: l_log_msg);
2382: END IF;
2383:
2384: AP_XLA_EVENTS_PKG.UPDATE_EVENT
2385: ( p_event_source_info => l_event_source_info,
2386: p_event_id => l_accounting_event_id,
2387: p_event_type_code => NULL,
2388: p_event_date => NULL,
2385: ( p_event_source_info => l_event_source_info,
2386: p_event_id => l_accounting_event_id,
2387: p_event_type_code => NULL,
2388: p_event_date => NULL,
2389: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
2390: p_valuation_method => NULL,
2391: p_security_context => l_event_security_context,
2392: p_calling_sequence => l_curr_calling_sequence
2393: );
2391: p_security_context => l_event_security_context,
2392: p_calling_sequence => l_curr_calling_sequence
2393: );
2394:
2395: l_log_msg := 'End of call to AP_XLA_EVENTS_PKG.UPDATE_EVENT';
2396: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2397: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2398: G_MODULE_NAME || l_procedure_name,
2399: l_log_msg);
2428: G_MODULE_NAME || l_procedure_name,
2429: l_log_msg);
2430: END IF;
2431:
2432: AP_XLA_EVENTS_PKG.UPDATE_EVENT
2433: ( p_event_source_info => l_event_source_info,
2434: p_event_id => l_accounting_event_id,
2435: p_event_type_code => NULL,
2436: p_event_date => NULL,
2433: ( p_event_source_info => l_event_source_info,
2434: p_event_id => l_accounting_event_id,
2435: p_event_type_code => NULL,
2436: p_event_date => NULL,
2437: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
2438: p_valuation_method => NULL,
2439: p_security_context => l_event_security_context,
2440: p_calling_sequence => l_curr_calling_sequence
2441: );
2439: p_security_context => l_event_security_context,
2440: p_calling_sequence => l_curr_calling_sequence
2441: );
2442:
2443: l_log_msg := 'End of call to AP_XLA_EVENTS_PKG.UPDATE_EVENT';
2444: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2445: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2446: G_MODULE_NAME || l_procedure_name,
2447: l_log_msg);
2508: l_legal_entity_id NUMBER(15);
2509: l_ledger_id NUMBER(15);
2510: l_org_id NUMBER(15);
2511: l_Event_count NUMBER;
2512: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2513: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2514: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2515: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2516:
2509: l_ledger_id NUMBER(15);
2510: l_org_id NUMBER(15);
2511: l_Event_count NUMBER;
2512: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2513: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2514: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2515: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2516:
2517: l_curr_calling_sequence VARCHAR2(2000);
2510: l_org_id NUMBER(15);
2511: l_Event_count NUMBER;
2512: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2513: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2514: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2515: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2516:
2517: l_curr_calling_sequence VARCHAR2(2000);
2518:
2521: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2522: --7011943
2523: l_count NUMBER;
2524: l_check_id NUMBER;
2525: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2526: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2527:
2528: --bug 8358552 starts
2529: l_dummy number;
2522: --7011943
2523: l_count NUMBER;
2524: l_check_id NUMBER;
2525: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2526: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2527:
2528: --bug 8358552 starts
2529: l_dummy number;
2530: --bug 8358552 ends
2594: p_source_id => p_invoice_id,
2595: p_calling_sequence => l_curr_calling_sequence
2596: ) = 'CREATED') THEN
2597:
2598: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2599:
2600: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2601: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2602: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2596: ) = 'CREATED') THEN
2597:
2598: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2599:
2600: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2601: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2602: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2603: G_MODULE_NAME || l_procedure_name,
2604: l_log_msg);
2604: l_log_msg);
2605: END IF;
2606:
2607: l_do_updates_flag :=
2608: AP_XLA_EVENTS_PKG.EVENT_EXISTS
2609: ( p_event_source_info => l_event_source_info,
2610: p_event_class_code => NULL,
2611: p_event_type_code => NULL,
2612: p_event_date => NULL,
2609: ( p_event_source_info => l_event_source_info,
2610: p_event_class_code => NULL,
2611: p_event_type_code => NULL,
2612: p_event_date => NULL,
2613: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2614: p_event_number => NULL,
2615: p_valuation_method => NULL,
2616: p_security_context => l_event_security_context,
2617: p_calling_sequence => l_curr_calling_sequence
2616: p_security_context => l_event_security_context,
2617: p_calling_sequence => l_curr_calling_sequence
2618: );
2619:
2620: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2622: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2623: G_MODULE_NAME || l_procedure_name,
2624: l_log_msg);
2625: END IF;
2626:
2627: ELSE
2628:
2629: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2630:
2631: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2632:
2633: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2627: ELSE
2628:
2629: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2630:
2631: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2632:
2633: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2634: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2635: G_MODULE_NAME || l_procedure_name,
2636: l_log_msg);
2637: END IF;
2638:
2639: l_do_updates_flag :=
2640: AP_XLA_EVENTS_PKG.EVENT_EXISTS
2641: ( p_event_source_info => l_event_source_info,
2642: p_event_class_code => NULL,
2643: p_event_type_code => NULL,
2644: p_event_date => NULL,
2641: ( p_event_source_info => l_event_source_info,
2642: p_event_class_code => NULL,
2643: p_event_type_code => NULL,
2644: p_event_date => NULL,
2645: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2646: p_event_number => NULL,
2647: p_valuation_method => NULL,
2648: p_security_context => l_event_security_context,
2649: p_calling_sequence => l_curr_calling_sequence
2648: p_security_context => l_event_security_context,
2649: p_calling_sequence => l_curr_calling_sequence
2650: );
2651:
2652: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2653: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2654: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2655: G_MODULE_NAME || l_procedure_name,
2656: l_log_msg);
2676: LIMIT 1000;
2677:
2678: FOR i IN 1 ..l_accounting_event_ids.count LOOP
2679:
2680: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2681: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2682: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2683: G_MODULE_NAME || l_procedure_name,
2684: l_log_msg);
2723: AND ac.exchange_date is not null)
2724: OR (ac.currency_code = asp.base_currency_code));
2725: EXCEPTION
2726: WHEN NO_DATA_FOUND THEN
2727: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2728: END;
2729: --bug 8358552 ends
2730:
2731: EXCEPTION
2736: l_event_source_info := l_event_source_info_temp;
2737: end if;
2738: --bug 7011943 ends
2739: l_event_info :=
2740: AP_XLA_EVENTS_PKG.GET_EVENT_INFO
2741: ( p_event_source_info => l_event_source_info,
2742: p_event_id => l_accounting_event_ids(i),
2743: p_valuation_method => NULL,
2744: p_security_context => l_event_security_context,
2746: );
2747:
2748: --bug 7011943
2749: l_event_source_info := l_event_source_info_temp;
2750: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2751: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2752: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2753: G_MODULE_NAME || l_procedure_name,
2754: l_log_msg);
2754: l_log_msg);
2755: END IF;
2756:
2757: IF ( l_event_info.event_status_code IN
2758: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2759: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE
2760: ) AND
2761: l_event_info.event_status_code <> l_invoice_event_status) THEN
2762:
2755: END IF;
2756:
2757: IF ( l_event_info.event_status_code IN
2758: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2759: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE
2760: ) AND
2761: l_event_info.event_status_code <> l_invoice_event_status) THEN
2762:
2763: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2759: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE
2760: ) AND
2761: l_event_info.event_status_code <> l_invoice_event_status) THEN
2762:
2763: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2764: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2765: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2766: G_MODULE_NAME || l_procedure_name,
2767: l_log_msg);
2766: G_MODULE_NAME || l_procedure_name,
2767: l_log_msg);
2768: END IF;
2769:
2770: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
2771: ( p_event_source_info => l_event_source_info,
2772: p_event_class_code => null,
2773: p_event_type_code => null,
2774: p_event_date => null,
2777: p_security_context => l_event_security_context,
2778: p_calling_sequence => l_curr_calling_sequence
2779: );
2780:
2781: l_log_msg := 'After AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2782: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2783: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2784: G_MODULE_NAME || l_procedure_name,
2785: l_log_msg);
2891: p_source_id => l_curr_check_id,
2892: p_calling_sequence => l_curr_calling_sequence) = 'CREATED')
2893: THEN
2894:
2895: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2896:
2897: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EIXSTS';
2898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2893: THEN
2894:
2895: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2896:
2897: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EIXSTS';
2898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2900: G_MODULE_NAME || l_procedure_name,
2901: l_log_msg);
2901: l_log_msg);
2902: END IF;
2903:
2904: l_do_updates_flag :=
2905: AP_XLA_EVENTS_PKG.EVENT_EXISTS
2906: ( p_event_source_info => l_event_source_info,
2907: p_event_class_code => NULL,
2908: p_event_type_code => NULL,
2909: p_event_date => NULL,
2906: ( p_event_source_info => l_event_source_info,
2907: p_event_class_code => NULL,
2908: p_event_type_code => NULL,
2909: p_event_date => NULL,
2910: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2911: p_event_number => NULL,
2912: p_valuation_method => NULL,
2913: p_security_context => l_event_security_context,
2914: p_calling_sequence => l_curr_calling_sequence
2923: END IF;
2924:
2925: ELSE
2926:
2927: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2928:
2929: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2931: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2925: ELSE
2926:
2927: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2928:
2929: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2931: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2932: G_MODULE_NAME || l_procedure_name,
2933: l_log_msg);
2933: l_log_msg);
2934: END IF;
2935:
2936: l_do_updates_flag :=
2937: AP_XLA_EVENTS_PKG.EVENT_EXISTS
2938: ( p_event_source_info => l_event_source_info,
2939: p_event_class_code => NULL,
2940: p_event_type_code => NULL,
2941: p_event_date => NULL,
2938: ( p_event_source_info => l_event_source_info,
2939: p_event_class_code => NULL,
2940: p_event_type_code => NULL,
2941: p_event_date => NULL,
2942: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2943: p_event_number => NULL,
2944: p_valuation_method => NULL,
2945: p_security_context => l_event_security_context,
2946: p_calling_sequence => l_curr_calling_sequence
2945: p_security_context => l_event_security_context,
2946: p_calling_sequence => l_curr_calling_sequence
2947: );
2948:
2949: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2950: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2951: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2952: G_MODULE_NAME || l_procedure_name,
2953: l_log_msg);
2957: END IF;
2958:
2959: IF (l_do_updates_flag) THEN
2960:
2961: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2962: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2963: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2964: G_MODULE_NAME || l_procedure_name,
2965: l_log_msg);
2965: l_log_msg);
2966: END IF;
2967:
2968: l_event_info :=
2969: AP_XLA_EVENTS_PKG.GET_EVENT_INFO
2970: ( p_event_source_info => l_event_source_info,
2971: p_event_id => l_accounting_event_ids(i),
2972: p_valuation_method => NULL,
2973: p_security_context => l_event_security_context,
2973: p_security_context => l_event_security_context,
2974: p_calling_sequence => l_curr_calling_sequence
2975: );
2976:
2977: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2978: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2979: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2980: G_MODULE_NAME || l_procedure_name,
2981: l_log_msg);
2981: l_log_msg);
2982: END IF;
2983:
2984: IF (l_event_info.event_status_code IN
2985: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2986: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2987: l_event_info.event_status_code <> l_payment_event_status) THEN
2988:
2989: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2982: END IF;
2983:
2984: IF (l_event_info.event_status_code IN
2985: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2986: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2987: l_event_info.event_status_code <> l_payment_event_status) THEN
2988:
2989: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2990: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2985: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2986: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2987: l_event_info.event_status_code <> l_payment_event_status) THEN
2988:
2989: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2990: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2991: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2992: G_MODULE_NAME || l_procedure_name,
2993: l_log_msg);
2992: G_MODULE_NAME || l_procedure_name,
2993: l_log_msg);
2994: END IF;
2995:
2996: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
2997: ( p_event_source_info => l_event_source_info,
2998: p_event_class_code => null,
2999: p_event_type_code => null,
3000: p_event_date => null,
3003: p_security_context => l_event_security_context,
3004: p_calling_sequence => l_curr_calling_sequence
3005: );
3006:
3007: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
3008: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3009: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3010: G_MODULE_NAME || l_procedure_name,
3011: l_log_msg);
3087:
3088: l_legal_entity_id NUMBER(15);
3089: l_ledger_id NUMBER(15);
3090: l_org_id NUMBER(15);
3091: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
3092: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3093: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
3094: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
3095:
3088: l_legal_entity_id NUMBER(15);
3089: l_ledger_id NUMBER(15);
3090: l_org_id NUMBER(15);
3091: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
3092: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3093: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
3094: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
3095:
3096: l_curr_calling_sequence VARCHAR2(2000);
3089: l_ledger_id NUMBER(15);
3090: l_org_id NUMBER(15);
3091: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
3092: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3093: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
3094: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
3095:
3096: l_curr_calling_sequence VARCHAR2(2000);
3097:
3100: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3101: --7011943
3102: l_count NUMBER;
3103: l_check_id NUMBER;
3104: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3105: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3106:
3107:
3108: BEGIN
3101: --7011943
3102: l_count NUMBER;
3103: l_check_id NUMBER;
3104: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3105: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3106:
3107:
3108: BEGIN
3109:
3235: (p_doc_type => INVOICES_ENTITY,
3236: p_source_id => l_curr_invoice_id,
3237: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
3238:
3239: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3240:
3241: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3243: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3237: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
3238:
3239: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3240:
3241: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3243: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3244: G_MODULE_NAME || l_procedure_name,
3245: l_log_msg);
3245: l_log_msg);
3246: END IF;
3247:
3248: l_do_updates_flag :=
3249: AP_XLA_EVENTS_PKG.EVENT_EXISTS
3250: ( p_event_source_info => l_event_source_info,
3251: p_event_class_code => NULL,
3252: p_event_type_code => NULL,
3253: p_event_date => NULL,
3250: ( p_event_source_info => l_event_source_info,
3251: p_event_class_code => NULL,
3252: p_event_type_code => NULL,
3253: p_event_date => NULL,
3254: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3255: p_event_number => NULL,
3256: p_valuation_method => NULL,
3257: p_security_context => l_event_security_context,
3258: p_calling_sequence => l_curr_calling_sequence
3257: p_security_context => l_event_security_context,
3258: p_calling_sequence => l_curr_calling_sequence
3259: );
3260:
3261: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3262: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3263: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3264: G_MODULE_NAME || l_procedure_name,
3265: l_log_msg);
3265: l_log_msg);
3266: END IF;
3267: ELSE
3268:
3269: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3270:
3271: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3267: ELSE
3268:
3269: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3270:
3271: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3274: G_MODULE_NAME || l_procedure_name,
3275: l_log_msg);
3275: l_log_msg);
3276: END IF;
3277:
3278: l_do_updates_flag :=
3279: AP_XLA_EVENTS_PKG.EVENT_EXISTS
3280: ( p_event_source_info => l_event_source_info,
3281: p_event_class_code => NULL,
3282: p_event_type_code => NULL,
3283: p_event_date => NULL,
3280: ( p_event_source_info => l_event_source_info,
3281: p_event_class_code => NULL,
3282: p_event_type_code => NULL,
3283: p_event_date => NULL,
3284: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3285: p_event_number => NULL,
3286: p_valuation_method => NULL,
3287: p_security_context => l_event_security_context,
3288: p_calling_sequence => l_curr_calling_sequence);
3286: p_valuation_method => NULL,
3287: p_security_context => l_event_security_context,
3288: p_calling_sequence => l_curr_calling_sequence);
3289:
3290: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3291: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3292: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3293: G_MODULE_NAME || l_procedure_name,
3294: l_log_msg);
3299: END IF;
3300:
3301: IF (l_do_updates_flag) THEN
3302:
3303: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3305: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3306: G_MODULE_NAME || l_procedure_name,
3307: l_log_msg);
3340: end if;
3341: --bug 7011943 ends
3342:
3343: l_event_info :=
3344: AP_XLA_EVENTS_PKG.GET_EVENT_INFO
3345: ( p_event_source_info => l_event_source_info,
3346: p_event_id => l_accounting_event_ids(i),
3347: p_valuation_method => NULL,
3348: p_security_context => l_event_security_context,
3349: p_calling_sequence => l_curr_calling_sequence);
3350: --bug 7011943
3351: l_event_source_info := l_event_source_info_temp;
3352:
3353: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3354: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3355: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3356: G_MODULE_NAME || l_procedure_name,
3357: l_log_msg);
3357: l_log_msg);
3358: END IF;
3359:
3360: IF ( l_event_info.event_status_code IN
3361: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3362: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3363: l_event_info.event_status_code <> l_invoice_event_status) THEN
3364:
3365: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3358: END IF;
3359:
3360: IF ( l_event_info.event_status_code IN
3361: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3362: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3363: l_event_info.event_status_code <> l_invoice_event_status) THEN
3364:
3365: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3366: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3361: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3362: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3363: l_event_info.event_status_code <> l_invoice_event_status) THEN
3364:
3365: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3366: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3367: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3368: G_MODULE_NAME || l_procedure_name,
3369: l_log_msg);
3368: G_MODULE_NAME || l_procedure_name,
3369: l_log_msg);
3370: END IF;
3371:
3372: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
3373: ( p_event_source_info => l_event_source_info,
3374: p_event_class_code => null,
3375: p_event_type_code => null,
3376: p_event_date => null,
3378: p_valuation_method => NULL,
3379: p_security_context => l_event_security_context,
3380: p_calling_sequence => l_curr_calling_sequence);
3381:
3382: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3383: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3384: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3385: G_MODULE_NAME || l_procedure_name,
3386: l_log_msg);
3496: (p_doc_type => PAYMENTS_ENTITY,
3497: p_source_id => p_check_id,
3498: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
3499:
3500: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3501:
3502: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3503: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3504: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3498: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
3499:
3500: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3501:
3502: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3503: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3504: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3505: G_MODULE_NAME || l_procedure_name,
3506: l_log_msg);
3506: l_log_msg);
3507: END IF;
3508:
3509: l_do_updates_flag :=
3510: AP_XLA_EVENTS_PKG.EVENT_EXISTS
3511: ( p_event_source_info => l_event_source_info,
3512: p_event_class_code => NULL,
3513: p_event_type_code => NULL,
3514: p_event_date => NULL,
3511: ( p_event_source_info => l_event_source_info,
3512: p_event_class_code => NULL,
3513: p_event_type_code => NULL,
3514: p_event_date => NULL,
3515: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3516: p_event_number => NULL,
3517: p_valuation_method => NULL,
3518: p_security_context => l_event_security_context,
3519: p_calling_sequence => l_curr_calling_sequence
3518: p_security_context => l_event_security_context,
3519: p_calling_sequence => l_curr_calling_sequence
3520: );
3521:
3522: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3523: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3524: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3525: G_MODULE_NAME || l_procedure_name,
3526: l_log_msg);
3527: END IF;
3528:
3529: ELSE
3530:
3531: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3532:
3533: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3534: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3535: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3529: ELSE
3530:
3531: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3532:
3533: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3534: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3535: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3536: G_MODULE_NAME || l_procedure_name,
3537: l_log_msg);
3537: l_log_msg);
3538: END IF;
3539:
3540: l_do_updates_flag :=
3541: AP_XLA_EVENTS_PKG.EVENT_EXISTS
3542: ( p_event_source_info => l_event_source_info,
3543: p_event_class_code => NULL,
3544: p_event_type_code => NULL,
3545: p_event_date => NULL,
3542: ( p_event_source_info => l_event_source_info,
3543: p_event_class_code => NULL,
3544: p_event_type_code => NULL,
3545: p_event_date => NULL,
3546: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3547: p_event_number => NULL,
3548: p_valuation_method => NULL,
3549: p_security_context => l_event_security_context,
3550: p_calling_sequence => l_curr_calling_sequence
3549: p_security_context => l_event_security_context,
3550: p_calling_sequence => l_curr_calling_sequence
3551: );
3552:
3553: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3554: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3555: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3556: G_MODULE_NAME || l_procedure_name,
3557: l_log_msg);
3584: END IF;
3585:
3586: FOR i IN 1 ..l_accounting_event_ids.count LOOP
3587:
3588: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3589: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3590: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3591: G_MODULE_NAME || l_procedure_name,
3592: l_log_msg);
3592: l_log_msg);
3593: END IF;
3594:
3595: l_event_info :=
3596: AP_XLA_EVENTS_PKG.GET_EVENT_INFO
3597: ( p_event_source_info => l_event_source_info,
3598: p_event_id => l_accounting_event_ids(i),
3599: p_valuation_method => NULL,
3600: p_security_context => l_event_security_context,
3600: p_security_context => l_event_security_context,
3601: p_calling_sequence => l_curr_calling_sequence
3602: );
3603:
3604: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3605: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3606: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3607: G_MODULE_NAME || l_procedure_name,
3608: l_log_msg);
3608: l_log_msg);
3609: END IF;
3610:
3611: IF ( l_event_info.event_status_code IN
3612: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3613: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3614: l_event_info.event_status_code <> l_payment_event_status) THEN
3615:
3616: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3609: END IF;
3610:
3611: IF ( l_event_info.event_status_code IN
3612: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3613: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3614: l_event_info.event_status_code <> l_payment_event_status) THEN
3615:
3616: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3612: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3613: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3614: l_event_info.event_status_code <> l_payment_event_status) THEN
3615:
3616: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3618: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3619: G_MODULE_NAME || l_procedure_name,
3620: l_log_msg);
3619: G_MODULE_NAME || l_procedure_name,
3620: l_log_msg);
3621: END IF;
3622:
3623: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
3624: ( p_event_source_info => l_event_source_info,
3625: p_event_class_code =>
3626: get_event_class
3627: (
3635: p_security_context => l_event_security_context,
3636: p_calling_sequence => l_curr_calling_sequence
3637: );
3638:
3639: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3640: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3641: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3642: G_MODULE_NAME || l_procedure_name,
3643: l_log_msg);
3746: G_MODULE_NAME || l_procedure_name,
3747: l_log_msg);
3748: END IF;
3749:
3750: -- Bug 5512197. Changed the reference of XL_EVENTS_GT to XLA_EVENTS_INT_GT
3751: SELECT COUNT(*)
3752: INTO l_record_count
3753: FROM XLA_EVENTS_INT_GT XEG
3754: WHERE XEG.application_id = 200
3749:
3750: -- Bug 5512197. Changed the reference of XL_EVENTS_GT to XLA_EVENTS_INT_GT
3751: SELECT COUNT(*)
3752: INTO l_record_count
3753: FROM XLA_EVENTS_INT_GT XEG
3754: WHERE XEG.application_id = 200
3755: AND XEG.entity_code = PAYMENTS_ENTITY
3756: AND XEG.event_type_code = PAYMENT_CREATED_TYPE;
3757:
3763: G_MODULE_NAME || l_procedure_name,
3764: l_log_msg);
3765: END IF;
3766:
3767: UPDATE XLA_EVENTS_INT_GT XEG
3768: SET event_status_code = XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION
3769: WHERE XEG.application_id = 200
3770: AND XEG.source_id_int_1 IN
3771: ( SELECT AC.check_id
3764: l_log_msg);
3765: END IF;
3766:
3767: UPDATE XLA_EVENTS_INT_GT XEG
3768: SET event_status_code = XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION
3769: WHERE XEG.application_id = 200
3770: AND XEG.source_id_int_1 IN
3771: ( SELECT AC.check_id
3772: FROM AP_CHECKS_ALL AC
3780: G_MODULE_NAME || l_procedure_name,
3781: l_log_msg);
3782: END IF;
3783:
3784: XLA_EVENTS_PUB_PKG.update_bulk_event_statuses(p_application_id => '200');
3785:
3786: l_log_msg := 'after calling xla update status api';
3787: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3788: FND_LOG.STRING(G_LEVEL_STATEMENT,
3791: END IF;
3792:
3793: ELSE
3794:
3795: l_log_msg := 'XLA_EVENTS_INT_GT TABLE Has no records';
3796: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3797: FND_LOG.STRING(G_LEVEL_STATEMENT,
3798: G_MODULE_NAME || l_procedure_name,
3799: l_log_msg);
3858: p_calling_sequence IN VARCHAR2)
3859: IS
3860:
3861: l_event_type VARCHAR2(30) := PAYMENT_CREATED_TYPE;
3862: l_event_status VARCHAR2(1) := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3863: l_curr_calling_sequence VARCHAR2(2000);
3864: l_count NUMBER := 0;
3865:
3866: -- Logging:
3905: G_MODULE_NAME || l_procedure_name,
3906: l_log_msg);
3907: END IF;
3908:
3909: DELETE XLA_EVENTS_INT_GT XEG
3910: WHERE application_id = 200;
3911:
3912: l_log_msg := 'After clean up the xla_event_gt_table';
3913: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3926: G_MODULE_NAME || l_procedure_name,
3927: l_log_msg);
3928: END IF;
3929:
3930: INSERT INTO XLA_EVENTS_INT_GT (
3931: application_id,
3932: ledger_id,
3933: legal_entity_id,
3934: entity_code,
3952: p_accounting_date,
3953: --bug 8358552 starts
3954: --l_event_status
3955: --Bug 9359625 Only check for null xrate fields on foreign curr.
3956: decode(ac.currency_code, asp.base_currency_code, XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3957: decode(ac.exchange_date, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3958: decode(ac.exchange_rate_type, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3953: --bug 8358552 starts
3954: --l_event_status
3955: --Bug 9359625 Only check for null xrate fields on foreign curr.
3956: decode(ac.currency_code, asp.base_currency_code, XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3957: decode(ac.exchange_date, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3958: decode(ac.exchange_rate_type, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3961: --bug 8358552 ends
3954: --l_event_status
3955: --Bug 9359625 Only check for null xrate fields on foreign curr.
3956: decode(ac.currency_code, asp.base_currency_code, XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3957: decode(ac.exchange_date, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3958: decode(ac.exchange_rate_type, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3961: --bug 8358552 ends
3962: FROM ap_checks_all ac
3955: --Bug 9359625 Only check for null xrate fields on foreign curr.
3956: decode(ac.currency_code, asp.base_currency_code, XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3957: decode(ac.exchange_date, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3958: decode(ac.exchange_rate_type, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3961: --bug 8358552 ends
3962: FROM ap_checks_all ac
3963: , ap_system_parameters_all asp
3956: decode(ac.currency_code, asp.base_currency_code, XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3957: decode(ac.exchange_date, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3958: decode(ac.exchange_rate_type, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3961: --bug 8358552 ends
3962: FROM ap_checks_all ac
3963: , ap_system_parameters_all asp
3964: WHERE ac.checkrun_name = p_checkrun_name
3970: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3971:
3972: SELECT COUNT(*)
3973: INTO l_count
3974: FROM XLA_EVENTS_INT_GT;
3975:
3976: l_log_msg := 'event gt table has record number = '|| l_count;
3977: FND_LOG.STRING(G_LEVEL_STATEMENT,
3978: G_MODULE_NAME || l_procedure_name,
3998: l_log_msg);
3999: END IF;
4000:
4001: BEGIN
4002: XLA_EVENTS_PUB_PKG.create_bulk_events
4003: (p_source_application_id => NULL
4004: ,p_application_id => '200'
4005: ,p_legal_entity_id => NULL
4006: ,p_ledger_id => p_set_of_books_id
4097: NULL, -- request_id
4098: ac.org_id, -- org_id
4099: XEG.event_id -- related_event_id
4100: from ap_checks_all ac,
4101: xla_events_int_gt xeg
4102: where ac.completed_pmts_group_id = p_completed_pmts_group_id
4103: and ac.org_id = p_org_id
4104: and xeg.source_id_int_1 = ac.check_id);
4105:
4722:
4723: l_legal_entity_id NUMBER(15);
4724: l_ledger_id NUMBER(15);
4725: l_org_id NUMBER(15);
4726: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4727: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4728: l_accounting_event_id NUMBER := NULL;
4729: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4730:
4723: l_legal_entity_id NUMBER(15);
4724: l_ledger_id NUMBER(15);
4725: l_org_id NUMBER(15);
4726: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4727: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4728: l_accounting_event_id NUMBER := NULL;
4729: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4730:
4731: l_exchange_rate_type VARCHAR2(30);
4725: l_org_id NUMBER(15);
4726: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4727: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4728: l_accounting_event_id NUMBER := NULL;
4729: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4730:
4731: l_exchange_rate_type VARCHAR2(30);
4732: l_exchange_rate_date DATE;
4733: l_exchange_rate NUMBER;
4836: FETCH l_event_cur INTO
4837: l_accounting_event_id;
4838: EXIT WHEN l_event_cur%NOTFOUND;
4839:
4840: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4842: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4843: G_MODULE_NAME || l_procedure_name,
4844: l_log_msg);
4844: l_log_msg);
4845: END IF;
4846:
4847: l_event_info :=
4848: AP_XLA_EVENTS_PKG.GET_EVENT_INFO
4849: ( p_event_source_info => l_event_source_info,
4850: p_event_id => l_accounting_event_id,
4851: p_valuation_method => NULL,
4852: p_security_context => l_event_security_context,
4852: p_security_context => l_event_security_context,
4853: p_calling_sequence => l_curr_calling_sequence
4854: );
4855:
4856: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4857: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4858: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4859: G_MODULE_NAME || l_procedure_name,
4860: l_log_msg);
5038: -- events from getting created in case the Prepayment Appl
5039: -- event is stamped on Multiple Invoice distributions
5040: --
5041: -- bug9973070, added the condition AID.Accounting_Event_id
5042: -- IS NOT NULL, removed outer join with XLA_EVENTS
5043: --
5044: /* Bug 9682862 added exists condition for ap_invoice_distributions table*/
5045:
5046: CURSOR l_prepayment_applications_cur IS
5048: AID.invoice_id,
5049: AID.accounting_date,
5050: AID.invoice_line_number
5051: FROM ap_invoice_distributions AID,
5052: xla_events XE
5053: WHERE AID.invoice_id = p_invoice_id
5054: AND AID.line_type_lookup_code = 'PREPAY'
5055: AND AID.Accounting_Event_ID IS NOT NULL
5056: AND AID.Accounting_event_id = XE.event_id
5086: CURSOR l_payments_cur IS
5087: SELECT DISTINCT AIP.check_id,
5088: AIP.accounting_date
5089: FROM ap_invoice_payments AIP,
5090: xla_events XE
5091: WHERE AIP.invoice_id = p_invoice_id
5092: AND AIP.posted_flag = 'Y'
5093: AND NVL(AIP.reversal_flag, 'N') <> 'Y'
5094: AND AIP.reversal_inv_pmt_id IS NULL
5120: SELECT DISTINCT APH.check_id,
5121: APH.accounting_date
5122: FROM ap_payment_history APH,
5123: ap_invoice_payments AIP,
5124: xla_events XE
5125: WHERE AIP.invoice_id = p_invoice_id
5126: AND AIP.check_id = APH.check_id
5127: AND APH.transaction_type = 'PAYMENT CLEARING'
5128: AND AIP.posted_flag = 'Y'
5165: SELECT DISTINCT APH.check_id,
5166: APH.accounting_date
5167: FROM ap_payment_history APH,
5168: ap_invoice_payments AIP,
5169: xla_events XE
5170: WHERE AIP.invoice_id = p_invoice_id
5171: AND AIP.check_id = APH.check_id
5172: AND APH.transaction_type = 'PAYMENT MATURITY'
5173: AND AIP.posted_flag = 'Y'
5249: -- Logging:
5250: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_CASCADE_EVENTS';
5251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5252:
5253: l_event_type xla_events.event_type_code%TYPE;
5254: l_pay_type ap_checks_all.payment_type_flag%TYPE;
5255: l_automatic_offsets_flag ap_system_parameters_all.automatic_offsets_flag%TYPE; ---7209263
5256: l_bank_curr_code ap_payment_history_all.bank_currency_code%TYPE; ---7337949
5257:
5951:
5952: l_legal_entity_id NUMBER(15);
5953: l_ledger_id NUMBER(15);
5954: l_org_id NUMBER(15);
5955: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5956: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5957: l_diff_gl_date_dists NUMBER := 0;
5958: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
5959:
5952: l_legal_entity_id NUMBER(15);
5953: l_ledger_id NUMBER(15);
5954: l_org_id NUMBER(15);
5955: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5956: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5957: l_diff_gl_date_dists NUMBER := 0;
5958: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
5959:
5960: l_curr_calling_sequence VARCHAR2(2000);
6141:
6142: l_legal_entity_id NUMBER(15);
6143: l_ledger_id NUMBER(15);
6144: l_org_id NUMBER(15);
6145: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6146: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6147:
6148: l_processed_events NUMBER;
6149: l_event_count NUMBER;
6142: l_legal_entity_id NUMBER(15);
6143: l_ledger_id NUMBER(15);
6144: l_org_id NUMBER(15);
6145: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6146: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6147:
6148: l_processed_events NUMBER;
6149: l_event_count NUMBER;
6150: l_accounting_date DATE;
6269: -- p_event_type_code is left NULL so that 'PAYMENT CREATED' and
6270: -- 'PAYMENT CANCELLED' events or 'REFUND CREATED' and
6271: -- 'REFUND CANCELLED' events will be updated.
6272:
6273: l_log_msg :='Before calling P_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6274: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6275: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6276: G_MODULE_NAME || l_procedure_name,
6277: l_log_msg);
6276: G_MODULE_NAME || l_procedure_name,
6277: l_log_msg);
6278: END IF;
6279:
6280: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
6281: ( p_event_source_info => l_event_source_info,
6282: p_event_class_code => l_event_class,
6283: p_event_type_code => p_event_type_code,
6284: p_event_date => l_accounting_date,
6281: ( p_event_source_info => l_event_source_info,
6282: p_event_class_code => l_event_class,
6283: p_event_type_code => p_event_type_code,
6284: p_event_date => l_accounting_date,
6285: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
6286: p_valuation_method => NULL,
6287: p_security_context => l_event_security_context,
6288: p_calling_sequence => l_curr_calling_sequence
6289: );
6287: p_security_context => l_event_security_context,
6288: p_calling_sequence => l_curr_calling_sequence
6289: );
6290:
6291: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6293: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6294: G_MODULE_NAME || l_procedure_name,
6295: l_log_msg);
6316: IF (l_accounting_date = p_accounting_date) THEN
6317: -- p_event_type_code is left NULL so that 'PAYMENT CLEARED' and
6318: -- 'PAYMENT UNCLEARED' events will be updated.
6319:
6320: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6321: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6322: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6323: G_MODULE_NAME || l_procedure_name,
6324: l_log_msg);
6323: G_MODULE_NAME || l_procedure_name,
6324: l_log_msg);
6325: END IF;
6326:
6327: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
6328: ( p_event_source_info => l_event_source_info,
6329: p_event_class_code => RECONCILED_PAYMENTS_CLASS,
6330: p_event_type_code => p_event_type_code,
6331: p_event_date => l_accounting_date,
6328: ( p_event_source_info => l_event_source_info,
6329: p_event_class_code => RECONCILED_PAYMENTS_CLASS,
6330: p_event_type_code => p_event_type_code,
6331: p_event_date => l_accounting_date,
6332: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
6333: p_valuation_method => NULL,
6334: p_security_context => l_event_security_context,
6335: p_calling_sequence => l_curr_calling_sequence
6336: );
6334: p_security_context => l_event_security_context,
6335: p_calling_sequence => l_curr_calling_sequence
6336: );
6337:
6338: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6340: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6341: G_MODULE_NAME || l_procedure_name,
6342: l_log_msg);
6357:
6358:
6359: IF (l_accounting_date = p_accounting_date) THEN
6360:
6361: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6363: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6364: G_MODULE_NAME || l_procedure_name,
6365: l_log_msg);
6364: G_MODULE_NAME || l_procedure_name,
6365: l_log_msg);
6366: END IF;
6367:
6368: AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS
6369: ( p_event_source_info => l_event_source_info,
6370: p_event_class_code => FUTURE_DATED_PAYMENTS_CLASS,
6371: p_event_type_code => p_event_type_code,
6372: p_event_date => l_accounting_date,
6369: ( p_event_source_info => l_event_source_info,
6370: p_event_class_code => FUTURE_DATED_PAYMENTS_CLASS,
6371: p_event_type_code => p_event_type_code,
6372: p_event_date => l_accounting_date,
6373: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
6374: p_valuation_method => NULL,
6375: p_security_context => l_event_security_context,
6376: p_calling_sequence => l_curr_calling_sequence
6377: );
6375: p_security_context => l_event_security_context,
6376: p_calling_sequence => l_curr_calling_sequence
6377: );
6378:
6379: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6381: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6382: G_MODULE_NAME || l_procedure_name,
6383: l_log_msg);
6456: l_check_ids t_check_ids;
6457: l_org_ids t_org_ids;
6458: l_legal_entity_ids t_legal_entity_ids;
6459: l_ledger_ids t_ledger_ids;
6460: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6461: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6462:
6463: CURSOR l_aid_events_mo_cur_period IS
6464: SELECT AID.accounting_event_id,
6457: l_org_ids t_org_ids;
6458: l_legal_entity_ids t_legal_entity_ids;
6459: l_ledger_ids t_ledger_ids;
6460: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6461: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6462:
6463: CURSOR l_aid_events_mo_cur_period IS
6464: SELECT AID.accounting_event_id,
6465: AID.invoice_id,
6690: G_MODULE_NAME || l_procedure_name,
6691: l_log_msg);
6692: END IF;
6693:
6694: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6695: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6696: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6697: G_MODULE_NAME || l_procedure_name,
6698: l_log_msg);
6697: G_MODULE_NAME || l_procedure_name,
6698: l_log_msg);
6699: END IF;
6700:
6701: AP_XLA_EVENTS_PKG.UPDATE_EVENT
6702: ( p_event_source_info => l_event_source_info,
6703: p_event_id => l_event_ids(i),
6704: p_event_type_code => NULL,
6705: p_event_date => p_sweep_to_date,
6731: WHERE aeh.event_id = l_event_ids(i)
6732: AND aeh.application_id = 200
6733: AND aeh.gl_transfer_status_code <> 'Y');
6734:
6735: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6736: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6737: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6738: G_MODULE_NAME || l_procedure_name,
6739: l_log_msg);
6797: p_check_id => l_check_ids(i),
6798: p_calling_sequence => l_curr_calling_sequence
6799: );
6800:
6801: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6802: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6803: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6804: G_MODULE_NAME || l_procedure_name,
6805: l_log_msg);
6804: G_MODULE_NAME || l_procedure_name,
6805: l_log_msg);
6806: END IF;
6807:
6808: AP_XLA_EVENTS_PKG.UPDATE_EVENT
6809: ( p_event_source_info => l_event_source_info,
6810: p_event_id => l_event_ids(i),
6811: p_event_type_code => NULL,
6812: p_event_date => p_sweep_to_date,
6839: AND aeh.application_id = 200
6840: AND aeh.gl_transfer_status_code <> 'Y');
6841:
6842:
6843: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6844: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6845: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6846: G_MODULE_NAME || l_procedure_name,
6847: l_log_msg);
6949: l_check_ids t_check_ids;
6950: l_org_ids t_org_ids;
6951: l_legal_entity_ids t_legal_entity_ids;
6952: l_ledger_ids t_ledger_ids;
6953: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6954: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6955:
6956: CURSOR l_aid_events_cur IS
6957: SELECT AID.accounting_event_id,
6950: l_org_ids t_org_ids;
6951: l_legal_entity_ids t_legal_entity_ids;
6952: l_ledger_ids t_ledger_ids;
6953: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6954: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6955:
6956: CURSOR l_aid_events_cur IS
6957: SELECT AID.accounting_event_id,
6958: AID.invoice_id,
7057: p_invoice_id => l_invoice_ids(i),
7058: p_calling_sequence => l_curr_calling_sequence
7059: );
7060:
7061: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7063: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7064: G_MODULE_NAME || l_procedure_name,
7065: l_log_msg);
7064: G_MODULE_NAME || l_procedure_name,
7065: l_log_msg);
7066: END IF;
7067:
7068: AP_XLA_EVENTS_PKG.UPDATE_EVENT
7069: ( p_event_source_info => l_event_source_info,
7070: p_event_id => l_event_ids(i),
7071: p_event_type_code => NULL,
7072: p_event_date => p_sweep_to_date,
7098: WHERE aeh.event_id = l_event_ids(i)
7099: AND aeh.application_id = 200
7100: AND aeh.gl_transfer_status_code <> 'Y');
7101:
7102: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7103: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7104: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7105: G_MODULE_NAME || l_procedure_name,
7106: l_log_msg);
7159: p_check_id => l_check_ids(i),
7160: p_calling_sequence => l_curr_calling_sequence
7161: );
7162:
7163: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7164: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7165: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7166: G_MODULE_NAME || l_procedure_name,
7167: l_log_msg);
7166: G_MODULE_NAME || l_procedure_name,
7167: l_log_msg);
7168: END IF;
7169:
7170: AP_XLA_EVENTS_PKG.UPDATE_EVENT
7171: ( p_event_source_info => l_event_source_info,
7172: p_event_id => l_event_ids(i),
7173: p_event_type_code => NULL,
7174: p_event_date => p_sweep_to_date,
7200: WHERE aeh.event_id = l_event_ids(i)
7201: AND aeh.application_id = 200
7202: AND aeh.gl_transfer_status_code <> 'Y');
7203:
7204: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7205: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7206: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7207: G_MODULE_NAME || l_procedure_name,
7208: l_log_msg);
7403: | PRAMETERS:
7404: | p_org_id: Organization ID
7405: | p_calling_sequence: Debug information
7406: |
7407: | RETURN: XLA_EVENTS_PUB_PKG.T_SECURITY
7408: |
7409: | KNOWN ISSUES:
7410: |
7411: | NOTES:
7416: *===========================================================================*/
7417: FUNCTION get_event_security_context(
7418: p_org_id IN NUMBER,
7419: p_calling_sequence IN VARCHAR2)
7420: RETURN XLA_EVENTS_PUB_PKG.T_SECURITY
7421: IS
7422:
7423: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
7424:
7419: p_calling_sequence IN VARCHAR2)
7420: RETURN XLA_EVENTS_PUB_PKG.T_SECURITY
7421: IS
7422:
7423: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
7424:
7425: -- Logging:
7426: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SECURITY_CONTEXT';
7427: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7461: | p_ledger_id: Ledger ID
7462: | p_invoice_id: Invoice ID
7463: | p_calling_sequence: Debug information
7464: |
7465: | RETURN: XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7466: |
7467: | KNOWN ISSUES:
7468: |
7469: | NOTES:
7476: p_legal_entity_id IN NUMBER,
7477: p_ledger_id IN NUMBER,
7478: p_invoice_id IN NUMBER,
7479: p_calling_sequence IN VARCHAR2)
7480: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7481: IS
7482:
7483: l_invoice_num VARCHAR2(50);
7484: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7480: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7481: IS
7482:
7483: l_invoice_num VARCHAR2(50);
7484: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7485:
7486: -- Logging:
7487: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
7488: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7533: | p_ledger_id: Ledger ID
7534: | p_invoice_id: Invoice ID
7535: | p_calling_sequence: Debug information
7536: |
7537: | RETURN: XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7538: |
7539: | KNOWN ISSUES:
7540: |
7541: | NOTES:
7548: p_legal_entity_id IN NUMBER,
7549: p_ledger_id IN NUMBER,
7550: p_check_id IN NUMBER,
7551: p_calling_sequence IN VARCHAR2)
7552: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7553: IS
7554:
7555: l_check_number NUMBER(15);
7556: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7552: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
7553: IS
7554:
7555: l_check_number NUMBER(15);
7556: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7557:
7558: -- Logging:
7559: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_EVENT_SOURCE_INFO';
7560: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
8218: UNION
8219: SELECT app_aid.invoice_id,
8220: unapp_aid.accounting_Event_id unapp_event_id
8221: FROM ap_invoice_distributions_all app_aid,
8222: xla_events xe_app,
8223: ap_invoices_all ai,
8224: ap_invoice_distributions_all unapp_aid,
8225: xla_events xe_unapp
8226: WHERE ai.invoice_id = p_invoice_id
8221: FROM ap_invoice_distributions_all app_aid,
8222: xla_events xe_app,
8223: ap_invoices_all ai,
8224: ap_invoice_distributions_all unapp_aid,
8225: xla_events xe_unapp
8226: WHERE ai.invoice_id = p_invoice_id
8227: AND app_aid.prepay_distribution_id IS NOT NULL
8228: AND app_aid.accounting_event_id = xe_app.event_id
8229: AND xe_app.application_id = 200
8243: l_legal_entity_id AP_INVOICES_ALL.legal_entity_id%TYPE;
8244: l_ledger_id AP_INVOICES_ALL.set_of_books_id%TYPE;
8245: l_transaction_date DATE;
8246: l_curr_calling_sequence VARCHAR2(4000);
8247: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
8248: l_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
8249: l_accounting_event_id XLA_EVENTS.event_id%TYPE;
8250: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
8251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
8245: l_transaction_date DATE;
8246: l_curr_calling_sequence VARCHAR2(4000);
8247: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
8248: l_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
8249: l_accounting_event_id XLA_EVENTS.event_id%TYPE;
8250: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
8251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
8252:
8253: l_procedure_name CONSTANT VARCHAR2(30) := 'Set_Prepay_Event_Noaction';
8246: l_curr_calling_sequence VARCHAR2(4000);
8247: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
8248: l_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
8249: l_accounting_event_id XLA_EVENTS.event_id%TYPE;
8250: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
8251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
8252:
8253: l_procedure_name CONSTANT VARCHAR2(30) := 'Set_Prepay_Event_Noaction';
8254:
8343: G_MODULE_NAME || l_procedure_name,
8344: l_log_msg);
8345: END IF;
8346:
8347: AP_XLA_EVENTS_PKG.UPDATE_EVENT
8348: (p_event_source_info => l_event_source_info,
8349: p_event_id => l_accounting_event_id,
8350: p_event_type_code => NULL,
8351: p_event_date => NULL,
8348: (p_event_source_info => l_event_source_info,
8349: p_event_id => l_accounting_event_id,
8350: p_event_type_code => NULL,
8351: p_event_date => NULL,
8352: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
8353: p_valuation_method => NULL,
8354: p_security_context => l_event_security_context,
8355: p_calling_sequence => l_curr_calling_sequence);
8356: