DBA Data[Home] [Help]

APPS.BIS_VG_LOOKUP dependencies on DBMS_SQL

Line 253: l_cursor_id := dbms_sql.open_cursor;

249: BEGIN
250: BIS_DEBUG_PUB.Add('> write_decode_statement');
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252: -- open the cursor
253: l_cursor_id := dbms_sql.open_cursor;
254: --
255: -- parse the statement
256: dbms_sql.parse(l_cursor_id, p_select, dbms_sql.V7);
257: --

Line 256: dbms_sql.parse(l_cursor_id, p_select, dbms_sql.V7);

252: -- open the cursor
253: l_cursor_id := dbms_sql.open_cursor;
254: --
255: -- parse the statement
256: dbms_sql.parse(l_cursor_id, p_select, dbms_sql.V7);
257: --
258: BIS_DEBUG_PUB.Add('after parsing');
259: --
260: -- define output variables

Line 261: dbms_sql.define_column(l_cursor_id, 1, l_lookup_code, 250);

257: --
258: BIS_DEBUG_PUB.Add('after parsing');
259: --
260: -- define output variables
261: dbms_sql.define_column(l_cursor_id, 1, l_lookup_code, 250);
262: dbms_sql.define_column(l_cursor_id, 2, l_meaning, 250);
263: --
264: -- execute
265: l_dummy := dbms_sql.execute(l_cursor_id);

Line 262: dbms_sql.define_column(l_cursor_id, 2, l_meaning, 250);

258: BIS_DEBUG_PUB.Add('after parsing');
259: --
260: -- define output variables
261: dbms_sql.define_column(l_cursor_id, 1, l_lookup_code, 250);
262: dbms_sql.define_column(l_cursor_id, 2, l_meaning, 250);
263: --
264: -- execute
265: l_dummy := dbms_sql.execute(l_cursor_id);
266: --

Line 265: l_dummy := dbms_sql.execute(l_cursor_id);

261: dbms_sql.define_column(l_cursor_id, 1, l_lookup_code, 250);
262: dbms_sql.define_column(l_cursor_id, 2, l_meaning, 250);
263: --
264: -- execute
265: l_dummy := dbms_sql.execute(l_cursor_id);
266: --
267: l_num_rows := dbms_sql.fetch_rows(l_cursor_id);
268: --
269: IF (l_num_rows = 0) THEN

Line 267: l_num_rows := dbms_sql.fetch_rows(l_cursor_id);

263: --
264: -- execute
265: l_dummy := dbms_sql.execute(l_cursor_id);
266: --
267: l_num_rows := dbms_sql.fetch_rows(l_cursor_id);
268: --
269: IF (l_num_rows = 0) THEN
270: -- x_return_status := FND_API.G_RET_STS_ERROR;
271: -- Lookup type undefined set flag to return a NULL for the column

Line 309: dbms_sql.column_value(l_cursor_id, 1, l_lookup_code);

305: END IF;
306: --
307: bis_debug_pub.add('l_lookup_code = ' || l_lookup_code);
308: bis_debug_pub.add('l_meaning = ' || l_meaning);
309: dbms_sql.column_value(l_cursor_id, 1, l_lookup_code);
310: dbms_sql.column_value(l_cursor_id, 2, l_meaning);
311: -- make sure that the ' in l_lookup_code are replace by ''
312: l_lookup_code := REPLACE(l_lookup_code,'''','''''');
313: x_select_table(x_select_table.COUNT + 1) := ', '|| ''''

Line 310: dbms_sql.column_value(l_cursor_id, 2, l_meaning);

306: --
307: bis_debug_pub.add('l_lookup_code = ' || l_lookup_code);
308: bis_debug_pub.add('l_meaning = ' || l_meaning);
309: dbms_sql.column_value(l_cursor_id, 1, l_lookup_code);
310: dbms_sql.column_value(l_cursor_id, 2, l_meaning);
311: -- make sure that the ' in l_lookup_code are replace by ''
312: l_lookup_code := REPLACE(l_lookup_code,'''','''''');
313: x_select_table(x_select_table.COUNT + 1) := ', '|| ''''
314: || l_lookup_code

Line 323: l_num_rows := dbms_sql.fetch_rows(l_cursor_id);

319: x_select_table(x_select_table.COUNT + 1) := ', '|| ''''
320: || l_meaning
321: || '''';
322: l_stmt_count := l_stmt_count + 1;
323: l_num_rows := dbms_sql.fetch_rows(l_cursor_id);
324: END LOOP;
325: --
326: IF(l_DECODE_flag = TRUE) THEN -- no rows in lookup table, hence put NULL
327: x_select_table(x_select_table.COUNT + 1) := 'NULL';

Line 337: dbms_sql.close_cursor(l_cursor_id);

333: -- write ') for outer level decodes
334: x_select_table(x_select_table.COUNT + 1) := ')';
335: END LOOP;
336: END IF;
337: dbms_sql.close_cursor(l_cursor_id);
338: --
339: BIS_DEBUG_PUB.Add('< write_decode_statement');
340: --
341: --

Line 345: dbms_sql.close_cursor(l_cursor_id);

341: --
342: EXCEPTION
343: when FND_API.G_EXC_ERROR then
344: x_return_status := FND_API.G_RET_STS_ERROR ;
345: dbms_sql.close_cursor(l_cursor_id);
346: RAISE FND_API.G_EXC_ERROR;
347: when FND_API.G_EXC_UNEXPECTED_ERROR then
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: dbms_sql.close_cursor(l_cursor_id);

Line 349: dbms_sql.close_cursor(l_cursor_id);

345: dbms_sql.close_cursor(l_cursor_id);
346: RAISE FND_API.G_EXC_ERROR;
347: when FND_API.G_EXC_UNEXPECTED_ERROR then
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: dbms_sql.close_cursor(l_cursor_id);
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: when others then
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
353: dbms_sql.close_cursor(l_cursor_id);

Line 353: dbms_sql.close_cursor(l_cursor_id);

349: dbms_sql.close_cursor(l_cursor_id);
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: when others then
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
353: dbms_sql.close_cursor(l_cursor_id);
354: BIS_VG_UTIL.Add_Error_Message
355: ( p_error_msg_id => SQLCODE
356: , p_error_description => SQLERRM
357: , p_error_proc_name => G_PKG_NAME||'.write_decode_statement'

Line 596: l_cursor_id := dbms_sql.open_cursor;

592: l_dummy INTEGER;
593: BEGIN
594: BIS_DEBUG_PUB.Add('> put_decode_statement_languages');
595: -- open the cursor
596: l_cursor_id := dbms_sql.open_cursor;
597: --
598: -- select statement
599: l_select := 'select language from :table_name' ||
600: 'where lookup_type = :type';

Line 603: dbms_sql.parse(l_cursor_id, l_select, dbms_sql.NATIVE);

599: l_select := 'select language from :table_name' ||
600: 'where lookup_type = :type';
601: --
602: -- parse the statement
603: dbms_sql.parse(l_cursor_id, l_select, dbms_sql.NATIVE);
604: --
605: -- bind the inout variables
606: dbms_sql.bind_variable(l_cursor_id, ':table_name', p_lookup_table);
607: dbms_sql.bind_variable(l_cursor_id, ':type', p_lookup_type);

Line 606: dbms_sql.bind_variable(l_cursor_id, ':table_name', p_lookup_table);

602: -- parse the statement
603: dbms_sql.parse(l_cursor_id, l_select, dbms_sql.NATIVE);
604: --
605: -- bind the inout variables
606: dbms_sql.bind_variable(l_cursor_id, ':table_name', p_lookup_table);
607: dbms_sql.bind_variable(l_cursor_id, ':type', p_lookup_type);
608: --
609: -- define output variables
610: dbms_sql.define_column(l_cursor_id, 1, l_language, 250);

Line 607: dbms_sql.bind_variable(l_cursor_id, ':type', p_lookup_type);

603: dbms_sql.parse(l_cursor_id, l_select, dbms_sql.NATIVE);
604: --
605: -- bind the inout variables
606: dbms_sql.bind_variable(l_cursor_id, ':table_name', p_lookup_table);
607: dbms_sql.bind_variable(l_cursor_id, ':type', p_lookup_type);
608: --
609: -- define output variables
610: dbms_sql.define_column(l_cursor_id, 1, l_language, 250);
611: --

Line 610: dbms_sql.define_column(l_cursor_id, 1, l_language, 250);

606: dbms_sql.bind_variable(l_cursor_id, ':table_name', p_lookup_table);
607: dbms_sql.bind_variable(l_cursor_id, ':type', p_lookup_type);
608: --
609: -- define output variables
610: dbms_sql.define_column(l_cursor_id, 1, l_language, 250);
611: --
612: -- execute
613: l_dummy := dbms_sql.execute(l_cursor_id);
614: --

Line 613: l_dummy := dbms_sql.execute(l_cursor_id);

609: -- define output variables
610: dbms_sql.define_column(l_cursor_id, 1, l_language, 250);
611: --
612: -- execute
613: l_dummy := dbms_sql.execute(l_cursor_id);
614: --
615: -- start the decode statement
616: x_select_table(x_select_table.COUNT + 1) := 'DECODE';
617: x_select_table(x_select_table.COUNT + 1) := '( USERENV(''LANG'')';

Line 619: WHILE (dbms_sql.fetch_rows(l_cursor_id) <> 0) LOOP

615: -- start the decode statement
616: x_select_table(x_select_table.COUNT + 1) := 'DECODE';
617: x_select_table(x_select_table.COUNT + 1) := '( USERENV(''LANG'')';
618: --
619: WHILE (dbms_sql.fetch_rows(l_cursor_id) <> 0) LOOP
620: --
621: dbms_sql.column_value(l_cursor_id, 1, l_language);
622: --
623: -- get the language

Line 621: dbms_sql.column_value(l_cursor_id, 1, l_language);

617: x_select_table(x_select_table.COUNT + 1) := '( USERENV(''LANG'')';
618: --
619: WHILE (dbms_sql.fetch_rows(l_cursor_id) <> 0) LOOP
620: --
621: dbms_sql.column_value(l_cursor_id, 1, l_language);
622: --
623: -- get the language
624: x_select_table(x_select_table.COUNT + 1) := ', '||l_language;
625: --

Line 642: dbms_sql.close_cursor(l_cursor_id);

638: --
639: -- end the decode statement
640: x_select_table(x_select_table.COUNT + 1) := ', NULL )';
641: --
642: dbms_sql.close_cursor(l_cursor_id);
643: BIS_DEBUG_PUB.Add('< put_decode_statement_languages');
644: --
645:
646:

Line 651: dbms_sql.close_cursor(l_cursor_id);

647:
648: EXCEPTION
649: when FND_API.G_EXC_ERROR then
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651: dbms_sql.close_cursor(l_cursor_id);
652: RAISE FND_API.G_EXC_ERROR;
653: when FND_API.G_EXC_UNEXPECTED_ERROR then
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: dbms_sql.close_cursor(l_cursor_id);

Line 655: dbms_sql.close_cursor(l_cursor_id);

651: dbms_sql.close_cursor(l_cursor_id);
652: RAISE FND_API.G_EXC_ERROR;
653: when FND_API.G_EXC_UNEXPECTED_ERROR then
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: dbms_sql.close_cursor(l_cursor_id);
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657: when others then
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
659: dbms_sql.close_cursor(l_cursor_id);

Line 659: dbms_sql.close_cursor(l_cursor_id);

655: dbms_sql.close_cursor(l_cursor_id);
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657: when others then
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
659: dbms_sql.close_cursor(l_cursor_id);
660: BIS_VG_UTIL.Add_Error_Message
661: ( p_error_msg_id => SQLCODE
662: , p_error_description => SQLERRM
663: , p_error_proc_name => G_PKG_NAME||'.put_decode_statement_languages'