[Home] [Help]
24: ,p_flag_name in varchar2)
25: IS
26: l_proc VARCHAR2(72) := g_package||'chk_y_or_n';
27: begin
28: hr_utility.set_location('Entering:'|| l_proc, 10);
29: --
30: --
31: IF hr_api.not_exists_in_hrstanlookups
32: (p_effective_date => p_effective_date
37: fnd_message.set_token('COLUMN',p_flag_name);
38: fnd_message.raise_error;
39: end if;
40: --
41: hr_utility.set_location('Leaving:'||l_proc, 20);
42: --
43: end chk_y_or_n;
44: -- Bug 3114717 End
45:
87: ppf.effective_start_date and ppf.effective_end_date;
88: --
89: --
90: begin
91: hr_utility.set_location('Entering:'|| l_proc, 1);
92: --
93: -- Check mandatory parameters have been set
94: --
95: hr_api.mandatory_arg_error
97: ,p_argument => 'person_id'
98: ,p_argument_value => p_person_id
99: );
100: --
101: hr_utility.set_location(l_proc, 10);
102: --
103: -- Check that the person id is a valid value
104: --
105: open csr_get_bus_grp;
105: open csr_get_bus_grp;
106: fetch csr_get_bus_grp into l_business_group_id;
107: if csr_get_bus_grp%NOTFOUND then
108: close csr_get_bus_grp;
109: hr_utility.set_message(801, 'HR_51389_CRT_INV_PERSON_ID');
110: hr_utility.raise_error;
111: --
112: end if;
113: close csr_get_bus_grp;
106: fetch csr_get_bus_grp into l_business_group_id;
107: if csr_get_bus_grp%NOTFOUND then
108: close csr_get_bus_grp;
109: hr_utility.set_message(801, 'HR_51389_CRT_INV_PERSON_ID');
110: hr_utility.raise_error;
111: --
112: end if;
113: close csr_get_bus_grp;
114: hr_utility.set_location(l_proc,20);
110: hr_utility.raise_error;
111: --
112: end if;
113: close csr_get_bus_grp;
114: hr_utility.set_location(l_proc,20);
115: --
116: -- Check that person business group is the same as
117: -- the contact relationship business group
118: --
117: -- the contact relationship business group
118: --
119: if l_business_group_id <> p_business_group_id then
120: --
121: hr_utility.set_message(801, 'HR_7374_ASG_INVALID_BG_PERSON');
122: hr_utility.raise_error;
123: --
124: end if;
125: --
118: --
119: if l_business_group_id <> p_business_group_id then
120: --
121: hr_utility.set_message(801, 'HR_7374_ASG_INVALID_BG_PERSON');
122: hr_utility.raise_error;
123: --
124: end if;
125: --
126: hr_utility.set_location(' Leaving:'|| l_proc, 30);
122: hr_utility.raise_error;
123: --
124: end if;
125: --
126: hr_utility.set_location(' Leaving:'|| l_proc, 30);
127: end chk_person_id;
128: --
129: -- ---------------------------------------------------------------------------
130: -- |--------------------------< chk_contact_person_id >------------------------------|
170: ppf.effective_start_date and ppf.effective_end_date;
171: --
172: --
173: begin
174: hr_utility.set_location('Entering:'|| l_proc, 1);
175: --
176: -- Check mandatory parameters have been set
177: --
178: hr_api.mandatory_arg_error
180: ,p_argument => 'contact_person_id'
181: ,p_argument_value => p_contact_person_id
182: );
183: --
184: hr_utility.set_location(l_proc, 10);
185: --
186: -- Check that the person id is a valid value
187: --
188: open csr_get_bus_grp;
188: open csr_get_bus_grp;
189: fetch csr_get_bus_grp into l_business_group_id;
190: if csr_get_bus_grp%NOTFOUND then
191: close csr_get_bus_grp;
192: hr_utility.set_message(801, 'HR_51389_CRT_INV_PERSON_ID');
193: hr_utility.raise_error;
194: --
195: end if;
196: close csr_get_bus_grp;
189: fetch csr_get_bus_grp into l_business_group_id;
190: if csr_get_bus_grp%NOTFOUND then
191: close csr_get_bus_grp;
192: hr_utility.set_message(801, 'HR_51389_CRT_INV_PERSON_ID');
193: hr_utility.raise_error;
194: --
195: end if;
196: close csr_get_bus_grp;
197: hr_utility.set_location(l_proc,20);
193: hr_utility.raise_error;
194: --
195: end if;
196: close csr_get_bus_grp;
197: hr_utility.set_location(l_proc,20);
198: --
199: -- Check that person business group is the same as
200: -- the contact relationship business group
201: --
201: --
202: if (l_business_group_id <> p_business_group_id AND
203: nvl(fnd_profile.value('HR_CROSS_BUSINESS_GROUP'),'N')='N') then
204: --
205: hr_utility.set_message(801, 'HR_7374_ASG_INVALID_BG_PERSON');
206: hr_utility.raise_error;
207: --
208: end if;
209: --
202: if (l_business_group_id <> p_business_group_id AND
203: nvl(fnd_profile.value('HR_CROSS_BUSINESS_GROUP'),'N')='N') then
204: --
205: hr_utility.set_message(801, 'HR_7374_ASG_INVALID_BG_PERSON');
206: hr_utility.raise_error;
207: --
208: end if;
209: --
210: hr_utility.set_location(' Leaving:'|| l_proc, 30);
206: hr_utility.raise_error;
207: --
208: end if;
209: --
210: hr_utility.set_location(' Leaving:'|| l_proc, 30);
211: end chk_contact_person_id;
212: --
213: -- ---------------------------------------------------------------------------
214: -- |--------------------------< chk_contact_type >---------------------------|
252: l_api_updating boolean;
253: --
254: begin
255: --
256: hr_utility.set_location('Entering:'|| l_proc,1);
257: --
258: -- Check mandatory parameters have been set
259: --
260: hr_api.mandatory_arg_error
269: l_api_updating := per_ctr_shd.api_updating
270: (p_contact_relationship_id => p_contact_relationship_id
271: ,p_object_version_number => p_object_version_number);
272: --
273: hr_utility.set_location(l_proc, 2);
274: --
275: if ((l_api_updating
276: and per_ctr_shd.g_old_rec.contact_type <> p_contact_type)
277: or (NOT l_api_updating))
277: or (NOT l_api_updating))
278: then
279: --
280: if p_contact_type is null then
281: hr_utility.set_message(801,'HR_51379_CTR_INV_CONT_TYPE');
282: hr_utility.raise_error;
283: end if;
284: -- 05/28/97 Check for mandatory argument for update only
285: IF l_api_updating THEN
278: then
279: --
280: if p_contact_type is null then
281: hr_utility.set_message(801,'HR_51379_CTR_INV_CONT_TYPE');
282: hr_utility.raise_error;
283: end if;
284: -- 05/28/97 Check for mandatory argument for update only
285: IF l_api_updating THEN
286: hr_api.mandatory_arg_error
306: ,p_lookup_type => 'CONTACT'
307: ,p_lookup_code => p_contact_type
308: ) then
309: -- Error: Invalid contact_type
310: hr_utility.set_location(l_proc, 10);
311: hr_utility.set_message(801,'HR_51379_CTR_INV_CONT_TYPE');
312: hr_utility.raise_error;
313: end if;
314: --
307: ,p_lookup_code => p_contact_type
308: ) then
309: -- Error: Invalid contact_type
310: hr_utility.set_location(l_proc, 10);
311: hr_utility.set_message(801,'HR_51379_CTR_INV_CONT_TYPE');
312: hr_utility.raise_error;
313: end if;
314: --
315: end if;
308: ) then
309: -- Error: Invalid contact_type
310: hr_utility.set_location(l_proc, 10);
311: hr_utility.set_message(801,'HR_51379_CTR_INV_CONT_TYPE');
312: hr_utility.raise_error;
313: end if;
314: --
315: end if;
316: --
313: end if;
314: --
315: end if;
316: --
317: hr_utility.set_location(' Leaving:'||l_proc, 20);
318: --
319: end chk_contact_type;
320: --
321: -- ---------------------------------------------------------------------
377: l_api_updating := per_ctr_shd.api_updating
378: (p_contact_relationship_id => p_contact_relationship_id
379: ,p_object_version_number => p_object_version_number);
380: --
381: hr_utility.set_location(l_proc, 2);
382: --
383: if ((l_api_updating
384: and per_ctr_shd.g_old_rec.primary_contact_flag <> p_primary_contact_flag)
385: or (NOT l_api_updating))
385: or (NOT l_api_updating))
386: then
387: --
388: if p_primary_contact_flag not in ('Y','N') then
389: hr_utility.set_message(801,'HR_51388_CTR_INV_P_CONT_FLAG');
390: hr_utility.raise_error;
391: end if;
392: --
393: hr_utility.set_location('Entering:'|| l_proc,1);
386: then
387: --
388: if p_primary_contact_flag not in ('Y','N') then
389: hr_utility.set_message(801,'HR_51388_CTR_INV_P_CONT_FLAG');
390: hr_utility.raise_error;
391: end if;
392: --
393: hr_utility.set_location('Entering:'|| l_proc,1);
394: --
389: hr_utility.set_message(801,'HR_51388_CTR_INV_P_CONT_FLAG');
390: hr_utility.raise_error;
391: end if;
392: --
393: hr_utility.set_location('Entering:'|| l_proc,1);
394: --
395: if p_primary_contact_flag = 'Y' then
396: --
397: open csr_chk_primary_cnt;
397: open csr_chk_primary_cnt;
398: fetch csr_chk_primary_cnt into l_exists;
399: if csr_chk_primary_cnt%FOUND then
400: close csr_chk_primary_cnt;
401: hr_utility.set_message(801, 'PER_7125_EMP_CON_PRIMARY');
402: hr_utility.raise_error;
403: --
404: end if;
405: close csr_chk_primary_cnt;
398: fetch csr_chk_primary_cnt into l_exists;
399: if csr_chk_primary_cnt%FOUND then
400: close csr_chk_primary_cnt;
401: hr_utility.set_message(801, 'PER_7125_EMP_CON_PRIMARY');
402: hr_utility.raise_error;
403: --
404: end if;
405: close csr_chk_primary_cnt;
406: --
406: --
407: end if;
408: --
409: end if;
410: hr_utility.set_location('Leaving: '|| l_proc,1);
411: --
412: end chk_primary_contact;
413: -- ---------------------------------------------------------------------
414: -- |--------------------< chk_start_life_reason_id >-------------------------|
455: l_proc varchar2(72) := g_package||'chk_start_life_reason_id';
456: --
457: begin
458: --
459: hr_utility.set_location('Entering:'|| l_proc,5);
460: --
461: if (p_contact_relationship_id is not null
462: and per_ctr_shd.g_old_rec.start_life_reason_id
463: <> p_start_life_reason_id
468: open csr_chk_start_life_reason_id;
469: fetch csr_chk_start_life_reason_id into l_start_life_reason_id;
470: if csr_chk_start_life_reason_id%NOTFOUND then
471: close csr_chk_start_life_reason_id;
472: hr_utility.set_message(800, 'PER_52380_START_LIFE_REASON');
473: hr_utility.raise_error;
474: --
475: end if;
476: close csr_chk_start_life_reason_id;
469: fetch csr_chk_start_life_reason_id into l_start_life_reason_id;
470: if csr_chk_start_life_reason_id%NOTFOUND then
471: close csr_chk_start_life_reason_id;
472: hr_utility.set_message(800, 'PER_52380_START_LIFE_REASON');
473: hr_utility.raise_error;
474: --
475: end if;
476: close csr_chk_start_life_reason_id;
477: end if;
475: end if;
476: close csr_chk_start_life_reason_id;
477: end if;
478: --
479: hr_utility.set_location(' Leaving:'||l_proc, 10);
480: --
481: end chk_start_life_reason_id;
482:
483: -- ---------------------------------------------------------------------
526: l_proc varchar2(72) := g_package||'chk_end_life_reason_id';
527: --
528: begin
529: --
530: hr_utility.set_location('Entering:'|| l_proc,5);
531: --
532: --
533: if (p_contact_relationship_id is not null
534: and per_ctr_shd.g_old_rec.end_life_reason_id
540: open csr_chk_end_life_reason_id;
541: fetch csr_chk_end_life_reason_id into l_end_life_reason_id;
542: if csr_chk_end_life_reason_id%NOTFOUND then
543: close csr_chk_end_life_reason_id;
544: hr_utility.set_message(800, 'PER_52381_END_LIFE_REASON');
545: hr_utility.raise_error;
546: --
547: end if;
548: close csr_chk_end_life_reason_id;
541: fetch csr_chk_end_life_reason_id into l_end_life_reason_id;
542: if csr_chk_end_life_reason_id%NOTFOUND then
543: close csr_chk_end_life_reason_id;
544: hr_utility.set_message(800, 'PER_52381_END_LIFE_REASON');
545: hr_utility.raise_error;
546: --
547: end if;
548: close csr_chk_end_life_reason_id;
549: --
548: close csr_chk_end_life_reason_id;
549: --
550: end if;
551: --
552: hr_utility.set_location(' Leaving:'||l_proc, 10);
553: --
554: end chk_end_life_reason_id;
555: --
556: -- ---------------------------------------------------------------------
593: l_proc varchar2(72) := g_package||'chk_date_start_end';
594: --
595: begin
596: --
597: hr_utility.set_location('Entering:'|| l_proc,5);
598: --
599: if p_date_start is NOT NULL and
600: -- changed for bug 1995269 p_date_start >= nvl(p_date_end, hr_general.end_of_time) then
601: p_date_start > nvl(p_date_end, hr_general.end_of_time) then
598: --
599: if p_date_start is NOT NULL and
600: -- changed for bug 1995269 p_date_start >= nvl(p_date_end, hr_general.end_of_time) then
601: p_date_start > nvl(p_date_end, hr_general.end_of_time) then
602: hr_utility.set_message(800,'PER_7003_ALL_DATE_FROM_TO');
603: hr_utility.raise_error;
604: end if;
605: --
606: if p_date_start is NULL and
599: if p_date_start is NOT NULL and
600: -- changed for bug 1995269 p_date_start >= nvl(p_date_end, hr_general.end_of_time) then
601: p_date_start > nvl(p_date_end, hr_general.end_of_time) then
602: hr_utility.set_message(800,'PER_7003_ALL_DATE_FROM_TO');
603: hr_utility.raise_error;
604: end if;
605: --
606: if p_date_start is NULL and
607: p_date_end is NOT NULL then
604: end if;
605: --
606: if p_date_start is NULL and
607: p_date_end is NOT NULL then
608: hr_utility.set_message(800,'PER_52384_START_END_DATE');
609: hr_utility.raise_error;
610: end if;
611: --
612: hr_utility.set_location(' Leaving:'||l_proc, 10);
605: --
606: if p_date_start is NULL and
607: p_date_end is NOT NULL then
608: hr_utility.set_message(800,'PER_52384_START_END_DATE');
609: hr_utility.raise_error;
610: end if;
611: --
612: hr_utility.set_location(' Leaving:'||l_proc, 10);
613: --
608: hr_utility.set_message(800,'PER_52384_START_END_DATE');
609: hr_utility.raise_error;
610: end if;
611: --
612: hr_utility.set_location(' Leaving:'||l_proc, 10);
613: --
614: end chk_date_start_end;
615:
616:
672: l_proc varchar2(72) := g_package||'chk_time_validation';
673: --
674: begin
675: --
676: hr_utility.set_location('Entering:'|| l_proc,5);
677: --
678: if (p_contact_relationship_id is not null
679: and nvl(per_ctr_shd.g_old_rec.date_start, hr_api.g_date)
680: <> nvl(p_date_start, hr_api.g_date)
686: --
687: open csr_chk_time_validation;
688: fetch csr_chk_time_validation into l_records;
689: if csr_chk_time_validation%FOUND then
690: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
691: hr_utility.raise_error;
692: --
693: end if;
694:
687: open csr_chk_time_validation;
688: fetch csr_chk_time_validation into l_records;
689: if csr_chk_time_validation%FOUND then
690: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
691: hr_utility.raise_error;
692: --
693: end if;
694:
695: close csr_chk_time_validation;
695: close csr_chk_time_validation;
696: --
697: end if;
698: --
699: hr_utility.set_location(' Leaving:'||l_proc, 10);
700: --
701: end chk_time_validation;
702: --
703: -- ----------------------------------------------------------------------------
766: and con.sequence_number = p_sequence_number;
767: --
768: begin
769: --
770: hr_utility.set_location(l_proc, 1);
771: --
772: if p_contact_relationship_id is null or
773: (p_contact_relationship_id is not null and
774: nvl(per_ctr_shd.g_old_rec.sequence_number,hr_api.g_number)
780: open csr_seq;
781: fetch csr_seq into l_sequence_number;
782: if csr_seq%FOUND then
783: close csr_seq;
784: hr_utility.set_message('800','PER_52509_USE_SEQ_NO');
785: hr_utility.raise_error;
786: else
787: open csr_seq_others;
788: fetch csr_seq_others into l_sequence_other;
781: fetch csr_seq into l_sequence_number;
782: if csr_seq%FOUND then
783: close csr_seq;
784: hr_utility.set_message('800','PER_52509_USE_SEQ_NO');
785: hr_utility.raise_error;
786: else
787: open csr_seq_others;
788: fetch csr_seq_others into l_sequence_other;
789: if csr_seq_others%FOUND then
787: open csr_seq_others;
788: fetch csr_seq_others into l_sequence_other;
789: if csr_seq_others%FOUND then
790: close csr_seq_others;
791: hr_utility.set_message('800','PER_52510_DIFF_SEQ_NO');
792: hr_utility.raise_error;
793: end if;
794: end if;
795: --fix 1322770 Sequence no. may only be UPDATED from null.
788: fetch csr_seq_others into l_sequence_other;
789: if csr_seq_others%FOUND then
790: close csr_seq_others;
791: hr_utility.set_message('800','PER_52510_DIFF_SEQ_NO');
792: hr_utility.raise_error;
793: end if;
794: end if;
795: --fix 1322770 Sequence no. may only be UPDATED from null.
796: elsif (p_contact_relationship_id is not null
794: end if;
795: --fix 1322770 Sequence no. may only be UPDATED from null.
796: elsif (p_contact_relationship_id is not null
797: and p_sequence_number <> per_ctr_shd.g_old_rec.sequence_number) then
798: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
799: hr_utility.raise_error;
800: end if;
801: elsif (p_contact_relationship_id is not null
802: and per_ctr_shd.g_old_rec.sequence_number is not null) then
795: --fix 1322770 Sequence no. may only be UPDATED from null.
796: elsif (p_contact_relationship_id is not null
797: and p_sequence_number <> per_ctr_shd.g_old_rec.sequence_number) then
798: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
799: hr_utility.raise_error;
800: end if;
801: elsif (p_contact_relationship_id is not null
802: and per_ctr_shd.g_old_rec.sequence_number is not null) then
803: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
799: hr_utility.raise_error;
800: end if;
801: elsif (p_contact_relationship_id is not null
802: and per_ctr_shd.g_old_rec.sequence_number is not null) then
803: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
804: hr_utility.raise_error;
805: end if;
806: end if;
807: end chk_sequence_number;
800: end if;
801: elsif (p_contact_relationship_id is not null
802: and per_ctr_shd.g_old_rec.sequence_number is not null) then
803: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
804: hr_utility.raise_error;
805: end if;
806: end if;
807: end chk_sequence_number;
808: --
853: l_contact_date_of_birth date;
854: l_person_date_of_birth date;
855: --
856: begin
857: hr_utility.set_location('Entering:'|| l_proc, 1);
858: --
859: -- Check mandatory parameters have been set
860: --
861: hr_api.mandatory_arg_error
863: ,p_argument => 'person_id'
864: ,p_argument_value => p_person_id
865: );
866: --
867: hr_utility.set_location(l_proc, 10);
868: --
869: --
870: -- Check mandatory parameters have been set
871: --
874: ,p_argument => 'contact_person_id'
875: ,p_argument_value => p_contact_person_id
876: );
877: --
878: hr_utility.set_location(l_proc, 20);
879: --
880:
881: -- To fetch person date of birth.
882:
896:
897: if p_date_start is not null and
898: ( p_date_start < nvl( l_person_date_of_birth,hr_api.g_sot ) or
899: p_date_start < nvl( l_contact_date_of_birth,hr_api.g_sot ) ) then
900: hr_utility.set_message('800','PER_50386_CON_SDT_LES_EMP_BDT');
901: hr_utility.raise_error;
902: end if;
903: --
904:
897: if p_date_start is not null and
898: ( p_date_start < nvl( l_person_date_of_birth,hr_api.g_sot ) or
899: p_date_start < nvl( l_contact_date_of_birth,hr_api.g_sot ) ) then
900: hr_utility.set_message('800','PER_50386_CON_SDT_LES_EMP_BDT');
901: hr_utility.raise_error;
902: end if;
903: --
904:
905: --
902: end if;
903: --
904:
905: --
906: hr_utility.set_location('Leaving:'|| l_proc, 20);
907: --
908: end chk_date_of_birth;
909: -- ----------------------------------------------------------------------------
910: -- |--------------------< check_non_updateable_args >-------------------------|
916: l_error exception;
917: l_argument varchar2(30);
918: --
919: begin
920: hr_utility.set_location('Entering:'||l_proc, 5);
921: --
922: -- Only proceed with validation if a row exists for
923: -- the current record in the HR Schema
924: --
925: if not per_ctr_shd.api_updating
926: (p_contact_relationship_id => p_rec.contact_relationship_id
927: ,p_object_version_number => p_rec.object_version_number
928: ) then
929: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
930: hr_utility.set_message_token('PROCEDURE', l_proc);
931: hr_utility.set_message_token('STEP', '5');
932: hr_utility.raise_error;
933: end if;
926: (p_contact_relationship_id => p_rec.contact_relationship_id
927: ,p_object_version_number => p_rec.object_version_number
928: ) then
929: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
930: hr_utility.set_message_token('PROCEDURE', l_proc);
931: hr_utility.set_message_token('STEP', '5');
932: hr_utility.raise_error;
933: end if;
934: --
927: ,p_object_version_number => p_rec.object_version_number
928: ) then
929: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
930: hr_utility.set_message_token('PROCEDURE', l_proc);
931: hr_utility.set_message_token('STEP', '5');
932: hr_utility.raise_error;
933: end if;
934: --
935: hr_utility.set_location(l_proc, 6);
928: ) then
929: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
930: hr_utility.set_message_token('PROCEDURE', l_proc);
931: hr_utility.set_message_token('STEP', '5');
932: hr_utility.raise_error;
933: end if;
934: --
935: hr_utility.set_location(l_proc, 6);
936: --
931: hr_utility.set_message_token('STEP', '5');
932: hr_utility.raise_error;
933: end if;
934: --
935: hr_utility.set_location(l_proc, 6);
936: --
937: --
938: if nvl(p_rec.business_group_id, hr_api.g_number) <>
939: per_ctr_shd.g_old_rec.business_group_id then
959: (p_api_name => l_proc
960: ,p_argument => l_argument);
961: when others then
962: raise;
963: hr_utility.set_location(' Leaving:'||l_proc, 14);
964: end check_non_updateable_args;
965: --
966: -- ---------------------------------------------------------------------------
967: -- |----------------------< chk_df >----------------------------------------|
995: --
996: l_proc varchar2(72) := g_package||'chk_df';
997: --
998: begin
999: hr_utility.set_location('Entering:'||l_proc, 10);
1000: --
1001: if ((p_rec.contact_relationship_id is not null) and (
1002: nvl(per_ctr_shd.g_old_rec.cont_attribute_category, hr_api.g_varchar2) <>
1003: nvl(p_rec.cont_attribute_category, hr_api.g_varchar2) or
1095: ,p_attribute20_value => p_rec.cont_attribute20
1096: );
1097: end if;
1098: --
1099: hr_utility.set_location('Leaving:'||l_proc,20);
1100: end chk_df;
1101: --
1102: -- ---------------------------------------------------------------------------
1103: -- |----------------------< chk_ddf >----------------------------------------|
1131: --
1132: l_proc varchar2(72) := g_package||'chk_ddf';
1133: --
1134: begin
1135: hr_utility.set_location('Entering:'||l_proc, 10);
1136: --
1137: if ((p_rec.contact_relationship_id is not null) and (
1138: nvl(per_ctr_shd.g_old_rec.cont_information_category, hr_api.g_varchar2) <>
1139: nvl(p_rec.cont_information_category, hr_api.g_varchar2) or
1231: ,p_attribute20_value => p_rec.cont_information20
1232: );
1233: end if;
1234: --
1235: hr_utility.set_location('Leaving:'||l_proc,20);
1236: end chk_ddf;
1237: --
1238: -- ----------------------------------------------------------------------------
1239: -- |---------------------------< insert_validate >----------------------------|
1243: --
1244: l_proc varchar2(72) := g_package||'insert_validate';
1245: --
1246: Begin
1247: hr_utility.set_location('Entering:'||l_proc, 5);
1248: --
1249: -- Call all supporting business operations. Mapping to the
1250: -- appropriate Business Rules in perctr.bru is provided (where
1251: -- relevant)
1306: ,p_business_group_id => p_rec.business_group_id
1307: ,p_effective_date => p_effective_date
1308: );
1309: --
1310: hr_utility.set_location(l_proc, 10);
1311: --
1312: --
1313: /* JZYLI 5/8/00 disable Global contact relation for now.
1314: Will enable it after OK from OAB.
1319: (p_person_id => p_rec.contact_person_id
1320: ,p_business_group_id => p_rec.business_group_id
1321: ,p_effective_date => p_effective_date
1322: );
1323: hr_utility.set_location(l_proc, 20);
1324: --
1325: --
1326: per_ctr_bus.chk_contact_type
1327: (p_effective_date => p_effective_date
1339: p_date_start => p_rec.date_start,
1340: p_date_end => p_rec.date_end
1341: );
1342: --
1343: hr_utility.set_location(l_proc, 30);
1344: --
1345: chk_start_life_reason_id(p_contact_relationship_id => p_rec.contact_relationship_id
1346: ,p_start_life_reason_id => p_rec.start_life_reason_id
1347: ,p_effective_date => p_effective_date
1347: ,p_effective_date => p_effective_date
1348: ,p_object_version_number => p_rec.object_version_number
1349: );
1350: --
1351: hr_utility.set_location(l_proc, 40);
1352: --
1353: chk_end_life_reason_id(p_contact_relationship_id => p_rec.contact_relationship_id
1354: ,p_end_life_reason_id => p_rec.end_life_reason_id
1355: ,p_effective_date => p_effective_date
1356: ,p_object_version_number => p_rec.object_version_number
1357: );
1358:
1359: --
1360: hr_utility.set_location(' Leaving:'||l_proc, 50);
1361: --
1362: chk_date_start_end(p_contact_relationship_id => p_rec.contact_relationship_id
1363: ,p_date_start => p_rec.date_start
1364: ,p_date_end => p_rec.date_end
1364: ,p_date_end => p_rec.date_end
1365: ,p_object_version_number => p_rec.object_version_number
1366: );
1367: --
1368: hr_utility.set_location(' Leaving:'||l_proc, 60);
1369: --
1370: chk_time_validation(p_contact_type => p_rec.contact_type
1371: ,p_person_id => p_rec.person_id
1372: ,p_contact_person_id => p_rec.contact_person_id
1375: ,p_date_end => p_rec.date_end
1376: ,p_object_version_number => p_rec.object_version_number
1377: );
1378: --
1379: hr_utility.set_location(' Leaving:'||l_proc, 70);
1380: --
1381: chk_sequence_number(p_contact_relationship_id => p_rec.contact_relationship_id
1382: ,p_sequence_number => p_rec.sequence_number
1383: ,p_contact_person_id => p_rec.contact_person_id
1384: ,p_person_id => p_rec.person_id
1385: ,p_object_version_number => p_rec.object_version_number
1386: );
1387: --
1388: hr_utility.set_location(' Leaving:'||l_proc,80);
1389: --
1390: -- Bug fix 3326964.
1391: -- Function call to check whether relation ship start date is less tha
1392: -- contact's or person's date of birth.
1395: ,p_contact_person_id => p_rec.contact_person_id
1396: ,p_date_start => p_rec.date_start
1397: );
1398: --
1399: hr_utility.set_location(' Leaving:'||l_proc,90);
1400: --
1401:
1402:
1403: chk_ddf(p_rec => p_rec);
1414: --
1415: l_proc varchar2(72) := g_package||'update_validate';
1416: --
1417: Begin
1418: hr_utility.set_location('Entering:'||l_proc, 5);
1419: --
1420: --
1421: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
1422: --
1507: p_date_start => p_rec.date_start,
1508: p_date_end => p_rec.date_end
1509: );
1510: --
1511: hr_utility.set_location(' Leaving:'||l_proc, 10);
1512: --
1513: chk_start_life_reason_id(p_contact_relationship_id => p_rec.contact_relationship_id,
1514: p_start_life_reason_id => p_rec.start_life_reason_id,
1515: p_effective_date => p_effective_date,
1515: p_effective_date => p_effective_date,
1516: p_object_version_number => p_rec.object_version_number
1517: );
1518: --
1519: hr_utility.set_location('Leaving:'||l_proc, 20);
1520: --
1521: chk_end_life_reason_id(p_contact_relationship_id => p_rec.contact_relationship_id
1522: ,p_end_life_reason_id => p_rec.end_life_reason_id
1523: ,p_effective_date => p_effective_date
1523: ,p_effective_date => p_effective_date
1524: ,p_object_version_number => p_rec.object_version_number
1525: );
1526: --
1527: hr_utility.set_location('Leaving:'||l_proc, 30);
1528: --
1529: chk_date_start_end(p_contact_relationship_id => p_rec.contact_relationship_id
1530: ,p_date_start => p_rec.date_start
1531: ,p_date_end => p_rec.date_end
1531: ,p_date_end => p_rec.date_end
1532: ,p_object_version_number => p_rec.object_version_number
1533: );
1534: --
1535: hr_utility.set_location(' Leaving:'||l_proc, 40);
1536: --
1537: chk_time_validation(p_contact_type => p_rec.contact_type
1538: ,p_person_id => p_rec.person_id
1539: ,p_contact_person_id => p_rec.contact_person_id
1542: ,p_date_end => p_rec.date_end
1543: ,p_object_version_number => p_rec.object_version_number
1544: );
1545: --
1546: hr_utility.set_location(' Leaving:'||l_proc, 50);
1547: --
1548: chk_sequence_number(p_contact_relationship_id => p_rec.contact_relationship_id
1549: ,p_sequence_number => p_rec.sequence_number
1550: ,p_contact_person_id => p_rec.contact_person_id
1551: ,p_person_id => p_rec.person_id
1552: ,p_object_version_number => p_rec.object_version_number
1553: );
1554: --
1555: hr_utility.set_location(' Leaving:'||l_proc,60);
1556: --
1557: -- Bug fix 3326964.
1558: -- Function call to check whether relation ship start date is less tha
1559: -- contact's or person's date of birth.
1561: ,p_contact_person_id => p_rec.contact_person_id
1562: ,p_date_start => p_rec.date_start
1563: );
1564: --
1565: hr_utility.set_location(' Leaving:'||l_proc,70);
1566: --
1567: chk_ddf(p_rec => p_rec);
1568: --
1569: chk_df(p_rec => p_rec);
1577: --
1578: l_proc varchar2(72) := g_package||'delete_validate';
1579: --
1580: Begin
1581: hr_utility.set_location('Entering:'||l_proc, 5);
1582: --
1583: -- Call all supporting business operations
1584: --
1585: hr_utility.set_location(' Leaving:'||l_proc, 10);
1581: hr_utility.set_location('Entering:'||l_proc, 5);
1582: --
1583: -- Call all supporting business operations
1584: --
1585: hr_utility.set_location(' Leaving:'||l_proc, 10);
1586: End delete_validate;
1587: --
1588: -- ---------------------------------------------------------------------------
1589: -- |---------------------< return_legislation_code >-------------------------|
1606: --
1607: l_legislation_code varchar2(150);
1608: l_proc varchar2(72) := g_package||'return_legislation_code';
1609: begin
1610: hr_utility.set_location('Entering:'|| l_proc, 10);
1611: --
1612: -- Ensure that all the mandatory parameter are not null
1613: --
1614: hr_api.mandatory_arg_error(p_api_name => l_proc,
1621: -- call to this function. Just return the value in the global
1622: -- variable.
1623: --
1624: l_legislation_code := g_legislation_code;
1625: hr_utility.set_location(l_proc, 20);
1626: else
1627: --
1628: -- The ID is different to the last call to this function
1629: -- or this is the first call to this function.
1634: close csr_leg_code;
1635: --
1636: -- The primary key is invalid therefore we must error
1637: --
1638: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1639: hr_utility.raise_error;
1640: end if;
1641: --
1642: close csr_leg_code;
1635: --
1636: -- The primary key is invalid therefore we must error
1637: --
1638: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1639: hr_utility.raise_error;
1640: end if;
1641: --
1642: close csr_leg_code;
1643: g_contact_relationship_id:= p_contact_relationship_id;
1642: close csr_leg_code;
1643: g_contact_relationship_id:= p_contact_relationship_id;
1644: g_legislation_code := l_legislation_code;
1645: end if;
1646: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1647: --
1648: return l_legislation_code;
1649: end return_legislation_code;
1650: --