[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:
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;
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:
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:
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:
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,
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,
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);
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,
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
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: );
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: );
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,
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
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
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
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
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';
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,
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,
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
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
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,
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
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,
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);
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
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,
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
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,
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
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
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,
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:
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
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
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;
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;
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: );
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: );
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: );
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,
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,
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;
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;
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:
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: