[Home] [Help]
PACKAGE BODY: APPS.HR_IN_CONTACT_REL_API
Source
1 PACKAGE Body hr_in_contact_rel_api AS
2 /* $Header: pecrlini.pkb 120.0 2005/05/31 07:17 appldev noship $ */
3 g_package VARCHAR2(33) := 'hr_in_contact_rel_api.';
4 g_trace boolean ;
5
6 -- ----------------------------------------------------------------------------------
7 -- |---------------------------< create_in_contact >----------------------------------|
8 -- ----------------------------------------------------------------------------------
9 PROCEDURE create_in_contact
10 (p_validate IN BOOLEAN default false
11 ,p_start_date IN date
12 ,p_business_group_id IN NUMBER
13 ,p_person_id IN NUMBER
14 ,p_contact_person_id IN NUMBER default null
15 ,p_contact_type IN VARCHAR2
16 ,p_ctr_comments IN VARCHAR2 default null
17 ,p_primary_contact_flag IN VARCHAR2 default 'N'
18 ,p_date_start IN date default null
19 ,p_start_life_reason_id IN NUMBER default null
20 ,p_date_end IN date default null
21 ,p_end_life_reason_id IN NUMBER default null
22 ,p_rltd_per_rsds_w_dsgntr_flag IN VARCHAR2 default 'N'
23 ,p_personal_flag IN VARCHAR2 default 'N'
24 ,p_sequence_number IN NUMBER default null
25 ,p_cont_attribute_category IN VARCHAR2 default null
26 ,p_cont_attribute1 IN VARCHAR2 default null
27 ,p_cont_attribute2 IN VARCHAR2 default null
28 ,p_cont_attribute3 IN VARCHAR2 default null
29 ,p_cont_attribute4 IN VARCHAR2 default null
30 ,p_cont_attribute5 IN VARCHAR2 default null
31 ,p_cont_attribute6 IN VARCHAR2 default null
32 ,p_cont_attribute7 IN VARCHAR2 default null
33 ,p_cont_attribute8 IN VARCHAR2 default null
34 ,p_cont_attribute9 IN VARCHAR2 default null
35 ,p_cont_attribute10 IN VARCHAR2 default null
36 ,p_cont_attribute11 IN VARCHAR2 default null
37 ,p_cont_attribute12 IN VARCHAR2 default null
38 ,p_cont_attribute13 IN VARCHAR2 default null
39 ,p_cont_attribute14 IN VARCHAR2 default null
40 ,p_cont_attribute15 IN VARCHAR2 default null
41 ,p_cont_attribute16 IN VARCHAR2 default null
42 ,p_cont_attribute17 IN VARCHAR2 default null
43 ,p_cont_attribute18 IN VARCHAR2 default null
44 ,p_cont_attribute19 IN VARCHAR2 default null
45 ,p_cont_attribute20 IN VARCHAR2 default null
46 ,p_guardian_name IN VARCHAR2 default null
47 ,p_guardian_birth_date IN VARCHAR2 default null
48 ,p_guardian_address IN VARCHAR2 default null
49 ,p_guardian_telephone IN VARCHAR2 default null
50 ,p_third_party_pay_flag IN VARCHAR2 default 'N'
51 ,p_bondholder_flag IN VARCHAR2 default 'N'
52 ,p_dependent_flag IN VARCHAR2 default 'N'
53 ,p_beneficiary_flag IN VARCHAR2 default 'N'
54 ,p_last_name IN VARCHAR2 default null
55 ,p_sex IN VARCHAR2 default null
56 ,p_person_type_id IN NUMBER default null
57 ,p_per_comments IN VARCHAR2 default null
58 ,p_date_of_birth IN date default null
59 ,p_email_address IN VARCHAR2 default null
60 ,p_first_name IN VARCHAR2 default null
61 ,p_alias_name IN VARCHAR2 default null -- Bugfix 3762728
62 ,p_marital_status IN VARCHAR2 default null
63 ,p_middle_names IN VARCHAR2 default null
64 ,p_nationality IN VARCHAR2 default null
65 ,p_national_identifier IN VARCHAR2 default null
66 ,p_previous_last_name IN VARCHAR2 default null
67 ,p_registered_disabled_flag IN VARCHAR2 default null
68 ,p_title IN VARCHAR2 default null
69 ,p_work_telephone IN VARCHAR2 default null
70 ,p_attribute_category IN VARCHAR2 default null
71 ,p_attribute1 IN VARCHAR2 default null
72 ,p_attribute2 IN VARCHAR2 default null
73 ,p_attribute3 IN VARCHAR2 default null
74 ,p_attribute4 IN VARCHAR2 default null
75 ,p_attribute5 IN VARCHAR2 default null
76 ,p_attribute6 IN VARCHAR2 default null
77 ,p_attribute7 IN VARCHAR2 default null
78 ,p_attribute8 IN VARCHAR2 default null
79 ,p_attribute9 IN VARCHAR2 default null
80 ,p_attribute10 IN VARCHAR2 default null
81 ,p_attribute11 IN VARCHAR2 default null
82 ,p_attribute12 IN VARCHAR2 default null
83 ,p_attribute13 IN VARCHAR2 default null
84 ,p_attribute14 IN VARCHAR2 default null
85 ,p_attribute15 IN VARCHAR2 default null
86 ,p_attribute16 IN VARCHAR2 default null
87 ,p_attribute17 IN VARCHAR2 default null
88 ,p_attribute18 IN VARCHAR2 default null
89 ,p_attribute19 IN VARCHAR2 default null
90 ,p_attribute20 IN VARCHAR2 default null
91 ,p_attribute21 IN VARCHAR2 default null
92 ,p_attribute22 IN VARCHAR2 default null
93 ,p_attribute23 IN VARCHAR2 default null
94 ,p_attribute24 IN VARCHAR2 default null
95 ,p_attribute25 IN VARCHAR2 default null
96 ,p_attribute26 IN VARCHAR2 default null
97 ,p_attribute27 IN VARCHAR2 default null
98 ,p_attribute28 IN VARCHAR2 default null
99 ,p_attribute29 IN VARCHAR2 default null
100 ,p_attribute30 IN VARCHAR2 default null
101 ,p_resident_status IN VARCHAR2 DEFAULT null
102 ,p_correspondence_language IN VARCHAR2 default null
103 ,p_honors IN VARCHAR2 default null
104 ,p_pre_name_adjunct IN VARCHAR2 default null
105 ,p_suffix IN VARCHAR2 default null
106 ,p_create_mirror_flag IN VARCHAR2 default 'N'
107 ,p_mirror_type IN VARCHAR2 default null
108 ,p_mirror_cont_attribute_cat IN VARCHAR2 default null
109 ,p_mirror_cont_attribute1 IN VARCHAR2 default null
110 ,p_mirror_cont_attribute2 IN VARCHAR2 default null
111 ,p_mirror_cont_attribute3 IN VARCHAR2 default null
112 ,p_mirror_cont_attribute4 IN VARCHAR2 default null
113 ,p_mirror_cont_attribute5 IN VARCHAR2 default null
114 ,p_mirror_cont_attribute6 IN VARCHAR2 default null
115 ,p_mirror_cont_attribute7 IN VARCHAR2 default null
116 ,p_mirror_cont_attribute8 IN VARCHAR2 default null
117 ,p_mirror_cont_attribute9 IN VARCHAR2 default null
118 ,p_mirror_cont_attribute10 IN VARCHAR2 default null
119 ,p_mirror_cont_attribute11 IN VARCHAR2 default null
120 ,p_mirror_cont_attribute12 IN VARCHAR2 default null
121 ,p_mirror_cont_attribute13 IN VARCHAR2 default null
122 ,p_mirror_cont_attribute14 IN VARCHAR2 default null
123 ,p_mirror_cont_attribute15 IN VARCHAR2 default null
124 ,p_mirror_cont_attribute16 IN VARCHAR2 default null
125 ,p_mirror_cont_attribute17 IN VARCHAR2 default null
126 ,p_mirror_cont_attribute18 IN VARCHAR2 default null
127 ,p_mirror_cont_attribute19 IN VARCHAR2 default null
128 ,p_mirror_cont_attribute20 IN VARCHAR2 default null
129 ,p_contact_relationship_id OUT NOCOPY NUMBER
130 ,p_ctr_object_version_number OUT NOCOPY NUMBER
131 ,p_per_person_id OUT NOCOPY NUMBER
132 ,p_per_object_version_number OUT NOCOPY NUMBER
133 ,p_per_effective_start_date OUT NOCOPY DATE
134 ,p_per_effective_end_date OUT NOCOPY DATE
135 ,p_full_name OUT NOCOPY VARCHAR2
136 ,p_per_comment_id OUT NOCOPY NUMBER
137 ,p_name_combination_warning OUT NOCOPY BOOLEAN
138 ,p_orig_hire_warning OUT NOCOPY BOOLEAN
139 )
140 AS
141 --
142 -- Declare cursors and local variables
143 --
144 l_proc VARCHAR2(72);
145 BEGIN
146 l_proc := g_package||'create_in_contact';
147 g_trace := hr_utility.debug_enabled ;
148
149 IF g_trace THEN
150 hr_utility.set_location('Entering: '||l_proc, 10);
151 END IF ;
152
153 IF hr_general2.IS_BG(p_business_group_id, 'IN') = false THEN
154 hr_utility.set_message(800, 'HR_7208_API_BUS_GRP_INVALID');
155 hr_utility.raise_error;
156 END IF;
157
158 IF g_trace THEN
159 hr_utility.set_location(l_proc, 20);
160 END IF ;
161 --
162 --
163 --
164 hr_contact_rel_api.create_contact
165 (p_validate => p_validate
166 ,p_person_id => p_person_id
167 ,p_start_date => p_start_date
168 ,p_business_group_id => p_business_group_id
169 ,p_contact_person_id => p_contact_person_id
170 ,p_contact_type => p_contact_type
171 ,p_ctr_comments => p_ctr_comments
172 ,p_primary_contact_flag => p_primary_contact_flag
173 ,p_date_start => p_date_start
174 ,p_start_life_reason_id => p_start_life_reason_id
175 ,p_date_end => p_date_end
176 ,p_end_life_reason_id => p_end_life_reason_id
177 ,p_rltd_per_rsds_w_dsgntr_flag => p_rltd_per_rsds_w_dsgntr_flag
178 ,p_personal_flag => p_personal_flag
179 ,p_sequence_number => p_sequence_number
180 ,p_cont_attribute_category => p_cont_attribute_category
181 ,p_cont_attribute1 => p_cont_attribute1
182 ,p_cont_attribute2 => p_cont_attribute2
183 ,p_cont_attribute3 => p_cont_attribute3
184 ,p_cont_attribute4 => p_cont_attribute4
185 ,p_cont_attribute5 => p_cont_attribute5
186 ,p_cont_attribute6 => p_cont_attribute6
187 ,p_cont_attribute7 => p_cont_attribute7
188 ,p_cont_attribute8 => p_cont_attribute8
189 ,p_cont_attribute9 => p_cont_attribute9
190 ,p_cont_attribute10 => p_cont_attribute10
191 ,p_cont_attribute11 => p_cont_attribute11
192 ,p_cont_attribute12 => p_cont_attribute12
193 ,p_cont_attribute13 => p_cont_attribute13
194 ,p_cont_attribute14 => p_cont_attribute14
195 ,p_cont_attribute15 => p_cont_attribute15
196 ,p_cont_attribute16 => p_cont_attribute16
197 ,p_cont_attribute17 => p_cont_attribute17
198 ,p_cont_attribute18 => p_cont_attribute18
199 ,p_cont_attribute19 => p_cont_attribute19
200 ,p_cont_attribute20 => p_cont_attribute20
201 ,p_cont_information_category => 'IN'
202 ,p_cont_information13 => p_guardian_name
203 ,p_cont_information14 => p_guardian_birth_date
204 ,p_cont_information15 => p_guardian_address
205 ,p_cont_information17 => p_guardian_telephone
206 ,p_third_party_pay_flag => p_third_party_pay_flag
207 ,p_bondholder_flag => p_bondholder_flag
208 ,p_dependent_flag => p_dependent_flag
209 ,p_beneficiary_flag => p_beneficiary_flag
210 ,p_sex => p_sex
211 ,p_last_name => p_last_name
212 ,p_person_type_id => p_person_type_id
213 ,p_per_comments => p_per_comments
214 ,p_date_of_birth => p_date_of_birth
215 ,p_email_address => p_email_address
216 ,p_first_name => p_first_name
217 ,p_known_as => p_alias_name -- Bugfix 3762728
218 ,p_marital_status => p_marital_status
219 ,p_middle_names => p_middle_names
220 ,p_nationality => p_nationality
221 ,p_national_identifier => p_national_identifier
222 ,p_previous_last_name => p_previous_last_name
223 ,p_registered_disabled_flag => p_registered_disabled_flag
224 ,p_title => p_title
225 ,p_work_telephone => p_work_telephone
226 ,p_attribute_category => p_attribute_category
227 ,p_attribute1 => p_attribute1
228 ,p_attribute2 => p_attribute2
229 ,p_attribute3 => p_attribute3
230 ,p_attribute4 => p_attribute4
231 ,p_attribute5 => p_attribute5
232 ,p_attribute6 => p_attribute6
233 ,p_attribute7 => p_attribute7
234 ,p_attribute8 => p_attribute8
235 ,p_attribute9 => p_attribute9
236 ,p_attribute10 => p_attribute10
237 ,p_attribute11 => p_attribute11
238 ,p_attribute12 => p_attribute12
239 ,p_attribute13 => p_attribute13
240 ,p_attribute14 => p_attribute14
241 ,p_attribute15 => p_attribute15
242 ,p_attribute16 => p_attribute16
243 ,p_attribute17 => p_attribute17
244 ,p_attribute18 => p_attribute18
245 ,p_attribute19 => p_attribute19
246 ,p_attribute20 => p_attribute20
247 ,p_attribute21 => p_attribute21
248 ,p_attribute22 => p_attribute22
249 ,p_attribute23 => p_attribute23
250 ,p_attribute24 => p_attribute24
251 ,p_attribute25 => p_attribute25
252 ,p_attribute26 => p_attribute26
253 ,p_attribute27 => p_attribute27
254 ,p_attribute28 => p_attribute28
255 ,p_attribute29 => p_attribute29
256 ,p_attribute30 => p_attribute30
257 ,p_per_information_category => 'IN'
258 ,p_per_information7 => p_resident_status
259 ,p_correspondence_language => p_correspondence_language
260 ,p_honors => p_honors
261 ,p_pre_name_adjunct => p_pre_name_adjunct
262 ,p_suffix => p_suffix
263 ,p_create_mirror_flag => p_create_mirror_flag
264 ,p_mirror_type => p_mirror_type
265 ,p_mirror_cont_attribute_cat => p_mirror_cont_attribute_cat
266 ,p_mirror_cont_attribute1 => p_mirror_cont_attribute1
267 ,p_mirror_cont_attribute2 => p_mirror_cont_attribute2
268 ,p_mirror_cont_attribute3 => p_mirror_cont_attribute3
269 ,p_mirror_cont_attribute4 => p_mirror_cont_attribute4
270 ,p_mirror_cont_attribute5 => p_mirror_cont_attribute5
271 ,p_mirror_cont_attribute6 => p_mirror_cont_attribute6
272 ,p_mirror_cont_attribute7 => p_mirror_cont_attribute7
273 ,p_mirror_cont_attribute8 => p_mirror_cont_attribute8
274 ,p_mirror_cont_attribute9 => p_mirror_cont_attribute9
275 ,p_mirror_cont_attribute10 => p_mirror_cont_attribute10
276 ,p_mirror_cont_attribute11 => p_mirror_cont_attribute11
277 ,p_mirror_cont_attribute12 => p_mirror_cont_attribute12
278 ,p_mirror_cont_attribute13 => p_mirror_cont_attribute13
279 ,p_mirror_cont_attribute14 => p_mirror_cont_attribute14
280 ,p_mirror_cont_attribute15 => p_mirror_cont_attribute15
281 ,p_mirror_cont_attribute16 => p_mirror_cont_attribute16
282 ,p_mirror_cont_attribute17 => p_mirror_cont_attribute17
283 ,p_mirror_cont_attribute18 => p_mirror_cont_attribute18
284 ,p_mirror_cont_attribute19 => p_mirror_cont_attribute19
285 ,p_mirror_cont_attribute20 => p_mirror_cont_attribute20
286 ,p_contact_relationship_id =>p_contact_relationship_id
287 ,p_ctr_object_version_number =>p_ctr_object_version_number
288 ,p_per_person_id =>p_per_person_id
289 ,p_per_object_version_number =>p_per_object_version_number
290 ,p_per_effective_start_date =>p_per_effective_start_date
291 ,p_per_effective_end_date =>p_per_effective_end_date
292 ,p_full_name =>p_full_name
293 ,p_per_comment_id =>p_per_comment_id
294 ,p_name_combination_warning =>p_name_combination_warning
295 ,p_orig_hire_warning =>p_orig_hire_warning );
296 if g_trace then
297 hr_utility.set_location('Leaving: '||l_proc, 30);
298 end if ;
299 END create_in_contact;
300
301 -- ----------------------------------------------------------------------------------
302 -- |----------------------< update_in_contact_relationship >--------------------------|
303 -- ----------------------------------------------------------------------------------
304
305 PROCEDURE update_in_contact_relationship
306 (p_validate IN BOOLEAN default false
307 ,p_effective_date IN DATE
308 ,p_contact_relationship_id IN NUMBER
309 ,p_contact_type IN VARCHAR2 default hr_api.g_varchar2
310 ,p_comments IN LONG default hr_api.g_varchar2
311 ,p_primary_contact_flag IN VARCHAR2 default hr_api.g_varchar2
312 ,p_third_party_pay_flag IN VARCHAR2 default hr_api.g_varchar2
313 ,p_bondholder_flag IN VARCHAR2 default hr_api.g_varchar2
314 ,p_date_start IN DATE default hr_api.g_date
315 ,p_start_life_reason_id IN NUMBER default hr_api.g_number
316 ,p_date_end IN DATE default hr_api.g_date
317 ,p_end_life_reason_id IN NUMBER default hr_api.g_number
318 ,p_rltd_per_rsds_w_dsgntr_flag IN VARCHAR2 default hr_api.g_varchar2
319 ,p_personal_flag IN VARCHAR2 default hr_api.g_varchar2
320 ,p_sequence_number IN NUMBER default hr_api.g_number
321 ,p_dependent_flag IN VARCHAR2 default hr_api.g_varchar2
322 ,p_beneficiary_flag IN VARCHAR2 default hr_api.g_varchar2
323 ,p_cont_attribute_category IN VARCHAR2 default hr_api.g_varchar2
324 ,p_cont_attribute1 IN VARCHAR2 default hr_api.g_varchar2
325 ,p_cont_attribute2 IN VARCHAR2 default hr_api.g_varchar2
326 ,p_cont_attribute3 IN VARCHAR2 default hr_api.g_varchar2
327 ,p_cont_attribute4 IN VARCHAR2 default hr_api.g_varchar2
328 ,p_cont_attribute5 IN VARCHAR2 default hr_api.g_varchar2
329 ,p_cont_attribute6 IN VARCHAR2 default hr_api.g_varchar2
330 ,p_cont_attribute7 IN VARCHAR2 default hr_api.g_varchar2
331 ,p_cont_attribute8 IN VARCHAR2 default hr_api.g_varchar2
332 ,p_cont_attribute9 IN VARCHAR2 default hr_api.g_varchar2
333 ,p_cont_attribute10 IN VARCHAR2 default hr_api.g_varchar2
334 ,p_cont_attribute11 IN VARCHAR2 default hr_api.g_varchar2
335 ,p_cont_attribute12 IN VARCHAR2 default hr_api.g_varchar2
336 ,p_cont_attribute13 IN VARCHAR2 default hr_api.g_varchar2
337 ,p_cont_attribute14 IN VARCHAR2 default hr_api.g_varchar2
338 ,p_cont_attribute15 IN VARCHAR2 default hr_api.g_varchar2
339 ,p_cont_attribute16 IN VARCHAR2 default hr_api.g_varchar2
340 ,p_cont_attribute17 IN VARCHAR2 default hr_api.g_varchar2
341 ,p_cont_attribute18 IN VARCHAR2 default hr_api.g_varchar2
342 ,p_cont_attribute19 IN VARCHAR2 default hr_api.g_varchar2
343 ,p_cont_attribute20 IN VARCHAR2 default hr_api.g_varchar2
344 ,p_guardian_name IN VARCHAR2 default hr_api.g_varchar2
345 ,p_guardian_birth_date IN VARCHAR2 default hr_api.g_varchar2
346 ,p_guardian_address IN VARCHAR2 default hr_api.g_varchar2
347 ,p_guardian_telephone IN VARCHAR2 default hr_api.g_varchar2
348 ,p_object_version_number IN OUT NOCOPY number
349 )
350 AS
351 --
352 -- Declare cursors and local variables
353 --
354 l_proc VARCHAR2(72);
355 BEGIN
356 l_proc := g_package||'update_in_contact_relationship';
357 g_trace := hr_utility.debug_enabled ;
358 if g_trace then
359 hr_utility.set_location('Entering: '||l_proc, 10);
360 end if ;
361 --
362 --
363 --
364 hr_contact_rel_api.update_contact_relationship(
365 p_effective_date => p_effective_date
366 ,p_contact_relationship_id => p_contact_relationship_id
367 ,p_contact_type => p_contact_type
368 ,p_comments => p_comments
369 ,p_primary_contact_flag => p_primary_contact_flag
370 ,p_third_party_pay_flag => p_third_party_pay_flag
371 ,p_bondholder_flag => p_bondholder_flag
372 ,p_date_start => trunc(p_date_start)
373 ,p_start_life_reason_id => p_start_life_reason_id
374 ,p_date_end => trunc(p_date_end)
375 ,p_end_life_reason_id => p_end_life_reason_id
376 ,p_rltd_per_rsds_w_dsgntr_flag => p_rltd_per_rsds_w_dsgntr_flag
377 ,p_personal_flag => p_personal_flag
378 ,p_sequence_number => p_sequence_number
379 ,p_dependent_flag => p_dependent_flag
380 ,p_beneficiary_flag => p_beneficiary_flag
381 ,p_cont_attribute_category => p_cont_attribute_category
382 ,p_cont_attribute1 => p_cont_attribute1
383 ,p_cont_attribute2 => p_cont_attribute2
384 ,p_cont_attribute3 => p_cont_attribute3
385 ,p_cont_attribute4 => p_cont_attribute4
386 ,p_cont_attribute5 => p_cont_attribute5
387 ,p_cont_attribute6 => p_cont_attribute6
388 ,p_cont_attribute7 => p_cont_attribute7
389 ,p_cont_attribute8 => p_cont_attribute8
390 ,p_cont_attribute9 => p_cont_attribute9
391 ,p_cont_attribute10 => p_cont_attribute10
392 ,p_cont_attribute11 => p_cont_attribute11
393 ,p_cont_attribute12 => p_cont_attribute12
394 ,p_cont_attribute13 => p_cont_attribute13
395 ,p_cont_attribute14 => p_cont_attribute14
396 ,p_cont_attribute15 => p_cont_attribute15
397 ,p_cont_attribute16 => p_cont_attribute16
398 ,p_cont_attribute17 => p_cont_attribute17
399 ,p_cont_attribute18 => p_cont_attribute18
400 ,p_cont_attribute19 => p_cont_attribute19
401 ,p_cont_attribute20 => p_cont_attribute20
402 ,p_cont_information_category => 'IN'
403 ,p_cont_information13 => p_guardian_name
404 ,p_cont_information14 => p_guardian_birth_date
405 ,p_cont_information15 => p_guardian_address
406 ,p_cont_information17 => p_guardian_telephone
407 ,p_object_version_number => p_object_version_number
408 );
409 if g_trace then
410 hr_utility.set_location('Leaving: '||l_proc, 20);
411 end if ;
412 END update_in_contact_relationship;
413 --
414 END hr_in_contact_rel_api;