885: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'Start FUN_RULE_UTILITY_PKG.getValueSetDataType', FALSE);
886: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'p_ValueSetId='||to_char(p_ValueSetId), FALSE);
887: end if;
888:
889: params_cursor := DBMS_SQL.OPEN_CURSOR;
890: DBMS_SQL.PARSE(params_cursor, l_ValueSetSql,DBMS_SQL.native);
891: dbms_sql.bind_variable(params_cursor , '1' , p_ValueSetId);
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
886: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'p_ValueSetId='||to_char(p_ValueSetId), FALSE);
887: end if;
888:
889: params_cursor := DBMS_SQL.OPEN_CURSOR;
890: DBMS_SQL.PARSE(params_cursor, l_ValueSetSql,DBMS_SQL.native);
891: dbms_sql.bind_variable(params_cursor , '1' , p_ValueSetId);
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
887: end if;
888:
889: params_cursor := DBMS_SQL.OPEN_CURSOR;
890: DBMS_SQL.PARSE(params_cursor, l_ValueSetSql,DBMS_SQL.native);
891: dbms_sql.bind_variable(params_cursor , '1' , p_ValueSetId);
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
895:
889: params_cursor := DBMS_SQL.OPEN_CURSOR;
890: DBMS_SQL.PARSE(params_cursor, l_ValueSetSql,DBMS_SQL.native);
891: dbms_sql.bind_variable(params_cursor , '1' , p_ValueSetId);
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
895:
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
890: DBMS_SQL.PARSE(params_cursor, l_ValueSetSql,DBMS_SQL.native);
891: dbms_sql.bind_variable(params_cursor , '1' , p_ValueSetId);
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
895:
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
898: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
892:
893: dbms_sql.define_column(params_cursor, 1, l_dataType , 1);
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
895:
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
898: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
899: dbms_sql.column_value(params_cursor, 1, l_dataType );
900: dbms_sql.column_value(params_cursor, 2, l_maximum_size );
894: dbms_sql.define_column(params_cursor, 2, l_maximum_size);
895:
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
898: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
899: dbms_sql.column_value(params_cursor, 1, l_dataType );
900: dbms_sql.column_value(params_cursor, 2, l_maximum_size );
901:
902: IF (l_dataType = 'C' ) THEN l_dataType := 'STRINGS'; END IF;
895:
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
898: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
899: dbms_sql.column_value(params_cursor, 1, l_dataType );
900: dbms_sql.column_value(params_cursor, 2, l_maximum_size );
901:
902: IF (l_dataType = 'C' ) THEN l_dataType := 'STRINGS'; END IF;
903: IF (l_dataType = 'N' ) THEN l_dataType := 'NUMERIC'; END IF;
896: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
897:
898: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
899: dbms_sql.column_value(params_cursor, 1, l_dataType );
900: dbms_sql.column_value(params_cursor, 2, l_maximum_size );
901:
902: IF (l_dataType = 'C' ) THEN l_dataType := 'STRINGS'; END IF;
903: IF (l_dataType = 'N' ) THEN l_dataType := 'NUMERIC'; END IF;
904: IF (l_dataType = 'D' OR l_dataType = 'X') THEN
915: END IF;
916:
917: end loop;
918:
919: DBMS_SQL.CLOSE_CURSOR(params_cursor);
920:
921: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
922: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'End FUN_RULE_UTILITY_PKG.getValueSetDataType', FALSE);
923: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'l_dataType'||l_dataType, FALSE);
946: FND_MSG_PUB.ADD;
947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
948:
949: WHEN OTHERS THEN
950: IF DBMS_SQL.IS_OPEN(params_cursor) THEN
951: DBMS_SQL.CLOSE_CURSOR(params_cursor);
952: END IF;
953:
954: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
948:
949: WHEN OTHERS THEN
950: IF DBMS_SQL.IS_OPEN(params_cursor) THEN
951: DBMS_SQL.CLOSE_CURSOR(params_cursor);
952: END IF;
953:
954: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
955: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION , 'FUN_RULE_UTILITY_PKG.getValueSetDataType:->Exception='||SQLERRM, FALSE);
1139: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'Start FUN_RULE_UTILITY_PKG.IS_USE_INSTANCE', FALSE);
1140: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'p_rule_object_id='||to_char(p_rule_object_id), FALSE);
1141: end if;
1142:
1143: params_cursor := DBMS_SQL.OPEN_CURSOR;
1144: DBMS_SQL.PARSE(params_cursor, l_sql,DBMS_SQL.native);
1145: dbms_sql.bind_variable(params_cursor , '1' , p_rule_object_id);
1146:
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1140: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'p_rule_object_id='||to_char(p_rule_object_id), FALSE);
1141: end if;
1142:
1143: params_cursor := DBMS_SQL.OPEN_CURSOR;
1144: DBMS_SQL.PARSE(params_cursor, l_sql,DBMS_SQL.native);
1145: dbms_sql.bind_variable(params_cursor , '1' , p_rule_object_id);
1146:
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1148:
1141: end if;
1142:
1143: params_cursor := DBMS_SQL.OPEN_CURSOR;
1144: DBMS_SQL.PARSE(params_cursor, l_sql,DBMS_SQL.native);
1145: dbms_sql.bind_variable(params_cursor , '1' , p_rule_object_id);
1146:
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1148:
1149: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
1143: params_cursor := DBMS_SQL.OPEN_CURSOR;
1144: DBMS_SQL.PARSE(params_cursor, l_sql,DBMS_SQL.native);
1145: dbms_sql.bind_variable(params_cursor , '1' , p_rule_object_id);
1146:
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1148:
1149: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
1150:
1151: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
1145: dbms_sql.bind_variable(params_cursor , '1' , p_rule_object_id);
1146:
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1148:
1149: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
1150:
1151: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
1152: dbms_sql.column_value(params_cursor, 1, l_parent_rule_object_id );
1153: if(l_parent_rule_object_id IS NULL) then
1147: dbms_sql.define_column(params_cursor, 1, l_parent_rule_object_id);
1148:
1149: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
1150:
1151: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
1152: dbms_sql.column_value(params_cursor, 1, l_parent_rule_object_id );
1153: if(l_parent_rule_object_id IS NULL) then
1154: return FALSE;
1155: else
1148:
1149: params_rows_processed := DBMS_SQL.EXECUTE(params_cursor);
1150:
1151: while(dbms_sql.fetch_rows(params_cursor) > 0 ) loop
1152: dbms_sql.column_value(params_cursor, 1, l_parent_rule_object_id );
1153: if(l_parent_rule_object_id IS NULL) then
1154: return FALSE;
1155: else
1156: return TRUE;
1156: return TRUE;
1157: end if;
1158: end loop;
1159:
1160: DBMS_SQL.CLOSE_CURSOR(params_cursor);
1161:
1162: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1163: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'End FUN_RULE_UTILITY_PKG.IS_USE_INSTANCE', FALSE);
1164: fnd_log.message(FND_LOG.LEVEL_STATEMENT, 'l_parent_rule_object_id='||to_char(l_parent_rule_object_id), FALSE);
1168: RETURN FALSE;
1169:
1170: EXCEPTION
1171: WHEN OTHERS THEN
1172: IF DBMS_SQL.IS_OPEN(params_cursor) THEN
1173: DBMS_SQL.CLOSE_CURSOR(params_cursor);
1174: END IF;
1175:
1176: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1169:
1170: EXCEPTION
1171: WHEN OTHERS THEN
1172: IF DBMS_SQL.IS_OPEN(params_cursor) THEN
1173: DBMS_SQL.CLOSE_CURSOR(params_cursor);
1174: END IF;
1175:
1176: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1177: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION , 'FUN_RULE_UTILITY_PKG.IS_USE_INSTANCE:->Exception='||SQLERRM, FALSE);