[Home] [Help]
2820: IS
2821: -- Retrieve any ledgers that does not enable budgetary control
2822: CURSOR c_invalid_bc_ledgers IS
2823: SELECT gl.ledger_id, gl.name ledger_name
2824: FROM xla_acct_prog_events_gt xpa
2825: , gl_ledgers gl
2826: WHERE xpa.ledger_id = gl.ledger_id
2827: AND enable_budgetary_control_flag = 'N'
2828: AND ROWNUM = 1;
2832: CURSOR c_invalid_ledger_id IS
2833: SELECT xgl.ledger_id
2834: , xgl.name ledger_name
2835: , xam.name slam_name
2836: FROM xla_acct_prog_events_gt xap
2837: , xla_gl_ledgers_v xgl
2838: , xla_acctg_methods_tl xam
2839: , xla_acctg_method_rules xar
2840: , xla_aad_line_defn_assgns xal
2867: SELECT /*+ LEADING (XAP) USE_NL (XAP XE XTE) */
2868: xe.event_id
2869: FROM xla_transaction_entities xte
2870: , xla_events xe
2871: , xla_acct_prog_events_gt xap
2872: WHERE xte.application_id = xe.application_id
2873: AND xte.entity_id = xe.entity_id
2874: AND xe.application_id = p_application_id
2875: AND xe.event_id = xap.event_id
2876: FOR UPDATE NOWAIT;
2877:
2878: CURSOR c_entities IS
2879: SELECT distinct entity_id
2880: FROM xla_acct_prog_events_gt xap
2881: , xla_events xe
2882: WHERE xe.application_id = p_application_id
2883: AND xe.event_id = xap.event_id;
2884:
2884:
2885: -- Retrieve list of ledgers to be processed
2886: CURSOR c_ledgers IS
2887: SELECT DISTINCT ledger_id
2888: FROM xla_acct_prog_events_gt;
2889:
2890: i INTEGER;
2891: l_request_id INTEGER;
2892: l_array_event_id t_array_integer;
3060: END IF;
3061:
3062: --
3063: -- Lock all entity and events in xla_entity_events_v that exists in the
3064: -- xla_acct_prog_events_gt
3065: --
3066: OPEN c_lock_entity_events;
3067: FETCH c_lock_entity_events BULK COLLECT INTO l_array_event_id;
3068: CLOSE c_lock_entity_events;
3164: -- 7193986 start
3165:
3166: FOR x IN (
3167: SELECT DISTINCT xla_evt_class_orders_gt.processing_order
3168: FROM xla_acct_prog_events_gt ,
3169: xla_events ,
3170: xla_event_types_b ,
3171: xla_transaction_entities,
3172: xla_evt_class_orders_gt
3169: xla_events ,
3170: xla_event_types_b ,
3171: xla_transaction_entities,
3172: xla_evt_class_orders_gt
3173: WHERE xla_events.event_id = xla_acct_prog_events_gt.event_id
3174: AND xla_events.application_id = p_application_id
3175: AND xla_transaction_entities.application_id = p_application_id
3176: AND xla_events.entity_id = xla_transaction_entities.entity_id
3177: AND xla_event_types_b.application_id = p_application_id
3502: -- this procedure is called directly to perform GL xfer
3503: xla_security_pkg.set_security_context(p_application_id);
3504:
3505:
3506: INSERT INTO xla_acct_prog_events_gt (event_id, ledger_id)
3507: SELECT xe.event_id, xte.ledger_id
3508: FROM xla_events xe
3509: , xla_transaction_entities xte
3510: WHERE xte.application_id = p_application_id
3523:
3524:
3525: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
3526: trace
3527: (p_msg => 'Rows inserted into xla_acct_prog_events_gt = '||SQL%ROWCOUNT
3528: ,p_level => C_LEVEL_STATEMENT
3529: ,p_module => l_log_module);
3530: END IF;
3531:
7261: l_array_event_dates t_array_date;
7262: CURSOR c_events IS
7263: SELECT distinct event_date
7264: FROM xla_events a
7265: ,xla_acct_prog_events_gt b
7266: WHERE a.application_id = g_application_id
7267: AND a.event_id = b.event_id
7268: AND a.process_status_code = 'U'
7269: AND a.event_status_code IN ('U',DECODE(g_accounting_mode,'F','N','U'))
7289: ,p_event_ledger_id => g_ledger_id);
7290:
7291: -- 5054831 -----------------------------
7292: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
7293: FOR i in (select a.* from xla_acct_prog_events_gt b, xla_events a WHERE a.application_id = g_application_id
7294: AND a.event_id = b.event_id
7295: AND a.process_status_code = 'U'
7296: AND a.event_status_code IN ('U',DECODE(g_accounting_mode,'F','N','U'))
7297: AND a.on_hold_flag = 'N'
7344: END IF;
7345:
7346:
7347: --
7348: -- Insert into xla_events_gt for the entity in xla_acct_prog_events_gt
7349: -- for the p_application_id and p_ledger_id.
7350: --
7351: INSERT INTO xla_events_gt
7352: (entity_id
7421: ,xev.reference_date_2
7422: ,xev.reference_date_3
7423: ,xev.reference_date_4
7424: FROM xla_entity_events_v xev
7425: , xla_acct_prog_events_gt xap
7426: WHERE xev.application_id = g_application_id
7427: AND xev.event_id = xap.event_id
7428: AND xev.process_status_code = 'U'
7429: AND xev.event_status_code IN ('U',DECODE(g_accounting_mode,'F','N','U'))
7431: AND xev.event_type_code not in ('FULL_MERGE', 'PARTIAL_MERGE')
7432: AND xap.ledger_id = g_ledger_id
7433: AND xap.event_id IN (
7434: SELECT xla_events.event_id
7435: FROM xla_acct_prog_events_gt ,
7436: xla_events ,
7437: xla_event_types_b ,
7438: xla_transaction_entities,
7439: xla_evt_class_orders_gt
7436: xla_events ,
7437: xla_event_types_b ,
7438: xla_transaction_entities,
7439: xla_evt_class_orders_gt
7440: WHERE xla_events.event_id = xla_acct_prog_events_gt.event_id
7441: AND xla_events.application_id = g_application_id
7442: AND xla_transaction_entities.application_id = g_application_id
7443: AND xla_events.entity_id = xla_transaction_entities.entity_id
7444: AND xla_event_types_b.application_id = g_application_id
7555: SELECT /*+ LEADING (XAP) USE_NL (XAP XE XAH) */
7556: xah.ae_header_id
7557: FROM xla_ae_headers xah
7558: , xla_events xe
7559: , xla_acct_prog_events_gt xap
7560: WHERE xah.application_id = xe.application_id
7561: AND xah.event_id = xe.event_id
7562: AND xah.accounting_entry_status_code <> 'F'
7563: AND xe.application_id = g_application_id
7581: SELECT /*+ leading(xap,xe) use_nl(xe) index(xe,XLA_EVENTS_U1) */
7582: xe.event_id
7583: BULK COLLECT INTO l_array_event_id
7584: FROM xla_events xe
7585: , xla_acct_prog_events_gt xap
7586: WHERE xe.application_id = g_application_id
7587: AND xe.process_status_code <> 'P'
7588: AND xe.event_id = xap.event_id;
7589: