The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_TNS in VARCHAR2,
X_WSDL_URL in VARCHAR2,
X_LAST_UPDATE_DATE in VARCHAR2,
X_OWNER in VARCHAR2
) is
l_ROWID VARCHAR2(100);
l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
cursor C is select ROWID from FND_SIF_WSDLS
where TNS = X_TNS;
insert into FND_SIF_WSDLS (
TNS,
WSDL_URL,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
SECURITY_GROUP_ID
) values (
X_TNS,
X_WSDL_URL,
l_ludate,
l_luby,
l_ludate,
l_luby,
0,
FND_GLOBAL.SECURITY_GROUP_ID);
raise_application_error (-20000, 'FND_SIF_WSDLS_PKG.INSERT_ROW: unable to create target name space '||X_TNS);
end INSERT_ROW;
procedure UPDATE_ROW (
X_TNS in VARCHAR2,
X_WSDL_URL in VARCHAR2,
X_LAST_UPDATE_DATE in VARCHAR2,
X_OWNER in VARCHAR2
) is
l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
update FND_SIF_WSDLS set
WSDL_URL = X_WSDL_URL,
TNS = X_TNS,
LAST_UPDATE_DATE = l_ludate,
LAST_UPDATED_BY = l_luby
where TNS = X_TNS;
INSERT_ROW(X_TNS => UPDATE_ROW.X_TNS,
X_WSDL_URL => UPDATE_ROW.X_WSDL_URL,
X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
X_OWNER => UPDATE_ROW.X_OWNER);
end UPDATE_ROW;