The following lines contain the word 'select', 'insert', 'update' or 'delete':
select user_id
into l_user_id
from fnd_user
where p_name = user_name;
PROCEDURE INSERT_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2 ,
P_APPLICATION_ID IN NUMBER,
P_OBJECT_NAME IN VARCHAR2,
P_OBJECT_TYPE IN VARCHAR2,
P_TABLESPACE_TYPE IN VARCHAR2,
P_CUSTOM_TABLESPACE_TYPE IN VARCHAR2 DEFAULT NULL,
P_OBJECT_SOURCE IN VARCHAR2 DEFAULT NULL,
P_ORACLE_USERNAME IN VARCHAR2 DEFAULT NULL,
P_CUSTOM_FLAG IN VARCHAR2 DEFAULT NULL,
P_CREATION_DATE IN DATE DEFAULT NULL,
P_CREATED_BY IN NUMBER DEFAULT NULL,
P_LAST_UPDATE_DATE IN DATE DEFAULT NULL,
P_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
P_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL
) is
cursor C is
select ROWID from fnd_object_tablespaces
where application_id = p_application_id
and object_name = p_object_name;
select fou.oracle_username
from fnd_oracle_userid fou,
fnd_product_installations fpi
where fou.oracle_id = fpi.oracle_id
and fpi.application_id = p_application_id;
insert into FND_OBJECT_TABLESPACES (
APPLICATION_ID,
OBJECT_NAME,
OBJECT_TYPE,
TABLESPACE_TYPE,
CUSTOM_TABLESPACE_TYPE,
OBJECT_SOURCE ,
ORACLE_USERNAME,
CUSTOM_FLAG ,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
P_APPLICATION_ID,
P_OBJECT_NAME,
P_OBJECT_TYPE,
P_TABLESPACE_TYPE,
P_CUSTOM_TABLESPACE_TYPE,
P_OBJECT_SOURCE ,
NVL(P_ORACLE_USERNAME, l_schema),
P_CUSTOM_FLAG ,
NVL(P_CREATION_DATE, sysdate),
NVL(P_CREATED_BY, -1),
NVL(P_LAST_UPDATE_DATE, sysdate),
NVL(P_LAST_UPDATED_BY, -1),
NVL(P_LAST_UPDATE_LOGIN, -1)
);
END INSERT_ROW;
PROCEDURE UPDATE_ROW (
P_APPLICATION_ID in NUMBER,
P_OBJECT_NAME in VARCHAR2,
P_OBJECT_TYPE in VARCHAR2,
P_TABLESPACE_TYPE in VARCHAR2 DEFAULT NULL,
P_CUSTOM_TABLESPACE_TYPE in VARCHAR2 DEFAULT NULL,
P_OBJECT_SOURCE in VARCHAR2 DEFAULT NULL,
P_ORACLE_USERNAME in VARCHAR2 DEFAULT NULL,
P_CUSTOM_FLAG in VARCHAR2 DEFAULT NULL,
P_LAST_UPDATE_DATE in DATE DEFAULT NULL,
P_LAST_UPDATED_BY in NUMBER DEFAULT NULL,
P_LAST_UPDATE_LOGIN in NUMBER DEFAULT NULL
) is
BEGIN
update FND_OBJECT_TABLESPACES set
OBJECT_TYPE = decode(P_OBJECT_TYPE, NULL, OBJECT_TYPE, p_OBJECT_TYPE),
TABLESPACE_TYPE = decode(P_TABLESPACE_TYPE, NULL, TABLESPACE_TYPE, p_TABLESPACE_TYPE),
CUSTOM_TABLESPACE_TYPE = decode(P_CUSTOM_TABLESPACE_TYPE, NULL, CUSTOM_TABLESPACE_TYPE, p_CUSTOM_TABLESPACE_TYPE),
OBJECT_SOURCE = decode(P_OBJECT_SOURCE, NULL, OBJECT_SOURCE, p_OBJECT_SOURCE),
ORACLE_USERNAME = decode(P_ORACLE_USERNAME, NULL, ORACLE_USERNAME, p_ORACLE_USERNAME),
CUSTOM_FLAG = decode(P_CUSTOM_FLAG, NULL, CUSTOM_FLAG, p_CUSTOM_FLAG),
LAST_UPDATE_DATE = decode(P_LAST_UPDATE_DATE, NULL, sysdate, p_LAST_UPDATE_DATE),
LAST_UPDATED_BY = decode(P_LAST_UPDATED_BY, NULL, -1, p_LAST_UPDATED_BY),
LAST_UPDATE_LOGIN = decode(P_LAST_UPDATE_LOGIN, NULL, -1, p_LAST_UPDATE_LOGIN)
where APPLICATION_ID = P_APPLICATION_ID
and OBJECT_NAME = P_OBJECT_NAME;
END UPDATE_ROW;
P_LAST_UPDATED_BY => null,
P_CUSTOM_MODE => P_CUSTOM_MODE,
P_LAST_UPDATE_DATE => null
);
P_LAST_UPDATED_BY in VARCHAR2,
P_CUSTOM_MODE in VARCHAR2,
P_LAST_UPDATE_DATE in VARCHAR2
) is
row_id VARCHAR2(4000);
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
f_luby := owner_id(P_LAST_UPDATED_BY);
f_ludate := nvl(to_date(P_last_update_date, 'YYYY/MM/DD'), sysdate);
select last_updated_by, last_update_date
into db_luby, db_ludate
from FND_OBJECT_TABLESPACES
where application_id = p_application_id
and object_name = p_object_name;
FND_OBJECT_TABLESPACES_PKG.UPDATE_ROW (
P_APPLICATION_ID => P_application_id,
P_OBJECT_NAME => P_OBJECT_NAME,
P_OBJECT_TYPE => P_OBJECT_TYPE,
P_TABLESPACE_TYPE => P_TABLESPACE_TYPE,
P_CUSTOM_TABLESPACE_TYPE => P_CUSTOM_TABLESPACE_TYPE,
P_OBJECT_SOURCE => P_OBJECT_SOURCE ,
P_ORACLE_USERNAME => P_ORACLE_USERNAME ,
P_CUSTOM_FLAG => P_CUSTOM_FLAG,
P_LAST_UPDATE_DATE => f_ludate,
P_LAST_UPDATED_BY => f_luby,
P_LAST_UPDATE_LOGIN => -1 );
FND_OBJECT_TABLESPACES_PKG.INSERT_ROW(
X_ROWID => row_id,
P_APPLICATION_ID => P_APPLICATION_ID,
P_OBJECT_NAME => P_OBJECT_NAME,
P_OBJECT_TYPE => P_OBJECT_TYPE,
P_TABLESPACE_TYPE => P_TABLESPACE_TYPE,
P_CUSTOM_TABLESPACE_TYPE => P_CUSTOM_TABLESPACE_TYPE,
P_OBJECT_SOURCE => P_OBJECT_SOURCE ,
P_ORACLE_USERNAME => P_ORACLE_USERNAME ,
P_CUSTOM_FLAG => P_CUSTOM_FLAG,
P_CREATION_DATE => f_ludate,
P_CREATED_BY => f_luby,
P_LAST_UPDATE_DATE => f_ludate,
P_LAST_UPDATED_BY => f_luby,
P_LAST_UPDATE_LOGIN => -1 );
PROCEDURE DELETE_ROW (
P_APPLICATION_ID in NUMBER,
P_OBJECT_NAME in VARCHAR2,
P_OBJECT_TYPE in VARCHAR2
) is
BEGIN
delete from FND_OBJECT_TABLESPACES
where APPLICATION_ID = P_APPLICATION_ID
and OBJECT_NAME = P_OBJECT_NAME;
END DELETE_ROW;