The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_trxn_amts(p_transaction_type in varchar2 , p_bdgt_trnx_amount_id in number) is
/*
This is a private function which deletes Donor / Receiver Transaction Amount
for a given bdgt_trnx_amount_id
Transaction Type :
=================
DD - Donor Details
RD - Receiver Details
*/
cursor csr_bdgt_trnx_amt is
select reallocation_id, object_version_number
from pqh_bdgt_pool_realloctions
where reallocation_id = p_bdgt_trnx_amount_id
and transaction_type = p_transaction_type;
select nvl(count(reallocation_id),0)
from pqh_bdgt_pool_realloctions
where txn_detail_id in (select txn_detail_id
from pqh_bdgt_pool_realloctions
where reallocation_id = p_bdgt_trnx_amount_id
and transaction_type = 'RD');
select txn_detail_id, object_version_number
from pqh_bdgt_pool_realloctions
where reallocation_id = p_bdgt_trnx_amount_id
and transaction_type = 'RD';
select reallocation_id, object_version_number
from pqh_bdgt_pool_realloctions
where reallocation_id in ( select TXN_DETAIL_ID
from pqh_bdgt_pool_realloctions
where reallocation_id = p_bdgt_trnx_amount_id
and transaction_type = 'RD');
l_proc varchar2(72) := g_package ||'delete_trxn_amts';
If the Receiver has only one period then delete receiver and receiver period.
If the reciver has more than one receiver periods then delete only the given receiver period.
*/
hr_utility.set_location(' Entering:' || l_proc,10);
pqh_bdgt_pool_realloctions_api.delete_realloc_txn_period
(p_validate => false
,p_reallocation_period_id => l_bdgt_trnx_amount_id
,p_object_version_number => l_ovn
);
pqh_bdgt_pool_realloctions_api.delete_realloc_txn_dtl
( p_validate => false
,p_txn_detail_id => l_receiver_id
,p_object_version_number => l_receiver_ovn
);
END delete_trxn_amts;
PROCEDURE delete_trxn_dtls(p_transaction_type in varchar2 , p_bdgt_trnx_detail_id in number) is
/*
This is a private function which Deletes Donor / Receiver Transaction Details
for a given bdgt_trnx_detail_id
Transaction Type :
=================
D - Donor
R - Receiver
*/
cursor csr_donor_receiver_details is
select reallocation_id,transaction_type
from pqh_bdgt_pool_realloctions
where txn_detail_id = p_bdgt_trnx_detail_id;
select reallocation_id,object_version_number
from pqh_bdgt_pool_realloctions
where reallocation_id = p_bdgt_trnx_detail_id
and transaction_type = p_transaction_type;
l_proc varchar2(72) := g_package ||'delete_trxn_dtls';
/* Delete all Donor/Receiver Amount Details */
hr_utility.set_location(' l_bdgt_trnx_amt_id:' || l_bdgt_trnx_amt_id,15);
delete_trxn_amts
(p_transaction_type => l_transaction_type,
p_bdgt_trnx_amount_id => l_bdgt_trnx_amt_id);
/* Delete Donor/Receiver Details */
open csr_bdgt_trnx_dtl;
pqh_bdgt_pool_realloctions_api.delete_realloc_txn_dtl
( p_validate => false
,p_txn_detail_id => l_bdgt_trnx_detail_id
,p_object_version_number => l_ovn
);
END delete_trxn_dtls;
PROCEDURE delete_bgt_transaction (p_transaction_id in number) is
/*
This is a private function which Deletes Budget Transaction for
a given Budget Transaction Id
*/
cursor csr_bdgt_trnx_details is
select reallocation_id ,transaction_type
from pqh_bdgt_pool_realloctions
where pool_id = p_transaction_id;
select pool_id,object_version_number
from pqh_budget_pools
where pool_id = p_transaction_id;
l_proc varchar2(72) := g_package ||'delete_bgt_transaction';
delete_trxn_dtls
(p_transaction_type => l_transaction_type
,p_bdgt_trnx_detail_id => l_transaction_id );
pqh_budget_pools_api.delete_reallocation_txn
(p_validate => false
,p_transaction_id => l_transaction_id
,p_object_version_number => l_ovn
,p_effective_date => sysdate
);
END delete_bgt_transaction;
PROCEDURE delete_bgt_folder(p_folder_id in number) is
/*
This is a private function which Deletes Budget Transaction for a
given Budget Folder Id
*/
cursor csr_bdgt_transaction is
select pool_id
from pqh_budget_pools
where parent_pool_id = p_folder_id;
select pool_id,object_version_number
from pqh_budget_pools
where pool_id = p_folder_id;
SELECT process_log_id,object_version_number
FROM pqh_process_log
WHERE module_cd = 'BUDGET_REALLOCATION'
START WITH process_log_id = (SELECT process_log_id
FROM pqh_process_log
WHERE module_cd = 'BUDGET_REALLOCATION'
AND master_process_log_id IS NULL
AND txn_id = p_folder_id)
CONNECT BY master_process_log_id = PRIOR process_log_id
ORDER BY level DESC;
Select wf_transaction_category_id
From pqh_budget_pools
Where pool_id = p_folder_id;
l_proc varchar2(72) := g_package ||'delete_trxn_dtls';
delete_bgt_transaction
(p_transaction_id => l_transaction_id);
pqh_budget_pools_api.delete_reallocation_folder
(p_validate => false
,p_folder_id => l_folder_id
,p_object_version_number => l_ovn
,p_effective_date => sysdate
);
pqh_process_log_api.delete_process_log(p_process_log_id => plg.process_log_id
,p_object_version_number=> plg.object_version_number
,p_effective_date => sysdate);
hr_utility.set_location(' call to delete folder from inbox:' || l_proc,40);
END delete_bgt_folder;
PROCEDURE delete_reallocation_folder
(p_validate in number default hr_api.g_false_num
,p_folder_id in number
,p_object_version_number in number
,p_effective_date in date
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'delete_reallocation_folder';
savepoint delete_reallocation_folder_swi;
pqh_budget_pools_api.delete_reallocation_folder
(p_validate => l_validate
,p_folder_id => p_folder_id
,p_object_version_number => p_object_version_number
,p_effective_date => p_effective_date
);
rollback to delete_reallocation_folder_swi;
rollback to delete_reallocation_folder_swi;
end delete_reallocation_folder;
PROCEDURE delete_reallocation_txn
(p_validate in number default hr_api.g_false_num
,p_transaction_id in number
,p_object_version_number in number
,p_effective_date in date
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'delete_reallocation_txn';
savepoint delete_reallocation_txn_swi;
pqh_budget_pools_api.delete_reallocation_txn
(p_validate => l_validate
,p_transaction_id => p_transaction_id
,p_object_version_number => p_object_version_number
,p_effective_date => p_effective_date
);
rollback to delete_reallocation_txn_swi;
rollback to delete_reallocation_txn_swi;
end delete_reallocation_txn;
PROCEDURE update_reallocation_folder
(p_validate in number default hr_api.g_false_num
,p_effective_date in date
,p_folder_id in number
,p_name in varchar2 default hr_api.g_varchar2
,p_budget_version_id in number default hr_api.g_number
,p_budget_unit_id in number default hr_api.g_number
,p_entity_type in varchar2 default hr_api.g_varchar2
,p_approval_status in varchar2 default hr_api.g_varchar2
,p_object_version_number in out nocopy number
,p_business_group_id in number
,p_wf_transaction_category_id in number
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'update_reallocation_folder';
savepoint update_reallocation_folder_swi;
pqh_budget_pools_api.update_reallocation_folder
(p_validate => l_validate
,p_effective_date => p_effective_date
,p_folder_id => p_folder_id
,p_name => p_name
,p_budget_version_id => p_budget_version_id
,p_budget_unit_id => p_budget_unit_id
,p_entity_type => p_entity_type
,p_approval_status => p_approval_status
,p_object_version_number => p_object_version_number
,p_business_group_id => p_business_group_id
,p_wf_transaction_category_id => p_wf_transaction_category_id
);
rollback to update_reallocation_folder_swi;
rollback to update_reallocation_folder_swi;
end update_reallocation_folder;
PROCEDURE update_reallocation_txn
(p_validate in number default hr_api.g_false_num
,p_effective_date in date
,p_transaction_id in number
,p_name in varchar2 default hr_api.g_varchar2
,p_parent_folder_id in number default hr_api.g_number
,p_object_version_number in out nocopy number
,p_business_group_id in number default hr_api.g_number
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'update_reallocation_txn';
savepoint update_reallocation_txn_swi;
pqh_budget_pools_api.update_reallocation_txn
(p_validate => l_validate
,p_effective_date => p_effective_date
,p_transaction_id => p_transaction_id
,p_name => p_name
,p_parent_folder_id => p_parent_folder_id
,p_object_version_number => p_object_version_number
,p_business_group_id => p_business_group_id
);
rollback to update_reallocation_txn_swi;
rollback to update_reallocation_txn_swi;
end update_reallocation_txn;
PROCEDURE bgt_realloc_delete(p_node_type in varchar2, p_node_id in number)
is
/*
Node Type :
==========
F- Folder
T - Transaction
D - Donor
DD - Donor Details
R - Receiver
RD - Receiver Details
*/
l_proc varchar2(72) := g_package ||'bgt_realloc_delete';
delete_trxn_amts
( p_transaction_type => p_node_type
,p_bdgt_trnx_amount_id => p_node_id);
delete_trxn_dtls
(p_transaction_type => p_node_type
,p_bdgt_trnx_detail_id => p_node_id);
delete_bgt_transaction
(p_transaction_id => p_node_id);
delete_bgt_folder
(p_folder_id => p_node_id);
END bgt_realloc_delete;