415: --+
416: cursor get_program_application is
417: select application_short_name
418: from fnd_application
419: where application_id = fnd_global.prog_appl_id;
420: --+
421: cursor get_program is
422: select concurrent_program_name
423: from fnd_concurrent_programs
420: --+
421: cursor get_program is
422: select concurrent_program_name
423: from fnd_concurrent_programs
424: where concurrent_program_id = fnd_global.conc_program_id;
425: --+
426: begin
427: --+
428: log_message('All Migration Started at '||