[Home] [Help]
34: l_security_group_id number;
35: l_proc varchar2(72) ;
36: --
37: begin
38: g_debug := hr_utility.debug_enabled;
39: if g_debug then
40: l_proc := g_package||'set_security_group_id';
41: hr_utility.set_location('Entering:'|| l_proc, 10);
42: end if;
37: begin
38: g_debug := hr_utility.debug_enabled;
39: if g_debug then
40: l_proc := g_package||'set_security_group_id';
41: hr_utility.set_location('Entering:'|| l_proc, 10);
42: end if;
43: --
44: -- Ensure that all the mandatory parameter are not null
45: --
53: close csr_sec_grp;
54: --
55: -- The primary key is invalid therefore we must error
56: --
57: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
58: hr_utility.raise_error;
59: end if;
60: close csr_sec_grp;
61: --
54: --
55: -- The primary key is invalid therefore we must error
56: --
57: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
58: hr_utility.raise_error;
59: end if;
60: close csr_sec_grp;
61: --
62: -- Set the security_group_id in CLIENT_INFO
65: (p_security_group_id => l_security_group_id
66: );
67: --
68: if g_debug then
69: hr_utility.set_location(' Leaving:'|| l_proc, 20);
70: end if;
71: --
72: end set_security_group_id;
73: --
107:
108: Begin
109: if g_debug then
110: l_proc :='get_validation_date';
111: hr_utility.set_location('Entering:'||l_proc, 1);
112: end if;
113: --
114: -- Check mandatory parameters have been set
115: --
119: ,p_argument_value => p_date_effective
120: );
121: --
122: if g_debug then
123: hr_utility.set_location(l_proc, 10);
124: end if;
125: --
126: hr_api.mandatory_arg_error
127: (p_api_name => l_proc
129: ,p_argument_value => p_validation_start_date
130: );
131: --
132: if g_debug then
133: hr_utility.set_location(l_proc, 20);
134: end if;
135: --
136: -- If this is the first row then date_effective must be used for validation
137: -- as this is the date a position becomes effective
138: -- for changes in any other row, use validation_start_Date.
139: --
140: if p_date_effective < p_validation_start_date then
141: if g_debug then
142: hr_utility.set_location(l_proc, 30);
143: end if;
144: p_validation_Date := p_validation_start_Date;
145: else
146: if g_debug then
143: end if;
144: p_validation_Date := p_validation_start_Date;
145: else
146: if g_debug then
147: hr_utility.set_location(l_proc, 40);
148: end if;
149: p_validation_date := p_date_effective;
150: end if;
151: --
149: p_validation_date := p_date_effective;
150: end if;
151: --
152: if g_debug then
153: hr_utility.set_location(l_proc, 100);
154: end if;
155: --
156: End get_validation_date;
157: --
193: is
194: l_avail_status_start_date date;
195: begin
196: if current_org_prop_end_date < date_effective then
197: hr_utility.set_message(800,'PER_INVALID_ORG_PROP_END_DATE');
198: hr_utility.raise_error;
199: end if;
200: if current_job_prop_end_date < date_effective then
201: hr_utility.set_message(800,'PER_INVALID_JOB_PROP_END_DATE');
194: l_avail_status_start_date date;
195: begin
196: if current_org_prop_end_date < date_effective then
197: hr_utility.set_message(800,'PER_INVALID_ORG_PROP_END_DATE');
198: hr_utility.raise_error;
199: end if;
200: if current_job_prop_end_date < date_effective then
201: hr_utility.set_message(800,'PER_INVALID_JOB_PROP_END_DATE');
202: hr_utility.raise_error;
197: hr_utility.set_message(800,'PER_INVALID_ORG_PROP_END_DATE');
198: hr_utility.raise_error;
199: end if;
200: if current_job_prop_end_date < date_effective then
201: hr_utility.set_message(800,'PER_INVALID_JOB_PROP_END_DATE');
202: hr_utility.raise_error;
203: end if;
204:
205: l_avail_status_start_date := hr_general.DECODE_AVAIL_STATUS_START_DATE (
198: hr_utility.raise_error;
199: end if;
200: if current_job_prop_end_date < date_effective then
201: hr_utility.set_message(800,'PER_INVALID_JOB_PROP_END_DATE');
202: hr_utility.raise_error;
203: end if;
204:
205: l_avail_status_start_date := hr_general.DECODE_AVAIL_STATUS_START_DATE (
206: position_id
206: position_id
207: ,availability_status_id
208: ,p_effective_date ) ;
209: if avail_status_prop_end_date < nvl(l_avail_status_start_date,date_effective) then
210: hr_utility.set_message(800,'PER_INVALID_STATUS_PROP_END_DT');
211: hr_utility.raise_error;
212: end if;
213:
214: if earliest_hire_date < date_effective then
207: ,availability_status_id
208: ,p_effective_date ) ;
209: if avail_status_prop_end_date < nvl(l_avail_status_start_date,date_effective) then
210: hr_utility.set_message(800,'PER_INVALID_STATUS_PROP_END_DT');
211: hr_utility.raise_error;
212: end if;
213:
214: if earliest_hire_date < date_effective then
215: hr_utility.set_message(800,'PER_INVALID_EARLIEST_HIRE_DATE');
211: hr_utility.raise_error;
212: end if;
213:
214: if earliest_hire_date < date_effective then
215: hr_utility.set_message(800,'PER_INVALID_EARLIEST_HIRE_DATE');
216: hr_utility.raise_error;
217: end if;
218: if fill_by_date < nvl(earliest_hire_date, date_effective) then
219: hr_utility.set_message(800,'PER_INVALID_FILL_BY_DATE');
212: end if;
213:
214: if earliest_hire_date < date_effective then
215: hr_utility.set_message(800,'PER_INVALID_EARLIEST_HIRE_DATE');
216: hr_utility.raise_error;
217: end if;
218: if fill_by_date < nvl(earliest_hire_date, date_effective) then
219: hr_utility.set_message(800,'PER_INVALID_FILL_BY_DATE');
220: hr_utility.set_message_token('VALID_DATE',nvl(earliest_hire_date, date_effective));
215: hr_utility.set_message(800,'PER_INVALID_EARLIEST_HIRE_DATE');
216: hr_utility.raise_error;
217: end if;
218: if fill_by_date < nvl(earliest_hire_date, date_effective) then
219: hr_utility.set_message(800,'PER_INVALID_FILL_BY_DATE');
220: hr_utility.set_message_token('VALID_DATE',nvl(earliest_hire_date, date_effective));
221: hr_utility.raise_error;
222: end if;
223: if proposed_date_for_layoff < date_effective then
216: hr_utility.raise_error;
217: end if;
218: if fill_by_date < nvl(earliest_hire_date, date_effective) then
219: hr_utility.set_message(800,'PER_INVALID_FILL_BY_DATE');
220: hr_utility.set_message_token('VALID_DATE',nvl(earliest_hire_date, date_effective));
221: hr_utility.raise_error;
222: end if;
223: if proposed_date_for_layoff < date_effective then
224: hr_utility.set_message(800,'PER_INVALID_PROP_DT_FOR_LAYOFF');
217: end if;
218: if fill_by_date < nvl(earliest_hire_date, date_effective) then
219: hr_utility.set_message(800,'PER_INVALID_FILL_BY_DATE');
220: hr_utility.set_message_token('VALID_DATE',nvl(earliest_hire_date, date_effective));
221: hr_utility.raise_error;
222: end if;
223: if proposed_date_for_layoff < date_effective then
224: hr_utility.set_message(800,'PER_INVALID_PROP_DT_FOR_LAYOFF');
225: hr_utility.raise_error;
220: hr_utility.set_message_token('VALID_DATE',nvl(earliest_hire_date, date_effective));
221: hr_utility.raise_error;
222: end if;
223: if proposed_date_for_layoff < date_effective then
224: hr_utility.set_message(800,'PER_INVALID_PROP_DT_FOR_LAYOFF');
225: hr_utility.raise_error;
226: end if;
227: end chk_end_dates;
228: -- ---------------------------------------------------------------------------
221: hr_utility.raise_error;
222: end if;
223: if proposed_date_for_layoff < date_effective then
224: hr_utility.set_message(800,'PER_INVALID_PROP_DT_FOR_LAYOFF');
225: hr_utility.raise_error;
226: end if;
227: end chk_end_dates;
228: -- ---------------------------------------------------------------------------
229: -- |--------------------------< chg_date_effective >--------------------|
288: l_effective_date date;
289: l_date_effective date;
290: begin
291:
292: g_debug := hr_utility.debug_enabled;
293: if g_debug then
294: l_proc := g_package||'Chg_date_effective' ;
295: hr_utility.set_location('Entering'||l_proc, 10);
296: end if;
291:
292: g_debug := hr_utility.debug_enabled;
293: if g_debug then
294: l_proc := g_package||'Chg_date_effective' ;
295: hr_utility.set_location('Entering'||l_proc, 10);
296: end if;
297: p_chg_date_effective := FALSE ;
298: -- call to chk_availability_status_id is made to check wether the status transition is a valid transition or not.
299: -- if it is a valid transition only then control will be coming to the change in date_effective code
307: ,p_date_effective => l_date_effective
308: ,p_old_avail_status_id => p_old_avail_status_id
309: );
310: if g_debug then
311: hr_utility.set_location('after chk_avail_stat '||l_proc, 20);
312: end if;
313: -- depending upon the datetrack mode action has to be taken to find out
314: -- the change in date effective
315: if p_datetrack_mode = 'INSERT'
325: -- no. of active rows in the database for this position prior to
326: -- the effective start date is computed
327: --
328: if g_debug then
329: hr_utility.set_location('inside for action '||p_datetrack_mode||l_proc, 30);
330: end if;
331: open pos_active_rows(p_position_id,p_effective_start_date);
332: fetch pos_active_rows into l_active_rows ;
333: close pos_active_rows ;
342: else
343: -- check to find out the effective start date of the first row after current row
344: -- next active row's effective start date is fetched
345: if g_debug then
346: hr_utility.set_location('next row is to be found'||l_proc, 40);
347: end if;
348: open next_active_row(p_position_id,p_effective_start_date);
349: fetch next_active_row into l_next_active_date;
350: if next_active_row%found then
360: p_chg_date_effective := FALSE ;
361: end if;
362: elsif p_datetrack_mode = 'DELETE_NEXT_CHANGE' then
363: if g_debug then
364: hr_utility.set_location('inside for action '||p_datetrack_mode||l_proc, 50);
365: end if;
366: if p_date_effective < p_effective_start_date then
367: -- nothing should be done as first active row is not going to be deleted
368: null;
373: -- current row is active row itself, so nothing is to be changed
374: p_chg_date_effective := FALSE;
375: else
376: if g_debug then
377: hr_utility.set_location('valid active row searching'||l_proc, 60);
378: end if;
379: open valid_first_active_row(p_position_id,p_effective_end_date);
380: fetch valid_first_active_row into l_next_active_date ;
381: if valid_first_active_row%found then
390: or p_datetrack_mode = 'ZAP' then -- 'Purge' as seen on GUI
391: -- nothing is to be done in this case
392: p_chg_date_effective := FALSE ;
393: if g_debug then
394: hr_utility.set_location('inside for action '||p_datetrack_mode||l_proc, 70);
395: end if;
396: end if;
397: hr_utility.set_location('Leaving'||l_proc, 1000);
398: end chg_date_effective ;
393: if g_debug then
394: hr_utility.set_location('inside for action '||p_datetrack_mode||l_proc, 70);
395: end if;
396: end if;
397: hr_utility.set_location('Leaving'||l_proc, 1000);
398: end chg_date_effective ;
399:
400: -- ---------------------------------------------------------------------------
401: -- |-----------------------< chk_availability_status_id >--------------------|
485: end;
486: --
487: begin
488: --
489: g_debug := hr_utility.debug_enabled;
490: --
491: if g_debug then
492: l_proc := g_package||'chk_avail_stat';
493: --
597: open csr_present(p_position_id,p_object_version_number) ;
598: fetch csr_present into l_current_esd ;
599: close csr_present ;
600: if g_debug then
601: hr_utility.set_location('current row esd is'||l_current_esd||l_proc,111);
602: hr_utility.set_location('curr, ovn is'||p_object_version_number||l_proc,111);
603: end if;
604:
605: -- old rec value does not matter to us and previous and future
598: fetch csr_present into l_current_esd ;
599: close csr_present ;
600: if g_debug then
601: hr_utility.set_location('current row esd is'||l_current_esd||l_proc,111);
602: hr_utility.set_location('curr, ovn is'||p_object_version_number||l_proc,111);
603: end if;
604:
605: -- old rec value does not matter to us and previous and future
606: -- values are to be fetched from the database
613: open csr_future(p_position_id,l_current_esd) ;
614: fetch csr_future into l_future_esd ;
615: close csr_future ;
616: if g_debug then
617: hr_utility.set_location('deleted row esd is'||l_future_esd||l_proc,111);
618: end if;
619: open csr_future(p_position_id,l_future_esd) ;
620: fetch csr_future into l_future_esd ;
621: close csr_future ;
619: open csr_future(p_position_id,l_future_esd) ;
620: fetch csr_future into l_future_esd ;
621: close csr_future ;
622: if g_debug then
623: hr_utility.set_location('next row esd is'||l_future_esd||l_proc,111);
624: end if;
625:
626: -- corresponding to the previous and future records status is fetched
627: -- from the database
631: open csr_stat(p_position_id,l_future_esd,p_business_group_id) ;
632: fetch csr_stat into l_future_stat ;
633: close csr_stat ;
634: if g_debug then
635: hr_utility.set_location('next row stat is'||l_future_stat||l_proc,111);
636: end if;
637: elsif p_datetrack_mode = 'ZAP' then -- 'Purge' as seen on GUI
638: l_validation_reqd := false ;
639: end if;
637: elsif p_datetrack_mode = 'ZAP' then -- 'Purge' as seen on GUI
638: l_validation_reqd := false ;
639: end if;
640: if g_debug then
641: hr_utility.set_location(nvl(l_prev_stat,'NULL')||nvl(l_present_stat,'NULL')||nvl(l_future_stat,'NULL'),100);
642: hr_utility.set_location(p_datetrack_mode||l_proc ,100);
643: end if;
644: if l_validation_reqd = true then
645: l_count := chk_stat.count ;
638: l_validation_reqd := false ;
639: end if;
640: if g_debug then
641: hr_utility.set_location(nvl(l_prev_stat,'NULL')||nvl(l_present_stat,'NULL')||nvl(l_future_stat,'NULL'),100);
642: hr_utility.set_location(p_datetrack_mode||l_proc ,100);
643: end if;
644: if l_validation_reqd = true then
645: l_count := chk_stat.count ;
646: i := 1 ;
658: exit ;
659: end if;
660: end loop;
661: if l_return <> true then
662: hr_utility.set_message(800,'HR_NOT_VALID_STATUS_CHANGE');
663: hr_utility.raise_error;
664: end if;
665: end if;
666: /*
659: end if;
660: end loop;
661: if l_return <> true then
662: hr_utility.set_message(800,'HR_NOT_VALID_STATUS_CHANGE');
663: hr_utility.raise_error;
664: end if;
665: end if;
666: /*
667: -- code to stop change in availability status to active (Row is going to first active row )
669: if l_present_stat = 'ACTIVE' then
670: if l_prev_stat in ('NULL','PROPOSED') then
671: if p_effective_date <> p_date_effective then
672: -- raise the error
673: hr_utility.set_message(800,'PER_STAT_ACTIVE_DE_ED_ONLY');
674: hr_utility.raise_error;
675: end if;
676: end if;
677: end if;
670: if l_prev_stat in ('NULL','PROPOSED') then
671: if p_effective_date <> p_date_effective then
672: -- raise the error
673: hr_utility.set_message(800,'PER_STAT_ACTIVE_DE_ED_ONLY');
674: hr_utility.raise_error;
675: end if;
676: end if;
677: end if;
678: */
721: --
722: begin
723: if g_debug then
724: l_proc := g_package||'chk_entry_step_id';
725: hr_utility.set_location('Entering:'|| l_proc, 10);
726: end if;
727: --
728: -- Check mandatory parameters have been set
729: --
750: ,p_argument => 'business_group_id'
751: ,p_argument_value => p_business_group_id
752: );
753: if g_debug then
754: hr_utility.set_location(l_proc, 20);
755: end if;
756: --
757: -- Only proceed with validation if :
758: -- a) The current g_old_rec is current and
763: ,p_effective_date => p_effective_date
764: ,p_object_version_number => p_object_version_number
765: );
766: if g_debug then
767: hr_utility.set_location(l_proc, 30);
768: end if;
769: --
770: if ((l_api_updating and
771: nvl(hr_psf_shd.g_old_rec.entry_step_id, hr_api.g_number) <>
771: nvl(hr_psf_shd.g_old_rec.entry_step_id, hr_api.g_number) <>
772: nvl(p_entry_step_id, hr_api.g_number)) or
773: (NOT l_api_updating)) then
774: if g_debug then
775: hr_utility.set_location(l_proc, 40);
776: end if;
777: --
778: if p_entry_step_id is not null then
779: if g_debug then
776: end if;
777: --
778: if p_entry_step_id is not null then
779: if g_debug then
780: hr_utility.set_location(l_proc, 50);
781: end if;
782: --
783: -- Check that entry_step_id exists and is date effective
784: -- per_grade_spines_f
786: open csr_valid_step;
787: fetch csr_valid_step into l_business_group_id;
788: if csr_valid_step%notfound then
789: close csr_valid_step;
790: hr_utility.set_message(800, 'HR_ENTRY_STEP_ID_NF');
791: hr_utility.raise_error;
792: --
793: end if;
794: close csr_valid_step;
787: fetch csr_valid_step into l_business_group_id;
788: if csr_valid_step%notfound then
789: close csr_valid_step;
790: hr_utility.set_message(800, 'HR_ENTRY_STEP_ID_NF');
791: hr_utility.raise_error;
792: --
793: end if;
794: close csr_valid_step;
795: if g_debug then
792: --
793: end if;
794: close csr_valid_step;
795: if g_debug then
796: hr_utility.set_location(l_proc, 60);
797: end if;
798: --
799: -- Check that the business group of the entry_step_id on
800: -- per_grade_spines is the same as that of the position.
799: -- Check that the business group of the entry_step_id on
800: -- per_grade_spines is the same as that of the position.
801: --
802: if l_business_group_id <> p_business_group_id then
803: hr_utility.set_message(800, 'HR_PSF_INV_BG_FOR_ENTRY_STEP');
804: hr_utility.raise_error;
805: end if;
806: if g_debug then
807: hr_utility.set_location(l_proc, 70);
800: -- per_grade_spines is the same as that of the position.
801: --
802: if l_business_group_id <> p_business_group_id then
803: hr_utility.set_message(800, 'HR_PSF_INV_BG_FOR_ENTRY_STEP');
804: hr_utility.raise_error;
805: end if;
806: if g_debug then
807: hr_utility.set_location(l_proc, 70);
808: end if;
803: hr_utility.set_message(800, 'HR_PSF_INV_BG_FOR_ENTRY_STEP');
804: hr_utility.raise_error;
805: end if;
806: if g_debug then
807: hr_utility.set_location(l_proc, 70);
808: end if;
809: --
810: -- Check that the entry_step_id is valid for the grade
811: -- if p_grade is not null.
814: open csr_valid_step_grade;
815: fetch csr_valid_step_grade into l_sequence;
816: if csr_valid_step_grade%notfound then
817: close csr_valid_step_grade;
818: hr_utility.set_message(800, 'HR_PSF_STEP_INV_FOR_GRADE');
819: hr_utility.raise_error;
820: end if;
821: close csr_valid_step_grade;
822: if g_debug then
815: fetch csr_valid_step_grade into l_sequence;
816: if csr_valid_step_grade%notfound then
817: close csr_valid_step_grade;
818: hr_utility.set_message(800, 'HR_PSF_STEP_INV_FOR_GRADE');
819: hr_utility.raise_error;
820: end if;
821: close csr_valid_step_grade;
822: if g_debug then
823: hr_utility.set_location(l_proc, 80);
819: hr_utility.raise_error;
820: end if;
821: close csr_valid_step_grade;
822: if g_debug then
823: hr_utility.set_location(l_proc, 80);
824: end if;
825: else
826: --
827: -- If the value for step is not null
826: --
827: -- If the value for step is not null
828: -- then grade id must also be not null
829: --
830: hr_utility.set_message(800, 'HR_PSF_GRADE_REQUIRED');
831: hr_utility.raise_error;
832: end if;
833: if g_debug then
834: hr_utility.set_location(l_proc, 90);
827: -- If the value for step is not null
828: -- then grade id must also be not null
829: --
830: hr_utility.set_message(800, 'HR_PSF_GRADE_REQUIRED');
831: hr_utility.raise_error;
832: end if;
833: if g_debug then
834: hr_utility.set_location(l_proc, 90);
835: end if;
830: hr_utility.set_message(800, 'HR_PSF_GRADE_REQUIRED');
831: hr_utility.raise_error;
832: end if;
833: if g_debug then
834: hr_utility.set_location(l_proc, 90);
835: end if;
836: --
837: end if;
838: if g_debug then
835: end if;
836: --
837: end if;
838: if g_debug then
839: hr_utility.set_location(l_proc, 130);
840: end if;
841: --
842: end if;
843: --
840: end if;
841: --
842: end if;
843: --
844: hr_utility.set_location(' Leaving:'|| l_proc, 140);
845: end chk_entry_step_id;
846: --
847: --
848: --
876: --
877: begin
878: if g_debug then
879: l_proc := g_package||'chk_entry_grade_id';
880: hr_utility.set_location('Entering:'|| l_proc, 10);
881: end if;
882:
883: --
884: -- Check mandatory parameters have been set
906: ,p_argument => 'business_group_id'
907: ,p_argument_value => p_business_group_id
908: );
909: if g_debug then
910: hr_utility.set_location(l_proc, 20);
911: end if;
912: --
913: -- Only proceed with validation if :
914: -- a) The current g_old_rec is current and
919: ,p_effective_date => p_effective_date
920: ,p_object_version_number => p_object_version_number
921: );
922: if g_debug then
923: hr_utility.set_location(l_proc, 30);
924: end if;
925: --
926: if ((l_api_updating and
927: nvl(hr_psf_shd.g_old_rec.entry_grade_id, hr_api.g_number) <>
927: nvl(hr_psf_shd.g_old_rec.entry_grade_id, hr_api.g_number) <>
928: nvl(p_entry_grade_id, hr_api.g_number)) or
929: (NOT l_api_updating)) then
930: if g_debug then
931: hr_utility.set_location(l_proc, 40);
932: end if;
933: --
934: -- Check if the grade is set.
935: --
941: open csr_valid_grade;
942: fetch csr_valid_grade into l_business_group_id;
943: if csr_valid_grade%notfound then
944: close csr_valid_grade;
945: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE');
946: hr_utility.raise_error;
947: --
948: end if;
949: close csr_valid_grade;
942: fetch csr_valid_grade into l_business_group_id;
943: if csr_valid_grade%notfound then
944: close csr_valid_grade;
945: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE');
946: hr_utility.raise_error;
947: --
948: end if;
949: close csr_valid_grade;
950: if g_debug then
947: --
948: end if;
949: close csr_valid_grade;
950: if g_debug then
951: hr_utility.set_location(l_proc, 50);
952: end if;
953: --
954: -- Check that the business group for the grade is the same
955: -- as that of the position
955: -- as that of the position
956: --
957: if l_business_group_id <> p_business_group_id then
958: --
959: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_GRADE');
960: hr_utility.raise_error;
961: --
962: end if;
963: if g_debug then
956: --
957: if l_business_group_id <> p_business_group_id then
958: --
959: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_GRADE');
960: hr_utility.raise_error;
961: --
962: end if;
963: if g_debug then
964: hr_utility.set_location(l_proc, 60);
960: hr_utility.raise_error;
961: --
962: end if;
963: if g_debug then
964: hr_utility.set_location(l_proc, 60);
965: end if;
966: --
967: end if;
968: if g_debug then
965: end if;
966: --
967: end if;
968: if g_debug then
969: hr_utility.set_location(l_proc, 80);
970: end if;
971: --
972: end if;
973: if g_debug then
970: end if;
971: --
972: end if;
973: if g_debug then
974: hr_utility.set_location(' Leaving:'|| l_proc, 110);
975: end if;
976: --
977: end chk_entry_grade_id;
978: --
1006: --
1007: begin
1008: if g_debug then
1009: l_proc := g_package||'chk_entry_grade_rule_id';
1010: hr_utility.set_location('Entering:'|| l_proc, 10);
1011: end if;
1012:
1013: --
1014: -- Check mandatory parameters have been set
1036: ,p_argument => 'business_group_id'
1037: ,p_argument_value => p_business_group_id
1038: );
1039: if g_debug then
1040: hr_utility.set_location(l_proc, 20);
1041: end if;
1042: --
1043: -- Only proceed with validation if :
1044: -- a) The current g_old_rec is current and
1049: ,p_effective_date => p_effective_date
1050: ,p_object_version_number => p_object_version_number
1051: );
1052: if g_debug then
1053: hr_utility.set_location(l_proc, 30);
1054: end if;
1055: --
1056: if ((l_api_updating and
1057: nvl(hr_psf_shd.g_old_rec.entry_grade_rule_id, hr_api.g_number) <>
1057: nvl(hr_psf_shd.g_old_rec.entry_grade_rule_id, hr_api.g_number) <>
1058: nvl(p_entry_grade_rule_id, hr_api.g_number)) or
1059: (NOT l_api_updating)) then
1060: if g_debug then
1061: hr_utility.set_location(l_proc, 40);
1062: end if;
1063: --
1064: -- Check if the grade is set.
1065: --
1071: open csr_valid_grade_rule;
1072: fetch csr_valid_grade_rule into l_business_group_id;
1073: if csr_valid_grade_rule%notfound then
1074: close csr_valid_grade_rule;
1075: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE_RULE');
1076: hr_utility.raise_error;
1077: --
1078: end if;
1079: close csr_valid_grade_rule;
1072: fetch csr_valid_grade_rule into l_business_group_id;
1073: if csr_valid_grade_rule%notfound then
1074: close csr_valid_grade_rule;
1075: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE_RULE');
1076: hr_utility.raise_error;
1077: --
1078: end if;
1079: close csr_valid_grade_rule;
1080: if g_debug then
1077: --
1078: end if;
1079: close csr_valid_grade_rule;
1080: if g_debug then
1081: hr_utility.set_location(l_proc, 50);
1082: end if;
1083: --
1084: -- Check that the business group for the grade rule is the same
1085: -- as that of the position
1085: -- as that of the position
1086: --
1087: if l_business_group_id <> p_business_group_id then
1088: --
1089: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_GRADE_RULE');
1090: hr_utility.raise_error;
1091: --
1092: end if;
1093: hr_utility.set_location(l_proc, 60);
1086: --
1087: if l_business_group_id <> p_business_group_id then
1088: --
1089: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_GRADE_RULE');
1090: hr_utility.raise_error;
1091: --
1092: end if;
1093: hr_utility.set_location(l_proc, 60);
1094: --
1089: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_GRADE_RULE');
1090: hr_utility.raise_error;
1091: --
1092: end if;
1093: hr_utility.set_location(l_proc, 60);
1094: --
1095: end if;
1096: hr_utility.set_location(l_proc, 80);
1097: --
1092: end if;
1093: hr_utility.set_location(l_proc, 60);
1094: --
1095: end if;
1096: hr_utility.set_location(l_proc, 80);
1097: --
1098: end if;
1099: if g_debug then
1100: hr_utility.set_location(' Leaving:'|| l_proc, 110);
1096: hr_utility.set_location(l_proc, 80);
1097: --
1098: end if;
1099: if g_debug then
1100: hr_utility.set_location(' Leaving:'|| l_proc, 110);
1101: end if;
1102: --
1103: end chk_entry_grade_rule_id;
1104: --
1149: --
1150: begin
1151: if g_debug then
1152: l_proc := g_package||'chk_pay_freq_payroll_id';
1153: hr_utility.set_location('Entering:'|| l_proc, 10);
1154: end if;
1155: --
1156: -- Check mandatory parameters have been set
1157: --
1178: ,p_argument => 'validation_end_date'
1179: ,p_argument_value => p_validation_end_date
1180: );
1181: if g_debug then
1182: hr_utility.set_location(l_proc, 20);
1183: end if;
1184: --
1185: l_api_updating := hr_psf_shd.api_updating
1186: (p_position_id => p_position_id
1187: ,p_effective_date => p_effective_date
1188: ,p_object_version_number => p_object_version_number
1189: );
1190: if g_debug then
1191: hr_utility.set_location(l_proc, 30);
1192: end if;
1193: --
1194: if (l_api_updating and
1195: (nvl(hr_psf_shd.g_old_rec.pay_freq_payroll_id, hr_api.g_number)
1197: )
1198: or NOT l_api_updating
1199: then
1200: if g_debug then
1201: hr_utility.set_location(l_proc, 40);
1202: end if;
1203: --
1204: if p_pay_freq_payroll_id is not null then
1205: --
1211: open csr_payroll_exists;
1212: fetch csr_payroll_exists into l_business_group_id;
1213: if csr_payroll_exists%notfound then
1214: close csr_payroll_exists;
1215: hr_utility.set_message(800, 'HR_PSF_PAYROLL_NF');
1216: hr_utility.raise_error;
1217: end if;
1218: close csr_payroll_exists;
1219: if g_debug then
1212: fetch csr_payroll_exists into l_business_group_id;
1213: if csr_payroll_exists%notfound then
1214: close csr_payroll_exists;
1215: hr_utility.set_message(800, 'HR_PSF_PAYROLL_NF');
1216: hr_utility.raise_error;
1217: end if;
1218: close csr_payroll_exists;
1219: if g_debug then
1220: hr_utility.set_location(l_proc, 60);
1216: hr_utility.raise_error;
1217: end if;
1218: close csr_payroll_exists;
1219: if g_debug then
1220: hr_utility.set_location(l_proc, 60);
1221: end if;
1222: --
1223: -- Check that business group of payroll is the
1224: -- same as that of the position
1223: -- Check that business group of payroll is the
1224: -- same as that of the position
1225: --
1226: if l_business_group_id <> p_business_group_id then
1227: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_PAYROLL');
1228: hr_utility.raise_error;
1229: end if;
1230: if g_debug then
1231: hr_utility.set_location(l_proc, 70);
1224: -- same as that of the position
1225: --
1226: if l_business_group_id <> p_business_group_id then
1227: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_PAYROLL');
1228: hr_utility.raise_error;
1229: end if;
1230: if g_debug then
1231: hr_utility.set_location(l_proc, 70);
1232: end if;
1227: hr_utility.set_message(800, 'HR_PSF_INVALID_BG_PAYROLL');
1228: hr_utility.raise_error;
1229: end if;
1230: if g_debug then
1231: hr_utility.set_location(l_proc, 70);
1232: end if;
1233: end if;
1234: end if;
1235: --
1233: end if;
1234: end if;
1235: --
1236: if g_debug then
1237: hr_utility.set_location(' Leaving:'|| l_proc, 300);
1238: end if;
1239: end chk_pay_freq_payroll_id;
1240: --
1241: -- ----------------------------------------------------------------------------
1304: --
1305: begin
1306: if g_debug then
1307: l_proc := g_package||'chk_ccid_unique_for_BG';
1308: hr_utility.set_location('Entering:'||l_proc, 10);
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1305: begin
1306: if g_debug then
1307: l_proc := g_package||'chk_ccid_unique_for_BG';
1308: hr_utility.set_location('Entering:'||l_proc, 10);
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1306: if g_debug then
1307: l_proc := g_package||'chk_ccid_unique_for_BG';
1308: hr_utility.set_location('Entering:'||l_proc, 10);
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1307: l_proc := g_package||'chk_ccid_unique_for_BG';
1308: hr_utility.set_location('Entering:'||l_proc, 10);
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1315: hr_utility.set_location('p_object_version_number:'||p_object_version_number, 10);
1308: hr_utility.set_location('Entering:'||l_proc, 10);
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1315: hr_utility.set_location('p_object_version_number:'||p_object_version_number, 10);
1316: end if;
1309: hr_utility.set_location('p_business_group_id:'||p_business_group_id, 10);
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1315: hr_utility.set_location('p_object_version_number:'||p_object_version_number, 10);
1316: end if;
1317: --
1310: hr_utility.set_location('p_position_id:'||p_position_id, 10);
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1315: hr_utility.set_location('p_object_version_number:'||p_object_version_number, 10);
1316: end if;
1317: --
1318: -- Check mandatory parameters have been set
1311: hr_utility.set_location('p_position_definition_id:'||p_position_definition_id, 10);
1312: hr_utility.set_location('p_validation_start_date:'||p_validation_start_date, 10);
1313: hr_utility.set_location('p_validation_end_date:'||p_validation_end_date, 10);
1314: hr_utility.set_location('p_effective_date:'||p_effective_date, 10);
1315: hr_utility.set_location('p_object_version_number:'||p_object_version_number, 10);
1316: end if;
1317: --
1318: -- Check mandatory parameters have been set
1319: --
1322: ,p_argument => 'business_group_id'
1323: ,p_argument_value => p_business_group_id
1324: );
1325: if g_debug then
1326: hr_utility.set_location(l_proc, 20);
1327: end if;
1328: --
1329: hr_api.mandatory_arg_error
1330: (p_api_name => l_proc
1331: ,p_argument => 'position_definition_id'
1332: ,p_argument_value => p_position_definition_id
1333: );
1334: if g_debug then
1335: hr_utility.set_location(l_proc, 30);
1336: end if;
1337: --
1338: hr_api.mandatory_arg_error
1339: (p_api_name => l_proc
1340: ,p_argument => 'validation_start_date'
1341: ,p_argument_value => p_validation_start_date
1342: );
1343: if g_debug then
1344: hr_utility.set_location(l_proc, 40);
1345: end if;
1346: --
1347: hr_api.mandatory_arg_error
1348: (p_api_name => l_proc
1349: ,p_argument => 'validation_end_date'
1350: ,p_argument_value => p_validation_end_date
1351: );
1352: if g_debug then
1353: hr_utility.set_location(l_proc, 50);
1354: end if;
1355: --
1356: hr_api.mandatory_arg_error
1357: (p_api_name => l_proc
1358: ,p_argument => 'effective_date'
1359: ,p_argument_value => p_effective_date
1360: );
1361: if g_debug then
1362: hr_utility.set_location(l_proc, 60);
1363: end if;
1364: --
1365: l_api_updating := hr_psf_shd.api_updating
1366: (p_position_id => p_position_id
1367: ,p_effective_date => p_effective_date
1368: ,p_object_version_number => p_object_version_number
1369: );
1370: if g_debug then
1371: hr_utility.set_location(l_proc, 70);
1372: end if;
1373: --
1374: if (l_api_updating and
1375: (nvl(hr_psf_shd.g_old_rec.position_definition_id, hr_api.g_number)
1377: )
1378: or NOT l_api_updating
1379: then
1380: if g_debug then
1381: hr_utility.set_location(l_proc, 80);
1382: end if;
1383: --
1384: -- Check for unique ccid
1385: --
1386: open csr_ccid_unique;
1387: fetch csr_ccid_unique into l_exists;
1388: if csr_ccid_unique%found then
1389: close csr_ccid_unique;
1390: hr_utility.set_message(800,'PAY_7688_USER_POS_TAB_UNIQUE');
1391: hr_utility.raise_error;
1392: else
1393: close csr_ccid_unique;
1394: if g_debug then
1387: fetch csr_ccid_unique into l_exists;
1388: if csr_ccid_unique%found then
1389: close csr_ccid_unique;
1390: hr_utility.set_message(800,'PAY_7688_USER_POS_TAB_UNIQUE');
1391: hr_utility.raise_error;
1392: else
1393: close csr_ccid_unique;
1394: if g_debug then
1395: hr_utility.set_location(l_proc, 90);
1391: hr_utility.raise_error;
1392: else
1393: close csr_ccid_unique;
1394: if g_debug then
1395: hr_utility.set_location(l_proc, 90);
1396: end if;
1397: end if;
1398: --
1399: end if;
1398: --
1399: end if;
1400: --
1401: if g_debug then
1402: hr_utility.set_location(' Leaving:'||l_proc, 100);
1403: end if;
1404: --
1405: end chk_ccid_unique_for_BG;
1406: --
1458: --
1459: Begin
1460: if g_debug then
1461: l_proc := g_package||'chk_name_unique_for_BG';
1462: hr_utility.set_location('Entering:'||l_proc, 1);
1463: end if;
1464: --
1465: -- Check mandatory parameters have been set
1466: --
1469: ,p_argument => 'business_group_id'
1470: ,p_argument_value => p_business_group_id
1471: );
1472: if g_debug then
1473: hr_utility.set_location(l_proc, 2);
1474: end if;
1475: --
1476: hr_api.mandatory_arg_error
1477: (p_api_name => l_proc
1478: ,p_argument => 'name'
1479: ,p_argument_value => p_name
1480: );
1481: if g_debug then
1482: hr_utility.set_location(l_proc, 3);
1483: end if;
1484: --
1485: hr_api.mandatory_arg_error
1486: (p_api_name => l_proc
1487: ,p_argument => 'effective_date'
1488: ,p_argument_value => p_effective_date
1489: );
1490: if g_debug then
1491: hr_utility.set_location(l_proc, 20);
1492: end if;
1493: --
1494: l_api_updating := hr_psf_shd.api_updating
1495: (p_position_id => p_position_id
1496: ,p_effective_date => p_effective_date
1497: ,p_object_version_number => p_object_version_number
1498: );
1499: if g_debug then
1500: hr_utility.set_location(l_proc, 30);
1501: end if;
1502: --
1503: if (l_api_updating and
1504: (nvl(hr_psf_shd.g_old_rec.name, hr_api.g_varchar2)
1506: )
1507: or NOT l_api_updating
1508: then
1509: if g_debug then
1510: hr_utility.set_location(l_proc, 40);
1511: end if;
1512: --
1513: -- Check for unique name
1514: --
1515: open csr_name_unique;
1516: fetch csr_name_unique into l_exists;
1517: if csr_name_unique%found then
1518: close csr_name_unique;
1519: hr_utility.set_message(800,'PAY_7688_USER_POS_TAB_UNIQUE');
1520: hr_utility.raise_error;
1521: else
1522: close csr_name_unique;
1523: end if;
1516: fetch csr_name_unique into l_exists;
1517: if csr_name_unique%found then
1518: close csr_name_unique;
1519: hr_utility.set_message(800,'PAY_7688_USER_POS_TAB_UNIQUE');
1520: hr_utility.raise_error;
1521: else
1522: close csr_name_unique;
1523: end if;
1524: --
1524: --
1525: end if;
1526: --
1527: if g_debug then
1528: hr_utility.set_location(' Leaving:'||l_proc, 100);
1529: end if;
1530: end chk_name_unique_for_BG;
1531: --
1532: --
1604: --
1605: begin
1606: if g_debug then
1607: l_proc := g_package||'chk_hrs_frequency';
1608: hr_utility.set_location('Entering:'||l_proc, 1);
1609: end if;
1610: --
1611: -- Only proceed with validation if :
1612: -- a) The current g_old_rec is current and
1628: --
1629: -- Check for values consistency
1630: --
1631: if g_debug then
1632: hr_utility.set_location(l_proc, 5);
1633: end if;
1634: --
1635: if ((p_working_hours is null and p_frequency is not null) or
1636: (p_working_hours is not null and p_frequency is null)) then
1633: end if;
1634: --
1635: if ((p_working_hours is null and p_frequency is not null) or
1636: (p_working_hours is not null and p_frequency is null)) then
1637: hr_utility.set_message(800,'PER_52981_POS_WORK_FREQ_NULL');
1638: hr_utility.raise_error;
1639: end if;
1640: --
1641: -- Check for valid frequency against fnd_common_lookups
1634: --
1635: if ((p_working_hours is null and p_frequency is not null) or
1636: (p_working_hours is not null and p_frequency is null)) then
1637: hr_utility.set_message(800,'PER_52981_POS_WORK_FREQ_NULL');
1638: hr_utility.raise_error;
1639: end if;
1640: --
1641: -- Check for valid frequency against fnd_common_lookups
1642: --
1640: --
1641: -- Check for valid frequency against fnd_common_lookups
1642: --
1643: if g_debug then
1644: hr_utility.set_location(l_proc, 6);
1645: end if;
1646: --
1647: if p_frequency is not null then
1648:
1648:
1649: open csr_valid_freq;
1650: fetch csr_valid_freq into l_exists;
1651: if csr_valid_freq%notfound then
1652: hr_utility.set_message(800,'HR_51363_POS_INVAL_FREQUENCY');
1653: hr_utility.raise_error;
1654: end if;
1655: --
1656: -- Validate combinations of working_hours and frequency
1649: open csr_valid_freq;
1650: fetch csr_valid_freq into l_exists;
1651: if csr_valid_freq%notfound then
1652: hr_utility.set_message(800,'HR_51363_POS_INVAL_FREQUENCY');
1653: hr_utility.raise_error;
1654: end if;
1655: --
1656: -- Validate combinations of working_hours and frequency
1657: --
1655: --
1656: -- Validate combinations of working_hours and frequency
1657: --
1658: if g_debug then
1659: hr_utility.set_location(l_proc, 7);
1660: end if;
1661: --
1662: if ((p_working_hours > 24 AND p_frequency = 'D') or
1663: ((p_working_hours > 168)
1665: ((p_working_hours > 744)
1666: and (p_frequency = 'M')) or
1667: ((p_working_hours > 8784)
1668: and (p_frequency = 'Y'))) then
1669: hr_utility.set_message(800,'HR_POS_2_MANY_HOURS');
1670: hr_utility.raise_error;
1671: end if;
1672: --
1673: end if;
1666: and (p_frequency = 'M')) or
1667: ((p_working_hours > 8784)
1668: and (p_frequency = 'Y'))) then
1669: hr_utility.set_message(800,'HR_POS_2_MANY_HOURS');
1670: hr_utility.raise_error;
1671: end if;
1672: --
1673: end if;
1674: --
1673: end if;
1674: --
1675: end if;
1676: if g_debug then
1677: hr_utility.set_location(' Leaving:'||l_proc, 8);
1678: end if;
1679: end chk_hrs_frequency;
1680: --
1681: --
1707: l_exists varchar2(1);
1708: begin
1709: if g_debug then
1710: l_proc := g_package||'chk_pay_basis_id';
1711: hr_utility.set_location('Entering:'|| l_proc, 10);
1712: end if;
1713: --
1714: -- Ensure that all the mandatory parameter are not null
1715: --
1717: p_argument => 'position_id',
1718: p_argument_value => p_position_id);
1719: --
1720: if g_debug then
1721: hr_utility.set_location('Entering : ' || l_proc, 10);
1722: end if;
1723: hr_api.mandatory_arg_error(p_api_name => l_proc,
1724: p_argument => 'position_id',
1725: p_argument_value => p_position_id);
1736: fetch c1 into l_exists;
1737: if c1%notfound then
1738: --
1739: close c1;
1740: hr_utility.set_message(800,'HR_PSF_INVALID_PAY_BASIS');
1741: hr_utility.raise_error;
1742: else
1743: close c1;
1744: end if;
1737: if c1%notfound then
1738: --
1739: close c1;
1740: hr_utility.set_message(800,'HR_PSF_INVALID_PAY_BASIS');
1741: hr_utility.raise_error;
1742: else
1743: close c1;
1744: end if;
1745: --
1743: close c1;
1744: end if;
1745: --
1746: if g_debug then
1747: hr_utility.set_location(' Leaving : ' || l_proc, 100);
1748: end if;
1749: end;
1750: --
1751: --
1773: l_proc varchar2(72) ;
1774: begin
1775: if g_debug then
1776: l_proc := g_package||'return_legislation_code';
1777: hr_utility.set_location('Entering:'|| l_proc, 10);
1778: end if;
1779: --
1780: -- Ensure that all the mandatory parameter are not null
1781: --
1789: close csr_leg_code;
1790: --
1791: -- The primary key is invalid therefore we must error
1792: --
1793: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
1794: hr_utility.raise_error;
1795: end if;
1796: --
1797: close csr_leg_code;
1790: --
1791: -- The primary key is invalid therefore we must error
1792: --
1793: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
1794: hr_utility.raise_error;
1795: end if;
1796: --
1797: close csr_leg_code;
1798: if g_debug then
1795: end if;
1796: --
1797: close csr_leg_code;
1798: if g_debug then
1799: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1800: end if;
1801: --
1802: return l_legislation_code;
1803: end return_legislation_code;
1867: --
1868: begin
1869: if g_debug then
1870: l_proc := g_package||'chk_dates';
1871: hr_utility.set_location('Entering:'||l_proc, 1);
1872: end if;
1873: --
1874: -- Check mandatory parameters have been set
1875: --
1891: ,p_argument_value => p_validation_end_date
1892: );
1893:
1894: if g_debug then
1895: hr_utility.set_location(l_proc, 2);
1896: end if;
1897: --
1898: -- Only proceed with validation if :
1899: -- a) The current g_old_rec is current and
1905: ,p_object_version_number => p_object_version_number);
1906: --
1907: --
1908: if g_debug then
1909: hr_utility.set_location('HR Installation check ' || l_proc, 40);
1910: end if;
1911: --
1912: -- Find if full hr installation or shared hr installation
1913: --
1916: status => l_status,
1917: industry => l_industry);
1918: --
1919: if g_debug then
1920: hr_utility.set_location('HR Installation check done ' || l_proc, 45);
1921: end if;
1922: if l_status = 'I' then
1923: l_full_hr := true;
1924: elsif l_status = 'S' then
1923: l_full_hr := true;
1924: elsif l_status = 'S' then
1925: l_full_hr := false;
1926: else
1927: hr_utility.set_message(801,'HR_NULL_INSTALLATION_STATUS');
1928: hr_utility.raise_error;
1929: end if;
1930:
1931: --
1924: elsif l_status = 'S' then
1925: l_full_hr := false;
1926: else
1927: hr_utility.set_message(801,'HR_NULL_INSTALLATION_STATUS');
1928: hr_utility.raise_error;
1929: end if;
1930:
1931: --
1932: -- if full hr is installed the date_end must be null
1931: --
1932: -- if full hr is installed the date_end must be null
1933: --
1934: if l_full_hr and p_date_end is not null then
1935: hr_utility.set_message(800,'HR_DATE_END_MUST_BE_NULL');
1936: hr_utility.raise_error;
1937: end if;
1938: --
1939: if (((l_api_updating and
1932: -- if full hr is installed the date_end must be null
1933: --
1934: if l_full_hr and p_date_end is not null then
1935: hr_utility.set_message(800,'HR_DATE_END_MUST_BE_NULL');
1936: hr_utility.raise_error;
1937: end if;
1938: --
1939: if (((l_api_updating and
1940: (hr_psf_shd.g_old_rec.date_end <> p_date_end) or
1943: --
1944: -- Check that date_effective <= date_end
1945: --
1946: if g_debug then
1947: hr_utility.set_location(l_proc, 3);
1948: end if;
1949: --
1950: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
1951: hr_utility.set_message(800,'HR_51362_POS_INVAL_EFF_DATE');
1947: hr_utility.set_location(l_proc, 3);
1948: end if;
1949: --
1950: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
1951: hr_utility.set_message(800,'HR_51362_POS_INVAL_EFF_DATE');
1952: hr_utility.raise_error;
1953: end if;
1954: --
1955: /*
1948: end if;
1949: --
1950: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
1951: hr_utility.set_message(800,'HR_51362_POS_INVAL_EFF_DATE');
1952: hr_utility.raise_error;
1953: end if;
1954: --
1955: /*
1956: --
1961: open c_get_eff_start_date(p_position_id);
1962: fetch c_get_eff_start_date into l_effective_start_Date;
1963: close c_get_eff_start_date;
1964: if l_effective_start_date is null then
1965: I hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1966: hr_utility.set_message_token('PROCEDURE', l_proc);
1967: hr_utility.set_message_token('STEP','5');
1968: hr_utility.raise_error;
1969: end if;
1962: fetch c_get_eff_start_date into l_effective_start_Date;
1963: close c_get_eff_start_date;
1964: if l_effective_start_date is null then
1965: I hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1966: hr_utility.set_message_token('PROCEDURE', l_proc);
1967: hr_utility.set_message_token('STEP','5');
1968: hr_utility.raise_error;
1969: end if;
1970: else
1963: close c_get_eff_start_date;
1964: if l_effective_start_date is null then
1965: I hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1966: hr_utility.set_message_token('PROCEDURE', l_proc);
1967: hr_utility.set_message_token('STEP','5');
1968: hr_utility.raise_error;
1969: end if;
1970: else
1971: l_effective_start_date := p_validation_start_date;
1964: if l_effective_start_date is null then
1965: I hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1966: hr_utility.set_message_token('PROCEDURE', l_proc);
1967: hr_utility.set_message_token('STEP','5');
1968: hr_utility.raise_error;
1969: end if;
1970: else
1971: l_effective_start_date := p_validation_start_date;
1972: end if;
1971: l_effective_start_date := p_validation_start_date;
1972: end if;
1973: --
1974: if ( p_date_effective < l_effective_start_date ) then
1975: hr_utility.set_message(800,'HR_PSF_DE_MUST_LATER_OR_EQ_ESD');
1976: hr_utility.raise_error;
1977: end if;
1978: --
1979: if (nvl(p_date_effective, hr_api.g_date) <>
1972: end if;
1973: --
1974: if ( p_date_effective < l_effective_start_date ) then
1975: hr_utility.set_message(800,'HR_PSF_DE_MUST_LATER_OR_EQ_ESD');
1976: hr_utility.raise_error;
1977: end if;
1978: --
1979: if (nvl(p_date_effective, hr_api.g_date) <>
1980: nvl(hr_psf_shd.g_old_rec.effective_start_date, hr_api.g_date)) then
1988: p_upper_limit => l_ul);
1989: --
1990: if not l_updateable then
1991: --
1992: hr_utility.set_message(800,'HR_PSF_DE_NOT_UPDT_THIS_ROW');
1993: hr_utility.raise_error;
1994: end if;
1995: --
1996: if p_date_effective not between l_ll and l_ul then
1989: --
1990: if not l_updateable then
1991: --
1992: hr_utility.set_message(800,'HR_PSF_DE_NOT_UPDT_THIS_ROW');
1993: hr_utility.raise_error;
1994: end if;
1995: --
1996: if p_date_effective not between l_ll and l_ul then
1997: hr_utility.set_message(801,'HR_PSF_DE_OUT_OF_RANGE');
1993: hr_utility.raise_error;
1994: end if;
1995: --
1996: if p_date_effective not between l_ll and l_ul then
1997: hr_utility.set_message(801,'HR_PSF_DE_OUT_OF_RANGE');
1998: hr_utility.raise_error;
1999: end if;
2000: -- if it is first row with ACTIVE status then
2001: --
1994: end if;
1995: --
1996: if p_date_effective not between l_ll and l_ul then
1997: hr_utility.set_message(801,'HR_PSF_DE_OUT_OF_RANGE');
1998: hr_utility.raise_error;
1999: end if;
2000: -- if it is first row with ACTIVE status then
2001: --
2002: end if;
2004: */
2005: end if;
2006: --
2007: if g_debug then
2008: hr_utility.set_location(' Leaving:'||l_proc, 4);
2009: end if;
2010: end chk_dates;
2011: --
2012: --
2047:
2048: begin
2049: if g_debug then
2050: l_proc := g_package||'chk_job_id';
2051: hr_utility.set_location('Entering:'|| l_proc, 10);
2052: end if;
2053: --
2054: -- Check mandatory arguments
2055: --
2076: ,p_argument => 'validation_end_date'
2077: ,p_argument_value => p_validation_end_date
2078: );
2079: if g_debug then
2080: hr_utility.set_location(l_proc, 20);
2081: end if;
2082: --
2083: -- Check if the position is being updated.
2084: --
2087: ,p_effective_date => p_effective_date
2088: ,p_object_version_number => p_object_version_number
2089: );
2090: if g_debug then
2091: hr_utility.set_location(l_proc, 30);
2092: end if;
2093: --
2094: -- Only proceed with validation if :
2095: -- a) The current g_old_rec is current and
2100: hr_api.g_number) <> nvl(p_job_id, hr_api.g_number))
2101: or
2102: NOT l_api_updating) then
2103: if g_debug then
2104: hr_utility.set_location(l_proc, 40);
2105: end if;
2106: --
2107: -- Check for valid job id
2108: --
2109: open csr_valid_job_id;
2110: fetch csr_valid_job_id into l_exists;
2111: if csr_valid_job_id%notfound then
2112: close csr_valid_job_id;
2113: hr_utility.set_message(800,'HR_51090_JOB_NOT_EXIST');
2114: hr_utility.raise_error;
2115: else
2116: if g_debug then
2117: hr_utility.set_location(l_proc, 3);
2110: fetch csr_valid_job_id into l_exists;
2111: if csr_valid_job_id%notfound then
2112: close csr_valid_job_id;
2113: hr_utility.set_message(800,'HR_51090_JOB_NOT_EXIST');
2114: hr_utility.raise_error;
2115: else
2116: if g_debug then
2117: hr_utility.set_location(l_proc, 3);
2118: end if;
2113: hr_utility.set_message(800,'HR_51090_JOB_NOT_EXIST');
2114: hr_utility.raise_error;
2115: else
2116: if g_debug then
2117: hr_utility.set_location(l_proc, 3);
2118: end if;
2119: --
2120: close csr_valid_job_id;
2121: --
2124: open csr_valid_job_dates(p_validation_start_date);
2125: fetch csr_valid_job_dates into l_exists;
2126: if csr_valid_job_dates%notfound then
2127: close csr_valid_job_dates;
2128: hr_utility.set_message(800,'HR_51358_POS_JOB_INVALID_DATE');
2129: hr_utility.raise_error;
2130: end if;
2131: close csr_valid_job_dates;
2132: end if;
2125: fetch csr_valid_job_dates into l_exists;
2126: if csr_valid_job_dates%notfound then
2127: close csr_valid_job_dates;
2128: hr_utility.set_message(800,'HR_51358_POS_JOB_INVALID_DATE');
2129: hr_utility.raise_error;
2130: end if;
2131: close csr_valid_job_dates;
2132: end if;
2133: --
2132: end if;
2133: --
2134: end if;
2135: if g_debug then
2136: hr_utility.set_location(' Leaving:'|| l_proc, 100);
2137: end if;
2138: --
2139: end chk_job_id;
2140: --
2176:
2177: begin
2178: if g_debug then
2179: l_proc := g_package||'chk_organization_id';
2180: hr_utility.set_location('Entering:'|| l_proc, 10);
2181: end if;
2182: --
2183: -- Check mandatory parameters have been set
2184: --
2211: ,p_argument => 'validation_end_date'
2212: ,p_argument_value => p_validation_end_date
2213: );
2214: if g_debug then
2215: hr_utility.set_location(l_proc, 20);
2216: end if;
2217: --
2218: -- Only proceed with validation if :
2219: -- a) The current g_old_rec is current and
2224: ,p_effective_date => p_effective_date
2225: ,p_object_version_number => p_object_version_number
2226: );
2227: if g_debug then
2228: hr_utility.set_location(l_proc, 30);
2229: end if;
2230: --
2231: if (l_api_updating and
2232: hr_psf_shd.g_old_rec.organization_id <> p_organization_id)
2233: or
2234: NOT l_api_updating
2235: then
2236: if g_debug then
2237: hr_utility.set_location(l_proc, 40);
2238: end if;
2239: --
2240: -- Check for valid organization id
2241: --
2242: open csr_valid_organization_id;
2243: fetch csr_valid_organization_id into l_exists;
2244: if csr_valid_organization_id%notfound then
2245: close csr_valid_organization_id;
2246: hr_utility.set_message(800,'HR_51371_POS_ORG_NOT_EXIST');
2247: hr_utility.raise_error;
2248: else
2249: if g_debug then
2250: hr_utility.set_location(l_proc, 3);
2243: fetch csr_valid_organization_id into l_exists;
2244: if csr_valid_organization_id%notfound then
2245: close csr_valid_organization_id;
2246: hr_utility.set_message(800,'HR_51371_POS_ORG_NOT_EXIST');
2247: hr_utility.raise_error;
2248: else
2249: if g_debug then
2250: hr_utility.set_location(l_proc, 3);
2251: end if;
2246: hr_utility.set_message(800,'HR_51371_POS_ORG_NOT_EXIST');
2247: hr_utility.raise_error;
2248: else
2249: if g_debug then
2250: hr_utility.set_location(l_proc, 3);
2251: end if;
2252: close csr_valid_organization_id;
2253: --
2254: -- Check validation_date between org date_from and date_to
2256: open csr_valid_organization_dates(p_validation_start_date);
2257: fetch csr_valid_organization_dates into l_exists;
2258: if csr_valid_organization_dates%notfound then
2259: close csr_valid_organization_dates;
2260: hr_utility.set_message(800,'HR_51359_POS_ORG_INVAL_W_DATE');
2261: hr_utility.raise_error;
2262: end if;
2263: close csr_valid_organization_dates;
2264: end if;
2257: fetch csr_valid_organization_dates into l_exists;
2258: if csr_valid_organization_dates%notfound then
2259: close csr_valid_organization_dates;
2260: hr_utility.set_message(800,'HR_51359_POS_ORG_INVAL_W_DATE');
2261: hr_utility.raise_error;
2262: end if;
2263: close csr_valid_organization_dates;
2264: end if;
2265: end if;
2265: end if;
2266: --
2267: --
2268: if g_debug then
2269: hr_utility.set_location(' Leaving:'|| l_proc, 140);
2270: end if;
2271: end chk_organization_id;
2272: --
2273: --
2333:
2334: begin
2335: if g_debug then
2336: l_proc := g_package||'chk_successor_position_id';
2337: hr_utility.set_location('Entering:'||l_proc, 1);
2338: end if;
2339: --
2340: -- Only proceed with validation if :
2341: -- a) The current g_old_rec is current and
2371: p_successor_position_id) or
2372: (NOT l_api_updating)) then
2373: --
2374: if g_debug then
2375: hr_utility.set_location(l_proc, 2);
2376: end if;
2377: open csr_valid_successor_position(p_validation_start_date);
2378: fetch csr_valid_successor_position into l_exists;
2379: if csr_valid_successor_position%notfound then
2377: open csr_valid_successor_position(p_validation_start_date);
2378: fetch csr_valid_successor_position into l_exists;
2379: if csr_valid_successor_position%notfound then
2380: close csr_valid_successor_position;
2381: hr_utility.set_message(800,'PER_52979_POS_SUCC_NOT_EXIST');
2382: hr_utility.raise_error;
2383: else
2384: close csr_valid_successor_position;
2385: if(l_api_updating and p_position_id = p_successor_position_id) then
2378: fetch csr_valid_successor_position into l_exists;
2379: if csr_valid_successor_position%notfound then
2380: close csr_valid_successor_position;
2381: hr_utility.set_message(800,'PER_52979_POS_SUCC_NOT_EXIST');
2382: hr_utility.raise_error;
2383: else
2384: close csr_valid_successor_position;
2385: if(l_api_updating and p_position_id = p_successor_position_id) then
2386: hr_utility.set_message(800,'HR_51360_POS_SUCCESSOR_EQ_POS');
2382: hr_utility.raise_error;
2383: else
2384: close csr_valid_successor_position;
2385: if(l_api_updating and p_position_id = p_successor_position_id) then
2386: hr_utility.set_message(800,'HR_51360_POS_SUCCESSOR_EQ_POS');
2387: hr_utility.raise_error;
2388: end if;
2389: end if;
2390: end if;
2383: else
2384: close csr_valid_successor_position;
2385: if(l_api_updating and p_position_id = p_successor_position_id) then
2386: hr_utility.set_message(800,'HR_51360_POS_SUCCESSOR_EQ_POS');
2387: hr_utility.raise_error;
2388: end if;
2389: end if;
2390: end if;
2391: end if;
2390: end if;
2391: end if;
2392: --
2393: if g_debug then
2394: hr_utility.set_location(' Leaving:'||l_proc, 3);
2395: end if;
2396: end chk_successor_position_id;
2397: --
2398: --
2459: --
2460: begin
2461: if g_debug then
2462: l_proc := g_package||'chk_relief_position_id';
2463: hr_utility.set_location('Entering:'||l_proc, 1);
2464: end if;
2465: --
2466: -- Only proceed with validation if :
2467: -- a) The current g_old_rec is current and
2497: p_relief_position_id) or
2498: (NOT l_api_updating)) then
2499: --
2500: if g_debug then
2501: hr_utility.set_location(l_proc, 2);
2502: end if;
2503: --
2504: open csr_valid_relief_position(p_validation_start_date);
2505: fetch csr_valid_relief_position into l_exists;
2504: open csr_valid_relief_position(p_validation_start_date);
2505: fetch csr_valid_relief_position into l_exists;
2506: if csr_valid_relief_position%notfound then
2507: close csr_valid_relief_position;
2508: hr_utility.set_message(800,'PER_52980_POS_RELF_NOT_EXIST');
2509: hr_utility.raise_error;
2510: else
2511: close csr_valid_relief_position;
2512: if(l_api_updating and p_position_id = p_relief_position_id) then
2505: fetch csr_valid_relief_position into l_exists;
2506: if csr_valid_relief_position%notfound then
2507: close csr_valid_relief_position;
2508: hr_utility.set_message(800,'PER_52980_POS_RELF_NOT_EXIST');
2509: hr_utility.raise_error;
2510: else
2511: close csr_valid_relief_position;
2512: if(l_api_updating and p_position_id = p_relief_position_id) then
2513: hr_utility.set_message(800,'HR_51361_POS_RELIEF_EQ_POS');
2509: hr_utility.raise_error;
2510: else
2511: close csr_valid_relief_position;
2512: if(l_api_updating and p_position_id = p_relief_position_id) then
2513: hr_utility.set_message(800,'HR_51361_POS_RELIEF_EQ_POS');
2514: hr_utility.raise_error;
2515: end if;
2516: end if;
2517: end if;
2510: else
2511: close csr_valid_relief_position;
2512: if(l_api_updating and p_position_id = p_relief_position_id) then
2513: hr_utility.set_message(800,'HR_51361_POS_RELIEF_EQ_POS');
2514: hr_utility.raise_error;
2515: end if;
2516: end if;
2517: end if;
2518: end if;
2517: end if;
2518: end if;
2519: --
2520: if g_debug then
2521: hr_utility.set_location(' Leaving:'||l_proc, 3);
2522: end if;
2523: end chk_relief_position_id;
2524: --
2525: --
2553: begin
2554:
2555: if g_debug then
2556: l_proc := g_package||'chk_location_id';
2557: hr_utility.set_location('Entering:'|| l_proc, 10);
2558: end if;
2559: --
2560: -- Check mandatory parameters have been set
2561: --
2576: ,p_argument => 'validation_end_date'
2577: ,p_argument_value => p_validation_end_date
2578: );
2579: if g_debug then
2580: hr_utility.set_location('Entering:'|| l_proc, 20);
2581: end if;
2582: --
2583: -- Only proceed with validation if :
2584: -- a) The current g_old_rec is current and
2589: ,p_effective_date => p_effective_date
2590: ,p_object_version_number => p_object_version_number
2591: );
2592: if g_debug then
2593: hr_utility.set_location('Entering:'|| l_proc, 30);
2594: end if;
2595: --
2596: if ((l_api_updating and
2597: nvl(hr_psf_shd.g_old_rec.location_id, hr_api.g_number) <>
2599: (NOT l_api_updating))
2600: then
2601: --
2602: if g_debug then
2603: hr_utility.set_location('Entering:'|| l_proc, 40);
2604: end if;
2605: --
2606: if p_location_id is not null then
2607: --
2610: open csr_valid_location;
2611: fetch csr_valid_location into l_exists;
2612: if csr_valid_location%notfound then
2613: close csr_valid_location;
2614: hr_utility.set_message(800, 'HR_51357_POS_LOC_NOT_EXIST');
2615: hr_utility.raise_error;
2616: --
2617: end if;
2618: close csr_valid_location;
2611: fetch csr_valid_location into l_exists;
2612: if csr_valid_location%notfound then
2613: close csr_valid_location;
2614: hr_utility.set_message(800, 'HR_51357_POS_LOC_NOT_EXIST');
2615: hr_utility.raise_error;
2616: --
2617: end if;
2618: close csr_valid_location;
2619: --
2621: --
2622: end if;
2623: --
2624: if g_debug then
2625: hr_utility.set_location('Entering:'|| l_proc, 90);
2626: end if;
2627: end chk_location_id;
2628: --
2629: --
2669: --
2670: begin
2671: if g_debug then
2672: l_proc := g_package||'chk_position_definition_id';
2673: hr_utility.set_location('Entering:'||l_proc, 1);
2674: end if;
2675: --
2676: -- Check mandatory parameters have been set
2677: --
2687: ,p_argument_value => p_effective_date
2688: );
2689: --
2690: if g_debug then
2691: hr_utility.set_location(l_proc, 2);
2692: end if;
2693: --
2694: l_api_updating := hr_psf_shd.api_updating
2695: (p_position_id => p_position_id
2696: ,p_effective_date => p_effective_date
2697: ,p_object_version_number => p_object_version_number);
2698: --
2699: if g_debug then
2700: hr_utility.set_location(l_proc, 3);
2701: end if;
2702: --
2703: if ((l_api_updating and
2704: (hr_psf_shd.g_old_rec.position_definition_id <>
2705: p_position_definition_id)) or
2706: (NOT l_api_updating)) then
2707: --
2708: if g_debug then
2709: hr_utility.set_location(l_proc, 4);
2710: end if;
2711: --
2712: open csr_pos_def;
2713: fetch csr_pos_def into l_exists;
2711: --
2712: open csr_pos_def;
2713: fetch csr_pos_def into l_exists;
2714: if csr_pos_def%notfound then
2715: hr_utility.set_message(800,'HR_51369_POS_DEF_NOT_EXIST');
2716: hr_utility.raise_error;
2717: end if;
2718: close csr_pos_def;
2719: --
2712: open csr_pos_def;
2713: fetch csr_pos_def into l_exists;
2714: if csr_pos_def%notfound then
2715: hr_utility.set_message(800,'HR_51369_POS_DEF_NOT_EXIST');
2716: hr_utility.raise_error;
2717: end if;
2718: close csr_pos_def;
2719: --
2720: end if;
2718: close csr_pos_def;
2719: --
2720: end if;
2721: if g_debug then
2722: hr_utility.set_location('Leaving '||l_proc, 5);
2723: end if;
2724: --
2725: end chk_position_definition_id;
2726: --
2779: --
2780: begin
2781: if g_debug then
2782: l_proc := g_package||'chk_probation_info';
2783: hr_utility.set_location('Entering:'||l_proc, 1);
2784: end if;
2785: --
2786: -- Only proceed with validation if :
2787: -- a) The current g_old_rec is current and
2802: --
2803: -- Check for values consistency
2804: --
2805: if g_debug then
2806: hr_utility.set_location(l_proc, 2);
2807: end if;
2808: --
2809: if (p_probation_period is null and
2810: p_probation_period_unit_cd is not null) or
2809: if (p_probation_period is null and
2810: p_probation_period_unit_cd is not null) or
2811: (p_probation_period is not null and
2812: p_probation_period_unit_cd is null) then
2813: hr_utility.set_message(800,'HR_51365_POS_PROB_UNITS_REQ');
2814: hr_utility.raise_error;
2815: else
2816: --
2817: -- Validate probation_period_unit_cd against fnd_common_lookups
2810: p_probation_period_unit_cd is not null) or
2811: (p_probation_period is not null and
2812: p_probation_period_unit_cd is null) then
2813: hr_utility.set_message(800,'HR_51365_POS_PROB_UNITS_REQ');
2814: hr_utility.raise_error;
2815: else
2816: --
2817: -- Validate probation_period_unit_cd against fnd_common_lookups
2818: --
2816: --
2817: -- Validate probation_period_unit_cd against fnd_common_lookups
2818: --
2819: if g_debug then
2820: hr_utility.set_location(l_proc, 3);
2821: end if;
2822: --
2823: if p_probation_period is not null
2824: and p_probation_period_unit_cd is not null then
2824: and p_probation_period_unit_cd is not null then
2825: open csr_valid_unit;
2826: fetch csr_valid_unit into l_exists;
2827: if csr_valid_unit%notfound then
2828: hr_utility.set_message(800,'HR_51366_POS_PROB_UNITS_INV');
2829: hr_utility.raise_error;
2830: end if;
2831: end if;
2832: end if;
2825: open csr_valid_unit;
2826: fetch csr_valid_unit into l_exists;
2827: if csr_valid_unit%notfound then
2828: hr_utility.set_message(800,'HR_51366_POS_PROB_UNITS_INV');
2829: hr_utility.raise_error;
2830: end if;
2831: end if;
2832: end if;
2833: end if;
2832: end if;
2833: end if;
2834: --
2835: if g_debug then
2836: hr_utility.set_location(' Leaving:'||l_proc, 4);
2837: end if;
2838: end chk_probation_info;
2839: --
2840: --
2891: --
2892: begin
2893: if g_debug then
2894: l_proc := g_package||'chk_time_start_finish';
2895: hr_utility.set_location('Entering:'||l_proc, 1);
2896: end if;
2897: --
2898: -- Only proceed with validation if :
2899: -- a) The current g_old_rec is current and
2914: --
2915: -- Check for values consistency
2916: --
2917: if g_debug then
2918: hr_utility.set_location(l_proc, 4);
2919: end if;
2920: --
2921: if (p_time_normal_start is not null and p_time_normal_finish is null) or
2922: (p_time_normal_start is null and p_time_normal_finish is not null) then
2919: end if;
2920: --
2921: if (p_time_normal_start is not null and p_time_normal_finish is null) or
2922: (p_time_normal_start is null and p_time_normal_finish is not null) then
2923: hr_utility.set_message(800,'HR_51367_POS_TIMES_REQ');
2924: hr_utility.raise_error;
2925: --
2926: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
2927: and substr(p_time_normal_start,4,2) between '00' and '59'
2920: --
2921: if (p_time_normal_start is not null and p_time_normal_finish is null) or
2922: (p_time_normal_start is null and p_time_normal_finish is not null) then
2923: hr_utility.set_message(800,'HR_51367_POS_TIMES_REQ');
2924: hr_utility.raise_error;
2925: --
2926: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
2927: and substr(p_time_normal_start,4,2) between '00' and '59'
2928: and substr(p_time_normal_start,3,1) = ':') then
2925: --
2926: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
2927: and substr(p_time_normal_start,4,2) between '00' and '59'
2928: and substr(p_time_normal_start,3,1) = ':') then
2929: hr_utility.set_message(800,'HR_51154_INVAL_TIME_FORMAT');
2930: hr_utility.raise_error;
2931: --
2932: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
2933: and substr(p_time_normal_finish,4,2) between '00' and '59'
2926: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
2927: and substr(p_time_normal_start,4,2) between '00' and '59'
2928: and substr(p_time_normal_start,3,1) = ':') then
2929: hr_utility.set_message(800,'HR_51154_INVAL_TIME_FORMAT');
2930: hr_utility.raise_error;
2931: --
2932: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
2933: and substr(p_time_normal_finish,4,2) between '00' and '59'
2934: and substr(p_time_normal_finish,3,1) = ':') then
2931: --
2932: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
2933: and substr(p_time_normal_finish,4,2) between '00' and '59'
2934: and substr(p_time_normal_finish,3,1) = ':') then
2935: hr_utility.set_message(800,'HR_51154_INVAL_TIME_FORMAT');
2936: hr_utility.raise_error;
2937: end if;
2938: /*
2939: -- remove this check
2932: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
2933: and substr(p_time_normal_finish,4,2) between '00' and '59'
2934: and substr(p_time_normal_finish,3,1) = ':') then
2935: hr_utility.set_message(800,'HR_51154_INVAL_TIME_FORMAT');
2936: hr_utility.raise_error;
2937: end if;
2938: /*
2939: -- remove this check
2940: --
2940: --
2941: -- Check that time_normal_start <= time_normal_finish
2942: --
2943: if g_debug then
2944: hr_utility.set_location(l_proc, 5);
2945: end if;
2946: --
2947: if p_time_normal_finish <= p_time_normal_start then
2948: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
2944: hr_utility.set_location(l_proc, 5);
2945: end if;
2946: --
2947: if p_time_normal_finish <= p_time_normal_start then
2948: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
2949: hr_utility.raise_error;
2950: end if;
2951: */
2952: --
2945: end if;
2946: --
2947: if p_time_normal_finish <= p_time_normal_start then
2948: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
2949: hr_utility.raise_error;
2950: end if;
2951: */
2952: --
2953: end if;
2952: --
2953: end if;
2954: --
2955: if g_debug then
2956: hr_utility.set_location(' Leaving:'||l_proc, 6);
2957: end if;
2958: end chk_time_start_finish;
2959: /*
2960: --
2984: --
2985: begin
2986: if g_debug then
2987: l_proc := g_package||'chk_position_transaction_id';
2988: hr_utility.set_location('Entering:'|| l_proc, 10);
2989: end if;
2990: --
2991: -- Check mandatory parameters have been set
2992: --
3008: ,p_argument_value => p_effective_date
3009: );
3010: --
3011: if g_debug then
3012: hr_utility.set_location(l_proc, 20);
3013: end if;
3014: --
3015: -- Only proceed with validation if :
3016: -- a) The current g_old_rec is current and
3021: ,p_effective_date => p_effective_date
3022: ,p_object_version_number => p_object_version_number
3023: );
3024: if g_debug then
3025: hr_utility.set_location(l_proc, 30);
3026: end if;
3027: --
3028: if ((l_api_updating and
3029: nvl(hr_psf_shd.g_old_rec.position_transaction_id, hr_api.g_number) <>
3029: nvl(hr_psf_shd.g_old_rec.position_transaction_id, hr_api.g_number) <>
3030: nvl(p_position_transaction_id, hr_api.g_number)) or
3031: (NOT l_api_updating)) then
3032: if g_debug then
3033: hr_utility.set_location(l_proc, 40);
3034: end if;
3035: --
3036: if p_position_transaction_id is not null then
3037: if g_debug then
3034: end if;
3035: --
3036: if p_position_transaction_id is not null then
3037: if g_debug then
3038: hr_utility.set_location(l_proc, 50);
3039: end if;
3040: --
3041: -- Check that position_transaction_id exists in
3042: -- pqh_position_transactions
3044: open csr_valid_tran;
3045: fetch csr_valid_tran into l_exists;
3046: if csr_valid_tran%notfound then
3047: close csr_valid_tran;
3048: hr_utility.set_message(800, 'HR_INV_POSN_TRAN');
3049: hr_utility.raise_error;
3050: --
3051: end if;
3052: close csr_valid_tran;
3045: fetch csr_valid_tran into l_exists;
3046: if csr_valid_tran%notfound then
3047: close csr_valid_tran;
3048: hr_utility.set_message(800, 'HR_INV_POSN_TRAN');
3049: hr_utility.raise_error;
3050: --
3051: end if;
3052: close csr_valid_tran;
3053: if g_debug then
3050: --
3051: end if;
3052: close csr_valid_tran;
3053: if g_debug then
3054: hr_utility.set_location(l_proc, 60);
3055: hr_utility.set_location(l_proc, 130);
3056: hr_utility.set_location(' Leaving:'|| l_proc, 140);
3057: end if;
3058: end chk_position_transaction_id;
3051: end if;
3052: close csr_valid_tran;
3053: if g_debug then
3054: hr_utility.set_location(l_proc, 60);
3055: hr_utility.set_location(l_proc, 130);
3056: hr_utility.set_location(' Leaving:'|| l_proc, 140);
3057: end if;
3058: end chk_position_transaction_id;
3059: */
3052: close csr_valid_tran;
3053: if g_debug then
3054: hr_utility.set_location(l_proc, 60);
3055: hr_utility.set_location(l_proc, 130);
3056: hr_utility.set_location(' Leaving:'|| l_proc, 140);
3057: end if;
3058: end chk_position_transaction_id;
3059: */
3060: --
3121: --
3122: begin
3123: if g_debug then
3124: l_proc := g_package||'chk_supervisor_position_id';
3125: hr_utility.set_location('Entering:'||l_proc, 1);
3126: end if;
3127: --
3128: -- Only proceed with validation if :
3129: -- a) The current g_old_rec is current and
3159: p_supervisor_position_id) or
3160: (NOT l_api_updating)) then
3161: --
3162: if g_debug then
3163: hr_utility.set_location(l_proc, 2);
3164: end if;
3165: open csr_valid_supervisor_position(p_validation_start_date);
3166: fetch csr_valid_supervisor_position into l_exists;
3167: if csr_valid_supervisor_position%notfound then
3165: open csr_valid_supervisor_position(p_validation_start_date);
3166: fetch csr_valid_supervisor_position into l_exists;
3167: if csr_valid_supervisor_position%notfound then
3168: close csr_valid_supervisor_position;
3169: hr_utility.set_message(800,'HR_PSF_SUPER_NOT_EXIST');
3170: hr_utility.raise_error;
3171: else
3172: close csr_valid_supervisor_position;
3173: if(l_api_updating and p_position_id = p_supervisor_position_id) then
3166: fetch csr_valid_supervisor_position into l_exists;
3167: if csr_valid_supervisor_position%notfound then
3168: close csr_valid_supervisor_position;
3169: hr_utility.set_message(800,'HR_PSF_SUPER_NOT_EXIST');
3170: hr_utility.raise_error;
3171: else
3172: close csr_valid_supervisor_position;
3173: if(l_api_updating and p_position_id = p_supervisor_position_id) then
3174: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_EQ_POS');
3170: hr_utility.raise_error;
3171: else
3172: close csr_valid_supervisor_position;
3173: if(l_api_updating and p_position_id = p_supervisor_position_id) then
3174: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_EQ_POS');
3175: hr_utility.raise_error;
3176: end if;
3177: end if;
3178: end if;
3171: else
3172: close csr_valid_supervisor_position;
3173: if(l_api_updating and p_position_id = p_supervisor_position_id) then
3174: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_EQ_POS');
3175: hr_utility.raise_error;
3176: end if;
3177: end if;
3178: end if;
3179: end if;
3178: end if;
3179: end if;
3180: --
3181: if g_debug then
3182: hr_utility.set_location(' Leaving:'||l_proc, 3);
3183: end if;
3184: end chk_supervisor_position_id;
3185: --
3186: --
3247: --
3248: begin
3249: if g_debug then
3250: l_proc := g_package||'chk_prior_position_id';
3251: hr_utility.set_location('Entering:'||l_proc, 1);
3252: end if;
3253: --
3254: -- Only proceed with validation if :
3255: -- a) The current g_old_rec is current and
3285: p_prior_position_id) or
3286: (NOT l_api_updating)) then
3287: --
3288: if g_debug then
3289: hr_utility.set_location(l_proc, 2);
3290: end if;
3291: open csr_valid_prior_position(p_validation_start_date);
3292: fetch csr_valid_prior_position into l_exists;
3293: if csr_valid_prior_position%notfound then
3291: open csr_valid_prior_position(p_validation_start_date);
3292: fetch csr_valid_prior_position into l_exists;
3293: if csr_valid_prior_position%notfound then
3294: close csr_valid_prior_position;
3295: hr_utility.set_message(800,'HR_PSF_PRIOR_NOT_EXIST');
3296: hr_utility.raise_error;
3297: else
3298: close csr_valid_prior_position;
3299: end if;
3292: fetch csr_valid_prior_position into l_exists;
3293: if csr_valid_prior_position%notfound then
3294: close csr_valid_prior_position;
3295: hr_utility.set_message(800,'HR_PSF_PRIOR_NOT_EXIST');
3296: hr_utility.raise_error;
3297: else
3298: close csr_valid_prior_position;
3299: end if;
3300: end if;
3300: end if;
3301: end if;
3302: --
3303: if g_debug then
3304: hr_utility.set_location(' Leaving:'||l_proc, 3);
3305: end if;
3306: end chk_prior_position_id;
3307: --
3308: -- ----------------------------------------------------------------------------
3348: Begin
3349: --
3350: if g_debug then
3351: l_proc := g_package||'chk_work_term_end_month_cd';
3352: hr_utility.set_location('Entering:'||l_proc, 5);
3353: end if;
3354: --
3355: l_api_updating := hr_psf_shd.api_updating
3356: (p_position_id => p_position_id
3373: ,p_effective_date => p_effective_date) then
3374: --
3375: -- raise error as does not exist as lookup
3376: --
3377: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3378: hr_utility.raise_error;
3379: --
3380: end if;
3381: --
3374: --
3375: -- raise error as does not exist as lookup
3376: --
3377: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3378: hr_utility.raise_error;
3379: --
3380: end if;
3381: --
3382: end if;
3381: --
3382: end if;
3383: --
3384: if g_debug then
3385: hr_utility.set_location('Leaving:'||l_proc,10);
3386: end if;
3387: --
3388: end chk_work_term_end_month_cd;
3389: --
3431: Begin
3432: --
3433: if g_debug then
3434: l_proc := g_package||'chk_work_term_end_day_cd';
3435: hr_utility.set_location('Entering:'||l_proc, 5);
3436: end if;
3437: --
3438: l_api_updating := hr_psf_shd.api_updating
3439: (p_position_id => p_position_id
3456: ,p_effective_date => p_effective_date) then
3457: --
3458: -- raise error as does not exist as lookup
3459: --
3460: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3461: hr_utility.raise_error;
3462: --
3463: end if;
3464: --
3457: --
3458: -- raise error as does not exist as lookup
3459: --
3460: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3461: hr_utility.raise_error;
3462: --
3463: end if;
3464: --
3465: end if;
3464: --
3465: end if;
3466: --
3467: if g_debug then
3468: hr_utility.set_location('Leaving:'||l_proc,10);
3469: end if;
3470: --
3471: end chk_work_term_end_day_cd;
3472: --
3486: Begin
3487: --
3488: if g_debug then
3489: l_proc := g_package||'chk_position_type';
3490: hr_utility.set_location('Entering:'||l_proc, 5);
3491: end if;
3492: --
3493: hr_api.mandatory_arg_error
3494: (p_api_name => l_proc
3528: ,p_effective_date => p_effective_date) then
3529: --
3530: -- raise error as does not exist as lookup
3531: --
3532: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3533: hr_utility.raise_error;
3534: --
3535: end if;
3536: --
3529: --
3530: -- raise error as does not exist as lookup
3531: --
3532: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3533: hr_utility.raise_error;
3534: --
3535: end if;
3536: --
3537: end if;
3536: --
3537: end if;
3538: --
3539: if g_debug then
3540: hr_utility.set_location('Leaving:'||l_proc,10);
3541: end if;
3542: --
3543: end chk_position_type;
3544: --
3585: Begin
3586: --
3587: if g_debug then
3588: l_proc := g_package||'chk_work_period_type_cd';
3589: hr_utility.set_location('Entering:'||l_proc, 5);
3590: end if;
3591: --
3592: l_api_updating := hr_psf_shd.api_updating
3593: (p_position_id => p_position_id
3610: ,p_effective_date => p_effective_date) then
3611: --
3612: -- raise error as does not exist as lookup
3613: --
3614: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3615: hr_utility.raise_error;
3616: --
3617: end if;
3618: --
3611: --
3612: -- raise error as does not exist as lookup
3613: --
3614: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3615: hr_utility.raise_error;
3616: --
3617: end if;
3618: --
3619: end if;
3618: --
3619: end if;
3620: --
3621: if g_debug then
3622: hr_utility.set_location('Leaving:'||l_proc,10);
3623: end if;
3624: --
3625: end chk_work_period_type_cd;
3626: --
3667: Begin
3668: --
3669: if g_debug then
3670: l_proc := g_package||'chk_works_council_approval_flg';
3671: hr_utility.set_location('Entering:'||l_proc, 5);
3672: end if;
3673: --
3674: l_api_updating := hr_psf_shd.api_updating
3675: (p_position_id => p_position_id
3692: ,p_effective_date => p_effective_date) then
3693: --
3694: -- raise error as does not exist as lookup
3695: --
3696: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3697: hr_utility.raise_error;
3698: --
3699: end if;
3700: --
3693: --
3694: -- raise error as does not exist as lookup
3695: --
3696: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3697: hr_utility.raise_error;
3698: --
3699: end if;
3700: --
3701: end if;
3700: --
3701: end if;
3702: --
3703: if g_debug then
3704: hr_utility.set_location('Leaving:'||l_proc,10);
3705: end if;
3706: --
3707: end chk_works_council_approval_flg;
3708: --
3750: Begin
3751: --
3752: if g_debug then
3753: l_proc := g_package||'chk_term_start_month_cd';
3754: hr_utility.set_location('Entering:'||l_proc, 5);
3755: end if;
3756: --
3757: l_api_updating := hr_psf_shd.api_updating
3758: (p_position_id => p_position_id
3775: ,p_effective_date => p_effective_date) then
3776: --
3777: -- raise error as does not exist as lookup
3778: --
3779: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3780: hr_utility.raise_error;
3781: --
3782: end if;
3783: --
3776: --
3777: -- raise error as does not exist as lookup
3778: --
3779: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3780: hr_utility.raise_error;
3781: --
3782: end if;
3783: --
3784: end if;
3783: --
3784: end if;
3785: --
3786: if g_debug then
3787: hr_utility.set_location('Leaving:'||l_proc,10);
3788: end if;
3789: --
3790: end chk_term_start_month_cd;
3791: --
3833: Begin
3834: --
3835: if g_debug then
3836: l_proc := g_package||'chk_term_start_day_cd';
3837: hr_utility.set_location('Entering:'||l_proc, 5);
3838: end if;
3839: --
3840: l_api_updating := hr_psf_shd.api_updating
3841: (p_position_id => p_position_id
3858: ,p_effective_date => p_effective_date) then
3859: --
3860: -- raise error as does not exist as lookup
3861: --
3862: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3863: hr_utility.raise_error;
3864: --
3865: end if;
3866: --
3859: --
3860: -- raise error as does not exist as lookup
3861: --
3862: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3863: hr_utility.raise_error;
3864: --
3865: end if;
3866: --
3867: end if;
3866: --
3867: end if;
3868: --
3869: if g_debug then
3870: hr_utility.set_location('Leaving:'||l_proc,10);
3871: end if;
3872: --
3873: end chk_term_start_day_cd;
3874: --
3916: Begin
3917: --
3918: if g_debug then
3919: l_proc := g_package||'chk_seasonal_flag';
3920: hr_utility.set_location('Entering:'||l_proc, 5);
3921: end if;
3922: --
3923: l_api_updating := hr_psf_shd.api_updating
3924: (p_position_id => p_position_id
3941: ,p_effective_date => p_effective_date) then
3942: --
3943: -- raise error as does not exist as lookup
3944: --
3945: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3946: hr_utility.raise_error;
3947: --
3948: end if;
3949: --
3942: --
3943: -- raise error as does not exist as lookup
3944: --
3945: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
3946: hr_utility.raise_error;
3947: --
3948: end if;
3949: --
3950: end if;
3949: --
3950: end if;
3951: --
3952: if g_debug then
3953: hr_utility.set_location('Leaving:'||l_proc,10);
3954: end if;
3955: --
3956: end chk_seasonal_flag;
3957: --
3998: Begin
3999: --
4000: if g_debug then
4001: l_proc := g_package||'chk_review_flag';
4002: hr_utility.set_location('Entering:'||l_proc, 5);
4003: end if;
4004: --
4005: l_api_updating := hr_psf_shd.api_updating
4006: (p_position_id => p_position_id
4023: ,p_effective_date => p_effective_date) then
4024: --
4025: -- raise error as does not exist as lookup
4026: --
4027: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4028: hr_utility.raise_error;
4029: --
4030: end if;
4031: --
4024: --
4025: -- raise error as does not exist as lookup
4026: --
4027: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4028: hr_utility.raise_error;
4029: --
4030: end if;
4031: --
4032: end if;
4031: --
4032: end if;
4033: --
4034: if g_debug then
4035: hr_utility.set_location('Leaving:'||l_proc,10);
4036: end if;
4037: --
4038: end chk_review_flag;
4039: --
4080: Begin
4081: --
4082: if g_debug then
4083: l_proc := g_package||'chk_replacement_required_flag';
4084: hr_utility.set_location('Entering:'||l_proc, 5);
4085: end if;
4086: --
4087: l_api_updating := hr_psf_shd.api_updating
4088: (p_position_id => p_position_id
4105: ,p_effective_date => p_effective_date) then
4106: --
4107: -- raise error as does not exist as lookup
4108: --
4109: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4110: hr_utility.raise_error;
4111: --
4112: end if;
4113: --
4106: --
4107: -- raise error as does not exist as lookup
4108: --
4109: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4110: hr_utility.raise_error;
4111: --
4112: end if;
4113: --
4114: end if;
4113: --
4114: end if;
4115: --
4116: if g_debug then
4117: hr_utility.set_location('Leaving:'||l_proc,10);
4118: end if;
4119: --
4120: end chk_replacement_required_flag;
4121: --
4162: Begin
4163: --
4164: if g_debug then
4165: l_proc := g_package||'chk_probation_period_unit_cd';
4166: hr_utility.set_location('Entering:'||l_proc, 5);
4167: end if;
4168: --
4169: l_api_updating := hr_psf_shd.api_updating
4170: (p_position_id => p_position_id
4187: ,p_effective_date => p_effective_date) then
4188: --
4189: -- raise error as does not exist as lookup
4190: --
4191: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4192: hr_utility.raise_error;
4193: --
4194: end if;
4195: --
4188: --
4189: -- raise error as does not exist as lookup
4190: --
4191: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4192: hr_utility.raise_error;
4193: --
4194: end if;
4195: --
4196: end if;
4195: --
4196: end if;
4197: --
4198: if g_debug then
4199: hr_utility.set_location('Leaving:'||l_proc,10);
4200: end if;
4201: --
4202: end chk_probation_period_unit_cd;
4203: --
4244: Begin
4245: --
4246: if g_debug then
4247: l_proc := g_package||'chk_permit_recruitment_flag';
4248: hr_utility.set_location('Entering:'||l_proc, 5);
4249: end if;
4250: --
4251: l_api_updating := hr_psf_shd.api_updating
4252: (p_position_id => p_position_id
4269: ,p_effective_date => p_effective_date) then
4270: --
4271: -- raise error as does not exist as lookup
4272: --
4273: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4274: hr_utility.raise_error;
4275: --
4276: end if;
4277: --
4270: --
4271: -- raise error as does not exist as lookup
4272: --
4273: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4274: hr_utility.raise_error;
4275: --
4276: end if;
4277: --
4278: end if;
4277: --
4278: end if;
4279: --
4280: if g_debug then
4281: hr_utility.set_location('Leaving:'||l_proc,10);
4282: end if;
4283: --
4284: end chk_permit_recruitment_flag;
4285: --
4326: Begin
4327: --
4328: if g_debug then
4329: l_proc := g_package||'chk_permanent_temporary_flag';
4330: hr_utility.set_location('Entering:'||l_proc, 5);
4331: end if;
4332: --
4333: l_api_updating := hr_psf_shd.api_updating
4334: (p_position_id => p_position_id
4351: ,p_effective_date => p_effective_date) then
4352: --
4353: -- raise error as does not exist as lookup
4354: --
4355: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4356: hr_utility.raise_error;
4357: --
4358: end if;
4359: --
4352: --
4353: -- raise error as does not exist as lookup
4354: --
4355: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4356: hr_utility.raise_error;
4357: --
4358: end if;
4359: --
4360: end if;
4359: --
4360: end if;
4361: --
4362: if g_debug then
4363: hr_utility.set_location('Leaving:'||l_proc,10);
4364: end if;
4365: --
4366: end chk_permanent_temporary_flag;
4367: --
4408: Begin
4409: --
4410: if g_debug then
4411: l_proc := g_package||'chk_pay_term_end_month_cd';
4412: hr_utility.set_location('Entering:'||l_proc, 5);
4413: end if;
4414: --
4415: l_api_updating := hr_psf_shd.api_updating
4416: (p_position_id => p_position_id
4433: ,p_effective_date => p_effective_date) then
4434: --
4435: -- raise error as does not exist as lookup
4436: --
4437: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4438: hr_utility.raise_error;
4439: --
4440: end if;
4441: --
4434: --
4435: -- raise error as does not exist as lookup
4436: --
4437: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4438: hr_utility.raise_error;
4439: --
4440: end if;
4441: --
4442: end if;
4441: --
4442: end if;
4443: --
4444: if g_debug then
4445: hr_utility.set_location('Leaving:'||l_proc,10);
4446: end if;
4447: --
4448: end chk_pay_term_end_month_cd;
4449: --
4490: Begin
4491: --
4492: if g_debug then
4493: l_proc := g_package||'chk_pay_term_end_day_cd';
4494: hr_utility.set_location('Entering:'||l_proc, 5);
4495: end if;
4496: --
4497: l_api_updating := hr_psf_shd.api_updating
4498: (p_position_id => p_position_id
4515: ,p_effective_date => p_effective_date) then
4516: --
4517: -- raise error as does not exist as lookup
4518: --
4519: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4520: hr_utility.raise_error;
4521: --
4522: end if;
4523: --
4516: --
4517: -- raise error as does not exist as lookup
4518: --
4519: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4520: hr_utility.raise_error;
4521: --
4522: end if;
4523: --
4524: end if;
4523: --
4524: end if;
4525: --
4526: if g_debug then
4527: hr_utility.set_location('Leaving:'||l_proc,10);
4528: end if;
4529: --
4530: end chk_pay_term_end_day_cd;
4531: --
4572: Begin
4573: --
4574: if g_debug then
4575: l_proc := g_package||'chk_overlap_unit_cd';
4576: hr_utility.set_location('Entering:'||l_proc, 5);
4577: end if;
4578: --
4579: l_api_updating := hr_psf_shd.api_updating
4580: (p_position_id => p_position_id
4597: ,p_effective_date => p_effective_date) then
4598: --
4599: -- raise error as does not exist as lookup
4600: --
4601: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4602: hr_utility.raise_error;
4603: --
4604: end if;
4605: --
4598: --
4599: -- raise error as does not exist as lookup
4600: --
4601: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4602: hr_utility.raise_error;
4603: --
4604: end if;
4605: --
4606: end if;
4605: --
4606: end if;
4607: --
4608: if g_debug then
4609: hr_utility.set_location('Leaving:'||l_proc,10);
4610: end if;
4611: --
4612: end chk_overlap_unit_cd;
4613: --
4654: Begin
4655: --
4656: if g_debug then
4657: l_proc := g_package||'chk_bargaining_unit_cd';
4658: hr_utility.set_location('Entering:'||l_proc, 5);
4659: end if;
4660: --
4661: l_api_updating := hr_psf_shd.api_updating
4662: (p_position_id => p_position_id
4679: ,p_effective_date => p_effective_date) then
4680: --
4681: -- raise error as does not exist as lookup
4682: --
4683: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4684: hr_utility.raise_error;
4685: --
4686: end if;
4687: --
4680: --
4681: -- raise error as does not exist as lookup
4682: --
4683: hr_utility.set_message(800,'HR_LOOKUP_DOES_NOT_EXIST');
4684: hr_utility.raise_error;
4685: --
4686: end if;
4687: --
4688: end if;
4687: --
4688: end if;
4689: --
4690: if g_debug then
4691: hr_utility.set_location('Leaving:'||l_proc,10);
4692: end if;
4693: --
4694: end chk_bargaining_unit_cd;
4695: --
4710: Begin
4711: --
4712: if g_debug then
4713: l_proc := g_package||'chk_fte';
4714: hr_utility.set_location('Entering:'||l_proc, 5);
4715: end if;
4716: --
4717: hr_api.mandatory_arg_error
4718: (p_api_name => l_proc
4743: or not l_api_updating) then
4744: --
4745: if p_position_type <> 'NONE' then
4746: if ( p_fte is null and p_position_type <> 'POOLED') then
4747: hr_utility.set_message(800,'HR_FTE_NULL_INV_FOR_POS_TYPE');
4748: hr_utility.raise_error;
4749: elsif p_position_type = 'SINGLE' then
4750: if not (p_fte <= 1) then
4751: hr_utility.set_message(800,'HR_FTE_MUST_BE_LESS_OR_EQ_ONE');
4744: --
4745: if p_position_type <> 'NONE' then
4746: if ( p_fte is null and p_position_type <> 'POOLED') then
4747: hr_utility.set_message(800,'HR_FTE_NULL_INV_FOR_POS_TYPE');
4748: hr_utility.raise_error;
4749: elsif p_position_type = 'SINGLE' then
4750: if not (p_fte <= 1) then
4751: hr_utility.set_message(800,'HR_FTE_MUST_BE_LESS_OR_EQ_ONE');
4752: hr_utility.raise_error;
4747: hr_utility.set_message(800,'HR_FTE_NULL_INV_FOR_POS_TYPE');
4748: hr_utility.raise_error;
4749: elsif p_position_type = 'SINGLE' then
4750: if not (p_fte <= 1) then
4751: hr_utility.set_message(800,'HR_FTE_MUST_BE_LESS_OR_EQ_ONE');
4752: hr_utility.raise_error;
4753: end if;
4754: end if;
4755: end if;
4748: hr_utility.raise_error;
4749: elsif p_position_type = 'SINGLE' then
4750: if not (p_fte <= 1) then
4751: hr_utility.set_message(800,'HR_FTE_MUST_BE_LESS_OR_EQ_ONE');
4752: hr_utility.raise_error;
4753: end if;
4754: end if;
4755: end if;
4756: --
4773: Begin
4774: --
4775: if g_debug then
4776: l_proc := g_package||'p_max_persons';
4777: hr_utility.set_location('Entering:'||l_proc, 5);
4778: hr_utility.set_location('Entering:'||p_max_persons, 2);
4779:
4780: hr_utility.set_location('Entering:'||
4781: nvl(hr_psf_shd.g_old_rec.max_persons,hr_api.g_number),3);
4774: --
4775: if g_debug then
4776: l_proc := g_package||'p_max_persons';
4777: hr_utility.set_location('Entering:'||l_proc, 5);
4778: hr_utility.set_location('Entering:'||p_max_persons, 2);
4779:
4780: hr_utility.set_location('Entering:'||
4781: nvl(hr_psf_shd.g_old_rec.max_persons,hr_api.g_number),3);
4782: end if;
4776: l_proc := g_package||'p_max_persons';
4777: hr_utility.set_location('Entering:'||l_proc, 5);
4778: hr_utility.set_location('Entering:'||p_max_persons, 2);
4779:
4780: hr_utility.set_location('Entering:'||
4781: nvl(hr_psf_shd.g_old_rec.max_persons,hr_api.g_number),3);
4782: end if;
4783: --
4784: hr_api.mandatory_arg_error
4804: or not l_api_updating) then
4805: --
4806: if (p_position_type = 'SINGLE')
4807: and ((p_max_persons is NULL) or (p_max_persons <> 1 )) then
4808: hr_utility.set_message(800,'HR_POS_MAX_PERSONS_NE_ONE');
4809: hr_utility.raise_error;
4810: elsif (p_position_type = 'SHARED') and (p_max_persons IS NULL )
4811: then
4812: hr_utility.set_message(800,'HR_MAX_PERS_NULL_INV_POS_TYPE');
4805: --
4806: if (p_position_type = 'SINGLE')
4807: and ((p_max_persons is NULL) or (p_max_persons <> 1 )) then
4808: hr_utility.set_message(800,'HR_POS_MAX_PERSONS_NE_ONE');
4809: hr_utility.raise_error;
4810: elsif (p_position_type = 'SHARED') and (p_max_persons IS NULL )
4811: then
4812: hr_utility.set_message(800,'HR_MAX_PERS_NULL_INV_POS_TYPE');
4813: hr_utility.raise_error;
4808: hr_utility.set_message(800,'HR_POS_MAX_PERSONS_NE_ONE');
4809: hr_utility.raise_error;
4810: elsif (p_position_type = 'SHARED') and (p_max_persons IS NULL )
4811: then
4812: hr_utility.set_message(800,'HR_MAX_PERS_NULL_INV_POS_TYPE');
4813: hr_utility.raise_error;
4814: elsif (p_position_type = 'SHARED') and (p_max_persons < 1 )
4815: then
4816: hr_utility.set_message(800,'PER_INVALID_SHARED_MAX_PERSON');
4809: hr_utility.raise_error;
4810: elsif (p_position_type = 'SHARED') and (p_max_persons IS NULL )
4811: then
4812: hr_utility.set_message(800,'HR_MAX_PERS_NULL_INV_POS_TYPE');
4813: hr_utility.raise_error;
4814: elsif (p_position_type = 'SHARED') and (p_max_persons < 1 )
4815: then
4816: hr_utility.set_message(800,'PER_INVALID_SHARED_MAX_PERSON');
4817: hr_utility.raise_error;
4812: hr_utility.set_message(800,'HR_MAX_PERS_NULL_INV_POS_TYPE');
4813: hr_utility.raise_error;
4814: elsif (p_position_type = 'SHARED') and (p_max_persons < 1 )
4815: then
4816: hr_utility.set_message(800,'PER_INVALID_SHARED_MAX_PERSON');
4817: hr_utility.raise_error;
4818: end if;
4819: --
4820: end if;
4813: hr_utility.raise_error;
4814: elsif (p_position_type = 'SHARED') and (p_max_persons < 1 )
4815: then
4816: hr_utility.set_message(800,'PER_INVALID_SHARED_MAX_PERSON');
4817: hr_utility.raise_error;
4818: end if;
4819: --
4820: end if;
4821: --
4869: Begin
4870: --
4871: if g_debug then
4872: l_proc := 'chk_reserved_fte';
4873: hr_utility.set_location('Entering:'||l_proc, 5);
4874: end if;
4875: --
4876: hr_api.mandatory_arg_error
4877: (p_api_name => l_proc
4904: if p_position_type ='SHARED' or p_position_type ='SINGLE' then
4905: open csr_valid_fte(p_position_id, r2.start_date);
4906: fetch csr_valid_fte into l_rsv_fte;
4907: if (p_fte < l_rsv_fte) then
4908: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4909: hr_utility.set_message_token('POSITION_FTE',p_fte);
4910: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4905: open csr_valid_fte(p_position_id, r2.start_date);
4906: fetch csr_valid_fte into l_rsv_fte;
4907: if (p_fte < l_rsv_fte) then
4908: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4909: hr_utility.set_message_token('POSITION_FTE',p_fte);
4910: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4913: else
4906: fetch csr_valid_fte into l_rsv_fte;
4907: if (p_fte < l_rsv_fte) then
4908: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4909: hr_utility.set_message_token('POSITION_FTE',p_fte);
4910: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4913: else
4914: if g_debug then
4907: if (p_fte < l_rsv_fte) then
4908: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4909: hr_utility.set_message_token('POSITION_FTE',p_fte);
4910: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4913: else
4914: if g_debug then
4915: hr_utility.set_location(l_proc, 3);
4908: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4909: hr_utility.set_message_token('POSITION_FTE',p_fte);
4910: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4913: else
4914: if g_debug then
4915: hr_utility.set_location(l_proc, 3);
4916: end if;
4911: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4912: hr_utility.raise_error;
4913: else
4914: if g_debug then
4915: hr_utility.set_location(l_proc, 3);
4916: end if;
4917: end if;
4918: --
4919: close csr_valid_fte;
4936: Begin
4937: --
4938: if g_debug then
4939: l_proc :='chk_proposed_fte_for_layoff';
4940: hr_utility.set_location('Entering:'||l_proc, 5);
4941: end if;
4942: --
4943: if p_proposed_fte_for_layoff is not null then
4944: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4942: --
4943: if p_proposed_fte_for_layoff is not null then
4944: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4945: --
4946: hr_utility.set_message(800,'HR_FTE_TARGT_LT_LAYOFF_FTE');
4947: hr_utility.raise_error;
4948: end if;
4949: if p_proposed_date_for_layoff is null then
4950: --
4943: if p_proposed_fte_for_layoff is not null then
4944: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4945: --
4946: hr_utility.set_message(800,'HR_FTE_TARGT_LT_LAYOFF_FTE');
4947: hr_utility.raise_error;
4948: end if;
4949: if p_proposed_date_for_layoff is null then
4950: --
4951: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4947: hr_utility.raise_error;
4948: end if;
4949: if p_proposed_date_for_layoff is null then
4950: --
4951: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4952: hr_utility.raise_error;
4953: end if;
4954: else
4955: if p_proposed_date_for_layoff is not null then
4948: end if;
4949: if p_proposed_date_for_layoff is null then
4950: --
4951: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4952: hr_utility.raise_error;
4953: end if;
4954: else
4955: if p_proposed_date_for_layoff is not null then
4956: --
4953: end if;
4954: else
4955: if p_proposed_date_for_layoff is not null then
4956: --
4957: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_MUSTBE_NULL');
4958: hr_utility.raise_error;
4959: end if;
4960: end if;
4961: end chk_proposed_fte_for_layoff;
4954: else
4955: if p_proposed_date_for_layoff is not null then
4956: --
4957: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_MUSTBE_NULL');
4958: hr_utility.raise_error;
4959: end if;
4960: end if;
4961: end chk_proposed_fte_for_layoff;
4962: --
4977: Begin
4978: --
4979: if g_debug then
4980: l_proc :='chk_extended_flag';
4981: hr_utility.set_location('Entering:'||l_proc, 5);
4982: end if;
4983: --
4984: if p_work_period_type_cd = 'Y' then
4985: /*
4987: p_pay_term_end_month_cd is null or
4988: p_work_term_end_day_cd is null or
4989: p_work_term_end_month_cd is null then
4990: --
4991: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_ENTR');
4992: hr_utility.raise_error;
4993: */
4994: if (( (p_pay_term_end_day_cd is null and
4995: p_pay_term_end_month_cd is not null) or
4988: p_work_term_end_day_cd is null or
4989: p_work_term_end_month_cd is null then
4990: --
4991: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_ENTR');
4992: hr_utility.raise_error;
4993: */
4994: if (( (p_pay_term_end_day_cd is null and
4995: p_pay_term_end_month_cd is not null) or
4996: (p_pay_term_end_day_cd is not null and
4999: p_term_start_month_cd is not null) or
5000: (p_term_start_day_cd is not null and
5001: p_term_start_month_cd is null))) then
5002: --
5003: hr_utility.set_message(800,'HR_INVALID_PAY_TERM');
5004: hr_utility.raise_error;
5005: end if;
5006: if ( (p_work_term_end_day_cd is null and
5007: p_work_term_end_month_cd is not null) or
5000: (p_term_start_day_cd is not null and
5001: p_term_start_month_cd is null))) then
5002: --
5003: hr_utility.set_message(800,'HR_INVALID_PAY_TERM');
5004: hr_utility.raise_error;
5005: end if;
5006: if ( (p_work_term_end_day_cd is null and
5007: p_work_term_end_month_cd is not null) or
5008: (p_work_term_end_day_cd is not null and
5007: p_work_term_end_month_cd is not null) or
5008: (p_work_term_end_day_cd is not null and
5009: p_work_term_end_month_cd is null)) then
5010: --
5011: hr_utility.set_message(800,'HR_INVALID_WORK_TERM');
5012: hr_utility.raise_error;
5013: end if;
5014: else
5015: if p_pay_term_end_day_cd is not null or
5008: (p_work_term_end_day_cd is not null and
5009: p_work_term_end_month_cd is null)) then
5010: --
5011: hr_utility.set_message(800,'HR_INVALID_WORK_TERM');
5012: hr_utility.raise_error;
5013: end if;
5014: else
5015: if p_pay_term_end_day_cd is not null or
5016: p_pay_term_end_month_cd is not null or
5018: p_term_start_month_cd is not null or
5019: p_work_term_end_day_cd is not null or
5020: p_work_term_end_month_cd is not null then
5021: --
5022: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_NULL');
5023: hr_utility.raise_error;
5024: end if;
5025: end if;
5026: --
5019: p_work_term_end_day_cd is not null or
5020: p_work_term_end_month_cd is not null then
5021: --
5022: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_NULL');
5023: hr_utility.raise_error;
5024: end if;
5025: end if;
5026: --
5027: end chk_extended_pay;
5056: open c_seasonal;
5057: fetch c_seasonal into l_dummy;
5058: if c_seasonal%found then
5059: close c_seasonal;
5060: hr_utility.set_message(800,'HR_INV_SEASONAL_FLAG');
5061: hr_utility.raise_error;
5062: end if;
5063: close c_seasonal;
5064: end if;
5057: fetch c_seasonal into l_dummy;
5058: if c_seasonal%found then
5059: close c_seasonal;
5060: hr_utility.set_message(800,'HR_INV_SEASONAL_FLAG');
5061: hr_utility.raise_error;
5062: end if;
5063: close c_seasonal;
5064: end if;
5065: end;
5084: and information_type = 'PER_OVERLAP';
5085: begin
5086: if g_debug then
5087: l_proc :='chk_overlap_poi';
5088: hr_utility.set_location('Entering:'||l_proc,10);
5089: end if;
5090: l_api_updating := hr_psf_shd.api_updating
5091: (p_position_id => p_position_id
5092: ,p_effective_date => p_effective_date
5096: and nvl(p_overlap_period,-1)
5097: <> nvl(hr_psf_shd.g_old_rec.overlap_period,hr_api.g_number)
5098: and p_overlap_period is null) then
5099: if g_debug then
5100: hr_utility.set_location('Checking for Overlap Dates in Position Extra Info:'||l_proc,20);
5101: end if;
5102: open c_overlap;
5103: fetch c_overlap into l_dummy;
5104: if g_debug then
5101: end if;
5102: open c_overlap;
5103: fetch c_overlap into l_dummy;
5104: if g_debug then
5105: hr_utility.set_location('Checked for Overlap Dates in Position Extra Info:'||l_proc,30);
5106: end if;
5107: if c_overlap%found then
5108: if g_debug then
5109: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5105: hr_utility.set_location('Checked for Overlap Dates in Position Extra Info:'||l_proc,30);
5106: end if;
5107: if c_overlap%found then
5108: if g_debug then
5109: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5110: end if;
5111: close c_overlap;
5112: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5113: hr_utility.raise_error;
5108: if g_debug then
5109: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5110: end if;
5111: close c_overlap;
5112: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5113: hr_utility.raise_error;
5114: end if;
5115: if g_debug then
5116: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5109: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5110: end if;
5111: close c_overlap;
5112: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5113: hr_utility.raise_error;
5114: end if;
5115: if g_debug then
5116: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5117: end if;
5112: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5113: hr_utility.raise_error;
5114: end if;
5115: if g_debug then
5116: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5117: end if;
5118: close c_overlap;
5119: end if;
5120: if g_debug then
5117: end if;
5118: close c_overlap;
5119: end if;
5120: if g_debug then
5121: hr_utility.set_location('Leaving:'||l_proc,20);
5122: end if;
5123: end;
5124: -- ----------------------------------------------------------------------------
5125: -- |--------------------------< permit_extended_pay >-------------------------|
5136: and poei_information3 in ('ACADEMIC','FACULTY');
5137: begin
5138: if g_debug then
5139: l_proc :='PERMIT_EXTENDED_PAY';
5140: hr_utility.set_location('Entering:'||l_proc,10);
5141: end if;
5142: if p_position_id is not null then
5143: open c1;
5144: fetch c1 into l_position_family;
5143: open c1;
5144: fetch c1 into l_position_family;
5145: if c1%found then
5146: if g_debug then
5147: hr_utility.set_location('Academic/Faculty Position Extra info Found:'||l_proc,10);
5148: end if;
5149: close c1;
5150: return true;
5151: else
5150: return true;
5151: else
5152: close c1;
5153: if g_debug then
5154: hr_utility.set_location('Academic/Faculty Position Extra info not Found:'||l_proc,10);
5155: end if;
5156: return false;
5157: end if;
5158: else
5158: else
5159: return(false);
5160: end if;
5161: if g_debug then
5162: hr_utility.set_location('Leaving:'||l_proc,20);
5163: end if;
5164: end;
5165: -- ----------------------------------------------------------------------------
5166: -- |--------------------------< chk_extended_pay_permit >--------------------------|
5178: l_permit_extended_pay boolean;
5179: begin
5180: if g_debug then
5181: l_proc :='chk_extended_pay_permit';
5182: hr_utility.set_location('Entering:'||l_proc,10);
5183: end if;
5184: l_api_updating := hr_psf_shd.api_updating
5185: (p_position_id => p_position_id
5186: ,p_effective_date => p_effective_date
5189: if (((l_api_updating and p_work_period_type_cd
5190: <> nvl(hr_psf_shd.g_old_rec.work_period_type_cd,hr_api.g_varchar2)) or not l_api_updating)
5191: and nvl(p_WORK_PERIOD_TYPE_CD,'N') = 'Y') then
5192: if g_debug then
5193: hr_utility.set_location('Check permit_extended_pay:'||l_proc,10);
5194: end if;
5195: l_permit_extended_pay := permit_extended_pay(p_position_id => p_position_id);
5196: if g_debug then
5197: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5193: hr_utility.set_location('Check permit_extended_pay:'||l_proc,10);
5194: end if;
5195: l_permit_extended_pay := permit_extended_pay(p_position_id => p_position_id);
5196: if g_debug then
5197: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5198: end if;
5199: if (l_permit_extended_pay = false) then
5200: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5201: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5197: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5198: end if;
5199: if (l_permit_extended_pay = false) then
5200: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5201: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5202: hr_utility.raise_error;
5203: end if;
5204: end if;
5205: if g_debug then
5198: end if;
5199: if (l_permit_extended_pay = false) then
5200: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5201: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5202: hr_utility.raise_error;
5203: end if;
5204: end if;
5205: if g_debug then
5206: hr_utility.set_location('Leaving:'||l_proc,20);
5202: hr_utility.raise_error;
5203: end if;
5204: end if;
5205: if g_debug then
5206: hr_utility.set_location('Leaving:'||l_proc,20);
5207: end if;
5208: end;
5209: --
5210: --
5304: Begin
5305: --
5306: if g_debug then
5307: l_proc := g_package||'chk_position_type_single';
5308: hr_utility.set_location('Entering:'||l_proc, 5);
5309: end if;
5310: --
5311: l_api_updating := hr_psf_shd.api_updating
5312: (p_position_id => p_position_id
5324: and (nvl(hr_psf_shd.g_old_rec.position_type,hr_api.g_varchar2)
5325: <> 'SINGLE' )) then
5326: -- Start changes for bug 13519283
5327: if g_debug then
5328: hr_utility.set_location('Converting the position into Single Incumbent', 10);
5329: end if;
5330:
5331: -- Retrieving all the assignments which are enrolled on the position.
5332: for lc_asg in c_no_assignments(p_position_id, p_effective_date)
5335: l_asg_start_date := lc_asg.effective_start_date;
5336: l_asg_end_date := lc_asg.effective_end_date;
5337:
5338: if g_debug then
5339: hr_utility.set_location('Assignment : '||c_no_assignments%rowcount, 20);
5340: hr_utility.set_location('Asg ID: '||l_asg_id, 20);
5341: hr_utility.set_location('Asg Effective Start Date:'||l_asg_start_date, 20);
5342: hr_utility.set_location('Asg Effective End Date:'||l_asg_end_date, 20);
5343: end if;
5336: l_asg_end_date := lc_asg.effective_end_date;
5337:
5338: if g_debug then
5339: hr_utility.set_location('Assignment : '||c_no_assignments%rowcount, 20);
5340: hr_utility.set_location('Asg ID: '||l_asg_id, 20);
5341: hr_utility.set_location('Asg Effective Start Date:'||l_asg_start_date, 20);
5342: hr_utility.set_location('Asg Effective End Date:'||l_asg_end_date, 20);
5343: end if;
5344:
5337:
5338: if g_debug then
5339: hr_utility.set_location('Assignment : '||c_no_assignments%rowcount, 20);
5340: hr_utility.set_location('Asg ID: '||l_asg_id, 20);
5341: hr_utility.set_location('Asg Effective Start Date:'||l_asg_start_date, 20);
5342: hr_utility.set_location('Asg Effective End Date:'||l_asg_end_date, 20);
5343: end if;
5344:
5345: -- Retrieving the assignments which is overlaping with current assignment.
5338: if g_debug then
5339: hr_utility.set_location('Assignment : '||c_no_assignments%rowcount, 20);
5340: hr_utility.set_location('Asg ID: '||l_asg_id, 20);
5341: hr_utility.set_location('Asg Effective Start Date:'||l_asg_start_date, 20);
5342: hr_utility.set_location('Asg Effective End Date:'||l_asg_end_date, 20);
5343: end if;
5344:
5345: -- Retrieving the assignments which is overlaping with current assignment.
5346: for lc_asg_overlap in c_asg_overlap(l_asg_id, l_asg_start_date, l_asg_end_date)
5348: l_asg_ol_start_date := lc_asg_overlap.effective_start_date;
5349: l_asg_ol_end_date := lc_asg_overlap.effective_end_date;
5350:
5351: if g_debug then
5352: hr_utility.set_location('Overlaped Asg Effective Start Date:'||l_asg_ol_start_date, 30);
5353: hr_utility.set_location('Overlaped Asg Effective End Date:'||l_asg_ol_end_date, 30);
5354: end if;
5355:
5356: -- Following 2 conditions will decide the overlap between these assignments.
5349: l_asg_ol_end_date := lc_asg_overlap.effective_end_date;
5350:
5351: if g_debug then
5352: hr_utility.set_location('Overlaped Asg Effective Start Date:'||l_asg_ol_start_date, 30);
5353: hr_utility.set_location('Overlaped Asg Effective End Date:'||l_asg_ol_end_date, 30);
5354: end if;
5355:
5356: -- Following 2 conditions will decide the overlap between these assignments.
5357: if l_asg_ol_start_date < l_asg_start_date then
5362: l_asg_ol_end_date := l_asg_end_date;
5363: end if;
5364:
5365: if g_debug then
5366: hr_utility.set_location('Overlap Effective Start Date:'||l_asg_ol_start_date, 30);
5367: hr_utility.set_location('Overlap Effective End Date:'||l_asg_ol_end_date, 30);
5368: end if;
5369:
5370: -- If the other assignment exists then checking the overlap periods of the position
5363: end if;
5364:
5365: if g_debug then
5366: hr_utility.set_location('Overlap Effective Start Date:'||l_asg_ol_start_date, 30);
5367: hr_utility.set_location('Overlap Effective End Date:'||l_asg_ol_end_date, 30);
5368: end if;
5369:
5370: -- If the other assignment exists then checking the overlap periods of the position
5371: -- for the end date of current assignment and start date of other assignment.
5375: -- If the position overlap period defined for the assignment overlap then continue else raise the error.
5376: if c_pos_overlap_dates%found then
5377: close c_pos_overlap_dates;
5378: if g_debug then
5379: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 40);
5380: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 40);
5381: end if;
5382: else
5383: if g_debug then
5376: if c_pos_overlap_dates%found then
5377: close c_pos_overlap_dates;
5378: if g_debug then
5379: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 40);
5380: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 40);
5381: end if;
5382: else
5383: if g_debug then
5384: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 50);
5380: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 40);
5381: end if;
5382: else
5383: if g_debug then
5384: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 50);
5385: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 50);
5386: end if;
5387: close c_pos_overlap_dates;
5388: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5381: end if;
5382: else
5383: if g_debug then
5384: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 50);
5385: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 50);
5386: end if;
5387: close c_pos_overlap_dates;
5388: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5389: hr_utility.raise_error;
5384: hr_utility.set_location('Position Overlap Start Date:'||l_pos_ol_start_date, 50);
5385: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 50);
5386: end if;
5387: close c_pos_overlap_dates;
5388: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5389: hr_utility.raise_error;
5390: end if;
5391:
5392: end loop; -- loop 2
5385: hr_utility.set_location('Position Overlap End Date:'||l_pos_ol_end_date, 50);
5386: end if;
5387: close c_pos_overlap_dates;
5388: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5389: hr_utility.raise_error;
5390: end if;
5391:
5392: end loop; -- loop 2
5393: end loop; -- loop 1
5400: if l_no_assignments > 1 then
5401: --
5402: -- raise error as does not exist as lookup
5403: --
5404: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5405: hr_utility.raise_error;
5406: --
5407: end if;*/
5408: --
5401: --
5402: -- raise error as does not exist as lookup
5403: --
5404: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5405: hr_utility.raise_error;
5406: --
5407: end if;*/
5408: --
5409: end if;
5410: --
5411: end if;
5412: --
5413: if g_debug then
5414: hr_utility.set_location('Leaving:'||l_proc,10);
5415: end if;
5416: --
5417: end chk_position_type_single;
5418: --
5462: --
5463: Begin
5464: if g_debug then
5465: l_proc := g_package||'dt_update_validate';
5466: hr_utility.set_location('Entering:'||l_proc, 5);
5467: end if;
5468: --
5469: -- Ensure that the p_datetrack_mode argument is not null
5470: --
5491: p_argument_value => p_validation_end_date);
5492: --
5493: -- ##
5494: if g_debug then
5495: hr_utility.set_location(l_proc,20 );
5496: end if;
5497: If ((nvl(p_relief_position_id, hr_api.g_number) <> hr_api.g_number) and
5498: NOT (dt_api.check_min_max_dates
5499: (p_base_table_name => 'hr_all_positions_f',
5504: l_table_name := 'all positions';
5505: Raise l_integrity_error;
5506: End If;
5507: if g_debug then
5508: hr_utility.set_location(l_proc,30 );
5509: end if;
5510: If ((nvl(p_successor_position_id, hr_api.g_number) <> hr_api.g_number) and
5511: NOT (dt_api.check_min_max_dates
5512: (p_base_table_name => 'hr_all_positions_f',
5517: l_table_name := 'all positions';
5518: Raise l_integrity_error;
5519: End If;
5520: if g_debug then
5521: hr_utility.set_location(l_proc,40 );
5522: end if;
5523: If ((nvl(p_supervisor_position_id, hr_api.g_number) <> hr_api.g_number) and
5524: NOT (dt_api.check_min_max_dates
5525: (p_base_table_name => 'hr_all_positions_f',
5530: l_table_name := 'all positions';
5531: Raise l_integrity_error;
5532: End If;
5533: if g_debug then
5534: hr_utility.set_location(l_proc,50 );
5535: end if;
5536: If ((nvl(p_pay_freq_payroll_id, hr_api.g_number) <> hr_api.g_number) and
5537: NOT (dt_api.check_min_max_dates
5538: (p_base_table_name => 'pay_all_payrolls_f',
5543: l_table_name := 'all payrolls';
5544: Raise l_integrity_error;
5545: End If;
5546: if g_debug then
5547: hr_utility.set_location(l_proc,60 );
5548: end if;
5549: If ((nvl(p_entry_step_id, hr_api.g_number) <> hr_api.g_number) and
5550: NOT (dt_api.check_min_max_dates
5551: (p_base_table_name => 'per_spinal_point_steps_f',
5556: l_table_name := 'spinal point steps';
5557: Raise l_integrity_error;
5558: End If;
5559: if g_debug then
5560: hr_utility.set_location(l_proc,70 );
5561: end if;
5562: If ((nvl(p_entry_grade_rule_id, hr_api.g_number) <> hr_api.g_number) and
5563: NOT (dt_api.check_min_max_dates
5564: (p_base_table_name => 'pay_grade_rules_f',
5573: --
5574: End If;
5575: --
5576: if g_debug then
5577: hr_utility.set_location(' Leaving:'||l_proc, 10);
5578: end if;
5579: Exception
5580: When l_integrity_error Then
5581: --
5581: --
5582: -- A referential integrity check was violated therefore
5583: -- we must error
5584: --
5585: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5586: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5587: hr_utility.raise_error;
5588: When Others Then
5589: --
5582: -- A referential integrity check was violated therefore
5583: -- we must error
5584: --
5585: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5586: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5587: hr_utility.raise_error;
5588: When Others Then
5589: --
5590: -- An unhandled or unexpected error has occurred which
5583: -- we must error
5584: --
5585: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5586: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5587: hr_utility.raise_error;
5588: When Others Then
5589: --
5590: -- An unhandled or unexpected error has occurred which
5591: -- we must report
5589: --
5590: -- An unhandled or unexpected error has occurred which
5591: -- we must report
5592: --
5593: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5594: hr_utility.set_message_token('PROCEDURE', l_proc);
5595: hr_utility.set_message_token('STEP','15');
5596: hr_utility.raise_error;
5597: End dt_update_validate;
5590: -- An unhandled or unexpected error has occurred which
5591: -- we must report
5592: --
5593: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5594: hr_utility.set_message_token('PROCEDURE', l_proc);
5595: hr_utility.set_message_token('STEP','15');
5596: hr_utility.raise_error;
5597: End dt_update_validate;
5598: --
5591: -- we must report
5592: --
5593: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5594: hr_utility.set_message_token('PROCEDURE', l_proc);
5595: hr_utility.set_message_token('STEP','15');
5596: hr_utility.raise_error;
5597: End dt_update_validate;
5598: --
5599: -- ----------------------------------------------------------------------------
5592: --
5593: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5594: hr_utility.set_message_token('PROCEDURE', l_proc);
5595: hr_utility.set_message_token('STEP','15');
5596: hr_utility.raise_error;
5597: End dt_update_validate;
5598: --
5599: -- ----------------------------------------------------------------------------
5600: -- |--------------------------< dt_delete_validate >--------------------------|
5643: --
5644: Begin
5645: if g_debug then
5646: l_proc := g_package||'dt_delete_validate';
5647: hr_utility.set_location('Entering:'||l_proc, 5);
5648: end if;
5649: --
5650: -- Ensure that the p_datetrack_mode argument is not null
5651: --
5726: --
5727: End If;
5728: --
5729: if g_debug then
5730: hr_utility.set_location(' Leaving:'||l_proc, 10);
5731: end if;
5732: Exception
5733: When l_rows_exist Then
5734: --
5734: --
5735: -- A referential integrity check was violated therefore
5736: -- we must error
5737: --
5738: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5739: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5740: hr_utility.raise_error;
5741: When Others Then
5742: --
5735: -- A referential integrity check was violated therefore
5736: -- we must error
5737: --
5738: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5739: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5740: hr_utility.raise_error;
5741: When Others Then
5742: --
5743: -- An unhandled or unexpected error has occurred which
5736: -- we must error
5737: --
5738: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5739: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5740: hr_utility.raise_error;
5741: When Others Then
5742: --
5743: -- An unhandled or unexpected error has occurred which
5744: -- we must report
5742: --
5743: -- An unhandled or unexpected error has occurred which
5744: -- we must report
5745: --
5746: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5747: hr_utility.set_message_token('PROCEDURE', l_proc);
5748: hr_utility.set_message_token('STEP','15');
5749: hr_utility.raise_error;
5750: End dt_delete_validate;
5743: -- An unhandled or unexpected error has occurred which
5744: -- we must report
5745: --
5746: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5747: hr_utility.set_message_token('PROCEDURE', l_proc);
5748: hr_utility.set_message_token('STEP','15');
5749: hr_utility.raise_error;
5750: End dt_delete_validate;
5751: --
5744: -- we must report
5745: --
5746: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5747: hr_utility.set_message_token('PROCEDURE', l_proc);
5748: hr_utility.set_message_token('STEP','15');
5749: hr_utility.raise_error;
5750: End dt_delete_validate;
5751: --
5752: Procedure chk_proposed_status
5745: --
5746: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5747: hr_utility.set_message_token('PROCEDURE', l_proc);
5748: hr_utility.set_message_token('STEP','15');
5749: hr_utility.raise_error;
5750: End dt_delete_validate;
5751: --
5752: Procedure chk_proposed_status
5753: (p_position_id in number
5773: Begin
5774: --
5775: if g_debug then
5776: l_proc := g_package||'chk_proposed_status';
5777: hr_utility.set_location('Entering:'||l_proc, 5);
5778: end if;
5779: --
5780: l_api_updating := hr_psf_shd.api_updating
5781: (p_position_id => p_position_id
5782: ,p_effective_date => p_effective_date
5783: ,p_object_version_number => p_object_version_number);
5784: --
5785: if g_debug then
5786: hr_utility.set_location('datetrack mode:'||p_datetrack_mode, 5);
5787: end if;
5788: if p_datetrack_mode = 'CORRECTION' then
5789: if (l_api_updating
5790: and p_availability_status_id
5790: and p_availability_status_id
5791: <> nvl(hr_psf_shd.g_old_rec.availability_status_id,hr_api.g_number))
5792: then
5793: if g_debug then
5794: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5795: hr_utility.set_location('position id:'||p_position_id, 5);
5796: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5797: end if;
5798: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5791: <> nvl(hr_psf_shd.g_old_rec.availability_status_id,hr_api.g_number))
5792: then
5793: if g_debug then
5794: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5795: hr_utility.set_location('position id:'||p_position_id, 5);
5796: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5797: end if;
5798: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5799: if g_debug then
5792: then
5793: if g_debug then
5794: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5795: hr_utility.set_location('position id:'||p_position_id, 5);
5796: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5797: end if;
5798: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5799: if g_debug then
5800: hr_utility.set_location('Entering:'||l_proc, 5);
5796: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5797: end if;
5798: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5799: if g_debug then
5800: hr_utility.set_location('Entering:'||l_proc, 5);
5801: end if;
5802: open c1;
5803: fetch c1 into l_count;
5804: close c1;
5802: open c1;
5803: fetch c1 into l_count;
5804: close c1;
5805: if l_count >0 then
5806: hr_utility.set_message(800, 'HR_ASG_EXISTS_CANT_CHG_PROP');
5807: hr_utility.raise_error;
5808: end if;
5809: end if;
5810: end if;
5803: fetch c1 into l_count;
5804: close c1;
5805: if l_count >0 then
5806: hr_utility.set_message(800, 'HR_ASG_EXISTS_CANT_CHG_PROP');
5807: hr_utility.raise_error;
5808: end if;
5809: end if;
5810: end if;
5811: end if;
5810: end if;
5811: end if;
5812: --
5813: if g_debug then
5814: hr_utility.set_location('Leaving:'||l_proc,10);
5815: end if;
5816: --
5817: end chk_proposed_status;
5818: --
5829: --
5830: l_proc varchar2(72) ;
5831: --
5832: Begin
5833: g_debug := hr_utility.debug_enabled;
5834: if g_debug then
5835: l_proc := g_package||'insert_validate';
5836: hr_utility.set_location('Entering:'||l_proc, 5);
5837: end if;
5832: Begin
5833: g_debug := hr_utility.debug_enabled;
5834: if g_debug then
5835: l_proc := g_package||'insert_validate';
5836: hr_utility.set_location('Entering:'||l_proc, 5);
5837: end if;
5838: --
5839: -- Call all supporting business operations
5840: --
5840: --
5841: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
5842: --
5843: if g_debug then
5844: hr_utility.set_location(l_proc, 6);
5845: end if;
5846: --
5847: -- Validate date effective and date_end
5848: --
5855: ,p_object_version_number => p_rec.object_version_number
5856: );
5857: --
5858: if g_debug then
5859: hr_utility.set_location(l_proc, 50);
5860: end if;
5861: --
5862: -- validate end dates
5863: chk_end_dates
5874: --
5875: -- Validate job id
5876: --
5877: if g_debug then
5878: hr_utility.set_location(l_proc, 100);
5879: end if;
5880: chk_job_id
5881: (p_job_id => p_rec.job_id
5882: ,p_business_group_id => p_rec.business_group_id
5886: ,p_object_version_number => p_rec.object_version_number
5887: );
5888: --
5889: if g_debug then
5890: hr_utility.set_location(l_proc, 110);
5891: end if;
5892: --
5893: -- Validate organization id
5894: --
5901: ,p_object_version_number => p_rec.object_version_number
5902: );
5903: --
5904: if g_debug then
5905: hr_utility.set_location(l_proc, 120);
5906: end if;
5907: --
5908: -- Validate successor position id
5909: --
5916: ,p_effective_date => p_effective_date
5917: ,p_object_version_number => p_rec.object_version_number
5918: );
5919: if g_debug then
5920: hr_utility.set_location(l_proc, 130);
5921: end if;
5922: --
5923: -- Validate relief position id
5924: --
5930: ,p_effective_date => p_effective_Date
5931: );
5932: --
5933: if g_debug then
5934: hr_utility.set_location(l_proc, 140);
5935: end if;
5936: --
5937: -- Validate location_id
5938: --
5944:
5945: );
5946: --
5947: if g_debug then
5948: hr_utility.set_location(l_proc, 150);
5949: end if;
5950: --
5951: -- Validate position definition id
5952: --
5955: ,p_effective_Date => p_effective_date
5956: );
5957: --
5958: if g_debug then
5959: hr_utility.set_location(l_proc, 160);
5960: end if;
5961: --
5962: -- Validate working_hours and frequency
5963: --
5967: ,p_effective_date => p_effective_date
5968: );
5969: --
5970: if g_debug then
5971: hr_utility.set_location(l_proc, 170);
5972: end if;
5973: --
5974: -- Validate probation period and probation_period_unit_cd
5975: --
5979: ,p_effective_Date => p_effective_date
5980: );
5981: --
5982: if g_debug then
5983: hr_utility.set_location('Entering:'||l_proc, 180);
5984: end if;
5985: --
5986: -- Validate time normal start and time_normal_finish
5987: --
5991: ,p_effective_date => p_effective_date
5992: );
5993: --
5994: if g_debug then
5995: hr_utility.set_location(l_proc, 200);
5996: end if;
5997: --
5998: chk_entry_step_id
5999: (p_position_id => p_rec.position_id
6006: ,p_object_version_number => p_rec.object_version_number
6007: );
6008: --
6009: if g_debug then
6010: hr_utility.set_location(l_proc, 210);
6011: end if;
6012: --
6013: chk_entry_grade_id
6014: (p_position_id => p_rec.position_id
6020: ,p_object_version_number => p_rec.object_version_number
6021: );
6022: --
6023: if g_debug then
6024: hr_utility.set_location(l_proc, 215);
6025: end if;
6026: --
6027: chk_entry_grade_rule_id
6028: (p_position_id => p_rec.position_id
6034: ,p_object_version_number => p_rec.object_version_number
6035: );
6036: --
6037: if g_debug then
6038: hr_utility.set_location(l_proc, 220);
6039: end if;
6040: --
6041: chk_work_term_end_month_cd
6042: (p_position_id => p_rec.position_id
6046: ,p_validation_end_date => p_validation_end_date
6047: ,p_object_version_number => p_rec.object_version_number);
6048: --
6049: if g_debug then
6050: hr_utility.set_location(l_proc, 230);
6051: end if;
6052: --
6053: chk_work_term_end_day_cd
6054: (p_position_id => p_rec.position_id
6058: ,p_validation_end_date => p_validation_end_date
6059: ,p_object_version_number => p_rec.object_version_number);
6060: --
6061: if g_debug then
6062: hr_utility.set_location(l_proc, 240);
6063: end if;
6064: --
6065: chk_work_period_type_cd
6066: (p_position_id => p_rec.position_id
6070: ,p_validation_end_date => p_validation_end_date
6071: ,p_object_version_number => p_rec.object_version_number);
6072: --
6073: if g_debug then
6074: hr_utility.set_location(l_proc, 250);
6075: end if;
6076: --
6077: chk_works_council_approval_flg
6078: (p_position_id => p_rec.position_id
6082: ,p_validation_end_date => p_validation_end_date
6083: ,p_object_version_number => p_rec.object_version_number);
6084: --
6085: if g_debug then
6086: hr_utility.set_location(l_proc, 260);
6087: end if;
6088: --
6089: chk_term_start_month_cd
6090: (p_position_id => p_rec.position_id
6094: ,p_validation_end_date => p_validation_end_date
6095: ,p_object_version_number => p_rec.object_version_number);
6096: --
6097: if g_debug then
6098: hr_utility.set_location(l_proc, 270);
6099: end if;
6100: --
6101: chk_term_start_day_cd
6102: (p_position_id => p_rec.position_id
6106: ,p_validation_end_date => p_validation_end_date
6107: ,p_object_version_number => p_rec.object_version_number);
6108: --
6109: if g_debug then
6110: hr_utility.set_location(l_proc, 280);
6111: end if;
6112: --
6113: chk_seasonal_flag
6114: (p_position_id => p_rec.position_id
6118: ,p_validation_end_date => p_validation_end_date
6119: ,p_object_version_number => p_rec.object_version_number);
6120: --
6121: if g_debug then
6122: hr_utility.set_location(l_proc, 290);
6123: end if;
6124: --
6125: chk_review_flag
6126: (p_position_id => p_rec.position_id
6130: ,p_validation_end_date => p_validation_end_date
6131: ,p_object_version_number => p_rec.object_version_number);
6132: --
6133: if g_debug then
6134: hr_utility.set_location(l_proc, 300);
6135: end if;
6136: --
6137: chk_replacement_required_flag
6138: (p_position_id => p_rec.position_id
6142: ,p_validation_end_date => p_validation_end_date
6143: ,p_object_version_number => p_rec.object_version_number);
6144: --
6145: if g_debug then
6146: hr_utility.set_location(l_proc, 310);
6147: end if;
6148: --
6149: chk_probation_period_unit_cd
6150: (p_position_id => p_rec.position_id
6154: ,p_validation_end_date => p_validation_end_date
6155: ,p_object_version_number => p_rec.object_version_number);
6156: --
6157: if g_debug then
6158: hr_utility.set_location(l_proc, 320);
6159: end if;
6160: --
6161: chk_permit_recruitment_flag
6162: (p_position_id => p_rec.position_id
6166: ,p_validation_end_date => p_validation_end_date
6167: ,p_object_version_number => p_rec.object_version_number);
6168: --
6169: if g_debug then
6170: hr_utility.set_location(l_proc, 330);
6171: end if;
6172: --
6173: chk_permanent_temporary_flag
6174: (p_position_id => p_rec.position_id
6178: ,p_validation_end_date => p_validation_end_date
6179: ,p_object_version_number => p_rec.object_version_number);
6180: --
6181: if g_debug then
6182: hr_utility.set_location(l_proc, 335);
6183: end if;
6184: --
6185: chk_permanent_seasonal_flag
6186: (p_position_id => p_rec.position_id
6190: ,p_object_version_number => p_rec.object_version_number);
6191: --
6192:
6193: if g_debug then
6194: hr_utility.set_location(l_proc, 340);
6195: end if;
6196: --
6197: chk_pay_term_end_month_cd
6198: (p_position_id => p_rec.position_id
6202: ,p_validation_end_date => p_validation_end_date
6203: ,p_object_version_number => p_rec.object_version_number);
6204: --
6205: if g_debug then
6206: hr_utility.set_location(l_proc, 350);
6207: end if;
6208: --
6209: chk_pay_term_end_day_cd
6210: (p_position_id => p_rec.position_id
6214: ,p_validation_end_date => p_validation_end_date
6215: ,p_object_version_number => p_rec.object_version_number);
6216: --
6217: if g_debug then
6218: hr_utility.set_location(l_proc, 360);
6219: end if;
6220: --
6221: chk_overlap_unit_cd
6222: (p_position_id => p_rec.position_id
6226: ,p_validation_end_date => p_validation_end_date
6227: ,p_object_version_number => p_rec.object_version_number);
6228: --
6229: if g_debug then
6230: hr_utility.set_location(l_proc, 370);
6231: end if;
6232: --
6233: chk_bargaining_unit_cd
6234: (p_position_id => p_rec.position_id
6238: ,p_validation_end_date => p_validation_end_date
6239: ,p_object_version_number => p_rec.object_version_number);
6240: --
6241: if g_debug then
6242: hr_utility.set_location(l_proc, 380);
6243: end if;
6244: --
6245: chk_pay_freq_payroll_id
6246: (p_position_id => p_rec.position_id
6253: ,p_object_version_number => p_rec.object_version_number
6254: );
6255: --
6256: if g_debug then
6257: hr_utility.set_location(l_proc, 390);
6258: end if;
6259: --
6260: /*
6261: chk_position_transaction_id
6269: --
6270: */
6271: --
6272: if g_debug then
6273: hr_utility.set_location(l_proc, 400);
6274: end if;
6275: --
6276: chk_supervisor_position_id
6277: (p_business_group_id => p_rec.business_group_id
6283: ,p_object_version_number => p_rec.object_version_number
6284: );
6285: --
6286: if g_debug then
6287: hr_utility.set_location(l_proc, 410);
6288: end if;
6289: --
6290: chk_prior_position_id
6291: (p_business_group_id => p_rec.business_group_id
6297: ,p_object_version_number => p_rec.object_version_number
6298: );
6299: --
6300: if g_debug then
6301: hr_utility.set_location(l_proc, 420);
6302: end if;
6303: --
6304: chk_availability_status_id
6305: (p_position_id => p_rec.position_id
6312: ,p_object_version_number => p_rec.object_version_number
6313: ,p_datetrack_mode => p_datetrack_mode );
6314: --
6315: if g_debug then
6316: hr_utility.set_location(l_proc, 430);
6317: end if;
6318: --
6319: chk_position_type
6320: (p_position_id => p_rec.position_id
6325: ,p_object_version_number => p_rec.object_version_number
6326: );
6327: --
6328: if g_debug then
6329: hr_utility.set_location(l_proc, 440);
6330: end if;
6331: --
6332: chk_fte
6333: (p_position_id => p_rec.position_id
6338: ,p_validation_end_date => p_validation_end_Date
6339: ,p_object_version_number => p_rec.object_version_number);
6340: --
6341: if g_debug then
6342: hr_utility.set_location(l_proc, 445);
6343: end if;
6344: --
6345: chk_max_persons
6346: (p_position_id => p_rec.position_id
6349: ,p_effective_date => p_effective_date
6350: ,p_object_version_number => p_rec.object_version_number);
6351: --
6352: if g_debug then
6353: hr_utility.set_location(l_proc, 450);
6354: end if;
6355: --
6356: chk_extended_pay
6357: (p_position_id => p_rec.position_id
6364: ,p_work_term_end_month_cd => p_rec.work_term_end_month_cd
6365: );
6366: --
6367: if g_debug then
6368: hr_utility.set_location(l_proc, 460);
6369: end if;
6370: --
6371: chk_proposed_fte_for_layoff
6372: (p_fte => p_rec.fte
6374: ,p_proposed_date_for_layoff => p_rec.proposed_Date_for_layoff
6375: );
6376: --
6377: if g_debug then
6378: hr_utility.set_location(l_proc, 470);
6379: end if;
6380: --
6381: /*
6382: chk_extended_pay_permit
6387: ,p_validation_end_date => p_validation_end_date
6388: ,p_object_version_number => p_rec.object_version_number
6389: );
6390: if g_debug then
6391: hr_utility.set_location(l_proc, 2000);
6392: end if;
6393: --
6394: -- Validate status
6395: --
6401: );
6402: --
6403: */
6404: if g_debug then
6405: hr_utility.set_location('Entering:'||l_proc, 210);
6406: end if;
6407: --
6408: --
6409: -- Call developer descriptive flexfield validation routines
6416: --
6417: hr_psf_bus.chk_df(p_rec => p_rec);
6418: --
6419: if g_debug then
6420: hr_utility.set_location('Entering:'||l_proc, 220);
6421: end if;
6422: --
6423: -- PMFLETCH ** Not using this uniqueness chech anymore **
6424: -- Check position_name is unique for Business_group
6451: , p_effective_date => p_effective_date
6452: ) = 'Y') then
6453: --
6454: if p_rec.position_transaction_id is null then
6455: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
6456: hr_utility.raise_error;
6457: end if;
6458: --
6459: end if;
6452: ) = 'Y') then
6453: --
6454: if p_rec.position_transaction_id is null then
6455: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
6456: hr_utility.raise_error;
6457: end if;
6458: --
6459: end if;
6460: --
6467: --End of Position Control Business Rules call
6468: --
6469: --
6470: if g_debug then
6471: hr_utility.set_location(' Leaving:'||l_proc, 230);
6472: end if;
6473: --
6474: End insert_validate;
6475: --
6485: --
6486: l_proc varchar2(72) ;
6487: --
6488: Begin
6489: g_debug := hr_utility.debug_enabled;
6490: if g_debug then
6491: l_proc := g_package||'update_validate';
6492: hr_utility.set_location('Entering:'||l_proc, 5);
6493: end if;
6488: Begin
6489: g_debug := hr_utility.debug_enabled;
6490: if g_debug then
6491: l_proc := g_package||'update_validate';
6492: hr_utility.set_location('Entering:'||l_proc, 5);
6493: end if;
6494: --
6495: -- Call all supporting business operations
6496: --
6496: --
6497: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
6498: --
6499: if g_debug then
6500: hr_utility.set_location('Entering:'||l_proc, 100);
6501: end if;
6502: -- Validate successor position id
6503: --
6504: chk_successor_position_id
6511: ,p_object_version_number => p_rec.object_version_number
6512: );
6513: --
6514: if g_debug then
6515: hr_utility.set_location('Entering:'||l_proc, 110);
6516: end if;
6517: --
6518: -- Validate relief position id
6519: --
6527: ,p_object_version_number => p_rec.object_version_number
6528: );
6529: --
6530: if g_debug then
6531: hr_utility.set_location('Entering:'||l_proc, 120);
6532: end if;
6533: --
6534: -- Validate location_id
6535: --
6542: ,p_object_version_number => p_rec.object_version_number
6543: );
6544: --
6545: if g_debug then
6546: hr_utility.set_location('Entering:'||l_proc, 130);
6547: end if;
6548: --
6549: -- Validate working_hours and frequency
6550: --
6556: ,p_object_version_number => p_rec.object_version_number
6557: );
6558: --
6559: if g_debug then
6560: hr_utility.set_location('Entering:'||l_proc, 140);
6561: end if;
6562: --
6563: -- Validate probation period and probation_period_unit_cd
6564: --
6570: ,p_object_version_number => p_rec.object_version_number
6571: );
6572: --
6573: if g_debug then
6574: hr_utility.set_location('Entering:'||l_proc, 150);
6575: end if;
6576: --
6577: -- Validate time normal start and time_normal_finish
6578: --
6584: ,p_object_version_number => p_rec.object_version_number
6585: );
6586: --
6587: if g_debug then
6588: hr_utility.set_location('Entering:'||l_proc, 160);
6589: end if;
6590: --
6591: -- Validate position definition id
6592: --
6597: ,p_object_version_number => p_rec.object_version_number
6598: );
6599: --
6600: if g_debug then
6601: hr_utility.set_location(l_proc, 165);
6602: end if;
6603: --
6604: -- Validate working_hours and frequency
6605: --
6610: ,p_effective_date => p_effective_date
6611: );
6612: --
6613: if g_debug then
6614: hr_utility.set_location(l_proc, 170);
6615: end if;
6616: --
6617: -- Validate probation period and probation_period_unit_cd
6618: --
6623: ,p_effective_Date => p_effective_date
6624: );
6625: --
6626: if g_debug then
6627: hr_utility.set_location('Entering:'||l_proc, 180);
6628: end if;
6629: --
6630: -- Validate time normal start and time_normal_finish
6631: --
6636: ,p_effective_date => p_effective_date
6637: );
6638: --
6639: if g_debug then
6640: hr_utility.set_location(l_proc, 200);
6641: end if;
6642: --
6643: chk_entry_step_id
6644: (p_position_id => p_rec.position_id
6650: ,p_effective_date => p_effective_date
6651: ,p_object_version_number => p_rec.object_version_number
6652: );
6653: if g_debug then
6654: hr_utility.set_location(l_proc, 210);
6655: end if;
6656: chk_entry_grade_id
6657: (p_position_id => p_rec.position_id
6658: ,p_business_group_id => p_rec.business_group_id
6663: ,p_object_version_number => p_rec.object_version_number
6664: );
6665: --
6666: if g_debug then
6667: hr_utility.set_location(l_proc, 215);
6668: end if;
6669: --
6670: chk_entry_grade_rule_id
6671: (p_position_id => p_rec.position_id
6677: ,p_object_version_number => p_rec.object_version_number
6678: );
6679: --
6680: if g_debug then
6681: hr_utility.set_location(l_proc, 220);
6682: end if;
6683: --
6684: chk_work_term_end_month_cd
6685: (p_position_id => p_rec.position_id
6689: ,p_validation_end_date => p_validation_end_date
6690: ,p_object_version_number => p_rec.object_version_number);
6691: --
6692: if g_debug then
6693: hr_utility.set_location(l_proc, 230);
6694: end if;
6695: --
6696: chk_work_term_end_day_cd
6697: (p_position_id => p_rec.position_id
6701: ,p_validation_end_date => p_validation_end_date
6702: ,p_object_version_number => p_rec.object_version_number);
6703: --
6704: if g_debug then
6705: hr_utility.set_location(l_proc, 240);
6706: end if;
6707: --
6708: chk_work_period_type_cd
6709: (p_position_id => p_rec.position_id
6713: ,p_validation_end_date => p_validation_end_date
6714: ,p_object_version_number => p_rec.object_version_number);
6715: --
6716: if g_debug then
6717: hr_utility.set_location(l_proc, 250);
6718: end if;
6719: --
6720: chk_works_council_approval_flg
6721: (p_position_id => p_rec.position_id
6725: ,p_validation_end_date => p_validation_end_date
6726: ,p_object_version_number => p_rec.object_version_number);
6727: --
6728: if g_debug then
6729: hr_utility.set_location(l_proc, 260);
6730: end if;
6731: --
6732: chk_term_start_month_cd
6733: (p_position_id => p_rec.position_id
6737: ,p_validation_end_date => p_validation_end_date
6738: ,p_object_version_number => p_rec.object_version_number);
6739: --
6740: if g_debug then
6741: hr_utility.set_location(l_proc, 270);
6742: end if;
6743: --
6744: chk_term_start_day_cd
6745: (p_position_id => p_rec.position_id
6749: ,p_validation_end_date => p_validation_end_date
6750: ,p_object_version_number => p_rec.object_version_number);
6751: --
6752: if g_debug then
6753: hr_utility.set_location(l_proc, 280);
6754: end if;
6755: --
6756: chk_seasonal_flag
6757: (p_position_id => p_rec.position_id
6761: ,p_validation_end_date => p_validation_end_date
6762: ,p_object_version_number => p_rec.object_version_number);
6763: --
6764: if g_debug then
6765: hr_utility.set_location(l_proc, 290);
6766: end if;
6767: --
6768: chk_review_flag
6769: (p_position_id => p_rec.position_id
6773: ,p_validation_end_date => p_validation_end_date
6774: ,p_object_version_number => p_rec.object_version_number);
6775: --
6776: if g_debug then
6777: hr_utility.set_location(l_proc, 300);
6778: end if;
6779: --
6780: chk_replacement_required_flag
6781: (p_position_id => p_rec.position_id
6785: ,p_validation_end_date => p_validation_end_date
6786: ,p_object_version_number => p_rec.object_version_number);
6787: --
6788: if g_debug then
6789: hr_utility.set_location(l_proc, 310);
6790: end if;
6791: --
6792: chk_probation_period_unit_cd
6793: (p_position_id => p_rec.position_id
6797: ,p_validation_end_date => p_validation_end_date
6798: ,p_object_version_number => p_rec.object_version_number);
6799: --
6800: if g_debug then
6801: hr_utility.set_location(l_proc, 320);
6802: end if;
6803: --
6804: chk_permit_recruitment_flag
6805: (p_position_id => p_rec.position_id
6809: ,p_validation_end_date => p_validation_end_date
6810: ,p_object_version_number => p_rec.object_version_number);
6811: --
6812: if g_debug then
6813: hr_utility.set_location(l_proc, 330);
6814: end if;
6815: --
6816: chk_permanent_temporary_flag
6817: (p_position_id => p_rec.position_id
6821: ,p_validation_end_date => p_validation_end_date
6822: ,p_object_version_number => p_rec.object_version_number);
6823: --
6824: if g_debug then
6825: hr_utility.set_location(l_proc, 335);
6826: end if;
6827: --
6828: -- for bug fix 5250975
6829: chk_permanent_seasonal_flag
6834: ,p_object_version_number => p_rec.object_version_number);
6835: --
6836:
6837: if g_debug then
6838: hr_utility.set_location(l_proc, 340);
6839: end if;
6840: --
6841: chk_pay_term_end_month_cd
6842: (p_position_id => p_rec.position_id
6846: ,p_validation_end_date => p_validation_end_date
6847: ,p_object_version_number => p_rec.object_version_number);
6848: --
6849: if g_debug then
6850: hr_utility.set_location(l_proc, 350);
6851: end if;
6852: --
6853: chk_pay_term_end_day_cd
6854: (p_position_id => p_rec.position_id
6858: ,p_validation_end_date => p_validation_end_date
6859: ,p_object_version_number => p_rec.object_version_number);
6860: --
6861: if g_debug then
6862: hr_utility.set_location(l_proc, 360);
6863: end if;
6864: --
6865: chk_overlap_unit_cd
6866: (p_position_id => p_rec.position_id
6870: ,p_validation_end_date => p_validation_end_date
6871: ,p_object_version_number => p_rec.object_version_number);
6872: --
6873: if g_debug then
6874: hr_utility.set_location(l_proc, 370);
6875: end if;
6876: --
6877: chk_bargaining_unit_cd
6878: (p_position_id => p_rec.position_id
6882: ,p_validation_end_date => p_validation_end_date
6883: ,p_object_version_number => p_rec.object_version_number);
6884: --
6885: if g_debug then
6886: hr_utility.set_location(l_proc, 380);
6887: end if;
6888: --
6889: chk_pay_freq_payroll_id
6890: (p_position_id => p_rec.position_id
6897: ,p_object_version_number => p_rec.object_version_number
6898: );
6899: --
6900: if g_debug then
6901: hr_utility.set_location(l_proc, 390);
6902: end if;
6903: --
6904: /*
6905: chk_position_transaction_id
6912: );
6913: */
6914: --
6915: if g_debug then
6916: hr_utility.set_location(l_proc, 400);
6917: end if;
6918: --
6919: chk_supervisor_position_id
6920: (p_business_group_id => p_rec.business_group_id
6926: ,p_object_version_number => p_rec.object_version_number
6927: );
6928: --
6929: if g_debug then
6930: hr_utility.set_location(l_proc, 410);
6931: end if;
6932: --
6933: chk_prior_position_id
6934: (p_business_group_id => p_rec.business_group_id
6940: ,p_object_version_number => p_rec.object_version_number
6941: );
6942: --
6943: if g_debug then
6944: hr_utility.set_location(l_proc, 420);
6945: end if;
6946: --
6947: chk_availability_status_id
6948: (p_position_id => p_rec.position_id
6955: ,p_object_version_number => p_rec.object_version_number
6956: ,p_datetrack_mode => p_datetrack_mode );
6957: --
6958: if g_debug then
6959: hr_utility.set_location(l_proc, 430);
6960: end if;
6961: --
6962: chk_position_type
6963: (p_position_id => p_rec.position_id
6968: ,p_object_version_number => p_rec.object_version_number
6969: );
6970: --
6971: if g_debug then
6972: hr_utility.set_location(l_proc, 440);
6973: end if;
6974: --
6975: chk_fte
6976: (p_position_id => p_rec.position_id
6981: ,p_validation_end_date => p_validation_end_Date
6982: ,p_object_version_number => p_rec.object_version_number);
6983: --
6984: if g_debug then
6985: hr_utility.set_location(l_proc, 445);
6986: end if;
6987: --
6988: chk_max_persons
6989: (p_position_id => p_rec.position_id
6992: ,p_effective_date => p_effective_date
6993: ,p_object_version_number => p_rec.object_version_number);
6994: --
6995: if g_debug then
6996: hr_utility.set_location(l_proc, 450);
6997: end if;
6998: --
6999: if (p_rec.position_transaction_id is null) then
7000: chk_reserved_fte
7007: ,p_object_version_number => p_rec.object_version_number);
7008: end if;
7009: --
7010: if g_debug then
7011: hr_utility.set_location(l_proc, 455);
7012: end if;
7013: --
7014: chk_extended_pay
7015: (p_position_id => p_rec.position_id
7022: ,p_work_term_end_month_cd => p_rec.work_term_end_month_cd
7023: );
7024: --
7025: if g_debug then
7026: hr_utility.set_location(l_proc, 460);
7027: end if;
7028: --
7029: chk_proposed_fte_for_layoff
7030: (p_fte => p_rec.fte
7032: ,p_proposed_date_for_layoff => p_rec.proposed_Date_for_layoff
7033: );
7034: --
7035: if g_debug then
7036: hr_utility.set_location(l_proc, 470);
7037: end if;
7038: --
7039: --
7040: -- Call the datetrack update integrity operation
7051: p_validation_end_date => p_validation_end_date);
7052: --
7053: --
7054: if g_debug then
7055: hr_utility.set_location(l_proc, 480);
7056: end if;
7057: --
7058: --
7059: chk_proposed_status
7069: -- Call all supporting business operations
7070: --
7071: --
7072: if g_debug then
7073: hr_utility.set_location(l_proc, 490);
7074: end if;
7075: --
7076: -- validate end dates
7077: chk_end_dates
7086: ,proposed_date_for_layoff => p_rec.proposed_date_for_layoff
7087: ,date_effective => p_rec.date_effective );
7088: --
7089: if g_debug then
7090: hr_utility.set_location(l_proc, 500);
7091: end if;
7092: --
7093: -- Validate date effective
7094: --
7104: --
7105: --
7106: --
7107: if g_debug then
7108: hr_utility.set_location(l_proc, 510);
7109: end if;
7110: --
7111: chk_seasonal_poi
7112: (p_position_id => p_rec.position_id
7116: ,p_validation_end_date => p_validation_end_date
7117: ,p_object_version_number => p_rec.object_version_number);
7118: --
7119: if g_debug then
7120: hr_utility.set_location(l_proc, 520);
7121: end if;
7122: --
7123: chk_overlap_poi
7124: (p_position_id => p_rec.position_id
7128: ,p_validation_end_date => p_validation_end_date
7129: ,p_object_version_number => p_rec.object_version_number);
7130: --
7131: if g_debug then
7132: hr_utility.set_location(l_proc, 530);
7133: end if;
7134: --
7135: /*
7136: chk_extended_pay_permit
7142: ,p_object_version_number => p_rec.object_version_number
7143: );
7144: --
7145: if g_debug then
7146: hr_utility.set_location('Entering:'||l_proc, 450);
7147: end if;
7148: --
7149: -- Validate status
7150: --
7155: );
7156: */
7157: --
7158: if g_debug then
7159: hr_utility.set_location('Entering:'||l_proc, 600);
7160: end if;
7161: --
7162: -- PMFLETCH ** Not using this uniqueness chech anymore **
7163: -- Check position_name is unique for Business_group
7183: );
7184: --
7185: --
7186: if g_debug then
7187: hr_utility.set_location(l_proc, 610);
7188: end if;
7189: --
7190: -- Check validation for position_type change to Single
7191: --
7195: ,p_effective_date => p_effective_date
7196: ,p_object_version_number => p_rec.object_version_number);
7197: --
7198: if g_debug then
7199: hr_utility.set_location(l_proc, 620);
7200: end if;
7201: --
7202: --
7203: --
7206: -- hr_psf_bus.chk_ddf(p_rec => p_rec);
7207: --
7208: --
7209: if g_debug then
7210: hr_utility.set_location(l_proc, 630);
7211: end if;
7212: --
7213: -- Call descriptive flexfield validation routines
7214: --
7222: , p_effective_date => p_effective_date
7223: ) = 'Y') then
7224: --
7225: if p_rec.position_transaction_id is null then
7226: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
7227: hr_utility.raise_error;
7228: end if;
7229: --
7230: end if;
7223: ) = 'Y') then
7224: --
7225: if p_rec.position_transaction_id is null then
7226: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
7227: hr_utility.raise_error;
7228: end if;
7229: --
7230: end if;
7231: --
7239: --End of Position Control Business Rules call
7240: --
7241: --
7242: if g_debug then
7243: hr_utility.set_location(' Leaving:'||l_proc, 700);
7244: end if;
7245: --
7246: End update_validate;
7247: --
7276: for update of date_effective;
7277: begin
7278: if g_debug then
7279: l_proc := g_package||'delete_date_effective ';
7280: hr_utility.set_location('entering '||l_proc,5);
7281: end if;
7282: if p_datetrack_mode ='DELETE_NEXT_CHANGE' then
7283: open current_row ;
7284: fetch current_row into l_esd,l_eed ;
7286: -- effective start date of current row is fetched from the database
7287: -- that will be used to fetch the next row and its status
7288: if l_eed < l_eot then
7289: if g_debug then
7290: hr_utility.set_location('first row fetched and next row there '||l_proc,15);
7291: end if;
7292: open next_row(l_esd);
7293: fetch next_row into l_next_esd,l_next_eed,l_next_stat;
7294: if next_row%found then
7293: fetch next_row into l_next_esd,l_next_eed,l_next_stat;
7294: if next_row%found then
7295: if l_next_eed
7297: hr_utility.set_location('next row active and next row there '||l_proc,25);
7298: end if;
7299: fetch next_row into l_next_esd,l_next_eed,l_next_stat ;
7300: if l_next_stat = 'ACTIVE' then
7301: -- next to next row is active effective start date of that row will be
7300: if l_next_stat = 'ACTIVE' then
7301: -- next to next row is active effective start date of that row will be
7302: -- made date effective for all the rows.
7303: if g_debug then
7304: hr_utility.set_location('next row active changing date effective '||l_proc,35);
7305: end if;
7306: for i in pos_all loop
7307: update hr_all_positions_f
7308: set date_effective = l_next_esd
7314: close next_row;
7315: end if;
7316: end if;
7317: if g_debug then
7318: hr_utility.set_location('Leaving '||l_proc,100);
7319: end if;
7320: end;
7321: -- ----------------------------------------------------------------------------
7322: -- |-------------------------< pre_delete_checks >-----------------------------|
7337:
7338: begin
7339: if g_debug then
7340: l_proc := g_package||'pre_delete_checks';
7341: hr_utility.set_location('Entering : ' || l_proc, 10);
7342: end if;
7343: if p_datetrack_mode = 'ZAP' then
7344: if g_debug then
7345: hr_utility.set_location(l_proc, 20);
7341: hr_utility.set_location('Entering : ' || l_proc, 10);
7342: end if;
7343: if p_datetrack_mode = 'ZAP' then
7344: if g_debug then
7345: hr_utility.set_location(l_proc, 20);
7346: end if;
7347: l_exists := NULL;
7348: -- if p_hr_ins = 'Y' then
7349: l_exists := NULL;
7357: exception when no_data_found then
7358: null;
7359: end;
7360: if l_exists = '1' then
7361: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
7362: hr_utility.raise_error;
7363: end if;
7364: l_exists := NULL;
7365: if g_debug then
7358: null;
7359: end;
7360: if l_exists = '1' then
7361: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
7362: hr_utility.raise_error;
7363: end if;
7364: l_exists := NULL;
7365: if g_debug then
7366: hr_utility.set_location(l_proc, 30);
7362: hr_utility.raise_error;
7363: end if;
7364: l_exists := NULL;
7365: if g_debug then
7366: hr_utility.set_location(l_proc, 30);
7367: end if;
7368: begin
7369: select '1'
7370: into l_exists
7375: exception when no_data_found then
7376: null;
7377: end;
7378: if l_exists = '1' then
7379: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7380: hr_utility.raise_error;
7381: end if;
7382: if g_debug then
7383: hr_utility.set_location(l_proc, 40);
7376: null;
7377: end;
7378: if l_exists = '1' then
7379: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7380: hr_utility.raise_error;
7381: end if;
7382: if g_debug then
7383: hr_utility.set_location(l_proc, 40);
7384: end if;
7379: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7380: hr_utility.raise_error;
7381: end if;
7382: if g_debug then
7383: hr_utility.set_location(l_proc, 40);
7384: end if;
7385: /**** Commented for Bug 9146790 **********
7386: begin
7387: select e.pos_structure_element_id
7400: null;
7401: end;
7402: **** Commented for Bug 9146790 **********/
7403: if g_debug then
7404: hr_utility.set_location(l_proc, 50);
7405: end if;
7406: l_exists := NULL;
7407: -- if l_pos_structure_element_id is null then -- condition removed (Bug 9146790)
7408: begin
7416: exception when no_data_found then
7417: null;
7418: end;
7419: if g_debug then
7420: hr_utility.set_location(l_proc, 70);
7421: end if;
7422: if l_exists = '1' then
7423: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7424: hr_utility.raise_error;
7419: if g_debug then
7420: hr_utility.set_location(l_proc, 70);
7421: end if;
7422: if l_exists = '1' then
7423: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7424: hr_utility.raise_error;
7425: end if;
7426: -- end if; -- Bug 9146790
7427:
7420: hr_utility.set_location(l_proc, 70);
7421: end if;
7422: if l_exists = '1' then
7423: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7424: hr_utility.raise_error;
7425: end if;
7426: -- end if; -- Bug 9146790
7427:
7428: l_exists := NULL;
7426: -- end if; -- Bug 9146790
7427:
7428: l_exists := NULL;
7429: if g_debug then
7430: hr_utility.set_location(l_proc, 80);
7431: end if;
7432: begin
7433: select '1'
7434: into l_exists
7440: exception when no_data_found then
7441: null;
7442: end;
7443: if g_debug then
7444: hr_utility.set_location(l_proc, 90);
7445: end if;
7446: if l_exists = '1' then
7447: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7448: hr_utility.raise_error;
7443: if g_debug then
7444: hr_utility.set_location(l_proc, 90);
7445: end if;
7446: if l_exists = '1' then
7447: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7448: hr_utility.raise_error;
7449: end if;
7450: l_exists := NULL;
7451: if g_debug then
7444: hr_utility.set_location(l_proc, 90);
7445: end if;
7446: if l_exists = '1' then
7447: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7448: hr_utility.raise_error;
7449: end if;
7450: l_exists := NULL;
7451: if g_debug then
7452: hr_utility.set_location(l_proc, 100);
7448: hr_utility.raise_error;
7449: end if;
7450: l_exists := NULL;
7451: if g_debug then
7452: hr_utility.set_location(l_proc, 100);
7453: end if;
7454: begin
7455: select '1'
7456: into l_exists
7461: exception when no_data_found then
7462: null;
7463: end;
7464: if l_exists = '1' then
7465: hr_utility.set_message(801,'PER_7866_DEF_POS_DEL_REQ');
7466: hr_utility.raise_error;
7467: end if;
7468: l_exists := NULL;
7469: if g_debug then
7462: null;
7463: end;
7464: if l_exists = '1' then
7465: hr_utility.set_message(801,'PER_7866_DEF_POS_DEL_REQ');
7466: hr_utility.raise_error;
7467: end if;
7468: l_exists := NULL;
7469: if g_debug then
7470: hr_utility.set_location(l_proc, 110);
7466: hr_utility.raise_error;
7467: end if;
7468: l_exists := NULL;
7469: if g_debug then
7470: hr_utility.set_location(l_proc, 110);
7471: end if;
7472: begin
7473: select '1'
7474: into l_exists
7479: exception when no_data_found then
7480: null;
7481: end;
7482: if l_exists = '1' then
7483: hr_utility.set_message(801,'PER_7867_DEF_POS_DEL_EVAL');
7484: hr_utility.raise_error;
7485: end if;
7486:
7487: l_exists := NULL;
7480: null;
7481: end;
7482: if l_exists = '1' then
7483: hr_utility.set_message(801,'PER_7867_DEF_POS_DEL_EVAL');
7484: hr_utility.raise_error;
7485: end if;
7486:
7487: l_exists := NULL;
7488: if g_debug then
7485: end if;
7486:
7487: l_exists := NULL;
7488: if g_debug then
7489: hr_utility.set_location(l_proc, 120);
7490: end if;
7491: begin
7492: select '1'
7493: into l_exists
7500:
7501: end;
7502:
7503: if l_exists = '1' then
7504: hr_utility.set_message(801,'PER_7996_POS_SUCCESSOR_REF');
7505: hr_utility.raise_error;
7506: end if;
7507:
7508: l_exists := NULL;
7501: end;
7502:
7503: if l_exists = '1' then
7504: hr_utility.set_message(801,'PER_7996_POS_SUCCESSOR_REF');
7505: hr_utility.raise_error;
7506: end if;
7507:
7508: l_exists := NULL;
7509: if g_debug then
7506: end if;
7507:
7508: l_exists := NULL;
7509: if g_debug then
7510: hr_utility.set_location(l_proc, 120);
7511: end if;
7512: begin
7513: select '1'
7514: into l_exists
7521:
7522: end;
7523:
7524: if l_exists = '1' then
7525: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_REF');
7526: hr_utility.raise_error;
7527: end if;
7528:
7529: l_exists := NULL;
7522: end;
7523:
7524: if l_exists = '1' then
7525: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_REF');
7526: hr_utility.raise_error;
7527: end if;
7528:
7529: l_exists := NULL;
7530: if g_debug then
7527: end if;
7528:
7529: l_exists := NULL;
7530: if g_debug then
7531: hr_utility.set_location(l_proc, 130);
7532: end if;
7533: /*
7534: begin
7535: select '1'
7541: exception when no_data_found then
7542: null;
7543: end;
7544: if l_exists = '1' then
7545: hr_utility.set_message(800,'HR_DEL_POS_EXTRA_INFO');
7546: hr_utility.raise_error;
7547: end if;
7548: */
7549: l_exists := NULL;
7542: null;
7543: end;
7544: if l_exists = '1' then
7545: hr_utility.set_message(800,'HR_DEL_POS_EXTRA_INFO');
7546: hr_utility.raise_error;
7547: end if;
7548: */
7549: l_exists := NULL;
7550: if g_debug then
7547: end if;
7548: */
7549: l_exists := NULL;
7550: if g_debug then
7551: hr_utility.set_location(l_proc, 140);
7552: end if;
7553:
7554: begin
7555: select '1'
7562: null;
7563: end;
7564:
7565: if l_exists = '1' then
7566: hr_utility.set_message(800,'HR_52776_NOT_DEL_MM_POSITIONS');
7567: hr_utility.raise_error;
7568: end if;
7569: --
7570: l_exists := NULL;
7563: end;
7564:
7565: if l_exists = '1' then
7566: hr_utility.set_message(800,'HR_52776_NOT_DEL_MM_POSITIONS');
7567: hr_utility.raise_error;
7568: end if;
7569: --
7570: l_exists := NULL;
7571: if g_debug then
7568: end if;
7569: --
7570: l_exists := NULL;
7571: if g_debug then
7572: hr_utility.set_location(l_proc, 150);
7573: end if;
7574: /* new logic
7575: --
7576: begin
7584: null;
7585: end;
7586: --
7587: if l_exists = '1' then
7588: hr_utility.set_message(800,'HR_NOT_DEL_PTX');
7589: hr_utility.raise_error;
7590: end if;
7591: --
7592: l_exists := NULL;
7585: end;
7586: --
7587: if l_exists = '1' then
7588: hr_utility.set_message(800,'HR_NOT_DEL_PTX');
7589: hr_utility.raise_error;
7590: end if;
7591: --
7592: l_exists := NULL;
7593: if g_debug then
7590: end if;
7591: --
7592: l_exists := NULL;
7593: if g_debug then
7594: hr_utility.set_location(l_proc, 150);
7595: end if;
7596: --
7597: begin
7598: select '1'
7605: null;
7606: end;
7607: --
7608: if l_exists = '1' then
7609: hr_utility.set_message(800,'HR_NOT_DEL_ATT_RANGES');
7610: hr_utility.raise_error;
7611: end if;
7612: --
7613: l_exists := NULL;
7606: end;
7607: --
7608: if l_exists = '1' then
7609: hr_utility.set_message(800,'HR_NOT_DEL_ATT_RANGES');
7610: hr_utility.raise_error;
7611: end if;
7612: --
7613: l_exists := NULL;
7614: if g_debug then
7611: end if;
7612: --
7613: l_exists := NULL;
7614: if g_debug then
7615: hr_utility.set_location(l_proc, 150);
7616: end if;
7617: --
7618: begin
7619: select '1'
7626: null;
7627: end;
7628: --
7629: if l_exists = '1' then
7630: hr_utility.set_message(800,'HR_NOT_DEL_BGT');
7631: hr_utility.raise_error;
7632: end if;
7633: --
7634: l_exists := NULL;
7627: end;
7628: --
7629: if l_exists = '1' then
7630: hr_utility.set_message(800,'HR_NOT_DEL_BGT');
7631: hr_utility.raise_error;
7632: end if;
7633: --
7634: l_exists := NULL;
7635: if g_debug then
7632: end if;
7633: --
7634: l_exists := NULL;
7635: if g_debug then
7636: hr_utility.set_location(l_proc, 150);
7637: end if;
7638: --
7639: begin
7640: select '1'
7647: null;
7648: end;
7649: --
7650: if l_exists = '1' then
7651: hr_utility.set_message(800,'HR_NOT_WKS_DETAIL');
7652: hr_utility.raise_error;
7653: end if;
7654: -- end if;
7655: */
7648: end;
7649: --
7650: if l_exists = '1' then
7651: hr_utility.set_message(800,'HR_NOT_WKS_DETAIL');
7652: hr_utility.raise_error;
7653: end if;
7654: -- end if;
7655: */
7656: --
7680: --
7681: -- Open Cursor for Processing Sql statment.
7682: --
7683: if g_debug then
7684: hr_utility.set_location(l_proc, 150);
7685: end if;
7686: l_sql_cursor := dbms_sql.open_cursor;
7687: --
7688: -- Parse SQL statement.
7691: --
7692: -- Map the local variables to each returned Column
7693: --
7694: if g_debug then
7695: hr_utility.set_location(l_proc, 160);
7696: end if;
7697: dbms_sql.define_column(l_sql_cursor, 1,l_oci_out,1);
7698: --
7699: -- Execute the SQL statement.
7698: --
7699: -- Execute the SQL statement.
7700: --
7701: if g_debug then
7702: hr_utility.set_location(l_proc, 170);
7703: end if;
7704: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
7705: --
7706: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7704: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
7705: --
7706: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7707: then
7708: hr_utility.set_message(800,'HR_6048_PO_POS_DEL_POS_CONT');
7709: hr_utility.raise_error;
7710: end if;
7711: --
7712: -- Close cursor used for processing SQL statement.
7705: --
7706: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7707: then
7708: hr_utility.set_message(800,'HR_6048_PO_POS_DEL_POS_CONT');
7709: hr_utility.raise_error;
7710: end if;
7711: --
7712: -- Close cursor used for processing SQL statement.
7713: --
7712: -- Close cursor used for processing SQL statement.
7713: --
7714: dbms_sql.close_cursor(l_sql_cursor);
7715: if g_debug then
7716: hr_utility.set_location(l_proc, 180);
7717: end if;
7718: end;
7719: -- end if;
7720: --
7721: -- Ref Int check for OTA.
7722: --
7723: per_ota_predel_validation.ota_predel_pos_validation(p_position_id);
7724: if g_debug then
7725: hr_utility.set_location('Leaving : ' || l_proc, 300);
7726: end if;
7727: --
7728: end if;
7729: end pre_delete_checks;
7740: --
7741: l_proc varchar2(72) ;
7742: --
7743: Begin
7744: g_debug := hr_utility.debug_enabled;
7745: if g_debug then
7746: l_proc := g_package||'delete_validate';
7747: hr_utility.set_location('Entering:'||l_proc, 5);
7748: end if;
7743: Begin
7744: g_debug := hr_utility.debug_enabled;
7745: if g_debug then
7746: l_proc := g_package||'delete_validate';
7747: hr_utility.set_location('Entering:'||l_proc, 5);
7748: end if;
7749: --
7750: -- Delete Validations
7751: pre_delete_checks(p_position_id => p_rec.position_id
7790: ,p_datetrack_mode => p_datetrack_mode ); */
7791: -- Bug 12754983 ends
7792:
7793: if g_debug then
7794: hr_utility.set_location(' Leaving:'||l_proc, 10);
7795: end if;
7796: End delete_validate;
7797: --
7798: -- -----------------------------------------------------------------------------
7805: l_proc varchar2(72) ;
7806: l_error exception;
7807: --
7808: Begin
7809: g_debug := hr_utility.debug_enabled;
7810: if g_debug then
7811: l_proc := g_package||'chk_ddf';
7812: hr_utility.set_location('Entering:'||l_proc, 5);
7813: end if;
7808: Begin
7809: g_debug := hr_utility.debug_enabled;
7810: if g_debug then
7811: l_proc := g_package||'chk_ddf';
7812: hr_utility.set_location('Entering:'||l_proc, 5);
7813: end if;
7814: --
7815: -- Check if the row is being inserted or updated and a
7816: -- value has changed
7950: --
7951: end if;
7952: --
7953: if g_debug then
7954: hr_utility.set_location(' Leaving:'||l_proc, 10);
7955: end if;
7956: end chk_ddf;
7957: --
7958: -- Location : hr_psf_bus package
7994: --
7995: l_proc varchar2(72);
7996: --
7997: begin
7998: g_debug := hr_utility.debug_enabled;
7999: if g_debug then
8000: l_proc := g_package||'chk_df';
8001: hr_utility.set_location('Entering:'||l_proc, 10);
8002: end if;
7997: begin
7998: g_debug := hr_utility.debug_enabled;
7999: if g_debug then
8000: l_proc := g_package||'chk_df';
8001: hr_utility.set_location('Entering:'||l_proc, 10);
8002: end if;
8003: --
8004: if ((p_rec.position_id is not null) and (
8005: nvl(hr_psf_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
8141: end if;
8142: end if;
8143: --
8144: if g_debug then
8145: hr_utility.set_location(' Leaving:'||l_proc, 20);
8146: end if;
8147:
8148: end chk_df;
8149: --
8214: and p_datetrack_mode = 'ZAP');
8215:
8216: --
8217: begin
8218: hr_utility.set_location('Entering:'|| l_proc, 1);
8219: --
8220: -- Check that the position is not attached to any assignment
8221: --
8222: open csr_assgt;
8222: open csr_assgt;
8223: fetch csr_assgt into l_exists;
8224: if csr_assgt%found then
8225: close csr_assgt;
8226: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
8227: hr_utility.raise_error;
8228: end if;
8229: close csr_assgt;
8230: --
8223: fetch csr_assgt into l_exists;
8224: if csr_assgt%found then
8225: close csr_assgt;
8226: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
8227: hr_utility.raise_error;
8228: end if;
8229: close csr_assgt;
8230: --
8231: hr_utility.set_location(l_proc, 2);
8227: hr_utility.raise_error;
8228: end if;
8229: close csr_assgt;
8230: --
8231: hr_utility.set_location(l_proc, 2);
8232: --
8233: -- Check that the position is not attached to any element link
8234: --
8235: open csr_element_links;
8235: open csr_element_links;
8236: fetch csr_element_links into l_exists;
8237: if csr_element_links%found then
8238: close csr_element_links;
8239: hr_utility.set_message(801,'PER_7863_DEL_POS_LINK');
8240: hr_utility.raise_error;
8241: end if;
8242: close csr_element_links;
8243: --
8236: fetch csr_element_links into l_exists;
8237: if csr_element_links%found then
8238: close csr_element_links;
8239: hr_utility.set_message(801,'PER_7863_DEL_POS_LINK');
8240: hr_utility.raise_error;
8241: end if;
8242: close csr_element_links;
8243: --
8244: hr_utility.set_location(l_proc, 3);
8240: hr_utility.raise_error;
8241: end if;
8242: close csr_element_links;
8243: --
8244: hr_utility.set_location(l_proc, 3);
8245: --
8246: -- Check that the position is not attached to any Budget
8247: --
8248: open csr_budget_details;
8248: open csr_budget_details;
8249: fetch csr_budget_details into l_exists;
8250: if csr_budget_details%found then
8251: close csr_budget_details;
8252: hr_utility.set_message(800,'PER_DEL_POSITION_BUDGET');
8253: hr_utility.raise_error;
8254: end if;
8255: close csr_budget_details;
8256: --
8249: fetch csr_budget_details into l_exists;
8250: if csr_budget_details%found then
8251: close csr_budget_details;
8252: hr_utility.set_message(800,'PER_DEL_POSITION_BUDGET');
8253: hr_utility.raise_error;
8254: end if;
8255: close csr_budget_details;
8256: --
8257: --
8254: end if;
8255: close csr_budget_details;
8256: --
8257: --
8258: hr_utility.set_location(' Leaving:'|| l_proc, 11);
8259: --
8260: end chk_ref_int_del;
8261:
8262: --
8277: l_proc varchar2(30);
8278: --
8279: Begin
8280: --
8281: g_debug := hr_utility.debug_enabled;
8282: if g_debug then
8283: l_proc :='First_active_position_row';
8284: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8285: end if;
8280: --
8281: g_debug := hr_utility.debug_enabled;
8282: if g_debug then
8283: l_proc :='First_active_position_row';
8284: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8285: end if;
8286: open c1;
8287: fetch c1 into l_minesd;
8288: close c1;
8287: fetch c1 into l_minesd;
8288: close c1;
8289: --
8290: if g_debug then
8291: hr_utility.set_location( l_proc, 20);
8292: end if;
8293: --
8294: if l_minesd is null or l_minesd = p_effective_start_date then
8295: --
8293: --
8294: if l_minesd is null or l_minesd = p_effective_start_date then
8295: --
8296: if g_debug then
8297: hr_utility.set_location( l_proc, 30);
8298: end if;
8299: --
8300: return (true);
8301: --
8301: --
8302: else
8303: --
8304: if g_debug then
8305: hr_utility.set_location( l_proc, 40);
8306: end if;
8307: --
8308: return (false);
8309: --
8308: return (false);
8309: --
8310: end if;
8311: if g_debug then
8312: hr_utility.set_location('Leaving : ' || l_proc, 100);
8313: end if;
8314: --
8315: End First_active_position_row;
8316: --
8340: Begin
8341: --
8342: if g_debug then
8343: l_proc :='First_proposed_only_position';
8344: hr_utility.set_location('Entering : ' || l_proc, 10);
8345: end if;
8346: open c1;
8347: fetch c1 into l_rows_not_proposed;
8348: if l_rows_not_proposed = 0 then
8347: fetch c1 into l_rows_not_proposed;
8348: if l_rows_not_proposed = 0 then
8349: --
8350: if g_debug then
8351: hr_utility.set_location(l_proc, 20);
8352: end if;
8353: open c2;
8354: fetch c2 into l_esd;
8355: close c2;
8354: fetch c2 into l_esd;
8355: close c2;
8356: if l_esd is null or l_esd = p_effective_Start_date then
8357: if g_debug then
8358: hr_utility.set_location(l_proc, 30);
8359: end if;
8360: return(true);
8361: end if;
8362: --
8360: return(true);
8361: end if;
8362: --
8363: if g_debug then
8364: hr_utility.set_location(l_proc, 40);
8365: end if;
8366: --
8367: end if;
8368: --
8366: --
8367: end if;
8368: --
8369: if g_debug then
8370: hr_utility.set_location( 'Leaving : ' || l_proc, 100);
8371: end if;
8372: return(false);
8373: --
8374: End First_proposed_only_position;
8392: ,psf.business_group_id) <> 'PROPOSED';
8393: --
8394: Begin
8395: --
8396: g_debug := hr_utility.debug_enabled;
8397: if g_debug then
8398: l_proc :='all_proposed_only_position';
8399: hr_utility.set_location('Entering : ' || l_proc, 10);
8400: end if;
8395: --
8396: g_debug := hr_utility.debug_enabled;
8397: if g_debug then
8398: l_proc :='all_proposed_only_position';
8399: hr_utility.set_location('Entering : ' || l_proc, 10);
8400: end if;
8401: open c1;
8402: fetch c1 into l_rows_not_proposed;
8403: if l_rows_not_proposed = 0 then
8404: return(true);
8405: end if;
8406: --
8407: if g_debug then
8408: hr_utility.set_location( 'Leaving : ' || l_proc, 100);
8409: end if;
8410: return(false);
8411: --
8412: End all_proposed_only_position;
8436: Begin
8437: --
8438: if g_debug then
8439: l_proc :='Lower_limit';
8440: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8441: end if;
8442: l_sot := to_date('01/01/0001','mm/dd/yyyy');
8443: l_proposed_only := hr_psf_bus.all_proposed_only_position(p_position_id);
8444: if l_proposed_only = true then
8448: fetch c1 into l_esd;
8449: close c1;
8450: --
8451: if g_debug then
8452: hr_utility.set_location(l_proc, 20);
8453: end if;
8454: --
8455: if l_esd is null or l_esd = p_effective_start_date then
8456: if g_debug then
8453: end if;
8454: --
8455: if l_esd is null or l_esd = p_effective_start_date then
8456: if g_debug then
8457: hr_utility.set_location( 'Leaving : ' || l_proc, 30);
8458: end if;
8459: return(l_sot);
8460: else
8461: --
8459: return(l_sot);
8460: else
8461: --
8462: if g_debug then
8463: hr_utility.set_location(l_proc, 40);
8464: end if;
8465: --
8466: open c2;
8467: fetch c2 into l_esd;
8467: fetch c2 into l_esd;
8468: close c2;
8469: --
8470: if g_debug then
8471: hr_utility.set_location( 'Leaving : ' || l_proc, 50);
8472: end if;
8473: --
8474: return(l_esd + 1);
8475: --
8507: Begin
8508: --
8509: if g_debug then
8510: l_proc :='Upper_Limit';
8511: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8512: end if;
8513: l_eot := to_date('12/31/4712', 'mm/dd/yyyy');
8514: --
8515: if g_debug then
8512: end if;
8513: l_eot := to_date('12/31/4712', 'mm/dd/yyyy');
8514: --
8515: if g_debug then
8516: hr_utility.set_location(l_proc, 20);
8517: end if;
8518: l_proposed_only := hr_psf_bus.all_proposed_only_position(p_position_id);
8519: if l_proposed_only = true then
8520: return(l_eot);
8524: fetch c1 into l_esd;
8525: close c1;
8526: --
8527: if g_debug then
8528: hr_utility.set_location(l_proc, 30);
8529: end if;
8530: --
8531: if l_esd is null or l_esd = p_effective_start_date then
8532: if g_debug then
8529: end if;
8530: --
8531: if l_esd is null or l_esd = p_effective_start_date then
8532: if g_debug then
8533: hr_utility.set_location(l_proc, 40);
8534: end if;
8535: --
8536: l_ret_date := l_eot;
8537: elsE
8539: l_ret_date := l_esd -1;
8540: end if;
8541: --
8542: if g_debug then
8543: hr_utility.set_location(l_proc, 50);
8544: end if;
8545: --
8546: open c2;
8547: fetch c2 into l_tmp_esd;
8547: fetch c2 into l_tmp_esd;
8548: close c2;
8549: --
8550: if g_debug then
8551: hr_utility.set_location(l_proc, 60);
8552: end if;
8553: --
8554: if nvl(l_tmp_esd, l_eot) < nvl(l_ret_date, l_eot) then
8555: if g_debug then
8552: end if;
8553: --
8554: if nvl(l_tmp_esd, l_eot) < nvl(l_ret_date, l_eot) then
8555: if g_debug then
8556: hr_utility.set_location(l_proc, 70);
8557: end if;
8558: --
8559: l_ret_date := l_tmp_esd;
8560: end if;
8559: l_ret_date := l_tmp_esd;
8560: end if;
8561: --
8562: if g_debug then
8563: hr_utility.set_location(l_proc, 80);
8564: end if;
8565: --
8566: open c3;
8567: fetch c3 into l_tmp_esd;
8567: fetch c3 into l_tmp_esd;
8568: close c3;
8569: --
8570: if g_debug then
8571: hr_utility.set_location(l_proc, 90);
8572: end if;
8573: --
8574: if nvl(l_tmp_esd, l_eot) < nvl(l_esd, l_eot) then
8575: if g_debug then
8572: end if;
8573: --
8574: if nvl(l_tmp_esd, l_eot) < nvl(l_esd, l_eot) then
8575: if g_debug then
8576: hr_utility.set_location(l_proc, 100);
8577: end if;
8578: --
8579: l_ret_date := l_tmp_esd - 1;
8580: end if;
8579: l_ret_date := l_tmp_esd - 1;
8580: end if;
8581: --
8582: if g_debug then
8583: hr_utility.set_location( 'Leaving : ' || l_proc, 200);
8584: end if;
8585: return(nvl(l_ret_date, l_eot));
8586: --
8587: end if;
8639: Begin
8640: --
8641: if g_debug then
8642: l_proc := g_package||'chk_permanent_seasonal_flag';
8643: hr_utility.set_location('Entering:'||l_proc, 5);
8644: end if;
8645: --
8646: l_api_updating := hr_psf_shd.api_updating
8647: (p_position_id => p_position_id
8655: if (p_permanent_temporary_flag is not null and p_seasonal_flag is not null) then
8656: if(p_seasonal_flag = 'Y' and p_permanent_temporary_flag = 'Y') then
8657: -- raise error as both flags are set to Y.
8658: --
8659: hr_utility.set_message(8302,'PQH_INV_PRMNT_SEASONAL_FLAG');
8660: hr_utility.raise_error;
8661: end if;
8662: end if;
8663: end if;
8656: if(p_seasonal_flag = 'Y' and p_permanent_temporary_flag = 'Y') then
8657: -- raise error as both flags are set to Y.
8658: --
8659: hr_utility.set_message(8302,'PQH_INV_PRMNT_SEASONAL_FLAG');
8660: hr_utility.raise_error;
8661: end if;
8662: end if;
8663: end if;
8664: --
8662: end if;
8663: end if;
8664: --
8665: if g_debug then
8666: hr_utility.set_location('Leaving:'||l_proc,10);
8667: end if;
8668: --
8669: end chk_permanent_seasonal_flag;
8670: --