[Home] [Help]
PACKAGE BODY: APPS.ISC_DBI_PARTY_MERGE_PKG
Source
1 PACKAGE BODY ISC_DBI_PARTY_MERGE_PKG AS
2 /* $Header: ISCHZMGB.pls 115.1 2004/02/24 18:44:27 scheung noship $ */
3
4
5 PROCEDURE ISC_BOOK_SUM2_F_M (
6 p_entity_name IN VARCHAR2,
7 p_from_id IN NUMBER,
8 x_to_id OUT NOCOPY NUMBER,
9 p_from_fk_id IN NUMBER,
10 p_to_fk_id IN NUMBER,
11 p_parent_entity_name IN VARCHAR2,
12 p_batch_id IN NUMBER,
13 p_batch_party_id IN NUMBER,
14 x_return_status OUT NOCOPY VARCHAR2)
15 IS
16
17 l_merge_reason_code VARCHAR2(30);
18
19 BEGIN
20 x_return_status := FND_API.G_RET_STS_SUCCESS;
21
22 SELECT merge_reason_code
23 INTO l_merge_reason_code
24 FROM hz_merge_batch
25 WHERE batch_id = p_batch_id;
26
27 IF l_merge_reason_code = 'DUPLICATE' THEN
28 NULL;
29 ELSE
30 NULL;
31 END IF;
32
33 IF p_from_fk_id = p_to_fk_id THEN
34 x_to_id := p_from_id;
35 RETURN;
36 END IF;
37
38 IF p_from_fk_id <> p_to_fk_id THEN
39
40 update isc_book_sum2_f
41 set customer_id = p_to_fk_id
42 where customer_id = p_from_fk_id;
43
44 update isc_book_sum2_f
45 set ship_to_party_id = p_to_fk_id
46 where ship_to_party_id = p_from_fk_id;
47
48 END IF;
49
50 EXCEPTION
51 WHEN others THEN
52 x_return_status := FND_API.G_RET_STS_ERROR;
53
54 END ISC_BOOK_SUM2_F_M;
55
56 PROCEDURE ISC_BOOK_SUM2_PDUE_F_M (
57 p_entity_name IN VARCHAR2,
58 p_from_id IN NUMBER,
59 x_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
68 l_merge_reason_code VARCHAR2(30);
69
70 BEGIN
71 x_return_status := FND_API.G_RET_STS_SUCCESS;
72
73 SELECT merge_reason_code
74 INTO l_merge_reason_code
75 FROM hz_merge_batch
76 WHERE batch_id = p_batch_id;
77
78 IF l_merge_reason_code = 'DUPLICATE' THEN
79 NULL;
80 ELSE
81 NULL;
82 END IF;
83
84 IF p_from_fk_id = p_to_fk_id THEN
85 x_to_id := p_from_id;
86 RETURN;
87 END IF;
88
89 IF p_from_fk_id <> p_to_fk_id THEN
90
91 update isc_book_sum2_pdue_f
92 set customer_id = p_to_fk_id
93 where customer_id = p_from_fk_id;
94
95 END IF;
96
97 EXCEPTION
98 WHEN others THEN
99 x_return_status := FND_API.G_RET_STS_ERROR;
100
101 END ISC_BOOK_SUM2_PDUE_F_M;
102
103 PROCEDURE ISC_BOOK_SUM2_PDUE2_F_M (
104 p_entity_name IN VARCHAR2,
105 p_from_id IN NUMBER,
106 x_to_id OUT NOCOPY NUMBER,
107 p_from_fk_id IN NUMBER,
108 p_to_fk_id IN NUMBER,
109 p_parent_entity_name IN VARCHAR2,
110 p_batch_id IN NUMBER,
111 p_batch_party_id IN NUMBER,
112 x_return_status OUT NOCOPY VARCHAR2)
113 IS
114
115 l_merge_reason_code VARCHAR2(30);
116
117 BEGIN
118 x_return_status := FND_API.G_RET_STS_SUCCESS;
119
120 SELECT merge_reason_code
121 INTO l_merge_reason_code
122 FROM hz_merge_batch
123 WHERE batch_id = p_batch_id;
124
125 IF l_merge_reason_code = 'DUPLICATE' THEN
126 NULL;
127 ELSE
128 NULL;
129 END IF;
130
131 IF p_from_fk_id = p_to_fk_id THEN
132 x_to_id := p_from_id;
133 RETURN;
134 END IF;
135
136 IF p_from_fk_id <> p_to_fk_id THEN
137
138 update isc_book_sum2_pdue2_f
139 set customer_id = p_to_fk_id
140 where customer_id = p_from_fk_id;
141
142 END IF;
143
144 EXCEPTION
145 WHEN others THEN
146 x_return_status := FND_API.G_RET_STS_ERROR;
147
148 END ISC_BOOK_SUM2_PDUE2_F_M;
149
150 PROCEDURE ISC_BOOK_SUM2_BKORD_F_M (
151 p_entity_name IN VARCHAR2,
152 p_from_id IN NUMBER,
153 x_to_id OUT NOCOPY NUMBER,
154 p_from_fk_id IN NUMBER,
155 p_to_fk_id IN NUMBER,
156 p_parent_entity_name IN VARCHAR2,
157 p_batch_id IN NUMBER,
158 p_batch_party_id IN NUMBER,
159 x_return_status OUT NOCOPY VARCHAR2)
160 IS
161
162 l_merge_reason_code VARCHAR2(30);
163
164 BEGIN
165 x_return_status := FND_API.G_RET_STS_SUCCESS;
166
167 SELECT merge_reason_code
168 INTO l_merge_reason_code
169 FROM hz_merge_batch
170 WHERE batch_id = p_batch_id;
171
172 IF l_merge_reason_code = 'DUPLICATE' THEN
173 NULL;
174 ELSE
175 NULL;
176 END IF;
177
178 IF p_from_fk_id = p_to_fk_id THEN
179 x_to_id := p_from_id;
180 RETURN;
181 END IF;
182
183 IF p_from_fk_id <> p_to_fk_id THEN
184
185 update isc_book_sum2_bkord_f
186 set customer_id = p_to_fk_id
187 where customer_id = p_from_fk_id;
188
189 END IF;
190
191 EXCEPTION
192 WHEN others THEN
193 x_return_status := FND_API.G_RET_STS_ERROR;
194
195 END ISC_BOOK_SUM2_BKORD_F_M;
196
197
198 END ISC_DBI_PARTY_MERGE_PKG;