[Home] [Help]
11: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
13: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCUPGDB.IGC_UPGRADE_DATA_R12.';
15: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
16: g_sob_id NUMBER := 0;
17: g_sob_name VARCHAR2(50) := NULL;
18: g_cbc_ledger_id gl_ledgers.ledger_id%TYPE := 0;
19: g_cbc_ledger_name VARCHAR2(50) := NULL;
1191: v_access_set_id number;
1192: User_Exception Exception;
1193: l_request_status NUMBER;
1194: BEGIN
1195: v_access_set_id := fnd_profile.value('GL_ACCESS_SET_ID');
1196: If nvl(p_latest_open_year,0) < p_fiscal_year then
1197: req_id
1198: := fnd_request.submit_request(
1199: 'SQLGL',
1510: PROCEDURE migrate_cbc_bud_jounals(p_fiscal_year IN NUMBER)
1511: IS
1512: l_user_id NUMBER := FND_GLOBAL.user_id;
1513:
1514: l_gl_data_access_set fnd_profile_option_values.profile_option_value%type;
1515:
1516: l_request_id_current NUMBER := fnd_global.conc_request_id;
1517: l_request_id_bud NUMBER;
1518: l_request_id_comp NUMBER;
1604: BEGIN
1605:
1606: l_full_path := g_path || 'migrate_cbc_bud_jounals';
1607:
1608: l_gl_data_access_set := fnd_profile.value('GL_ACCESS_SET_ID');
1609:
1610: -- First Check all budget version exists in Secondary ledger
1611:
1612: BEGIN
1889: ) IS
1890: l_error VARCHAR2(2000);
1891: l_option_name VARCHAR2(80);
1892: l_dummy VARCHAR2(1);
1893: l_gl_data_access_set fnd_profile_option_values.profile_option_value%type;
1894: BEGIN
1895:
1896: IF NOT igi_gen.is_req_installed('CBC') THEN
1897:
1949: EXCEPTION
1950: WHEN OTHERS THEN NULL;
1951: END;
1952:
1953: l_gl_data_access_set := fnd_profile.value('GL_ACCESS_SET_ID');
1954:
1955: BEGIN
1956: SELECT distinct '1'
1957: INTO l_dummy