[Home] [Help]
927: /* #2808442: Cursor to check if there are any Budget Lines for the Version. */
928:
929: CURSOR c_budget_lines_exist(p_budget_version_id IN NUMBER) IS
930: SELECT 1
931: FROM DUAL
932: WHERE EXISTS (SELECT resource_assignment_id
933: FROM pa_budget_lines
934: WHERE budget_version_id = p_budget_version_id);
935:
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
1321: INTO l_curr_res_assignment_id
1322: FROM dual;
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;
1325: IF P_PA_DEBUG_MODE = 'Y' THEN
1326: pa_debug.write('REFRESH_RESOURCE_ASSIGNMENTS: ' || l_module_name,pa_debug.g_err_stage,3);
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;
1534:
1535: /* Calling the procedure UPDATE_RES_PARENT_ASSIGN_ID to update the parent assignment
3008: BEGIN
3009:
3010: SELECT 'Y'
3011: INTO l_continue_processing_flag
3012: FROM dual
3013: WHERE EXISTS (SELECT 1
3014: FROM pa_fp_ra_map_tmp);
3015:
3016: EXCEPTION
4952: BEGIN
4953:
4954: SELECT 'Y'
4955: INTO l_rec_exists /* PK: use exists */
4956: FROM dual
4957: WHERE exists
4958: (SELECT 1
4959: FROM pa_budget_lines bl
4960: WHERE resource_assignment_id = p_resource_assignment_id