[Home] [Help]
456: x_err_stage =>x_err_stage,
457: x_err_code =>x_err_code);
458:
459:
460: /* Call conflicts API to archive/purge data from pa_assignment_conflict_hist table */
461:
462: pa_debug.debug(' About to purge assignment conflicts history data ') ;
463: x_err_stage := 'About to purge assignment conflicts history '||to_char(p_project_id) ;
464:
585: x_err_stage =>x_err_stage,
586: x_err_code =>x_err_code);
587:
588:
589: /* Call conflicts API to archive/purge data from pa_assignment_conflict_hist table */
590:
591: pa_debug.debug(' About to purge assignment conflicts history data ') ;
592: x_err_stage := 'About to purge assignment conflicts history '||to_char(p_project_id) ;
593:
1981: -- Start of comments
1982: -- API name : PA_ASSIGNMENT_CONFLICTS_PURGE
1983: -- Type : Public
1984: -- Pre-reqs : None
1985: -- Function : Main purge procedure for Purging records from PA_ASSIGNMENT_CONFLICT_HIST table
1986:
1987:
1988: Procedure PA_ASSIGNMENT_CONFLICTS_PURGE ( p_purge_batch_id in NUMBER,
1989: p_project_id in NUMBER,
2004: ----------------------------------------------------------------------------------
2005: CURSOR c1 (x_assignment_id pa_project_assignments.assignment_id%TYPE) IS
2006: SELECT DISTINCT asgn.project_id
2007: FROM pa_project_assignments asgn,
2008: pa_assignment_conflict_hist hist
2009: WHERE asgn.assignment_id = hist.conflict_assignment_id
2010: AND hist.assignment_id = x_assignment_id;
2011:
2012: l_project_id_tab Pa_Plsql_Datatypes.IdTabTyp;
2085: Created_By,
2086: Last_Update_Date,
2087: Last_Updated_By,
2088: Last_Update_Login
2089: FROM PA_ASSIGNMENT_CONFLICT_HIST WHERE assignment_id = l_assignment_id;
2090:
2091: /*Increase the value of l_nos_conflicts_inserted to indicate number of records inserted in assignment_conflict_hist
2092: table. The value will increase for each loop*/
2093:
2094: l_nos_conflicts_inserted := l_nos_conflicts_inserted + SQL%ROWCOUNT;
2095:
2096: END IF;
2097:
2098: /*To keep the count of no of records deleted from pa_assignment_conflict_hist, manipulate the
2099: count of l_nos_conflicts. */
2100:
2101: pa_debug.debug('Deleting Records from pa_assignment_conflict_hist table ') ;
2102: x_err_stage := 'Deleting Records from pa_assignment_conflict_hist table for id '||to_char(l_assignment_id) ;
2097:
2098: /*To keep the count of no of records deleted from pa_assignment_conflict_hist, manipulate the
2099: count of l_nos_conflicts. */
2100:
2101: pa_debug.debug('Deleting Records from pa_assignment_conflict_hist table ') ;
2102: x_err_stage := 'Deleting Records from pa_assignment_conflict_hist table for id '||to_char(l_assignment_id) ;
2103:
2104: DELETE PA_ASSIGNMENT_CONFLICT_HIST
2105: WHERE assignment_id =l_assignment_id;
2098: /*To keep the count of no of records deleted from pa_assignment_conflict_hist, manipulate the
2099: count of l_nos_conflicts. */
2100:
2101: pa_debug.debug('Deleting Records from pa_assignment_conflict_hist table ') ;
2102: x_err_stage := 'Deleting Records from pa_assignment_conflict_hist table for id '||to_char(l_assignment_id) ;
2103:
2104: DELETE PA_ASSIGNMENT_CONFLICT_HIST
2105: WHERE assignment_id =l_assignment_id;
2106:
2100:
2101: pa_debug.debug('Deleting Records from pa_assignment_conflict_hist table ') ;
2102: x_err_stage := 'Deleting Records from pa_assignment_conflict_hist table for id '||to_char(l_assignment_id) ;
2103:
2104: DELETE PA_ASSIGNMENT_CONFLICT_HIST
2105: WHERE assignment_id =l_assignment_id;
2106:
2107: l_nos_conflicts_deleted :=l_nos_conflicts_deleted + SQL%ROWCOUNT;
2108: END LOOP;
2112: The procedure is called pa_schedules, pa_schedule_except_history and pa_schedules_history tables */
2113:
2114: pa_purge.CommitProcess(p_purge_batch_id,
2115: p_project_id,
2116: 'PA_ASSIGNMENT_CONFLICT_HIST',
2117: l_nos_conflicts_inserted,
2118: l_nos_conflicts_deleted,
2119: x_err_code,
2120: x_err_stack,