[Home] [Help]
50: -- Internal Table Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy per_ctr_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
61: -- Increment the object version
62: --
63: p_rec.object_version_number := p_rec.object_version_number + 1;
64: --
65: per_ctr_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the per_contact_relationships Row
68: --
69: update per_contact_relationships
130: beneficiary_flag = p_rec.beneficiary_flag,
131: object_version_number = p_rec.object_version_number
132: where contact_relationship_id = p_rec.contact_relationship_id;
133: --
134: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
135: --
136: hr_utility.set_location(' Leaving:'||l_proc, 10);
137: --
138: Exception
137: --
138: Exception
139: When hr_api.check_integrity_violated Then
140: -- A check constraint has been violated
141: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
142: per_ctr_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.parent_integrity_violated Then
145: -- Parent integrity has been violated
138: Exception
139: When hr_api.check_integrity_violated Then
140: -- A check constraint has been violated
141: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
142: per_ctr_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.parent_integrity_violated Then
145: -- Parent integrity has been violated
146: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
142: per_ctr_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.parent_integrity_violated Then
145: -- Parent integrity has been violated
146: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
147: per_ctr_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When hr_api.unique_integrity_violated Then
150: -- Unique integrity has been violated
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.parent_integrity_violated Then
145: -- Parent integrity has been violated
146: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
147: per_ctr_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When hr_api.unique_integrity_violated Then
150: -- Unique integrity has been violated
151: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
147: per_ctr_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When hr_api.unique_integrity_violated Then
150: -- Unique integrity has been violated
151: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
152: per_ctr_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When Others Then
155: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When hr_api.unique_integrity_violated Then
150: -- Unique integrity has been violated
151: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
152: per_ctr_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When Others Then
155: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
156: Raise;
151: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
152: per_ctr_shd.constraint_error
153: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154: When Others Then
155: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
156: Raise;
157: End update_dml;
158: --
159: -- ----------------------------------------------------------------------------
187: -- Internal Table Handler Use Only.
188: --
189: -- {End Of Comments}
190: -- ----------------------------------------------------------------------------
191: Procedure pre_update(p_rec in per_ctr_shd.g_rec_type) is
192: --
193: l_proc varchar2(72) := g_package||'pre_update';
194: --
195: Begin
229: -- Internal Table Handler Use Only.
230: --
231: -- {End Of Comments}
232: -- ----------------------------------------------------------------------------
233: Procedure post_update(p_rec in per_ctr_shd.g_rec_type,
234: p_effective_date in date) is
235: --
236: l_proc varchar2(72) := g_package||'post_update';
237: --
315: ,p_beneficiary_flag => p_rec.beneficiary_flag
316: ,p_object_version_number => p_rec.object_version_number
317: ,p_effective_date => p_effective_date
318: ,p_business_group_id_o
319: => per_ctr_shd.g_old_rec.business_group_id
320: ,p_person_id_o
321: => per_ctr_shd.g_old_rec.person_id
322: ,p_contact_person_id_o
323: => per_ctr_shd.g_old_rec.contact_person_id
317: ,p_effective_date => p_effective_date
318: ,p_business_group_id_o
319: => per_ctr_shd.g_old_rec.business_group_id
320: ,p_person_id_o
321: => per_ctr_shd.g_old_rec.person_id
322: ,p_contact_person_id_o
323: => per_ctr_shd.g_old_rec.contact_person_id
324: ,p_contact_type_o
325: => per_ctr_shd.g_old_rec.contact_type
319: => per_ctr_shd.g_old_rec.business_group_id
320: ,p_person_id_o
321: => per_ctr_shd.g_old_rec.person_id
322: ,p_contact_person_id_o
323: => per_ctr_shd.g_old_rec.contact_person_id
324: ,p_contact_type_o
325: => per_ctr_shd.g_old_rec.contact_type
326: ,p_comments_o
327: => per_ctr_shd.g_old_rec.comments
321: => per_ctr_shd.g_old_rec.person_id
322: ,p_contact_person_id_o
323: => per_ctr_shd.g_old_rec.contact_person_id
324: ,p_contact_type_o
325: => per_ctr_shd.g_old_rec.contact_type
326: ,p_comments_o
327: => per_ctr_shd.g_old_rec.comments
328: ,p_primary_contact_flag_o
329: => per_ctr_shd.g_old_rec.primary_contact_flag
323: => per_ctr_shd.g_old_rec.contact_person_id
324: ,p_contact_type_o
325: => per_ctr_shd.g_old_rec.contact_type
326: ,p_comments_o
327: => per_ctr_shd.g_old_rec.comments
328: ,p_primary_contact_flag_o
329: => per_ctr_shd.g_old_rec.primary_contact_flag
330: ,p_request_id_o
331: => per_ctr_shd.g_old_rec.request_id
325: => per_ctr_shd.g_old_rec.contact_type
326: ,p_comments_o
327: => per_ctr_shd.g_old_rec.comments
328: ,p_primary_contact_flag_o
329: => per_ctr_shd.g_old_rec.primary_contact_flag
330: ,p_request_id_o
331: => per_ctr_shd.g_old_rec.request_id
332: ,p_program_application_id_o
333: => per_ctr_shd.g_old_rec.program_application_id
327: => per_ctr_shd.g_old_rec.comments
328: ,p_primary_contact_flag_o
329: => per_ctr_shd.g_old_rec.primary_contact_flag
330: ,p_request_id_o
331: => per_ctr_shd.g_old_rec.request_id
332: ,p_program_application_id_o
333: => per_ctr_shd.g_old_rec.program_application_id
334: ,p_program_id_o
335: => per_ctr_shd.g_old_rec.program_id
329: => per_ctr_shd.g_old_rec.primary_contact_flag
330: ,p_request_id_o
331: => per_ctr_shd.g_old_rec.request_id
332: ,p_program_application_id_o
333: => per_ctr_shd.g_old_rec.program_application_id
334: ,p_program_id_o
335: => per_ctr_shd.g_old_rec.program_id
336: ,p_program_update_date_o
337: => per_ctr_shd.g_old_rec.program_update_date
331: => per_ctr_shd.g_old_rec.request_id
332: ,p_program_application_id_o
333: => per_ctr_shd.g_old_rec.program_application_id
334: ,p_program_id_o
335: => per_ctr_shd.g_old_rec.program_id
336: ,p_program_update_date_o
337: => per_ctr_shd.g_old_rec.program_update_date
338: ,p_date_start_o
339: => per_ctr_shd.g_old_rec.date_start
333: => per_ctr_shd.g_old_rec.program_application_id
334: ,p_program_id_o
335: => per_ctr_shd.g_old_rec.program_id
336: ,p_program_update_date_o
337: => per_ctr_shd.g_old_rec.program_update_date
338: ,p_date_start_o
339: => per_ctr_shd.g_old_rec.date_start
340: ,p_start_life_id_o
341: => per_ctr_shd.g_old_rec.start_life_reason_id
335: => per_ctr_shd.g_old_rec.program_id
336: ,p_program_update_date_o
337: => per_ctr_shd.g_old_rec.program_update_date
338: ,p_date_start_o
339: => per_ctr_shd.g_old_rec.date_start
340: ,p_start_life_id_o
341: => per_ctr_shd.g_old_rec.start_life_reason_id
342: ,p_date_end_o
343: => per_ctr_shd.g_old_rec.date_end
337: => per_ctr_shd.g_old_rec.program_update_date
338: ,p_date_start_o
339: => per_ctr_shd.g_old_rec.date_start
340: ,p_start_life_id_o
341: => per_ctr_shd.g_old_rec.start_life_reason_id
342: ,p_date_end_o
343: => per_ctr_shd.g_old_rec.date_end
344: ,p_end_life_id_o
345: => per_ctr_shd.g_old_rec.end_life_reason_id
339: => per_ctr_shd.g_old_rec.date_start
340: ,p_start_life_id_o
341: => per_ctr_shd.g_old_rec.start_life_reason_id
342: ,p_date_end_o
343: => per_ctr_shd.g_old_rec.date_end
344: ,p_end_life_id_o
345: => per_ctr_shd.g_old_rec.end_life_reason_id
346: ,p_rltd_per_dsgntr_flag_o
347: => per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag
341: => per_ctr_shd.g_old_rec.start_life_reason_id
342: ,p_date_end_o
343: => per_ctr_shd.g_old_rec.date_end
344: ,p_end_life_id_o
345: => per_ctr_shd.g_old_rec.end_life_reason_id
346: ,p_rltd_per_dsgntr_flag_o
347: => per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag
348: ,p_personal_flag_o
349: => per_ctr_shd.g_old_rec.personal_flag
343: => per_ctr_shd.g_old_rec.date_end
344: ,p_end_life_id_o
345: => per_ctr_shd.g_old_rec.end_life_reason_id
346: ,p_rltd_per_dsgntr_flag_o
347: => per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag
348: ,p_personal_flag_o
349: => per_ctr_shd.g_old_rec.personal_flag
350: ,p_sequence_number_o
351: => per_ctr_shd.g_old_rec.sequence_number
345: => per_ctr_shd.g_old_rec.end_life_reason_id
346: ,p_rltd_per_dsgntr_flag_o
347: => per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag
348: ,p_personal_flag_o
349: => per_ctr_shd.g_old_rec.personal_flag
350: ,p_sequence_number_o
351: => per_ctr_shd.g_old_rec.sequence_number
352: ,p_cont_attribute_category_o
353: => per_ctr_shd.g_old_rec.cont_attribute_category
347: => per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag
348: ,p_personal_flag_o
349: => per_ctr_shd.g_old_rec.personal_flag
350: ,p_sequence_number_o
351: => per_ctr_shd.g_old_rec.sequence_number
352: ,p_cont_attribute_category_o
353: => per_ctr_shd.g_old_rec.cont_attribute_category
354: ,p_cont_attribute1_o
355: => per_ctr_shd.g_old_rec.cont_attribute1
349: => per_ctr_shd.g_old_rec.personal_flag
350: ,p_sequence_number_o
351: => per_ctr_shd.g_old_rec.sequence_number
352: ,p_cont_attribute_category_o
353: => per_ctr_shd.g_old_rec.cont_attribute_category
354: ,p_cont_attribute1_o
355: => per_ctr_shd.g_old_rec.cont_attribute1
356: ,p_cont_attribute2_o
357: => per_ctr_shd.g_old_rec.cont_attribute2
351: => per_ctr_shd.g_old_rec.sequence_number
352: ,p_cont_attribute_category_o
353: => per_ctr_shd.g_old_rec.cont_attribute_category
354: ,p_cont_attribute1_o
355: => per_ctr_shd.g_old_rec.cont_attribute1
356: ,p_cont_attribute2_o
357: => per_ctr_shd.g_old_rec.cont_attribute2
358: ,p_cont_attribute3_o
359: => per_ctr_shd.g_old_rec.cont_attribute3
353: => per_ctr_shd.g_old_rec.cont_attribute_category
354: ,p_cont_attribute1_o
355: => per_ctr_shd.g_old_rec.cont_attribute1
356: ,p_cont_attribute2_o
357: => per_ctr_shd.g_old_rec.cont_attribute2
358: ,p_cont_attribute3_o
359: => per_ctr_shd.g_old_rec.cont_attribute3
360: ,p_cont_attribute4_o
361: => per_ctr_shd.g_old_rec.cont_attribute4
355: => per_ctr_shd.g_old_rec.cont_attribute1
356: ,p_cont_attribute2_o
357: => per_ctr_shd.g_old_rec.cont_attribute2
358: ,p_cont_attribute3_o
359: => per_ctr_shd.g_old_rec.cont_attribute3
360: ,p_cont_attribute4_o
361: => per_ctr_shd.g_old_rec.cont_attribute4
362: ,p_cont_attribute5_o
363: => per_ctr_shd.g_old_rec.cont_attribute5
357: => per_ctr_shd.g_old_rec.cont_attribute2
358: ,p_cont_attribute3_o
359: => per_ctr_shd.g_old_rec.cont_attribute3
360: ,p_cont_attribute4_o
361: => per_ctr_shd.g_old_rec.cont_attribute4
362: ,p_cont_attribute5_o
363: => per_ctr_shd.g_old_rec.cont_attribute5
364: ,p_cont_attribute6_o
365: => per_ctr_shd.g_old_rec.cont_attribute6
359: => per_ctr_shd.g_old_rec.cont_attribute3
360: ,p_cont_attribute4_o
361: => per_ctr_shd.g_old_rec.cont_attribute4
362: ,p_cont_attribute5_o
363: => per_ctr_shd.g_old_rec.cont_attribute5
364: ,p_cont_attribute6_o
365: => per_ctr_shd.g_old_rec.cont_attribute6
366: ,p_cont_attribute7_o
367: => per_ctr_shd.g_old_rec.cont_attribute7
361: => per_ctr_shd.g_old_rec.cont_attribute4
362: ,p_cont_attribute5_o
363: => per_ctr_shd.g_old_rec.cont_attribute5
364: ,p_cont_attribute6_o
365: => per_ctr_shd.g_old_rec.cont_attribute6
366: ,p_cont_attribute7_o
367: => per_ctr_shd.g_old_rec.cont_attribute7
368: ,p_cont_attribute8_o
369: => per_ctr_shd.g_old_rec.cont_attribute8
363: => per_ctr_shd.g_old_rec.cont_attribute5
364: ,p_cont_attribute6_o
365: => per_ctr_shd.g_old_rec.cont_attribute6
366: ,p_cont_attribute7_o
367: => per_ctr_shd.g_old_rec.cont_attribute7
368: ,p_cont_attribute8_o
369: => per_ctr_shd.g_old_rec.cont_attribute8
370: ,p_cont_attribute9_o
371: => per_ctr_shd.g_old_rec.cont_attribute9
365: => per_ctr_shd.g_old_rec.cont_attribute6
366: ,p_cont_attribute7_o
367: => per_ctr_shd.g_old_rec.cont_attribute7
368: ,p_cont_attribute8_o
369: => per_ctr_shd.g_old_rec.cont_attribute8
370: ,p_cont_attribute9_o
371: => per_ctr_shd.g_old_rec.cont_attribute9
372: ,p_cont_attribute10_o
373: => per_ctr_shd.g_old_rec.cont_attribute10
367: => per_ctr_shd.g_old_rec.cont_attribute7
368: ,p_cont_attribute8_o
369: => per_ctr_shd.g_old_rec.cont_attribute8
370: ,p_cont_attribute9_o
371: => per_ctr_shd.g_old_rec.cont_attribute9
372: ,p_cont_attribute10_o
373: => per_ctr_shd.g_old_rec.cont_attribute10
374: ,p_cont_attribute11_o
375: => per_ctr_shd.g_old_rec.cont_attribute11
369: => per_ctr_shd.g_old_rec.cont_attribute8
370: ,p_cont_attribute9_o
371: => per_ctr_shd.g_old_rec.cont_attribute9
372: ,p_cont_attribute10_o
373: => per_ctr_shd.g_old_rec.cont_attribute10
374: ,p_cont_attribute11_o
375: => per_ctr_shd.g_old_rec.cont_attribute11
376: ,p_cont_attribute12_o
377: => per_ctr_shd.g_old_rec.cont_attribute12
371: => per_ctr_shd.g_old_rec.cont_attribute9
372: ,p_cont_attribute10_o
373: => per_ctr_shd.g_old_rec.cont_attribute10
374: ,p_cont_attribute11_o
375: => per_ctr_shd.g_old_rec.cont_attribute11
376: ,p_cont_attribute12_o
377: => per_ctr_shd.g_old_rec.cont_attribute12
378: ,p_cont_attribute13_o
379: => per_ctr_shd.g_old_rec.cont_attribute13
373: => per_ctr_shd.g_old_rec.cont_attribute10
374: ,p_cont_attribute11_o
375: => per_ctr_shd.g_old_rec.cont_attribute11
376: ,p_cont_attribute12_o
377: => per_ctr_shd.g_old_rec.cont_attribute12
378: ,p_cont_attribute13_o
379: => per_ctr_shd.g_old_rec.cont_attribute13
380: ,p_cont_attribute14_o
381: => per_ctr_shd.g_old_rec.cont_attribute14
375: => per_ctr_shd.g_old_rec.cont_attribute11
376: ,p_cont_attribute12_o
377: => per_ctr_shd.g_old_rec.cont_attribute12
378: ,p_cont_attribute13_o
379: => per_ctr_shd.g_old_rec.cont_attribute13
380: ,p_cont_attribute14_o
381: => per_ctr_shd.g_old_rec.cont_attribute14
382: ,p_cont_attribute15_o
383: => per_ctr_shd.g_old_rec.cont_attribute15
377: => per_ctr_shd.g_old_rec.cont_attribute12
378: ,p_cont_attribute13_o
379: => per_ctr_shd.g_old_rec.cont_attribute13
380: ,p_cont_attribute14_o
381: => per_ctr_shd.g_old_rec.cont_attribute14
382: ,p_cont_attribute15_o
383: => per_ctr_shd.g_old_rec.cont_attribute15
384: ,p_cont_attribute16_o
385: => per_ctr_shd.g_old_rec.cont_attribute16
379: => per_ctr_shd.g_old_rec.cont_attribute13
380: ,p_cont_attribute14_o
381: => per_ctr_shd.g_old_rec.cont_attribute14
382: ,p_cont_attribute15_o
383: => per_ctr_shd.g_old_rec.cont_attribute15
384: ,p_cont_attribute16_o
385: => per_ctr_shd.g_old_rec.cont_attribute16
386: ,p_cont_attribute17_o
387: => per_ctr_shd.g_old_rec.cont_attribute17
381: => per_ctr_shd.g_old_rec.cont_attribute14
382: ,p_cont_attribute15_o
383: => per_ctr_shd.g_old_rec.cont_attribute15
384: ,p_cont_attribute16_o
385: => per_ctr_shd.g_old_rec.cont_attribute16
386: ,p_cont_attribute17_o
387: => per_ctr_shd.g_old_rec.cont_attribute17
388: ,p_cont_attribute18_o
389: => per_ctr_shd.g_old_rec.cont_attribute18
383: => per_ctr_shd.g_old_rec.cont_attribute15
384: ,p_cont_attribute16_o
385: => per_ctr_shd.g_old_rec.cont_attribute16
386: ,p_cont_attribute17_o
387: => per_ctr_shd.g_old_rec.cont_attribute17
388: ,p_cont_attribute18_o
389: => per_ctr_shd.g_old_rec.cont_attribute18
390: ,p_cont_attribute19_o
391: => per_ctr_shd.g_old_rec.cont_attribute19
385: => per_ctr_shd.g_old_rec.cont_attribute16
386: ,p_cont_attribute17_o
387: => per_ctr_shd.g_old_rec.cont_attribute17
388: ,p_cont_attribute18_o
389: => per_ctr_shd.g_old_rec.cont_attribute18
390: ,p_cont_attribute19_o
391: => per_ctr_shd.g_old_rec.cont_attribute19
392: ,p_cont_attribute20_o
393: => per_ctr_shd.g_old_rec.cont_attribute20
387: => per_ctr_shd.g_old_rec.cont_attribute17
388: ,p_cont_attribute18_o
389: => per_ctr_shd.g_old_rec.cont_attribute18
390: ,p_cont_attribute19_o
391: => per_ctr_shd.g_old_rec.cont_attribute19
392: ,p_cont_attribute20_o
393: => per_ctr_shd.g_old_rec.cont_attribute20
394: ,p_cont_information_category_o
395: => per_ctr_shd.g_old_rec.cont_information_category
389: => per_ctr_shd.g_old_rec.cont_attribute18
390: ,p_cont_attribute19_o
391: => per_ctr_shd.g_old_rec.cont_attribute19
392: ,p_cont_attribute20_o
393: => per_ctr_shd.g_old_rec.cont_attribute20
394: ,p_cont_information_category_o
395: => per_ctr_shd.g_old_rec.cont_information_category
396: ,p_cont_information1_o
397: => per_ctr_shd.g_old_rec.cont_information1
391: => per_ctr_shd.g_old_rec.cont_attribute19
392: ,p_cont_attribute20_o
393: => per_ctr_shd.g_old_rec.cont_attribute20
394: ,p_cont_information_category_o
395: => per_ctr_shd.g_old_rec.cont_information_category
396: ,p_cont_information1_o
397: => per_ctr_shd.g_old_rec.cont_information1
398: ,p_cont_information2_o
399: => per_ctr_shd.g_old_rec.cont_information2
393: => per_ctr_shd.g_old_rec.cont_attribute20
394: ,p_cont_information_category_o
395: => per_ctr_shd.g_old_rec.cont_information_category
396: ,p_cont_information1_o
397: => per_ctr_shd.g_old_rec.cont_information1
398: ,p_cont_information2_o
399: => per_ctr_shd.g_old_rec.cont_information2
400: ,p_cont_information3_o
401: => per_ctr_shd.g_old_rec.cont_information3
395: => per_ctr_shd.g_old_rec.cont_information_category
396: ,p_cont_information1_o
397: => per_ctr_shd.g_old_rec.cont_information1
398: ,p_cont_information2_o
399: => per_ctr_shd.g_old_rec.cont_information2
400: ,p_cont_information3_o
401: => per_ctr_shd.g_old_rec.cont_information3
402: ,p_cont_information4_o
403: => per_ctr_shd.g_old_rec.cont_information4
397: => per_ctr_shd.g_old_rec.cont_information1
398: ,p_cont_information2_o
399: => per_ctr_shd.g_old_rec.cont_information2
400: ,p_cont_information3_o
401: => per_ctr_shd.g_old_rec.cont_information3
402: ,p_cont_information4_o
403: => per_ctr_shd.g_old_rec.cont_information4
404: ,p_cont_information5_o
405: => per_ctr_shd.g_old_rec.cont_information5
399: => per_ctr_shd.g_old_rec.cont_information2
400: ,p_cont_information3_o
401: => per_ctr_shd.g_old_rec.cont_information3
402: ,p_cont_information4_o
403: => per_ctr_shd.g_old_rec.cont_information4
404: ,p_cont_information5_o
405: => per_ctr_shd.g_old_rec.cont_information5
406: ,p_cont_information6_o
407: => per_ctr_shd.g_old_rec.cont_information6
401: => per_ctr_shd.g_old_rec.cont_information3
402: ,p_cont_information4_o
403: => per_ctr_shd.g_old_rec.cont_information4
404: ,p_cont_information5_o
405: => per_ctr_shd.g_old_rec.cont_information5
406: ,p_cont_information6_o
407: => per_ctr_shd.g_old_rec.cont_information6
408: ,p_cont_information7_o
409: => per_ctr_shd.g_old_rec.cont_information7
403: => per_ctr_shd.g_old_rec.cont_information4
404: ,p_cont_information5_o
405: => per_ctr_shd.g_old_rec.cont_information5
406: ,p_cont_information6_o
407: => per_ctr_shd.g_old_rec.cont_information6
408: ,p_cont_information7_o
409: => per_ctr_shd.g_old_rec.cont_information7
410: ,p_cont_information8_o
411: => per_ctr_shd.g_old_rec.cont_information8
405: => per_ctr_shd.g_old_rec.cont_information5
406: ,p_cont_information6_o
407: => per_ctr_shd.g_old_rec.cont_information6
408: ,p_cont_information7_o
409: => per_ctr_shd.g_old_rec.cont_information7
410: ,p_cont_information8_o
411: => per_ctr_shd.g_old_rec.cont_information8
412: ,p_cont_information9_o
413: => per_ctr_shd.g_old_rec.cont_information9
407: => per_ctr_shd.g_old_rec.cont_information6
408: ,p_cont_information7_o
409: => per_ctr_shd.g_old_rec.cont_information7
410: ,p_cont_information8_o
411: => per_ctr_shd.g_old_rec.cont_information8
412: ,p_cont_information9_o
413: => per_ctr_shd.g_old_rec.cont_information9
414: ,p_cont_information10_o
415: => per_ctr_shd.g_old_rec.cont_information10
409: => per_ctr_shd.g_old_rec.cont_information7
410: ,p_cont_information8_o
411: => per_ctr_shd.g_old_rec.cont_information8
412: ,p_cont_information9_o
413: => per_ctr_shd.g_old_rec.cont_information9
414: ,p_cont_information10_o
415: => per_ctr_shd.g_old_rec.cont_information10
416: ,p_cont_information11_o
417: => per_ctr_shd.g_old_rec.cont_information11
411: => per_ctr_shd.g_old_rec.cont_information8
412: ,p_cont_information9_o
413: => per_ctr_shd.g_old_rec.cont_information9
414: ,p_cont_information10_o
415: => per_ctr_shd.g_old_rec.cont_information10
416: ,p_cont_information11_o
417: => per_ctr_shd.g_old_rec.cont_information11
418: ,p_cont_information12_o
419: => per_ctr_shd.g_old_rec.cont_information12
413: => per_ctr_shd.g_old_rec.cont_information9
414: ,p_cont_information10_o
415: => per_ctr_shd.g_old_rec.cont_information10
416: ,p_cont_information11_o
417: => per_ctr_shd.g_old_rec.cont_information11
418: ,p_cont_information12_o
419: => per_ctr_shd.g_old_rec.cont_information12
420: ,p_cont_information13_o
421: => per_ctr_shd.g_old_rec.cont_information13
415: => per_ctr_shd.g_old_rec.cont_information10
416: ,p_cont_information11_o
417: => per_ctr_shd.g_old_rec.cont_information11
418: ,p_cont_information12_o
419: => per_ctr_shd.g_old_rec.cont_information12
420: ,p_cont_information13_o
421: => per_ctr_shd.g_old_rec.cont_information13
422: ,p_cont_information14_o
423: => per_ctr_shd.g_old_rec.cont_information14
417: => per_ctr_shd.g_old_rec.cont_information11
418: ,p_cont_information12_o
419: => per_ctr_shd.g_old_rec.cont_information12
420: ,p_cont_information13_o
421: => per_ctr_shd.g_old_rec.cont_information13
422: ,p_cont_information14_o
423: => per_ctr_shd.g_old_rec.cont_information14
424: ,p_cont_information15_o
425: => per_ctr_shd.g_old_rec.cont_information15
419: => per_ctr_shd.g_old_rec.cont_information12
420: ,p_cont_information13_o
421: => per_ctr_shd.g_old_rec.cont_information13
422: ,p_cont_information14_o
423: => per_ctr_shd.g_old_rec.cont_information14
424: ,p_cont_information15_o
425: => per_ctr_shd.g_old_rec.cont_information15
426: ,p_cont_information16_o
427: => per_ctr_shd.g_old_rec.cont_information16
421: => per_ctr_shd.g_old_rec.cont_information13
422: ,p_cont_information14_o
423: => per_ctr_shd.g_old_rec.cont_information14
424: ,p_cont_information15_o
425: => per_ctr_shd.g_old_rec.cont_information15
426: ,p_cont_information16_o
427: => per_ctr_shd.g_old_rec.cont_information16
428: ,p_cont_information17_o
429: => per_ctr_shd.g_old_rec.cont_information17
423: => per_ctr_shd.g_old_rec.cont_information14
424: ,p_cont_information15_o
425: => per_ctr_shd.g_old_rec.cont_information15
426: ,p_cont_information16_o
427: => per_ctr_shd.g_old_rec.cont_information16
428: ,p_cont_information17_o
429: => per_ctr_shd.g_old_rec.cont_information17
430: ,p_cont_information18_o
431: => per_ctr_shd.g_old_rec.cont_information18
425: => per_ctr_shd.g_old_rec.cont_information15
426: ,p_cont_information16_o
427: => per_ctr_shd.g_old_rec.cont_information16
428: ,p_cont_information17_o
429: => per_ctr_shd.g_old_rec.cont_information17
430: ,p_cont_information18_o
431: => per_ctr_shd.g_old_rec.cont_information18
432: ,p_cont_information19_o
433: => per_ctr_shd.g_old_rec.cont_information19
427: => per_ctr_shd.g_old_rec.cont_information16
428: ,p_cont_information17_o
429: => per_ctr_shd.g_old_rec.cont_information17
430: ,p_cont_information18_o
431: => per_ctr_shd.g_old_rec.cont_information18
432: ,p_cont_information19_o
433: => per_ctr_shd.g_old_rec.cont_information19
434: ,p_cont_information20_o
435: => per_ctr_shd.g_old_rec.cont_information20
429: => per_ctr_shd.g_old_rec.cont_information17
430: ,p_cont_information18_o
431: => per_ctr_shd.g_old_rec.cont_information18
432: ,p_cont_information19_o
433: => per_ctr_shd.g_old_rec.cont_information19
434: ,p_cont_information20_o
435: => per_ctr_shd.g_old_rec.cont_information20
436: ,p_third_party_pay_flag_o
437: => per_ctr_shd.g_old_rec.third_party_pay_flag
431: => per_ctr_shd.g_old_rec.cont_information18
432: ,p_cont_information19_o
433: => per_ctr_shd.g_old_rec.cont_information19
434: ,p_cont_information20_o
435: => per_ctr_shd.g_old_rec.cont_information20
436: ,p_third_party_pay_flag_o
437: => per_ctr_shd.g_old_rec.third_party_pay_flag
438: ,p_bondholder_flag_o
439: => per_ctr_shd.g_old_rec.bondholder_flag
433: => per_ctr_shd.g_old_rec.cont_information19
434: ,p_cont_information20_o
435: => per_ctr_shd.g_old_rec.cont_information20
436: ,p_third_party_pay_flag_o
437: => per_ctr_shd.g_old_rec.third_party_pay_flag
438: ,p_bondholder_flag_o
439: => per_ctr_shd.g_old_rec.bondholder_flag
440: ,p_dependent_flag_o
441: => per_ctr_shd.g_old_rec.dependent_flag
435: => per_ctr_shd.g_old_rec.cont_information20
436: ,p_third_party_pay_flag_o
437: => per_ctr_shd.g_old_rec.third_party_pay_flag
438: ,p_bondholder_flag_o
439: => per_ctr_shd.g_old_rec.bondholder_flag
440: ,p_dependent_flag_o
441: => per_ctr_shd.g_old_rec.dependent_flag
442: ,p_beneficiary_flag_o
443: => per_ctr_shd.g_old_rec.beneficiary_flag
437: => per_ctr_shd.g_old_rec.third_party_pay_flag
438: ,p_bondholder_flag_o
439: => per_ctr_shd.g_old_rec.bondholder_flag
440: ,p_dependent_flag_o
441: => per_ctr_shd.g_old_rec.dependent_flag
442: ,p_beneficiary_flag_o
443: => per_ctr_shd.g_old_rec.beneficiary_flag
444: ,p_object_version_number_o
445: => per_ctr_shd.g_old_rec.object_version_number
439: => per_ctr_shd.g_old_rec.bondholder_flag
440: ,p_dependent_flag_o
441: => per_ctr_shd.g_old_rec.dependent_flag
442: ,p_beneficiary_flag_o
443: => per_ctr_shd.g_old_rec.beneficiary_flag
444: ,p_object_version_number_o
445: => per_ctr_shd.g_old_rec.object_version_number
446: );
447: exception
441: => per_ctr_shd.g_old_rec.dependent_flag
442: ,p_beneficiary_flag_o
443: => per_ctr_shd.g_old_rec.beneficiary_flag
444: ,p_object_version_number_o
445: => per_ctr_shd.g_old_rec.object_version_number
446: );
447: exception
448: when hr_api.cannot_find_prog_unit then
449: hr_api.cannot_find_prog_unit_error
453: end;
454: --
455: -- Start of Fix for WWBUG 1408379
456: --
457: l_old.person_id := per_ctr_shd.g_old_rec.person_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
454: --
455: -- Start of Fix for WWBUG 1408379
456: --
457: l_old.person_id := per_ctr_shd.g_old_rec.person_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
455: -- Start of Fix for WWBUG 1408379
456: --
457: l_old.person_id := per_ctr_shd.g_old_rec.person_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
456: --
457: l_old.person_id := per_ctr_shd.g_old_rec.person_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
457: l_old.person_id := per_ctr_shd.g_old_rec.person_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
458: l_old.contact_person_id := per_ctr_shd.g_old_rec.contact_person_id;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
459: l_old.business_group_id := per_ctr_shd.g_old_rec.business_group_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
467: l_old.contact_relationship_id := per_ctr_shd.g_old_rec.contact_relationship_id;
460: l_old.date_start := per_ctr_shd.g_old_rec.date_start;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
467: l_old.contact_relationship_id := per_ctr_shd.g_old_rec.contact_relationship_id;
468: l_new.person_id := p_rec.person_id;
461: l_old.date_end := per_ctr_shd.g_old_rec.date_end;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
467: l_old.contact_relationship_id := per_ctr_shd.g_old_rec.contact_relationship_id;
468: l_new.person_id := p_rec.person_id;
469: l_new.contact_person_id := p_rec.contact_person_id;
462: l_old.contact_type := per_ctr_shd.g_old_rec.contact_type;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
467: l_old.contact_relationship_id := per_ctr_shd.g_old_rec.contact_relationship_id;
468: l_new.person_id := p_rec.person_id;
469: l_new.contact_person_id := p_rec.contact_person_id;
470: l_new.business_group_id := p_rec.business_group_id;
463: l_old.personal_flag := per_ctr_shd.g_old_rec.personal_flag;
464: l_old.start_life_reason_id := per_ctr_shd.g_old_rec.start_life_reason_id;
465: l_old.end_life_reason_id := per_ctr_shd.g_old_rec.end_life_reason_id;
466: l_old.rltd_per_rsds_w_dsgntr_flag := per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
467: l_old.contact_relationship_id := per_ctr_shd.g_old_rec.contact_relationship_id;
468: l_new.person_id := p_rec.person_id;
469: l_new.contact_person_id := p_rec.contact_person_id;
470: l_new.business_group_id := p_rec.business_group_id;
471: l_new.date_start := p_rec.date_start;
532: -- Internal Table Handler Use Only.
533: --
534: -- {End Of Comments}
535: -- ----------------------------------------------------------------------------
536: Procedure convert_defs(p_rec in out nocopy per_ctr_shd.g_rec_type) is
537: --
538: l_proc varchar2(72) := g_package||'convert_defs';
539: --
540: Begin
547: -- is being used then we must set to the 'current' argument value.
548: --
549: If (p_rec.business_group_id = hr_api.g_number) then
550: p_rec.business_group_id :=
551: per_ctr_shd.g_old_rec.business_group_id;
552: End If;
553: If (p_rec.person_id = hr_api.g_number) then
554: p_rec.person_id :=
555: per_ctr_shd.g_old_rec.person_id;
551: per_ctr_shd.g_old_rec.business_group_id;
552: End If;
553: If (p_rec.person_id = hr_api.g_number) then
554: p_rec.person_id :=
555: per_ctr_shd.g_old_rec.person_id;
556: End If;
557: If (p_rec.contact_person_id = hr_api.g_number) then
558: p_rec.contact_person_id :=
559: per_ctr_shd.g_old_rec.contact_person_id;
555: per_ctr_shd.g_old_rec.person_id;
556: End If;
557: If (p_rec.contact_person_id = hr_api.g_number) then
558: p_rec.contact_person_id :=
559: per_ctr_shd.g_old_rec.contact_person_id;
560: End If;
561: If (p_rec.contact_type = hr_api.g_varchar2) then
562: p_rec.contact_type :=
563: per_ctr_shd.g_old_rec.contact_type;
559: per_ctr_shd.g_old_rec.contact_person_id;
560: End If;
561: If (p_rec.contact_type = hr_api.g_varchar2) then
562: p_rec.contact_type :=
563: per_ctr_shd.g_old_rec.contact_type;
564: End If;
565: If (p_rec.comments = hr_api.g_varchar2) then
566: p_rec.comments :=
567: per_ctr_shd.g_old_rec.comments;
563: per_ctr_shd.g_old_rec.contact_type;
564: End If;
565: If (p_rec.comments = hr_api.g_varchar2) then
566: p_rec.comments :=
567: per_ctr_shd.g_old_rec.comments;
568: End If;
569: If (p_rec.primary_contact_flag = hr_api.g_varchar2) then
570: p_rec.primary_contact_flag :=
571: per_ctr_shd.g_old_rec.primary_contact_flag;
567: per_ctr_shd.g_old_rec.comments;
568: End If;
569: If (p_rec.primary_contact_flag = hr_api.g_varchar2) then
570: p_rec.primary_contact_flag :=
571: per_ctr_shd.g_old_rec.primary_contact_flag;
572: End If;
573: If (p_rec.request_id = hr_api.g_number) then
574: p_rec.request_id :=
575: per_ctr_shd.g_old_rec.request_id;
571: per_ctr_shd.g_old_rec.primary_contact_flag;
572: End If;
573: If (p_rec.request_id = hr_api.g_number) then
574: p_rec.request_id :=
575: per_ctr_shd.g_old_rec.request_id;
576: End If;
577: If (p_rec.program_application_id = hr_api.g_number) then
578: p_rec.program_application_id :=
579: per_ctr_shd.g_old_rec.program_application_id;
575: per_ctr_shd.g_old_rec.request_id;
576: End If;
577: If (p_rec.program_application_id = hr_api.g_number) then
578: p_rec.program_application_id :=
579: per_ctr_shd.g_old_rec.program_application_id;
580: End If;
581: If (p_rec.program_id = hr_api.g_number) then
582: p_rec.program_id :=
583: per_ctr_shd.g_old_rec.program_id;
579: per_ctr_shd.g_old_rec.program_application_id;
580: End If;
581: If (p_rec.program_id = hr_api.g_number) then
582: p_rec.program_id :=
583: per_ctr_shd.g_old_rec.program_id;
584: End If;
585: If (p_rec.program_update_date = hr_api.g_date) then
586: p_rec.program_update_date :=
587: per_ctr_shd.g_old_rec.program_update_date;
583: per_ctr_shd.g_old_rec.program_id;
584: End If;
585: If (p_rec.program_update_date = hr_api.g_date) then
586: p_rec.program_update_date :=
587: per_ctr_shd.g_old_rec.program_update_date;
588: End If;
589: If (p_rec.date_start = hr_api.g_date) then
590: p_rec.date_start :=
591: per_ctr_shd.g_old_rec.date_start;
587: per_ctr_shd.g_old_rec.program_update_date;
588: End If;
589: If (p_rec.date_start = hr_api.g_date) then
590: p_rec.date_start :=
591: per_ctr_shd.g_old_rec.date_start;
592: End If;
593: If (p_rec.start_life_reason_id = hr_api.g_number) then
594: p_rec.start_life_reason_id :=
595: per_ctr_shd.g_old_rec.start_life_reason_id;
591: per_ctr_shd.g_old_rec.date_start;
592: End If;
593: If (p_rec.start_life_reason_id = hr_api.g_number) then
594: p_rec.start_life_reason_id :=
595: per_ctr_shd.g_old_rec.start_life_reason_id;
596: End If;
597: If (p_rec.date_end = hr_api.g_date) then
598: p_rec.date_end :=
599: per_ctr_shd.g_old_rec.date_end;
595: per_ctr_shd.g_old_rec.start_life_reason_id;
596: End If;
597: If (p_rec.date_end = hr_api.g_date) then
598: p_rec.date_end :=
599: per_ctr_shd.g_old_rec.date_end;
600: End If;
601: If (p_rec.end_life_reason_id = hr_api.g_number) then
602: p_rec.end_life_reason_id :=
603: per_ctr_shd.g_old_rec.end_life_reason_id;
599: per_ctr_shd.g_old_rec.date_end;
600: End If;
601: If (p_rec.end_life_reason_id = hr_api.g_number) then
602: p_rec.end_life_reason_id :=
603: per_ctr_shd.g_old_rec.end_life_reason_id;
604: End If;
605: If (p_rec.rltd_per_rsds_w_dsgntr_flag = hr_api.g_varchar2) then
606: p_rec.rltd_per_rsds_w_dsgntr_flag :=
607: per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
603: per_ctr_shd.g_old_rec.end_life_reason_id;
604: End If;
605: If (p_rec.rltd_per_rsds_w_dsgntr_flag = hr_api.g_varchar2) then
606: p_rec.rltd_per_rsds_w_dsgntr_flag :=
607: per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
608: End If;
609: If (p_rec.personal_flag = hr_api.g_varchar2) then
610: p_rec.personal_flag :=
611: per_ctr_shd.g_old_rec.personal_flag;
607: per_ctr_shd.g_old_rec.rltd_per_rsds_w_dsgntr_flag;
608: End If;
609: If (p_rec.personal_flag = hr_api.g_varchar2) then
610: p_rec.personal_flag :=
611: per_ctr_shd.g_old_rec.personal_flag;
612: End If;
613: If (p_rec.sequence_number = hr_api.g_number) then
614: p_rec.sequence_number :=
615: per_ctr_shd.g_old_rec.sequence_number;
611: per_ctr_shd.g_old_rec.personal_flag;
612: End If;
613: If (p_rec.sequence_number = hr_api.g_number) then
614: p_rec.sequence_number :=
615: per_ctr_shd.g_old_rec.sequence_number;
616: End If;
617: If (p_rec.cont_attribute_category = hr_api.g_varchar2) then
618: p_rec.cont_attribute_category :=
619: per_ctr_shd.g_old_rec.cont_attribute_category;
615: per_ctr_shd.g_old_rec.sequence_number;
616: End If;
617: If (p_rec.cont_attribute_category = hr_api.g_varchar2) then
618: p_rec.cont_attribute_category :=
619: per_ctr_shd.g_old_rec.cont_attribute_category;
620: End If;
621: If (p_rec.cont_attribute1 = hr_api.g_varchar2) then
622: p_rec.cont_attribute1 :=
623: per_ctr_shd.g_old_rec.cont_attribute1;
619: per_ctr_shd.g_old_rec.cont_attribute_category;
620: End If;
621: If (p_rec.cont_attribute1 = hr_api.g_varchar2) then
622: p_rec.cont_attribute1 :=
623: per_ctr_shd.g_old_rec.cont_attribute1;
624: End If;
625: If (p_rec.cont_attribute2 = hr_api.g_varchar2) then
626: p_rec.cont_attribute2 :=
627: per_ctr_shd.g_old_rec.cont_attribute2;
623: per_ctr_shd.g_old_rec.cont_attribute1;
624: End If;
625: If (p_rec.cont_attribute2 = hr_api.g_varchar2) then
626: p_rec.cont_attribute2 :=
627: per_ctr_shd.g_old_rec.cont_attribute2;
628: End If;
629: If (p_rec.cont_attribute3 = hr_api.g_varchar2) then
630: p_rec.cont_attribute3 :=
631: per_ctr_shd.g_old_rec.cont_attribute3;
627: per_ctr_shd.g_old_rec.cont_attribute2;
628: End If;
629: If (p_rec.cont_attribute3 = hr_api.g_varchar2) then
630: p_rec.cont_attribute3 :=
631: per_ctr_shd.g_old_rec.cont_attribute3;
632: End If;
633: If (p_rec.cont_attribute4 = hr_api.g_varchar2) then
634: p_rec.cont_attribute4 :=
635: per_ctr_shd.g_old_rec.cont_attribute4;
631: per_ctr_shd.g_old_rec.cont_attribute3;
632: End If;
633: If (p_rec.cont_attribute4 = hr_api.g_varchar2) then
634: p_rec.cont_attribute4 :=
635: per_ctr_shd.g_old_rec.cont_attribute4;
636: End If;
637: If (p_rec.cont_attribute5 = hr_api.g_varchar2) then
638: p_rec.cont_attribute5 :=
639: per_ctr_shd.g_old_rec.cont_attribute5;
635: per_ctr_shd.g_old_rec.cont_attribute4;
636: End If;
637: If (p_rec.cont_attribute5 = hr_api.g_varchar2) then
638: p_rec.cont_attribute5 :=
639: per_ctr_shd.g_old_rec.cont_attribute5;
640: End If;
641: If (p_rec.cont_attribute6 = hr_api.g_varchar2) then
642: p_rec.cont_attribute6 :=
643: per_ctr_shd.g_old_rec.cont_attribute6;
639: per_ctr_shd.g_old_rec.cont_attribute5;
640: End If;
641: If (p_rec.cont_attribute6 = hr_api.g_varchar2) then
642: p_rec.cont_attribute6 :=
643: per_ctr_shd.g_old_rec.cont_attribute6;
644: End If;
645: If (p_rec.cont_attribute7 = hr_api.g_varchar2) then
646: p_rec.cont_attribute7 :=
647: per_ctr_shd.g_old_rec.cont_attribute7;
643: per_ctr_shd.g_old_rec.cont_attribute6;
644: End If;
645: If (p_rec.cont_attribute7 = hr_api.g_varchar2) then
646: p_rec.cont_attribute7 :=
647: per_ctr_shd.g_old_rec.cont_attribute7;
648: End If;
649: If (p_rec.cont_attribute8 = hr_api.g_varchar2) then
650: p_rec.cont_attribute8 :=
651: per_ctr_shd.g_old_rec.cont_attribute8;
647: per_ctr_shd.g_old_rec.cont_attribute7;
648: End If;
649: If (p_rec.cont_attribute8 = hr_api.g_varchar2) then
650: p_rec.cont_attribute8 :=
651: per_ctr_shd.g_old_rec.cont_attribute8;
652: End If;
653: If (p_rec.cont_attribute9 = hr_api.g_varchar2) then
654: p_rec.cont_attribute9 :=
655: per_ctr_shd.g_old_rec.cont_attribute9;
651: per_ctr_shd.g_old_rec.cont_attribute8;
652: End If;
653: If (p_rec.cont_attribute9 = hr_api.g_varchar2) then
654: p_rec.cont_attribute9 :=
655: per_ctr_shd.g_old_rec.cont_attribute9;
656: End If;
657: If (p_rec.cont_attribute10 = hr_api.g_varchar2) then
658: p_rec.cont_attribute10 :=
659: per_ctr_shd.g_old_rec.cont_attribute10;
655: per_ctr_shd.g_old_rec.cont_attribute9;
656: End If;
657: If (p_rec.cont_attribute10 = hr_api.g_varchar2) then
658: p_rec.cont_attribute10 :=
659: per_ctr_shd.g_old_rec.cont_attribute10;
660: End If;
661: If (p_rec.cont_attribute11 = hr_api.g_varchar2) then
662: p_rec.cont_attribute11 :=
663: per_ctr_shd.g_old_rec.cont_attribute11;
659: per_ctr_shd.g_old_rec.cont_attribute10;
660: End If;
661: If (p_rec.cont_attribute11 = hr_api.g_varchar2) then
662: p_rec.cont_attribute11 :=
663: per_ctr_shd.g_old_rec.cont_attribute11;
664: End If;
665: If (p_rec.cont_attribute12 = hr_api.g_varchar2) then
666: p_rec.cont_attribute12 :=
667: per_ctr_shd.g_old_rec.cont_attribute12;
663: per_ctr_shd.g_old_rec.cont_attribute11;
664: End If;
665: If (p_rec.cont_attribute12 = hr_api.g_varchar2) then
666: p_rec.cont_attribute12 :=
667: per_ctr_shd.g_old_rec.cont_attribute12;
668: End If;
669: If (p_rec.cont_attribute13 = hr_api.g_varchar2) then
670: p_rec.cont_attribute13 :=
671: per_ctr_shd.g_old_rec.cont_attribute13;
667: per_ctr_shd.g_old_rec.cont_attribute12;
668: End If;
669: If (p_rec.cont_attribute13 = hr_api.g_varchar2) then
670: p_rec.cont_attribute13 :=
671: per_ctr_shd.g_old_rec.cont_attribute13;
672: End If;
673: If (p_rec.cont_attribute14 = hr_api.g_varchar2) then
674: p_rec.cont_attribute14 :=
675: per_ctr_shd.g_old_rec.cont_attribute14;
671: per_ctr_shd.g_old_rec.cont_attribute13;
672: End If;
673: If (p_rec.cont_attribute14 = hr_api.g_varchar2) then
674: p_rec.cont_attribute14 :=
675: per_ctr_shd.g_old_rec.cont_attribute14;
676: End If;
677: If (p_rec.cont_attribute15 = hr_api.g_varchar2) then
678: p_rec.cont_attribute15 :=
679: per_ctr_shd.g_old_rec.cont_attribute15;
675: per_ctr_shd.g_old_rec.cont_attribute14;
676: End If;
677: If (p_rec.cont_attribute15 = hr_api.g_varchar2) then
678: p_rec.cont_attribute15 :=
679: per_ctr_shd.g_old_rec.cont_attribute15;
680: End If;
681: If (p_rec.cont_attribute16 = hr_api.g_varchar2) then
682: p_rec.cont_attribute16 :=
683: per_ctr_shd.g_old_rec.cont_attribute16;
679: per_ctr_shd.g_old_rec.cont_attribute15;
680: End If;
681: If (p_rec.cont_attribute16 = hr_api.g_varchar2) then
682: p_rec.cont_attribute16 :=
683: per_ctr_shd.g_old_rec.cont_attribute16;
684: End If;
685: If (p_rec.cont_attribute17 = hr_api.g_varchar2) then
686: p_rec.cont_attribute17 :=
687: per_ctr_shd.g_old_rec.cont_attribute17;
683: per_ctr_shd.g_old_rec.cont_attribute16;
684: End If;
685: If (p_rec.cont_attribute17 = hr_api.g_varchar2) then
686: p_rec.cont_attribute17 :=
687: per_ctr_shd.g_old_rec.cont_attribute17;
688: End If;
689: If (p_rec.cont_attribute18 = hr_api.g_varchar2) then
690: p_rec.cont_attribute18 :=
691: per_ctr_shd.g_old_rec.cont_attribute18;
687: per_ctr_shd.g_old_rec.cont_attribute17;
688: End If;
689: If (p_rec.cont_attribute18 = hr_api.g_varchar2) then
690: p_rec.cont_attribute18 :=
691: per_ctr_shd.g_old_rec.cont_attribute18;
692: End If;
693: If (p_rec.cont_attribute19 = hr_api.g_varchar2) then
694: p_rec.cont_attribute19 :=
695: per_ctr_shd.g_old_rec.cont_attribute19;
691: per_ctr_shd.g_old_rec.cont_attribute18;
692: End If;
693: If (p_rec.cont_attribute19 = hr_api.g_varchar2) then
694: p_rec.cont_attribute19 :=
695: per_ctr_shd.g_old_rec.cont_attribute19;
696: End If;
697: If (p_rec.cont_attribute20 = hr_api.g_varchar2) then
698: p_rec.cont_attribute20 :=
699: per_ctr_shd.g_old_rec.cont_attribute20;
695: per_ctr_shd.g_old_rec.cont_attribute19;
696: End If;
697: If (p_rec.cont_attribute20 = hr_api.g_varchar2) then
698: p_rec.cont_attribute20 :=
699: per_ctr_shd.g_old_rec.cont_attribute20;
700: End If;
701: If (p_rec.cont_information_category = hr_api.g_varchar2) then
702: p_rec.cont_information_category :=
703: per_ctr_shd.g_old_rec.cont_information_category;
699: per_ctr_shd.g_old_rec.cont_attribute20;
700: End If;
701: If (p_rec.cont_information_category = hr_api.g_varchar2) then
702: p_rec.cont_information_category :=
703: per_ctr_shd.g_old_rec.cont_information_category;
704: End If;
705: If (p_rec.cont_information1 = hr_api.g_varchar2) then
706: p_rec.cont_information1 :=
707: per_ctr_shd.g_old_rec.cont_information1;
703: per_ctr_shd.g_old_rec.cont_information_category;
704: End If;
705: If (p_rec.cont_information1 = hr_api.g_varchar2) then
706: p_rec.cont_information1 :=
707: per_ctr_shd.g_old_rec.cont_information1;
708: End If;
709: If (p_rec.cont_information2 = hr_api.g_varchar2) then
710: p_rec.cont_information2 :=
711: per_ctr_shd.g_old_rec.cont_information2;
707: per_ctr_shd.g_old_rec.cont_information1;
708: End If;
709: If (p_rec.cont_information2 = hr_api.g_varchar2) then
710: p_rec.cont_information2 :=
711: per_ctr_shd.g_old_rec.cont_information2;
712: End If;
713: If (p_rec.cont_information3 = hr_api.g_varchar2) then
714: p_rec.cont_information3 :=
715: per_ctr_shd.g_old_rec.cont_information3;
711: per_ctr_shd.g_old_rec.cont_information2;
712: End If;
713: If (p_rec.cont_information3 = hr_api.g_varchar2) then
714: p_rec.cont_information3 :=
715: per_ctr_shd.g_old_rec.cont_information3;
716: End If;
717: If (p_rec.cont_information4 = hr_api.g_varchar2) then
718: p_rec.cont_information4 :=
719: per_ctr_shd.g_old_rec.cont_information4;
715: per_ctr_shd.g_old_rec.cont_information3;
716: End If;
717: If (p_rec.cont_information4 = hr_api.g_varchar2) then
718: p_rec.cont_information4 :=
719: per_ctr_shd.g_old_rec.cont_information4;
720: End If;
721: If (p_rec.cont_information5 = hr_api.g_varchar2) then
722: p_rec.cont_information5 :=
723: per_ctr_shd.g_old_rec.cont_information5;
719: per_ctr_shd.g_old_rec.cont_information4;
720: End If;
721: If (p_rec.cont_information5 = hr_api.g_varchar2) then
722: p_rec.cont_information5 :=
723: per_ctr_shd.g_old_rec.cont_information5;
724: End If;
725: If (p_rec.cont_information6 = hr_api.g_varchar2) then
726: p_rec.cont_information6 :=
727: per_ctr_shd.g_old_rec.cont_information6;
723: per_ctr_shd.g_old_rec.cont_information5;
724: End If;
725: If (p_rec.cont_information6 = hr_api.g_varchar2) then
726: p_rec.cont_information6 :=
727: per_ctr_shd.g_old_rec.cont_information6;
728: End If;
729: If (p_rec.cont_information7 = hr_api.g_varchar2) then
730: p_rec.cont_information7 :=
731: per_ctr_shd.g_old_rec.cont_information7;
727: per_ctr_shd.g_old_rec.cont_information6;
728: End If;
729: If (p_rec.cont_information7 = hr_api.g_varchar2) then
730: p_rec.cont_information7 :=
731: per_ctr_shd.g_old_rec.cont_information7;
732: End If;
733: If (p_rec.cont_information8 = hr_api.g_varchar2) then
734: p_rec.cont_information8 :=
735: per_ctr_shd.g_old_rec.cont_information8;
731: per_ctr_shd.g_old_rec.cont_information7;
732: End If;
733: If (p_rec.cont_information8 = hr_api.g_varchar2) then
734: p_rec.cont_information8 :=
735: per_ctr_shd.g_old_rec.cont_information8;
736: End If;
737: If (p_rec.cont_information9 = hr_api.g_varchar2) then
738: p_rec.cont_information9 :=
739: per_ctr_shd.g_old_rec.cont_information9;
735: per_ctr_shd.g_old_rec.cont_information8;
736: End If;
737: If (p_rec.cont_information9 = hr_api.g_varchar2) then
738: p_rec.cont_information9 :=
739: per_ctr_shd.g_old_rec.cont_information9;
740: End If;
741: If (p_rec.cont_information10 = hr_api.g_varchar2) then
742: p_rec.cont_information10 :=
743: per_ctr_shd.g_old_rec.cont_information10;
739: per_ctr_shd.g_old_rec.cont_information9;
740: End If;
741: If (p_rec.cont_information10 = hr_api.g_varchar2) then
742: p_rec.cont_information10 :=
743: per_ctr_shd.g_old_rec.cont_information10;
744: End If;
745: If (p_rec.cont_information11 = hr_api.g_varchar2) then
746: p_rec.cont_information11 :=
747: per_ctr_shd.g_old_rec.cont_information11;
743: per_ctr_shd.g_old_rec.cont_information10;
744: End If;
745: If (p_rec.cont_information11 = hr_api.g_varchar2) then
746: p_rec.cont_information11 :=
747: per_ctr_shd.g_old_rec.cont_information11;
748: End If;
749: If (p_rec.cont_information12 = hr_api.g_varchar2) then
750: p_rec.cont_information12 :=
751: per_ctr_shd.g_old_rec.cont_information12;
747: per_ctr_shd.g_old_rec.cont_information11;
748: End If;
749: If (p_rec.cont_information12 = hr_api.g_varchar2) then
750: p_rec.cont_information12 :=
751: per_ctr_shd.g_old_rec.cont_information12;
752: End If;
753: If (p_rec.cont_information13 = hr_api.g_varchar2) then
754: p_rec.cont_information13 :=
755: per_ctr_shd.g_old_rec.cont_information13;
751: per_ctr_shd.g_old_rec.cont_information12;
752: End If;
753: If (p_rec.cont_information13 = hr_api.g_varchar2) then
754: p_rec.cont_information13 :=
755: per_ctr_shd.g_old_rec.cont_information13;
756: End If;
757: If (p_rec.cont_information14 = hr_api.g_varchar2) then
758: p_rec.cont_information14 :=
759: per_ctr_shd.g_old_rec.cont_information14;
755: per_ctr_shd.g_old_rec.cont_information13;
756: End If;
757: If (p_rec.cont_information14 = hr_api.g_varchar2) then
758: p_rec.cont_information14 :=
759: per_ctr_shd.g_old_rec.cont_information14;
760: End If;
761: If (p_rec.cont_information15 = hr_api.g_varchar2) then
762: p_rec.cont_information15 :=
763: per_ctr_shd.g_old_rec.cont_information15;
759: per_ctr_shd.g_old_rec.cont_information14;
760: End If;
761: If (p_rec.cont_information15 = hr_api.g_varchar2) then
762: p_rec.cont_information15 :=
763: per_ctr_shd.g_old_rec.cont_information15;
764: End If;
765: If (p_rec.cont_information16 = hr_api.g_varchar2) then
766: p_rec.cont_information16 :=
767: per_ctr_shd.g_old_rec.cont_information16;
763: per_ctr_shd.g_old_rec.cont_information15;
764: End If;
765: If (p_rec.cont_information16 = hr_api.g_varchar2) then
766: p_rec.cont_information16 :=
767: per_ctr_shd.g_old_rec.cont_information16;
768: End If;
769: If (p_rec.cont_information17 = hr_api.g_varchar2) then
770: p_rec.cont_information17 :=
771: per_ctr_shd.g_old_rec.cont_information17;
767: per_ctr_shd.g_old_rec.cont_information16;
768: End If;
769: If (p_rec.cont_information17 = hr_api.g_varchar2) then
770: p_rec.cont_information17 :=
771: per_ctr_shd.g_old_rec.cont_information17;
772: End If;
773: If (p_rec.cont_information18 = hr_api.g_varchar2) then
774: p_rec.cont_information18 :=
775: per_ctr_shd.g_old_rec.cont_information18;
771: per_ctr_shd.g_old_rec.cont_information17;
772: End If;
773: If (p_rec.cont_information18 = hr_api.g_varchar2) then
774: p_rec.cont_information18 :=
775: per_ctr_shd.g_old_rec.cont_information18;
776: End If;
777: If (p_rec.cont_information19 = hr_api.g_varchar2) then
778: p_rec.cont_information19 :=
779: per_ctr_shd.g_old_rec.cont_information19;
775: per_ctr_shd.g_old_rec.cont_information18;
776: End If;
777: If (p_rec.cont_information19 = hr_api.g_varchar2) then
778: p_rec.cont_information19 :=
779: per_ctr_shd.g_old_rec.cont_information19;
780: End If;
781: If (p_rec.cont_information20 = hr_api.g_varchar2) then
782: p_rec.cont_information20 :=
783: per_ctr_shd.g_old_rec.cont_information20;
779: per_ctr_shd.g_old_rec.cont_information19;
780: End If;
781: If (p_rec.cont_information20 = hr_api.g_varchar2) then
782: p_rec.cont_information20 :=
783: per_ctr_shd.g_old_rec.cont_information20;
784: End If;
785: If (p_rec.third_party_pay_flag = hr_api.g_varchar2) then
786: p_rec.third_party_pay_flag :=
787: per_ctr_shd.g_old_rec.third_party_pay_flag;
783: per_ctr_shd.g_old_rec.cont_information20;
784: End If;
785: If (p_rec.third_party_pay_flag = hr_api.g_varchar2) then
786: p_rec.third_party_pay_flag :=
787: per_ctr_shd.g_old_rec.third_party_pay_flag;
788: End If;
789: If (p_rec.bondholder_flag = hr_api.g_varchar2) then
790: p_rec.bondholder_flag :=
791: per_ctr_shd.g_old_rec.bondholder_flag;
787: per_ctr_shd.g_old_rec.third_party_pay_flag;
788: End If;
789: If (p_rec.bondholder_flag = hr_api.g_varchar2) then
790: p_rec.bondholder_flag :=
791: per_ctr_shd.g_old_rec.bondholder_flag;
792: End If;
793: If (p_rec.dependent_flag = hr_api.g_varchar2) then
794: p_rec.dependent_flag :=
795: per_ctr_shd.g_old_rec.dependent_flag;
791: per_ctr_shd.g_old_rec.bondholder_flag;
792: End If;
793: If (p_rec.dependent_flag = hr_api.g_varchar2) then
794: p_rec.dependent_flag :=
795: per_ctr_shd.g_old_rec.dependent_flag;
796: End If;
797: If (p_rec.beneficiary_flag = hr_api.g_varchar2) then
798: p_rec.beneficiary_flag :=
799: per_ctr_shd.g_old_rec.beneficiary_flag;
795: per_ctr_shd.g_old_rec.dependent_flag;
796: End If;
797: If (p_rec.beneficiary_flag = hr_api.g_varchar2) then
798: p_rec.beneficiary_flag :=
799: per_ctr_shd.g_old_rec.beneficiary_flag;
800: End If;
801: --
802: hr_utility.set_location(' Leaving:'||l_proc, 10);
803: --
807: -- |---------------------------------< upd >----------------------------------|
808: -- ----------------------------------------------------------------------------
809: Procedure upd
810: (
811: p_rec in out nocopy per_ctr_shd.g_rec_type,
812: p_effective_date in date,
813: p_validate in boolean default false
814: ) is
815: --
828: End If;
829: --
830: -- We must lock the row which we need to update.
831: --
832: per_ctr_shd.lck
833: (
834: p_rec.contact_relationship_id,
835: p_rec.object_version_number
836: );
944: p_effective_date in date,
945: p_validate in boolean default false
946: ) is
947: --
948: l_rec per_ctr_shd.g_rec_type;
949: l_proc varchar2(72) := g_package||'upd';
950: --
951: Begin
952: hr_utility.set_location('Entering:'||l_proc, 5);
954: -- Call conversion function to turn arguments into the
955: -- l_rec structure.
956: --
957: l_rec :=
958: per_ctr_shd.convert_args
959: (
960: p_contact_relationship_id,
961: hr_api.g_number,
962: hr_api.g_number,