The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_audit_header
(p_overall_status in varchar2
,p_transaction_info in hxc_timecard.transaction_info
,p_messages in out nocopy hxc_message_table_type
,p_transaction_id out nocopy hxc_transactions.transaction_id%type
) is
cursor c_transaction_sequence is
select hxc_transactions_s.nextval from dual;
select deposit_process_id
into l_deposit_process_id
from hxc_deposit_processes
where name = 'OTL Deposit Process';
insert into hxc_transactions
(transaction_id
,transaction_date
,type
,transaction_process_id
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login
,status
,data_set_id
) values
(l_transaction_id
,sysdate
,'DEPOSIT'
,l_deposit_process_id
,null
,sysdate
,null
,sysdate
,null
,p_overall_status
,l_data_set_id
);
End insert_audit_header;
Procedure insert_audit_details
(p_transaction_info in out nocopy hxc_timecard.transaction_info
,p_messages in out nocopy hxc_message_table_type
,p_transaction_id in hxc_transactions.transaction_id%type
) is
l_index NUMBER;
select hxc_transaction_details_s.nextval from dual;
insert into hxc_transaction_details
(transaction_detail_id
,time_building_block_id
,transaction_id
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login
,time_building_block_ovn
,status
,exception_description
,data_set_id
) values
(l_transaction_detail_id
,p_transaction_info(l_index).time_building_block_id
,p_transaction_id
,null
,sysdate
,null
,sysdate
,null
,p_transaction_info(l_index).object_version_number
,p_transaction_info(l_index).status
,p_transaction_info(l_index).exception_desc
,p_transaction_info(l_index).data_set_id
);
End insert_audit_details;
insert_audit_header
(find_overall_status(p_transaction_info)
,p_transaction_info
,p_messages
,l_transaction
);
insert_audit_details
(p_transaction_info
,p_messages
,l_transaction
);
-- Override status for deleted building blocks. These should always be passed to
-- recipient applications for processing once deleted.
IF ( fnd_date.canonical_to_date(( p_blocks(l_blk_ind).date_to )) = hr_general.end_of_time )
THEN
l_status := p_blocks(l_blk_ind).approval_status;
-- insert row
INSERT INTO hxc_latest_details (
resource_id,
time_building_block_id,
object_version_number,
approval_status,
start_time,
stop_time,
application_set_id,
last_update_date,
comment_text,
resource_type )
VALUES (
p_blocks(l_blk_ind).resource_id,
p_blocks(l_blk_ind).time_building_block_id,
p_blocks(l_blk_ind).object_version_number,
l_status,
hxc_timecard_block_utils.date_value(
p_blocks(l_day_blocks(p_blocks(l_blk_ind).parent_building_block_id)).start_time),
hxc_timecard_block_utils.date_value(
p_blocks(l_day_blocks(p_blocks(l_blk_ind).parent_building_block_id)).stop_time),
p_blocks(l_blk_ind).application_set_id,
sysdate,
p_blocks(l_blk_ind).comment_text,
p_blocks(l_blk_ind).resource_type );
-- update row
UPDATE hxc_latest_details
SET object_version_number = p_blocks(l_blk_ind).object_version_number,
approval_status = l_status,
application_set_id = p_blocks(l_blk_ind).application_set_id,
last_update_date = sysdate,
comment_text = p_blocks(l_blk_ind).comment_text,
resource_type = p_blocks(l_blk_ind).resource_type
WHERE time_building_block_id = p_blocks(l_blk_ind).time_building_block_id;
-- nothing to update, insert
INSERT INTO hxc_latest_details (
resource_id,
time_building_block_id,
object_version_number,
approval_status,
start_time,
stop_time,
application_set_id,
last_update_date,
comment_text,
resource_type )
VALUES (
p_blocks(l_blk_ind).resource_id,
p_blocks(l_blk_ind).time_building_block_id,
p_blocks(l_blk_ind).object_version_number,
l_status,
hxc_timecard_block_utils.date_value(
p_blocks(l_day_blocks(p_blocks(l_blk_ind).parent_building_block_id)).start_time),
hxc_timecard_block_utils.date_value(
p_blocks(l_day_blocks(p_blocks(l_blk_ind).parent_building_block_id)).stop_time),
p_blocks(l_blk_ind).application_set_id,
sysdate,
p_blocks(l_blk_ind).comment_text,
p_blocks(l_blk_ind).resource_type );