1 PACKAGE BODY IGS_PARTY_MERGE AS
2 /* $Header: IGSPE06B.pls 115.6 2003/05/30 07:52:22 npalanis noship $ */
3
4 PROCEDURE MERGE_PARTY (
5 P_Entity_Name IN VARCHAR2,
6 P_From_Id IN NUMBER,
7 P_To_Id IN OUT NOCOPY NUMBER,
8 P_From_FK_Id IN NUMBER,
9 P_To_FK_Id IN NUMBER,
10 P_Parent_Entity_Name IN VARCHAR2,
11 P_Batch_Id IN NUMBER,
12 P_Batch_Party_Id IN NUMBER,
13 X_Return_Status IN OUT NOCOPY VARCHAR2
14 ) AS
15 /**********************************************************
16 Created By : kpadiyar
17
18 Date Created By : 10-AUG-2001
19
20 Purpose : For Merge
21
22 Know limitations, enhancements or remarks :
23
24 Change History
25
26 Who When What
27 (reverse chronological order - newest change first)
28 ***************************************************************/
29 BEGIN
30 IF p_from_FK_id = p_to_FK_id THEN
31 p_to_id := p_from_id;
32 return;
33 ELSE
34 HZ_PARTY_MERGE.veto_delete;
35 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
36 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
37 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
38 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
39 END IF;
40 END merge_party;
41
42 PROCEDURE MERGE_PERSON_PROFILE (
43 P_Entity_Name IN VARCHAR2,
44 P_From_Id IN NUMBER,
45 P_To_Id IN OUT NOCOPY NUMBER,
46 P_From_FK_Id IN NUMBER,
47 P_To_FK_Id IN NUMBER,
48 P_Parent_Entity_Name IN VARCHAR2,
49 P_Batch_Id IN NUMBER,
50 P_Batch_Party_Id IN NUMBER,
51 X_Return_Status IN OUT NOCOPY VARCHAR2
52 ) AS
53 /**********************************************************
54 Created By : kpadiyar
55
56 Date Created By : 10-AUG-2001
57
58 Purpose : For Merge
59
60 Know limitations, enhancements or remarks :
61
62 Change History
63
64 Who When What
65 (reverse chronological order - newest change first)
66 ***************************************************************/
67 BEGIN
68 IF p_from_FK_id = p_to_FK_id THEN
69 p_to_id := p_from_id;
70 return;
71 ELSE
72 HZ_PARTY_MERGE.veto_delete;
73 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
74 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
75 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
76 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
77 END IF;
78 END merge_person_profile;
79
80 PROCEDURE MERGE_EDUCATION (
81 P_Entity_Name IN VARCHAR2,
82 P_From_Id IN NUMBER,
83 P_To_Id IN OUT NOCOPY NUMBER,
84 P_From_FK_Id IN NUMBER,
85 P_To_FK_Id IN NUMBER,
86 P_Parent_Entity_Name IN VARCHAR2,
87 P_Batch_Id IN NUMBER,
88 P_Batch_Party_Id IN NUMBER,
89 X_Return_Status IN OUT NOCOPY VARCHAR2
90 ) AS
91 /**********************************************************
92 Created By : kpadiyar
93
94 Date Created By : 10-AUG-2001
95
96 Purpose : For Merge
97
98 Know limitations, enhancements or remarks :
99
100 Change History
101
102 Who When What
103 (reverse chronological order - newest change first)
104 ***************************************************************/
105 BEGIN
106 IF p_from_FK_id = p_to_FK_id THEN
107 p_to_id := p_from_id;
108 return;
109 ELSE
110 HZ_PARTY_MERGE.veto_delete;
111 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
112 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
113 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
114 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
115 END IF;
116 END merge_education;
117
118 PROCEDURE MERGE_ACAD_HIST (
119 P_Entity_Name IN VARCHAR2,
120 P_From_Id IN NUMBER,
121 P_To_Id IN OUT NOCOPY NUMBER,
122 P_From_FK_Id IN NUMBER,
123 P_To_FK_Id IN NUMBER,
124 P_Parent_Entity_Name IN VARCHAR2,
125 P_Batch_Id IN NUMBER,
126 P_Batch_Party_Id IN NUMBER,
127 X_Return_Status IN OUT NOCOPY VARCHAR2
128 ) AS
129 /**********************************************************
130 Created By : kpadiyar
131
132 Date Created By : 10-AUG-2001
133
134 Purpose : For Merge
135
136 Know limitations, enhancements or remarks :
137
138 Change History
139
140 Who When What
141 (reverse chronological order - newest change first)
142 ***************************************************************/
143 BEGIN
144 IF p_from_FK_id = p_to_FK_id THEN
145 p_to_id := p_from_id;
146 return;
147 ELSE
148 HZ_PARTY_MERGE.veto_delete;
149 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
150 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
151 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
152 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
153 END IF;
154 END merge_acad_hist;
155
156 PROCEDURE MERGE_PARTY_REL (
157 P_Entity_Name IN VARCHAR2,
158 P_From_Id IN NUMBER,
159 P_To_Id IN OUT NOCOPY NUMBER,
160 P_From_FK_Id IN NUMBER,
161 P_To_FK_Id IN NUMBER,
162 P_Parent_Entity_Name IN VARCHAR2,
163 P_Batch_Id IN NUMBER,
164 P_Batch_Party_Id IN NUMBER,
165 X_Return_Status IN OUT NOCOPY VARCHAR2
166 ) AS
167 /**********************************************************
168 Created By : kpadiyar
169
170 Date Created By : 10-AUG-2001
171
172 Purpose : For Merge
173
174 Know limitations, enhancements or remarks :
175
176 Change History
177
178 Who When What
179 (reverse chronological order - newest change first)
180 ***************************************************************/
181 BEGIN
182 IF p_from_FK_id = p_to_FK_id THEN
183 p_to_id := p_from_id;
184 return;
185 ELSE
186 HZ_PARTY_MERGE.veto_delete;
187 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
188 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
189 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
190 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
191 END IF;
192 END merge_party_rel;
193
194 PROCEDURE MERGE_EMP_DTL (
195 P_Entity_Name IN VARCHAR2,
196 P_From_Id IN NUMBER,
197 P_To_Id IN OUT NOCOPY NUMBER,
198 P_From_FK_Id IN NUMBER,
199 P_To_FK_Id IN NUMBER,
200 P_Parent_Entity_Name IN VARCHAR2,
201 P_Batch_Id IN NUMBER,
202 P_Batch_Party_Id IN NUMBER,
203 X_Return_Status IN OUT NOCOPY VARCHAR2
204 ) AS
205 /**********************************************************
206 Created By : kpadiyar
207
208 Date Created By : 10-AUG-2001
209
210 Purpose : For Merge
211
212 Know limitations, enhancements or remarks :
213
214 Change History
215
216 Who When What
217 (reverse chronological order - newest change first)
218 ***************************************************************/
219 BEGIN
220 IF p_from_FK_id = p_to_FK_id THEN
221 p_to_id := p_from_id;
222 return;
223 ELSE
224 HZ_PARTY_MERGE.veto_delete;
225 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
226 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
227 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
228 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
229 END IF;
230 END merge_emp_dtl;
231
232 PROCEDURE MERGE_EXTRACURR_ACT (
233 P_Entity_Name IN VARCHAR2,
234 P_From_Id IN NUMBER,
235 P_To_Id IN OUT NOCOPY NUMBER,
236 P_From_FK_Id IN NUMBER,
237 P_To_FK_Id IN NUMBER,
238 P_Parent_Entity_Name IN VARCHAR2,
239 P_Batch_Id IN NUMBER,
240 P_Batch_Party_Id IN NUMBER,
241 X_Return_Status IN OUT NOCOPY VARCHAR2
242 ) AS
243 /**********************************************************
244 Created By : kpadiyar
245
246 Date Created By : 10-AUG-2001
247
248 Purpose : For Merge
249
250 Know limitations, enhancements or remarks :
251
252 Change History
253
254 Who When What
255 (reverse chronological order - newest change first)
256 ***************************************************************/
257 BEGIN
258 IF p_from_FK_id = p_to_FK_id THEN
259 p_to_id := p_from_id;
260 return;
261 ELSE
262 HZ_PARTY_MERGE.veto_delete;
263 FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARTY_MERGE_CANT_DELETE');
264 FND_MESSAGE.SET_TOKEN('P_FROM_ID',P_From_ID);
265 fnd_file.put_line(FND_FILE.LOG,FND_MESSAGE.GET);
266 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
267 END IF;
268 END merge_extracurr_act;
269 END igs_party_merge;