PACKAGE BODY: APPS.PA_FP_PARTY_MERGE_PKG

Source

1 PACKAGE BODY Pa_Fp_Party_Merge_Pkg AS
2 /* $Header: PAFPPYMB.pls 120.0 2005/05/29 15:13:08 appldev noship $ */
3 procedure fp_merged_ctrl_party_merge(
4                         p_entity_name in varchar2,
5                         p_from_id in number,
6                         p_to_id in out nocopy number,
7                         p_from_fk_id in number,
8                         p_to_fk_id in number,
9                         p_parent_entity_name in varchar2,
10                         p_batch_id in number,
11                         p_batch_party_id in number,
12                         p_return_status in out nocopy varchar2) is
13 begin
14   p_return_status := FND_API.G_RET_STS_SUCCESS;
15 
16   if (p_from_fk_id <> p_to_fk_id) then
17 
18     update pa_fp_merged_ctrl_items
19     set included_by_person_id = p_to_fk_id,
20                                 last_update_date = hz_utility_pub.last_update_date,
21       			 	last_updated_by = hz_utility_pub.user_id,
22      			 	last_update_login = hz_utility_pub.last_update_login,
23                                 record_version_number=nvl(record_Version_number,0) +1
24     where included_by_person_id = p_from_fk_id;
25 
26 
27   end if;
28 
29 end fp_merged_ctrl_party_merge;
30 END Pa_Fp_Party_Merge_Pkg;