1 package body OKE_PARTY_MERGE_PKG as
2 /* $Header: OKEVPMGB.pls 115.5 2002/11/21 20:48:46 syho ship $ */
3
4
5
6 --
7 -- Procedure: pool_party_merge
8 --
9 -- Description: This routine takes care of the party merge for OKE_POOL_PARTIES table
10 --
11
12 PROCEDURE pool_party_merge(p_merge_name IN VARCHAR2 ,
13 p_from_id IN NUMBER ,
14 p_to_id OUT NOCOPY NUMBER ,
15 p_from_fk_id IN NUMBER ,
16 p_to_fk_id IN NUMBER ,
17 p_parent_entity_name IN VARCHAR2 ,
18 p_batch_id IN NUMBER ,
19 p_batch_party_id IN NUMBER ,
20 x_return_status OUT NOCOPY VARCHAR2
21 ) is
22 BEGIN
23
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25
26 -- If parent has not changed
27 IF (p_from_fk_id = p_to_fk_id) THEN
28 p_to_id := p_from_id;
29 return;
30 END IF;
31
32 -- update OKE_POOL_PARTIES for the merge
33 UPDATE OKE_POOL_PARTIES
34 SET party_id = p_to_fk_id ,
35 last_update_date = hz_utility_pub.last_update_date ,
36 last_updated_by = hz_utility_pub.user_id ,
37 last_update_login = hz_utility_pub.last_update_login
38 WHERE party_id = p_from_fk_id;
39
40 EXCEPTION
41 WHEN OTHERS THEN
42 FND_MESSAGE.SET_NAME('OKE', 'OKE_CONTRACTS_UNEXPECTED_ERROR');
43 FND_MESSAGE.SET_TOKEN('SQLcode', SQLCODE);
44 FND_MESSAGE.SET_TOKEN('SQLerrm', SQLERRM);
45 FND_MSG_PUB.add;
46 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
47
48 END pool_party_merge;
49
50
51 --
52 -- Procedure: funding_party_merge
53 --
54 -- Description: This routine takes care of the party merge for OKE_K_FUNDING_SOURCES table
55 --
56
57 PROCEDURE funding_party_merge(p_merge_name IN VARCHAR2 ,
58 p_from_id IN NUMBER ,
59 p_to_id OUT NOCOPY NUMBER ,
60 p_from_fk_id IN NUMBER ,
61 p_to_fk_id IN NUMBER ,
62 p_parent_entity_name IN VARCHAR2 ,
63 p_batch_id IN NUMBER ,
64 p_batch_party_id IN NUMBER ,
65 x_return_status OUT NOCOPY VARCHAR2
66 ) is
67 BEGIN
68
69 x_return_status := FND_API.G_RET_STS_SUCCESS;
70
71 -- If parent has not changed
72 IF (p_from_fk_id = p_to_fk_id) THEN
73 p_to_id := p_from_id;
74 return;
75 END IF;
76
77 -- update OKE_K_FUNDING_SOURCES for the merge
78 UPDATE OKE_K_FUNDING_SOURCES
79 SET k_party_id = p_to_fk_id ,
80 last_update_date = hz_utility_pub.last_update_date ,
81 last_updated_by = hz_utility_pub.user_id ,
82 last_update_login = hz_utility_pub.last_update_login
83 WHERE k_party_id = p_from_fk_id;
84
85 EXCEPTION
86 WHEN OTHERS THEN
87 FND_MESSAGE.SET_NAME('OKE', 'OKE_CONTRACTS_UNEXPECTED_ERROR');
88 FND_MESSAGE.SET_TOKEN('SQLcode', SQLCODE);
89 FND_MESSAGE.SET_TOKEN('SQLerrm', SQLERRM);
90 FND_MSG_PUB.add;
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92
93 END funding_party_merge;
94
95
96 --
97 -- Procedure: funding_party_h_merge
98 --
99 -- Description: This routine takes care of the party merge for OKE_K_FUNDING_SOURCES_H table
100 --
101
102 PROCEDURE funding_party_h_merge(p_merge_name IN VARCHAR2 ,
103 p_from_id IN NUMBER ,
104 p_to_id OUT NOCOPY NUMBER ,
105 p_from_fk_id IN NUMBER ,
106 p_to_fk_id IN NUMBER ,
107 p_parent_entity_name IN VARCHAR2 ,
108 p_batch_id IN NUMBER ,
109 p_batch_party_id IN NUMBER ,
110 x_return_status OUT NOCOPY VARCHAR2
111 ) is
112 BEGIN
113
114 x_return_status := FND_API.G_RET_STS_SUCCESS;
115
116 -- If parent has not changed
117 IF (p_from_fk_id = p_to_fk_id) THEN
118 p_to_id := p_from_id;
119 return;
120 END IF;
121
122 -- update OKE_K_FUNDING_SOURCES_H for the merge
123 UPDATE OKE_K_FUNDING_SOURCES_H
124 SET k_party_id = p_to_fk_id ,
125 last_update_date = hz_utility_pub.last_update_date ,
126 last_updated_by = hz_utility_pub.user_id ,
127 last_update_login = hz_utility_pub.last_update_login
128 WHERE k_party_id = p_from_fk_id;
129
130 EXCEPTION
131 WHEN OTHERS THEN
132 FND_MESSAGE.SET_NAME('OKE', 'OKE_CONTRACTS_UNEXPECTED_ERROR');
133 FND_MESSAGE.SET_TOKEN('SQLcode', SQLCODE);
134 FND_MESSAGE.SET_TOKEN('SQLerrm', SQLERRM);
135 FND_MSG_PUB.add;
136 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137
138 END funding_party_h_merge;
139
140
141 end OKE_PARTY_MERGE_PKG;