The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Insert_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Insert a row into WSH_ITM_RESPONSE_RULES entity
--
-- Input Parameters
-- p_api_version
-- API version number (current version is 1.0)
-- p_init_msg_list (optional, default FND_API.G_FALSE)
-- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
-- if set to FND_API.G_TRUE
-- initialize error message list
-- if set to FND_API.G_FALSE - not initialize error
-- message list
-- p_commit (optional, default FND_API.G_FALSE)
-- whether or not to commit the changes to database
--
-- p_VENDOR_ID -- Vendor Id
-- P_VENDOR -- Service Provider
-- P_ERROR_TYPE -- Error Type
-- P_ERROR_CODE -- Error Code
-- P_INTERPRETED_CODE -- Interpreted Code
--
--*/
PROCEDURE Insert_Row
(
p_api_version 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_VENDOR_ID IN NUMBER,
p_VENDOR IN VARCHAR2,
p_ERROR_TYPE IN VARCHAR2,
p_ERROR_CODE IN VARCHAR2,
p_INTERPRETED_CODE IN VARCHAR2,
X_ROWID OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
insert into wsh_itm_response_rules
(VENDOR_ID,
ERROR_TYPE,
ERROR_CODE,
INTERPRETED_VALUE_CODE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN
)
values (
p_VENDOR_ID
,p_error_type
,p_error_code
,p_interpreted_code
,sysdate
,FND_GLOBAL.user_id
,sysdate
,FND_GLOBAL.user_id
,FND_GLOBAL.login_id
) ;
FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
SELECT rowid
INTO x_rowid
FROM wsh_itm_response_rules
WHERE vendor_id = p_vendor_id
AND nvl(error_code,-99) = nvl(p_error_code,-99)
AND error_type = p_error_type
AND interpreted_value_code = p_interpreted_code;
End Insert_Row;
/* Update_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Update a row into WSH_ITM_RESPONSE_RULES entity
--
-- Input Parameters
-- p_api_version
-- API version number (current version is 1.0)
-- p_init_msg_list (optional, default FND_API.G_FALSE)
-- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
-- if set to FND_API.G_TRUE
-- initialize error message list
-- if set to FND_API.G_FALSE - not initialize error
-- message list
-- p_commit (optional, default FND_API.G_FALSE)
-- whether or not to commit the changes to database
--
-- Input parameters for clear cross users informations
-- p_VENDOR_ID -- Vendor Id
-- P_VENDOR -- Service Provider
-- P_ERROR_TYPE -- Error Type
-- P_ERROR_CODE -- Error Code
-- P_INTERPRETED_CODE -- Interpreted Code
-- P_ROWID
--
-- Output Parameters
-- x_return_status
-- if the process succeeds, the value is
-- fnd_api.g_ret_sts_success;
PROCEDURE Update_Row
(
p_api_version 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_VENDOR_ID IN NUMBER,
p_VENDOR IN VARCHAR2,
p_ERROR_TYPE IN VARCHAR2,
p_ERROR_CODE IN VARCHAR2,
p_INTERPRETED_CODE IN VARCHAR2,
p_ROWID IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row' ;
UPDATE WSH_ITM_RESPONSE_RULES
SET
VENDOR_ID = P_VENDOR_ID
,ERROR_TYPE = P_ERROR_TYPE
,ERROR_CODE = P_ERROR_CODE
,INTERPRETED_VALUE_CODE = P_INTERPRETED_CODE
,LAST_UPDATE_DATE = sysdate
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE rowid = p_rowid;
FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
End Update_Row;
/* Delete_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Delete a row from WSH_ITM_RESPONE_RULES entity
--
-- Input Parameters
-- p_api_version
-- API version number (current version is 1.0)
-- p_init_msg_list (optional, default FND_API.G_FALSE)
-- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
-- if set to FND_API.G_TRUE
-- initialize error message list
-- if set to FND_API.G_FALSE - not initialize error
-- message list
-- p_commit (optional, default FND_API.G_FALSE)
-- whether or not to commit the changes to database
--
-- Input parameters for clear cross users informations
-- p_rowid
--
--
-- Output Parameters
-- x_return_status
-- if the process succeeds, the value is
-- fnd_api.g_ret_sts_success;
PROCEDURE Delete_Row
(
p_api_version 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_rowid IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row' ;
DELETE FROM WSH_ITM_RESPONSE_RULES
WHERE rowid = p_rowid;
FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
End Delete_Row;
SELECT *
FROM WSH_ITM_RESPONSE_RULES
WHERE rowid = p_rowid
FOR UPDATE OF VENDOR_ID NOWAIT;
FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');