PROMPT Populate missing name on Application Logic...

DECLARE
   bug_no varchar2(9):= 'CK1003195';
   new_name varchar2(28) := '<Detected null by Migration>';
BEGIN

  update ck_migration_objects set ci_created = 'N' where ci_stage = 'CKPREMIG' and ci_name = bug_no;

  update ck_application_logic@r212
  set al_evt_name = new_name
  where al_evt_name is null
  and al_type = 'E';

  update ck_application_logic@r212
  set al_nr_routine_name = new_name
  where al_nr_routine_name is null
  and al_type = 'N';
  
  update ck_migration_objects set ci_created = 'Y' where ci_stage = 'CKPREMIG' and ci_name = bug_no;
   
  commit;
  
EXCEPTION 
  when others then
     dbms_output.put_line (' ** Exception Raised ** ');
     dbms_output.put_line ('...ERROR: '||substrb(sqlerrm,1,200));
     raise;
	 
end;
/
