845: set_rec set_refresh_numbers % rowtype;
846: deleted NUMBER;
847:
848: BEGIN
849: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
850: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
851: fnd_file.PUT_LINE(fnd_file.LOG, '+--------------Entering the procedure purge_custom_data_stream--------------+');
852:
853: FOR rec IN min_refresh_numbers
846: deleted NUMBER;
847:
848: BEGIN
849: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
850: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
851: fnd_file.PUT_LINE(fnd_file.LOG, '+--------------Entering the procedure purge_custom_data_stream--------------+');
852:
853: FOR rec IN min_refresh_numbers
854: LOOP
847:
848: BEGIN
849: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
850: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
851: fnd_file.PUT_LINE(fnd_file.LOG, '+--------------Entering the procedure purge_custom_data_stream--------------+');
852:
853: FOR rec IN min_refresh_numbers
854: LOOP
855:
870:
871: EXECUTE IMMEDIATE l_sql_stmt;
872:
873: IF fnd_profile.VALUE('MRP_DEBUG_MODE') = 'Y' THEN
874: fnd_file.PUT_LINE(fnd_file.LOG, l_sql_stmt);
875: END IF;
876:
877: COMMIT;
878:
875: END IF;
876:
877: COMMIT;
878:
879: --fnd_file.PUT_LINE(fnd_file.LOG, l_sql_stmt);
880: deleted := deleted + set_rec.deleted_rec;
881:
882: END IF;
883:
887:
888: CLOSE set_refresh_numbers;
889:
890: IF deleted > 0 THEN
891: fnd_file.PUT_LINE(fnd_file.LOG, to_char(deleted) || ' unused records purged for the custom stream - ' || rec.csname);
892:
893: END IF;
894:
895: END IF;
895: END IF;
896:
897: END LOOP;
898:
899: fnd_file.PUT_LINE(fnd_file.LOG, '+-------------Exiting from the procedure purge_custom_data_stream-----------+');
900: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
901: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
902:
903: EXCEPTION
896:
897: END LOOP;
898:
899: fnd_file.PUT_LINE(fnd_file.LOG, '+-------------Exiting from the procedure purge_custom_data_stream-----------+');
900: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
901: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
902:
903: EXCEPTION
904: WHEN others THEN
897: END LOOP;
898:
899: fnd_file.PUT_LINE(fnd_file.LOG, '+-------------Exiting from the procedure purge_custom_data_stream-----------+');
900: fnd_file.PUT_LINE(fnd_file.LOG, '+---------------------------------------------------------------------------+');
901: fnd_file.PUT_LINE(fnd_file.LOG, ' ');
902:
903: EXCEPTION
904: WHEN others THEN
905: lv_error_text := SUBSTR(sqlerrm, 1, 240);
902:
903: EXCEPTION
904: WHEN others THEN
905: lv_error_text := SUBSTR(sqlerrm, 1, 240);
906: fnd_file.PUT_LINE(fnd_file.LOG, 'Error while purging unused custom stream data');
907: fnd_file.PUT_LINE(fnd_file.LOG, lv_error_text);
908: retcode := -1;
909:
910: END purge_custom_stream_data;
903: EXCEPTION
904: WHEN others THEN
905: lv_error_text := SUBSTR(sqlerrm, 1, 240);
906: fnd_file.PUT_LINE(fnd_file.LOG, 'Error while purging unused custom stream data');
907: fnd_file.PUT_LINE(fnd_file.LOG, lv_error_text);
908: retcode := -1;
909:
910: END purge_custom_stream_data;
911: