The following lines contain the word 'select', 'insert', 'update' or 'delete':
| PROCEDURE Insert_Row |
+=======================================================================*/
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,
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_row_id IN OUT NOCOPY VARCHAR2,
p_gl_budget_id IN OUT NOCOPY NUMBER,
p_gl_budget_set_id IN NUMBER,
p_gl_budget_version_id IN NUMBER,
p_start_period IN VARCHAR2,
p_end_period IN VARCHAR2,
p_start_date IN DATE,
p_end_date IN DATE,
p_dual_posting_type IN VARCHAR2,
p_last_update_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_created_by IN NUMBER,
p_creation_date IN DATE
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
SELECT rowid
FROM psb_gl_budgets
WHERE gl_budget_id = p_gl_budget_id ;
SELECT psb_gl_budgets_s.NEXTVAL
FROM dual ;
SAVEPOINT Insert_Row_Pvt ;
INSERT INTO psb_gl_budgets
(
gl_budget_id ,
gl_budget_set_id ,
gl_budget_version_id ,
start_period ,
end_period ,
start_date ,
end_date ,
dual_posting_type ,
last_update_date ,
last_updated_by ,
last_update_login ,
created_by ,
creation_date )
VALUES
(
p_gl_budget_id ,
p_gl_budget_set_id ,
p_gl_budget_version_id ,
p_start_period ,
p_end_period ,
p_start_date ,
p_end_date ,
p_dual_posting_type ,
p_last_update_date ,
p_last_updated_by ,
p_last_update_login ,
p_created_by ,
p_creation_date
);
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
END Insert_Row;
SELECT *
FROM psb_gl_budgets
WHERE rowid = p_row_id
FOR UPDATE OF gl_budget_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
| PROCEDURE Update_Row |
+==========================================================================*/
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,
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_row_id IN VARCHAR2,
p_gl_budget_set_id IN NUMBER,
p_gl_budget_version_id IN NUMBER,
p_start_period IN VARCHAR2,
p_end_period IN VARCHAR2,
p_start_date IN DATE,
p_end_date IN DATE,
p_dual_posting_type IN VARCHAR2,
p_last_update_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
SAVEPOINT Update_Row_Pvt ;
UPDATE psb_gl_budgets
SET gl_budget_set_id = p_gl_budget_set_id ,
gl_budget_version_id = p_gl_budget_version_id ,
start_period = p_start_period ,
end_period = p_end_period ,
start_date = p_start_date ,
end_date = p_end_date ,
dual_posting_type = p_dual_posting_type ,
last_update_date = p_last_update_date ,
last_updated_by = p_last_updated_by ,
last_update_login = p_last_update_login
WHERE rowid = p_row_id;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
END Update_Row;
| PROCEDURE Delete_Row |
+==========================================================================*/
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,
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_row_id IN VARCHAR2
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
SAVEPOINT Delete_Row_Pvt ;
SELECT gl_budget_id INTO l_gl_budget_id
FROM psb_gl_budgets
WHERE rowid = p_row_id ;
PSB_Set_Relation_PVT.Delete_Entity_Relation
(
p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_return_status => l_return_status,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
--
p_entity_type => 'GBS' ,
p_entity_id => l_gl_budget_id
);
DELETE psb_gl_budgets
WHERE rowid = p_row_id;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
END Delete_Row;
SELECT '1'
FROM psb_set_relations rel ,
psb_budget_accounts pba
WHERE rel.gl_budget_id = c_gl_budget_id
AND pba.account_position_set_id = rel.account_position_set_id
AND pba.code_combination_id = c_code_combination_id ;
SELECT '1' INTO l_tmp
FROM psb_gl_budget_sets
WHERE gl_budget_set_id = p_gl_budget_set_id ;
SELECT gl_budget_id ,
gl_budget_version_id
FROM psb_gl_budgets
WHERE gl_budget_set_id = p_gl_budget_set_id
AND p_start_date BETWEEN start_date AND end_date
AND NVL( dual_posting_type, 'P' ) = l_dual_posting_type
)
LOOP
-- pd('Budget id : ' || l_gl_budget_rec.gl_budget_id ) ;