The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_last_updated_by NUMBER(15) := FND_GLOBAL.USER_ID;
g_last_update_date DATE := SYSDATE;
g_last_update_login NUMBER(15) := FND_GLOBAL.LOGIN_ID;
procedure insert_row
(p_rowset_code IN VARCHAR2,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
x_msg_count IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_err_msg_data OUT NOCOPY VARCHAR2)
IS
NULL_VALUE EXCEPTION;
select 1 into l_number from PJI_MT_ROWSET_B
where rowset_code=p_rowset_code;
pji_mt_rowset_pkg.Insert_Row(X_Rowid => l_rowid,
X_rowset_Code => p_rowset_code,
X_Object_Version_Number => 1,
X_Name => p_name,
X_Description => p_description,
X_Last_Update_Date => g_last_update_date,
X_Last_Updated_By => g_last_updated_by,
X_Creation_Date => g_creation_date,
X_Created_By => g_created_by,
X_Last_Update_Login => g_last_update_login,
X_Return_Status => l_return_status,
X_Msg_Data => l_msg_data,
X_Msg_Count => l_msg_count);
pji_rep_util.add_message(p_app_short_name=> 'PJI',p_msg_name=> 'PJI_REP_SYSTEM_ERROR', p_msg_type=>FND_API.G_RET_STS_UNEXP_ERROR,p_token1=>'PROC_NAME',p_token1_value=>'Pji_Map_Rowset_Measure.insert_row');
pji_rep_util.add_message(p_app_short_name=> 'PJI',p_msg_name=> 'PJI_REP_SYSTEM_ERROR', p_msg_type=>FND_API.G_RET_STS_UNEXP_ERROR,p_token1=>'PROC_NAME',p_token1_value=>'Pji_Map_Rowset_Measure.insert_row');
END insert_row;
--Bug 3798976. Delete all the detail records and populate with the new list
--with the correct order.
delete from pji_mt_rowset_det
where rowset_code = p_rowset_code;
insert into PJI_MT_ROWSET_DET(
ROWSET_CODE,
MEASURE_SET_CODE,
OBJECT_VERSION_NUMBER,
DISPLAY_ORDER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
values
(p_rowset_code,
p_measure_set_code_add_tb1(i),
1,
l_display_order_tbl(i),
g_created_by,
g_creation_date,
g_last_updated_by,
g_last_update_date,
g_last_update_login);
delete from PJI_MT_ROWSET_DET
where rowset_code=p_rowset_code
and measure_set_code=p_measure_set_code_del_tb1(i);
procedure update_row
(p_rowset_code IN VARCHAR2,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_object_version_number IN NUMBER,
x_msg_count IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_err_msg_data OUT NOCOPY VARCHAR2)
IS
NULL_VALUE EXCEPTION;
pji_mt_rowset_pkg.update_row(x_rowset_code => p_rowset_code,
x_object_version_number => p_object_version_number,
x_name => p_name,
x_description => p_description,
x_last_update_date => g_last_update_date,
X_Last_Updated_by => g_last_updated_by,
X_Last_Update_Login => g_last_update_login,
X_Return_Status => l_return_status,
X_Msg_Data => l_msg_data,
X_Msg_Count => l_msg_count);
pji_rep_util.add_message(p_app_short_name=> 'PJI',p_msg_name=> 'PJI_REP_SYSTEM_ERROR', p_msg_type=>FND_API.G_RET_STS_UNEXP_ERROR,p_token1=>'PROC_NAME',p_token1_value=>'Pji_Map_Rowset_Measure.update_row');
pji_rep_util.add_message(p_app_short_name=> 'PJI',p_msg_name=> 'PJI_REP_SYSTEM_ERROR', p_msg_type=>FND_API.G_RET_STS_UNEXP_ERROR,p_token1=>'PROC_NAME',p_token1_value=>'Pji_Map_Rowset_Measure.update_row');
END update_row;
procedure delete_row
(p_rowset_code IN VARCHAR2,
x_msg_count IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_err_msg_data OUT NOCOPY VARCHAR2)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
pji_mt_rowset_pkg.delete_row(p_rowset_code => p_rowset_code);
delete from pji_mt_rowset_det where rowset_code=p_rowset_code;
pji_rep_util.add_message(p_app_short_name=> 'PJI',p_msg_name=> 'PJI_REP_SYSTEM_ERROR', p_msg_type=>FND_API.G_RET_STS_UNEXP_ERROR,p_token1=>'PROC_NAME',p_token1_value=>'Pji_Map_Rowset_Measure.delete_row');
END delete_row;