[Home] [Help]
3934: begin
3935: if (P_NZDT_MODE ='Y')
3936: then
3937: begin
3938: AD_ZD_SEED.PREPARE ('FND_OBJECT_TABLESPACES');
3939: end;
3940: end if;
3941: -- Translate owner to file_last_updated_by
3942: f_luby := owner_id(P_LAST_UPDATED_BY);
3945: f_ludate := nvl(to_date(P_last_update_date, 'YYYY/MM/DD'), sysdate);
3946:
3947: select last_updated_by, last_update_date
3948: into db_luby, db_ludate
3949: from FND_OBJECT_TABLESPACES
3950: where object_name = P_OBJECT_NAME
3951: and application_id =P_application_id
3952: and object_type =P_object_type;
3953:
3970: exception
3971: when NO_DATA_FOUND then
3972:
3973: -- select fnd_menus_s.nextval into man_id from dual;
3974: --select FND_OBJECT_TABLESPACES_S.nextval into man_id from duaL;
3975:
3976: Fnd_XdfDictionary_pkg.INSERT_ROW(
3977: X_ROWID => ROW_ID,
3978: P_APPLICATION_ID => P_application_id,
4006: P_LAST_UPDATE_DATE IN DATE,
4007: P_LAST_UPDATED_BY IN NUMBER,
4008: P_LAST_UPDATE_LOGIN IN NUMBER
4009: ) is
4010: cursor C is select ROWID from FND_OBJECT_TABLESPACES
4011: where APPLICATION_ID = P_APPLICATION_ID
4012: and object_name =P_object_name
4013: and object_type=P_object_type ;
4014:
4012: and object_name =P_object_name
4013: and object_type=P_object_type ;
4014:
4015: begin
4016: insert into FND_OBJECT_TABLESPACES (
4017: APPLICATION_ID,
4018: OBJECT_NAME,
4019: OBJECT_TYPE,
4020: TABLESPACE_TYPE,
4051: P_OBJECT_NAME in VARCHAR2,
4052: P_OBJECT_TYPE in VARCHAR2,
4053: P_TABLESPACE_TYPE in VARCHAR2) is
4054: cursor c is select OBJECT_NAME, OBJECT_TYPE
4055: from FND_OBJECT_TABLESPACES
4056: where APPLICATION_ID = P_APPLICATION_ID
4057: for update of APPLICATION_ID nowait;
4058: recinfo c%rowtype;
4059: begin
4090: P_LAST_UPDATED_BY in NUMBER,
4091: P_LAST_UPDATE_LOGIN in NUMBER
4092: ) is
4093: begin
4094: update FND_OBJECT_TABLESPACES set
4095: OBJECT_NAME = P_OBJECT_NAME,
4096: OBJECT_TYPE = P_OBJECT_TYPE,
4097: TABLESPACE_TYPE = P_TABLESPACE_TYPE,
4098: CUSTOM_TABLESPACE_TYPE = P_CUSTOM_TABLESPACE_TYPE,