[Home] [Help]
52: Para.Resource_list_member_id = Parl.Resource_list_member_id and
53: nvl(parl.migration_code,'-99') <> 'N' and
54: Para.Resource_id = Par.Resource_Id ;
55:
56: -- This cursor fetches all relevant commitment records from PA_TXN_ACCUM
57: -- table
58:
59: CURSOR PA_Txn_Accum_Cur IS
60:
55:
56: -- This cursor fetches all relevant commitment records from PA_TXN_ACCUM
57: -- table
58:
59: CURSOR PA_Txn_Accum_Cur IS
60:
61: SELECT DISTINCT
62: PTA.TXN_ACCUM_ID,
63: PTA.TASK_ID,
68: NVL(PTA.TOT_CMT_QUANTITY,0) TOT_CMT_QUANTITY,
69: PTA.UNIT_OF_MEASURE,
70: PAP.PERIOD_YEAR
71: FROM
72: PA_TXN_ACCUM PTA,
73: PA_PERIODS_V PAP
74: WHERE PTA.Project_Id = x_project_id
75: AND PTA.CMT_Rollup_flag = 'Y'
76: AND PTA.PA_PERIOD = PAP.PERIOD_NAME
76: AND PTA.PA_PERIOD = PAP.PERIOD_NAME
77: AND PAP.PA_END_DATE <= x_current_end_date;
78:
79: x_res_list_rec Reslist_assgmt_Cur%ROWTYPE;
80: x_txn_accum_rec PA_Txn_Accum_Cur%ROWTYPE;
81: x_res_accum_rec Res_accum_Cur%ROWTYPE;
82: No_of_res_lists Number := 0;
83: x_recs_processed Number := 0;
84: tot_recs_processed Number := 0;
113: x_resource_list_id(No_of_res_lists) :=
114: x_res_list_rec.Resource_list_id;
115: END LOOP;
116:
117: -- Read all commitment records from PA_TXN_ACCUM
118: -- Fetched period = current period
119: -- (Update only ITD,YTD and PTD figures)-Task level figures without resources
120: FOR x_txn_accum_rec in PA_Txn_Accum_Cur LOOP
121: IF (x_txn_accum_rec.PA_PERIOD = x_current_period ) or
116:
117: -- Read all commitment records from PA_TXN_ACCUM
118: -- Fetched period = current period
119: -- (Update only ITD,YTD and PTD figures)-Task level figures without resources
120: FOR x_txn_accum_rec in PA_Txn_Accum_Cur LOOP
121: IF (x_txn_accum_rec.PA_PERIOD = x_current_period ) or
122: (x_txn_accum_rec.GL_PERIOD = x_current_period ) Then
123: PA_PROCESS_ACCUM_COMMITMENTS.Process_it_yt_pt_tasks_cmt
124: (x_project_id,
346: tot_recs_processed := tot_recs_processed + x_recs_processed;
347: END LOOP; -- (end the For Res_Accum_rec in Res_accum_Cur LOOP)
348: END LOOP; -- (end the For i in 1..No_of_res_lists LOOP )
349: END IF; -- (end the IF No_of_res_lists > 0 IF)
350: -- After processing the record, Update the PA_TXN_ACCUM , modifying the
351: -- CMT_ROLLUP_FLAG as 'Y'
352:
353: Update PA_TXN_ACCUM Set
354: last_updated_by = pa_proj_accum_main.x_last_updated_by,
349: END IF; -- (end the IF No_of_res_lists > 0 IF)
350: -- After processing the record, Update the PA_TXN_ACCUM , modifying the
351: -- CMT_ROLLUP_FLAG as 'Y'
352:
353: Update PA_TXN_ACCUM Set
354: last_updated_by = pa_proj_accum_main.x_last_updated_by,
355: last_update_date = SYSDATE,
356: request_id = pa_proj_accum_main.x_request_id,
357: program_application_id = pa_proj_accum_main.x_program_application_id,
360: CMT_ROLLUP_FLAG = 'N' Where
361: TXN_ACCUM_ID = x_txn_accum_rec.Txn_Accum_Id;
362: tot_recs_processed := tot_recs_processed + 1;
363: tot_recs_processed := tot_recs_processed + x_recs_processed;
364: END LOOP; -- (end the FOR x_txn_accum_rec in PA_Txn_Accum_Cur LOOP )
365:
366: -- Restore the old x_err_stack;
367: x_err_stack := V_Old_Stack;
368: