[Home] [Help]
1: Package body PA_PURGE_UNASGN_FI AS
2: /* $Header: PAXUSGNB.pls 120.1.12000000.2 2007/03/06 14:02:34 rthumma ship $ */
3:
4: -- Start of comments
5: -- Type : Public
50:
51: arpr_log(' About to purge unassigned time forecast items ') ;
52: x_err_stage := 'About to start purge unassigned time forecast items' ;
53:
54: select pa_purge_batches_s.nextval into l_purge_batch_id from dual;
55:
56: arpr_log(' l_purge_batch_id: '||l_purge_batch_id);
57:
58: OPEN CUR_forecast_items;
94: ELSE
95: l_last_fetch := 'N';
96: END IF;
97:
98: /* arpr_log(' Before call to PA_PURGE_UNASGN_FI.Delete_fi'); */
99:
100: PA_PURGE_UNASGN_FI.Delete_fi(p_forecast_item_id_tab =>l_forecast_item_id_tab,
101: p_project_id_tab => l_project_id_tab, --Added for bug 5870223
102: p_archive_flag =>p_archive_flag,
96: END IF;
97:
98: /* arpr_log(' Before call to PA_PURGE_UNASGN_FI.Delete_fi'); */
99:
100: PA_PURGE_UNASGN_FI.Delete_fi(p_forecast_item_id_tab =>l_forecast_item_id_tab,
101: p_project_id_tab => l_project_id_tab, --Added for bug 5870223
102: p_archive_flag =>p_archive_flag,
103: p_purge_batch_id =>l_purge_batch_id,
104: x_err_stack =>x_err_stack,
135: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
136: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
137:
138: WHEN OTHERS THEN
139: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.PA_FORECASTITEMS' );
140: arpr_log('Error stage is '||x_err_stage );
141: arpr_log('Error stack is '||x_err_stack );
142: arpr_log(SQLERRM);
143: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
699: l_nos_fi_deleted :=SQL%ROWCOUNT; /* Bug#2510609 */
700:
701: -- END LOOP; /* Bug#2510609 */
702:
703: /*After "deleting" or "deleting and inserting" a set of records the transaction is commited. This also creates a record in the Pa_Purge_Project_details, which will show the no. of records that are purged from each table.
704: The procedure is called once for pa_forecast_items and once for pa_forecast_item_details */
705:
706:
707: pa_purge.CommitProcess (p_purge_batch_id,
703: /*After "deleting" or "deleting and inserting" a set of records the transaction is commited. This also creates a record in the Pa_Purge_Project_details, which will show the no. of records that are purged from each table.
704: The procedure is called once for pa_forecast_items and once for pa_forecast_item_details */
705:
706:
707: pa_purge.CommitProcess (p_purge_batch_id,
708: l_project_id,
709: 'PA_FORECAST_ITEMS',
710: l_nos_fi_inserted,
711: l_nos_fi_deleted,
712: x_err_code,
713: x_err_stack,
714: x_err_stage
715: ) ;
716: pa_purge.CommitProcess(p_purge_batch_id,
717: l_project_id,
718: 'PA_FORECAST_ITEM_DETAILS',
719: l_nos_fid_inserted,
720: l_nos_fid_deleted,
722: x_err_stack,
723: x_err_stage
724: ) ;
725:
726: pa_purge.CommitProcess(p_purge_batch_id,
727: l_project_id,
728: 'PA_FI_AMOUNT_DETAILS',
729: l_nos_fi_amt_inserted,
730: l_nos_fi_amt_deleted,
749: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
750: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
751:
752: WHEN OTHERS THEN
753: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.DELETE_FI' );
754: arpr_log('Error stage is '||x_err_stage );
755: arpr_log('Error stack is '||x_err_stack );
756: arpr_log(SQLERRM);
757: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
786: cursor c_arpr_details is
787: select table_name,
788: sum(nvl(num_recs_archived,0)) num_recs_archived,
789: sum(nvl(num_recs_purged,0)) num_recs_purged
790: from PA_PURGE_PRJ_DETAILS
791: where purge_batch_id = p_purge_batch_id
792: group by table_name
793: order by table_name;
794: