1: package body pa_purge_summary as
2: /* $Header: PAXSUPRB.pls 120.1.12010000.2 2009/06/23 14:24:29 atshukla ship $ */
3:
4: l_commit_size NUMBER ;
5: g_def_proj_accum_id NUMBER;
219:
220: ELSE
221: -- After "deleting" or "deleting and inserting" a set of records
222: -- the transaction is commited. This also creates a record in the
223: -- Pa_Purge_Project_details which will show the no. of records
224: -- that are purged from each table.
225:
226: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
227:
222: -- the transaction is commited. This also creates a record in the
223: -- Pa_Purge_Project_details which will show the no. of records
224: -- that are purged from each table.
225:
226: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
227:
228: pa_purge.CommitProcess
229: (p_purge_batch_id => p_purge_batch_id,
230: p_project_id => p_project_id,
224: -- that are purged from each table.
225:
226: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
227:
228: pa_purge.CommitProcess
229: (p_purge_batch_id => p_purge_batch_id,
230: p_project_id => p_project_id,
231: p_table_name => 'PA_PROJECT_ACCUM_HEADERS',
232: p_NoOfRecordsIns => l_NoOfRecordsIns,
246: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
247: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
248:
249: WHEN OTHERS THEN
250: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_PROJACCUMHEADERS' );
251: pa_debug.debug('Error stage is '||x_err_stage );
252: pa_debug.debug('Error stack is '||x_err_stack );
253: pa_debug.debug(SQLERRM);
254: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
458:
459: ELSE
460: -- After "deleting" or "deleting and inserting" a set of records
461: -- the transaction is commited. This also creates a record in the
462: -- Pa_Purge_Project_details which will show the no. of records
463: -- that are purged from each table.
464:
465: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
466: pa_purge.CommitProcess
461: -- the transaction is commited. This also creates a record in the
462: -- Pa_Purge_Project_details which will show the no. of records
463: -- that are purged from each table.
464:
465: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
466: pa_purge.CommitProcess
467: (p_purge_batch_id => p_purge_batch_id,
468: p_project_id => p_project_id,
469: p_table_name => 'PA_PROJECT_ACCUM_COMMITMENTS',
462: -- Pa_Purge_Project_details which will show the no. of records
463: -- that are purged from each table.
464:
465: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
466: pa_purge.CommitProcess
467: (p_purge_batch_id => p_purge_batch_id,
468: p_project_id => p_project_id,
469: p_table_name => 'PA_PROJECT_ACCUM_COMMITMENTS',
470: p_NoOfRecordsIns => l_NoOfRecordsIns,
482: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
483: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
484:
485: WHEN OTHERS THEN
486: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_ProjAccumCommitments' );
487: pa_debug.debug('Error stage is '||x_err_stage );
488: pa_debug.debug('Error stack is '||x_err_stack );
489: pa_debug.debug(SQLERRM);
490: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
764:
765: ELSE
766: -- After "deleting" or "deleting and inserting" a set of records
767: -- the transaction is commited. This also creates a record in the
768: -- Pa_Purge_Project_details which will show the no. of records
769: -- that are purged from each table.
770:
771: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
772: pa_purge.CommitProcess
767: -- the transaction is commited. This also creates a record in the
768: -- Pa_Purge_Project_details which will show the no. of records
769: -- that are purged from each table.
770:
771: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
772: pa_purge.CommitProcess
773: (p_purge_batch_id => p_purge_batch_id,
774: p_project_id => p_project_id,
775: p_table_name => 'PA_PROJECT_ACCUM_BUDGETS',
768: -- Pa_Purge_Project_details which will show the no. of records
769: -- that are purged from each table.
770:
771: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
772: pa_purge.CommitProcess
773: (p_purge_batch_id => p_purge_batch_id,
774: p_project_id => p_project_id,
775: p_table_name => 'PA_PROJECT_ACCUM_BUDGETS',
776: p_NoOfRecordsIns => l_NoOfRecordsIns,
788: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
789: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
790:
791: WHEN OTHERS THEN
792: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_ProjAccumBudgets');
793: pa_debug.debug('Error stage is '||x_err_stage );
794: pa_debug.debug('Error stack is '||x_err_stack );
795: pa_debug.debug(SQLERRM);
796: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1047:
1048: ELSE
1049: -- After "deleting" or "deleting and inserting" a set of records
1050: -- the transaction is commited. This also creates a record in the
1051: -- Pa_Purge_Project_details which will show the no. of records
1052: -- that are purged from each table.
1053:
1054: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1055: pa_purge.CommitProcess
1050: -- the transaction is commited. This also creates a record in the
1051: -- Pa_Purge_Project_details which will show the no. of records
1052: -- that are purged from each table.
1053:
1054: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1055: pa_purge.CommitProcess
1056: (p_purge_batch_id => p_purge_batch_id,
1057: p_project_id => p_project_id,
1058: p_table_name => 'PA_PROJECT_ACCUM_ACTUALS',
1051: -- Pa_Purge_Project_details which will show the no. of records
1052: -- that are purged from each table.
1053:
1054: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1055: pa_purge.CommitProcess
1056: (p_purge_batch_id => p_purge_batch_id,
1057: p_project_id => p_project_id,
1058: p_table_name => 'PA_PROJECT_ACCUM_ACTUALS',
1059: p_NoOfRecordsIns => l_NoOfRecordsIns,
1071: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
1072: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1073:
1074: WHEN OTHERS THEN
1075: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_ProjAccumActuals');
1076: pa_debug.debug('Error stage is '||x_err_stage );
1077: pa_debug.debug('Error stack is '||x_err_stack );
1078: pa_debug.debug(SQLERRM);
1079: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1253:
1254: ELSE
1255: -- After "deleting" or "deleting and inserting" a set of records
1256: -- the transaction is commited. This also creates a record in the
1257: -- Pa_Purge_Project_details which will show the no. of records
1258: -- that are purged from each table.
1259:
1260: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1261: pa_purge.CommitProcess
1256: -- the transaction is commited. This also creates a record in the
1257: -- Pa_Purge_Project_details which will show the no. of records
1258: -- that are purged from each table.
1259:
1260: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1261: pa_purge.CommitProcess
1262: (p_purge_batch_id => p_purge_batch_id,
1263: p_project_id => p_project_id,
1264: p_table_name => 'PA_RESOURCE_ACCUM_DETAILS',
1257: -- Pa_Purge_Project_details which will show the no. of records
1258: -- that are purged from each table.
1259:
1260: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1261: pa_purge.CommitProcess
1262: (p_purge_batch_id => p_purge_batch_id,
1263: p_project_id => p_project_id,
1264: p_table_name => 'PA_RESOURCE_ACCUM_DETAILS',
1265: p_NoOfRecordsIns => l_NoOfRecordsIns,
1277: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
1278: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1279:
1280: WHEN OTHERS THEN
1281: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_ResAccumDetails');
1282: pa_debug.debug('Error stage is '||x_err_stage );
1283: pa_debug.debug('Error stack is '||x_err_stack );
1284: pa_debug.debug(SQLERRM);
1285: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1539:
1540: ELSE
1541: -- After "deleting" or "deleting and inserting" a set of records
1542: -- the transaction is commited. This also creates a record in the
1543: -- Pa_Purge_Project_details which will show the no. of records
1544: -- that are purged from each table.
1545:
1546: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1547: pa_purge.CommitProcess
1542: -- the transaction is commited. This also creates a record in the
1543: -- Pa_Purge_Project_details which will show the no. of records
1544: -- that are purged from each table.
1545:
1546: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1547: pa_purge.CommitProcess
1548: (p_purge_batch_id => p_purge_batch_id,
1549: p_project_id => p_project_id,
1550: p_table_name => 'PA_TXN_ACCUM',
1543: -- Pa_Purge_Project_details which will show the no. of records
1544: -- that are purged from each table.
1545:
1546: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1547: pa_purge.CommitProcess
1548: (p_purge_batch_id => p_purge_batch_id,
1549: p_project_id => p_project_id,
1550: p_table_name => 'PA_TXN_ACCUM',
1551: p_NoOfRecordsIns => l_NoOfRecordsIns,
1563: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
1564: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1565:
1566: WHEN OTHERS THEN
1567: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_TxnAccum');
1568: pa_debug.debug('Error stage is '||x_err_stage );
1569: pa_debug.debug('Error stack is '||x_err_stack );
1570: pa_debug.debug(SQLERRM);
1571: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1752:
1753: ELSE
1754: -- After "deleting" or "deleting and inserting" a set of records
1755: -- the transaction is commited. This also creates a record in the
1756: -- Pa_Purge_Project_details which will show the no. of records
1757: -- that are purged from each table.
1758:
1759: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1760: pa_purge.CommitProcess
1755: -- the transaction is commited. This also creates a record in the
1756: -- Pa_Purge_Project_details which will show the no. of records
1757: -- that are purged from each table.
1758:
1759: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1760: pa_purge.CommitProcess
1761: (p_purge_batch_id => p_purge_batch_id,
1762: p_project_id => p_project_id,
1763: p_table_name => 'PA_TXN_ACCUM_DETAILS',
1756: -- Pa_Purge_Project_details which will show the no. of records
1757: -- that are purged from each table.
1758:
1759: pa_debug.debug( ' ->Calling pa_purge.CommitProcess ') ;
1760: pa_purge.CommitProcess
1761: (p_purge_batch_id => p_purge_batch_id,
1762: p_project_id => p_project_id,
1763: p_table_name => 'PA_TXN_ACCUM_DETAILS',
1764: p_NoOfRecordsIns => l_NoOfRecordsIns,
1776: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
1777: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1778:
1779: WHEN OTHERS THEN
1780: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.PA_TxnAccumDetails');
1781: pa_debug.debug('Error stage is '||x_err_stage );
1782: pa_debug.debug('Error stack is '||x_err_stack );
1783: pa_debug.debug(SQLERRM);
1784: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1853:
1854: -- Call the procedures to archive/purge data for each summary table
1855: --
1856: pa_debug.debug('*-> About to purge PA_Project_Accum_Commitments ') ;
1857: pa_purge_summary.PA_ProjAccumCommitments
1858: (p_purge_batch_id => p_purge_batch_id,
1859: p_project_id => p_project_id,
1860: p_txn_to_date => p_txn_to_date,
1861: p_purge_release => p_purge_release,
1866: x_err_stage => x_err_stage
1867: ) ;
1868:
1869: pa_debug.debug('*-> About to purge PA_Project_Accum_Actuals') ;
1870: pa_purge_summary.PA_ProjAccumActuals
1871: (p_purge_batch_id => p_purge_batch_id,
1872: p_project_id => p_project_id,
1873: p_txn_to_date => p_txn_to_date,
1874: p_purge_release => p_purge_release,
1879: x_err_stage => x_err_stage
1880: ) ;
1881:
1882: pa_debug.debug('*-> About to purge PA_Project_Accum_Budgets ') ;
1883: pa_purge_summary.PA_ProjAccumBudgets
1884: (p_purge_batch_id => p_purge_batch_id,
1885: p_project_id => p_project_id,
1886: p_txn_to_date => p_txn_to_date,
1887: p_purge_release => p_purge_release,
1892: x_err_stage => x_err_stage
1893: ) ;
1894:
1895: pa_debug.debug('*-> About to purge PA_Resource_Accum_Details ') ;
1896: pa_purge_summary.PA_ResAccumDetails
1897: (p_purge_batch_id => p_purge_batch_id,
1898: p_project_id => p_project_id,
1899: p_txn_to_date => p_txn_to_date,
1900: p_purge_release => p_purge_release,
1905: x_err_stage => x_err_stage
1906: ) ;
1907:
1908: pa_debug.debug('*-> About to purge PA_Project_Accum_Headers ') ;
1909: pa_purge_summary.PA_ProjAccumHeaders
1910: (p_purge_batch_id => p_purge_batch_id,
1911: p_project_id => p_project_id,
1912: p_txn_to_date => p_txn_to_date,
1913: p_purge_release => p_purge_release,
1918: x_err_stage => x_err_stage
1919: ) ;
1920:
1921: pa_debug.debug('*-> About to purge PA_Txn_Accum_Details') ;
1922: pa_purge_summary.PA_TxnAccumDetails
1923: (p_purge_batch_id => p_purge_batch_id,
1924: p_project_id => p_project_id,
1925: p_txn_to_date => p_txn_to_date,
1926: p_purge_release => p_purge_release,
1931: x_err_stage => x_err_stage
1932: ) ;
1933:
1934: pa_debug.debug('*-> About to purge PA_Txn_Accum') ;
1935: pa_purge_summary.PA_TxnAccum
1936: (p_purge_batch_id => p_purge_batch_id,
1937: p_project_id => p_project_id,
1938: p_txn_to_date => p_txn_to_date,
1939: p_purge_release => p_purge_release,
1951: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
1952: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1953:
1954: WHEN OTHERS THEN
1955: pa_debug.debug('Error Procedure Name := PA_PURGE_SUMMARY.pa_summary_main_purge' );
1956: pa_debug.debug('Error stage is '||x_err_stage );
1957: pa_debug.debug('Error stack is '||x_err_stack );
1958: pa_debug.debug(SQLERRM);
1959: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
1961: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1962:
1963: END pa_summary_main_purge ;
1964:
1965: END pa_purge_summary;