FOR diff IN (select distinct name, type from
                     (select name, type, line, text from all_source where owner = 'PATCHED'
                       minus
                      select name, type, line, text from all_source where owner = 'ORIG')                      
              )
  LOOP
    err := err + 1;
    dbms_output.put_line('Unexpected  '||diff.type||': '||diff.name);
  END LOOP;

  FOR diff IN (select distinct name, type from
                     (select name, type, line, text from all_source where owner = 'ORIG' 
                       minus
                      select name, type, line, text from all_source where owner = 'PATCHED')
              )
  LOOP
    err := err + 1;
    dbms_output.put_line('Missing  '||diff.type||': '||diff.name);
  END LOOP;

SELECT OBJECT_NAME,SHARING FROM DBA_OBJECTS WHERE OBJECT_TYPE = 'TYPE' AND OBJECT_NAME LIKE 'SYS_PLSQL%' AND ROWNUM = 1;

select hitrozhopiy_package_name(ao.???) FROM ALL_OBJECTS ao where owner = 'ORIG' and object_type = 'TYPE';

FETCH v_rs INTO v_currec;

        FETCH v_rs INTO v_currec.ae_id, v_currec.ae_type_id, v_currec.ae_objid, v_currec.ae_time_of_removal, 
                        v_currec.ae_version, v_currec.ae_ost_id, v_currec.ae_deploy_condition, v_currec.ae_ot_id, v_currec.type_list;