[Home] [Help]
1312: /* Get the current/next value of sequence for resource assignment
1313: id into l_curr_res_assignment_id just after opening the cursor. */
1314:
1315: IF l_curr_res_assignment_id = 0 THEN
1316: SELECT PA_RESOURCE_ASSIGNMENTS_S.nextval
1317: INTO l_curr_res_assignment_id
1318: FROM dual;
1319: ELSE
1320: SELECT PA_RESOURCE_ASSIGNMENTS_S.currval
1316: SELECT PA_RESOURCE_ASSIGNMENTS_S.nextval
1317: INTO l_curr_res_assignment_id
1318: FROM dual;
1319: ELSE
1320: SELECT PA_RESOURCE_ASSIGNMENTS_S.currval
1321: INTO l_curr_res_assignment_id
1322: FROM dual;
1323: END IF;
1324: pa_debug.g_err_stage := 'l_curr_res_assignment_id = ' || l_curr_res_assignment_id;
1485:
1486: END IF; /* l_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT */
1487:
1488: -- bug#2659956 : Added the IF condition to avoid the issue of
1489: -- PA_RESOURCE_ASSIGNMENTS_S.CURRVAL not yet defined ,when
1490: -- planning level is project and resource list is uncategorized.
1491:
1492: IF l_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT
1493: AND l_uncat_flag = 'Y' THEN
1525: ,x_return_status => x_return_status
1526: ,x_msg_count => x_msg_count
1527: ,x_msg_data => x_msg_data );
1528:
1529: select pa_resource_assignments_s.currval
1530: into l_proj_ra_id
1531: from dual;
1532:
1533: END IF;
1947: ,TRACK_AS_LABOR_FLAG
1948: ,PROJECT_ASSIGNMENT_ID
1949: ,RESOURCE_ASSIGNMENT_TYPE )
1950: VALUES
1951: (PA_RESOURCE_ASSIGNMENTS_S.NEXTVAL
1952: ,p_plan_version_id -- BUDGET_VERSION_ID
1953: ,p_project_id -- PROJECT_ID
1954: ,p_task_id_tbl(i) -- TASK_ID
1955: ,nvl(p_res_list_mem_id_tbl(i),0) -- RESOURCE_LIST_MEMBER_ID
2813: ,TRACK_AS_LABOR_FLAG
2814: ,PROJECT_ASSIGNMENT_ID
2815: ,RESOURCE_ASSIGNMENT_TYPE )
2816: VALUES
2817: (PA_RESOURCE_ASSIGNMENTS_S.NEXTVAL
2818: ,p_budget_version_id
2819: ,l_project_id
2820: ,l_task_id_tbl(i)
2821: ,l_res_list_mem_id_tbl(i)
2952: ,TRACK_AS_LABOR_FLAG
2953: ,PROJECT_ASSIGNMENT_ID
2954: ,RESOURCE_ASSIGNMENT_TYPE )
2955: VALUES
2956: (PA_RESOURCE_ASSIGNMENTS_S.NEXTVAL
2957: ,p_budget_version_id
2958: ,l_project_id
2959: ,l_task_id_tbl(i)
2960: ,0 -- res_list_mem_id is 0 for tasks
3126: ,TRACK_AS_LABOR_FLAG
3127: ,PROJECT_ASSIGNMENT_ID
3128: ,RESOURCE_ASSIGNMENT_TYPE )
3129: VALUES
3130: (PA_RESOURCE_ASSIGNMENTS_S.NEXTVAL
3131: ,p_budget_version_id
3132: ,l_project_id
3133: ,l_task_id_tbl(i)
3134: ,0 -- res_list_mem_id is 0 for tasks
3253: ,TRACK_AS_LABOR_FLAG
3254: ,PROJECT_ASSIGNMENT_ID
3255: ,RESOURCE_ASSIGNMENT_TYPE)
3256: VALUES
3257: (PA_RESOURCE_ASSIGNMENTS_S.NEXTVAL
3258: ,p_budget_version_id
3259: ,l_project_id
3260: ,0
3261: ,0 -- res_list_mem_id is 0 for tasks