The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* insert_resources */
/* */
/* DESCRIPTION: */
/* */
/* API returns (x_return_code) = 'S' if the insert into resources */
/* header (cr_rsrc_mst ) table is successfully. */
/* */
/* History : */
/* Sridhar 03-SEP-2002 Initial implementation */
/* =============================================================== */
PROCEDURE insert_resources
( p_api_version IN NUMBER := 1
, p_init_msg_list IN BOOLEAN := TRUE
, p_commit IN BOOLEAN := FALSE
, p_resources IN cr_rsrc_mst%ROWTYPE
, x_message_count OUT NOCOPY NUMBER
, x_message_list OUT NOCOPY VARCHAR2
, x_return_status IN OUT NOCOPY VARCHAR2
) IS
/* Local variable section */
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_RESOURCES';
,'INSERT_RESOURCES'
,GMP_RESOURCES_PUB.m_pkg_name) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
v_insert_flag := 'Y';
/* Insert the Resource Data now */
/* Making the Capacity Tolerance field NULL if
Capacity Constraint field has value = 0
*/
IF l_resources_rec.capacity_constraint = 0
THEN
l_resources_rec.capacity_tolerance := NULL;
CR_RSRC_MST_PKG.insert_row
( l_row_id,
l_resources_rec.resources,
l_resources_rec.resource_class,
l_resources_rec.trans_cnt,
l_resources_rec.delete_mark,
l_resources_rec.text_code,
l_resources_rec.min_capacity,
l_resources_rec.max_capacity,
l_resources_rec.capacity_constraint,
l_resources_rec.capacity_uom,
l_resources_rec.std_usage_uom,
l_resources_rec.cost_cmpntcls_id,
l_resources_rec.resource_desc,
l_resources_rec.creation_date,
l_resources_rec.created_by,
l_resources_rec.last_update_date,
l_resources_rec.last_updated_by,
l_resources_rec.last_update_login,
l_resources_rec.capacity_tolerance,
l_resources_rec.utilization,
l_resources_rec.efficiency
);
v_insert_flag := 'N';
END insert_resources;
/* The following Procedure checks the Record and then Inserts */
/* the row into cr_rsrc_mst table and Returns S code if inserted */
/* Successfully */
/* */
/* History : */
/* Sgidugu 09/03/2002 Initial implementation */
/* =============================================================== */
PROCEDURE check_data(p_resources IN VARCHAR2,
p_resource_desc IN VARCHAR2,
p_std_usage_um IN VARCHAR2,
p_resource_class IN VARCHAR2,
p_cost_cmpntcls_id IN NUMBER,
p_min_capacity IN NUMBER,
p_max_capacity IN NUMBER,
p_capacity_uom IN VARCHAR2,
p_capacity_constraint IN NUMBER,
p_capacity_tolerance IN NUMBER,
x_message_count OUT NOCOPY NUMBER,
x_message_list OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2) IS
CURSOR Cur_resources IS
SELECT COUNT(1)
FROM cr_rsrc_mst
where resources = p_resources
and delete_mark = 0;
SELECT COUNT(1)
FROM sy_uoms_mst
WHERE uom_code = p_std_usage_um
AND delete_mark = 0;
SELECT COUNT(1)
FROM cr_rsrc_cls
WHERE resource_class = p_resource_class
AND delete_mark = 0;
SELECT COUNT(1)
FROM cm_cmpt_mst
WHERE cost_cmpntcls_id = p_cost_cmpntcls_id
AND delete_mark = 0;
IF v_insert_flag = 'Y' then
x_return_status := 'S';
END IF; /* End if for Insert flag = 'Y' */
/* update_resources */
/* */
/* DESCRIPTION: */
/* */
/* API returns (x_return_code) = 'S' if the update into Generic */
/* Resource Table */
/* */
/* History : */
/* Sgidugu 09/04/2002 Initial implementation */
/* =============================================================== */
PROCEDURE update_resources
( p_api_version IN NUMBER := 1
, p_init_msg_list IN BOOLEAN := TRUE
, p_commit IN BOOLEAN := FALSE
, p_resources IN cr_rsrc_mst%ROWTYPE
, x_message_count OUT NOCOPY NUMBER
, x_message_list OUT NOCOPY VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
) IS
/* Local variable section */
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_RESOURCES';
resource_update_failure EXCEPTION;
SAVEPOINT update_resources;
gmd_debug.log_initialize('UpdateResourcePub');
RAISE resource_update_failure;
/* Update the Resource Data now */
CR_RSRC_MST_PKG.update_row(
p_resources.resources,
p_resources.resource_class,
p_resources.trans_cnt,
p_resources.delete_mark,
p_resources.text_code,
p_resources.min_capacity,
p_resources.max_capacity,
p_resources.capacity_constraint,
p_resources.capacity_uom,
p_resources.std_usage_uom,
p_resources.cost_cmpntcls_id,
p_resources.resource_desc,
p_resources.last_update_date,
p_resources.last_updated_by,
p_resources.last_update_login,
p_resources.capacity_tolerance,
p_resources.utilization,
p_resources.efficiency
);
RAISE resource_update_failure;
gmd_debug.put_line('Resource was Updated successfullly');
WHEN resource_update_failure OR invalid_version THEN
ROLLBACK TO SAVEPOINT update_resources;
ROLLBACK TO SAVEPOINT update_resources;
END update_resources;
/* delete_resources */
/* */
/* DESCRIPTION: */
/* */
/* API returns (x_return_code) = 'S' if the delete Resources */
/* was Successful */
/* */
/* History : */
/* Sgidugu 09/04/2002 Initial implementation */
/* =============================================================== */
PROCEDURE delete_resources
( p_api_version IN NUMBER := 1
, p_init_msg_list IN BOOLEAN := TRUE
, p_commit IN BOOLEAN := FALSE
, p_resources IN cr_rsrc_mst.resources%TYPE
, x_message_count OUT NOCOPY NUMBER
, x_message_list OUT NOCOPY VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
) IS
CURSOR Cur_resources IS
SELECT count(1)
FROM cr_rsrc_mst
where resources = p_resources;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RESOURCES';
resource_delete_failure EXCEPTION;
SAVEPOINT delete_resources;
gmd_debug.log_initialize('DeleteResourcePub');
GMD_DEBUG.PUT_LINE('Resource to be deleted Does Not Exist ');
RAISE resource_delete_failure;
delete from cr_rsrc_mst_tl
where resources = p_resources;
delete from cr_rsrc_mst_b
where resources = p_resources;
gmd_debug.put_line('Resource was deleted successfully');
WHEN resource_delete_failure OR invalid_version THEN
ROLLBACK TO SAVEPOINT delete_resources;
ROLLBACK TO SAVEPOINT delete_resources;
END delete_resources;