The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in OUT NOCOPY ROWID,
X_PLAN_RES_DEFAULT_ID in OUT NOCOPY NUMBER ,
P_RESOURCE_CLASS_ID in NUMBER ,
P_OBJECT_TYPE in VARCHAR2 ,
P_OBJECT_ID in NUMBER ,
P_SPREAD_CURVE_ID in NUMBER ,
P_ETC_METHOD_CODE in VARCHAR2 ,
P_EXPENDITURE_TYPE in VARCHAR2 ,
P_ITEM_CATEGORY_SET_ID in NUMBER ,
P_ITEM_MASTER_ID in NUMBER ,
P_MFC_COST_TYPE_ID in NUMBER ,
P_ENABLED_FLAG in VARCHAR2 ,
X_RECORD_VERSION_NUMBER in OUT NOCOPY NUMBER ,
P_CREATION_DATE in DATE ,
P_CREATED_BY in NUMBER ,
P_LAST_UPDATE_DATE in DATE ,
P_LAST_UPDATED_BY in NUMBER ,
P_LAST_UPDATE_LOGIN in NUMBER
) is
l_plan_res_default_id PA_PLAN_RES_DEFAULTS.PLAN_RES_DEFAULT_ID%type;
cursor C is select ROWID from PA_PLAN_RES_DEFAULTS
where plan_res_default_id = l_plan_res_default_id;
select nvl(X_PLAN_RES_DEFAULT_ID,PA_PLAN_RES_DEFAULTS_S.nextval)
into l_plan_res_default_id
from dual;
insert into PA_PLAN_RES_DEFAULTS (
PLAN_RES_DEFAULT_ID ,
RESOURCE_CLASS_ID ,
OBJECT_TYPE ,
OBJECT_ID ,
SPREAD_CURVE_ID ,
ETC_METHOD_CODE ,
EXPENDITURE_TYPE ,
ITEM_CATEGORY_SET_ID ,
ITEM_MASTER_ID ,
MFC_COST_TYPE_ID ,
ENABLED_FLAG ,
RECORD_VERSION_NUMBER ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN
) values (
L_PLAN_RES_DEFAULT_ID ,
P_RESOURCE_CLASS_ID ,
P_OBJECT_TYPE ,
P_OBJECT_ID ,
P_SPREAD_CURVE_ID ,
P_ETC_METHOD_CODE ,
P_EXPENDITURE_TYPE ,
P_ITEM_CATEGORY_SET_ID ,
P_ITEM_MASTER_ID ,
P_MFC_COST_TYPE_ID ,
P_ENABLED_FLAG ,
1 ,
P_CREATION_DATE ,
P_CREATED_BY ,
P_LAST_UPDATE_DATE ,
P_LAST_UPDATED_BY ,
P_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
cursor c is select
RESOURCE_CLASS_ID ,
OBJECT_TYPE ,
OBJECT_ID ,
SPREAD_CURVE_ID ,
ETC_METHOD_CODE ,
EXPENDITURE_TYPE ,
ITEM_CATEGORY_SET_ID ,
ITEM_MASTER_ID ,
MFC_COST_TYPE_ID ,
ENABLED_FLAG ,
RECORD_VERSION_NUMBER
from PA_PLAN_RES_DEFAULTS
where PLAN_RES_DEFAULT_ID = P_PLAN_RES_DEFAULT_ID
for update of PLAN_RES_DEFAULT_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
P_PLAN_RES_DEFAULT_ID in NUMBER ,
P_RESOURCE_CLASS_ID in NUMBER ,
P_OBJECT_TYPE in VARCHAR2 ,
P_OBJECT_ID in NUMBER ,
P_SPREAD_CURVE_ID in NUMBER ,
P_ETC_METHOD_CODE in VARCHAR2 ,
P_EXPENDITURE_TYPE in VARCHAR2 ,
P_ITEM_CATEGORY_SET_ID in NUMBER ,
P_ITEM_MASTER_ID in NUMBER ,
P_MFC_COST_TYPE_ID in NUMBER ,
P_ENABLED_FLAG in VARCHAR2 ,
X_RECORD_VERSION_NUMBER in OUT NOCOPY NUMBER ,
P_LAST_UPDATE_DATE in DATE ,
P_LAST_UPDATED_BY in NUMBER ,
P_LAST_UPDATE_LOGIN in NUMBER ,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, -- 4537865
X_MSG_DATA OUT NOCOPY VARCHAR2, -- 4537865
X_MSG_COUNT OUT NOCOPY VARCHAR2 -- 4537865
) is
begin
x_return_status := FND_API.G_RET_STS_SUCCESS;
update PA_PLAN_RES_DEFAULTS set
RESOURCE_CLASS_ID = P_RESOURCE_CLASS_ID,
OBJECT_TYPE = P_OBJECT_TYPE,
OBJECT_ID = P_OBJECT_ID,
SPREAD_CURVE_ID = P_SPREAD_CURVE_ID,
ETC_METHOD_CODE = P_ETC_METHOD_CODE,
EXPENDITURE_TYPE = P_EXPENDITURE_TYPE,
ITEM_CATEGORY_SET_ID = P_ITEM_CATEGORY_SET_ID,
ITEM_MASTER_ID = P_ITEM_MASTER_ID,
MFC_COST_TYPE_ID = P_MFC_COST_TYPE_ID,
ENABLED_FLAG = P_ENABLED_FLAG,
RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER, 0) + 1,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where PLAN_RES_DEFAULT_ID = P_PLAN_RES_DEFAULT_ID
and nvl(RECORD_VERSION_NUMBER, 0) = nvl(X_RECORD_VERSION_NUMBER, RECORD_VERSION_NUMBER);
=> 'pa_plan_res_defaults_pvt.Update_Row'
,p_procedure_name
=> PA_DEBUG.G_Err_Stack);
end UPDATE_ROW;
procedure DELETE_ROW (
P_PLAN_RES_DEFAULT_ID in NUMBER
) is
begin
delete from PA_PLAN_RES_DEFAULTS
where PLAN_RES_DEFAULT_ID = P_PLAN_RES_DEFAULT_ID;
end DELETE_ROW;
pa_plan_res_defaults_pvt.UPDATE_ROW (
P_PLAN_RES_DEFAULT_ID => X_PLAN_RES_DEFAULT_ID ,
P_RESOURCE_CLASS_ID => P_RESOURCE_CLASS_ID ,
P_OBJECT_TYPE => P_OBJECT_TYPE ,
P_OBJECT_ID => P_OBJECT_ID ,
P_SPREAD_CURVE_ID => P_SPREAD_CURVE_ID ,
P_ETC_METHOD_CODE => P_ETC_METHOD_CODE ,
P_EXPENDITURE_TYPE => P_EXPENDITURE_TYPE ,
P_ITEM_CATEGORY_SET_ID => P_ITEM_CATEGORY_SET_ID ,
P_ITEM_MASTER_ID => P_ITEM_MASTER_ID ,
P_MFC_COST_TYPE_ID => P_MFC_COST_TYPE_ID ,
P_ENABLED_FLAG => P_ENABLED_FLAG ,
X_RECORD_VERSION_NUMBER => X_RECORD_VERSION_NUMBER ,
P_LAST_UPDATE_DATE => sysdate ,
P_LAST_UPDATED_BY => user_id ,
P_LAST_UPDATE_LOGIN => 0 ,
x_return_status => l_return_status ,
x_msg_count => l_msg_count ,
x_msg_data => l_msg_data);
select 'Y'
into l_dummy
from pa_plan_res_defaults
where PLAN_RES_DEFAULT_ID = X_PLAN_RES_DEFAULT_ID;
pa_plan_res_defaults_pvt.INSERT_ROW (
X_ROWID => l_rowid ,
X_PLAN_RES_DEFAULT_ID => X_PLAN_RES_DEFAULT_ID ,
P_RESOURCE_CLASS_ID => P_RESOURCE_CLASS_ID ,
P_OBJECT_TYPE => P_OBJECT_TYPE ,
P_OBJECT_ID => P_OBJECT_ID ,
P_SPREAD_CURVE_ID => P_SPREAD_CURVE_ID ,
P_ETC_METHOD_CODE => P_ETC_METHOD_CODE ,
P_EXPENDITURE_TYPE => P_EXPENDITURE_TYPE ,
P_ITEM_CATEGORY_SET_ID => P_ITEM_CATEGORY_SET_ID ,
P_ITEM_MASTER_ID => P_ITEM_MASTER_ID ,
P_MFC_COST_TYPE_ID => P_MFC_COST_TYPE_ID ,
P_ENABLED_FLAG => P_ENABLED_FLAG ,
X_RECORD_VERSION_NUMBER => X_RECORD_VERSION_NUMBER ,
P_CREATION_DATE => sysdate ,
P_CREATED_BY => user_id ,
P_LAST_UPDATE_DATE => sysdate ,
P_LAST_UPDATED_BY => user_id ,
P_LAST_UPDATE_LOGIN => 0 );