The following lines contain the word 'select', 'insert', 'update' or 'delete':
OPEN l_csr FOR SELECT AQH1.quote_header_id
FROM aso_quote_headers AQH1,
aso_quote_headers AQH2
WHERE AQH1.quote_number = AQH2.quote_number
AND AQH2.quote_header_id = p_quote_object_id
AND NOT EXISTS (SELECT 1
FROM aso_quote_related_objects
WHERE quote_object_type_code = 'HEADER'
AND quote_object_id = AQH1.quote_header_id
AND relationship_type_code = p_relationship_type_code);
OPEN l_csr FOR SELECT AQH1.quote_header_id
FROM aso_quote_headers AQH1,
aso_quote_headers AQH2
WHERE AQH1.quote_number = AQH2.quote_number
AND AQH2.quote_header_id = p_quote_object_id;
/* For delete.
*/
OPEN l_csr FOR SELECT related_object_id
FROM aso_quote_related_objects
WHERE relationship_type_code = (SELECT relationship_type_code
FROM aso_quote_related_objects
WHERE related_object_id = p_related_object_id)
AND quote_object_id IN (SELECT quote_header_id
FROM aso_quote_headers
WHERE quote_number = (SELECT quote_number
FROM aso_quote_headers
WHERE quote_header_id = (SELECT quote_object_id
FROM aso_quote_related_objects
WHERE related_object_id = p_related_object_id)));
SELECT COUNT(*)
INTO i
FROM aso_quote_related_objects
WHERE quote_object_type_code = p_quote_object_type_code
AND quote_object_id = p_quote_object_id
AND relationship_type_code = p_relationship_type_code;
PROCEDURE Delete_Relationship(
p_api_version IN NUMBER := 1.0 ,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
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_quote_object_type_code IN VARCHAR2 ,
p_quote_object_id IN NUMBER ,
p_object_type_code IN VARCHAR2 ,
p_object_id IN NUMBER ,
p_relationship_type_code IN VARCHAR2 ,
p_for_all_versions IN VARCHAR2
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Relationship';
SAVEPOINT Delete_Relationship_Pvt;
SELECT related_object_id
INTO l_related_obj_rec.related_object_id
FROM aso_quote_related_objects
WHERE quote_object_type_code = p_quote_object_type_code
AND quote_object_id = p_quote_object_id
AND object_type_code = p_object_type_code
AND object_id = p_object_id
AND relationship_type_code = p_relationship_type_code;
IBE_UTIL.DEBUG('Calling ASO_Rltship_Pub.Delete_Object_Relationship at'
|| TO_CHAR(SYSDATE, 'MM/DD/RRRR:HH24:MI:SS'));
ASO_Rltship_Pub.Delete_Object_Relationship(
p_api_version_number => p_api_version ,
p_init_msg_list => FND_API.G_TRUE ,
p_commit => FND_API.G_FALSE ,
p_validation_level => FND_API.G_VALID_LEVEL_NONE,
x_return_status => x_return_status ,
x_msg_count => x_msg_count ,
x_msg_data => x_msg_data ,
p_related_obj_rec => l_related_obj_tbl(i));
IBE_UTIL.DEBUG('Returned from ASO_Rltship_Pub.Delete_Object_Relationship at'
|| TO_CHAR(SYSDATE, 'MM/DD/RRRR:HH24:MI:SS'));
ROLLBACK TO Delete_Relationship_Pvt;
ROLLBACK TO Delete_Relationship_Pvt;
ROLLBACK TO Delete_Relationship_Pvt;
END Delete_Relationship;