The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Insert_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Insert a row into WSH_ITM_USERS_SETUP 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_APPLICATION_ID --Application ID added.
-- p_MASTER_ORGANIZATION_ID - Master Org
-- p_ORGANIZATION_ID - Org
-- p_APPLICATION_USER_ID - Application User
-- p_USER_ID - ITM User
-- p_ENCRYPTED_USER_PASSWORD - Password
--
-- Output Parameters
-- x_return_status
-- if the process succeeds, the value is
-- fnd_api.g_ret_sts_success;
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_APPLICATION_ID IN NUMBER,
p_MASTER_ORGANIZATION_ID IN NUMBER,
p_ORGANIZATION_ID IN NUMBER ,
p_APPLICATION_USER_ID IN NUMBER ,
p_USER_ID IN VARCHAR2,
p_ENCRYPTED_USER_PASSWORD IN VARCHAR2,
p_ITM_USER_SEQUENCE_ID OUT NOCOPY NUMBER
)
IS
l_ITM_USER_SEQUENCE_ID NUMBER ;
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
select wsh_itm_user_setups_s.nextval into l_ITM_USER_SEQUENCE_ID from dual;
insert into wsh_itm_user_setups
( ITM_USER_SEQUENCE_ID
,VENDOR_ID
,APPLICATION_ID
,MASTER_ORGANIZATION_ID
,ORGANIZATION_ID
,APPLICATION_USER_ID
,USER_ID
,ENCRYPTED_USER_PASSWORD
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN
)
values (
l_ITM_USER_SEQUENCE_ID
,p_VENDOR_ID
,p_APPLICATION_ID
,p_MASTER_ORGANIZATION_ID
,p_ORGANIZATION_ID
,p_APPLICATION_USER_ID
,p_USER_ID
,p_ENCRYPTED_USER_PASSWORD
,sysdate
,FND_GLOBAL.user_id
,sysdate
,FND_GLOBAL.user_id
,FND_GLOBAL.login_id
) ;
FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
End Insert_Row;
/* Update_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Update a row into WS_ITM_USERS entity for the given cc seq id
--
-- 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
-- p_APPLICATION_ID --Application added
-- p_MASTER_ORGANIZATION_ID -- Master Org
-- p_ORGANIZATION_ID --Org
-- p_APPLICATION_USER_ID -- Application User
-- p_USER_ID -- Clear Cross User
-- p_ENCRYPTED_USER_PASSWORD -- Password
-- p_ITM_USER_SEQUENCE_ID -- CC Seq Id
--
--
-- 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_APPLICATION_ID IN NUMBER,
p_MASTER_ORGANIZATION_ID IN NUMBER,
p_ORGANIZATION_ID IN NUMBER,
p_APPLICATION_USER_ID IN NUMBER,
p_USER_ID IN VARCHAR2,
p_ENCRYPTED_USER_PASSWORD IN VARCHAR2,
p_ITM_USER_SEQUENCE_ID IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row' ;
update wsh_itm_user_setups
SET
VENDOR_ID = p_VENDOR_ID
,APPLICATION_ID = p_APPLICATION_ID
,MASTER_ORGANIZATION_ID = p_MASTER_ORGANIZATION_ID
,ORGANIZATION_ID = p_ORGANIZATION_ID
,APPLICATION_USER_ID = p_APPLICATION_USER_ID
,USER_ID = p_USER_ID
,ENCRYPTED_USER_PASSWORD = p_ENCRYPTED_USER_PASSWORD
,LAST_UPDATE_DATE = sysdate
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
where itm_user_sequence_id = p_itm_user_sequence_id;
FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
End Update_Row;
/* Delete_Row Procedure */
/*----------------------------------------------------------*/
/* --
-- Purpose
-- Delete a row from WSH_ITM_USERS entity for the given cc seq id
--
-- 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_ITM_USER_SEQUENCE_ID -- ITM Seq Id
--
--
-- 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_ITM_USER_SEQUENCE_ID IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row' ;
DELETE from wsh_itm_user_setups
WHERE itm_user_sequence_id = p_itm_user_sequence_id ;
FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
End Delete_Row;
SELECT *
FROM wsh_itm_user_setups
WHERE ITM_USER_SEQUENCE_ID = p_ITM_USER_SEQUENCE_ID
FOR UPDATE OF ITM_USER_SEQUENCE_ID NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');