[Home] [Help]
155: --
156: l_proc varchar2(10) := 'update_row';
157: --
158: begin
159: g_debug := hr_utility.debug_enabled; -- get debug status
160: IF g_debug THEN
161: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
162: END IF;
163: --
157: --
158: begin
159: g_debug := hr_utility.debug_enabled; -- get debug status
160: IF g_debug THEN
161: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
162: END IF;
163: --
164: -- p_status has the Value of where the code should start on re-entry.
165: -- on startup = 'BEGIN'( First time called from form)
190: if ((p_hire_date <> p_s_hire_date)
191: and (p_system_person_type = p_s_system_person_type))
192: then
193: IF g_debug THEN
194: hr_utility.set_location(g_package || l_proc, 10);
195: END IF;
196: per_people4_pkg.check_not_supervisor(p_person_id
197: ,p_hire_date
198: ,p_s_hire_date);
197: ,p_hire_date
198: ,p_s_hire_date);
199: end if;
200: IF g_debug THEN
201: hr_utility.set_location(g_package || l_proc, 20);
202: END IF;
203: begin
204: select pps.period_of_service_id
205: into l_period_of_service_id
213: -- If no data found and a previous hire date existed
214: -- then raise an error;
215: --
216: if p_s_hire_date is not null then
217: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
218: hr_utility.set_message_token('PROCEDURE','Update_row');
219: hr_utility.raise_error;
220: end if;
221: end;
214: -- then raise an error;
215: --
216: if p_s_hire_date is not null then
217: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
218: hr_utility.set_message_token('PROCEDURE','Update_row');
219: hr_utility.raise_error;
220: end if;
221: end;
222: --
215: --
216: if p_s_hire_date is not null then
217: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
218: hr_utility.set_message_token('PROCEDURE','Update_row');
219: hr_utility.raise_error;
220: end if;
221: end;
222: --
223: -- check the integrity of the date change.
223: -- check the integrity of the date change.
224: -- Date may come in between a person type change.
225: --
226: IF g_debug THEN
227: hr_utility.set_location(g_package || l_proc, 30);
228: END IF;
229: hr_date_chk.check_hire_ref_int(p_person_id
230: ,p_business_group_id
231: ,l_period_of_service_id
241: --
242: -- VT 08/13/96
243: if p_session_date <> p_effective_start_date then
244: IF g_debug THEN
245: hr_utility.set_location(g_package || l_proc, 40);
246: END IF;
247: per_people9_pkg.update_old_person_row(p_person_id =>p_person_id
248: ,p_session_date => p_session_date
249: ,p_effective_start_date=>p_effective_start_date);
255: -- and whether p_employee_number and p_applicant_number
256: -- are null.
257: --
258: IF g_debug THEN
259: hr_utility.set_location(g_package || l_proc, 50);
260: END IF;
261: open csr_partyId_details; -- Enh 3299580
262: fetch csr_partyId_details into l_party_id;
263: close csr_partyId_details;
262: fetch csr_partyId_details into l_party_id;
263: close csr_partyId_details;
264: --
265: IF g_debug THEN
266: hr_utility.set_location(g_package || l_proc, 60);
267: END IF;
268: hr_person.generate_number(p_current_employee_flag
269: ,p_current_applicant_flag
270: ,NULL --p_current_npw_flag
284: -- Test current numbers are not used by
285: -- the system already.
286: --
287: IF g_debug THEN
288: hr_utility.set_location(g_package || l_proc, 70);
289: END IF;
290: hr_person.validate_unique_number(p_person_id =>p_person_id
291: , p_business_group_id => p_business_group_id
292: , p_employee_number => p_employee_number
324: --
325: -- Ensure there are no future applicant assignments
326: --
327: IF g_debug THEN
328: hr_utility.set_location(g_package || l_proc, 80);
329: END IF;
330: per_people3_pkg.check_future_apl(p_person_id => p_person_id
331: ,p_hire_date => greatest(p_hire_date
332: ,p_effective_start_date));
335: -- assignment.
336: --
337: -- VT 08/13/96
338: IF g_debug THEN
339: hr_utility.set_location(g_package || l_proc, 90);
340: END IF;
341: per_people9_pkg.insert_applicant_rows(p_person_id => p_person_id
342: ,p_effective_start_date => p_effective_start_date
343: ,p_effective_end_date => p_effective_end_date
375: per_people4_pkg.check_rehire(p_person_id
376: ,p_hire_date);
377: end if;
378: IF g_debug THEN
379: hr_utility.set_location(g_package || l_proc, 100);
380: END IF;
381: per_people4_pkg.check_future_changes(p_person_id
382: ,p_effective_start_date);
383: --
383: --
384: -- Ensure there are no future applicant assignments
385: --
386: IF g_debug THEN
387: hr_utility.set_location(g_package || l_proc, 110);
388: END IF;
389: per_people3_pkg.check_future_apl(p_person_id => p_person_id
390: ,p_hire_date => greatest(p_hire_date
391: ,p_effective_start_date));
394: -- rows.
395: --
396: -- VT 08/13/96
397: IF g_debug THEN
398: hr_utility.set_location(g_package || l_proc, 120);
399: END IF;
400: per_people9_pkg.insert_employee_rows(p_person_id => p_person_id
401: ,p_effective_start_date => p_effective_start_date
402: ,p_effective_end_date => p_effective_end_date
430: ,p_person_id
431: ,p_business_group_id
432: ,p_effective_start_date) then
433: fnd_message.set_name('PAY','HR_7193_PER_FUT_TYPE_EXISTS');
434: hr_utility.raise_error;
435: end if;
436: --
437: -- Ensure there are no future applicant assignments
438: --
436: --
437: -- Ensure there are no future applicant assignments
438: --
439: IF g_debug THEN
440: hr_utility.set_location(g_package || l_proc, 130);
441: END IF;
442: per_people3_pkg.check_future_apl(p_person_id => p_person_id
443: ,p_hire_date => greatest(p_hire_date
444: ,p_effective_start_date));
446: -- Check if the person have open term_assignment records. These can be
447: -- found by checking if the person have a periods_of_service with
448: -- no FPD and a value for ATD. Bug 2881076
449: IF g_debug THEN
450: hr_utility.set_location(g_package || l_proc, 140);
451: END IF;
452: per_people12_pkg.check_rehire(p_person_id
453: ,p_hire_date);
454: --
464: -- on return l_vacancy_id starts the cursor at the
465: -- relevant point.
466: --
467: IF g_debug THEN
468: hr_utility.set_location(g_package || l_proc, 150);
469: END IF;
470: per_people3_pkg.vacancy_chk(p_person_id => p_person_id
471: ,p_fire_warning => l_fire_warning
472: ,p_vacancy_id => p_vacancy_id);
489: end if;
490: end if;
491: if p_status = 'END_BOOKINGS' then
492: IF g_debug THEN
493: hr_utility.set_location(g_package || l_proc, 160);
494: END IF;
495: hrhirapl.end_bookings(p_person_id
496: , p_business_group_id
497: , p_hire_date);
502: --
503: -- Get all the accepted applicants
504: --
505: IF g_debug THEN
506: hr_utility.set_location(g_package || l_proc, 170);
507: END IF;
508: per_people3_pkg.get_accepted_appls(p_person_id => p_person_id
509: ,p_num_accepted_appls => l_num_accepted_appls
510: ,p_new_primary_id =>p_new_primary_id);
511: --
512: -- Get all current applicant assignments.
513: --
514: IF g_debug THEN
515: hr_utility.set_location(g_package || l_proc, 180);
516: END IF;
517: per_people3_pkg.get_all_current_appls(p_person_id => p_person_id
518: ,p_num_appls => l_num_appls);
519: --
525: -- then there is an error. Otherwise go around end_accepted
526: -- to multiple contracts.
527: --
528: if l_num_accepted_appls = l_num_appls then
529: hr_utility.set_message('801','HR_6791_EMP_APL_NO_ASG');
530: hr_utility.raise_error;
531: else
532: p_status := 'MULTIPLE_CONTRACTS';-- Set next re-entry point.
533: end if;
526: -- to multiple contracts.
527: --
528: if l_num_accepted_appls = l_num_appls then
529: hr_utility.set_message('801','HR_6791_EMP_APL_NO_ASG');
530: hr_utility.raise_error;
531: else
532: p_status := 'MULTIPLE_CONTRACTS';-- Set next re-entry point.
533: end if;
534: --
535: -- Number of accepted does not equal number of current then
536: -- end_accepted.
537: --
538: elsif l_num_accepted_appls <> l_num_appls then
539: hr_utility.set_message('801','HR_EMP_UNACCEPTED_APPL');
540: p_status := 'END_UNACCEPTED'; -- next code re-entry,
541: return;
542: --
543: -- Otherwise ignore end_accepted.
551: --
552: -- End the unaccepted assignments.
553: --
554: IF g_debug THEN
555: hr_utility.set_location(g_package || l_proc, 190);
556: END IF;
557: hrhirapl.end_unaccepted_app_assign(p_person_id
558: ,p_business_group_id
559: ,p_legislation_code
562: end if; -- End of END_UNACCEPTED
563: --
564: -- Test to see if multiple contracts are a possibility.
565: --
566: hr_utility.set_location('update_row - b4 MULTIPLE_CONTRACTS',1);
567: if p_status = 'MULTIPLE_CONTRACTS' then -- MULTIPLE_CONTRACTS
568: if l_num_accepted_appls >1 then
569: hr_utility.set_message('801','HR_EMP_MULTIPLE_CONTRACTS');
570: return;
565: --
566: hr_utility.set_location('update_row - b4 MULTIPLE_CONTRACTS',1);
567: if p_status = 'MULTIPLE_CONTRACTS' then -- MULTIPLE_CONTRACTS
568: if l_num_accepted_appls >1 then
569: hr_utility.set_message('801','HR_EMP_MULTIPLE_CONTRACTS');
570: return;
571: else
572: p_status := 'CHOOSE_VAC'; -- next code re-entry.
573: end if;
575: --
576: -- Choose whether to change the Primary assignment
577: -- and which vacancy is to be the primary if so.
578: --
579: hr_utility.set_location('update_row - b4 CHOOSE_VAC',1);
580: if p_status = 'CHOOSE_VAC' then
581: return;
582: end if; --End of CHOOSE_VAC
583: --
584: -- Can now hire the Person
585: -- Note HIRE status can only be set from client form
586: -- as interaction is generally required.
587: --
588: hr_utility.set_location('update_row - b4 HIRE',1);
589: if p_status = 'HIRE' then
590: --
591: -- If new is Emp and old was Emp_apl
592: -- then l_emp_emp_apl is set to Y
600: --
601: -- Run the employ_applicant stored procedure
602: --
603: IF g_debug THEN
604: hr_utility.set_location(g_package || l_proc, 200);
605: END IF;
606: hrhirapl.employ_applicant(p_person_id
607: ,p_business_group_id
608: ,p_legislation_code
618: ,l_set_of_books_id
619: ,l_employ_emp_apl
620: ,NULL
621: ,p_session_date); -- Bug 3564129
622: hr_utility.set_location('update_row - after hrhirapl',2);
623: end if; -- End of HIRE.
624: end if; -- Of Person type change checks.
625: --
626: IF g_debug THEN
623: end if; -- End of HIRE.
624: end if; -- Of Person type change checks.
625: --
626: IF g_debug THEN
627: hr_utility.set_location(g_package || l_proc, 210);
628: END IF;
629: update per_people_f ppf
630: set ppf.person_id = p_person_id
631: ,ppf.effective_start_date = p_effective_start_date
731: ,ppf.per_information30 = p_i30
732: where ppf.rowid = p_rowid;
733: --
734: if sql%rowcount <1 then
735: hr_utility.set_message(801,'HR_6001_ALL_MANDATORY_FIELD');
736: hr_utility.set_message_token('MISSING_FIELD','rowid is'||p_rowid);
737: hr_utility.raise_error;
738: end if;
739: --
732: where ppf.rowid = p_rowid;
733: --
734: if sql%rowcount <1 then
735: hr_utility.set_message(801,'HR_6001_ALL_MANDATORY_FIELD');
736: hr_utility.set_message_token('MISSING_FIELD','rowid is'||p_rowid);
737: hr_utility.raise_error;
738: end if;
739: --
740: -- Tests required post-update
733: --
734: if sql%rowcount <1 then
735: hr_utility.set_message(801,'HR_6001_ALL_MANDATORY_FIELD');
736: hr_utility.set_message_token('MISSING_FIELD','rowid is'||p_rowid);
737: hr_utility.raise_error;
738: end if;
739: --
740: -- Tests required post-update
741: --
738: end if;
739: --
740: -- Tests required post-update
741: --
742: hr_utility.set_location('update_row - after update',1);
743: --
744: -- Has the Date of Birth changed?
745: --
746: if p_date_of_birth is null and
753: -- code for Change of Personal qualifying conditions.
754: --
755: --
756: IF g_debug THEN
757: hr_utility.set_location(g_package || l_proc, 220);
758: END IF;
759: per_people3_pkg.run_alu_ee(p_alu_mode => 'CHANGE_PQC'
760: ,p_business_group_id=>p_business_group_id
761: ,p_person_id =>p_person_id
763: ,p_start_date => p_last_update_date
764: );
765: end if;
766: --
767: hr_utility.set_location('update_row - after update',2);
768: --
769: -- test if hire_date has changed. and system person type has not.
770: --
771: if ((p_current_employee_flag = 'Y')
775: -- Update the period of service for the employee
776: --
777: --
778: IF g_debug THEN
779: hr_utility.set_location(g_package || l_proc, 230);
780: END IF;
781: per_people3_pkg.update_period(p_person_id =>p_person_id
782: ,p_hire_date => p_s_hire_date
783: ,p_new_hire_date =>p_hire_date);
781: per_people3_pkg.update_period(p_person_id =>p_person_id
782: ,p_hire_date => p_s_hire_date
783: ,p_new_hire_date =>p_hire_date);
784: --
785: hr_utility.set_location('update_row - after update',3);
786: --
787: -- Update the hire records i.e
788: -- assignment etc.
789: --
788: -- assignment etc.
789: --
790: --
791: IF g_debug THEN
792: hr_utility.set_location(g_package || l_proc, 240);
793: END IF;
794: hr_date_chk.update_hire_records(p_person_id
795: ,p_applicant_number
796: ,p_hire_date
798: ,p_last_updated_by
799: ,p_last_update_login);
800: --
801: IF g_debug THEN
802: hr_utility.set_location(g_package || l_proc, 250);
803: END IF;
804: open get_pay_proposal;
805: fetch get_pay_proposal into v_dummy;
806: if get_pay_proposal%FOUND
807: then
808: close get_pay_proposal;
809: begin
810: IF g_debug THEN
811: hr_utility.set_location(g_package || l_proc, 260);
812: END IF;
813:
814: update per_pay_proposals
815: set change_date = p_hire_date
827: raise NO_DATA_FOUND;
828: end if;
829: exception
830: when NO_DATA_FOUND then
831: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
832: hr_utility.set_message_token('PROCEDURE','Update_row');
833: hr_utility.set_message_token('STEP','4');
834: hr_utility.raise_error;
835: end;
828: end if;
829: exception
830: when NO_DATA_FOUND then
831: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
832: hr_utility.set_message_token('PROCEDURE','Update_row');
833: hr_utility.set_message_token('STEP','4');
834: hr_utility.raise_error;
835: end;
836: else
829: exception
830: when NO_DATA_FOUND then
831: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
832: hr_utility.set_message_token('PROCEDURE','Update_row');
833: hr_utility.set_message_token('STEP','4');
834: hr_utility.raise_error;
835: end;
836: else
837: close get_pay_proposal;
830: when NO_DATA_FOUND then
831: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
832: hr_utility.set_message_token('PROCEDURE','Update_row');
833: hr_utility.set_message_token('STEP','4');
834: hr_utility.raise_error;
835: end;
836: else
837: close get_pay_proposal;
838: end if;
835: end;
836: else
837: close get_pay_proposal;
838: end if;
839: hr_utility.set_location('update_row - after update',5);
840: --
841: -- Run the assignment_link_usages and Element_entry
842: -- code for Assignment Criteria.
843: --
841: -- Run the assignment_link_usages and Element_entry
842: -- code for Assignment Criteria.
843: --
844: IF g_debug THEN
845: hr_utility.set_location(g_package || l_proc, 270);
846: END IF;
847: per_people3_pkg.run_alu_ee(p_alu_mode => 'ASG_CRITERIA'
848: ,p_business_group_id=>p_business_group_id
849: ,p_person_id =>p_person_id
855: --
856: p_status := 'END'; -- Status required to end update loop on server
857: --
858: IF g_debug THEN
859: hr_utility.set_location('Leaving: '|| g_package || l_proc, 280);
860: END IF;
861: end update_row;
862: procedure check_future_changes(p_person_id NUMBER
863: ,p_effective_start_date DATE)
878: --
879: l_proc varchar2(20) := 'check_future_changes';
880: --
881: begin
882: g_debug := hr_utility.debug_enabled; -- get debug status
883: IF g_debug THEN
884: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
885: END IF;
886: open future_exists;
880: --
881: begin
882: g_debug := hr_utility.debug_enabled; -- get debug status
883: IF g_debug THEN
884: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
885: END IF;
886: open future_exists;
887: fetch future_exists into l_dummy;
888: if future_exists%found then
890: app_exception.raise_exception;
891: end if;
892: close future_exists;
893: IF g_debug THEN
894: hr_utility.set_location('Leaving: '|| g_package || l_proc, 10);
895: END IF;
896: end;
897: --
898: procedure check_not_supervisor(p_person_id NUMBER
912: --
913: l_proc varchar2(20) := 'check_not_supervisor';
914: --
915: begin
916: g_debug := hr_utility.debug_enabled; -- get debug status
917: IF g_debug THEN
918: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
919: END IF;
920: open supervisor;
914: --
915: begin
916: g_debug := hr_utility.debug_enabled; -- get debug status
917: IF g_debug THEN
918: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
919: END IF;
920: open supervisor;
921: fetch supervisor into l_dummy;
922: if supervisor%FOUND then
925: app_exception.raise_exception;
926: end if;
927: close supervisor;
928: IF g_debug THEN
929: hr_utility.set_location('Leaving: '|| g_package || l_proc, 10);
930: END IF;
931: end;
932: --
933: procedure check_rehire(p_person_id NUMBER
959: --
960: l_proc varchar2(12) := 'check_rehire';
961: --
962: begin
963: g_debug := hr_utility.debug_enabled; -- get debug status
964: IF g_debug THEN
965: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
966: END IF;
967: --
961: --
962: begin
963: g_debug := hr_utility.debug_enabled; -- get debug status
964: IF g_debug THEN
965: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
966: END IF;
967: --
968: -- Check if old PPS row exists
969: --
978: -- is less than current hire date
979: -- if not error;
980: --
981: IF g_debug THEN
982: hr_utility.set_location(g_package || l_proc, 10);
983: END IF;
984: open pps_not_ended;
985: fetch pps_not_ended into v_dummy_fpd;
986: if pps_not_ended%FOUND then
985: fetch pps_not_ended into v_dummy_fpd;
986: if pps_not_ended%FOUND then
987: close pps_not_ended;
988: if v_dummy_fpd is null then
989: hr_utility.set_message('800','HR_51032_EMP_PREV_FPD_OPEN');
990: else
991: hr_utility.set_message('800','PER_289308_FUTURE_ENDED_FPD');
992: end if;
993: hr_utility.raise_error;
987: close pps_not_ended;
988: if v_dummy_fpd is null then
989: hr_utility.set_message('800','HR_51032_EMP_PREV_FPD_OPEN');
990: else
991: hr_utility.set_message('800','PER_289308_FUTURE_ENDED_FPD');
992: end if;
993: hr_utility.raise_error;
994: end if;
995: close pps_not_ended;
989: hr_utility.set_message('800','HR_51032_EMP_PREV_FPD_OPEN');
990: else
991: hr_utility.set_message('800','PER_289308_FUTURE_ENDED_FPD');
992: end if;
993: hr_utility.raise_error;
994: end if;
995: close pps_not_ended;
996: else
997: close old_pps_exists;
996: else
997: close old_pps_exists;
998: end if;
999: IF g_debug THEN
1000: hr_utility.set_location('Leaving.' || g_package || l_proc, 20);
1001: END IF;
1002: end;
1003: --
1004: procedure check_birth_date(p_person_id NUMBER)
1023: --
1024: if get_payroll%FOUND
1025: then
1026: close get_payroll;
1027: hr_utility.set_message('801','HR_7950_PPM_NULL_DOB');
1028: hr_utility.raise_error;
1029: else
1030: close get_payroll;
1031: end if;
1024: if get_payroll%FOUND
1025: then
1026: close get_payroll;
1027: hr_utility.set_message('801','HR_7950_PPM_NULL_DOB');
1028: hr_utility.raise_error;
1029: else
1030: close get_payroll;
1031: end if;
1032: end;
1077: --
1078: l_proc varchar2(21) := 'original_date_of_hire';
1079: --
1080: begin
1081: g_debug := hr_utility.debug_enabled; -- get debug status
1082:
1083: IF g_debug THEN
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1080: begin
1081: g_debug := hr_utility.debug_enabled; -- get debug status
1082:
1083: IF g_debug THEN
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1081: g_debug := hr_utility.debug_enabled; -- get debug status
1082:
1083: IF g_debug THEN
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1082:
1083: IF g_debug THEN
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1090: hr_utility.Set_location('p_period_of_service_id: '|| p_period_of_service_id, 5);
1083: IF g_debug THEN
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1090: hr_utility.Set_location('p_period_of_service_id: '|| p_period_of_service_id, 5);
1091: END IF;
1084: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1090: hr_utility.Set_location('p_period_of_service_id: '|| p_period_of_service_id, 5);
1091: END IF;
1092: --
1085: hr_utility.Set_location('p_original_date_of_hire: '|| p_original_date_of_hire, 5);
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1090: hr_utility.Set_location('p_period_of_service_id: '|| p_period_of_service_id, 5);
1091: END IF;
1092: --
1093: p_orig_hire_warning := FALSE;
1086: hr_utility.Set_location('p_hire_date: '|| p_hire_date, 5);
1087: hr_utility.Set_location('p_business_group_id: '|| p_business_group_id, 5);
1088: hr_utility.Set_location('p_person_type_id: '|| p_person_type_id, 5);
1089: hr_utility.Set_location('p_system_person_type: '|| p_system_person_type, 5);
1090: hr_utility.Set_location('p_period_of_service_id: '|| p_period_of_service_id, 5);
1091: END IF;
1092: --
1093: p_orig_hire_warning := FALSE;
1094: --
1110: CLOSE csr_person_type;
1111: -- End changes for bug 12669959
1112:
1113: IF g_debug THEN
1114: hr_utility.Set_location('l_period_of_service_id'||l_period_of_service_id, 10);
1115: END IF;
1116:
1117: IF p_hire_date IS NOT NULL THEN
1118: IF l_period_of_service_id IS NOT NULL
1121: ----
1122: IF p_original_date_of_hire > p_hire_date THEN
1123:
1124: IF g_debug THEN
1125: hr_utility.Set_location('PER_52474_PER_ORIG_ST_DATE ', 20);
1126: END IF;
1127:
1128: p_orig_hire_warning := true;
1129:
1126: END IF;
1127:
1128: p_orig_hire_warning := true;
1129:
1130: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1131: hr_utility.raise_error;
1132:
1133: END IF;
1134: ----
1127:
1128: p_orig_hire_warning := true;
1129:
1130: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1131: hr_utility.raise_error;
1132:
1133: END IF;
1134: ----
1135: ELSE
1141: -----
1142: IF p_original_date_of_hire > l_earliest_date THEN
1143:
1144: IF g_debug THEN
1145: hr_utility.Set_location('PER_52474_PER_ORIG_ST_DATE ', 30);
1146: END IF;
1147:
1148: p_orig_hire_warning := true;
1149:
1146: END IF;
1147:
1148: p_orig_hire_warning := true;
1149:
1150: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1151: hr_utility.raise_error;
1152:
1153: END IF;
1154: -----
1147:
1148: p_orig_hire_warning := true;
1149:
1150: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1151: hr_utility.raise_error;
1152:
1153: END IF;
1154: -----
1155: END IF;
1161: -----
1162: IF p_original_date_of_hire > l_earliest_date THEN
1163:
1164: IF g_debug THEN
1165: hr_utility.Set_location('PER_52474_PER_ORIG_ST_DATE ', 40);
1166: END IF;
1167:
1168: p_orig_hire_warning := true;
1169:
1166: END IF;
1167:
1168: p_orig_hire_warning := true;
1169:
1170: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1171: hr_utility.raise_error;
1172:
1173: END IF;
1174: -----
1167:
1168: p_orig_hire_warning := true;
1169:
1170: hr_utility.Set_message(800, 'PER_52474_PER_ORIG_ST_DATE');
1171: hr_utility.raise_error;
1172:
1173: END IF;
1174: -----
1175: END IF;
1183: --
1184: if p_system_person_type in ('EMP','EMP_APL','EX_EMP','EX_EMP_APL') then
1185: --
1186: if p_hire_date is not null and p_original_date_of_hire > p_hire_date then
1187: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
1188: hr_utility.raise_error;
1189: --
1190: elsif p_person_id is not null then
1191:
1184: if p_system_person_type in ('EMP','EMP_APL','EX_EMP','EX_EMP_APL') then
1185: --
1186: if p_hire_date is not null and p_original_date_of_hire > p_hire_date then
1187: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
1188: hr_utility.raise_error;
1189: --
1190: elsif p_person_id is not null then
1191:
1192: open csr_earliest_date;
1193: fetch csr_earliest_date into l_earliest_date;
1194:
1195:
1196: if p_original_date_of_hire > l_earliest_date then
1197: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
1198: hr_utility.raise_error;
1199: end if;
1200: close csr_earliest_date;
1201: end if;
1194:
1195:
1196: if p_original_date_of_hire > l_earliest_date then
1197: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
1198: hr_utility.raise_error;
1199: end if;
1200: close csr_earliest_date;
1201: end if;
1202: --
1207:
1208: -- End changes for bug 11062773
1209:
1210: IF g_debug THEN
1211: hr_utility.set_location('Leaving: '|| g_package || l_proc, 10);
1212: END IF;
1213: end;
1214: --
1215: