14: -- |--------------------< chk_cagr_grade_def_id >---------------------------|
15: -- ---------------------------------------------------------------------------
16: --
17: procedure chk_cagr_grade_def_id
18: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
19: ,p_effective_date in date
20: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
21: ,p_cagr_grade_def_id in per_all_assignments_f.cagr_grade_def_id%TYPE
22: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
16: --
17: procedure chk_cagr_grade_def_id
18: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
19: ,p_effective_date in date
20: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
21: ,p_cagr_grade_def_id in per_all_assignments_f.cagr_grade_def_id%TYPE
22: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
23: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
24: )
17: procedure chk_cagr_grade_def_id
18: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
19: ,p_effective_date in date
20: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
21: ,p_cagr_grade_def_id in per_all_assignments_f.cagr_grade_def_id%TYPE
22: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
23: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
24: )
25: is
18: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
19: ,p_effective_date in date
20: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
21: ,p_cagr_grade_def_id in per_all_assignments_f.cagr_grade_def_id%TYPE
22: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
23: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
24: )
25: is
26: --
19: ,p_effective_date in date
20: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
21: ,p_cagr_grade_def_id in per_all_assignments_f.cagr_grade_def_id%TYPE
22: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
23: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
24: )
25: is
26: --
27: l_proc varchar2(72) := g_package||'chk_cagr_grade_def_id';
51: begin
52: hr_utility.set_location('Entering:'|| l_proc, 10);
53: --
54: if hr_multi_message.no_exclusive_error
55: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.CAGR_ID_FLEX_NUM'
56: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
57: ) then
58: --
59: -- Check mandatory parameters have been set
52: hr_utility.set_location('Entering:'|| l_proc, 10);
53: --
54: if hr_multi_message.no_exclusive_error
55: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.CAGR_ID_FLEX_NUM'
56: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
57: ) then
58: --
59: -- Check mandatory parameters have been set
60: --
148: -- |--------------------< chk_cagr_id_flex_num >----------------------------|
149: -- ---------------------------------------------------------------------------
150: --
151: procedure chk_cagr_id_flex_num
152: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
153: ,p_effective_date in date
154: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
155: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
156: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
150: --
151: procedure chk_cagr_id_flex_num
152: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
153: ,p_effective_date in date
154: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
155: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
156: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
157: ) is
158: --
151: procedure chk_cagr_id_flex_num
152: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
153: ,p_effective_date in date
154: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
155: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
156: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
157: ) is
158: --
159: l_proc varchar2(72) := g_package||'chk_cagr_id_flex_num';
152: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
153: ,p_effective_date in date
154: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
155: ,p_cagr_id_flex_num in per_all_assignments_f.cagr_id_flex_num%TYPE
156: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
157: ) is
158: --
159: l_proc varchar2(72) := g_package||'chk_cagr_id_flex_num';
160: l_api_updating boolean;
176: begin
177: hr_utility.set_location('Entering:'|| l_proc, 10);
178: --
179: if hr_multi_message.no_exclusive_error
180: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
181: ) then
182: --
183: -- Check mandatory parameters have been set
184: --
262: -- |--------------------< chk_contract_id >----------------------------------|
263: -- ---------------------------------------------------------------------------
264: --
265: procedure chk_contract_id
266: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
267: ,p_effective_date in date
268: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
269: ,p_contract_id in per_all_assignments_f.contract_id%TYPE
270: ,p_person_id in per_all_assignments_f.person_id%TYPE
264: --
265: procedure chk_contract_id
266: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
267: ,p_effective_date in date
268: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
269: ,p_contract_id in per_all_assignments_f.contract_id%TYPE
270: ,p_person_id in per_all_assignments_f.person_id%TYPE
271: ,p_validation_start_date in date
272: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
265: procedure chk_contract_id
266: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
267: ,p_effective_date in date
268: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
269: ,p_contract_id in per_all_assignments_f.contract_id%TYPE
270: ,p_person_id in per_all_assignments_f.person_id%TYPE
271: ,p_validation_start_date in date
272: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
273: ) is
266: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
267: ,p_effective_date in date
268: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
269: ,p_contract_id in per_all_assignments_f.contract_id%TYPE
270: ,p_person_id in per_all_assignments_f.person_id%TYPE
271: ,p_validation_start_date in date
272: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
273: ) is
274: --
268: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
269: ,p_contract_id in per_all_assignments_f.contract_id%TYPE
270: ,p_person_id in per_all_assignments_f.person_id%TYPE
271: ,p_validation_start_date in date
272: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
273: ) is
274: --
275: l_proc varchar2(72) := g_package||'chk_contract_id';
276: l_api_updating boolean;
346: --
347: -- It has been found but is it for the same person ?
348: --
349: if hr_multi_message.no_exclusive_error
350: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.PERSON_ID'
351: ) then
352: If l_person_id <> p_person_id THEN
353: -- msg This contract does not belong to this person
354: hr_utility.set_message(800, 'PER_52813_CONTRACT_PERSON');
358: -- It has been found but is it in the same business group ?
359: -- msg This contract is not in the same business group as the assignment
360: hr_utility.set_message(800, 'PER_52814_CONTRACT_IN_BG');
361: hr_multi_message.add
362: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.CONTRACT_ID'
363: );
364: --
365: elsif l_effective_start_date > p_validation_start_date THEN
366: -- It has been found, but does it exist from the beginning of the asg row ?
384: -- |--------------------< chk_collective_agreement_id >----------------------|
385: -- ---------------------------------------------------------------------------
386: --
387: procedure chk_collective_agreement_id
388: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
389: ,p_effective_date in date
390: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
391: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
392: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
386: --
387: procedure chk_collective_agreement_id
388: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
389: ,p_effective_date in date
390: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
391: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
392: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
393: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
394: ) is
387: procedure chk_collective_agreement_id
388: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
389: ,p_effective_date in date
390: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
391: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
392: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
393: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
394: ) is
395: --
388: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
389: ,p_effective_date in date
390: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
391: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
392: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
393: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
394: ) is
395: --
396: l_proc varchar2(72) := g_package||'chk_collective_agreement_id';
389: ,p_effective_date in date
390: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
391: ,p_collective_agreement_id in per_all_assignments_f.collective_agreement_id%TYPE
392: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
393: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
394: ) is
395: --
396: l_proc varchar2(72) := g_package||'chk_collective_agreement_id';
397: l_api_updating boolean;
462: Close csr_in_per_coll_agrs;
463: -- msg This collective agreement does not exist
464: hr_utility.set_message(800, 'PER_52816_COLLECTIVE_AGREEMENT');
465: hr_multi_message.add
466: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
467: );
468: Else
469: Close csr_in_per_coll_agrs;
470: --
472: If l_business_group_id <> p_business_group_id THEN
473: -- msg This collective agreement is not in your business group
474: hr_utility.set_message(800, 'PER_52817_COLLECTIVE_NOT_IN_BG');
475: hr_multi_message.add
476: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
477: );
478: End If;
479: End if;
480: --
484: --
485: -- msg You must supply a establishment with a collective agreement if french.
486: hr_utility.set_message(800, 'PER_52827_NEED_ESTAB');
487: hr_multi_message.add
488: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
489: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
490: );
491: --
492: elsif l_legislation_code = 'FR' and p_collective_agreement_id is not null THEN
485: -- msg You must supply a establishment with a collective agreement if french.
486: hr_utility.set_message(800, 'PER_52827_NEED_ESTAB');
487: hr_multi_message.add
488: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
489: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
490: );
491: --
492: elsif l_legislation_code = 'FR' and p_collective_agreement_id is not null THEN
493: -- If French, the given collective_agreement_id must be valid
493: -- If French, the given collective_agreement_id must be valid
494: hr_utility.set_location(l_proc, 70);
495: --
496: if hr_multi_message.no_exclusive_error
497: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
498: ) then
499: --
500: Open csr_in_establishment_ca_v;
501: Fetch csr_in_establishment_ca_v Into l_business_group_id;
506: Close csr_in_establishment_ca_v;
507: -- msg French legislations must supply a collective agreement in your establishment
508: hr_utility.set_message(800, 'PER_52828_CAGR_NOT_IN_ESTAB');
509: hr_multi_message.add
510: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
511: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
512: );
513: Elsif l_business_group_id <> p_business_group_id THEN
514: Close csr_in_establishment_ca_v;
507: -- msg French legislations must supply a collective agreement in your establishment
508: hr_utility.set_message(800, 'PER_52828_CAGR_NOT_IN_ESTAB');
509: hr_multi_message.add
510: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
511: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
512: );
513: Elsif l_business_group_id <> p_business_group_id THEN
514: Close csr_in_establishment_ca_v;
515: -- msg This collective agreement is not in your business group
514: Close csr_in_establishment_ca_v;
515: -- msg This collective agreement is not in your business group
516: hr_utility.set_message(800, 'PER_52829_CAGR_NOT_IN_BG');
517: hr_multi_message.add
518: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.COLLECTIVE_AGREEMENT_ID'
519: );
520: End If;
521: End If; -- no exclusive error
522: End if;
531: -- |--------------------< chk_establishment_id >-----------------------------|
532: -- ---------------------------------------------------------------------------
533: --
534: procedure chk_establishment_id
535: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
536: ,p_effective_date in date
537: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
538: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
539: ,p_assignment_type in per_all_assignments_f.assignment_type%TYPE
533: --
534: procedure chk_establishment_id
535: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
536: ,p_effective_date in date
537: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
538: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
539: ,p_assignment_type in per_all_assignments_f.assignment_type%TYPE
540: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
541: ) is
534: procedure chk_establishment_id
535: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
536: ,p_effective_date in date
537: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
538: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
539: ,p_assignment_type in per_all_assignments_f.assignment_type%TYPE
540: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
541: ) is
542: --
535: (p_assignment_id in per_all_assignments_f.assignment_id%TYPE
536: ,p_effective_date in date
537: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
538: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
539: ,p_assignment_type in per_all_assignments_f.assignment_type%TYPE
540: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
541: ) is
542: --
543: l_proc varchar2(72) := g_package||'chk_establishment_id';
536: ,p_effective_date in date
537: ,p_object_version_number in per_all_assignments_f.object_version_number%TYPE
538: ,p_establishment_id in per_all_assignments_f.establishment_id%TYPE
539: ,p_assignment_type in per_all_assignments_f.assignment_type%TYPE
540: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
541: ) is
542: --
543: l_proc varchar2(72) := g_package||'chk_establishment_id';
544: l_api_updating boolean;
622: --
623: Close csr_estab_in_org_units;
624: hr_utility.set_message(800, 'PER_52818_INVALID_ESTAB');
625: hr_multi_message.add
626: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
627: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE'
628: );
629: Else
630: Close csr_estab_in_org_units;
623: Close csr_estab_in_org_units;
624: hr_utility.set_message(800, 'PER_52818_INVALID_ESTAB');
625: hr_multi_message.add
626: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
627: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE'
628: );
629: Else
630: Close csr_estab_in_org_units;
631: End If;
651: --
652: Close csr_estab_in_fr_estab_v;
653: hr_utility.set_message(800, 'PER_52818_INVALID_ESTAB');
654: hr_multi_message.add
655: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.ESTABLISHMENT_ID'
656: );
657: Else
658: Close csr_estab_in_fr_estab_v;
659: End If;
672: --
673:
674: procedure chk_notice_period
675: (
676: p_assignment_id IN per_all_assignments_f.assignment_id%TYPE,
677: p_notice_period IN per_all_assignments_f.notice_period%TYPE
678:
679: )
680:
673:
674: procedure chk_notice_period
675: (
676: p_assignment_id IN per_all_assignments_f.assignment_id%TYPE,
677: p_notice_period IN per_all_assignments_f.notice_period%TYPE
678:
679: )
680:
681: is
713: hr_utility.set_location(' Leaving:'|| l_proc, 40);
714: exception
715: when app_exception.application_exception then
716: if hr_multi_message.exception_add
717: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD'
718: ) then
719: hr_utility.set_location(' Leaving:'|| l_proc, 50);
720: raise;
721: end if;
729: --
730:
731:
732: procedure chk_notice_period_uom
733: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
734: ,p_notice_period IN per_all_assignments_f.notice_period%TYPE
735: ,p_notice_period_uom IN per_all_assignments_f.notice_period_uom%TYPE
736: ,p_effective_date IN DATE
737: ,p_validation_start_date IN DATE
730:
731:
732: procedure chk_notice_period_uom
733: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
734: ,p_notice_period IN per_all_assignments_f.notice_period%TYPE
735: ,p_notice_period_uom IN per_all_assignments_f.notice_period_uom%TYPE
736: ,p_effective_date IN DATE
737: ,p_validation_start_date IN DATE
738: ,P_VALIDATION_END_DATE IN DATE
731:
732: procedure chk_notice_period_uom
733: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
734: ,p_notice_period IN per_all_assignments_f.notice_period%TYPE
735: ,p_notice_period_uom IN per_all_assignments_f.notice_period_uom%TYPE
736: ,p_effective_date IN DATE
737: ,p_validation_start_date IN DATE
738: ,P_VALIDATION_END_DATE IN DATE
739: ) IS
746:
747: hr_utility.set_location('Entering: '||l_proc,10);
748: --
749: if hr_multi_message.no_exclusive_error
750: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD'
751: ) then
752: --
753: -- Only proceed with validation if :
754: -- a) Inserting or
764:
765: hr_utility.set_location(l_proc, 30);
766: hr_utility.set_message(800, 'HR_289365_NOTICE_UOM_INV');
767: hr_multi_message.add
768: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD'
769: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD_UOM'
770: );
771: END IF;
772:
765: hr_utility.set_location(l_proc, 30);
766: hr_utility.set_message(800, 'HR_289365_NOTICE_UOM_INV');
767: hr_multi_message.add
768: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD'
769: ,p_associated_column2 => 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD_UOM'
770: );
771: END IF;
772:
773: hr_utility.set_location(l_proc, 40);
787: hr_utility.set_location(l_proc, 50);
788: hr_utility.set_message(800, 'HR_289365_NOTICE_UOM_INV');
789: hr_multi_message.add
790: (p_associated_column1 =>
791: 'PER_ALL_ASSIGNMENTS_F.NOTICE_PERIOD_UOM'
792: );
793: END IF;
794: END IF;
795:
806: --
807:
808:
809: procedure chk_employee_category
810: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
811: ,p_employee_category IN per_all_assignments_f.employee_category%TYPE
812: ,p_effective_date IN DATE
813: ,p_validation_start_date IN DATE
814: ,P_VALIDATION_END_DATE IN DATE
807:
808:
809: procedure chk_employee_category
810: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
811: ,p_employee_category IN per_all_assignments_f.employee_category%TYPE
812: ,p_effective_date IN DATE
813: ,p_validation_start_date IN DATE
814: ,P_VALIDATION_END_DATE IN DATE
815: ) IS
855: --
856: exception
857: when app_exception.application_exception then
858: if hr_multi_message.exception_add
859: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.EMPLOYEE_CATEGORY'
860: ,p_associated_column2 =>
861: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE'
862: ,p_associated_column3 =>
863: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_END_DATE'
857: when app_exception.application_exception then
858: if hr_multi_message.exception_add
859: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.EMPLOYEE_CATEGORY'
860: ,p_associated_column2 =>
861: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE'
862: ,p_associated_column3 =>
863: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_END_DATE'
864: ) then
865: hr_utility.set_location(' Leaving:'|| l_proc, 110);
859: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.EMPLOYEE_CATEGORY'
860: ,p_associated_column2 =>
861: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE'
862: ,p_associated_column3 =>
863: 'PER_ALL_ASSIGNMENTS_F.EFFECTIVE_END_DATE'
864: ) then
865: hr_utility.set_location(' Leaving:'|| l_proc, 110);
866: raise;
867: end if;
873: -- |---------------------------< chk_pop_date_start >------------------------|
874: -- ---------------------------------------------------------------------------
875: --
876: PROCEDURE chk_pop_date_start
877: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
878: ,p_business_group_id IN per_all_assignments_f.business_group_id%TYPE
879: ,p_person_id IN per_all_assignments_f.person_id%TYPE
880: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
881: ,p_pop_date_start IN per_periods_of_placement.date_start%TYPE
874: -- ---------------------------------------------------------------------------
875: --
876: PROCEDURE chk_pop_date_start
877: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
878: ,p_business_group_id IN per_all_assignments_f.business_group_id%TYPE
879: ,p_person_id IN per_all_assignments_f.person_id%TYPE
880: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
881: ,p_pop_date_start IN per_periods_of_placement.date_start%TYPE
882: ,p_validation_start_date IN DATE
875: --
876: PROCEDURE chk_pop_date_start
877: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
878: ,p_business_group_id IN per_all_assignments_f.business_group_id%TYPE
879: ,p_person_id IN per_all_assignments_f.person_id%TYPE
880: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
881: ,p_pop_date_start IN per_periods_of_placement.date_start%TYPE
882: ,p_validation_start_date IN DATE
883: ,p_validation_end_date IN DATE
876: PROCEDURE chk_pop_date_start
877: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
878: ,p_business_group_id IN per_all_assignments_f.business_group_id%TYPE
879: ,p_person_id IN per_all_assignments_f.person_id%TYPE
880: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
881: ,p_pop_date_start IN per_periods_of_placement.date_start%TYPE
882: ,p_validation_start_date IN DATE
883: ,p_validation_end_date IN DATE
884: ,p_effective_date IN DATE
881: ,p_pop_date_start IN per_periods_of_placement.date_start%TYPE
882: ,p_validation_start_date IN DATE
883: ,p_validation_end_date IN DATE
884: ,p_effective_date IN DATE
885: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
886: ) IS
887: --
888: l_api_updating BOOLEAN;
889: l_exists VARCHAR2(1);
888: l_api_updating BOOLEAN;
889: l_exists VARCHAR2(1);
890: l_proc VARCHAR2(72):= g_package||'chk_pop_date_start';
891: l_actual_termination_date per_periods_of_placement.actual_termination_date%TYPE;
892: l_business_group_id per_all_assignments_f.business_group_id%TYPE;
893: --
894: CURSOR csr_valid_placement is
895: SELECT pop.business_group_id,
896: pop.actual_termination_date
1144:
1145: WHEN app_exception.application_exception THEN
1146:
1147: IF hr_multi_message.exception_add
1148: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID') THEN
1149:
1150: IF g_debug THEN
1151: hr_utility.set_location('Leaving: ' || l_proc, 998);
1152: END IF;
1276:
1277: WHEN app_exception.application_exception THEN
1278:
1279: IF hr_multi_message.exception_add
1280: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID') THEN
1281:
1282: IF g_debug THEN
1283: hr_utility.set_location('Leaving: ' || l_proc, 998);
1284: END IF;
1324: FROM po_temp_labor_lines_v pol
1325: WHERE pol.po_header_id = p_po_header_id
1326: AND NOT EXISTS
1327: (SELECT NULL
1328: FROM per_all_assignments_f paaf
1329: WHERE (p_assignment_id IS NULL
1330: OR (p_assignment_id IS NOT NULL AND
1331: p_assignment_id <> paaf.assignment_id))
1332: AND paaf.assignment_type = 'C'
1442:
1443: WHEN app_exception.application_exception THEN
1444:
1445: IF hr_multi_message.exception_add
1446: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID') THEN
1447:
1448: IF g_debug THEN
1449: hr_utility.set_location('Leaving: ' || l_proc, 998);
1450: END IF;
1484: FROM po_temp_labor_lines_v pol
1485: WHERE pol.po_line_id = p_po_line_id
1486: AND NOT EXISTS
1487: (SELECT NULL
1488: FROM per_all_assignments_f paaf
1489: WHERE (p_assignment_id IS NULL
1490: OR (p_assignment_id IS NOT NULL AND
1491: p_assignment_id <> paaf.assignment_id))
1492: AND paaf.assignment_type = 'C'
1602:
1603: WHEN app_exception.application_exception THEN
1604:
1605: IF hr_multi_message.exception_add
1606: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.PO_LINE_ID') THEN
1607:
1608: IF g_debug THEN
1609: hr_utility.set_location('Leaving: '|| l_proc, 998);
1610: END IF;
1713:
1714: WHEN app_exception.application_exception THEN
1715:
1716: IF hr_multi_message.exception_add
1717: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.PROJECTED_ASSIGNMENT_END') THEN
1718:
1719: IF g_debug THEN
1720: hr_utility.set_location('Leaving: ' || l_proc, 998);
1721: END IF;
1760: hr_utility.set_location('Entering: ' || l_proc, 10);
1761: END IF;
1762:
1763: IF hr_multi_message.no_exclusive_error
1764: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID'
1765: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID'
1766: )
1767: THEN
1768:
1761: END IF;
1762:
1763: IF hr_multi_message.no_exclusive_error
1764: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID'
1765: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID'
1766: )
1767: THEN
1768:
1769: --
1878: hr_utility.set_location('Entering: ' || l_proc, 10);
1879: END IF;
1880:
1881: IF hr_multi_message.no_exclusive_error
1882: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID'
1883: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.PO_LINE_ID'
1884: )
1885: THEN
1886:
1879: END IF;
1880:
1881: IF hr_multi_message.no_exclusive_error
1882: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID'
1883: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.PO_LINE_ID'
1884: )
1885: THEN
1886:
1887: --
1998: hr_utility.set_location('Entering: ' || l_proc, 10);
1999: END IF;
2000:
2001: IF hr_multi_message.no_exclusive_error
2002: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID'
2003: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID'
2004: ,p_check_column3 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID'
2005: )
2006: THEN
1999: END IF;
2000:
2001: IF hr_multi_message.no_exclusive_error
2002: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID'
2003: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID'
2004: ,p_check_column3 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID'
2005: )
2006: THEN
2007:
2000:
2001: IF hr_multi_message.no_exclusive_error
2002: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ID'
2003: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_SITE_ID'
2004: ,p_check_column3 => 'PER_ALL_ASSIGNMENTS_F.PO_HEADER_ID'
2005: )
2006: THEN
2007:
2008: --
2106: hr_utility.set_location('Entering: ' || l_proc, 10);
2107: END IF;
2108:
2109: IF hr_multi_message.no_exclusive_error
2110: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.JOB_ID'
2111: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.PO_LINE_ID'
2112: )
2113: THEN
2114:
2107: END IF;
2108:
2109: IF hr_multi_message.no_exclusive_error
2110: (p_check_column1 => 'PER_ALL_ASSIGNMENTS_F.JOB_ID'
2111: ,p_check_column2 => 'PER_ALL_ASSIGNMENTS_F.PO_LINE_ID'
2112: )
2113: THEN
2114:
2115: --
2180: -- |----------------------< chk_vendor_assignment_number >-------------------|
2181: -- ---------------------------------------------------------------------------
2182: --
2183: PROCEDURE chk_vendor_assignment_number
2184: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2185: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2186: ,p_vendor_assignment_number IN per_all_assignments_f.vendor_assignment_number%TYPE
2187: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2188: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2181: -- ---------------------------------------------------------------------------
2182: --
2183: PROCEDURE chk_vendor_assignment_number
2184: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2185: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2186: ,p_vendor_assignment_number IN per_all_assignments_f.vendor_assignment_number%TYPE
2187: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2188: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2189: ,p_effective_date IN DATE) IS
2182: --
2183: PROCEDURE chk_vendor_assignment_number
2184: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2185: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2186: ,p_vendor_assignment_number IN per_all_assignments_f.vendor_assignment_number%TYPE
2187: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2188: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2189: ,p_effective_date IN DATE) IS
2190: --
2184: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2185: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2186: ,p_vendor_assignment_number IN per_all_assignments_f.vendor_assignment_number%TYPE
2187: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2188: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2189: ,p_effective_date IN DATE) IS
2190: --
2191: l_proc VARCHAR2(72):= g_package||'chk_vendor_assignment_number';
2192: l_api_updating BOOLEAN;
2243: --
2244: WHEN app_exception.application_exception THEN
2245: --
2246: IF hr_multi_message.exception_add
2247: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_ASSIGNMENT_NUMBER') THEN
2248: --
2249: hr_utility.set_location(' Leaving:'|| l_proc, 998);
2250: --
2251: RAISE;
2260: -- |-------------------------< chk_vendor_employee_number >-------------------|
2261: -- ---------------------------------------------------------------------------
2262: --
2263: PROCEDURE chk_vendor_employee_number
2264: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2265: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2266: ,p_vendor_employee_number IN per_all_assignments_f.vendor_employee_number%TYPE
2267: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2268: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2261: -- ---------------------------------------------------------------------------
2262: --
2263: PROCEDURE chk_vendor_employee_number
2264: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2265: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2266: ,p_vendor_employee_number IN per_all_assignments_f.vendor_employee_number%TYPE
2267: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2268: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2269: ,p_effective_date IN DATE) IS
2262: --
2263: PROCEDURE chk_vendor_employee_number
2264: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2265: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2266: ,p_vendor_employee_number IN per_all_assignments_f.vendor_employee_number%TYPE
2267: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2268: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2269: ,p_effective_date IN DATE) IS
2270: --
2264: (p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2265: ,p_assignment_type IN per_all_assignments_f.assignment_type%TYPE
2266: ,p_vendor_employee_number IN per_all_assignments_f.vendor_employee_number%TYPE
2267: ,p_business_group_id IN per_assignments_f.business_group_id%TYPE
2268: ,p_object_version_number IN per_all_assignments_f.object_version_number%TYPE
2269: ,p_effective_date IN DATE) IS
2270: --
2271: l_proc VARCHAR2(72) := g_package||'chk_vendor_employee_number';
2272: l_api_updating BOOLEAN;
2323: --
2324: WHEN app_exception.application_exception THEN
2325: --
2326: IF hr_multi_message.exception_add
2327: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.VENDOR_EMPLOYEE_NUMBER') THEN
2328: --
2329: hr_utility.set_location(' Leaving:'|| l_proc, 998);
2330: --
2331: RAISE;
2342: --
2343:
2344:
2345: procedure chk_work_at_home
2346: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2347: ,p_work_at_home IN per_all_assignments_f.work_at_home%TYPE
2348: ,p_effective_date IN DATE
2349: ,p_validation_start_date IN DATE
2350: ,P_VALIDATION_END_DATE IN DATE
2343:
2344:
2345: procedure chk_work_at_home
2346: ( p_assignment_id IN per_all_assignments_f.assignment_id%TYPE
2347: ,p_work_at_home IN per_all_assignments_f.work_at_home%TYPE
2348: ,p_effective_date IN DATE
2349: ,p_validation_start_date IN DATE
2350: ,P_VALIDATION_END_DATE IN DATE
2351: ) IS
2389: hr_utility.set_location('Leaving: '||l_proc,100);
2390: exception
2391: when app_exception.application_exception then
2392: if hr_multi_message.exception_add
2393: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.WORK_AT_HOME'
2394: ) then
2395: hr_utility.set_location(' Leaving:'|| l_proc, 110);
2396: raise;
2397: end if;
2402: -- |--------------------< chk_grade_ladder_pgm_id >---------------------------|
2403: -- ---------------------------------------------------------------------------
2404: --
2405: procedure chk_grade_ladder_pgm_id
2406: ( p_grade_id in per_all_assignments_f.grade_id%TYPE
2407: ,p_grade_ladder_pgm_id in per_all_assignments_f.grade_ladder_pgm_id%TYPE
2408: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
2409: ,p_effective_date in date
2410: ) IS
2403: -- ---------------------------------------------------------------------------
2404: --
2405: procedure chk_grade_ladder_pgm_id
2406: ( p_grade_id in per_all_assignments_f.grade_id%TYPE
2407: ,p_grade_ladder_pgm_id in per_all_assignments_f.grade_ladder_pgm_id%TYPE
2408: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
2409: ,p_effective_date in date
2410: ) IS
2411:
2404: --
2405: procedure chk_grade_ladder_pgm_id
2406: ( p_grade_id in per_all_assignments_f.grade_id%TYPE
2407: ,p_grade_ladder_pgm_id in per_all_assignments_f.grade_ladder_pgm_id%TYPE
2408: ,p_business_group_id in per_all_assignments_f.business_group_id%TYPE
2409: ,p_effective_date in date
2410: ) IS
2411:
2412: --
2520: hr_utility.set_location('Leaving: '||l_proc,100);
2521: exception
2522: when app_exception.application_exception then
2523: if hr_multi_message.exception_add
2524: (p_associated_column1 => 'PER_ALL_ASSIGNMENTS_F.GRADE_LADDER_PGM_ID'
2525: ) then
2526: hr_utility.set_location(' Leaving:'|| l_proc, 110);
2527: raise;
2528: end if;