182: arr_Params(l_Params).VALUE := l_source_code_id;
183: ELSE
184: l_Sql := l_Sql || ' AND source_code_id IS NULL AND source_code IS NULL ';
185: END IF;
186: l_Cursor := DBMS_SQL.open_cursor;
187: DBMS_SQL.parse(l_Cursor, l_Sql, DBMS_SQL.native);
188: DBMS_SQL.define_column(l_Cursor, 1, l_wrap_id);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
183: ELSE
184: l_Sql := l_Sql || ' AND source_code_id IS NULL AND source_code IS NULL ';
185: END IF;
186: l_Cursor := DBMS_SQL.open_cursor;
187: DBMS_SQL.parse(l_Cursor, l_Sql, DBMS_SQL.native);
188: DBMS_SQL.define_column(l_Cursor, 1, l_wrap_id);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
184: l_Sql := l_Sql || ' AND source_code_id IS NULL AND source_code IS NULL ';
185: END IF;
186: l_Cursor := DBMS_SQL.open_cursor;
187: DBMS_SQL.parse(l_Cursor, l_Sql, DBMS_SQL.native);
188: DBMS_SQL.define_column(l_Cursor, 1, l_wrap_id);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
185: END IF;
186: l_Cursor := DBMS_SQL.open_cursor;
187: DBMS_SQL.parse(l_Cursor, l_Sql, DBMS_SQL.native);
188: DBMS_SQL.define_column(l_Cursor, 1, l_wrap_id);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
187: DBMS_SQL.parse(l_Cursor, l_Sql, DBMS_SQL.native);
188: DBMS_SQL.define_column(l_Cursor, 1, l_wrap_id);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
194: DBMS_SQL.column_value(l_Cursor, 1, l_wrap_id);
195: DBMS_SQL.column_value(l_Cursor, 2, l_wrap_up_level);
189: DBMS_SQL.define_column(l_Cursor, 2, l_wrap_up_level, 30);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
194: DBMS_SQL.column_value(l_Cursor, 1, l_wrap_id);
195: DBMS_SQL.column_value(l_Cursor, 2, l_wrap_up_level);
196: ELSE
197: DBMS_SQL.close_cursor(l_cursor);
190: FOR i IN 1..arr_Params.COUNT LOOP
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
194: DBMS_SQL.column_value(l_Cursor, 1, l_wrap_id);
195: DBMS_SQL.column_value(l_Cursor, 2, l_wrap_up_level);
196: ELSE
197: DBMS_SQL.close_cursor(l_cursor);
198: RAISE NO_DATA_FOUND;
191: DBMS_SQL.bind_variable(l_Cursor,arr_Params(i).NAME, arr_Params(i).VALUE);
192: END LOOP;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
194: DBMS_SQL.column_value(l_Cursor, 1, l_wrap_id);
195: DBMS_SQL.column_value(l_Cursor, 2, l_wrap_up_level);
196: ELSE
197: DBMS_SQL.close_cursor(l_cursor);
198: RAISE NO_DATA_FOUND;
199: END IF;
193: IF DBMS_SQL.execute_and_fetch(l_cursor) <> 0 THEN
194: DBMS_SQL.column_value(l_Cursor, 1, l_wrap_id);
195: DBMS_SQL.column_value(l_Cursor, 2, l_wrap_up_level);
196: ELSE
197: DBMS_SQL.close_cursor(l_cursor);
198: RAISE NO_DATA_FOUND;
199: END IF;
200: DBMS_SQL.close_cursor(l_cursor);
201:
196: ELSE
197: DBMS_SQL.close_cursor(l_cursor);
198: RAISE NO_DATA_FOUND;
199: END IF;
200: DBMS_SQL.close_cursor(l_cursor);
201:
202: b_Add_Wrap := FALSE;
203: IF l_wrap_up_level = l_Check_Level THEN
204: b_level_change_required := TRUE;
517: null;
518: end;
519: end loop; -- end Outcomes Loop
520:
521: iCursor := dbms_sql.open_cursor;
522: for i in 1..ttWrpUps.count loop
523: --sSql := 'SELECT COUNT(*) FROM jtf_ih_wrap_ups WHERE outcome_id = '||ttWrpUps(i).outcome_Id||' ';
524: v_Params.delete;
525: sSql := 'SELECT COUNT(*) FROM jtf_ih_wrap_ups WHERE outcome_id = :outcome_id ';
578: -- Check a JTF_IH_WRAP_UPS about record that has same
579: -- outcome_id, result_id and reason_id
580: --
581: -- dbms_output.put_line(sSql);
582: dbms_sql.parse(iCursor, sSql, dbms_sql.native);
583: FOR i IN 1..v_Params.count LOOP
584: --dbms_output.put_line(i||' '||v_Params(i).name||' '||v_Params(i).value);
585: dbms_sql.bind_variable(iCursor,v_Params(i).name,v_Params(i).value);
586: END LOOP;
581: -- dbms_output.put_line(sSql);
582: dbms_sql.parse(iCursor, sSql, dbms_sql.native);
583: FOR i IN 1..v_Params.count LOOP
584: --dbms_output.put_line(i||' '||v_Params(i).name||' '||v_Params(i).value);
585: dbms_sql.bind_variable(iCursor,v_Params(i).name,v_Params(i).value);
586: END LOOP;
587:
588: dbms_sql.define_column(iCursor,1, nCount);
589: iRes := dbms_sql.execute(iCursor);
584: --dbms_output.put_line(i||' '||v_Params(i).name||' '||v_Params(i).value);
585: dbms_sql.bind_variable(iCursor,v_Params(i).name,v_Params(i).value);
586: END LOOP;
587:
588: dbms_sql.define_column(iCursor,1, nCount);
589: iRes := dbms_sql.execute(iCursor);
590: if dbms_sql.fetch_rows(iCursor) = 0 then
591: nCount := 0;
592: end if;
585: dbms_sql.bind_variable(iCursor,v_Params(i).name,v_Params(i).value);
586: END LOOP;
587:
588: dbms_sql.define_column(iCursor,1, nCount);
589: iRes := dbms_sql.execute(iCursor);
590: if dbms_sql.fetch_rows(iCursor) = 0 then
591: nCount := 0;
592: end if;
593: dbms_sql.column_value(iCursor,1,nCount);
586: END LOOP;
587:
588: dbms_sql.define_column(iCursor,1, nCount);
589: iRes := dbms_sql.execute(iCursor);
590: if dbms_sql.fetch_rows(iCursor) = 0 then
591: nCount := 0;
592: end if;
593: dbms_sql.column_value(iCursor,1,nCount);
594: -- If nCount is 0 (record not found) then create new one
589: iRes := dbms_sql.execute(iCursor);
590: if dbms_sql.fetch_rows(iCursor) = 0 then
591: nCount := 0;
592: end if;
593: dbms_sql.column_value(iCursor,1,nCount);
594: -- If nCount is 0 (record not found) then create new one
595: -- in the JTF_IH_WRAP_UPS
596: if nCount = 0 then
597: begin
641: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
642: end;
643: end if;
644: end loop;
645: dbms_sql.close_cursor(iCursor);
646:
647: -- Enh# 3519691
648: UPDATE jtf_ih_outcomes_b SET active='Y' WHERE active IS NULL;
649: UPDATE jtf_ih_results_b SET active='Y' WHERE active IS NULL;