[Home] [Help]
2007: AND PAH.Resource_List_Member_id = x_resource_list_member_id;
2008:
2009: EXCEPTION
2010: WHEN NO_DATA_FOUND THEN
2011: Select PA_PROJECT_ACCUM_HEADERS_S.Nextval into V_Accum_id
2012: From Dual;
2013:
2014: Insert into PA_PROJECT_ACCUM_HEADERS
2015: (PROJECT_ACCUM_ID,PROJECT_ID,TASK_ID,ACCUM_PERIOD,RESOURCE_ID,
2341: AND PAH.Resource_List_Member_id = x_resource_list_member_id;
2342:
2343: EXCEPTION
2344: WHEN NO_DATA_FOUND THEN
2345: Select PA_PROJECT_ACCUM_HEADERS_S.Nextval into V_Accum_id
2346: From Dual;
2347:
2348: Insert into PA_PROJECT_ACCUM_HEADERS
2349: (PROJECT_ACCUM_ID,PROJECT_ID,TASK_ID,ACCUM_PERIOD,RESOURCE_ID,
2798: -- two records would have been processed by the Update statements.
2799:
2800: If v_noof_tasks > 0 Then
2801: For i in 1..v_noof_tasks LOOP
2802: Select PA_PROJECT_ACCUM_HEADERS_S.Nextval into V_Accum_id
2803: From Dual;
2804: Insert_Headers_tasks
2805: (X_project_id,
2806: v_task_array(i),
2945: -- two records would have been processed by the Update statements.
2946:
2947: If v_noof_tasks > 0 Then
2948: For i in 1..v_noof_tasks LOOP
2949: Select PA_PROJECT_ACCUM_HEADERS_S.Nextval into V_Accum_id
2950: From Dual;
2951: PA_process_accum_actuals_res.insert_headers_res
2952: (x_project_id,
2953: v_task_array(i),
2995: -- and if not present create the Header and Detail records for Actuals
2996: Open Proj_Res_level_Cur;
2997: Fetch Proj_Res_level_Cur Into V_Accum_Id;
2998: IF Proj_Res_level_Cur%NOTFOUND Then
2999: Select PA_PROJECT_ACCUM_HEADERS_S.Nextval into V_Accum_id
3000: From Dual;
3001: PA_process_accum_actuals_res.insert_headers_res
3002: (x_project_id,
3003: 0,
3228: PAH.Project_Id = x_project_id);
3229: End If;
3230: End If;
3231: End If;
3232: -- Update Pa_project_accum_Headers Set
3233: -- Accum_Period = x_current_period
3234: -- where Project_Id = X_Project_id;
3235: -- Restore the old x_err_stack;
3236: