[Home] [Help]
804: V_Old_Stack Varchar2(630);
805:
806: -- This cursor gets the Accum_id for the given Project,Task and Resource
807: -- combination which has a record in PA_PROJECT_ACCUM_HEADERS but no
808: -- corresponding record in PA_PROJECT_ACCUM_BUDGETS
809:
810: CURSOR Get_Accum_Id_Cur IS
811: SELECT
812: Project_accum_id
817: and RESOURCE_LIST_MEMBER_ID = x_resource_list_member_id
818: and not exists
819: (Select Project_accum_id
820: from
821: PA_PROJECT_ACCUM_BUDGETS pab
822: where pab.project_accum_id = pah.project_accum_id
823: and pab.Budget_Type_Code = x_Budget_Type_Code);
824:
825: Begin
833: -- If we get such a record in Headers, then we insert one record in
834: -- the Budgets Detail table
835:
836: If Get_Accum_Id_Cur%FOUND Then
837: Insert into PA_PROJECT_ACCUM_BUDGETS (
838: PROJECT_ACCUM_ID,BUDGET_TYPE_CODE,BASE_RAW_COST_ITD,BASE_RAW_COST_YTD,
839: BASE_RAW_COST_PP, BASE_RAW_COST_PTD,
840: BASE_BURDENED_COST_ITD,BASE_BURDENED_COST_YTD,
841: BASE_BURDENED_COST_PP,BASE_BURDENED_COST_PTD,
888: -- tasks, if they have not been created.
889:
890: If v_noof_tasks > 0 then
891: FOR i in 1..v_noof_tasks LOOP
892: Insert into PA_PROJECT_ACCUM_BUDGETS (
893: PROJECT_ACCUM_ID,BUDGET_TYPE_CODE,BASE_RAW_COST_ITD,BASE_RAW_COST_YTD,
894: BASE_RAW_COST_PP, BASE_RAW_COST_PTD,
895: BASE_BURDENED_COST_ITD,BASE_BURDENED_COST_YTD,
896: BASE_BURDENED_COST_PP,BASE_BURDENED_COST_PTD,
921: pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(Sysdate),Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login
922: from PA_PROJECT_ACCUM_HEADERS PAH
923: Where Project_Id = x_project_id and Task_id = v_task_array(i) and
924: Resource_list_member_id = x_Resource_list_member_id and
925: Not Exists (Select 'x' from PA_PROJECT_ACCUM_BUDGETS PAB Where
926: PAH.PROJECT_ACCUM_ID = PAB.PROJECT_ACCUM_ID
927: AND PAB.budget_type_code = x_budget_type_code);
928: v_recs_processed := V_recs_processed + 1;
929: END LOOP; -- i in 1..v_noof_tasks LOOP