[Home] [Help]
1: PACKAGE BODY ARP_XLA_EVENTS AS
2: /* $Header: ARXLAEVB.pls 120.85.12020000.4 2012/11/06 10:03:27 dgaurab 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:
1287: ' SELECT mcd.rowid,
1288: ev1.event_id ';
1289:
1290: l_from_clause :=
1291: ' FROM xla_events' || ' ev1, ' || CRLF ||
1292: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1293: ' ar_cash_receipt_history' || l_all_clause || ' crh, ' || CRLF ||
1294: ' ar_misc_cash_distributions' || l_all_clause || ' mcd ' || CRLF ;
1295:
1520:
1521: log('l_select_clause ' || l_select_clause);
1522:
1523: l_from_clause :=
1524: ' FROM xla_events' || ' ev1, ' || CRLF ||
1525: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1526: ' ar_receivable_applications' || l_all_clause || ' app, ' || CRLF ||
1527: ' ar_cash_receipt_history' || l_all_clause || ' crh ' || CRLF ;
1528:
1671: ' SELECT app.rowid,
1672: ev1.event_id ';
1673:
1674: l_from_clause :=
1675: ' FROM xla_events' || ' ev1, ' || CRLF ||
1676: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1677: ' ar_receivable_applications' || l_all_clause || ' app ' || CRLF ;
1678:
1679:
1717: | The document id for BR is a transaction history id |
1718: | instead of customer_trx_id. The customer_trx_id is |
1719: | only used for storing the header info BR, all the |
1720: | accounting is driven by TRH. So the ARP_ACCT_MAIN |
1721: | package which call ARP_XLA_EVENTS to create events |
1722: | along with the accounting entries required a TRH_ID |
1723: | instead of a customer_trx_id. |
1724: | This change will not impact the upgrade mode neither|
1725: | the batch mode for they do not use document id |
1879:
1880: --use xla_transaction_entity_n1
1881:
1882: l_from_clause :=
1883: ' FROM xla_events' || ' ev1, ' || CRLF ||
1884: ' xla_transaction_entities_upg' || ' evn, ' || CRLF ||
1885: ' ar_transaction_history' || l_all_clause || ' trh, ' || CRLF ||
1886: ' ra_customer_trx' || l_all_clause || ' ct, ' || CRLF ||
1887: ' ra_cust_trx_types' || l_all_clause || ' tty ' || CRLF;
1941: l_order_by_clause ;
1942:
1943: log('p_stmt ' || SUBSTRB(p_stmt,1,3980));
1944:
1945: log('ARP_XLA_EVENTS.Build_Stmt ()-');
1946: EXCEPTION
1947: WHEN OTHERS THEN
1948: log('EXCEPTION: ARP_XLA_EVENTS.Build_Stmt');
1949: RAISE;
1944:
1945: log('ARP_XLA_EVENTS.Build_Stmt ()-');
1946: EXCEPTION
1947: WHEN OTHERS THEN
1948: log('EXCEPTION: ARP_XLA_EVENTS.Build_Stmt');
1949: RAISE;
1950:
1951: END Build_Stmt;
1952:
1972: | MODIFICATION HISTORY
1973: | Date Author Description of Changes
1974: *=======================================================================*/
1975: PROCEDURE define_arrays( p_select_c IN INTEGER,
1976: p_xla_ev_rec IN xla_events_type,
1977: p_ev_rec IN ev_rec_type,
1978: p_call_point IN NUMBER) IS
1979: BEGIN
1980: log( 'ARP_XLA_EVENTS.define_arrays()+' );
1976: p_xla_ev_rec IN xla_events_type,
1977: p_ev_rec IN ev_rec_type,
1978: p_call_point IN NUMBER) IS
1979: BEGIN
1980: log( 'ARP_XLA_EVENTS.define_arrays()+' );
1981:
1982: IF p_xla_ev_rec.xla_call IN ('C','B') AND p_call_point = 1 THEN
1983:
1984: dbms_sql.define_array(p_select_c, 1 , p_ev_rec.posttogl
2022: dbms_sql.define_array(p_select_c, 2 , p_ev_rec.dist_event_id
2023: , MAX_ARRAY_SIZE, STARTING_INDEX );
2024: END IF;
2025:
2026: log( 'ARP_XLA_EVENTS.define_arrays()-' );
2027:
2028: EXCEPTION
2029: WHEN OTHERS THEN
2030: log('EXCEPTION: ARP_XLA_EVENTS.define_arrays');
2026: log( 'ARP_XLA_EVENTS.define_arrays()-' );
2027:
2028: EXCEPTION
2029: WHEN OTHERS THEN
2030: log('EXCEPTION: ARP_XLA_EVENTS.define_arrays');
2031: RAISE;
2032:
2033: END define_arrays;
2034:
2056: | MODIFICATION HISTORY
2057: | Date Author Description of Changes
2058: *=======================================================================*/
2059: PROCEDURE get_column_values(p_select_c IN INTEGER,
2060: p_xla_ev_rec IN xla_events_type,
2061: p_call_point IN NUMBER,
2062: p_ev_rec OUT NOCOPY ev_rec_type) IS
2063: BEGIN
2064: log('ARP_XLA_EVENTS.get_column_values (+)');
2060: p_xla_ev_rec IN xla_events_type,
2061: p_call_point IN NUMBER,
2062: p_ev_rec OUT NOCOPY ev_rec_type) IS
2063: BEGIN
2064: log('ARP_XLA_EVENTS.get_column_values (+)');
2065:
2066: IF p_xla_ev_rec.xla_call IN ('C','B') AND p_call_point = 1 THEN
2067: dbms_sql.column_value(p_select_c, 1 , p_ev_rec.posttogl);
2068: dbms_sql.column_value(p_select_c, 2 , p_ev_rec.trx_type);
2086: dbms_sql.column_value(p_select_c, 1 , p_ev_rec.dist_row_id);
2087: dbms_sql.column_value(p_select_c, 2 , p_ev_rec.dist_event_id);
2088: END IF;
2089:
2090: log('ARP_XLA_EVENTS.get_column_values (-)');
2091:
2092: END get_column_values;
2093:
2094: /*========================================================================
2112: |
2113: | MODIFICATION HISTORY
2114: | Date Author Description of Changes
2115: *=======================================================================*/
2116: FUNCTION Get_Select_Cursor(p_xla_ev_rec IN xla_events_type,
2117: p_call_point IN NUMBER) RETURN INTEGER IS
2118:
2119: l_select_c INTEGER;
2120: l_stmt VARCHAR2(22000);
2121: l_ev_rec ev_rec_type;
2122:
2123: BEGIN
2124:
2125: log('ARP_XLA_EVENTS.Get_Select_Cursor ()+');
2126:
2127: Build_Stmt(p_xla_ev_rec => p_xla_ev_rec,
2128: p_stmt => l_stmt,
2129: p_call_point => p_call_point);
2172: log('p_xla_ev_rec.xla_dist_id ' || p_xla_ev_rec.xla_dist_id);
2173: dbms_sql.bind_variable(l_select_c, ':b_xla_dist_id', p_xla_ev_rec.xla_dist_id);
2174: END IF;
2175:
2176: log('ARP_XLA_EVENTS.Get_Select_Cursor (-)');
2177:
2178: return(l_select_c);
2179:
2180: EXCEPTION
2178: return(l_select_c);
2179:
2180: EXCEPTION
2181: WHEN OTHERS THEN
2182: log('EXCEPTION: ARP_XLA_EVENTS.Get_Select_Cursor:'||SQLERRM);
2183: RAISE;
2184:
2185: END Get_Select_Cursor;
2186:
2196: |
2197: | CALLS PROCEDURES/FUNCTIONS (local to this package body)
2198: |
2199: | PARAMETERS
2200: | p_xla_ev_rec IN xla_events_type
2201: |
2202: | KNOWN ISSUES
2203: |
2204: | NOTES
2209: | Use the set_of_books_id for now as the ledger_id bug#3135769
2210: | we might need to come back on this point later after the uptake
2211: | of ledger architecture project.
2212: *=======================================================================*/
2213: PROCEDURE Create_All_Events(p_xla_ev_rec IN xla_events_type) IS
2214:
2215: /*---------------------------------------------------------------------+
2216: | Main cursor which gets transaction data, and event data for decision|
2217: | making on which events require to be created, updated or deleted. |
2232: empty_bld_ev_rec bld_ev_type ;
2233:
2234: --cache_ev_rec bld_ev_type ;
2235:
2236: bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2237: empty_bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2238:
2239: prev_distid VARCHAR2(50) := '';
2240:
2233:
2234: --cache_ev_rec bld_ev_type ;
2235:
2236: bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2237: empty_bld_ev_ent xla_events_pub_pkg.t_array_entity_event_info_s;
2238:
2239: prev_distid VARCHAR2(50) := '';
2240:
2241: l_cached BOOLEAN;
2271: l_low INTEGER:=0;
2272: l_high INTEGER:=0;
2273: lnb NUMBER;
2274: --xla event api declarations
2275: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2276: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2277: l_security_context xla_events_pub_pkg.t_security;
2278: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2279: keep_flag BOOLEAN;
2272: l_high INTEGER:=0;
2273: lnb NUMBER;
2274: --xla event api declarations
2275: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2276: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2277: l_security_context xla_events_pub_pkg.t_security;
2278: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2279: keep_flag BOOLEAN;
2280: l_revrun VARCHAR2(5);
2273: lnb NUMBER;
2274: --xla event api declarations
2275: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2276: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2277: l_security_context xla_events_pub_pkg.t_security;
2278: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2279: keep_flag BOOLEAN;
2280: l_revrun VARCHAR2(5);
2281: l_entity_code VARCHAR2(20);
2274: --xla event api declarations
2275: l_event_source_info xla_events_pub_pkg.t_event_source_info;
2276: l_reference_info xla_events_pub_pkg.t_event_reference_info;
2277: l_security_context xla_events_pub_pkg.t_security;
2278: l_entity_event_info_tbl xla_events_pub_pkg.t_array_entity_event_info_s;
2279: keep_flag BOOLEAN;
2280: l_revrun VARCHAR2(5);
2281: l_entity_code VARCHAR2(20);
2282: z NUMBER :=0;
2283: cnt INTEGER;
2284: trxn_number VARCHAR2(240);
2285: CURSOR for_batch IS
2286: SELECT 'X'
2287: FROM xla_events_int_gt
2288: WHERE entity_id IS NULL;
2289: l_test VARCHAR2(1);
2290:
2291:
2289: l_test VARCHAR2(1);
2290:
2291:
2292: BEGIN
2293: log('ARP_XLA_EVENTS.Create_All_Events ()+');
2294:
2295: --Bug#3135769
2296: --{
2297: IF arp_standard.sysparm.set_of_books_id IS NULL THEN
2438: into ev_rec.ev_match_event_id(i) ,
2439: ev_rec.ev_match_gl_date(i) ,
2440: ev_rec.ev_match_status(i) ,
2441: ev_rec.ev_match_type(i)
2442: from xla_events ae
2443: where ev_rec.dist_event_id(i) = ae.event_id
2444: and ae.application_id = 222;
2445:
2446:
2482: into ev_rec.ev_match_event_id(i) ,
2483: ev_rec.ev_match_gl_date(i) ,
2484: ev_rec.ev_match_status(i) ,
2485: ev_rec.ev_match_type(i)
2486: from xla_events ae2
2487: where ae2.application_id = 222
2488: and ae2.event_id IN
2489: ( select MAX( ae.event_id )
2490: from xla_events ae,
2486: from xla_events ae2
2487: where ae2.application_id = 222
2488: and ae2.event_id IN
2489: ( select MAX( ae.event_id )
2490: from xla_events ae,
2491: xla_transaction_entities_upg xt,
2492: ra_customer_trx_all trx
2493: where trx.customer_trx_id = ev_rec.trx_id(i)
2494: and NVL(xt.source_id_int_1,-99) = trx.customer_trx_id
2516: into ev_rec.ev_match_event_id(i) ,
2517: ev_rec.ev_match_gl_date(i) ,
2518: ev_rec.ev_match_status(i) ,
2519: ev_rec.ev_match_type(i)
2520: from xla_events ae2
2521: where ae2.application_id = 222
2522: and ae2.event_id IN
2523: ( select MAX( ae.event_id )
2524: from xla_events ae,
2520: from xla_events ae2
2521: where ae2.application_id = 222
2522: and ae2.event_id IN
2523: ( select MAX( ae.event_id )
2524: from xla_events ae,
2525: xla_transaction_entities_upg xt,
2526: ra_customer_trx_all trx
2527: where trx.customer_trx_id = ev_rec.trx_id(i)
2528: and NVL(xt.source_id_int_1,-99) = trx.customer_trx_id
2549: into ev_rec.ev_match_event_id(i) ,
2550: ev_rec.ev_match_gl_date(i) ,
2551: ev_rec.ev_match_status(i) ,
2552: ev_rec.ev_match_type(i)
2553: from xla_events ae2
2554: where ae2.application_id = 222
2555: and ae2.event_id IN
2556: ( select MAX( ae.event_id )
2557: from xla_events ae,
2553: from xla_events ae2
2554: where ae2.application_id = 222
2555: and ae2.event_id IN
2556: ( select MAX( ae.event_id )
2557: from xla_events ae,
2558: xla_transaction_entities_upg xt,
2559: ar_Cash_receipts_all cr
2560: where cr.cash_receipt_id = ev_rec.trx_id(i)
2561: and NVL(xt.source_id_int_1,-99) = cr.cash_receipt_id
2581: into ev_rec.ev_match_event_id(i) ,
2582: ev_rec.ev_match_gl_date(i) ,
2583: ev_rec.ev_match_status(i) ,
2584: ev_rec.ev_match_type(i)
2585: from xla_events ae2
2586: where ae2.application_id = 222
2587: and ae2.event_id IN
2588: ( select MAX( ae.event_id )
2589: from xla_events ae,
2585: from xla_events ae2
2586: where ae2.application_id = 222
2587: and ae2.event_id IN
2588: ( select MAX( ae.event_id )
2589: from xla_events ae,
2590: xla_transaction_entities_upg xt,
2591: ar_adjustments_all adj
2592: where adj.adjustment_id = ev_rec.trx_id(i)
2593: and NVL(xt.source_id_int_1,-99) = adj.adjustment_id
2747: +---------------------------------------------------------*/
2748: l_revrun := 'X';
2749:
2750: IF ev_rec.trx_type(i) = 'INV' AND p_xla_ev_rec.xla_mode = 'O' THEN
2751: log('arp_xla_events.is_one_acct_asg_on_ctlgd()+');
2752: log('The customer_trx_id :'||ev_rec.trx_id(i));
2753:
2754: l_revrun := is_one_acct_asg_on_ctlgd(ev_rec.trx_id(i));
2755:
2753:
2754: l_revrun := is_one_acct_asg_on_ctlgd(ev_rec.trx_id(i));
2755:
2756: log('l_revrun : '||l_revrun);
2757: log('arp_xla_events.is_one_acct_asg_on_ctlgd()-');
2758: END IF;
2759:
2760: /*---------------------------------------------------------+
2761: |Update existing Event |
2828: END IF; --set the status
2829:
2830: /*--------------------------------------------------------------------+
2831: | Need to avoid the existance of multiple events of the same type |
2832: | and the same GLDate for the same document in XLA_EVENTS table. |
2833: | Typically this can happens when user update the GL_Date on a inv |
2834: | with rules on which REV_RECOGNITION has run. In this case the |
2835: | the xla_events table contains multiple REV_RECOGNITION events with |
2836: | different GLDate, when user updates the GL Date on the header |
2831: | Need to avoid the existance of multiple events of the same type |
2832: | and the same GLDate for the same document in XLA_EVENTS table. |
2833: | Typically this can happens when user update the GL_Date on a inv |
2834: | with rules on which REV_RECOGNITION has run. In this case the |
2835: | the xla_events table contains multiple REV_RECOGNITION events with |
2836: | different GLDate, when user updates the GL Date on the header |
2837: | of the document, the GLDates for all the distributions related |
2838: | to that document are updated to the new GLDate. |
2839: | In this case, we need : |
2885: -- Set security_context
2886: l_security_context.security_id_int_1 := ev_rec.org_id(i);
2887:
2888: -- Delete the event
2889: xla_events_pub_pkg.delete_event
2890: ( p_event_source_info => l_event_source_info,
2891: p_event_id => ev_rec.ev_match_event_id(i),
2892: p_valuation_method => NULL,
2893: p_security_context => l_security_context);
3110:
3111: END LOOP; --process distributions
3112:
3113: /*---------------------------------------------------------------------+
3114: |Call the xla events api passing it the tables for Bulk Insert, Update|
3115: |On return for inserted rows, the event_id will be returned and the |
3116: |distributions will be updated with this event id using the temp event|
3117: |id which will ascertain the mapping of internal id's to actual ids |
3118: |for a distribution.To be replaced by call to xla events api commit |
3114: |Call the xla events api passing it the tables for Bulk Insert, Update|
3115: |On return for inserted rows, the event_id will be returned and the |
3116: |distributions will be updated with this event id using the temp event|
3117: |id which will ascertain the mapping of internal id's to actual ids |
3118: |for a distribution.To be replaced by call to xla events api commit |
3119: |issued by owning product. |
3120: +---------------------------------------------------------------------*/
3121:
3122: /*-------------------------------------------------------------+
3124: +-------------------------------------------------------------*/
3125:
3126: IF p_xla_ev_rec.xla_mode IN ('U','B') AND test_flag = 'N' THEN
3127:
3128: log('xla_events_pub_pkg.create_bulk_events xla_mode IN (U,B)');
3129:
3130: /*
3131: bld_ev_ent := xla_events_pub_pkg.create_bulk_events(
3132: p_application_id => 222 ,
3127:
3128: log('xla_events_pub_pkg.create_bulk_events xla_mode IN (U,B)');
3129:
3130: /*
3131: bld_ev_ent := xla_events_pub_pkg.create_bulk_events(
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
3135: p_entity_type_code => l_entity_code ,-- to be set later
3138: -- p_security_context => l_security_context);
3139: */
3140: /* As this call is not suitable to AR, the bug for XLA spi enhancement has been logged
3141: BUG#4448003 for now converting this call to single event call
3142: xla_events_pub_pkg.create_bulk_events(
3143: p_source_application_id => NULL ,
3144: p_application_id => 222 ,
3145: p_legal_entity_id => '1' ,-- to be set later
3146: p_ledger_id => arp_standard.sysparm.set_of_books_id ,-- to be set later
3148: */
3149: cnt := bld_ev_ent.COUNT;
3150: IF cnt > 0 THEN
3151: FOR m IN bld_ev_ent.FIRST .. bld_ev_ent.LAST LOOP
3152: INSERT INTO xla_events_int_gt (
3153: APPLICATION_ID
3154: , LEGAL_ENTITY_ID
3155: , LEDGER_ID
3156: , ENTITY_CODE
3221: --to be ascertained after events template is filled
3222:
3223: IF bld_ev_rec.bld_dml_flag(m) = 'I' AND test_flag = 'N' THEN
3224:
3225: log('XLA_EVENTS_PUB_PKG.create_event');
3226:
3227: z := z + 1;
3228: log('hyu calling create event for zth time :'||z);
3229:
3226:
3227: z := z + 1;
3228: log('hyu calling create event for zth time :'||z);
3229:
3230: lnb := XLA_EVENTS_PUB_PKG.create_event(
3231: p_event_source_info => l_event_source_info ,
3232: p_event_type_code => bld_ev_ent(m).event_type_code ,
3233: p_event_date => bld_ev_ent(m).event_date ,
3234: p_event_status_code => bld_ev_ent(m).event_status_code ,
3241: p_security_context => l_security_context );
3242:
3243: ELSIF bld_ev_rec.bld_dml_flag(m) = 'U' AND test_flag = 'N' THEN
3244:
3245: log('XLA_EVENTS_PUB_PKG.update_event');
3246:
3247: log('bld_ev_ent(m).event_id :'||bld_ev_ent(m).event_id );
3248: log('bld_ev_ent(m).event_type_code :'||bld_ev_ent(m).event_type_code );
3249: log(' bld_ev_ent(m).event_date :'|| bld_ev_ent(m).event_date );
3249: log(' bld_ev_ent(m).event_date :'|| bld_ev_ent(m).event_date );
3250: log(' bld_ev_ent(m).event_status_code :'|| bld_ev_ent(m).event_status_code);
3251: log(' p_security_context.security_id_int_1 :'|| l_security_context.security_id_int_1 );
3252:
3253: XLA_EVENTS_PUB_PKG.update_event(
3254: p_event_source_info => l_event_source_info ,
3255: p_event_id => bld_ev_ent(m).event_id ,
3256: p_event_type_code => bld_ev_ent(m).event_type_code ,
3257: p_event_date => bld_ev_ent(m).event_date ,
3267:
3268: BEGIN
3269: SELECT a.transaction_number INTO trxn_number
3270: FROM xla_transaction_entities_upg a,
3271: xla_events b
3272: WHERE NVL(a.source_id_int_1,-99) = bld_ev_ent(m).source_id_int_1
3273: AND b.event_id = bld_ev_ent(m).event_id
3274: AND a.entity_id = b.entity_id
3275: AND a.security_id_int_1 = bld_ev_ent(m).security_id_int_1
3282: RAISE;
3283: END;
3284:
3285: IF NVL(trxn_number,-99) <> bld_ev_ent(m).transaction_number THEN
3286: XLA_EVENTS_PUB_PKG.UPDATE_TRANSACTION_NUMBER(
3287: p_event_source_info => l_event_source_info,
3288: p_transaction_number => bld_ev_ent(m).transaction_number,
3289: p_valuation_method => '',
3290: p_security_context => l_security_context ,
3320: IF p_xla_ev_rec.xla_mode = 'B' THEN
3321: OPEN for_batch;
3322: FETCH for_batch INTO l_test;
3323: IF for_batch%FOUND THEN
3324: log('Calling xla_events_pub_pkg.create_bulk_events +');
3325: xla_events_pub_pkg.create_bulk_events
3326: (p_application_id => 222,
3327: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3328: p_entity_type_code => l_entity_code);
3321: OPEN for_batch;
3322: FETCH for_batch INTO l_test;
3323: IF for_batch%FOUND THEN
3324: log('Calling xla_events_pub_pkg.create_bulk_events +');
3325: xla_events_pub_pkg.create_bulk_events
3326: (p_application_id => 222,
3327: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3328: p_entity_type_code => l_entity_code);
3329: --avoid recreation of successfully events
3326: (p_application_id => 222,
3327: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3328: p_entity_type_code => l_entity_code);
3329: --avoid recreation of successfully events
3330: DELETE from xla_events_int_gt WHERE entity_id IS NOT NULL;
3331: log('Calling xla_events_pub_pkg.create_bulk_events -');
3332: END IF;
3333: CLOSE for_batch;
3334: END IF;
3327: p_ledger_id => arp_standard.sysparm.set_of_books_id,
3328: p_entity_type_code => l_entity_code);
3329: --avoid recreation of successfully events
3330: DELETE from xla_events_int_gt WHERE entity_id IS NOT NULL;
3331: log('Calling xla_events_pub_pkg.create_bulk_events -');
3332: END IF;
3333: CLOSE for_batch;
3334: END IF;
3335: --}
3339: |the event. |
3340: +--------------------------------------------------------------*/
3341:
3342: <
3343: log('ARP_XLA_EVENTS.Create_All_Events ()-');
3344:
3345: EXCEPTION
3346: WHEN OTHERS THEN
3347: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3343: log('ARP_XLA_EVENTS.Create_All_Events ()-');
3344:
3345: EXCEPTION
3346: WHEN OTHERS THEN
3347: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3348: log('SQLERRM ' || SQLERRM);
3349: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3350: log('SQLERRM ' || SQLERRM);
3351: RAISE;
3345: EXCEPTION
3346: WHEN OTHERS THEN
3347: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3348: log('SQLERRM ' || SQLERRM);
3349: log('EXCEPTION: ARP_XLA_EVENTS.Create_All_Events ');
3350: log('SQLERRM ' || SQLERRM);
3351: RAISE;
3352: END Create_All_Events;
3353:
3380: ( p_xla_doc IN VARCHAR2,
3381: p_event_id IN NUMBER ) IS
3382:
3383: BEGIN
3384: log('arp_xla_events.un_denormalize_posting_entity()+');
3385:
3386: IF test_flag = 'Y' THEN
3387: GOTO endlabel;
3388: END IF;
3426: END IF;
3427:
3428: <
3429:
3430: log('arp_xla_events.un_denormalize_posting_entity()-');
3431:
3432: EXCEPTION
3433: WHEN OTHERS THEN
3434: log('EXCEPTION: arp_xla_events.un_denormalize_posting_entity');
3430: log('arp_xla_events.un_denormalize_posting_entity()-');
3431:
3432: EXCEPTION
3433: WHEN OTHERS THEN
3434: log('EXCEPTION: arp_xla_events.un_denormalize_posting_entity');
3435: log('SQLERRM '||sqlerrm);
3436: RAISE;
3437:
3438: END un_denormalize_posting_entity;
3520: |
3521: | CALLS PROCEDURES/FUNCTIONS (local to this package body)
3522: |
3523: | PARAMETERS
3524: | p_xla_ev_rec IN xla_events_type
3525: |
3526: | KNOWN ISSUES
3527: |
3528: | NOTES
3529: |
3530: | MODIFICATION HISTORY
3531: | Date Author Description of Changes
3532: *=======================================================================*/
3533: PROCEDURE Upd_Dist(p_xla_ev_rec IN xla_events_type) IS
3534:
3535: type l_rowid_type IS TABLE OF VARCHAR2(50)
3536: INDEX BY BINARY_INTEGER;
3537: type l_event_id_type IS TABLE OF NUMBER(15)
3555: l_last_updated_by NUMBER := arp_standard.profile.user_id;
3556: l_last_update_login NUMBER := arp_standard.profile.last_update_login;
3557: BEGIN
3558:
3559: log('ARP_XLA_EVENTS.Upd_Dist()+');
3560:
3561: IF p_xla_ev_rec.xla_call IN ('D','B') THEN
3562: null;
3563: ELSE goto endlabel;
3704:
3705: END LOOP; --Array (Bulk) Fetch
3706:
3707: <
3708: log('ARP_XLA_EVENTS.Upd_Dist()-');
3709:
3710: EXCEPTION
3711: WHEN OTHERS THEN
3712: log('EXCEPTION: ARP_XLA_EVENTS.Upd_Dist');
3708: log('ARP_XLA_EVENTS.Upd_Dist()-');
3709:
3710: EXCEPTION
3711: WHEN OTHERS THEN
3712: log('EXCEPTION: ARP_XLA_EVENTS.Upd_Dist');
3713: RAISE;
3714:
3715: END Upd_Dist;
3716:
3741:
3742: BEGIN
3743:
3744: log(' ');
3745: log('ARP_XLA_EVENTS.dump_ev_rec()+');
3746:
3747: IF p_ev_rec.trx_status.EXISTS(p_i) THEN
3748:
3749: log('p_ev_rec.trx_status(' || p_i || ') = '
3767: log('p_ev_rec.ev_match_type(' || p_i || ') = '
3768: || p_ev_rec.ev_match_type(p_i));
3769: END IF;
3770:
3771: log('ARP_XLA_EVENTS.dump_ev_rec()-');
3772: log(' ');
3773:
3774: EXCEPTION
3775: WHEN OTHERS THEN
3772: log(' ');
3773:
3774: EXCEPTION
3775: WHEN OTHERS THEN
3776: log('EXCEPTION: ARP_XLA_EVENTS.dump_ev_rec');
3777: RAISE;
3778: END dump_ev_rec;
3779:
3780:
3779:
3780:
3781: --HYU
3782: PROCEDURE dump_event_source_info
3783: (x_ev_source_info IN OUT NOCOPY xla_events_pub_pkg.t_event_Source_info)
3784: IS
3785: BEGIN
3786:
3787: log(' ');
3784: IS
3785: BEGIN
3786:
3787: log(' ');
3788: log('ARP_XLA_EVENTS.dump_event_source_info()+');
3789:
3790: log('x_ev_source_info.application_id = '
3791: || x_ev_source_info.application_id);
3792: log('x_ev_source_info.legal_entity_id = '
3814: log('x_ev_source_info.source_id_char_4 = '
3815: || x_ev_source_info.source_id_char_4);
3816: log('x_ev_source_info.legal_entity_id = '
3817: || x_ev_source_info.legal_entity_id);
3818: log('ARP_XLA_EVENTS.dump_event_source_info()-');
3819: log(' ');
3820:
3821: EXCEPTION
3822: WHEN OTHERS THEN
3819: log(' ');
3820:
3821: EXCEPTION
3822: WHEN OTHERS THEN
3823: log('EXCEPTION: ARP_XLA_EVENTS.dump_event_source_info');
3824: RAISE;
3825: END dump_event_source_info;
3826:
3827: /*========================================================================
3853: *=======================================================================*/
3854: FUNCTION Change_Matrix(trx_status IN VARCHAR2 ,
3855: dist_gl_date IN DATE ,
3856: ev_match_gl_date IN DATE ,
3857: ev_match_status IN xla_events.event_status_code%TYPE,
3858: posttogl IN VARCHAR2) RETURN VARCHAR2 IS
3859:
3860: l_change_matrix VARCHAR2(30);
3861:
3860: l_change_matrix VARCHAR2(30);
3861:
3862: BEGIN
3863:
3864: log('ARP_XLA_EVENTS.Change_Matrix()+');
3865: log('trx_status :'||trx_status);
3866: log('dist_gl_date :'||dist_gl_date);
3867: log('ev_match_gl_date :'||ev_match_gl_date);
3868: log('ev_match_status :'||ev_match_status);
4142: END IF; --distributions cannot be posted
4143:
4144: RETURN(l_change_matrix);
4145:
4146: log('ARP_XLA_EVENTS.Change_Matrix()-');
4147:
4148: EXCEPTION
4149: WHEN OTHERS THEN
4150: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4146: log('ARP_XLA_EVENTS.Change_Matrix()-');
4147:
4148: EXCEPTION
4149: WHEN OTHERS THEN
4150: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4151: RAISE;
4152: END Change_Matrix;
4153:
4154: /*========================================================================
4177: p_i IN BINARY_INTEGER ,
4178: p_tag IN VARCHAR2 ) IS
4179: BEGIN
4180:
4181: log('ARP_XLA_EVENTS.dump_bld_rec()+');
4182:
4183: IF p_bld_rec.bld_dml_flag.EXISTS(p_i) THEN
4184:
4185: log(p_tag ||'.bld_dml_flag('||p_i||') = '
4185: log(p_tag ||'.bld_dml_flag('||p_i||') = '
4186: || p_bld_rec.bld_dml_flag(p_i));
4187: END IF;
4188:
4189: log('ARP_XLA_EVENTS.dump_bld_rec()-');
4190: log(' ');
4191:
4192: EXCEPTION
4193: WHEN OTHERS THEN
4190: log(' ');
4191:
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: log('EXCEPTION: ARP_XLA_EVENTS.dump_bld_rec');
4195: RAISE;
4196:
4197: END dump_bld_rec;
4198:
4218: | MODIFICATION HISTORY
4219: | Date Author Description of Changes
4220: *=======================================================================*/
4221: PROCEDURE dump_event_info
4222: (p_ev_info_tab IN OUT NOCOPY xla_events_pub_pkg.t_array_entity_event_info_s,
4223: p_i IN BINARY_INTEGER ,
4224: p_tag IN VARCHAR2 ) IS
4225: BEGIN
4226:
4223: p_i IN BINARY_INTEGER ,
4224: p_tag IN VARCHAR2 ) IS
4225: BEGIN
4226:
4227: log('ARP_XLA_EVENTS.dump_event_info()+');
4228:
4229: IF p_ev_info_tab.EXISTS(p_i) THEN
4230:
4231: log(p_tag ||'.p_ev_info_tab('||p_i||').event_id = '||
4247: p_ev_info_tab(p_i).transaction_number );
4248:
4249: END IF;
4250:
4251: log('ARP_XLA_EVENTS.dump_event_info()-');
4252: log(' ');
4253:
4254: EXCEPTION
4255: WHEN OTHERS THEN
4252: log(' ');
4253:
4254: EXCEPTION
4255: WHEN OTHERS THEN
4256: log('EXCEPTION: ARP_XLA_EVENTS.dump_event_info');
4257: RAISE;
4258:
4259: END dump_event_info;
4260:
4281: *=======================================================================*/
4282: PROCEDURE delete_event( p_document_id IN NUMBER,
4283: p_doc_table IN VARCHAR2)
4284: IS
4285: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4286: l_security xla_events_pub_pkg.t_security;
4287: l_event_id NUMBER;
4288: /*7229913 */
4289: l_invoicing_rule_id NUMBER;
4282: PROCEDURE delete_event( p_document_id IN NUMBER,
4283: p_doc_table IN VARCHAR2)
4284: IS
4285: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4286: l_security xla_events_pub_pkg.t_security;
4287: l_event_id NUMBER;
4288: /*7229913 */
4289: l_invoicing_rule_id NUMBER;
4290: l_document_id NUMBER;
4293: CURSOR c_ct_rules is
4294: select xe.event_id event_id from
4295: ra_customer_trx ct,
4296: xla_transaction_entities_upg xte,
4297: xla_events xe
4298: where ct.customer_trx_id = p_document_id
4299: and ct.invoicing_rule_id in (-2,-3)
4300: and ct.set_of_books_id = xte.ledger_id
4301: and nvl(xte.source_id_int_1,-99) = ct.customer_trx_id
4330: FROM ar_transaction_history
4331: WHERE transaction_history_id = p_document_id;
4332:
4333: BEGIN
4334: log('arp_xla_events.delete_event ()+');
4335:
4336: IF p_doc_table = 'CT' THEN
4337: OPEN c_ct;
4338: FETCH c_ct INTO l_event_id;
4372: l_event_source_info.application_id := 222;
4373: l_event_source_info.ledger_id := arp_standard.sysparm.set_of_books_id; --to be set
4374: l_event_source_info.source_id_int_1 := NVL(l_document_id, p_document_id);
4375:
4376: xla_events_pub_pkg.delete_event
4377: ( p_event_source_info => l_event_source_info,
4378: p_event_id => l_event_id,
4379: p_valuation_method => NULL,
4380: p_security_context => l_security);
4379: p_valuation_method => NULL,
4380: p_security_context => l_security);
4381: END IF;
4382:
4383: log('arp_xla_events.delete_event ()-');
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: log('EXCEPTION: arp_xla_events.delete_event'||SQLERRM);
4387: RAISE;
4382:
4383: log('arp_xla_events.delete_event ()-');
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: log('EXCEPTION: arp_xla_events.delete_event'||SQLERRM);
4387: RAISE;
4388: END delete_event;
4389:
4390:
4392: | PUBLIC FUNCTION delete_reverse_revrec_event
4393: |
4394: | DESCRIPTION
4395: | This procedure is a wrapper on the top of XLA delete_event API.
4396: | This procedure is used to delete the events from xla_events
4397: | other than the REC event when a transaction with rule is incompleted.
4398: |
4399: | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
4400: |
4416: PROCEDURE delete_reverse_revrec_event( p_document_id IN NUMBER,
4417: p_doc_table IN VARCHAR2)
4418: IS
4419:
4420: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4421: l_security xla_events_pub_pkg.t_security;
4422: l_event_id NUMBER;
4423:
4424:
4417: p_doc_table IN VARCHAR2)
4418: IS
4419:
4420: l_event_source_info xla_events_pub_pkg.t_event_source_info;
4421: l_security xla_events_pub_pkg.t_security;
4422: l_event_id NUMBER;
4423:
4424:
4425: CURSOR c_ct IS
4438: );
4439:
4440:
4441: BEGIN
4442: log('arp_xla_events.delete_reverse_revrec_event ()+');
4443:
4444: FOR c IN c_ct loop
4445:
4446: l_event_id := c.event_id;
4450: l_event_source_info.application_id := 222;
4451: l_event_source_info.ledger_id := arp_standard.sysparm.set_of_books_id; --to be set
4452: l_event_source_info.source_id_int_1 := p_document_id;
4453:
4454: xla_events_pub_pkg.delete_event
4455: ( p_event_source_info => l_event_source_info,
4456: p_event_id => l_event_id,
4457: p_valuation_method => NULL,
4458: p_security_context => l_security);
4458: p_security_context => l_security);
4459:
4460: END loop;
4461:
4462: log('arp_xla_events.delete_reverse_revrec_event ()-');
4463: EXCEPTION
4464: WHEN OTHERS THEN
4465: log('EXCEPTION: arp_xla_events.delete_reverse_revrec_event'||SQLERRM);
4466: RAISE;
4461:
4462: log('arp_xla_events.delete_reverse_revrec_event ()-');
4463: EXCEPTION
4464: WHEN OTHERS THEN
4465: log('EXCEPTION: arp_xla_events.delete_reverse_revrec_event'||SQLERRM);
4466: RAISE;
4467: END delete_reverse_revrec_event;
4468:
4469:
4519: i NUMBER := 0;
4520: l_trx_cnt Number := 0;
4521:
4522: BEGIN
4523: log('ARP_XLA_EVENTS.ar_xla_period_close ()+');
4524:
4525: p_cannot_close_period := FALSE;
4526: p_incomplete_events := FALSE;
4527:
4571: END IF;
4572:
4573: EXCEPTION
4574: WHEN OTHERS THEN
4575: log('OTHERS EXCEPTION: ARP_XLA_EVENTS.ar_xla_period_close');
4576: RAISE;
4577: END;
4578:
4579: ELSE /* Some other period exception raised by XLA hence period cannot be closed*/
4588:
4589: END LOOP;
4590: CLOSE XLA_PERIOD_CLOSE_EXP_PKG.period_close_cur_evt;
4591:
4592: log('ARP_XLA_EVENTS.ar_xla_period_close ()-');
4593: EXCEPTION
4594: WHEN OTHERS THEN
4595: log('OTHERS EXCEPTION: ARP_XLA_EVENTS.ar_xla_period_close');
4596: RAISE;
4591:
4592: log('ARP_XLA_EVENTS.ar_xla_period_close ()-');
4593: EXCEPTION
4594: WHEN OTHERS THEN
4595: log('OTHERS EXCEPTION: ARP_XLA_EVENTS.ar_xla_period_close');
4596: RAISE;
4597: END ar_xla_period_close;
4598:
4599:
4623: p_code IN VARCHAR2)
4624: IS
4625: BEGIN
4626: IF p_code = 'CTADJ' THEN
4627: -- arp_xla_events.create_events(p_request_id, 'CT');
4628: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4629: ELSE
4630: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4631: END IF;
4624: IS
4625: BEGIN
4626: IF p_code = 'CTADJ' THEN
4627: -- arp_xla_events.create_events(p_request_id, 'CT');
4628: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4629: ELSE
4630: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4631: END IF;
4632:
4626: IF p_code = 'CTADJ' THEN
4627: -- arp_xla_events.create_events(p_request_id, 'CT');
4628: -- arp_xla_events.create_events(p_request_id, 'ADJ');
4629: ELSE
4630: -- arp_xla_events.create_events(p_request_id, 'CTCMAPP');
4631: END IF;
4632:
4633: IF p_code = 'CTADJ' THEN
4634: INSERT INTO RA_INTERFACE_ERRORS
4638: select l.interface_line_id,
4639: xgt.error_msg,
4640: l.org_id
4641: from ra_interface_lines_gt l,
4642: xla_events_gt xgt
4643: where l.request_id = p_request_id
4644: and l.customer_trx_id = xgt.source_id_int_1
4645: and l.event_id = -9999
4646: and xgt.event_class_code in ('INV_CREATE','DM_CREATE','CM_CREATE','ADJ_CREATE');
4652: select l.interface_line_id,
4653: xgt.error_msg,
4654: l.org_id
4655: from ra_interface_lines_gt l,
4656: xla_events_gt xgt
4657: where l.request_id = p_request_id
4658: and l.customer_trx_id = xgt.source_id_int_1
4659: and l.event_id = -9999
4660: and xgt.event_class_code in ('CM_CREATE')
4662: END IF;
4663: END;
4664: */
4665:
4666: END ARP_XLA_EVENTS;