[Home] [Help]
1: PACKAGE BODY ARP_XLA_EVENTS AS
2: /* $Header: ARXLAEVB.pls 120.56.12010000.8 2008/12/30 08:52:41 nproddut ship $ */
3:
4: /*=======================================================================+
5: | Package Global Constants
36: /*========================================================================
37: | Prototype Declarations Procedures
38: *=======================================================================*/
39: PROCEDURE define_arrays( p_select_c IN INTEGER,
40: p_xla_ev_rec IN xla_events_type,
41: p_ev_rec IN ev_rec_type,
42: p_call_point IN NUMBER);
43:
44: PROCEDURE get_column_values(p_select_c IN INTEGER,
41: p_ev_rec IN ev_rec_type,
42: p_call_point IN NUMBER);
43:
44: PROCEDURE get_column_values(p_select_c IN INTEGER,
45: p_xla_ev_rec IN xla_events_type,
46: p_call_point IN NUMBER,
47: p_ev_rec OUT NOCOPY ev_rec_type);
48:
49: PROCEDURE Build_Stmt(p_xla_ev_rec IN xla_events_type,
45: p_xla_ev_rec IN xla_events_type,
46: p_call_point IN NUMBER,
47: p_ev_rec OUT NOCOPY ev_rec_type);
48:
49: PROCEDURE Build_Stmt(p_xla_ev_rec IN xla_events_type,
50: p_call_point IN NUMBER,
51: p_stmt OUT NOCOPY VARCHAR2 );
52:
53: PROCEDURE Create_All_Events(p_xla_ev_rec IN xla_events_type);
49: PROCEDURE Build_Stmt(p_xla_ev_rec IN xla_events_type,
50: p_call_point IN NUMBER,
51: p_stmt OUT NOCOPY VARCHAR2 );
52:
53: PROCEDURE Create_All_Events(p_xla_ev_rec IN xla_events_type);
54:
55: PROCEDURE dump_ev_rec(p_ev_rec IN OUT NOCOPY ev_rec_type,
56: p_i IN BINARY_INTEGER);
57:
59: p_i IN BINARY_INTEGER,
60: p_tag IN VARCHAR2);
61:
62: PROCEDURE dump_event_info
63: (p_ev_info_tab IN OUT NOCOPY xla_events_pub_pkg.t_array_entity_event_info_s,
64: p_i IN BINARY_INTEGER ,
65: p_tag IN VARCHAR2 );
66:
67: PROCEDURE Upd_Dist(p_xla_ev_rec IN xla_events_type);
63: (p_ev_info_tab IN OUT NOCOPY xla_events_pub_pkg.t_array_entity_event_info_s,
64: p_i IN BINARY_INTEGER ,
65: p_tag IN VARCHAR2 );
66:
67: PROCEDURE Upd_Dist(p_xla_ev_rec IN xla_events_type);
68:
69: PROCEDURE un_denormalize_posting_entity
70: ( p_xla_doc IN VARCHAR2,
71: p_event_id IN NUMBER );
70: ( p_xla_doc IN VARCHAR2,
71: p_event_id IN NUMBER );
72:
73: PROCEDURE dump_event_source_info
74: (x_ev_source_info IN OUT NOCOPY xla_events_pub_pkg.t_event_Source_info);
75:
76: FUNCTION entity_code( p_doc_table IN VARCHAR2)
77: RETURN VARCHAR2;
78:
78:
79: /*========================================================================
80: | Prototype Declarations Functions
81: *=======================================================================*/
82: FUNCTION Get_Select_Cursor(p_xla_ev_rec IN xla_events_type,
83: p_call_point IN NUMBER)
84: RETURN INTEGER;
85:
86: FUNCTION Change_Matrix(
86: FUNCTION Change_Matrix(
87: trx_status IN VARCHAR2 ,
88: dist_gl_date IN DATE ,
89: ev_match_gl_date IN DATE ,
90: ev_match_status IN xla_events.event_status_code%TYPE,
91: posttogl IN VARCHAR2) RETURN VARCHAR2;
92:
93: FUNCTION is_one_acct_asg_on_ctlgd
94: (p_invoice_id IN NUMBER,
150: 'SELECT ae.event_id,
151: ae.event_date,
152: ae.event_status_code,
153: ae.event_type_code
154: FROM '||xla_user||'.xla_events ae
155: WHERE ae.event_id = :dist_event_id
156: AND ae.application_id = 222';
157:
158: log(' l_stmt :'||l_stmt);
203: ' select ae.event_id ,
204: ae.event_date ,
205: ae.event_status_code,
206: ae.event_type_code
207: from xla_events ae,
208: xla_transaction_entities_upg xt
209: where xt.source_id_int_1 = :trx_id
210: and xt.entity_id = ae.entity_id
211: and nvl(ae.event_date,
299: | Date Author Description of Changes
300: | 21-AUG-2001 Vikram Ahluwalia Created
301: | 23-JUN-2005 Herve Yu Ledger Id and Transaction Date
302: *=======================================================================*/
303: PROCEDURE Create_Events(p_xla_ev_rec IN OUT NOCOPY xla_events_type ) IS
304:
305: /*-----------------------------------------------------------------------+
306: | Local Variable Declarations and initializations |
307: +-----------------------------------------------------------------------*/
304:
305: /*-----------------------------------------------------------------------+
306: | Local Variable Declarations and initializations |
307: +-----------------------------------------------------------------------*/
308: l_event_source_info xla_events_pub_pkg.t_event_source_info;
309: l_event_id NUMBER;
310: l_security xla_events_pub_pkg.t_security;
311:
312: BEGIN
306: | Local Variable Declarations and initializations |
307: +-----------------------------------------------------------------------*/
308: l_event_source_info xla_events_pub_pkg.t_event_source_info;
309: l_event_id NUMBER;
310: l_security xla_events_pub_pkg.t_security;
311:
312: BEGIN
313:
314: log('ARP_XLA_EVENTS.Create_Events()+');
310: l_security xla_events_pub_pkg.t_security;
311:
312: BEGIN
313:
314: log('ARP_XLA_EVENTS.Create_Events()+');
315:
316: log('xla_from_doc_id :'
317: || p_xla_ev_rec.xla_from_doc_id);
318:
362: Upd_Dist(p_xla_ev_rec => p_xla_ev_rec);
363: END IF;
364:
365:
366: log('ARP_XLA_EVENTS.Create_Events()-');
367:
368: EXCEPTION
369: WHEN NO_DATA_FOUND THEN
370: log('NO_DATA_FOUND EXCEPTION: ARP_XLA_EVENTS.Create_Events');
366: log('ARP_XLA_EVENTS.Create_Events()-');
367:
368: EXCEPTION
369: WHEN NO_DATA_FOUND THEN
370: log('NO_DATA_FOUND EXCEPTION: ARP_XLA_EVENTS.Create_Events');
371: RAISE;
372:
373: WHEN OTHERS THEN
374: log('OTHERS EXCEPTION: ARP_XLA_EVENTS.Create_Events');
370: log('NO_DATA_FOUND EXCEPTION: ARP_XLA_EVENTS.Create_Events');
371: RAISE;
372:
373: WHEN OTHERS THEN
374: log('OTHERS EXCEPTION: ARP_XLA_EVENTS.Create_Events');
375: RAISE;
376:
377: END Create_Events;
378:
422: p_doc_table IN VARCHAR2,
423: p_mode IN VARCHAR2,
424: p_call IN VARCHAR2)
425: IS
426: l_xla_ev_rec arp_xla_events.xla_events_type;
427: BEGIN
428: log('arp_xla_events.create_events_doc ()+');
429: l_xla_ev_rec.xla_doc_table := p_doc_table;
430: l_xla_ev_rec.xla_from_doc_id := p_document_id;
424: p_call IN VARCHAR2)
425: IS
426: l_xla_ev_rec arp_xla_events.xla_events_type;
427: BEGIN
428: log('arp_xla_events.create_events_doc ()+');
429: l_xla_ev_rec.xla_doc_table := p_doc_table;
430: l_xla_ev_rec.xla_from_doc_id := p_document_id;
431: l_xla_ev_rec.xla_to_doc_id := p_document_id;
432: l_xla_ev_rec.xla_mode := p_mode;
430: l_xla_ev_rec.xla_from_doc_id := p_document_id;
431: l_xla_ev_rec.xla_to_doc_id := p_document_id;
432: l_xla_ev_rec.xla_mode := p_mode;
433: l_xla_ev_rec.xla_call := p_call;
434: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
435: log('arp_xla_events.create_events_doc ()-');
436: EXCEPTION
437: WHEN OTHERS THEN
438: log('EXCEPTION: arp_xla_events.create_events_doc');
431: l_xla_ev_rec.xla_to_doc_id := p_document_id;
432: l_xla_ev_rec.xla_mode := p_mode;
433: l_xla_ev_rec.xla_call := p_call;
434: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
435: log('arp_xla_events.create_events_doc ()-');
436: EXCEPTION
437: WHEN OTHERS THEN
438: log('EXCEPTION: arp_xla_events.create_events_doc');
439: RAISE;
434: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
435: log('arp_xla_events.create_events_doc ()-');
436: EXCEPTION
437: WHEN OTHERS THEN
438: log('EXCEPTION: arp_xla_events.create_events_doc');
439: RAISE;
440: END;
441:
442:
486: p_doc_table IN VARCHAR2,
487: p_mode IN VARCHAR2,
488: p_call IN VARCHAR2)
489: IS
490: l_xla_ev_rec arp_xla_events.xla_events_type;
491: BEGIN
492: log('arp_xla_events.create_events_req ()+');
493: l_xla_ev_rec.xla_doc_table := p_doc_table;
494: l_xla_ev_rec.xla_req_id := p_request_id;
488: p_call IN VARCHAR2)
489: IS
490: l_xla_ev_rec arp_xla_events.xla_events_type;
491: BEGIN
492: log('arp_xla_events.create_events_req ()+');
493: l_xla_ev_rec.xla_doc_table := p_doc_table;
494: l_xla_ev_rec.xla_req_id := p_request_id;
495: l_xla_ev_rec.xla_mode := p_mode;
496: l_xla_ev_rec.xla_call := p_call;
493: l_xla_ev_rec.xla_doc_table := p_doc_table;
494: l_xla_ev_rec.xla_req_id := p_request_id;
495: l_xla_ev_rec.xla_mode := p_mode;
496: l_xla_ev_rec.xla_call := p_call;
497: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
498: log('arp_xla_events.create_events_req ()-');
499: EXCEPTION
500: WHEN OTHERS THEN
501: log('EXCEPTION: arp_xla_events.create_events_req');
494: l_xla_ev_rec.xla_req_id := p_request_id;
495: l_xla_ev_rec.xla_mode := p_mode;
496: l_xla_ev_rec.xla_call := p_call;
497: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
498: log('arp_xla_events.create_events_req ()-');
499: EXCEPTION
500: WHEN OTHERS THEN
501: log('EXCEPTION: arp_xla_events.create_events_req');
502: RAISE;
497: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
498: log('arp_xla_events.create_events_req ()-');
499: EXCEPTION
500: WHEN OTHERS THEN
501: log('EXCEPTION: arp_xla_events.create_events_req');
502: RAISE;
503: END;
504:
505: /*========================================================================
545: | So by adding the clause based on :b_xla_mode, avoidance to retrieve the existing
546: | RECP_CREATE is accomplished so that the same situation of Upgrade happens.
547: |
548: *=======================================================================*/
549: PROCEDURE Build_Stmt(p_xla_ev_rec IN xla_events_type,
550: p_call_point IN NUMBER,
551: p_stmt OUT NOCOPY VARCHAR2) IS
552:
553: l_select_clause VARCHAR2(10000);
561: l_union VARCHAR2(10) ;
562: CRLF CONSTANT VARCHAR2(1) := arp_global.CRLF;
563:
564: BEGIN
565: log('ARP_XLA_EVENTS.Build_Stmt ()+');
566:
567:
568: IF p_xla_ev_rec.xla_doc_table IN ('CRHMCD','CRHAPP','CTCMAPP') THEN
569: l_union := ' UNION ';
733: ctlgd.rowid,
734: ev1.event_id ';
735:
736: l_from_clause :=
737: ' FROM xla_events' || ' ev1, ' || CRLF ||
738: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
739: ' ra_cust_trx_line_gl_dist' || l_all_clause || ' ctlgd ' || CRLF;
740:
741: --{BUG#5131345 suggested by perf team
874: ' SELECT adj.rowid,
875: ev1.event_id ';
876:
877: l_from_clause :=
878: ' FROM xla_events' || ' ev1, ' || CRLF ||
879: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
880: ' ar_adjustments' || l_all_clause || ' adj ' || CRLF;
881:
882: l_where_clause :=
1093: ' SELECT crh.rowid,
1094: ev1.event_id ';
1095:
1096: l_from_clause :=
1097: ' FROM xla_events' || ' ev1, ' || CRLF ||
1098: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1099: ' ar_cash_receipts' || l_all_clause || ' cr, ' || CRLF ||
1100: ' ar_cash_receipt_history' || l_all_clause || ' crh ' || CRLF ;
1101:
1286: ' SELECT mcd.rowid,
1287: ev1.event_id ';
1288:
1289: l_from_clause :=
1290: ' FROM xla_events' || ' ev1, ' || CRLF ||
1291: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1292: ' ar_cash_receipt_history' || l_all_clause || ' crh, ' || CRLF ||
1293: ' ar_misc_cash_distributions' || l_all_clause || ' mcd ' || CRLF ;
1294:
1515:
1516: log('l_select_clause ' || l_select_clause);
1517:
1518: l_from_clause :=
1519: ' FROM xla_events' || ' ev1, ' || CRLF ||
1520: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1521: ' ar_receivable_applications' || l_all_clause || ' app, ' || CRLF ||
1522: ' ar_cash_receipt_history' || l_all_clause || ' crh ' || CRLF ;
1523:
1663: ' SELECT app.rowid,
1664: ev1.event_id ';
1665:
1666: l_from_clause :=
1667: ' FROM xla_events' || ' ev1, ' || CRLF ||
1668: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1669: ' ar_receivable_applications' || l_all_clause || ' app ' || CRLF ;
1670:
1671:
1708: | The document id for BR is a transaction history id |
1709: | instead of customer_trx_id. The customer_trx_id is |
1710: | only used for storing the header info BR, all the |
1711: | accounting is driven by TRH. So the ARP_ACCT_MAIN |
1712: | package which call ARP_XLA_EVENTS to create events |
1713: | along with the accounting entries required a TRH_ID |
1714: | instead of a customer_trx_id. |
1715: | This change will not impact the upgrade mode neither|
1716: | the batch mode for they do not use document id |
1870:
1871: --use xla_transaction_entity_n1
1872:
1873: l_from_clause :=
1874: ' FROM xla_events' || ' ev1, ' || CRLF ||
1875: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1876: ' ar_transaction_history' || l_all_clause || ' trh, ' || CRLF ||
1877: ' ra_customer_trx' || l_all_clause || ' ct, ' || CRLF ||
1878: ' ra_cust_trx_types' || l_all_clause || ' tty ' || CRLF;
1931: l_order_by_clause ;
1932:
1933: log('p_stmt ' || SUBSTRB(p_stmt,1,3980));
1934:
1935: log('ARP_XLA_EVENTS.Build_Stmt ()-');
1936: EXCEPTION
1937: WHEN OTHERS THEN
1938: log('EXCEPTION: ARP_XLA_EVENTS.Build_Stmt');
1939: RAISE;
1934:
1935: log('ARP_XLA_EVENTS.Build_Stmt ()-');
1936: EXCEPTION
1937: WHEN OTHERS THEN
1938: log('EXCEPTION: ARP_XLA_EVENTS.Build_Stmt');
1939: RAISE;
1940:
1941: END Build_Stmt;
1942:
1962: | MODIFICATION HISTORY
1963: | Date Author Description of Changes
1964: *=======================================================================*/
1965: PROCEDURE define_arrays( p_select_c IN INTEGER,
1966: p_xla_ev_rec IN xla_events_type,
1967: p_ev_rec IN ev_rec_type,
1968: p_call_point IN NUMBER) IS
1969: BEGIN
1970: log( 'ARP_XLA_EVENTS.define_arrays()+' );
1966: p_xla_ev_rec IN xla_events_type,
1967: p_ev_rec IN ev_rec_type,
1968: p_call_point IN NUMBER) IS
1969: BEGIN
1970: log( 'ARP_XLA_EVENTS.define_arrays()+' );
1971:
1972: IF p_xla_ev_rec.xla_call IN ('C','B') AND p_call_point = 1 THEN
1973:
1974: dbms_sql.define_array(p_select_c, 1 , p_ev_rec.posttogl
2012: dbms_sql.define_array(p_select_c, 2 , p_ev_rec.dist_event_id
2013: , MAX_ARRAY_SIZE, STARTING_INDEX );
2014: END IF;
2015:
2016: log( 'ARP_XLA_EVENTS.define_arrays()-' );
2017:
2018: EXCEPTION
2019: WHEN OTHERS THEN
2020: log('EXCEPTION: ARP_XLA_EVENTS.define_arrays');
2016: log( 'ARP_XLA_EVENTS.define_arrays()-' );
2017:
2018: EXCEPTION
2019: WHEN OTHERS THEN
2020: log('EXCEPTION: ARP_XLA_EVENTS.define_arrays');
2021: RAISE;
2022:
2023: END define_arrays;
2024:
2046: | MODIFICATION HISTORY
2047: | Date Author Description of Changes
2048: *=======================================================================*/
2049: PROCEDURE get_column_values(p_select_c IN INTEGER,
2050: p_xla_ev_rec IN xla_events_type,
2051: p_call_point IN NUMBER,
2052: p_ev_rec OUT NOCOPY ev_rec_type) IS
2053: BEGIN
2054: log('ARP_XLA_EVENTS.get_column_values (+)');
2050: p_xla_ev_rec IN xla_events_type,
2051: p_call_point IN NUMBER,
2052: p_ev_rec OUT NOCOPY ev_rec_type) IS
2053: BEGIN
2054: log('ARP_XLA_EVENTS.get_column_values (+)');
2055:
2056: IF p_xla_ev_rec.xla_call IN ('C','B') AND p_call_point = 1 THEN
2057: dbms_sql.column_value(p_select_c, 1 , p_ev_rec.posttogl);
2058: dbms_sql.column_value(p_select_c, 2 , p_ev_rec.trx_type);
2076: dbms_sql.column_value(p_select_c, 1 , p_ev_rec.dist_row_id);
2077: dbms_sql.column_value(p_select_c, 2 , p_ev_rec.dist_event_id);
2078: END IF;
2079:
2080: log('ARP_XLA_EVENTS.get_column_values (-)');
2081:
2082: END get_column_values;
2083:
2084: /*========================================================================
2102: |
2103: | MODIFICATION HISTORY
2104: | Date Author Description of Changes
2105: *=======================================================================*/
2106: FUNCTION Get_Select_Cursor(p_xla_ev_rec IN xla_events_type,
2107: p_call_point IN NUMBER) RETURN INTEGER IS
2108:
2109: l_select_c INTEGER;
2110: l_stmt VARCHAR2(22000);
2111: l_ev_rec ev_rec_type;
2112:
2113: BEGIN
2114:
2115: log('ARP_XLA_EVENTS.Get_Select_Cursor ()+');
2116:
2117: Build_Stmt(p_xla_ev_rec => p_xla_ev_rec,
2118: p_stmt => l_stmt,
2119: p_call_point => p_call_point);
2162: log('p_xla_ev_rec.xla_dist_id ' || p_xla_ev_rec.xla_dist_id);
2163: dbms_sql.bind_variable(l_select_c, ':b_xla_dist_id', p_xla_ev_rec.xla_dist_id);
2164: END IF;
2165:
2166: log('ARP_XLA_EVENTS.Get_Select_Cursor (-)');
2167:
2168: return(l_select_c);
2169:
2170: EXCEPTION
2168: return(l_select_c);
2169:
2170: EXCEPTION
2171: WHEN OTHERS THEN
2172: log('EXCEPTION: ARP_XLA_EVENTS.Get_Select_Cursor:'||SQLERRM);
2173: RAISE;
2174:
2175: END Get_Select_Cursor;
2176:
2186: |
2187: | CALLS PROCEDURES/FUNCTIONS (local to this package body)
2188: |
2189: | PARAMETERS
2190: | p_xla_ev_rec IN xla_events_type
2191: |
2192: | KNOWN ISSUES
2193: |
2194: | NOTES
2199: | Use the set_of_books_id for now as the ledger_id bug#3135769
2200: | we might need to come back on this point later after the uptake
2201: | of ledger architecture project.
2202: *=======================================================================*/
2203: PROCEDURE Create_All_Events(p_xla_ev_rec IN xla_events_type) IS
2204:
2205: /*---------------------------------------------------------------------+
2206: | Main cursor which gets transaction data, and event data for decision|
2207: | making on which events require to be created, updated or deleted. |
2222: empty_bld_ev_rec bld_ev_type ;
2223:
2224: --cache_ev_rec bld_ev_type ;
2225:
2226: bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2227: empty_bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2228:
2229: prev_distid VARCHAR2(50) := '';
2230:
2223:
2224: --cache_ev_rec bld_ev_type ;
2225:
2226: bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2227: empty_bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2228:
2229: prev_distid VARCHAR2(50) := '';
2230:
2231: l_cached BOOLEAN;
2261: l_low INTEGER:=0;
2262: l_high INTEGER:=0;
2263: lnb NUMBER;
2264: --xla event api declarations
2265: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2266: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2267: l_security_context xla_events_pub_pkg.t_security;
2268: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2269: keep_flag BOOLEAN;
2262: l_high INTEGER:=0;
2263: lnb NUMBER;
2264: --xla event api declarations
2265: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2266: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2267: l_security_context xla_events_pub_pkg.t_security;
2268: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2269: keep_flag BOOLEAN;
2270: l_revrun VARCHAR2(5);
2263: lnb NUMBER;
2264: --xla event api declarations
2265: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2266: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2267: l_security_context xla_events_pub_pkg.t_security;
2268: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2269: keep_flag BOOLEAN;
2270: l_revrun VARCHAR2(5);
2271: l_entity_code VARCHAR2(20);
2264: --xla event api declarations
2265: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2266: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2267: l_security_context xla_events_pub_pkg.t_security;
2268: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2269: keep_flag BOOLEAN;
2270: l_revrun VARCHAR2(5);
2271: l_entity_code VARCHAR2(20);
2272: z NUMBER :=0;
2273: cnt INTEGER;
2274: trxn_number VARCHAR2(240);
2275: CURSOR for_batch IS
2276: SELECT 'X'
2277: FROM xla_events_int_gt
2278: WHERE entity_id IS NULL;
2279: l_test VARCHAR2(1);
2280:
2281:
2279: l_test VARCHAR2(1);
2280:
2281:
2282: BEGIN
2283: log('ARP_XLA_EVENTS.Create_All_Events ()+');
2284:
2285: --Bug#3135769
2286: --{
2287: IF arp_standard.sysparm.set_of_books_id IS NULL THEN
2428: into ev_rec.ev_match_event_id(i) ,
2429: ev_rec.ev_match_gl_date(i) ,
2430: ev_rec.ev_match_status(i) ,
2431: ev_rec.ev_match_type(i)
2432: from xla_events ae
2433: where ev_rec.dist_event_id(i) = ae.event_id;
2434:
2435:
2436: /*-------------------------------------------------------------------------+
2471: into ev_rec.ev_match_event_id(i) ,
2472: ev_rec.ev_match_gl_date(i) ,
2473: ev_rec.ev_match_status(i) ,
2474: ev_rec.ev_match_type(i)
2475: from xla_events ae2
2476: where ae2.application_id = 222
2477: and ae2.event_id IN
2478: ( select MAX( ae.event_id )
2479: from xla_events ae,
2475: from xla_events ae2
2476: where ae2.application_id = 222
2477: and ae2.event_id IN
2478: ( select MAX( ae.event_id )
2479: from xla_events ae,
2480: xla_transaction_entities_upg xt,
2481: ra_customer_trx_all trx
2482: where trx.customer_trx_id = ev_rec.trx_id(i)
2483: and NVL(xt.source_id_int_1,-99) = trx.customer_trx_id
2505: into ev_rec.ev_match_event_id(i) ,
2506: ev_rec.ev_match_gl_date(i) ,
2507: ev_rec.ev_match_status(i) ,
2508: ev_rec.ev_match_type(i)
2509: from xla_events ae2
2510: where ae2.application_id = 222
2511: and ae2.event_id IN
2512: ( select MAX( ae.event_id )
2513: from xla_events ae,
2509: from xla_events ae2
2510: where ae2.application_id = 222
2511: and ae2.event_id IN
2512: ( select MAX( ae.event_id )
2513: from xla_events ae,
2514: xla_transaction_entities_upg xt,
2515: ra_customer_trx_all trx
2516: where trx.customer_trx_id = ev_rec.trx_id(i)
2517: and NVL(xt.source_id_int_1,-99) = trx.customer_trx_id
2538: into ev_rec.ev_match_event_id(i) ,
2539: ev_rec.ev_match_gl_date(i) ,
2540: ev_rec.ev_match_status(i) ,
2541: ev_rec.ev_match_type(i)
2542: from xla_events ae2
2543: where ae2.application_id = 222
2544: and ae2.event_id IN
2545: ( select MAX( ae.event_id )
2546: from xla_events ae,
2542: from xla_events ae2
2543: where ae2.application_id = 222
2544: and ae2.event_id IN
2545: ( select MAX( ae.event_id )
2546: from xla_events ae,
2547: xla_transaction_entities_upg xt,
2548: ar_Cash_receipts_all cr
2549: where cr.cash_receipt_id = ev_rec.trx_id(i)
2550: and NVL(xt.source_id_int_1,-99) = cr.cash_receipt_id
2570: into ev_rec.ev_match_event_id(i) ,
2571: ev_rec.ev_match_gl_date(i) ,
2572: ev_rec.ev_match_status(i) ,
2573: ev_rec.ev_match_type(i)
2574: from xla_events ae2
2575: where ae2.application_id = 222
2576: and ae2.event_id IN
2577: ( select MAX( ae.event_id )
2578: from xla_events ae,
2574: from xla_events ae2
2575: where ae2.application_id = 222
2576: and ae2.event_id IN
2577: ( select MAX( ae.event_id )
2578: from xla_events ae,
2579: xla_transaction_entities_upg xt,
2580: ar_adjustments_all adj
2581: where adj.adjustment_id = ev_rec.trx_id(i)
2582: and NVL(xt.source_id_int_1,-99) = adj.adjustment_id
2735: +---------------------------------------------------------*/
2736: l_revrun := 'X';
2737:
2738: IF ev_rec.trx_type(i) = 'INV' AND p_xla_ev_rec.xla_mode = 'O' THEN
2739: log('arp_xla_events.is_one_acct_asg_on_ctlgd()+');
2740: log('The customer_trx_id :'||ev_rec.trx_id(i));
2741:
2742: l_revrun := is_one_acct_asg_on_ctlgd(ev_rec.trx_id(i));
2743:
2741:
2742: l_revrun := is_one_acct_asg_on_ctlgd(ev_rec.trx_id(i));
2743:
2744: log('l_revrun : '||l_revrun);
2745: log('arp_xla_events.is_one_acct_asg_on_ctlgd()-');
2746: END IF;
2747:
2748: /*---------------------------------------------------------+
2749: |Update existing Event |
2816: END IF; --set the status
2817:
2818: /*--------------------------------------------------------------------+
2819: | Need to avoid the existance of multiple events of the same type |
2820: | and the same GLDate for the same document in XLA_EVENTS table. |
2821: | Typically this can happens when user update the GL_Date on a inv |
2822: | with rules on which REV_RECOGNITION has run. In this case the |
2823: | the xla_events table contains multiple REV_RECOGNITION events with |
2824: | different GLDate, when user updates the GL Date on the header |
2819: | Need to avoid the existance of multiple events of the same type |
2820: | and the same GLDate for the same document in XLA_EVENTS table. |
2821: | Typically this can happens when user update the GL_Date on a inv |
2822: | with rules on which REV_RECOGNITION has run. In this case the |
2823: | the xla_events table contains multiple REV_RECOGNITION events with |
2824: | different GLDate, when user updates the GL Date on the header |
2825: | of the document, the GLDates for all the distributions related |
2826: | to that document are updated to the new GLDate. |
2827: | In this case, we need : |
2873: -- Set security_context
2874: l_security_context.security_id_int_1 := ev_rec.org_id(i);
2875:
2876: -- Delete the event
2877: xla_events_pub_pkg.delete_event
2878: ( p_event_source_info => l_event_source_info,
2879: p_event_id => ev_rec.ev_match_event_id(i),
2880: p_valuation_method => NULL,
2881: p_security_context => l_security_context);
3098:
3099: END LOOP; --process distributions
3100:
3101: /*---------------------------------------------------------------------+
3102: |Call the xla events api passing it the tables for Bulk Insert, Update|
3103: |On return for inserted rows, the event_id will be returned and the |
3104: |distributions will be updated with this event id using the temp event|
3105: |id which will ascertain the mapping of internal id's to actual ids |
3106: |for a distribution.To be replaced by call to xla events api commit |
3102: |Call the xla events api passing it the tables for Bulk Insert, Update|
3103: |On return for inserted rows, the event_id will be returned and the |
3104: |distributions will be updated with this event id using the temp event|
3105: |id which will ascertain the mapping of internal id's to actual ids |
3106: |for a distribution.To be replaced by call to xla events api commit |
3107: |issued by owning product. |
3108: +---------------------------------------------------------------------*/
3109:
3110: /*-------------------------------------------------------------+
3112: +-------------------------------------------------------------*/
3113:
3114: IF p_xla_ev_rec.xla_mode IN ('U','B') AND test_flag = 'N' THEN
3115:
3116: log('xla_events_pub_pkg.create_bulk_events xla_mode IN (U,B)');
3117:
3118: /*
3119: bld_ev_ent := xla_events_pub_pkg.create_bulk_events(
3120: p_application_id => 222 ,
3115:
3116: log('xla_events_pub_pkg.create_bulk_events xla_mode IN (U,B)');
3117:
3118: /*
3119: bld_ev_ent := xla_events_pub_pkg.create_bulk_events(
3120: p_application_id => 222 ,
3121: p_legal_entity_id => '1' ,-- to be set later
3122: p_ledger_id => arp_standard.sysparm.set_of_books_id ,-- to be set later
3123: p_entity_type_code => l_entity_code ,-- to be set later
3126: -- p_security_context => l_security_context);
3127: */
3128: /* As this call is not suitable to AR, the bug for XLA spi enhancement has been logged
3129: BUG#4448003 for now converting this call to single event call
3130: xla_events_pub_pkg.create_bulk_events(
3131: p_source_application_id => NULL ,
3132: p_application_id => 222 ,
3133: p_legal_entity_id => '1' ,-- to be set later
3134: p_ledger_id => arp_standard.sysparm.set_of_books_id ,-- to be set later
3136: */
3137: cnt := bld_ev_ent.COUNT;
3138: IF cnt > 0 THEN
3139: FOR m IN bld_ev_ent.FIRST .. bld_ev_ent.LAST LOOP
3140: INSERT INTO xla_events_int_gt (
3141: APPLICATION_ID
3142: , LEGAL_ENTITY_ID
3143: , LEDGER_ID
3144: , ENTITY_CODE
3209: --to be ascertained after events template is filled
3210:
3211: IF bld_ev_rec.bld_dml_flag(m) = 'I' AND test_flag = 'N' THEN
3212:
3213: log('XLA_EVENTS_PUB_PKG.create_event');
3214:
3215: z := z + 1;
3216: log('hyu calling create event for zth time :'||z);
3217:
3214:
3215: z := z + 1;
3216: log('hyu calling create event for zth time :'||z);
3217:
3218: lnb := XLA_EVENTS_PUB_PKG.create_event(
3219: p_event_source_info => l_event_source_info ,
3220: p_event_type_code => bld_ev_ent(m).event_type_code ,
3221: p_event_date => bld_ev_ent(m).event_date ,
3222: p_event_status_code => bld_ev_ent(m).event_status_code ,
3229: p_security_context => l_security_context );
3230:
3231: ELSIF bld_ev_rec.bld_dml_flag(m) = 'U' AND test_flag = 'N' THEN
3232:
3233: log('XLA_EVENTS_PUB_PKG.update_event');
3234:
3235: log('bld_ev_ent(m).event_id :'||bld_ev_ent(m).event_id );
3236: log('bld_ev_ent(m).event_type_code :'||bld_ev_ent(m).event_type_code );
3237: log(' bld_ev_ent(m).event_date :'|| bld_ev_ent(m).event_date );
3237: log(' bld_ev_ent(m).event_date :'|| bld_ev_ent(m).event_date );
3238: log(' bld_ev_ent(m).event_status_code :'|| bld_ev_ent(m).event_status_code);
3239: log(' p_security_context.security_id_int_1 :'|| l_security_context.security_id_int_1 );
3240:
3241: XLA_EVENTS_PUB_PKG.update_event(
3242: p_event_source_info => l_event_source_info ,
3243: p_event_id => bld_ev_ent(m).event_id ,
3244: p_event_type_code => bld_ev_ent(m).event_type_code ,
3245: p_event_date => bld_ev_ent(m).event_date ,
3255:
3256: BEGIN
3257: SELECT a.transaction_number INTO trxn_number
3258: FROM xla_transaction_entities_upg a,
3259: xla_events b
3260: WHERE NVL(a.source_id_int_1,-99) = bld_ev_ent(m).source_id_int_1
3261: AND b.event_id = bld_ev_ent(m).event_id
3262: AND a.entity_id = b.entity_id
3263: AND a.security_id_int_1 = bld_ev_ent(m).security_id_int_1
3270: RAISE;
3271: END;
3272:
3273: IF NVL(trxn_number,-99) <> bld_ev_ent(m).transaction_number THEN
3274: XLA_EVENTS_PUB_PKG.UPDATE_TRANSACTION_NUMBER(
3275: p_event_source_info => l_event_source_info,
3276: p_transaction_number => bld_ev_ent(m).transaction_number,
3277: p_valuation_method => '',
3278: p_security_context => l_security_context ,
3308: IF p_xla_ev_rec.xla_mode = 'B' THEN
3309: OPEN for_batch;
3310: FETCH for_batch INTO l_test;
3311: IF for_batch%FOUND THEN
3312: log('Calling xla_events_pub_pkg.create_bulk_events +');
3313: xla_events_pub_pkg.create_bulk_events
3314: (p_application_id => 222,
3315: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3316: p_entity_type_code => l_entity_code);
3309: OPEN for_batch;
3310: FETCH for_batch INTO l_test;
3311: IF for_batch%FOUND THEN
3312: log('Calling xla_events_pub_pkg.create_bulk_events +');
3313: xla_events_pub_pkg.create_bulk_events
3314: (p_application_id => 222,
3315: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3316: p_entity_type_code => l_entity_code);
3317: --avoid recreation of successfully events
3314: (p_application_id => 222,
3315: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3316: p_entity_type_code => l_entity_code);
3317: --avoid recreation of successfully events
3318: DELETE from xla_events_int_gt WHERE entity_id IS NOT NULL;
3319: log('Calling xla_events_pub_pkg.create_bulk_events -');
3320: END IF;
3321: CLOSE for_batch;
3322: END IF;
3315: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3316: p_entity_type_code => l_entity_code);
3317: --avoid recreation of successfully events
3318: DELETE from xla_events_int_gt WHERE entity_id IS NOT NULL;
3319: log('Calling xla_events_pub_pkg.create_bulk_events -');
3320: END IF;
3321: CLOSE for_batch;
3322: END IF;
3323: --}
3327: |the event. |
3328: +--------------------------------------------------------------*/
3329:
3330: <
3331: log('ARP_XLA_EVENTS.Create_All_Events ()-');
3332:
3333: EXCEPTION
3334: WHEN OTHERS THEN
3335: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3331: log('ARP_XLA_EVENTS.Create_All_Events ()-');
3332:
3333: EXCEPTION
3334: WHEN OTHERS THEN
3335: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3336: log('SQLERRM ' || SQLERRM);
3337: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3338: log('SQLERRM ' || SQLERRM);
3339: RAISE;
3333: EXCEPTION
3334: WHEN OTHERS THEN
3335: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3336: log('SQLERRM ' || SQLERRM);
3337: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3338: log('SQLERRM ' || SQLERRM);
3339: RAISE;
3340: END Create_All_Events;
3341:
3368: ( p_xla_doc IN VARCHAR2,
3369: p_event_id IN NUMBER ) IS
3370:
3371: BEGIN
3372: log('arp_xla_events.un_denormalize_posting_entity()+');
3373:
3374: IF test_flag = 'Y' THEN
3375: GOTO endlabel;
3376: END IF;
3414: END IF;
3415:
3416: <
3417:
3418: log('arp_xla_events.un_denormalize_posting_entity()-');
3419:
3420: EXCEPTION
3421: WHEN OTHERS THEN
3422: log('EXCEPTION: arp_xla_events.un_denormalize_posting_entity');
3418: log('arp_xla_events.un_denormalize_posting_entity()-');
3419:
3420: EXCEPTION
3421: WHEN OTHERS THEN
3422: log('EXCEPTION: arp_xla_events.un_denormalize_posting_entity');
3423: log('SQLERRM '||sqlerrm);
3424: RAISE;
3425:
3426: END un_denormalize_posting_entity;
3508: |
3509: | CALLS PROCEDURES/FUNCTIONS (local to this package body)
3510: |
3511: | PARAMETERS
3512: | p_xla_ev_rec IN xla_events_type
3513: |
3514: | KNOWN ISSUES
3515: |
3516: | NOTES
3517: |
3518: | MODIFICATION HISTORY
3519: | Date Author Description of Changes
3520: *=======================================================================*/
3521: PROCEDURE Upd_Dist(p_xla_ev_rec IN xla_events_type) IS
3522:
3523: type l_rowid_type IS TABLE OF VARCHAR2(50)
3524: INDEX BY BINARY_INTEGER;
3525: type l_event_id_type IS TABLE OF NUMBER(15)
3543: l_last_updated_by NUMBER := arp_standard.profile.user_id;
3544: l_last_update_login NUMBER := arp_standard.profile.last_update_login;
3545: BEGIN
3546:
3547: log('ARP_XLA_EVENTS.Upd_Dist()+');
3548:
3549: IF p_xla_ev_rec.xla_call IN ('D','B') THEN
3550: null;
3551: ELSE goto endlabel;
3692:
3693: END LOOP; --Array (Bulk) Fetch
3694:
3695: <
3696: log('ARP_XLA_EVENTS.Upd_Dist()-');
3697:
3698: EXCEPTION
3699: WHEN OTHERS THEN
3700: log('EXCEPTION: ARP_XLA_EVENTS.Upd_Dist');
3696: log('ARP_XLA_EVENTS.Upd_Dist()-');
3697:
3698: EXCEPTION
3699: WHEN OTHERS THEN
3700: log('EXCEPTION: ARP_XLA_EVENTS.Upd_Dist');
3701: RAISE;
3702:
3703: END Upd_Dist;
3704:
3729:
3730: BEGIN
3731:
3732: log(' ');
3733: log('ARP_XLA_EVENTS.dump_ev_rec()+');
3734:
3735: IF p_ev_rec.trx_status.EXISTS(p_i) THEN
3736:
3737: log('p_ev_rec.trx_status(' || p_i || ') = '
3755: log('p_ev_rec.ev_match_type(' || p_i || ') = '
3756: || p_ev_rec.ev_match_type(p_i));
3757: END IF;
3758:
3759: log('ARP_XLA_EVENTS.dump_ev_rec()-');
3760: log(' ');
3761:
3762: EXCEPTION
3763: WHEN OTHERS THEN
3760: log(' ');
3761:
3762: EXCEPTION
3763: WHEN OTHERS THEN
3764: log('EXCEPTION: ARP_XLA_EVENTS.dump_ev_rec');
3765: RAISE;
3766: END dump_ev_rec;
3767:
3768:
3767:
3768:
3769: --HYU
3770: PROCEDURE dump_event_source_info
3771: (x_ev_source_info IN OUT NOCOPY xla_events_pub_pkg.t_event_Source_info)
3772: IS
3773: BEGIN
3774:
3775: log(' ');
3772: IS
3773: BEGIN
3774:
3775: log(' ');
3776: log('ARP_XLA_EVENTS.dump_event_source_info()+');
3777:
3778: log('x_ev_source_info.application_id = '
3779: || x_ev_source_info.application_id);
3780: log('x_ev_source_info.legal_entity_id = '
3802: log('x_ev_source_info.source_id_char_4 = '
3803: || x_ev_source_info.source_id_char_4);
3804: log('x_ev_source_info.legal_entity_id = '
3805: || x_ev_source_info.legal_entity_id);
3806: log('ARP_XLA_EVENTS.dump_event_source_info()-');
3807: log(' ');
3808:
3809: EXCEPTION
3810: WHEN OTHERS THEN
3807: log(' ');
3808:
3809: EXCEPTION
3810: WHEN OTHERS THEN
3811: log('EXCEPTION: ARP_XLA_EVENTS.dump_event_source_info');
3812: RAISE;
3813: END dump_event_source_info;
3814:
3815: /*========================================================================
3841: *=======================================================================*/
3842: FUNCTION Change_Matrix(trx_status IN VARCHAR2 ,
3843: dist_gl_date IN DATE ,
3844: ev_match_gl_date IN DATE ,
3845: ev_match_status IN xla_events.event_status_code%TYPE,
3846: posttogl IN VARCHAR2) RETURN VARCHAR2 IS
3847:
3848: l_change_matrix VARCHAR2(30);
3849:
3848: l_change_matrix VARCHAR2(30);
3849:
3850: BEGIN
3851:
3852: log('ARP_XLA_EVENTS.Change_Matrix()+');
3853: log('trx_status :'||trx_status);
3854: log('dist_gl_date :'||dist_gl_date);
3855: log('ev_match_gl_date :'||ev_match_gl_date);
3856: log('ev_match_status :'||ev_match_status);
4130: END IF; --distributions cannot be posted
4131:
4132: RETURN(l_change_matrix);
4133:
4134: log('ARP_XLA_EVENTS.Change_Matrix()-');
4135:
4136: EXCEPTION
4137: WHEN OTHERS THEN
4138: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4134: log('ARP_XLA_EVENTS.Change_Matrix()-');
4135:
4136: EXCEPTION
4137: WHEN OTHERS THEN
4138: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4139: RAISE;
4140: END Change_Matrix;
4141:
4142: /*========================================================================
4165: p_i IN BINARY_INTEGER ,
4166: p_tag IN VARCHAR2 ) IS
4167: BEGIN
4168:
4169: log('ARP_XLA_EVENTS.dump_bld_rec()+');
4170:
4171: IF p_bld_rec.bld_dml_flag.EXISTS(p_i) THEN
4172:
4173: log(p_tag ||'.bld_dml_flag('||p_i||') = '
4173: log(p_tag ||'.bld_dml_flag('||p_i||') = '
4174: || p_bld_rec.bld_dml_flag(p_i));
4175: END IF;
4176:
4177: log('ARP_XLA_EVENTS.dump_bld_rec()-');
4178: log(' ');
4179:
4180: EXCEPTION
4181: WHEN OTHERS THEN
4178: log(' ');
4179:
4180: EXCEPTION
4181: WHEN OTHERS THEN
4182: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4183: RAISE;
4184:
4185: END dump_bld_rec;
4186:
4206: | MODIFICATION HISTORY
4207: | Date Author Description of Changes
4208: *=======================================================================*/
4209: PROCEDURE dump_event_info
4210: (p_ev_info_tab IN OUT NOCOPY xla_events_pub_pkg.t_array_entity_event_info_s,
4211: p_i IN BINARY_INTEGER ,
4212: p_tag IN VARCHAR2 ) IS
4213: BEGIN
4214:
4211: p_i IN BINARY_INTEGER ,
4212: p_tag IN VARCHAR2 ) IS
4213: BEGIN
4214:
4215: log('ARP_XLA_EVENTS.dump_event_info()+');
4216:
4217: IF p_ev_info_tab.EXISTS(p_i) THEN
4218:
4219: log(p_tag ||'.p_ev_info_tab('||p_i||').event_id = '||
4235: p_ev_info_tab(p_i).transaction_number );
4236:
4237: END IF;
4238:
4239: log('ARP_XLA_EVENTS.dump_event_info()-');
4240: log(' ');
4241:
4242: EXCEPTION
4243: WHEN OTHERS THEN
4240: log(' ');
4241:
4242: EXCEPTION
4243: WHEN OTHERS THEN
4244: log('EXCEPTION: ARP_XLA_EVENTS.dump_event_info');
4245: RAISE;
4246:
4247: END dump_event_info;
4248:
4269: *=======================================================================*/
4270: PROCEDURE delete_event( p_document_id IN NUMBER,
4271: p_doc_table IN VARCHAR2)
4272: IS
4273: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4274: l_security xla_events_pub_pkg.t_security;
4275: l_event_id NUMBER;
4276: /*7229913 */
4277: l_invoicing_rule_id NUMBER;
4270: PROCEDURE delete_event( p_document_id IN NUMBER,
4271: p_doc_table IN VARCHAR2)
4272: IS
4273: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4274: l_security xla_events_pub_pkg.t_security;
4275: l_event_id NUMBER;
4276: /*7229913 */
4277: l_invoicing_rule_id NUMBER;
4278: l_document_id NUMBER;
4281: CURSOR c_ct_rules is
4282: select xe.event_id event_id from
4283: ra_customer_trx ct,
4284: xla_transaction_entities_upg xte,
4285: xla_events xe
4286: where ct.customer_trx_id = p_document_id
4287: and ct.invoicing_rule_id in (-2,-3)
4288: and ct.set_of_books_id = xte.ledger_id
4289: and nvl(xte.source_id_int_1,-99) = ct.customer_trx_id
4318: FROM ar_transaction_history
4319: WHERE transaction_history_id = p_document_id;
4320:
4321: BEGIN
4322: log('arp_xla_events.delete_event ()+');
4323:
4324: IF p_doc_table = 'CT' THEN
4325: OPEN c_ct;
4326: FETCH c_ct INTO l_event_id;
4360: l_event_source_info.application_id := 222;
4361: l_event_source_info.ledger_id := arp_standard.sysparm.set_of_books_id; --to be set
4362: l_event_source_info.source_id_int_1 := NVL(l_document_id, p_document_id);
4363:
4364: xla_events_pub_pkg.delete_event
4365: ( p_event_source_info => l_event_source_info,
4366: p_event_id => l_event_id,
4367: p_valuation_method => NULL,
4368: p_security_context => l_security);
4367: p_valuation_method => NULL,
4368: p_security_context => l_security);
4369: END IF;
4370:
4371: log('arp_xla_events.delete_event ()-');
4372: EXCEPTION
4373: WHEN OTHERS THEN
4374: log('EXCEPTION: arp_xla_events.delete_event'||SQLERRM);
4375: RAISE;
4370:
4371: log('arp_xla_events.delete_event ()-');
4372: EXCEPTION
4373: WHEN OTHERS THEN
4374: log('EXCEPTION: arp_xla_events.delete_event'||SQLERRM);
4375: RAISE;
4376: END delete_event;
4377:
4378:
4380: | PUBLIC FUNCTION delete_reverse_revrec_event
4381: |
4382: | DESCRIPTION
4383: | This procedure is a wrapper on the top of XLA delete_event API.
4384: | This procedure is used to delete the events from xla_events
4385: | other than the REC event when a transaction with rule is incompleted.
4386: |
4387: | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
4388: |
4404: PROCEDURE delete_reverse_revrec_event( p_document_id IN NUMBER,
4405: p_doc_table IN VARCHAR2)
4406: IS
4407:
4408: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4409: l_security xla_events_pub_pkg.t_security;
4410: l_event_id NUMBER;
4411:
4412:
4405: p_doc_table IN VARCHAR2)
4406: IS
4407:
4408: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4409: l_security xla_events_pub_pkg.t_security;
4410: l_event_id NUMBER;
4411:
4412:
4413: CURSOR c_ct IS
4426: );
4427:
4428:
4429: BEGIN
4430: log('arp_xla_events.delete_reverse_revrec_event ()+');
4431:
4432: FOR c IN c_ct loop
4433:
4434: l_event_id := c.event_id;
4438: l_event_source_info.application_id := 222;
4439: l_event_source_info.ledger_id := arp_standard.sysparm.set_of_books_id; --to be set
4440: l_event_source_info.source_id_int_1 := p_document_id;
4441:
4442: xla_events_pub_pkg.delete_event
4443: ( p_event_source_info => l_event_source_info,
4444: p_event_id => l_event_id,
4445: p_valuation_method => NULL,
4446: p_security_context => l_security);
4446: p_security_context => l_security);
4447:
4448: END loop;
4449:
4450: log('arp_xla_events.delete_reverse_revrec_event ()-');
4451: EXCEPTION
4452: WHEN OTHERS THEN
4453: log('EXCEPTION: arp_xla_events.delete_reverse_revrec_event'||SQLERRM);
4454: RAISE;
4449:
4450: log('arp_xla_events.delete_reverse_revrec_event ()-');
4451: EXCEPTION
4452: WHEN OTHERS THEN
4453: log('EXCEPTION: arp_xla_events.delete_reverse_revrec_event'||SQLERRM);
4454: RAISE;
4455: END delete_reverse_revrec_event;
4456:
4457:
4481: p_code IN VARCHAR2)
4482: IS
4483: BEGIN
4484: IF p_code = 'CTADJ' THEN
4485: -- arp_xla_events.create_events(p_request_id, 'CT');
4486: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4487: ELSE
4488: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4489: END IF;
4482: IS
4483: BEGIN
4484: IF p_code = 'CTADJ' THEN
4485: -- arp_xla_events.create_events(p_request_id, 'CT');
4486: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4487: ELSE
4488: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4489: END IF;
4490:
4484: IF p_code = 'CTADJ' THEN
4485: -- arp_xla_events.create_events(p_request_id, 'CT');
4486: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4487: ELSE
4488: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4489: END IF;
4490:
4491: IF p_code = 'CTADJ' THEN
4492: INSERT INTO RA_INTERFACE_ERRORS
4496: select l.interface_line_id,
4497: xgt.error_msg,
4498: l.org_id
4499: from ra_interface_lines_gt l,
4500: xla_events_gt xgt
4501: where l.request_id = p_request_id
4502: and l.customer_trx_id = xgt.source_id_int_1
4503: and l.event_id = -9999
4504: and xgt.event_class_code in ('INV_CREATE','DM_CREATE','CM_CREATE','ADJ_CREATE');
4510: select l.interface_line_id,
4511: xgt.error_msg,
4512: l.org_id
4513: from ra_interface_lines_gt l,
4514: xla_events_gt xgt
4515: where l.request_id = p_request_id
4516: and l.customer_trx_id = xgt.source_id_int_1
4517: and l.event_id = -9999
4518: and xgt.event_class_code in ('CM_CREATE')
4520: END IF;
4521: END;
4522: */
4523:
4524: END ARP_XLA_EVENTS;