[Home] [Help]
361:
362: --
363: -- Check if Journal Source exists in db
364: -- This procedure does not validate journal source against
365: -- xla_tb_defn_je_sources.
366: --
367: SELECT COUNT(1)
368: INTO l_db_cnt
369: FROM xla_subledgers xs
942: l_created_by := xla_environment_pkg.g_usr_id;
943: l_last_updated_by := xla_environment_pkg.g_usr_id;
944: l_last_update_login := xla_environment_pkg.g_login_id;
945:
946: INSERT INTO xla_tb_defn_je_sources
947: (definition_code
948: ,je_source_name
949: ,object_version_number
950: ,owner_code
965: ,l_last_update_login
966: FROM dual
967: WHERE NOT EXISTS (
968: SELECT 1
969: FROM xla_tb_defn_je_sources
970: WHERE definition_code = p_definition_code
971: AND je_source_name = p_je_source_name);
972:
973: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
1864: ,xla_environment_pkg.g_Prog_Appl_Id
1865: ,xla_environment_pkg.g_Prog_Id
1866: ,SYSDATE
1867: FROM xla_subledgers xsu,
1868: xla_tb_defn_je_sources xjs,
1869: xla_event_class_attrs xeca
1870: WHERE xeca.event_class_code <> 'MANUAL'
1871: AND xsu.application_id = xeca.application_id
1872: AND xsu.je_source_name = xjs.je_source_name
2177: ,ap_liability_balance alb
2178: ,xla_event_types_b xet
2179: ,xla_tb_defn_details xdd
2180: ,xla_tb_definitions_b xtd
2181: ,xla_tb_defn_je_sources xjs
2182: ,xla_subledgers xsu
2183: ,xla_transaction_entities_upg PARTITION (AP) xteu
2184: ,xla_ae_lines PARTITION (AP) xal
2185: ,gl_code_combinations gcc
2417: ,p_module => l_log_module);
2418: END IF;
2419:
2420: FORALL i IN l_array_defn_code.first .. l_array_defn_code.last
2421: INSERT INTO xla_tb_defn_je_sources
2422: (definition_code
2423: ,je_source_name
2424: ,object_version_number
2425: ,creation_date
2439: ,'S');
2440:
2441: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
2442: trace
2443: (p_msg => 'inserted definition into the xla_tb_defn_je_sources:'|| SQL%ROWCOUNT
2444: ,p_level => C_LEVEL_STATEMENT
2445: ,p_module => l_log_module);
2446: END IF;
2447: