[Home] [Help]
186: ---------------------------------------------------------------------
187: FUNCTION get_event_security_context
188: ( p_org_id IN NUMBER,
189: p_calling_sequence IN VARCHAR2
190: ) RETURN XLA_EVENTS_PUB_PKG.T_SECURITY;
191:
192: ---------------------------------------------------------------------
193: --Definition of get_invoice_event_source_info function (private)
194: ---------------------------------------------------------------------
196: ( p_legal_entity_id IN NUMBER,
197: p_ledger_id IN NUMBER,
198: p_invoice_id IN NUMBER,
199: p_calling_sequence IN VARCHAR2
200: ) RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
201:
202: ---------------------------------------------------------------------
203: --Definition of get_payment_event_source_info function (private)
204: ---------------------------------------------------------------------
206: ( p_legal_entity_id IN NUMBER,
207: p_ledger_id IN NUMBER,
208: p_check_id IN NUMBER,
209: p_calling_sequence IN VARCHAR2
210: ) RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
211:
212: ---------------------------------------------------------------------
213: --Definition of get_invoice_info procedure (private)
214: ---------------------------------------------------------------------
897:
898: l_legal_entity_id NUMBER(15);
899: l_ledger_id NUMBER(15);
900: l_org_id NUMBER(15);
901: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
902: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
903: l_prepay_app_event_id NUMBER;
904: l_inv_adj_event_id NUMBER;
905: l_curr_calling_sequence VARCHAR2(2000);
898: l_legal_entity_id NUMBER(15);
899: l_ledger_id NUMBER(15);
900: l_org_id NUMBER(15);
901: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
902: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
903: l_prepay_app_event_id NUMBER;
904: l_inv_adj_event_id NUMBER;
905: l_curr_calling_sequence VARCHAR2(2000);
906: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1125: (p_event_source_info => l_event_source_info,
1126: p_event_id => l_Accounting_Event_id,
1127: p_event_type_code => 'PREPAYMENT UNAPPLIED',
1128: p_event_date => NULL,
1129: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1130: p_valuation_method => NULL,
1131: p_security_context => l_event_security_context,
1132: p_calling_sequence => l_curr_calling_sequence);
1133:
1154: (p_event_source_info => l_event_source_info,
1155: p_event_id => l_prepay_app_event_id,
1156: p_event_type_code => 'PREPAYMENT APPLIED',
1157: p_event_date => NULL,
1158: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1159: p_valuation_method => NULL,
1160: p_security_context => l_event_security_context,
1161: p_calling_sequence => l_curr_calling_sequence);
1162:
1198: (p_event_source_info => l_event_source_info,
1199: p_event_id => l_prepay_app_event_id,
1200: p_event_type_code => 'PREPAYMENT APPLIED',
1201: p_event_date => NULL,
1202: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1203: p_valuation_method => NULL,
1204: p_security_context => l_event_security_context,
1205: p_calling_sequence => l_curr_calling_sequence);
1206:
1394: ( is_event_complete ( p_doc_type => INVOICES_ENTITY,
1395: p_source_id => p_invoice_id,
1396: p_calling_sequence => l_curr_calling_sequence
1397: ) = 'CREATED') THEN
1398: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1399: ELSE
1400: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1401: END IF;
1402:
1396: p_calling_sequence => l_curr_calling_sequence
1397: ) = 'CREATED') THEN
1398: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1399: ELSE
1400: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1401: END IF;
1402:
1403: get_invoice_info
1404: ( p_invoice_id => p_invoice_id,
1570: l_event_status VARCHAR2(1);
1571: l_legal_entity_id NUMBER(15);
1572: l_ledger_id NUMBER(15);
1573: l_org_id NUMBER(15);
1574: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1575: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1576: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1577:
1578: l_curr_calling_sequence VARCHAR2(2000);
1571: l_legal_entity_id NUMBER(15);
1572: l_ledger_id NUMBER(15);
1573: l_org_id NUMBER(15);
1574: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1575: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1576: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1577:
1578: l_curr_calling_sequence VARCHAR2(2000);
1579:
1599: ( is_event_complete
1600: ( p_doc_type => INVOICES_ENTITY,
1601: p_source_id => p_invoice_id,
1602: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1603: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1604: ELSE
1605: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1606: END IF;
1607:
1601: p_source_id => p_invoice_id,
1602: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1603: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1604: ELSE
1605: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1606: END IF;
1607:
1608: get_invoice_info
1609: ( p_invoice_id => p_invoice_id,
1708: l_event_status VARCHAR2(1);
1709: l_legal_entity_id NUMBER(15);
1710: l_ledger_id NUMBER(15);
1711: l_org_id NUMBER(15);
1712: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1713: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1714: l_matured_events_count NUMBER;
1715: l_unmatured_events_count NUMBER;
1716: l_amount NUMBER;
1709: l_legal_entity_id NUMBER(15);
1710: l_ledger_id NUMBER(15);
1711: l_org_id NUMBER(15);
1712: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
1713: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
1714: l_matured_events_count NUMBER;
1715: l_unmatured_events_count NUMBER;
1716: l_amount NUMBER;
1717: l_currency_code VARCHAR2(15);
1760: IF (is_event_complete
1761: (p_doc_type => PAYMENTS_ENTITY,
1762: p_source_id => p_check_id,
1763: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1764: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1765: ELSE
1766: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1767: END IF;
1768:
1762: p_source_id => p_check_id,
1763: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
1764: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
1765: ELSE
1766: l_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
1767: END IF;
1768:
1769: get_payment_info
1770: ( p_check_id => p_check_id,
1937: ( p_event_source_info => l_event_source_info,
1938: p_event_id => l_accounting_event_id,
1939: p_event_type_code => NULL,
1940: p_event_date => NULL,
1941: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
1942: p_valuation_method => NULL,
1943: p_security_context => l_event_security_context,
1944: p_calling_sequence => l_curr_calling_sequence
1945: );
2011: l_legal_entity_id NUMBER(15);
2012: l_ledger_id NUMBER(15);
2013: l_org_id NUMBER(15);
2014: l_Event_count NUMBER;
2015: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2016: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2017: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2018: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2019:
2012: l_ledger_id NUMBER(15);
2013: l_org_id NUMBER(15);
2014: l_Event_count NUMBER;
2015: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2016: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2017: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2018: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2019:
2020: l_curr_calling_sequence VARCHAR2(2000);
2013: l_org_id NUMBER(15);
2014: l_Event_count NUMBER;
2015: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2016: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2017: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2018: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2019:
2020: l_curr_calling_sequence VARCHAR2(2000);
2021:
2024: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2025: --7011943
2026: l_count NUMBER;
2027: l_check_id NUMBER;
2028: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2029: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2030:
2031: BEGIN
2032:
2025: --7011943
2026: l_count NUMBER;
2027: l_check_id NUMBER;
2028: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2029: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2030:
2031: BEGIN
2032:
2033: l_curr_calling_sequence := p_calling_sequence ||
2093: p_source_id => p_invoice_id,
2094: p_calling_sequence => l_curr_calling_sequence
2095: ) = 'CREATED') THEN
2096:
2097: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2098:
2099: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2100: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2101: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2108: ( p_event_source_info => l_event_source_info,
2109: p_event_class_code => NULL,
2110: p_event_type_code => NULL,
2111: p_event_date => NULL,
2112: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2113: p_event_number => NULL,
2114: p_valuation_method => NULL,
2115: p_security_context => l_event_security_context,
2116: p_calling_sequence => l_curr_calling_sequence
2124: END IF;
2125:
2126: ELSE
2127:
2128: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2129:
2130: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2131:
2132: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2140: ( p_event_source_info => l_event_source_info,
2141: p_event_class_code => NULL,
2142: p_event_type_code => NULL,
2143: p_event_date => NULL,
2144: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2145: p_event_number => NULL,
2146: p_valuation_method => NULL,
2147: p_security_context => l_event_security_context,
2148: p_calling_sequence => l_curr_calling_sequence
2234: l_log_msg);
2235: END IF;
2236:
2237: IF ( l_event_info.event_status_code IN
2238: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2239: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE
2240: ) AND
2241: l_event_info.event_status_code <> l_invoice_event_status) THEN
2242:
2235: END IF;
2236:
2237: IF ( l_event_info.event_status_code IN
2238: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2239: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE
2240: ) AND
2241: l_event_info.event_status_code <> l_invoice_event_status) THEN
2242:
2243: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2371: p_source_id => l_curr_check_id,
2372: p_calling_sequence => l_curr_calling_sequence) = 'CREATED')
2373: THEN
2374:
2375: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2376:
2377: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EIXSTS';
2378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2379: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2386: ( p_event_source_info => l_event_source_info,
2387: p_event_class_code => NULL,
2388: p_event_type_code => NULL,
2389: p_event_date => NULL,
2390: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2391: p_event_number => NULL,
2392: p_valuation_method => NULL,
2393: p_security_context => l_event_security_context,
2394: p_calling_sequence => l_curr_calling_sequence
2403: END IF;
2404:
2405: ELSE
2406:
2407: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2408:
2409: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2410: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2411: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2418: ( p_event_source_info => l_event_source_info,
2419: p_event_class_code => NULL,
2420: p_event_type_code => NULL,
2421: p_event_date => NULL,
2422: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2423: p_event_number => NULL,
2424: p_valuation_method => NULL,
2425: p_security_context => l_event_security_context,
2426: p_calling_sequence => l_curr_calling_sequence
2461: l_log_msg);
2462: END IF;
2463:
2464: IF (l_event_info.event_status_code IN
2465: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2466: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2467: l_event_info.event_status_code <> l_payment_event_status) THEN
2468:
2469: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2462: END IF;
2463:
2464: IF (l_event_info.event_status_code IN
2465: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2466: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2467: l_event_info.event_status_code <> l_payment_event_status) THEN
2468:
2469: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2470: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2567:
2568: l_legal_entity_id NUMBER(15);
2569: l_ledger_id NUMBER(15);
2570: l_org_id NUMBER(15);
2571: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2572: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2573: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2574: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2575:
2568: l_legal_entity_id NUMBER(15);
2569: l_ledger_id NUMBER(15);
2570: l_org_id NUMBER(15);
2571: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2572: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2573: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2574: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2575:
2576: l_curr_calling_sequence VARCHAR2(2000);
2569: l_ledger_id NUMBER(15);
2570: l_org_id NUMBER(15);
2571: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
2572: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2573: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
2574: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
2575:
2576: l_curr_calling_sequence VARCHAR2(2000);
2577:
2580: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2581: --7011943
2582: l_count NUMBER;
2583: l_check_id NUMBER;
2584: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2585: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2586:
2587:
2588: BEGIN
2581: --7011943
2582: l_count NUMBER;
2583: l_check_id NUMBER;
2584: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2585: l_event_source_info_temp XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2586:
2587:
2588: BEGIN
2589:
2715: (p_doc_type => INVOICES_ENTITY,
2716: p_source_id => l_curr_invoice_id,
2717: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
2718:
2719: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2720:
2721: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2722: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2723: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2730: ( p_event_source_info => l_event_source_info,
2731: p_event_class_code => NULL,
2732: p_event_type_code => NULL,
2733: p_event_date => NULL,
2734: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2735: p_event_number => NULL,
2736: p_valuation_method => NULL,
2737: p_security_context => l_event_security_context,
2738: p_calling_sequence => l_curr_calling_sequence
2745: l_log_msg);
2746: END IF;
2747: ELSE
2748:
2749: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2750:
2751: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2752: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2753: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2760: ( p_event_source_info => l_event_source_info,
2761: p_event_class_code => NULL,
2762: p_event_type_code => NULL,
2763: p_event_date => NULL,
2764: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2765: p_event_number => NULL,
2766: p_valuation_method => NULL,
2767: p_security_context => l_event_security_context,
2768: p_calling_sequence => l_curr_calling_sequence);
2837: l_log_msg);
2838: END IF;
2839:
2840: IF ( l_event_info.event_status_code IN
2841: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2842: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2843: l_event_info.event_status_code <> l_invoice_event_status) THEN
2844:
2845: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2838: END IF;
2839:
2840: IF ( l_event_info.event_status_code IN
2841: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
2842: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
2843: l_event_info.event_status_code <> l_invoice_event_status) THEN
2844:
2845: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2846: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2976: (p_doc_type => PAYMENTS_ENTITY,
2977: p_source_id => p_check_id,
2978: p_calling_sequence => l_curr_calling_sequence) = 'CREATED') THEN
2979:
2980: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2981:
2982: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2983: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2984: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2991: ( p_event_source_info => l_event_source_info,
2992: p_event_class_code => NULL,
2993: p_event_type_code => NULL,
2994: p_event_date => NULL,
2995: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
2996: p_event_number => NULL,
2997: p_valuation_method => NULL,
2998: p_security_context => l_event_security_context,
2999: p_calling_sequence => l_curr_calling_sequence
3007: END IF;
3008:
3009: ELSE
3010:
3011: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3012:
3013: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3014: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3015: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3022: ( p_event_source_info => l_event_source_info,
3023: p_event_class_code => NULL,
3024: p_event_type_code => NULL,
3025: p_event_date => NULL,
3026: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3027: p_event_number => NULL,
3028: p_valuation_method => NULL,
3029: p_security_context => l_event_security_context,
3030: p_calling_sequence => l_curr_calling_sequence
3088: l_log_msg);
3089: END IF;
3090:
3091: IF ( l_event_info.event_status_code IN
3092: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3093: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3094: l_event_info.event_status_code <> l_payment_event_status) THEN
3095:
3096: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3089: END IF;
3090:
3091: IF ( l_event_info.event_status_code IN
3092: ( XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED,
3093: XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE) AND
3094: l_event_info.event_status_code <> l_payment_event_status) THEN
3095:
3096: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3097: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3244: l_log_msg);
3245: END IF;
3246:
3247: UPDATE XLA_EVENTS_INT_GT XEG
3248: SET event_status_code = XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION
3249: WHERE XEG.application_id = 200
3250: AND XEG.source_id_int_1 IN
3251: ( SELECT AC.check_id
3252: FROM AP_CHECKS_ALL AC
3260: G_MODULE_NAME || l_procedure_name,
3261: l_log_msg);
3262: END IF;
3263:
3264: XLA_EVENTS_PUB_PKG.update_bulk_event_statuses(p_application_id => '200');
3265:
3266: l_log_msg := 'after calling xla update status api';
3267: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3268: FND_LOG.STRING(G_LEVEL_STATEMENT,
3337: p_calling_sequence IN VARCHAR2)
3338: IS
3339:
3340: l_event_type VARCHAR2(30) := PAYMENT_CREATED_TYPE;
3341: l_event_status VARCHAR2(1) := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3342: l_curr_calling_sequence VARCHAR2(2000);
3343: l_count NUMBER := 0;
3344:
3345: -- Logging:
3461: l_log_msg);
3462: END IF;
3463:
3464: BEGIN
3465: XLA_EVENTS_PUB_PKG.create_bulk_events
3466: (p_source_application_id => NULL
3467: ,p_application_id => '200'
3468: ,p_legal_entity_id => NULL
3469: ,p_ledger_id => p_set_of_books_id
4152:
4153: l_legal_entity_id NUMBER(15);
4154: l_ledger_id NUMBER(15);
4155: l_org_id NUMBER(15);
4156: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4157: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4158: l_accounting_event_id NUMBER := NULL;
4159: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4160:
4153: l_legal_entity_id NUMBER(15);
4154: l_ledger_id NUMBER(15);
4155: l_org_id NUMBER(15);
4156: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4157: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4158: l_accounting_event_id NUMBER := NULL;
4159: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4160:
4161: l_exchange_rate_type VARCHAR2(30);
4155: l_org_id NUMBER(15);
4156: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
4157: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
4158: l_accounting_event_id NUMBER := NULL;
4159: l_event_info XLA_EVENTS_PUB_PKG.T_EVENT_INFO;
4160:
4161: l_exchange_rate_type VARCHAR2(30);
4162: l_exchange_rate_date DATE;
4163: l_exchange_rate NUMBER;
5198:
5199: l_legal_entity_id NUMBER(15);
5200: l_ledger_id NUMBER(15);
5201: l_org_id NUMBER(15);
5202: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5203: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5204: l_diff_gl_date_dists NUMBER := 0;
5205: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
5206:
5199: l_legal_entity_id NUMBER(15);
5200: l_ledger_id NUMBER(15);
5201: l_org_id NUMBER(15);
5202: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5203: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5204: l_diff_gl_date_dists NUMBER := 0;
5205: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
5206:
5207: l_curr_calling_sequence VARCHAR2(2000);
5397:
5398: l_legal_entity_id NUMBER(15);
5399: l_ledger_id NUMBER(15);
5400: l_org_id NUMBER(15);
5401: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5402: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5403:
5404: l_processed_events NUMBER;
5405: l_event_count NUMBER;
5398: l_legal_entity_id NUMBER(15);
5399: l_ledger_id NUMBER(15);
5400: l_org_id NUMBER(15);
5401: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5402: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5403:
5404: l_processed_events NUMBER;
5405: l_event_count NUMBER;
5406: l_accounting_date DATE;
5537: ( p_event_source_info => l_event_source_info,
5538: p_event_class_code => l_event_class,
5539: p_event_type_code => p_event_type_code,
5540: p_event_date => l_accounting_date,
5541: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
5542: p_valuation_method => NULL,
5543: p_security_context => l_event_security_context,
5544: p_calling_sequence => l_curr_calling_sequence
5545: );
5584: ( p_event_source_info => l_event_source_info,
5585: p_event_class_code => RECONCILED_PAYMENTS_CLASS,
5586: p_event_type_code => p_event_type_code,
5587: p_event_date => l_accounting_date,
5588: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
5589: p_valuation_method => NULL,
5590: p_security_context => l_event_security_context,
5591: p_calling_sequence => l_curr_calling_sequence
5592: );
5625: ( p_event_source_info => l_event_source_info,
5626: p_event_class_code => FUTURE_DATED_PAYMENTS_CLASS,
5627: p_event_type_code => p_event_type_code,
5628: p_event_date => l_accounting_date,
5629: p_event_status_code => XLA_EVENTS_PUB_PKG.C_EVENT_NOACTION,
5630: p_valuation_method => NULL,
5631: p_security_context => l_event_security_context,
5632: p_calling_sequence => l_curr_calling_sequence
5633: );
5712: l_check_ids t_check_ids;
5713: l_org_ids t_org_ids;
5714: l_legal_entity_ids t_legal_entity_ids;
5715: l_ledger_ids t_ledger_ids;
5716: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5717: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5718:
5719: CURSOR l_aid_events_mo_cur_period IS
5720: SELECT AID.accounting_event_id,
5713: l_org_ids t_org_ids;
5714: l_legal_entity_ids t_legal_entity_ids;
5715: l_ledger_ids t_ledger_ids;
5716: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
5717: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
5718:
5719: CURSOR l_aid_events_mo_cur_period IS
5720: SELECT AID.accounting_event_id,
5721: AID.invoice_id,
6205: l_check_ids t_check_ids;
6206: l_org_ids t_org_ids;
6207: l_legal_entity_ids t_legal_entity_ids;
6208: l_ledger_ids t_ledger_ids;
6209: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6210: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6211:
6212: CURSOR l_aid_events_cur IS
6213: SELECT AID.accounting_event_id,
6206: l_org_ids t_org_ids;
6207: l_legal_entity_ids t_legal_entity_ids;
6208: l_ledger_ids t_ledger_ids;
6209: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6210: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6211:
6212: CURSOR l_aid_events_cur IS
6213: SELECT AID.accounting_event_id,
6214: AID.invoice_id,
6658: | PRAMETERS:
6659: | p_org_id: Organization ID
6660: | p_calling_sequence: Debug information
6661: |
6662: | RETURN: XLA_EVENTS_PUB_PKG.T_SECURITY
6663: |
6664: | KNOWN ISSUES:
6665: |
6666: | NOTES:
6671: *===========================================================================*/
6672: FUNCTION get_event_security_context(
6673: p_org_id IN NUMBER,
6674: p_calling_sequence IN VARCHAR2)
6675: RETURN XLA_EVENTS_PUB_PKG.T_SECURITY
6676: IS
6677:
6678: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6679:
6674: p_calling_sequence IN VARCHAR2)
6675: RETURN XLA_EVENTS_PUB_PKG.T_SECURITY
6676: IS
6677:
6678: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6679:
6680: -- Logging:
6681: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SECURITY_CONTEXT';
6682: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6716: | p_ledger_id: Ledger ID
6717: | p_invoice_id: Invoice ID
6718: | p_calling_sequence: Debug information
6719: |
6720: | RETURN: XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6721: |
6722: | KNOWN ISSUES:
6723: |
6724: | NOTES:
6731: p_legal_entity_id IN NUMBER,
6732: p_ledger_id IN NUMBER,
6733: p_invoice_id IN NUMBER,
6734: p_calling_sequence IN VARCHAR2)
6735: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6736: IS
6737:
6738: l_invoice_num VARCHAR2(50);
6739: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6735: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6736: IS
6737:
6738: l_invoice_num VARCHAR2(50);
6739: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6740:
6741: -- Logging:
6742: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
6743: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6788: | p_ledger_id: Ledger ID
6789: | p_invoice_id: Invoice ID
6790: | p_calling_sequence: Debug information
6791: |
6792: | RETURN: XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6793: |
6794: | KNOWN ISSUES:
6795: |
6796: | NOTES:
6803: p_legal_entity_id IN NUMBER,
6804: p_ledger_id IN NUMBER,
6805: p_check_id IN NUMBER,
6806: p_calling_sequence IN VARCHAR2)
6807: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6808: IS
6809:
6810: l_check_number NUMBER(15);
6811: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6807: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
6808: IS
6809:
6810: l_check_number NUMBER(15);
6811: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6812:
6813: -- Logging:
6814: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_EVENT_SOURCE_INFO';
6815: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;