The following lines contain the word 'select', 'insert', 'update' or 'delete':
'SELECT 1 FROM DUAL@'|| LinkName,
DBMS_SQL.v7);
SELECT *
FROM user_db_links
WHERE UPPER(db_link) = UPPER(LinkName);
/* Name: insert_into_list
* Desc: Insert the passed name into the PL/SQL table and update the count.
*
* History:
* 10/17/95 S Rahman Created.
*/
PROCEDURE insert_into_list(
ListName IN OUT NOCOPY ListType,
ListCount IN OUT NOCOPY BINARY_INTEGER,
Name VARCHAR2) IS
BEGIN
ListName(ListCount) := Name;
END insert_into_list;
SQLString := 'SELECT ' || IdName || ' FROM ' || TableName||'@'||G_LinkName ||
' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
SQLString := 'SELECT ref_table.name '||
'FROM '||MainTableName||'@'||G_LinkName||' main_table,' ||
RefTableName || '@'|| G_LinkName || ' ref_table ' ||
'WHERE main_table.'||ColumnName || '='|| ValueString ||
' AND main_table.'||MainIdName || '= ref_table.'||RefIdName;
SQLString := 'SELECT t.'|| IdColumnName || ', l.' || NameColumn ||
' FROM '|| TableName || ' t,' ||
TableName || '@' || G_LinkName ||' l' ||
' WHERE l.'|| IdColumnName || '=' || TO_CHAR(IdValue) ||
' AND l.' || NameColumn || '= t.' || NameColumn;
SQLString := 'SELECT ' || NameColumn ||
' FROM ' || TableName||'@'||G_LinkName ||
' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);
SQLString := 'SELECT t.TARGET_LEDGER_ID, l.TARGET_LEDGER_NAME ' ||
'FROM GL_LEDGER_RELATIONSHIPS t, GL_LEDGER_RELATIONSHIPS@' ||
G_LinkName || ' l ' ||
'WHERE l.TARGET_LEDGER_ID = ' || TO_CHAR(LedgerId) ||
' AND l.TARGET_CURRENCY_CODE = ''' || LedgerCurrency ||
''' AND l.TARGET_LEDGER_NAME = t.TARGET_LEDGER_NAME';
SQLString := 'SELECT TARGET_LEDGER_NAME ' ||
'FROM GL_LEDGER_RELATIONSHIPS@' || G_LinkName ||
' WHERE TARGET_LEDGER_ID = ' || TO_CHAR(LedgerId) ||
' AND TARGET_CURRENCY_CODE = ''' || LedgerCurrency || '''';
/* Name: insert_rows
* Desc: Insert rows using the provided SQL statement. Binds variable as
* necessary.
*
* History:
* 10/17/95 S Rahman Created.
*/
PROCEDURE insert_rows(
SQLStmt VARCHAR2,
Id NUMBER,
UseCOAId BOOLEAN DEFAULT FALSE,
UseRowId BOOLEAN DEFAULT FALSE,
RecRowId ROWID DEFAULT NULL) IS
CursorId INTEGER;
END insert_rows;
SQLString := 'SELECT structure_id FROM ' || TableName || '@' || G_LinkName||
' WHERE name = ''' || ComponentName ||'''' ||
NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
SQLString := 'SELECT structure_id FROM ' || TableName ||
' WHERE name = ''' || ComponentName ||'''' ||
NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
SQLString VARCHAR2(200) := 'SELECT 1 FROM ';
FUNCTION component_exists(SelectString VARCHAR2) RETURN NUMBER IS
CursorId INTEGER;
display_string(SelectString);
DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
SQLString := 'SELECT 1 FROM fnd_currencies' ||
' WHERE currency_code = ''' || CurrencyCode || '''';
SQLString := 'SELECT 1 FROM sys.dual WHERE EXISTS ' ||
'(SELECT 1 FROM rg_report_axes ax, rg_report_axis_sets axs'||
' WHERE axs.application_id+0 in ('||TO_CHAR(G_ApplId)||',168)'||
' AND axs.axis_set_type = ''C'''||
' AND ax.axis_set_id = DECODE(axs.axis_set_type, ''C'',' ||
' axs.axis_set_id, axs.axis_set_id)' ||
' AND ax.axis_name = '''||AdjustedName||''')';