The following lines contain the word 'select', 'insert', 'update' or 'delete':
| PROCEDURE Delete_Pos_Service_Package |
+===========================================================================*/
--
-- The API deletes a service package related information for a position. This
-- API is called from 'Modify Position Worksheet' Form Module.
--
PROCEDURE Delete_Pos_Service_Package
(
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE ,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
p_return_status OUT NOCOPY VARCHAR2 ,
p_msg_count OUT NOCOPY NUMBER ,
p_msg_data OUT NOCOPY VARCHAR2 ,
--
p_worksheet_id IN NUMBER ,
p_service_package_id IN NUMBER
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Pos_Service_Package';
SAVEPOINT Delete_Pos_Service_Package_Pvt ;
DELETE psb_ws_fte_lines
WHERE service_package_id = p_service_package_id ;
DELETE psb_ws_element_lines
WHERE service_package_id = p_service_package_id ;
DELETE psb_ws_lines
WHERE account_line_id IN
(
SELECT account_line_id
FROM psb_ws_account_lines
WHERE service_package_id = p_service_package_id
) ;
DELETE psb_ws_account_lines
WHERE service_package_id = p_service_package_id ;
ROLLBACK TO Delete_Pos_Service_Package_Pvt ;
ROLLBACK TO Delete_Pos_Service_Package_Pvt ;
ROLLBACK TO Delete_Pos_Service_Package_Pvt ;
END Delete_Pos_Service_Package ;