The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_pvt_model_rec.row_selection_type := p_model_rec.row_selection_type;
PROCEDURE Update_Model(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_model_rec IN model_rec_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Model';
SAVEPOINT Update_Model_PUB;
l_pvt_model_rec.row_selection_type := p_model_rec.row_selection_type;
AMS_DM_Model_PVT.Update_DM_Model(
p_api_version_number => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => p_commit,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_dm_model_rec => l_pvt_model_rec,
x_object_version_number => l_object_version_number
);
ROLLBACK TO Update_Model_PUB;
ROLLBACK TO Update_Model_PUB;
ROLLBACK TO Update_Model_PUB;
End Update_Model;
PROCEDURE Delete_Model(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_model_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Model';
SAVEPOINT Delete_Model_PUB;
AMS_DM_Model_PVT.Delete_DM_Model(
p_api_version_number => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => p_commit,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_model_id => l_model_id,
p_object_version_number => l_object_version_number );
ROLLBACK TO Delete_Model_PUB;
ROLLBACK TO Delete_Model_PUB;
ROLLBACK TO Delete_Model_PUB;
End Delete_Model;
L_STANDARD_ROW_SELECTION CONSTANT VARCHAR2(30) := 'STANDARD';
SELECT user_status_id
FROM ams_user_statuses_vl
WHERE system_status_type = p_type
AND system_status_code = p_code;
SELECT custom_setup_id
FROM ams_custom_setups_b
WHERE object_type = L_OBJECT_TYPE_MODEL
AND enabled_flag = 'Y'
;
SELECT ams_dm_models_all_b_s.NEXTVAL
FROM dual;
SELECT 1
FROM dual
WHERE EXISTS (SELECT 1
FROM ams_dm_models_all_b
WHERE model_id = p_model_id)
;
l_model_rec.row_selection_type := L_STANDARD_ROW_SELECTION;