The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_DEFINITION_NAME in VARCHAR2,
X_POLICY_NAME in VARCHAR2,
X_PROP_NAME in VARCHAR2,
X_PROP_VALUE 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_POLICY_PROPS
where DEFINITION_NAME = X_DEFINITION_NAME
and POLICY_NAME = X_POLICY_NAME;
insert into FND_SIF_POLICY_PROPS (
PROP_NAME,
PROP_VALUE,
POLICY_NAME,
DEFINITION_NAME,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
SECURITY_GROUP_ID
) values (
X_PROP_NAME,
X_PROP_VALUE,
X_POLICY_NAME,
X_DEFINITION_NAME,
l_ludate,
l_luby,
l_ludate,
l_luby,
0,
FND_GLOBAL.SECURITY_GROUP_ID);
raise_application_error (-20000, 'FND_SIF_POLICY_PROPS_PKG.INSERT_ROW: unable to create property '||X_PROP_NAME||' for policy '||X_POLICY_NAME);
end INSERT_ROW;
procedure UPDATE_ROW (
X_DEFINITION_NAME in VARCHAR2,
X_POLICY_NAME in VARCHAR2,
X_PROP_NAME in VARCHAR2,
X_PROP_VALUE 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_POLICY_PROPS set
PROP_NAME = X_PROP_NAME,
PROP_VALUE = X_PROP_VALUE,
POLICY_NAME = X_POLICY_NAME,
LAST_UPDATE_DATE = l_ludate,
LAST_UPDATED_BY = l_luby
where DEFINITION_NAME = X_DEFINITION_NAME
and POLICY_NAME = X_POLICY_NAME
and PROP_NAME=X_PROP_NAME;
INSERT_ROW(X_DEFINITION_NAME => UPDATE_ROW.X_DEFINITION_NAME,
X_POLICY_NAME => UPDATE_ROW.X_POLICY_NAME,
X_PROP_NAME => UPDATE_ROW.X_PROP_NAME,
X_PROP_VALUE => UPDATE_ROW.X_PROP_VALUE,
X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
X_OWNER => UPDATE_ROW.X_OWNER);
end UPDATE_ROW;
select count(1) into l_row_cnt
from FND_SIF_POLICY_PROPS
where DEFINITION_NAME=X_DEFINITION_NAME
and POLICY_NAME='UsernameToken'
and PROP_NAME in ('username','passwordKey', 'passwordMod')
and PROP_VALUE is not null;