The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_operation VARCHAR2(30); -- values will be Insert, Update or Delete
G_operation := 'INSERT'; -- Bug 2659435
log_msg('Calling private API to insert record.');
log_msg('1 row inserted');
PROCEDURE Update_Allocation_Definition
(
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_allocation_definition_rec IN Allocation_Definition_Rec_Type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Allocation_Definition' ;
SAVEPOINT Update_Alloc_Definition_PUB;
log_msg('Beginning Update Allocation Definition process.');
G_operation := 'UPDATE'; -- Bug 2659435
SELECT count(1)
INTO l_cnt
FROM gl_aloc_bas
WHERE alloc_id = l_alloc_def_rec.alloc_id
AND line_no = l_alloc_def_rec.line_no ;
IF l_alloc_def_rec.delete_mark = 1 THEN
add_header_to_error_stack(l_alloc_def_rec); -- Bug 2659435
GMF_AllocationDefinition_PVT.Update_Allocation_Definition
( p_api_version => 3.0
, p_init_msg_list => FND_API.G_FALSE
, p_commit => FND_API.G_FALSE
, x_return_status => l_return_status
, x_msg_count => l_count
, x_msg_data => l_data
, p_allocation_definition_rec => l_alloc_def_rec
, p_user_id => l_user_id
);
ROLLBACK TO Update_Alloc_Definition_PUB;
ROLLBACK TO Update_Alloc_Definition_PUB;
ROLLBACK TO Update_Alloc_Definition_PUB;
END Update_Allocation_Definition ;
PROCEDURE Delete_Allocation_Definition
(
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_allocation_definition_rec IN Allocation_Definition_Rec_Type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Allocation_Definition' ;
SAVEPOINT Delete_Alloc_Definition_PUB;
log_msg('Beginning Delete Allocation Definition process.');
SELECT count(1)
INTO l_cnt
FROM gl_aloc_bas
WHERE alloc_id = l_alloc_def_rec.alloc_id
AND line_no = l_alloc_def_rec.line_no ;
l_alloc_def_rec.delete_mark := 1;
log_msg('deleteing record for alloc_id : ' ||
l_alloc_def_rec.alloc_id ||' line_no : ' || l_alloc_def_rec.line_no);
GMF_AllocationDefinition_PVT.Update_Allocation_Definition
( p_api_version => 3.0
, p_init_msg_list => FND_API.G_FALSE
, p_commit => FND_API.G_FALSE
, x_return_status => l_return_status
, x_msg_count => l_count
, x_msg_data => l_data
, p_allocation_definition_rec => l_alloc_def_rec
, p_user_id => l_user_id
);
log_msg(l_no_rows_del || ' rows deleted.');
ROLLBACK TO Delete_Alloc_Definition_PUB;
ROLLBACK TO Delete_Alloc_Definition_PUB;
ROLLBACK TO Delete_Alloc_Definition_PUB;
END Delete_Allocation_Definition ;
l_delete_mark NUMBER ; -- := FND_API.G_MISS_NUM ;
l_delete_mark := p_alloc_def_rec.delete_mark ;
log_msg('delete_mark : ' || l_delete_mark);
SELECT legal_entity_id
INTO l_legal_entity_id
FROM gl_aloc_mst
WHERE alloc_id = l_alloc_id ;
G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
ELSIF (l_basis_account_key = FND_API.G_MISS_CHAR AND G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
ELSIF (l_fixed_percent = FND_API.G_MISS_NUM AND G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
IF (l_delete_mark <> FND_API.G_MISS_NUM) AND
(l_delete_mark IS NOT NULL) THEN
IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
log_msg('validating delete_mark :' || l_delete_mark);
IF l_delete_mark NOT IN (0,1) THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
FND_MESSAGE.SET_TOKEN('DELETE_MARK',l_delete_mark);
ELSIF (l_delete_mark = FND_API.G_MISS_NUM AND G_operation = 'UPDATE') OR
(G_operation = 'INSERT') THEN
add_header_to_error_stack(p_alloc_def_rec); -- Bug 2659435
FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
x_alloc_def_rec.delete_mark := l_delete_mark ;
SELECT distinct alloc_method
FROM gl_aloc_bas
WHERE alloc_id = p_alloc_id
AND delete_mark = 0;
SELECT nvl(sum(fixed_percent),0)
FROM gl_aloc_bas
WHERE alloc_id = p_alloc_id
AND delete_mark = 0
AND alloc_method = 1 ;
SELECT count(1)
FROM gl_aloc_bas
WHERE alloc_id = p_alloc_id
AND line_no = p_line_no ;