PROMPT Force delete elements with el_type_of set to 'NAI'

DECLARE
   bug_no varchar2(8) := 'CK905622';
BEGIN

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

  for aci in 
  (
    select e.el_id id,
	       e.el_type_of type
    from sdd_elements@r212 e
    where e.el_type_of = 'NAI'
    and   e.el_elem_owned_by in ( select ci_appid
	    				    from ck_migration_objects
					    where ci_stage = 'APPSEL' )
  )
  loop
    ciiutl.delete_element@r212(aci.id, aci.type );
  
    delete from sdd_elements@r212
    where el_id = aci.id;
    
  end loop; 

  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;
/
