75: errbuf := 'Error while getting db_link';
76: return;
77: end if;
78:
79: x_source_table := 'MSD_SETUP_PARAMETERS'||x_dblink;
80: /* -- Old Query
81: x_sql_stmt := 'SELECT COUNT(*) FROM '||x_source_table||' where instance_id = '||p_instance_id;
82: */
83:
196: /* Initialization parameter values */
197: Init;
198:
199:
200: -- Find out if there are rows in msd_setup_parameters in the source instance
201: --
202: -- Call MSD_CONC_LOG_UTIL.Initialize for log file for concurrent program
203: --
204: msd_conc_log_util.Initilize(msd_conc_log_util.C_OUTPUT_TO_FNDFILE);
407: msd_conc_log_util.display_message('Please make sure that profiles ' ||
408: 'MSD_CONVERSION_TYPE and MSD_MASTER_ORG are set in Source instance.', msd_conc_log_util.C_ERROR);
409: msd_conc_log_util.display_message(' and MSD_CURRENCY_CODE profile in the Planning Server are set.', msd_conc_log_util.C_ERROR);
410: ELSE
411: msd_conc_log_util.display_message('Deleting records from msd_setup_parameters in the Source instance', msd_conc_log_util.C_HEADING);
412: /* Truncate Source msd_setup_parameters */
413: l_sql := 'delete from msd_setup_parameters' || g_dblink;
414: EXECUTE IMMEDIATE l_sql;
415:
408: 'MSD_CONVERSION_TYPE and MSD_MASTER_ORG are set in Source instance.', msd_conc_log_util.C_ERROR);
409: msd_conc_log_util.display_message(' and MSD_CURRENCY_CODE profile in the Planning Server are set.', msd_conc_log_util.C_ERROR);
410: ELSE
411: msd_conc_log_util.display_message('Deleting records from msd_setup_parameters in the Source instance', msd_conc_log_util.C_HEADING);
412: /* Truncate Source msd_setup_parameters */
413: l_sql := 'delete from msd_setup_parameters' || g_dblink;
414: EXECUTE IMMEDIATE l_sql;
415:
416: msd_conc_log_util.display_message('Inserting profile into source msd_setup_parameters', msd_conc_log_util.C_INFORMATION);
409: msd_conc_log_util.display_message(' and MSD_CURRENCY_CODE profile in the Planning Server are set.', msd_conc_log_util.C_ERROR);
410: ELSE
411: msd_conc_log_util.display_message('Deleting records from msd_setup_parameters in the Source instance', msd_conc_log_util.C_HEADING);
412: /* Truncate Source msd_setup_parameters */
413: l_sql := 'delete from msd_setup_parameters' || g_dblink;
414: EXECUTE IMMEDIATE l_sql;
415:
416: msd_conc_log_util.display_message('Inserting profile into source msd_setup_parameters', msd_conc_log_util.C_INFORMATION);
417:
412: /* Truncate Source msd_setup_parameters */
413: l_sql := 'delete from msd_setup_parameters' || g_dblink;
414: EXECUTE IMMEDIATE l_sql;
415:
416: msd_conc_log_util.display_message('Inserting profile into source msd_setup_parameters', msd_conc_log_util.C_INFORMATION);
417:
418: /* Insert profiles in source msd_setup_parameters */
419: l_sql := 'insert into msd_setup_parameters' || g_dblink ||
420: ' (instance_id, parameter_name, parameter_value) values (:1, :2, :3)';
414: EXECUTE IMMEDIATE l_sql;
415:
416: msd_conc_log_util.display_message('Inserting profile into source msd_setup_parameters', msd_conc_log_util.C_INFORMATION);
417:
418: /* Insert profiles in source msd_setup_parameters */
419: l_sql := 'insert into msd_setup_parameters' || g_dblink ||
420: ' (instance_id, parameter_name, parameter_value) values (:1, :2, :3)';
421:
422: FOR j IN l_para_prof.FIRST..l_para_prof.LAST LOOP
415:
416: msd_conc_log_util.display_message('Inserting profile into source msd_setup_parameters', msd_conc_log_util.C_INFORMATION);
417:
418: /* Insert profiles in source msd_setup_parameters */
419: l_sql := 'insert into msd_setup_parameters' || g_dblink ||
420: ' (instance_id, parameter_name, parameter_value) values (:1, :2, :3)';
421:
422: FOR j IN l_para_prof.FIRST..l_para_prof.LAST LOOP
423: EXECUTE IMMEDIATE l_sql using p_instance_id, l_para_prof(j).profile_name, l_para_prof(j).parameter_value;
497:
498: TYPE Source_Profile_Value IS REF CURSOR;
499: c_source_profile Source_Profile_Value;
500:
501: TYPE parameter_name_tab IS TABLE OF MSD_SETUP_PARAMETERS.parameter_name%TYPE;
502: TYPE parameter_value_tab IS TABLE OF MSD_SETUP_PARAMETERS.parameter_value%TYPE;
503:
504: a_parameter_name parameter_name_tab;
505: a_parameter_value parameter_value_tab;
498: TYPE Source_Profile_Value IS REF CURSOR;
499: c_source_profile Source_Profile_Value;
500:
501: TYPE parameter_name_tab IS TABLE OF MSD_SETUP_PARAMETERS.parameter_name%TYPE;
502: TYPE parameter_value_tab IS TABLE OF MSD_SETUP_PARAMETERS.parameter_value%TYPE;
503:
504: a_parameter_name parameter_name_tab;
505: a_parameter_value parameter_value_tab;
506:
541: FOR i IN l_para_prof.FIRST..l_para_prof.LAST LOOP
542: l_para_prof(i).parameter_value := decode_profile_function(l_para_prof(i));
543: END LOOP;
544:
545: v_sql_stmt := 'SELECT parameter_name, parameter_value FROM MSD_SETUP_PARAMETERS'||g_dblink ||
546: ' where instance_id = ' || p_instance_id;
547:
548: /* Does not work on Oracle 8i
549: * OPEN c_source_profile FOR v_sql_stmt;