1058: FEM_DS.LOOKUP_CODE = ''0'' AND
1059: FEM.LANGUAGE = FEM_DS.LANGUAGE';
1060:
1061: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1062: l_cursor := DBMS_SQL.Open_Cursor;
1063: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1064: l_ignore := DBMS_SQL.Execute(l_cursor);
1065: DBMS_SQL.Close_Cursor(l_cursor);
1066:
1059: FEM.LANGUAGE = FEM_DS.LANGUAGE';
1060:
1061: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1062: l_cursor := DBMS_SQL.Open_Cursor;
1063: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1064: l_ignore := DBMS_SQL.Execute(l_cursor);
1065: DBMS_SQL.Close_Cursor(l_cursor);
1066:
1067: else
1060:
1061: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1062: l_cursor := DBMS_SQL.Open_Cursor;
1063: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1064: l_ignore := DBMS_SQL.Execute(l_cursor);
1065: DBMS_SQL.Close_Cursor(l_cursor);
1066:
1067: else
1068:
1061: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1062: l_cursor := DBMS_SQL.Open_Cursor;
1063: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1064: l_ignore := DBMS_SQL.Execute(l_cursor);
1065: DBMS_SQL.Close_Cursor(l_cursor);
1066:
1067: else
1068:
1069: l_sql_stmt := ' INSERT INTO BSC_KPI_DEFAULTS_TL
1111: FEM_ATYPE.LANGUAGE = FEM_ACCOUNT.LANGUAGE AND
1112: FEM_SUBACCOUNT.LANGUAGE = FEM_ACCOUNT.LANGUAGE';
1113:
1114: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1115: l_cursor := DBMS_SQL.Open_Cursor;
1116: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1117: l_ignore := DBMS_SQL.Execute(l_cursor);
1118: DBMS_SQL.Close_Cursor(l_cursor);
1119:
1112: FEM_SUBACCOUNT.LANGUAGE = FEM_ACCOUNT.LANGUAGE';
1113:
1114: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1115: l_cursor := DBMS_SQL.Open_Cursor;
1116: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1117: l_ignore := DBMS_SQL.Execute(l_cursor);
1118: DBMS_SQL.Close_Cursor(l_cursor);
1119:
1120: end if;
1113:
1114: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1115: l_cursor := DBMS_SQL.Open_Cursor;
1116: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1117: l_ignore := DBMS_SQL.Execute(l_cursor);
1118: DBMS_SQL.Close_Cursor(l_cursor);
1119:
1120: end if;
1121:
1114: l_debug_stmt := SUBSTR(l_sql_stmt,1,2000);
1115: l_cursor := DBMS_SQL.Open_Cursor;
1116: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1117: l_ignore := DBMS_SQL.Execute(l_cursor);
1118: DBMS_SQL.Close_Cursor(l_cursor);
1119:
1120: end if;
1121:
1122:
1304: WHERE FEM.LOOKUP_TYPE =''BSC_TPLATE_TAB_DSERIES_NAME'' AND
1305: FEM.LOOKUP_CODE = ''0''';
1306:
1307: l_debug_stmt := l_sql_stmt;
1308: l_cursor := DBMS_SQL.Open_Cursor;
1309: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1310: l_ignore := DBMS_SQL.Execute(l_cursor);
1311: DBMS_SQL.Close_Cursor(l_cursor);
1312:
1305: FEM.LOOKUP_CODE = ''0''';
1306:
1307: l_debug_stmt := l_sql_stmt;
1308: l_cursor := DBMS_SQL.Open_Cursor;
1309: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1310: l_ignore := DBMS_SQL.Execute(l_cursor);
1311: DBMS_SQL.Close_Cursor(l_cursor);
1312:
1313: l_debug_stmt := 'Inserting BSC_KPI_MEASURE_PROPS' ||
1306:
1307: l_debug_stmt := l_sql_stmt;
1308: l_cursor := DBMS_SQL.Open_Cursor;
1309: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1310: l_ignore := DBMS_SQL.Execute(l_cursor);
1311: DBMS_SQL.Close_Cursor(l_cursor);
1312:
1313: l_debug_stmt := 'Inserting BSC_KPI_MEASURE_PROPS' ||
1314: ', k_indicator=' || to_char(k_indicator) ||
1307: l_debug_stmt := l_sql_stmt;
1308: l_cursor := DBMS_SQL.Open_Cursor;
1309: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1310: l_ignore := DBMS_SQL.Execute(l_cursor);
1311: DBMS_SQL.Close_Cursor(l_cursor);
1312:
1313: l_debug_stmt := 'Inserting BSC_KPI_MEASURE_PROPS' ||
1314: ', k_indicator=' || to_char(k_indicator) ||
1315: ', Indicator= ' || to_char(G_Ind_Tbl(k_indicator).Indicator);
1377: WHERE FEM.LOOKUP_TYPE =''BSC_TPLATE_TAB_DIM_SET_NAME'' AND
1378: FEM.LOOKUP_CODE = ''0''';
1379:
1380: l_debug_stmt := l_sql_stmt;
1381: l_cursor := DBMS_SQL.Open_Cursor;
1382: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1383: l_ignore := DBMS_SQL.Execute(l_cursor);
1384: DBMS_SQL.Close_Cursor(l_cursor);
1385:
1378: FEM.LOOKUP_CODE = ''0''';
1379:
1380: l_debug_stmt := l_sql_stmt;
1381: l_cursor := DBMS_SQL.Open_Cursor;
1382: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1383: l_ignore := DBMS_SQL.Execute(l_cursor);
1384: DBMS_SQL.Close_Cursor(l_cursor);
1385:
1386: For i_drill In 0 .. (G_Ind_Tbl(k_indicator).drills - 1)
1379:
1380: l_debug_stmt := l_sql_stmt;
1381: l_cursor := DBMS_SQL.Open_Cursor;
1382: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1383: l_ignore := DBMS_SQL.Execute(l_cursor);
1384: DBMS_SQL.Close_Cursor(l_cursor);
1385:
1386: For i_drill In 0 .. (G_Ind_Tbl(k_indicator).drills - 1)
1387: Loop
1380: l_debug_stmt := l_sql_stmt;
1381: l_cursor := DBMS_SQL.Open_Cursor;
1382: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1383: l_ignore := DBMS_SQL.Execute(l_cursor);
1384: DBMS_SQL.Close_Cursor(l_cursor);
1385:
1386: For i_drill In 0 .. (G_Ind_Tbl(k_indicator).drills - 1)
1387: Loop
1388: if (G_Ind_Tbl(k_indicator).Indicator = 3013) then
1488: FEM_COMP.LOOKUP_CODE = ''COMPARISON'' AND
1489: FEM_COMP.LANGUAGE = FEM_ALL.LANGUAGE';
1490:
1491: l_debug_stmt := l_sql_stmt;
1492: l_cursor := DBMS_SQL.Open_Cursor;
1493: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1494: l_ignore := DBMS_SQL.Execute(l_cursor);
1495: DBMS_SQL.Close_Cursor(l_cursor);
1496: else
1489: FEM_COMP.LANGUAGE = FEM_ALL.LANGUAGE';
1490:
1491: l_debug_stmt := l_sql_stmt;
1492: l_cursor := DBMS_SQL.Open_Cursor;
1493: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1494: l_ignore := DBMS_SQL.Execute(l_cursor);
1495: DBMS_SQL.Close_Cursor(l_cursor);
1496: else
1497: l_sql_stmt := 'INSERT INTO BSC_KPI_DIM_LEVELS_TL
1490:
1491: l_debug_stmt := l_sql_stmt;
1492: l_cursor := DBMS_SQL.Open_Cursor;
1493: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1494: l_ignore := DBMS_SQL.Execute(l_cursor);
1495: DBMS_SQL.Close_Cursor(l_cursor);
1496: else
1497: l_sql_stmt := 'INSERT INTO BSC_KPI_DIM_LEVELS_TL
1498: (INDICATOR,DIM_SET_ID,DIM_LEVEL_INDEX,LANGUAGE,SOURCE_LANG,NAME,
1491: l_debug_stmt := l_sql_stmt;
1492: l_cursor := DBMS_SQL.Open_Cursor;
1493: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1494: l_ignore := DBMS_SQL.Execute(l_cursor);
1495: DBMS_SQL.Close_Cursor(l_cursor);
1496: else
1497: l_sql_stmt := 'INSERT INTO BSC_KPI_DIM_LEVELS_TL
1498: (INDICATOR,DIM_SET_ID,DIM_LEVEL_INDEX,LANGUAGE,SOURCE_LANG,NAME,
1499: HELP,TOTAL_DISP_NAME,COMP_DISP_NAME)
1519: FEM.LANGUAGE = FEM_ALL.LANGUAGE AND
1520: FEM_COMP.LANGUAGE = FEM_ALL.LANGUAGE';
1521:
1522: l_debug_stmt := l_sql_stmt;
1523: l_cursor := DBMS_SQL.Open_Cursor;
1524: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1525: l_ignore := DBMS_SQL.Execute(l_cursor);
1526: DBMS_SQL.Close_Cursor(l_cursor);
1527: end if;
1520: FEM_COMP.LANGUAGE = FEM_ALL.LANGUAGE';
1521:
1522: l_debug_stmt := l_sql_stmt;
1523: l_cursor := DBMS_SQL.Open_Cursor;
1524: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1525: l_ignore := DBMS_SQL.Execute(l_cursor);
1526: DBMS_SQL.Close_Cursor(l_cursor);
1527: end if;
1528:
1521:
1522: l_debug_stmt := l_sql_stmt;
1523: l_cursor := DBMS_SQL.Open_Cursor;
1524: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1525: l_ignore := DBMS_SQL.Execute(l_cursor);
1526: DBMS_SQL.Close_Cursor(l_cursor);
1527: end if;
1528:
1529: if (G_Ind_Tbl(k_indicator).Indicator = 3013) then
1522: l_debug_stmt := l_sql_stmt;
1523: l_cursor := DBMS_SQL.Open_Cursor;
1524: DBMS_SQL.Parse(l_cursor, l_sql_stmt, DBMS_SQL.native);
1525: l_ignore := DBMS_SQL.Execute(l_cursor);
1526: DBMS_SQL.Close_Cursor(l_cursor);
1527: end if;
1528:
1529: if (G_Ind_Tbl(k_indicator).Indicator = 3013) then
1530:
1809: -- BSC_SYS_MEASURE_ID_S
1810: -- ---------------------------------------------------------*/
1811: -- Reset sequence BSC_SYS_DIM_LEVEL_ID_S
1812: l_sql_stmt := 'SELECT NVL(MAX(DIM_LEVEL_ID),0) FROM BSC_SYS_DIM_LEVELS_B';
1813: h_cursor := DBMS_SQL.OPEN_CURSOR;
1814: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1810: -- ---------------------------------------------------------*/
1811: -- Reset sequence BSC_SYS_DIM_LEVEL_ID_S
1812: l_sql_stmt := 'SELECT NVL(MAX(DIM_LEVEL_ID),0) FROM BSC_SYS_DIM_LEVELS_B';
1813: h_cursor := DBMS_SQL.OPEN_CURSOR;
1814: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1818: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1811: -- Reset sequence BSC_SYS_DIM_LEVEL_ID_S
1812: l_sql_stmt := 'SELECT NVL(MAX(DIM_LEVEL_ID),0) FROM BSC_SYS_DIM_LEVELS_B';
1813: h_cursor := DBMS_SQL.OPEN_CURSOR;
1814: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1818: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1819: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1812: l_sql_stmt := 'SELECT NVL(MAX(DIM_LEVEL_ID),0) FROM BSC_SYS_DIM_LEVELS_B';
1813: h_cursor := DBMS_SQL.OPEN_CURSOR;
1814: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1818: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1819: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1820: ELSE
1814: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1818: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1819: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1820: ELSE
1821: h_max_id := 0;
1822: END IF;
1815: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1816: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1817:
1818: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1819: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1820: ELSE
1821: h_max_id := 0;
1822: END IF;
1823: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1819: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1820: ELSE
1821: h_max_id := 0;
1822: END IF;
1823: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1824: h_max_id := h_max_id + 1;
1825:
1826: l_sql_stmt := 'DROP SEQUENCE BSC_SYS_DIM_LEVEL_ID_S';
1827: BEGIN BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.DROP_SEQUENCE, 'BSC_SYS_DIM_LEVEL_ID_S'); EXCEPTION WHEN OTHERS THEN NULL; END;
1829: BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.CREATE_SEQUENCE, 'BSC_SYS_DIM_LEVEL_ID_S');
1830:
1831: -- Reset sequence BSC_SYS_DIM_GROUP_ID_S
1832: l_sql_stmt := 'SELECT NVL(MAX(DIM_GROUP_ID),0) FROM BSC_SYS_DIM_GROUPS_TL';
1833: h_cursor := DBMS_SQL.OPEN_CURSOR;
1834: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1830:
1831: -- Reset sequence BSC_SYS_DIM_GROUP_ID_S
1832: l_sql_stmt := 'SELECT NVL(MAX(DIM_GROUP_ID),0) FROM BSC_SYS_DIM_GROUPS_TL';
1833: h_cursor := DBMS_SQL.OPEN_CURSOR;
1834: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1838: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1831: -- Reset sequence BSC_SYS_DIM_GROUP_ID_S
1832: l_sql_stmt := 'SELECT NVL(MAX(DIM_GROUP_ID),0) FROM BSC_SYS_DIM_GROUPS_TL';
1833: h_cursor := DBMS_SQL.OPEN_CURSOR;
1834: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1838: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1839: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1832: l_sql_stmt := 'SELECT NVL(MAX(DIM_GROUP_ID),0) FROM BSC_SYS_DIM_GROUPS_TL';
1833: h_cursor := DBMS_SQL.OPEN_CURSOR;
1834: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1838: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1839: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1840: ELSE
1834: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1838: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1839: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1840: ELSE
1841: h_max_id := 0;
1842: END IF;
1835: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1836: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1837:
1838: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1839: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1840: ELSE
1841: h_max_id := 0;
1842: END IF;
1843: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1839: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1840: ELSE
1841: h_max_id := 0;
1842: END IF;
1843: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1844: h_max_id := h_max_id + 1;
1845:
1846: l_sql_stmt := 'DROP SEQUENCE BSC_SYS_DIM_GROUP_ID_S';
1847: BEGIN BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.DROP_SEQUENCE, 'BSC_SYS_DIM_GROUP_ID_S'); EXCEPTION WHEN OTHERS THEN NULL; END;
1850:
1851:
1852: -- Reset sequence BSC_SYS_DATASET_ID_S
1853: l_sql_stmt := 'SELECT NVL(MAX(DATASET_ID),0) FROM BSC_SYS_DATASETS_B';
1854: h_cursor := DBMS_SQL.OPEN_CURSOR;
1855: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1851:
1852: -- Reset sequence BSC_SYS_DATASET_ID_S
1853: l_sql_stmt := 'SELECT NVL(MAX(DATASET_ID),0) FROM BSC_SYS_DATASETS_B';
1854: h_cursor := DBMS_SQL.OPEN_CURSOR;
1855: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1859: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1852: -- Reset sequence BSC_SYS_DATASET_ID_S
1853: l_sql_stmt := 'SELECT NVL(MAX(DATASET_ID),0) FROM BSC_SYS_DATASETS_B';
1854: h_cursor := DBMS_SQL.OPEN_CURSOR;
1855: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1859: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1860: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1853: l_sql_stmt := 'SELECT NVL(MAX(DATASET_ID),0) FROM BSC_SYS_DATASETS_B';
1854: h_cursor := DBMS_SQL.OPEN_CURSOR;
1855: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1859: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1860: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1861: ELSE
1855: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1859: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1860: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1861: ELSE
1862: h_max_id := 0;
1863: END IF;
1856: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1857: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1858:
1859: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1860: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1861: ELSE
1862: h_max_id := 0;
1863: END IF;
1864: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1860: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1861: ELSE
1862: h_max_id := 0;
1863: END IF;
1864: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1865: h_max_id := h_max_id + 1;
1866:
1867: l_sql_stmt := 'DROP SEQUENCE BSC_SYS_DATASET_ID_S';
1868: BEGIN BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.DROP_SEQUENCE, 'BSC_SYS_DATASET_ID_S'); EXCEPTION WHEN OTHERS THEN NULL; END;
1870: BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.CREATE_SEQUENCE, 'BSC_SYS_DATASET_ID_S');
1871:
1872: -- Reset sequence BSC_SYS_MEASURE_ID_S
1873: l_sql_stmt := 'SELECT NVL(MAX(MEASURE_ID),0) FROM BSC_SYS_MEASURES';
1874: h_cursor := DBMS_SQL.OPEN_CURSOR;
1875: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1871:
1872: -- Reset sequence BSC_SYS_MEASURE_ID_S
1873: l_sql_stmt := 'SELECT NVL(MAX(MEASURE_ID),0) FROM BSC_SYS_MEASURES';
1874: h_cursor := DBMS_SQL.OPEN_CURSOR;
1875: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1879: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1872: -- Reset sequence BSC_SYS_MEASURE_ID_S
1873: l_sql_stmt := 'SELECT NVL(MAX(MEASURE_ID),0) FROM BSC_SYS_MEASURES';
1874: h_cursor := DBMS_SQL.OPEN_CURSOR;
1875: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1879: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1880: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1873: l_sql_stmt := 'SELECT NVL(MAX(MEASURE_ID),0) FROM BSC_SYS_MEASURES';
1874: h_cursor := DBMS_SQL.OPEN_CURSOR;
1875: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1879: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1880: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1881: ELSE
1875: DBMS_SQL.PARSE(h_cursor, l_sql_stmt, DBMS_SQL.NATIVE);
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1879: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1880: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1881: ELSE
1882: h_max_id := 0;
1883: END IF;
1876: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_max_id);
1877: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1878:
1879: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1880: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1881: ELSE
1882: h_max_id := 0;
1883: END IF;
1884: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1880: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_max_id);
1881: ELSE
1882: h_max_id := 0;
1883: END IF;
1884: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1885: h_max_id := h_max_id + 1;
1886:
1887: l_sql_stmt := 'DROP SEQUENCE BSC_SYS_MEASURE_ID_S';
1888: BEGIN BSC_APPS.Do_DDL(l_sql_stmt, AD_DDL.DROP_SEQUENCE, 'BSC_SYS_MEASURE_ID_S'); EXCEPTION WHEN OTHERS THEN NULL; END;
1933: X_Source => 'bsc_template.create_tab_template',
1934: x_type => 3,
1935: X_Mode => 'I');
1936:
1937: IF (DBMS_SQL.IS_OPEN(l_cursor)) then
1938: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1939: END IF;
1940:
1941: RETURN(FALSE);
1934: x_type => 3,
1935: X_Mode => 'I');
1936:
1937: IF (DBMS_SQL.IS_OPEN(l_cursor)) then
1938: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1939: END IF;
1940:
1941: RETURN(FALSE);
1942: