The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_cross_charge
(p_effective_date in date
,p_cross_charge_id in number
,p_object_version_number in out nocopy number
,p_business_group_id in number default hr_api.g_number
,p_gl_set_of_books_id in number default hr_api.g_number
,p_type in varchar2 default hr_api.g_varchar2
,p_from_to in varchar2 default hr_api.g_varchar2
,p_start_date_active in date default hr_api.g_date
,p_end_date_active in date default hr_api.g_date
,p_validate in boolean default false
) is
l_effective_date date;
l_proc varchar2(72) := g_package||'update_cross_charge';
savepoint update_cross_charges;
OTA_TCC_BK2.update_cross_charge_b
(p_effective_date => l_effective_date
,p_business_group_id => p_business_group_id
,p_gl_set_of_books_id => p_gl_set_of_books_id
,p_type => p_type
,p_from_to => p_from_to
,p_start_date_active => p_start_date_active
,p_end_date_active => p_end_date_active
,p_cross_charge_id => p_cross_charge_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'update_cross_charge_b'
,p_hook_type => 'BP'
);
OTA_TCC_BK2.update_cross_charge_a
(p_effective_date => l_effective_date
,p_business_group_id => p_business_group_id
,p_gl_set_of_books_id => p_gl_set_of_books_id
,p_type => p_type
,p_from_to => p_from_to
,p_start_date_active => p_start_date_active
,p_end_date_active => p_end_date_active
,p_cross_charge_id => p_cross_charge_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'update_cross_charge_a'
,p_hook_type => 'AP'
);
rollback to update_cross_charges;
rollback to update_cross_charges;
end update_cross_charge;