116: l_fin_plan_type_err_token := FND_MESSAGE.GET;
117:
118: retcode := '0';
119:
120: sql_cursor := DBMS_SQL.OPEN_CURSOR;
121: l_sel_clause := ' SELECT distinct pj.project_id, opt.fin_plan_type_id,'
122: ||' opt.FIN_PLAN_PREFERENCE_CODE,pt.PLAN_CLASS_CODE'
123: ||',pj.name'||
124: -- gboomina added for AAI Requirement 8318932 - start
246: hr_utility.trace('Where Clause1 : ' || l_where_clause1);
247: hr_utility.trace('Where Clause2 : ' || l_where_clause2);
248: hr_utility.trace('Dynamic SQL ' || l_stmt); */
249:
250: DBMS_SQL.PARSE(sql_cursor, l_stmt, dbms_sql.v7);
251:
252: -- SQL Repository Bugs 4884427, 5112175;
253: -- SQL IDs 14901706, 14901662, 16507224, 16507225, 16507275
254: -- Bind values to the new bind variables.
252: -- SQL Repository Bugs 4884427, 5112175;
253: -- SQL IDs 14901706, 14901662, 16507224, 16507225, 16507275
254: -- Bind values to the new bind variables.
255: IF (P_ORGANIZATION_ID) IS NOT NULL THEN
256: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':organization_id', p_organization_id);
257: END IF;
258: IF (P_PROJECT_TYPE_ID IS NOT NULL) THEN
259: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':project_type_id', p_project_type_id);
260: END IF;
255: IF (P_ORGANIZATION_ID) IS NOT NULL THEN
256: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':organization_id', p_organization_id);
257: END IF;
258: IF (P_PROJECT_TYPE_ID IS NOT NULL) THEN
259: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':project_type_id', p_project_type_id);
260: END IF;
261: IF (p_proj_manager_id IS NOT NULL) THEN
262: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':proj_manager_id', p_proj_manager_id);
263: END IF;
258: IF (P_PROJECT_TYPE_ID IS NOT NULL) THEN
259: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':project_type_id', p_project_type_id);
260: END IF;
261: IF (p_proj_manager_id IS NOT NULL) THEN
262: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':proj_manager_id', p_proj_manager_id);
263: END IF;
264: IF (P_PLAN_TYPE_ID) IS NOT NULL THEN
265: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':plan_type_id', p_plan_type_id);
266: END IF;
261: IF (p_proj_manager_id IS NOT NULL) THEN
262: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':proj_manager_id', p_proj_manager_id);
263: END IF;
264: IF (P_PLAN_TYPE_ID) IS NOT NULL THEN
265: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':plan_type_id', p_plan_type_id);
266: END IF;
267: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':from_proj_no', l_from_proj_no);
268: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':to_proj_no', l_to_proj_no);
269:
263: END IF;
264: IF (P_PLAN_TYPE_ID) IS NOT NULL THEN
265: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':plan_type_id', p_plan_type_id);
266: END IF;
267: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':from_proj_no', l_from_proj_no);
268: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':to_proj_no', l_to_proj_no);
269:
270: l_rows := DBMS_SQL.EXECUTE (sql_cursor);
271:
264: IF (P_PLAN_TYPE_ID) IS NOT NULL THEN
265: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':plan_type_id', p_plan_type_id);
266: END IF;
267: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':from_proj_no', l_from_proj_no);
268: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':to_proj_no', l_to_proj_no);
269:
270: l_rows := DBMS_SQL.EXECUTE (sql_cursor);
271:
272: --dbms_output.put_line('After execute, l_rows is: '||l_rows);
266: END IF;
267: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':from_proj_no', l_from_proj_no);
268: DBMS_SQL.BIND_VARIABLE(sql_cursor, ':to_proj_no', l_to_proj_no);
269:
270: l_rows := DBMS_SQL.EXECUTE (sql_cursor);
271:
272: --dbms_output.put_line('After execute, l_rows is: '||l_rows);
273: -- hr_utility.trace('After execute, l_rows is: '||l_rows);
274:
283: END IF;
284: RETURN;
285: END IF;
286:
287: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 1, l_proj_id);
288: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 2, l_plan_type_id);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
284: RETURN;
285: END IF;
286:
287: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 1, l_proj_id);
288: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 2, l_plan_type_id);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
285: END IF;
286:
287: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 1, l_proj_id);
288: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 2, l_plan_type_id);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
286:
287: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 1, l_proj_id);
288: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 2, l_plan_type_id);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
294: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 7, l_cost_time_phased_code,30);
287: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 1, l_proj_id);
288: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 2, l_plan_type_id);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
294: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 7, l_cost_time_phased_code,30);
295: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 8, l_copy_etc_from_plan_flag,1);
289: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 3, l_fin_plan_preference_code,30);
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
294: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 7, l_cost_time_phased_code,30);
295: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 8, l_copy_etc_from_plan_flag,1);
296: -- gboomina added for AAI Requirement 8318932 - end
297:
290: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 4, l_plan_class_code,30);
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
294: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 7, l_cost_time_phased_code,30);
295: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 8, l_copy_etc_from_plan_flag,1);
296: -- gboomina added for AAI Requirement 8318932 - end
297:
298: LOOP
291: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 5, l_project_name,200);
292: -- gboomina added for AAI Requirement 8318932 - start
293: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 6, l_gen_cost_etc_src_code,30);
294: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 7, l_cost_time_phased_code,30);
295: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 8, l_copy_etc_from_plan_flag,1);
296: -- gboomina added for AAI Requirement 8318932 - end
297:
298: LOOP
299: l_rows1 := DBMS_SQL.FETCH_ROWS(sql_cursor);
295: DBMS_SQL.DEFINE_COLUMN(sql_cursor, 8, l_copy_etc_from_plan_flag,1);
296: -- gboomina added for AAI Requirement 8318932 - end
297:
298: LOOP
299: l_rows1 := DBMS_SQL.FETCH_ROWS(sql_cursor);
300: --dbms_output.put_line('l_rows1 value inside the loop is : ' || l_rows1);
301: --hr_utility.trace('l_rows1 value inside the loop is : ' || l_rows1);
302: IF l_rows1 = 0 then
303: EXIT;
301: --hr_utility.trace('l_rows1 value inside the loop is : ' || l_rows1);
302: IF l_rows1 = 0 then
303: EXIT;
304: END IF;
305: DBMS_SQL.COLUMN_VALUE(sql_cursor,1,l_proj_id);
306: DBMS_SQL.COLUMN_VALUE(sql_cursor,2,l_plan_type_id);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
302: IF l_rows1 = 0 then
303: EXIT;
304: END IF;
305: DBMS_SQL.COLUMN_VALUE(sql_cursor,1,l_proj_id);
306: DBMS_SQL.COLUMN_VALUE(sql_cursor,2,l_plan_type_id);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
303: EXIT;
304: END IF;
305: DBMS_SQL.COLUMN_VALUE(sql_cursor,1,l_proj_id);
306: DBMS_SQL.COLUMN_VALUE(sql_cursor,2,l_plan_type_id);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
304: END IF;
305: DBMS_SQL.COLUMN_VALUE(sql_cursor,1,l_proj_id);
306: DBMS_SQL.COLUMN_VALUE(sql_cursor,2,l_plan_type_id);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
312: DBMS_SQL.COLUMN_VALUE(sql_cursor,7,l_cost_time_phased_code);
305: DBMS_SQL.COLUMN_VALUE(sql_cursor,1,l_proj_id);
306: DBMS_SQL.COLUMN_VALUE(sql_cursor,2,l_plan_type_id);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
312: DBMS_SQL.COLUMN_VALUE(sql_cursor,7,l_cost_time_phased_code);
313: DBMS_SQL.COLUMN_VALUE(sql_cursor,8,l_copy_etc_from_plan_flag);
307: DBMS_SQL.COLUMN_VALUE(sql_cursor,3,l_fin_plan_preference_code);
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
312: DBMS_SQL.COLUMN_VALUE(sql_cursor,7,l_cost_time_phased_code);
313: DBMS_SQL.COLUMN_VALUE(sql_cursor,8,l_copy_etc_from_plan_flag);
314: -- gboomina added for AAI Requirement 8318932 - end
315:
308: DBMS_SQL.COLUMN_VALUE(sql_cursor,4,l_plan_class_code);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
312: DBMS_SQL.COLUMN_VALUE(sql_cursor,7,l_cost_time_phased_code);
313: DBMS_SQL.COLUMN_VALUE(sql_cursor,8,l_copy_etc_from_plan_flag);
314: -- gboomina added for AAI Requirement 8318932 - end
315:
316: --dbms_output.put_line('====l_proj_id is : ' || l_proj_id);
309: DBMS_SQL.COLUMN_VALUE(sql_cursor,5,l_project_name);
310: -- gboomina added for AAI Requirement 8318932 - start
311: DBMS_SQL.COLUMN_VALUE(sql_cursor,6,l_gen_cost_etc_src_code);
312: DBMS_SQL.COLUMN_VALUE(sql_cursor,7,l_cost_time_phased_code);
313: DBMS_SQL.COLUMN_VALUE(sql_cursor,8,l_copy_etc_from_plan_flag);
314: -- gboomina added for AAI Requirement 8318932 - end
315:
316: --dbms_output.put_line('====l_proj_id is : ' || l_proj_id);
317: --dbms_output.put_line('====l_plan_type_id is : ' || l_plan_type_id);
1381: END IF;
1382: -- gboomina added for AAI requirements 8318932 - end
1383: END LOOP;
1384:
1385: DBMS_SQL.CLOSE_CURSOR(sql_cursor); -- Bug 5715252 Cursor is closed
1386:
1387: IF P_PA_DEBUG_MODE = 'Y' THEN
1388: PA_DEBUG.RESET_CURR_FUNCTION;
1389: END IF;
1421: retcode := '2';
1422: errbuff := substr(sqlerrm,1,240);
1423:
1424: /* Start Bug 5715252 */
1425: IF DBMS_SQL.IS_OPEN(sql_cursor) THEN
1426: DBMS_SQL.CLOSE_CURSOR(sql_cursor);
1427: END IF;
1428: /* End Bug 5715252 */
1429:
1422: errbuff := substr(sqlerrm,1,240);
1423:
1424: /* Start Bug 5715252 */
1425: IF DBMS_SQL.IS_OPEN(sql_cursor) THEN
1426: DBMS_SQL.CLOSE_CURSOR(sql_cursor);
1427: END IF;
1428: /* End Bug 5715252 */
1429:
1430: RAISE;
1451: retcode := '2';
1452: errbuff := substr(sqlerrm,1,240);
1453:
1454: /* Start Bug 5715252 */
1455: IF DBMS_SQL.IS_OPEN(sql_cursor) THEN
1456: DBMS_SQL.CLOSE_CURSOR(sql_cursor);
1457: END IF;
1458: /* End Bug 5715252 */
1459:
1452: errbuff := substr(sqlerrm,1,240);
1453:
1454: /* Start Bug 5715252 */
1455: IF DBMS_SQL.IS_OPEN(sql_cursor) THEN
1456: DBMS_SQL.CLOSE_CURSOR(sql_cursor);
1457: END IF;
1458: /* End Bug 5715252 */
1459:
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;