[Home] [Help]
46:
47: end append_report;
48:
49:
50: -- Procedure to delete the records entered in the WIP_PURGE_TEMP table
51: procedure delete_purge_temp_table(
52: p_group_id in number ) is
53:
54: begin
52: p_group_id in number ) is
53:
54: begin
55:
56: delete from Wip_Purge_Temp where group_id = p_group_id ;
57: commit ;
58:
59: end delete_purge_temp_table ;
60:
2293: x_from_date date;
2294:
2295: begin
2296: -- generate a group ID
2297: select Wip_purge_temp_s.nextval into x_group_id from dual;
2298:
2299: -- find jobs
2300: if (p_purge_type in (PURGE_JOBS, PURGE_LOTBASED, PURGE_ALL)) then
2301:
2298:
2299: -- find jobs
2300: if (p_purge_type in (PURGE_JOBS, PURGE_LOTBASED, PURGE_ALL)) then
2301:
2302: x_sql_stm1 := ' insert into wip_purge_temp '||
2303: ' (group_id, ' ||
2304: ' wip_entity_id, ' ||
2305: ' repetitive_schedule_id, ' ||
2306: ' primary_item_id, ' ||
2427: -- find schedules
2428: if (p_purge_type in (PURGE_SCHEDS, PURGE_ALL)) then
2429:
2430:
2431: x_sql_stm2 := ' insert into wip_purge_temp '||
2432: ' (group_id, ' ||
2433: ' wip_entity_id, ' ||
2434: ' repetitive_schedule_id, ' ||
2435: ' primary_item_id, ' ||
2534:
2535: -- get count
2536: select count(group_id)
2537: into x_count
2538: from wip_purge_temp
2539: where group_id = x_group_id;
2540:
2541: -- if nothing was found then return a 0
2542: if (x_count = 0) then
2747: end loop;
2748: commit;
2749: close get_purge_requests;
2750:
2751: -- delete the records sitting in the WIP_PURGE_TEMP table
2752: delete_purge_temp_table(x_group_id);
2753: return (x_group_id);
2754:
2755: exception