[Home] [Help]
220: l_done BOOLEAN ;
221: l_char VARCHAR2(1);
222: BEGIN
223: l_done := FALSE;
224: bis_debug_pub.Add('> get_tag_keyword_position');
225: x_return_status := FND_API.G_RET_STS_SUCCESS;
226: l_pointer := p_start_pointer;
227: WHILE (NOT l_done) LOOP
228: l_pointer := bis_vg_parser.get_keyword_position
264: );
265: END IF;
266: END IF;
267: END LOOP;
268: bis_debug_pub.Add('< get_tag_keyword_position');
269: RETURN l_pointer;
270: --
271: --
272: EXCEPTION
334: l_pointer bis_vg_types.view_character_pointer_type;
335: l_col NUMBER;
336: BEGIN
337: --
338: bis_debug_pub.Add('> update_flexfields');
339: x_return_status := FND_API.G_RET_STS_SUCCESS;
340: --
341: --- --- --- DEBUG ---
342: --- bis_vg_util.print_view_pointer ( p_select_pointer
347: , p_select_pointer
348: , x_return_status
349: , x_error_Tbl
350: );
351: bis_debug_pub.Add('l_str = '||l_str);
352: l_str := bis_vg_parser.get_string_token
353: ( l_str
354: , p_select_pointer.col_num
355: , ':'
358: , x_error_Tbl
359: );
360: l_sel_str := UPPER(l_str);
361: --
362: bis_debug_pub.Add('l_sel_str = '||l_sel_str);
363: l_str := bis_vg_util.get_row( p_view_column_text_table
364: , p_column_pointer
365: , x_return_status
366: , x_error_Tbl
375: , x_error_Tbl
376: );
377: l_str := UPPER(l_str);
378: IF (l_col IS NULL) THEN
379: bis_debug_pub.Add('out pointer is null');
380: l_pointer := bis_vg_util.increment_pointer_by_row
381: ( p_view_column_text_table
382: , p_column_pointer
383: , x_return_status
400: RAISE FND_API.G_EXC_ERROR;
401:
402: END IF;
403: ---
404: bis_debug_pub.Add('l_str = '||l_str);
405: IF (l_str = '_KF') THEN
406: BIS_VG_KEY_FLEX.add_Key_Flex_Info( p_View_Column_text_Table
407: , p_View_Select_Text_Table
408: , p_Mode
465: -- raise exception
466: END IF;
467: END IF;
468: END IF;
469: bis_debug_pub.Add('< update_flexfields');
470: --
471: EXCEPTION
472: when FND_API.G_EXC_ERROR then
473: x_return_status := FND_API.G_RET_STS_ERROR ;
515: --
516: l_select_pointer bis_vg_types.view_character_pointer_type;
517: --
518: BEGIN
519: bis_debug_pub.Add('> exclude_comma');
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521: l_select_pointer := p_Select_Pointer;
522: WHILE( bis_vg_util.get_char( p_View_Select_Text_Table
523: , l_select_pointer
540: )
541: )
542: THEN
543: x_select_pointer := p_select_pointer;
544: bis_debug_pub.Add('< exclude_comma_before_tag');
545: RETURN 0;
546: END IF;
547: END LOOP;
548: IF (NOT bis_vg_util.equal_pointers
559: , x_return_status
560: , x_error_Tbl
561: );
562: END IF;
563: bis_debug_pub.Add('< exclude_comma_before_tag');
564: RETURN 1;
565: EXCEPTION
566: when FND_API.G_EXC_ERROR then
567: x_return_status := FND_API.G_RET_STS_ERROR ;
607: --
608: l_select_pointer bis_vg_types.view_character_pointer_type;
609: --
610: BEGIN
611: bis_debug_pub.Add('> exclude_comma_after_tag');
612: x_return_status := FND_API.G_RET_STS_SUCCESS;
613: l_select_pointer := p_Select_Pointer;
614: WHILE( bis_vg_util.get_char( p_View_Select_Text_Table
615: , l_select_pointer
632: )
633: )
634: THEN
635: x_select_pointer := p_select_pointer;
636: bis_debug_pub.Add('< exclude_comma_after_tag');
637: RETURN;
638: END IF;
639: END LOOP;
640: -- we are currently pointing to ',' position beyond that
652: , x_return_status
653: , x_error_Tbl
654: );
655: END IF;
656: bis_debug_pub.Add('< exclude_comma_after_tag');
657:
658: EXCEPTION
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
703:
704: BEGIN
705: --
706: l_table_count := 0;
707: bis_debug_pub.Add('> Get_base_Table_Cols');
708: x_unique_tables := superset_summary_table_type();
709:
710: FOR l_col_count IN p_extra_columns.FIRST..p_extra_columns.LAST
711: LOOP
712: x_column_table(l_col_count) :=
713: p_extra_columns(l_col_count).table_alias
714: || '_'
715: || p_extra_columns(l_col_count).column_name ;
716: bis_debug_pub.ADD(' x_column_table('||l_col_count
717: ||') = '
718: || x_column_table(l_col_count));
719: IF ( l_col_count = 1 --- first time
720: OR
729: --- add new summary entry
730:
731: x_unique_tables.extend;
732: l_table_count := l_table_count +1;
733: bis_debug_pub.ADD('Adding entry number '||l_table_count
734: || ' to x_unique_tables'); x_unique_tables(l_table_count).table_name :=
735: p_extra_columns(l_col_count).table_name;
736: bis_debug_pub.ADD(' x_unique_tables('||l_table_count
737: ||').table_name = '
732: l_table_count := l_table_count +1;
733: bis_debug_pub.ADD('Adding entry number '||l_table_count
734: || ' to x_unique_tables'); x_unique_tables(l_table_count).table_name :=
735: p_extra_columns(l_col_count).table_name;
736: bis_debug_pub.ADD(' x_unique_tables('||l_table_count
737: ||').table_name = '
738: || x_unique_tables(l_table_count).table_name);
739: x_unique_tables(l_table_count).table_alias :=
740: p_extra_columns(l_col_count).table_alias;
746: END IF;
747:
748: END LOOP;
749:
750: bis_debug_pub.Add('< Get_base_Table_Cols');
751:
752: EXCEPTION
753: when FND_API.G_EXC_ERROR then
754: RAISE FND_API.G_EXC_ERROR;
805: l_row VARCHAR2(2000);
806: l_unique_tabs SUPERSET_SUMMARY_TABLE_TYPE;
807: BEGIN
808: --
809: bis_debug_pub.Add('> Get_Base_Table_Selects');
810: l_unique_tabs := p_unique_tables;
811:
812: l_str := bis_vg_parser.get_string_token --- get the 'FROM'
813: ( p_view_select_table(p_start_pos.row_num)
927:
928: END IF; --- valid or invalid
929: END LOOP; --- table loop
930:
931: bis_debug_pub.Add('< Get_Base_Table_Selects');
932:
933:
934: EXCEPTION
935: when FND_API.G_EXC_ERROR then
1010: --
1011: BEGIN
1012: --
1013: l_in_union := FALSE;
1014: bis_debug_pub.Add('> Update_View');
1015: --- x_return_status := FND_API.G_RET_STS_SUCCESS;
1016:
1017:
1018:
1019:
1020: --- --- --- DEBUG ---
1021:
1022: --- IF (g_mode = bis_vg_types.test_view_gen_mode) THEN
1023: --- bis_debug_pub.debug_on;
1024: --- END IF;
1025: ---
1026: --- bis_vg_util.print_View_Text
1027: --- ( p_View_Column_Text_Table
1034: --- , x_error_Tbl
1035: --- );
1036: ---
1037: --- IF (g_mode = bis_vg_types.test_view_gen_mode) THEN
1038: --- bis_debug_pub.debug_off;
1039: --- END IF;
1040: ---
1041: l_flex_string_table(1) := '_KF';
1042: l_flex_string_table(2) := '_DF';
1052: l_sel_tab_SELECT_pos := l_sel_tab_curr_pos;
1053: --
1054: WHILE (l_sel_tab_curr_pos.row_num IS NOT null) LOOP
1055: -- find the next from pointer
1056: bis_debug_pub.Add('before seeking from');
1057: l_sel_tab_FROM_pos := bis_vg_parser.get_keyword_position
1058: ( p_view_select_text_table
1059: , l_from_string_table
1060: , l_sel_tab_curr_pos
1060: , l_sel_tab_curr_pos
1061: , l_dummy
1062: , x_error_Tbl
1063: );
1064: bis_debug_pub.Add('after seeking from');
1065: -- reset column pointer
1066: l_col_tab_curr_pos.row_num := 1;
1067: l_col_tab_curr_pos.col_num := 1;
1068: --
1070: l_sel_tab_past_pos := l_sel_tab_curr_pos;
1071: --
1072: -- iterate with the columns
1073: WHILE (l_col_tab_curr_pos.row_num IS NOT NULL) LOOP
1074: bis_debug_pub.Add('column row = '||l_col_tab_curr_pos.row_num||
1075: ' column col = '||l_col_tab_curr_pos.col_num);
1076: -- find the new keyword
1077: l_col_tab_curr_pos := get_tag_keyword_position
1078: ( p_view_column_text_table
1097: , x_error_Tbl
1098: );
1099: l_col_tab_pretag_pos := l_col_tab_curr_pos;
1100: l_sel_tab_pretag_pos := l_sel_tab_curr_pos;
1101: bis_debug_pub.Add('PREV COLUMN POINTER');
1102: --- --- --- DEBUG ---
1103: --- bis_vg_util.print_view_pointer( l_col_tab_past_pos
1104: --- , l_dummy
1105: --- , x_error_Tbl
1163: END IF;
1164:
1165: END IF; -- end of tag generated an empty table
1166: --
1167: bis_debug_pub.ADD('right after positioning before');
1168: -- bis_vg_util.print_view_pointer
1169: -- ( l_sel_tab_pretag_pos
1170: -- , l_dummy
1171: -- , x_error_Tbl
1184: );
1185: -- copy the portion between the prev and current pointer
1186: -- to output tables
1187: --
1188: bis_debug_pub.Add('PREV COLUMN POINTER');
1189: --- --- --- DEBUG ---
1190: --- bis_vg_util.print_view_pointer
1191: --- (l_col_tab_past_pos
1192: --- , l_dummy
1199: , l_temp_column_table
1200: , l_dummy
1201: , x_error_Tbl
1202: );
1203: bis_debug_pub.ADD('Copy column table is ');
1204: bis_vg_util.print_view_text(l_temp_column_table
1205: , l_dummy
1206: , x_error_Tbl
1207: );
1215: , x_error_Tbl
1216: );
1217:
1218: --- --- --- DEBUG ---
1219: --- bis_debug_pub.ADD('Concatenated column table is ');
1220: --- bis_vg_util.print_view_text
1221: --- ( x_view_column_text_table
1222: --- , l_dummy
1223: --- , x_error_Tbl
1224: --- );
1225: END IF;
1226: --
1227: --- --- --- DEBUG ---
1228: --- bis_debug_pub.ADD('beore Copy select table');
1229: --- bis_vg_util.print_view_pointer
1230: --- ( l_sel_tab_past_pos
1231: --- , l_dummy
1232: --- , x_error_Tbl
1230: --- ( l_sel_tab_past_pos
1231: --- , l_dummy
1232: --- , x_error_Tbl
1233: --- );
1234: --- bis_debug_pub.ADD( 'l_char := '||
1235: --- bis_vg_util.get_char( p_view_select_text_table
1236: --- , l_sel_tab_past_pos
1237: --- , l_dummy
1238: --- , x_error_Tbl
1246: , l_dummy
1247: , x_error_Tbl
1248: );
1249: --- --- --- DEBUG ---
1250: --- bis_debug_pub.ADD('Copy select table is ');
1251: --- bis_vg_util.print_view_text
1252: --- ( l_temp_select_table
1253: --- , l_dummy
1254: --- , x_error_Tbl
1261: , x_error_Tbl
1262: );
1263:
1264: --- --- --- DEBUG ---
1265: --- bis_debug_pub.ADD('Concatenated select table is ');
1266: --- bis_vg_util.print_view_text
1267: --- ( x_view_select_text_table
1268: --- , l_dummy
1269: --- , x_error_Tbl
1297: , x_error_Tbl
1298: );
1299: END IF;
1300:
1301: bis_debug_pub.Add('after concatenation of tables');
1302:
1303: --- --- --- DEBUG ---
1304: --- bis_vg_util.print_view_text
1305: --- ( x_view_column_text_table
1320: END LOOP; -- end column pointer loop
1321:
1322: --- --- --- DEBUG ---
1323: --
1324: --- bis_debug_pub.Add('out of col loop');
1325: --
1326: -- out of the columns, copy the last part of the column table
1327: IF(l_in_union = FALSE) THEN
1328: bis_vg_util.copy_part_of_table
1334: , x_error_Tbl
1335: );
1336:
1337: --- --- --- DEBUG ---
1338: --- bis_debug_pub.ADD('Copy column table is ');
1339: --- bis_vg_util.print_view_text(l_column_table
1340: --- , l_dummy
1341: --- , x_error_Tbl
1342: --- );
1348: , x_error_Tbl
1349: );
1350:
1351: --- --- --- DEBUG ---
1352: --- bis_debug_pub.ADD('Concatenated column table is ');
1353: --- bis_vg_util.print_view_text( x_view_column_text_table
1354: --- , l_dummy
1355: --- , x_error_Tbl
1356: --- );
1386:
1387:
1388: END IF;
1389:
1390: --- bis_debug_pub.Add('before seeking where');
1391:
1392: --- bis_debug_pub.Add('after seeking where');
1393: get_base_table_selects(p_view_select_text_table
1394: , l_sel_tab_from_pos
1388: END IF;
1389:
1390: --- bis_debug_pub.Add('before seeking where');
1391:
1392: --- bis_debug_pub.Add('after seeking where');
1393: get_base_table_selects(p_view_select_text_table
1394: , l_sel_tab_from_pos
1395: , l_unique_tables
1396: , p_extra_columns
1434: = FALSE
1435: )
1436: THEN
1437: -- copy part of select table from FROM pointer to security pointer
1438: bis_debug_pub.Add('security pointer is not null');
1439: l_sel_tab_pretag_pos := bis_vg_util.position_before_characters
1440: ( p_view_select_text_table
1441: , ' ,'
1442: , l_sel_tab_sec_tag_pos
1465: );
1466:
1467: --- --- --- DEBUG ---
1468: ---
1469: --- bis_debug_pub.Add('security pointer after add security info');
1470: --- bis_vg_util.print_view_pointer ( l_sel_tab_past_pos
1471: --- , l_dummy
1472: --- , x_error_Tbl
1473: --- );
1478: , l_dummy
1479: , x_error_Tbl
1480: );
1481: ELSE
1482: bis_debug_pub.Add('security pointer is null');
1483: END IF; --- SEC tag is valid
1484: END IF; --- remove tags mode
1485:
1486:
1512: --- , x_error_Tbl
1513: --- );
1514: ---
1515: IF (l_sel_tab_curr_pos.row_num IS NOT NULL) THEN
1516: bis_debug_pub.ADD('more select info');
1517: l_sel_tab_curr_pos := bis_vg_parser.get_keyword_position
1518: ( p_view_select_text_table
1519: , l_select_string_table
1520: , l_sel_tab_curr_pos
1535:
1536:
1537: --- --- --- DEBUG ---
1538: ---
1539: --- bis_debug_pub.ADD('Copy select table is ');
1540: --- bis_vg_util.print_view_text(l_select_table
1541: --- , l_dummy
1542: --- , x_error_Tbl
1543: --- );
1558: */
1559:
1560: --- --- --- DEBUG ---
1561: ---
1562: --- bis_debug_pub.ADD('Concatenated select table is ');
1563: --- bis_vg_util.print_view_text ( x_view_select_text_table
1564: --- , l_dummy
1565: --- , x_error_Tbl
1566: --- );
1572: END LOOP;
1573:
1574: --- --- --- DEBUG ---
1575: ---
1576: --- bis_debug_pub.ADD('out of the select loop');
1577: --- bis_vg_util.print_View_Text
1578: --- ( x_View_Column_Text_Table
1579: --- , l_dummy
1580: --- , x_error_Tbl
1583: --- ( x_View_Select_Text_Table
1584: --- , l_dummy
1585: --- , x_error_Tbl
1586: --- );
1587: bis_debug_pub.Add('< Update_View');
1588: --
1589: EXCEPTION
1590: when FND_API.G_EXC_ERROR then
1591: bis_debug_pub.add('x_error_tbl.count = '||x_error_tbl.count);
1587: bis_debug_pub.Add('< Update_View');
1588: --
1589: EXCEPTION
1590: when FND_API.G_EXC_ERROR then
1591: bis_debug_pub.add('x_error_tbl.count = '||x_error_tbl.count);
1592: --- x_return_status := FND_API.G_RET_STS_ERROR ;
1593: RAISE FND_API.G_EXC_ERROR;
1594: when FND_API.G_EXC_UNEXPECTED_ERROR then
1595: --- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1632: l_appl_short VARCHAR2(50);
1633: l_end_pos NUMBER;
1634: --
1635: BEGIN
1636: bis_debug_pub.Add('> handle_gen_exception');
1637: x_return_status := FND_API.G_RET_STS_SUCCESS;
1638: --
1639: -- get first message in message queue
1640: l_error_msg := fnd_msg_pub.get(fnd_msg_pub.G_FIRST, FND_API.G_TRUE);
1690: , SUBSTR(l_message||' '||l_trace, 1, 2000)
1691: , x_return_status
1692: , x_error_Tbl
1693: );
1694: bis_debug_pub.Add('< handle_gen_exception');
1695: EXCEPTION
1696: when FND_API.G_EXC_ERROR then
1697: x_return_status := FND_API.G_RET_STS_ERROR ;
1698: RAISE FND_API.G_EXC_ERROR;
1729:
1730: l_comment_stmt VARCHAR2(5000);
1731: l_comment_table_stmt VARCHAR2(100);
1732: BEGIN
1733: bis_debug_pub.Add('> comment_Flex_Columns');
1734:
1735: FOR j IN 1 .. p_column_Comment_Table.COUNT LOOP
1736: --- Handle each comment statement in own block
1737: BEGIN
1792: WHEN OTHERS THEN
1793: null;
1794:
1795: END;
1796: bis_debug_pub.Add('< comment_Flex_Columns');
1797: EXCEPTION
1798: WHEN OTHERs THEN
1799: NULL;
1800: END comment_Flex_Columns;
1836: --- --- DEBUG
1837: --- dbms_output.put_line('GENERATE_PRUNED_VIEW - '||p_viewname);
1838: --- FIRST CHECK FOR DATA WAREHOUSE LINK
1839:
1840: l_success := bis_debug_pub.set_debug_mode('FILE');
1841: bis_debug_pub.initialize;
1842: bis_debug_pub.setdebuglevel(10);
1843: g_mode := bis_vg_types.production_mode;
1844:
1837: --- dbms_output.put_line('GENERATE_PRUNED_VIEW - '||p_viewname);
1838: --- FIRST CHECK FOR DATA WAREHOUSE LINK
1839:
1840: l_success := bis_debug_pub.set_debug_mode('FILE');
1841: bis_debug_pub.initialize;
1842: bis_debug_pub.setdebuglevel(10);
1843: g_mode := bis_vg_types.production_mode;
1844:
1845: BEGIN
1838: --- FIRST CHECK FOR DATA WAREHOUSE LINK
1839:
1840: l_success := bis_debug_pub.set_debug_mode('FILE');
1841: bis_debug_pub.initialize;
1842: bis_debug_pub.setdebuglevel(10);
1843: g_mode := bis_vg_types.production_mode;
1844:
1845: BEGIN
1846: execute immediate 'ALTER session SET global_names=FALSE';
2010: --- dbms_output.put_line('GENERATE_PRUNED_VIEW - Status updated');
2011: EXCEPTION
2012: WHEN FND_API.g_exc_unexpected_error
2013: THEN
2014: --- bis_debug_pub.dumpdebug;
2015: bis_vg_log.write_error_to_string(l_error_string);
2016: execute immediate update_status_stmt
2017: using
2018: 'FAILED_PRUNED',
2022:
2023: --- RAISE; --- the same exception
2024: WHEN FND_API.g_exc_error
2025: THEN
2026: --- bis_debug_pub.dumpdebug;
2027: bis_vg_log.write_error_to_string(l_error_string);
2028: execute immediate update_status_stmt
2029: using
2030: 'FAILED_PRUNED',
2034:
2035: --- RAISE; --- the same exception
2036: WHEN OTHERS
2037: THEN
2038: --- bis_debug_pub.dumpdebug;
2039: l_error_string := 'New Error '|| SQLCODE||' : '|| SQLERRM;
2040: execute immediate update_status_stmt
2041: using
2042: 'FAILED_PRUNED',
2111: fnd_profile.put('FND_AS_MSG_LEVEL_THRESHOLD'
2112: , FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
2113: END IF;
2114: --
2115: l_debug_file := bis_debug_pub.set_debug_mode('FILE');
2116: bis_debug_pub.initialize;
2117: bis_debug_pub.setdebuglevel(10);
2118: --
2119: bis_debug_pub.Add('> generate_Views');
2112: , FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
2113: END IF;
2114: --
2115: l_debug_file := bis_debug_pub.set_debug_mode('FILE');
2116: bis_debug_pub.initialize;
2117: bis_debug_pub.setdebuglevel(10);
2118: --
2119: bis_debug_pub.Add('> generate_Views');
2120: x_ret_code := 0;
2113: END IF;
2114: --
2115: l_debug_file := bis_debug_pub.set_debug_mode('FILE');
2116: bis_debug_pub.initialize;
2117: bis_debug_pub.setdebuglevel(10);
2118: --
2119: bis_debug_pub.Add('> generate_Views');
2120: x_ret_code := 0;
2121: -- verify parameters
2115: l_debug_file := bis_debug_pub.set_debug_mode('FILE');
2116: bis_debug_pub.initialize;
2117: bis_debug_pub.setdebuglevel(10);
2118: --
2119: bis_debug_pub.Add('> generate_Views');
2120: x_ret_code := 0;
2121: -- verify parameters
2122: -- retrieve business views
2123:
2167:
2168: --
2169: --
2170: IF (g_mode <> bis_vg_types.sqlplus_production_mode) THEN
2171: bis_debug_pub.debug_on;
2172: bis_debug_pub.Add('BIS_VEW_GENERATOR. Generate_Views : '
2173: || 'l_View_Table.count = ' || l_View_Table.COUNT);
2174: bis_debug_pub.debug_off;
2175: END IF;
2168: --
2169: --
2170: IF (g_mode <> bis_vg_types.sqlplus_production_mode) THEN
2171: bis_debug_pub.debug_on;
2172: bis_debug_pub.Add('BIS_VEW_GENERATOR. Generate_Views : '
2173: || 'l_View_Table.count = ' || l_View_Table.COUNT);
2174: bis_debug_pub.debug_off;
2175: END IF;
2176: --
2170: IF (g_mode <> bis_vg_types.sqlplus_production_mode) THEN
2171: bis_debug_pub.debug_on;
2172: bis_debug_pub.Add('BIS_VEW_GENERATOR. Generate_Views : '
2173: || 'l_View_Table.count = ' || l_View_Table.COUNT);
2174: bis_debug_pub.debug_off;
2175: END IF;
2176: --
2177: END IF;
2178: --
2274:
2275: --
2276: IF (l_view_column_out_table.COUNT > 0) THEN
2277: --create the view
2278: --- bis_debug_pub.debug_on;
2279: BIS_VG_COMPILE.write_View
2280: ( g_mode
2281: , l_View_Table(i).view_name
2282: , l_View_Column_out_Table
2285: , l_View_Column_Comment_Table
2286: --- , l_return_status
2287: , l_error_Tbl
2288: );
2289: --- bis_debug_pub.debug_off;
2290: --
2291: --
2292: -- Update the view column comments
2293: comment_Flex_Columns(l_generated_view_name
2418: , l_return_status
2419: , l_error_Tbl
2420: );
2421: --
2422: bis_debug_pub.Add('< generate_Views');
2423: --
2424: EXCEPTION
2425: WHEN FND_API.G_EXC_ERROR THEN
2426: bis_vg_log.update_failure_log( l_error_tbl
2448: IF (g_mode = bis_vg_types.production_mode) THEN
2449: x_error_buf := SQLERRM;
2450: x_ret_code := 2;
2451: ELSE
2452: bis_debug_pub.debug_on;
2453: bis_debug_pub.Add('Error code - '||SQLCODE);
2454: bis_debug_pub.ADD('Error message - '||Sqlerrm);
2455: bis_debug_pub.debug_off;
2456: END IF;
2449: x_error_buf := SQLERRM;
2450: x_ret_code := 2;
2451: ELSE
2452: bis_debug_pub.debug_on;
2453: bis_debug_pub.Add('Error code - '||SQLCODE);
2454: bis_debug_pub.ADD('Error message - '||Sqlerrm);
2455: bis_debug_pub.debug_off;
2456: END IF;
2457: END generate_Views;
2450: x_ret_code := 2;
2451: ELSE
2452: bis_debug_pub.debug_on;
2453: bis_debug_pub.Add('Error code - '||SQLCODE);
2454: bis_debug_pub.ADD('Error message - '||Sqlerrm);
2455: bis_debug_pub.debug_off;
2456: END IF;
2457: END generate_Views;
2458:
2451: ELSE
2452: bis_debug_pub.debug_on;
2453: bis_debug_pub.Add('Error code - '||SQLCODE);
2454: bis_debug_pub.ADD('Error message - '||Sqlerrm);
2455: bis_debug_pub.debug_off;
2456: END IF;
2457: END generate_Views;
2458:
2459: PROCEDURE set_mode
2459: PROCEDURE set_mode
2460: (p_mode IN bis_vg_types.view_generator_mode_type)
2461: IS
2462: BEGIN
2463: bis_debug_pub.Add('> set_mode');
2464: g_mode := p_mode;
2465: bis_debug_pub.Add('< set_mode');
2466: EXCEPTION
2467: WHEN OTHERS THEN
2461: IS
2462: BEGIN
2463: bis_debug_pub.Add('> set_mode');
2464: g_mode := p_mode;
2465: bis_debug_pub.Add('< set_mode');
2466: EXCEPTION
2467: WHEN OTHERS THEN
2468: bis_debug_pub.debug_on;
2469: bis_debug_pub.add('bis_view_generator_pvt.set_mode');
2464: g_mode := p_mode;
2465: bis_debug_pub.Add('< set_mode');
2466: EXCEPTION
2467: WHEN OTHERS THEN
2468: bis_debug_pub.debug_on;
2469: bis_debug_pub.add('bis_view_generator_pvt.set_mode');
2470: bis_debug_pub.debug_off;
2471: fnd_msg_pub.Add_Exc_Msg( 'bis_view_generator_pvt'
2472: , 'set_mode'
2465: bis_debug_pub.Add('< set_mode');
2466: EXCEPTION
2467: WHEN OTHERS THEN
2468: bis_debug_pub.debug_on;
2469: bis_debug_pub.add('bis_view_generator_pvt.set_mode');
2470: bis_debug_pub.debug_off;
2471: fnd_msg_pub.Add_Exc_Msg( 'bis_view_generator_pvt'
2472: , 'set_mode'
2473: );
2466: EXCEPTION
2467: WHEN OTHERS THEN
2468: bis_debug_pub.debug_on;
2469: bis_debug_pub.add('bis_view_generator_pvt.set_mode');
2470: bis_debug_pub.debug_off;
2471: fnd_msg_pub.Add_Exc_Msg( 'bis_view_generator_pvt'
2472: , 'set_mode'
2473: );
2474: RAISE;
2481: , x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
2482: )
2483: IS
2484: BEGIN
2485: bis_debug_pub.Add('> set_mode');
2486: x_return_status := FND_API.G_RET_STS_SUCCESS;
2487: g_mode := p_mode;
2488: bis_debug_pub.Add('< set_mode');
2489: --
2484: BEGIN
2485: bis_debug_pub.Add('> set_mode');
2486: x_return_status := FND_API.G_RET_STS_SUCCESS;
2487: g_mode := p_mode;
2488: bis_debug_pub.Add('< set_mode');
2489: --
2490: EXCEPTION
2491: when FND_API.G_EXC_ERROR then
2492: x_return_status := FND_API.G_RET_STS_ERROR ;