[Home] [Help]
664: -- Start of comments
665: -- API name : PA_FORECAST_ITEMS_PURGE
666: -- Type : Public
667: -- Pre-reqs : None
668: -- Function : Purge procedure for Purging records from tables PA_FORECAST_ITEMS and PA_FORECAST_ITEM_DETAILS
669:
670:
671: Procedure PA_FORECAST_ITEMS_PURGE ( p_purge_batch_id in NUMBER,
672: p_project_id in NUMBER,
919: /*Increase the value of l_nos_fi_inserted to indicate number of records inserted in forecast_items table.
920: The value will increase for each loop(forecast item id*/
921: l_nos_fi_inserted := l_nos_fi_inserted + SQL%ROWCOUNT;
922:
923: pa_debug.debug('Inserting Records into pa_forecast_item_DETAILS_AR table ') ;
924: x_err_stage := 'Inserting Records into forecast_item_detail table for forecast item '||to_char(l_forecast_item_id) ;
925:
926: INSERT INTO PA_FRCST_ITEM_DTLS_AR
927: (PURGE_BATCH_ID,
1034: PROJECT_ID,
1035: RESOURCE_ID,
1036: EXPENDITURE_ORGANIZATION_ID,
1037: PJI_SUMMARIZED_FLAG
1038: FROM PA_forecast_item_details
1039: WHERE forecast_item_id=l_forecast_item_id;
1040:
1041: /*Increase the value of l_nos_fis_inserted to indicate number of records inserted in forecast_items detail table.
1042: The value will increase for each loop(forecast item id*/
1175: l_nos_fi_amt_inserted := l_nos_fi_amt_inserted + SQL%ROWCOUNT;
1176:
1177: END IF;
1178:
1179: /*To keep the count of no os records deleted from pa_forecast_items and pa_forecast_item_details, manipulate the
1180: count of l_nos_of fi_deleted and l_nos_fis_deleted. */
1181:
1182: pa_debug.debug('Deleting Records from pa_fi_amount_details table ') ;
1183: x_err_stage := 'Deleting Records from pa_fi_amount_details table for id '||to_char(l_forecast_item_id) ;
1186: WHERE forecast_item_id =l_forecast_item_id;
1187:
1188: l_nos_fi_amt_deleted := l_nos_fi_amt_deleted + SQL%ROWCOUNT;
1189:
1190: pa_debug.debug('Deleting Records from pa_forecast_item_details table ') ;
1191: x_err_stage := 'Deleting Records from pa_forecast_item_details table for id '||to_char(l_forecast_item_id) ;
1192:
1193: DELETE PA_FORECAST_ITEM_DETAILS
1194: WHERE forecast_item_id =l_forecast_item_id;
1187:
1188: l_nos_fi_amt_deleted := l_nos_fi_amt_deleted + SQL%ROWCOUNT;
1189:
1190: pa_debug.debug('Deleting Records from pa_forecast_item_details table ') ;
1191: x_err_stage := 'Deleting Records from pa_forecast_item_details table for id '||to_char(l_forecast_item_id) ;
1192:
1193: DELETE PA_FORECAST_ITEM_DETAILS
1194: WHERE forecast_item_id =l_forecast_item_id;
1195:
1189:
1190: pa_debug.debug('Deleting Records from pa_forecast_item_details table ') ;
1191: x_err_stage := 'Deleting Records from pa_forecast_item_details table for id '||to_char(l_forecast_item_id) ;
1192:
1193: DELETE PA_FORECAST_ITEM_DETAILS
1194: WHERE forecast_item_id =l_forecast_item_id;
1195:
1196: l_nos_fid_deleted :=l_nos_fid_deleted + SQL%ROWCOUNT;
1197:
1209: Close cur_forecast_items;
1210: END LOOP;
1211:
1212: /*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.
1213: The procedure is called once for pa_forecast_items and once for pa_forecast_item_details */
1214:
1215: pa_purge.CommitProcess(p_purge_batch_id,
1216: p_project_id,
1217: 'PA_FORECAST_ITEMS',
1223: ) ;
1224:
1225: pa_purge.CommitProcess(p_purge_batch_id,
1226: p_project_id,
1227: 'PA_FORECAST_ITEM_DETAILS',
1228: l_nos_fid_inserted,
1229: l_nos_fid_deleted,
1230: x_err_code,
1231: x_err_stack,
1481: l_nos_schedule_his_inserted := l_nos_schedule_his_inserted + SQL%ROWCOUNT;
1482:
1483: END IF;
1484:
1485: /*To keep the count of no os records deleted from pa_forecast_items and pa_forecast_item_details, manipulate the
1486: count of l_nos_of fi_deleted and l_nos_fis_deleted. */
1487:
1488: pa_debug.debug('Deleting Records from pa_schedule_history table ') ;
1489: x_err_stage := 'Deleting Records from pa_schedules_history table for id '||to_char(l_schedule_id) ;