[Home] [Help]
53: Para.Resource_list_member_id = Parl.Resource_list_member_id and
54: nvl(parl.migration_code,'-99') <> 'N' and
55: Para.Resource_id = Par.Resource_Id ;
56:
57: -- This cursor reads all transactions from the PA_TXN_ACCUM
58:
59: CURSOR All_PA_Txn_Accum_Cur is
60: SELECT DISTINCT
61: PTA.TXN_ACCUM_ID,
55: Para.Resource_id = Par.Resource_Id ;
56:
57: -- This cursor reads all transactions from the PA_TXN_ACCUM
58:
59: CURSOR All_PA_Txn_Accum_Cur is
60: SELECT DISTINCT
61: PTA.TXN_ACCUM_ID,
62: PTA.TASK_ID,
63: PTA.PA_PERIOD,
75: NVL(PTA.TOT_CMT_BURDENED_COST,0) TOT_CMT_BURDENED_COST,
76: NVL(PTA.TOT_CMT_QUANTITY,0) TOT_CMT_QUANTITY,
77: PAP.PERIOD_YEAR
78: FROM
79: PA_TXN_ACCUM PTA,
80: PA_PERIODS_V PAP
81: WHERE PTA.Project_Id = x_project_id
82: AND PTA.PA_PERIOD = PAP.PERIOD_NAME
83: AND PAP.PA_END_DATE <= x_current_end_date;
83: AND PAP.PA_END_DATE <= x_current_end_date;
84:
85: x_resource_list_array resource_list_id_tabtype;
86: x_res_list_rec Reslist_assgmt_Cur%ROWTYPE;
87: x_all_txn_accum_rec All_PA_Txn_Accum_Cur%ROWTYPE;
88: x_res_accum_rec Res_accum_Cur%ROWTYPE;
89: v_err_code Number := 0;
90: x_recs_processed number := 0;
91: tot_recs_processed Number := 0;
112: IF No_of_res_lists > 0 Then -- (IF #1)
113:
114: -- Read All txn_accum records and process Actuals as well as Commitments
115:
116: FOR x_all_txn_accum_rec IN All_PA_Txn_Accum_Cur LOOP
117: v_Res_accum_txn_accum_id := x_all_txn_accum_rec.Txn_Accum_Id;
118: FOR i in 1..No_of_res_lists LOOP
119: v_resource_list_id := x_resource_list_array(i);
120: -- Fetch the Resource Accum records
447: END IF; -- (IF # 4)
448: END IF; -- (IF # 2)
449: END LOOP; -- (Res_Accum_rec in Res_accum_Cur LOOP )
450: END LOOP; -- (1..No_of_res_lists LOOP )
451: END LOOP; -- (x_all_txn_accum_rec IN All_PA_Txn_Accum_Cur LOOP )
452:
453:
454: -- Now Update the Resource list assignement record, to set the
455: -- Resource list as Accumulated