İş Akışı Hataya Düştüğünde Yeniden Gönderme Scripti

 
DECLARE
   CURSOR xx_errors
   IS
      SELECT sta.item_type item_type, sta.activity_result_code RESULT,
                pra.process_name
             || ':'
             || pra.instance_label process_activity_label,
             sta.process_activity instance_id, sta.item_key item_key
        FROM wf_item_activity_statuses sta, wf_process_activities pra
       WHERE sta.activity_status = 'ERROR'
         AND sta.process_activity = pra.instance_id
         AND sta.item_type = 'XXWF';
BEGIN
   FOR csr IN xx_errors
   LOOP
      wf_engine.handleerror (itemtype      => 'XXWF',
                             itemkey       => csr.item_key,
                             activity      => csr.process_activity_label,
                             command       => 'RETRY',
                             RESULT        => NULL
                            );
      fnd_file.put_line (fnd_file.LOG, 'csr.ITEM_KEY');
      COMMIT;
   END LOOP;
EXCEPTION
   WHEN OTHERS
   THEN
      fnd_file.put_line (fnd_file.LOG,
                         'Workflow Successfully Progressed' || SQLERRM
                        );
END;