[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: --
4868: Begin
4869: --
4870: if g_debug then
4871: l_proc := 'chk_reserved_fte';
4872: hr_utility.set_location('Entering:'||l_proc, 5);
4873: end if;
4874: --
4875: hr_api.mandatory_arg_error
4876: (p_api_name => l_proc
4903: if p_position_type ='SHARED' or p_position_type ='SINGLE' then
4904: open csr_valid_fte(p_position_id, r2.start_date);
4905: fetch csr_valid_fte into l_rsv_fte;
4906: if (p_fte < l_rsv_fte) then
4907: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4908: hr_utility.set_message_token('POSITION_FTE',p_fte);
4909: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4904: open csr_valid_fte(p_position_id, r2.start_date);
4905: fetch csr_valid_fte into l_rsv_fte;
4906: if (p_fte < l_rsv_fte) then
4907: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4908: hr_utility.set_message_token('POSITION_FTE',p_fte);
4909: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4912: else
4905: fetch csr_valid_fte into l_rsv_fte;
4906: if (p_fte < l_rsv_fte) then
4907: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4908: hr_utility.set_message_token('POSITION_FTE',p_fte);
4909: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4912: else
4913: if g_debug then
4906: if (p_fte < l_rsv_fte) then
4907: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4908: hr_utility.set_message_token('POSITION_FTE',p_fte);
4909: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4912: else
4913: if g_debug then
4914: hr_utility.set_location(l_proc, 3);
4907: hr_utility.set_message(800,'PER_FTE_LT_RSVD_FTE');
4908: hr_utility.set_message_token('POSITION_FTE',p_fte);
4909: hr_utility.set_message_token('RESERVED_FTE',l_rsv_fte);
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4912: else
4913: if g_debug then
4914: hr_utility.set_location(l_proc, 3);
4915: end if;
4910: hr_utility.set_message_token('EFFECTIVE_DATE',r2.start_date);
4911: hr_utility.raise_error;
4912: else
4913: if g_debug then
4914: hr_utility.set_location(l_proc, 3);
4915: end if;
4916: end if;
4917: --
4918: close csr_valid_fte;
4935: Begin
4936: --
4937: if g_debug then
4938: l_proc :='chk_proposed_fte_for_layoff';
4939: hr_utility.set_location('Entering:'||l_proc, 5);
4940: end if;
4941: --
4942: if p_proposed_fte_for_layoff is not null then
4943: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4941: --
4942: if p_proposed_fte_for_layoff is not null then
4943: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4944: --
4945: hr_utility.set_message(800,'HR_FTE_TARGT_LT_LAYOFF_FTE');
4946: hr_utility.raise_error;
4947: end if;
4948: if p_proposed_date_for_layoff is null then
4949: --
4942: if p_proposed_fte_for_layoff is not null then
4943: if nvl(p_fte, 0) < p_proposed_fte_for_layoff then
4944: --
4945: hr_utility.set_message(800,'HR_FTE_TARGT_LT_LAYOFF_FTE');
4946: hr_utility.raise_error;
4947: end if;
4948: if p_proposed_date_for_layoff is null then
4949: --
4950: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4946: hr_utility.raise_error;
4947: end if;
4948: if p_proposed_date_for_layoff is null then
4949: --
4950: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4951: hr_utility.raise_error;
4952: end if;
4953: else
4954: if p_proposed_date_for_layoff is not null then
4947: end if;
4948: if p_proposed_date_for_layoff is null then
4949: --
4950: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_CANNOT_NULL');
4951: hr_utility.raise_error;
4952: end if;
4953: else
4954: if p_proposed_date_for_layoff is not null then
4955: --
4952: end if;
4953: else
4954: if p_proposed_date_for_layoff is not null then
4955: --
4956: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_MUSTBE_NULL');
4957: hr_utility.raise_error;
4958: end if;
4959: end if;
4960: end chk_proposed_fte_for_layoff;
4953: else
4954: if p_proposed_date_for_layoff is not null then
4955: --
4956: hr_utility.set_message(800,'HR_PROP_DT_LAYOFF_MUSTBE_NULL');
4957: hr_utility.raise_error;
4958: end if;
4959: end if;
4960: end chk_proposed_fte_for_layoff;
4961: --
4976: Begin
4977: --
4978: if g_debug then
4979: l_proc :='chk_extended_flag';
4980: hr_utility.set_location('Entering:'||l_proc, 5);
4981: end if;
4982: --
4983: if p_work_period_type_cd = 'Y' then
4984: /*
4986: p_pay_term_end_month_cd is null or
4987: p_work_term_end_day_cd is null or
4988: p_work_term_end_month_cd is null then
4989: --
4990: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_ENTR');
4991: hr_utility.raise_error;
4992: */
4993: if (( (p_pay_term_end_day_cd is null and
4994: p_pay_term_end_month_cd is not null) or
4987: p_work_term_end_day_cd is null or
4988: p_work_term_end_month_cd is null then
4989: --
4990: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_ENTR');
4991: hr_utility.raise_error;
4992: */
4993: if (( (p_pay_term_end_day_cd is null and
4994: p_pay_term_end_month_cd is not null) or
4995: (p_pay_term_end_day_cd is not null and
4998: p_term_start_month_cd is not null) or
4999: (p_term_start_day_cd is not null and
5000: p_term_start_month_cd is null))) then
5001: --
5002: hr_utility.set_message(800,'HR_INVALID_PAY_TERM');
5003: hr_utility.raise_error;
5004: end if;
5005: if ( (p_work_term_end_day_cd is null and
5006: p_work_term_end_month_cd is not null) or
4999: (p_term_start_day_cd is not null and
5000: p_term_start_month_cd is null))) then
5001: --
5002: hr_utility.set_message(800,'HR_INVALID_PAY_TERM');
5003: hr_utility.raise_error;
5004: end if;
5005: if ( (p_work_term_end_day_cd is null and
5006: p_work_term_end_month_cd is not null) or
5007: (p_work_term_end_day_cd is not null and
5006: p_work_term_end_month_cd is not null) or
5007: (p_work_term_end_day_cd is not null and
5008: p_work_term_end_month_cd is null)) then
5009: --
5010: hr_utility.set_message(800,'HR_INVALID_WORK_TERM');
5011: hr_utility.raise_error;
5012: end if;
5013: else
5014: if p_pay_term_end_day_cd is not null or
5007: (p_work_term_end_day_cd is not null and
5008: p_work_term_end_month_cd is null)) then
5009: --
5010: hr_utility.set_message(800,'HR_INVALID_WORK_TERM');
5011: hr_utility.raise_error;
5012: end if;
5013: else
5014: if p_pay_term_end_day_cd is not null or
5015: p_pay_term_end_month_cd is not null or
5017: p_term_start_month_cd is not null or
5018: p_work_term_end_day_cd is not null or
5019: p_work_term_end_month_cd is not null then
5020: --
5021: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_NULL');
5022: hr_utility.raise_error;
5023: end if;
5024: end if;
5025: --
5018: p_work_term_end_day_cd is not null or
5019: p_work_term_end_month_cd is not null then
5020: --
5021: hr_utility.set_message(800,'HR_PAY_WORK_TERM_MUST_BE_NULL');
5022: hr_utility.raise_error;
5023: end if;
5024: end if;
5025: --
5026: end chk_extended_pay;
5055: open c_seasonal;
5056: fetch c_seasonal into l_dummy;
5057: if c_seasonal%found then
5058: close c_seasonal;
5059: hr_utility.set_message(800,'HR_INV_SEASONAL_FLAG');
5060: hr_utility.raise_error;
5061: end if;
5062: close c_seasonal;
5063: end if;
5056: fetch c_seasonal into l_dummy;
5057: if c_seasonal%found then
5058: close c_seasonal;
5059: hr_utility.set_message(800,'HR_INV_SEASONAL_FLAG');
5060: hr_utility.raise_error;
5061: end if;
5062: close c_seasonal;
5063: end if;
5064: end;
5083: and information_type = 'PER_OVERLAP';
5084: begin
5085: if g_debug then
5086: l_proc :='chk_overlap_poi';
5087: hr_utility.set_location('Entering:'||l_proc,10);
5088: end if;
5089: l_api_updating := hr_psf_shd.api_updating
5090: (p_position_id => p_position_id
5091: ,p_effective_date => p_effective_date
5095: and nvl(p_overlap_period,-1)
5096: <> nvl(hr_psf_shd.g_old_rec.overlap_period,hr_api.g_number)
5097: and p_overlap_period is null) then
5098: if g_debug then
5099: hr_utility.set_location('Checking for Overlap Dates in Position Extra Info:'||l_proc,20);
5100: end if;
5101: open c_overlap;
5102: fetch c_overlap into l_dummy;
5103: if g_debug then
5100: end if;
5101: open c_overlap;
5102: fetch c_overlap into l_dummy;
5103: if g_debug then
5104: hr_utility.set_location('Checked for Overlap Dates in Position Extra Info:'||l_proc,30);
5105: end if;
5106: if c_overlap%found then
5107: if g_debug then
5108: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5104: hr_utility.set_location('Checked for Overlap Dates in Position Extra Info:'||l_proc,30);
5105: end if;
5106: if c_overlap%found then
5107: if g_debug then
5108: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5109: end if;
5110: close c_overlap;
5111: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5112: hr_utility.raise_error;
5107: if g_debug then
5108: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5109: end if;
5110: close c_overlap;
5111: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5112: hr_utility.raise_error;
5113: end if;
5114: if g_debug then
5115: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5108: hr_utility.set_location('Overlap Dates Found in Position Extra Info:'||l_proc,40);
5109: end if;
5110: close c_overlap;
5111: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5112: hr_utility.raise_error;
5113: end if;
5114: if g_debug then
5115: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5116: end if;
5111: hr_utility.set_message(800,'HR_INV_OVERLAP_PERIOD');
5112: hr_utility.raise_error;
5113: end if;
5114: if g_debug then
5115: hr_utility.set_location('Overlap Dates not Found in Position Extra Info:'||l_proc,40);
5116: end if;
5117: close c_overlap;
5118: end if;
5119: if g_debug then
5116: end if;
5117: close c_overlap;
5118: end if;
5119: if g_debug then
5120: hr_utility.set_location('Leaving:'||l_proc,20);
5121: end if;
5122: end;
5123: -- ----------------------------------------------------------------------------
5124: -- |--------------------------< permit_extended_pay >-------------------------|
5135: and poei_information3 in ('ACADEMIC','FACULTY');
5136: begin
5137: if g_debug then
5138: l_proc :='PERMIT_EXTENDED_PAY';
5139: hr_utility.set_location('Entering:'||l_proc,10);
5140: end if;
5141: if p_position_id is not null then
5142: open c1;
5143: fetch c1 into l_position_family;
5142: open c1;
5143: fetch c1 into l_position_family;
5144: if c1%found then
5145: if g_debug then
5146: hr_utility.set_location('Academic/Faculty Position Extra info Found:'||l_proc,10);
5147: end if;
5148: close c1;
5149: return true;
5150: else
5149: return true;
5150: else
5151: close c1;
5152: if g_debug then
5153: hr_utility.set_location('Academic/Faculty Position Extra info not Found:'||l_proc,10);
5154: end if;
5155: return false;
5156: end if;
5157: else
5157: else
5158: return(false);
5159: end if;
5160: if g_debug then
5161: hr_utility.set_location('Leaving:'||l_proc,20);
5162: end if;
5163: end;
5164: -- ----------------------------------------------------------------------------
5165: -- |--------------------------< chk_extended_pay_permit >--------------------------|
5177: l_permit_extended_pay boolean;
5178: begin
5179: if g_debug then
5180: l_proc :='chk_extended_pay_permit';
5181: hr_utility.set_location('Entering:'||l_proc,10);
5182: end if;
5183: l_api_updating := hr_psf_shd.api_updating
5184: (p_position_id => p_position_id
5185: ,p_effective_date => p_effective_date
5188: if (((l_api_updating and p_work_period_type_cd
5189: <> nvl(hr_psf_shd.g_old_rec.work_period_type_cd,hr_api.g_varchar2)) or not l_api_updating)
5190: and nvl(p_WORK_PERIOD_TYPE_CD,'N') = 'Y') then
5191: if g_debug then
5192: hr_utility.set_location('Check permit_extended_pay:'||l_proc,10);
5193: end if;
5194: l_permit_extended_pay := permit_extended_pay(p_position_id => p_position_id);
5195: if g_debug then
5196: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5192: hr_utility.set_location('Check permit_extended_pay:'||l_proc,10);
5193: end if;
5194: l_permit_extended_pay := permit_extended_pay(p_position_id => p_position_id);
5195: if g_debug then
5196: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5197: end if;
5198: if (l_permit_extended_pay = false) then
5199: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5200: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5196: hr_utility.set_location('Checking permit_extended_pay complete:'||l_proc,10);
5197: end if;
5198: if (l_permit_extended_pay = false) then
5199: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5200: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5201: hr_utility.raise_error;
5202: end if;
5203: end if;
5204: if g_debug then
5197: end if;
5198: if (l_permit_extended_pay = false) then
5199: --Position family is neither Academic nor Faculty, so Extended pay cannot be permitted.
5200: hr_utility.set_message(800,'HR_INV_EXTD_PAY_PERMIT');
5201: hr_utility.raise_error;
5202: end if;
5203: end if;
5204: if g_debug then
5205: hr_utility.set_location('Leaving:'||l_proc,20);
5201: hr_utility.raise_error;
5202: end if;
5203: end if;
5204: if g_debug then
5205: hr_utility.set_location('Leaving:'||l_proc,20);
5206: end if;
5207: end;
5208: --
5209: --
5258: Begin
5259: --
5260: if g_debug then
5261: l_proc := g_package||'chk_position_type_single';
5262: hr_utility.set_location('Entering:'||l_proc, 5);
5263: end if;
5264: --
5265: l_api_updating := hr_psf_shd.api_updating
5266: (p_position_id => p_position_id
5283: if l_no_assignments > 1 then
5284: --
5285: -- raise error as does not exist as lookup
5286: --
5287: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5288: hr_utility.raise_error;
5289: --
5290: end if;
5291: --
5284: --
5285: -- raise error as does not exist as lookup
5286: --
5287: hr_utility.set_message(800,'PER_CANNOT_CHG_POS_SINGLE');
5288: hr_utility.raise_error;
5289: --
5290: end if;
5291: --
5292: end if;
5293: --
5294: end if;
5295: --
5296: if g_debug then
5297: hr_utility.set_location('Leaving:'||l_proc,10);
5298: end if;
5299: --
5300: end chk_position_type_single;
5301: --
5345: --
5346: Begin
5347: if g_debug then
5348: l_proc := g_package||'dt_update_validate';
5349: hr_utility.set_location('Entering:'||l_proc, 5);
5350: end if;
5351: --
5352: -- Ensure that the p_datetrack_mode argument is not null
5353: --
5374: p_argument_value => p_validation_end_date);
5375: --
5376: -- ##
5377: if g_debug then
5378: hr_utility.set_location(l_proc,20 );
5379: end if;
5380: If ((nvl(p_relief_position_id, hr_api.g_number) <> hr_api.g_number) and
5381: NOT (dt_api.check_min_max_dates
5382: (p_base_table_name => 'hr_all_positions_f',
5387: l_table_name := 'all positions';
5388: Raise l_integrity_error;
5389: End If;
5390: if g_debug then
5391: hr_utility.set_location(l_proc,30 );
5392: end if;
5393: If ((nvl(p_successor_position_id, hr_api.g_number) <> hr_api.g_number) and
5394: NOT (dt_api.check_min_max_dates
5395: (p_base_table_name => 'hr_all_positions_f',
5400: l_table_name := 'all positions';
5401: Raise l_integrity_error;
5402: End If;
5403: if g_debug then
5404: hr_utility.set_location(l_proc,40 );
5405: end if;
5406: If ((nvl(p_supervisor_position_id, hr_api.g_number) <> hr_api.g_number) and
5407: NOT (dt_api.check_min_max_dates
5408: (p_base_table_name => 'hr_all_positions_f',
5413: l_table_name := 'all positions';
5414: Raise l_integrity_error;
5415: End If;
5416: if g_debug then
5417: hr_utility.set_location(l_proc,50 );
5418: end if;
5419: If ((nvl(p_pay_freq_payroll_id, hr_api.g_number) <> hr_api.g_number) and
5420: NOT (dt_api.check_min_max_dates
5421: (p_base_table_name => 'pay_all_payrolls_f',
5426: l_table_name := 'all payrolls';
5427: Raise l_integrity_error;
5428: End If;
5429: if g_debug then
5430: hr_utility.set_location(l_proc,60 );
5431: end if;
5432: If ((nvl(p_entry_step_id, hr_api.g_number) <> hr_api.g_number) and
5433: NOT (dt_api.check_min_max_dates
5434: (p_base_table_name => 'per_spinal_point_steps_f',
5439: l_table_name := 'spinal point steps';
5440: Raise l_integrity_error;
5441: End If;
5442: if g_debug then
5443: hr_utility.set_location(l_proc,70 );
5444: end if;
5445: If ((nvl(p_entry_grade_rule_id, hr_api.g_number) <> hr_api.g_number) and
5446: NOT (dt_api.check_min_max_dates
5447: (p_base_table_name => 'pay_grade_rules_f',
5456: --
5457: End If;
5458: --
5459: if g_debug then
5460: hr_utility.set_location(' Leaving:'||l_proc, 10);
5461: end if;
5462: Exception
5463: When l_integrity_error Then
5464: --
5464: --
5465: -- A referential integrity check was violated therefore
5466: -- we must error
5467: --
5468: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5469: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5470: hr_utility.raise_error;
5471: When Others Then
5472: --
5465: -- A referential integrity check was violated therefore
5466: -- we must error
5467: --
5468: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5469: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5470: hr_utility.raise_error;
5471: When Others Then
5472: --
5473: -- An unhandled or unexpected error has occurred which
5466: -- we must error
5467: --
5468: hr_utility.set_message(800, 'HR_7216_DT_UPD_INTEGRITY_ERR');
5469: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5470: hr_utility.raise_error;
5471: When Others Then
5472: --
5473: -- An unhandled or unexpected error has occurred which
5474: -- we must report
5472: --
5473: -- An unhandled or unexpected error has occurred which
5474: -- we must report
5475: --
5476: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5477: hr_utility.set_message_token('PROCEDURE', l_proc);
5478: hr_utility.set_message_token('STEP','15');
5479: hr_utility.raise_error;
5480: End dt_update_validate;
5473: -- An unhandled or unexpected error has occurred which
5474: -- we must report
5475: --
5476: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5477: hr_utility.set_message_token('PROCEDURE', l_proc);
5478: hr_utility.set_message_token('STEP','15');
5479: hr_utility.raise_error;
5480: End dt_update_validate;
5481: --
5474: -- we must report
5475: --
5476: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5477: hr_utility.set_message_token('PROCEDURE', l_proc);
5478: hr_utility.set_message_token('STEP','15');
5479: hr_utility.raise_error;
5480: End dt_update_validate;
5481: --
5482: -- ----------------------------------------------------------------------------
5475: --
5476: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5477: hr_utility.set_message_token('PROCEDURE', l_proc);
5478: hr_utility.set_message_token('STEP','15');
5479: hr_utility.raise_error;
5480: End dt_update_validate;
5481: --
5482: -- ----------------------------------------------------------------------------
5483: -- |--------------------------< dt_delete_validate >--------------------------|
5526: --
5527: Begin
5528: if g_debug then
5529: l_proc := g_package||'dt_delete_validate';
5530: hr_utility.set_location('Entering:'||l_proc, 5);
5531: end if;
5532: --
5533: -- Ensure that the p_datetrack_mode argument is not null
5534: --
5609: --
5610: End If;
5611: --
5612: if g_debug then
5613: hr_utility.set_location(' Leaving:'||l_proc, 10);
5614: end if;
5615: Exception
5616: When l_rows_exist Then
5617: --
5617: --
5618: -- A referential integrity check was violated therefore
5619: -- we must error
5620: --
5621: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5622: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5623: hr_utility.raise_error;
5624: When Others Then
5625: --
5618: -- A referential integrity check was violated therefore
5619: -- we must error
5620: --
5621: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5622: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5623: hr_utility.raise_error;
5624: When Others Then
5625: --
5626: -- An unhandled or unexpected error has occurred which
5619: -- we must error
5620: --
5621: hr_utility.set_message(800, 'HR_7215_DT_CHILD_EXISTS');
5622: hr_utility.set_message_token('TABLE_NAME', l_table_name);
5623: hr_utility.raise_error;
5624: When Others Then
5625: --
5626: -- An unhandled or unexpected error has occurred which
5627: -- we must report
5625: --
5626: -- An unhandled or unexpected error has occurred which
5627: -- we must report
5628: --
5629: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5630: hr_utility.set_message_token('PROCEDURE', l_proc);
5631: hr_utility.set_message_token('STEP','15');
5632: hr_utility.raise_error;
5633: End dt_delete_validate;
5626: -- An unhandled or unexpected error has occurred which
5627: -- we must report
5628: --
5629: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5630: hr_utility.set_message_token('PROCEDURE', l_proc);
5631: hr_utility.set_message_token('STEP','15');
5632: hr_utility.raise_error;
5633: End dt_delete_validate;
5634: --
5627: -- we must report
5628: --
5629: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5630: hr_utility.set_message_token('PROCEDURE', l_proc);
5631: hr_utility.set_message_token('STEP','15');
5632: hr_utility.raise_error;
5633: End dt_delete_validate;
5634: --
5635: Procedure chk_proposed_status
5628: --
5629: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
5630: hr_utility.set_message_token('PROCEDURE', l_proc);
5631: hr_utility.set_message_token('STEP','15');
5632: hr_utility.raise_error;
5633: End dt_delete_validate;
5634: --
5635: Procedure chk_proposed_status
5636: (p_position_id in number
5656: Begin
5657: --
5658: if g_debug then
5659: l_proc := g_package||'chk_proposed_status';
5660: hr_utility.set_location('Entering:'||l_proc, 5);
5661: end if;
5662: --
5663: l_api_updating := hr_psf_shd.api_updating
5664: (p_position_id => p_position_id
5665: ,p_effective_date => p_effective_date
5666: ,p_object_version_number => p_object_version_number);
5667: --
5668: if g_debug then
5669: hr_utility.set_location('datetrack mode:'||p_datetrack_mode, 5);
5670: end if;
5671: if p_datetrack_mode = 'CORRECTION' then
5672: if (l_api_updating
5673: and p_availability_status_id
5673: and p_availability_status_id
5674: <> nvl(hr_psf_shd.g_old_rec.availability_status_id,hr_api.g_number))
5675: then
5676: if g_debug then
5677: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5678: hr_utility.set_location('position id:'||p_position_id, 5);
5679: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5680: end if;
5681: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5674: <> nvl(hr_psf_shd.g_old_rec.availability_status_id,hr_api.g_number))
5675: then
5676: if g_debug then
5677: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5678: hr_utility.set_location('position id:'||p_position_id, 5);
5679: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5680: end if;
5681: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5682: if g_debug then
5675: then
5676: if g_debug then
5677: hr_utility.set_location('Availability_status id:'||p_availability_status_id, 5);
5678: hr_utility.set_location('position id:'||p_position_id, 5);
5679: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5680: end if;
5681: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5682: if g_debug then
5683: hr_utility.set_location('Entering:'||l_proc, 5);
5679: hr_utility.set_location('get avail '||hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id),6);
5680: end if;
5681: if hr_psf_shd.get_availability_status(p_availability_status_id,p_business_group_id) = 'PROPOSED' then
5682: if g_debug then
5683: hr_utility.set_location('Entering:'||l_proc, 5);
5684: end if;
5685: open c1;
5686: fetch c1 into l_count;
5687: close c1;
5685: open c1;
5686: fetch c1 into l_count;
5687: close c1;
5688: if l_count >0 then
5689: hr_utility.set_message(800, 'HR_ASG_EXISTS_CANT_CHG_PROP');
5690: hr_utility.raise_error;
5691: end if;
5692: end if;
5693: end if;
5686: fetch c1 into l_count;
5687: close c1;
5688: if l_count >0 then
5689: hr_utility.set_message(800, 'HR_ASG_EXISTS_CANT_CHG_PROP');
5690: hr_utility.raise_error;
5691: end if;
5692: end if;
5693: end if;
5694: end if;
5693: end if;
5694: end if;
5695: --
5696: if g_debug then
5697: hr_utility.set_location('Leaving:'||l_proc,10);
5698: end if;
5699: --
5700: end chk_proposed_status;
5701: --
5712: --
5713: l_proc varchar2(72) ;
5714: --
5715: Begin
5716: g_debug := hr_utility.debug_enabled;
5717: if g_debug then
5718: l_proc := g_package||'insert_validate';
5719: hr_utility.set_location('Entering:'||l_proc, 5);
5720: end if;
5715: Begin
5716: g_debug := hr_utility.debug_enabled;
5717: if g_debug then
5718: l_proc := g_package||'insert_validate';
5719: hr_utility.set_location('Entering:'||l_proc, 5);
5720: end if;
5721: --
5722: -- Call all supporting business operations
5723: --
5723: --
5724: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
5725: --
5726: if g_debug then
5727: hr_utility.set_location(l_proc, 6);
5728: end if;
5729: --
5730: -- Validate date effective and date_end
5731: --
5738: ,p_object_version_number => p_rec.object_version_number
5739: );
5740: --
5741: if g_debug then
5742: hr_utility.set_location(l_proc, 50);
5743: end if;
5744: --
5745: -- validate end dates
5746: chk_end_dates
5757: --
5758: -- Validate job id
5759: --
5760: if g_debug then
5761: hr_utility.set_location(l_proc, 100);
5762: end if;
5763: chk_job_id
5764: (p_job_id => p_rec.job_id
5765: ,p_business_group_id => p_rec.business_group_id
5769: ,p_object_version_number => p_rec.object_version_number
5770: );
5771: --
5772: if g_debug then
5773: hr_utility.set_location(l_proc, 110);
5774: end if;
5775: --
5776: -- Validate organization id
5777: --
5784: ,p_object_version_number => p_rec.object_version_number
5785: );
5786: --
5787: if g_debug then
5788: hr_utility.set_location(l_proc, 120);
5789: end if;
5790: --
5791: -- Validate successor position id
5792: --
5799: ,p_effective_date => p_effective_date
5800: ,p_object_version_number => p_rec.object_version_number
5801: );
5802: if g_debug then
5803: hr_utility.set_location(l_proc, 130);
5804: end if;
5805: --
5806: -- Validate relief position id
5807: --
5813: ,p_effective_date => p_effective_Date
5814: );
5815: --
5816: if g_debug then
5817: hr_utility.set_location(l_proc, 140);
5818: end if;
5819: --
5820: -- Validate location_id
5821: --
5827:
5828: );
5829: --
5830: if g_debug then
5831: hr_utility.set_location(l_proc, 150);
5832: end if;
5833: --
5834: -- Validate position definition id
5835: --
5838: ,p_effective_Date => p_effective_date
5839: );
5840: --
5841: if g_debug then
5842: hr_utility.set_location(l_proc, 160);
5843: end if;
5844: --
5845: -- Validate working_hours and frequency
5846: --
5850: ,p_effective_date => p_effective_date
5851: );
5852: --
5853: if g_debug then
5854: hr_utility.set_location(l_proc, 170);
5855: end if;
5856: --
5857: -- Validate probation period and probation_period_unit_cd
5858: --
5862: ,p_effective_Date => p_effective_date
5863: );
5864: --
5865: if g_debug then
5866: hr_utility.set_location('Entering:'||l_proc, 180);
5867: end if;
5868: --
5869: -- Validate time normal start and time_normal_finish
5870: --
5874: ,p_effective_date => p_effective_date
5875: );
5876: --
5877: if g_debug then
5878: hr_utility.set_location(l_proc, 200);
5879: end if;
5880: --
5881: chk_entry_step_id
5882: (p_position_id => p_rec.position_id
5889: ,p_object_version_number => p_rec.object_version_number
5890: );
5891: --
5892: if g_debug then
5893: hr_utility.set_location(l_proc, 210);
5894: end if;
5895: --
5896: chk_entry_grade_id
5897: (p_position_id => p_rec.position_id
5903: ,p_object_version_number => p_rec.object_version_number
5904: );
5905: --
5906: if g_debug then
5907: hr_utility.set_location(l_proc, 215);
5908: end if;
5909: --
5910: chk_entry_grade_rule_id
5911: (p_position_id => p_rec.position_id
5917: ,p_object_version_number => p_rec.object_version_number
5918: );
5919: --
5920: if g_debug then
5921: hr_utility.set_location(l_proc, 220);
5922: end if;
5923: --
5924: chk_work_term_end_month_cd
5925: (p_position_id => p_rec.position_id
5929: ,p_validation_end_date => p_validation_end_date
5930: ,p_object_version_number => p_rec.object_version_number);
5931: --
5932: if g_debug then
5933: hr_utility.set_location(l_proc, 230);
5934: end if;
5935: --
5936: chk_work_term_end_day_cd
5937: (p_position_id => p_rec.position_id
5941: ,p_validation_end_date => p_validation_end_date
5942: ,p_object_version_number => p_rec.object_version_number);
5943: --
5944: if g_debug then
5945: hr_utility.set_location(l_proc, 240);
5946: end if;
5947: --
5948: chk_work_period_type_cd
5949: (p_position_id => p_rec.position_id
5953: ,p_validation_end_date => p_validation_end_date
5954: ,p_object_version_number => p_rec.object_version_number);
5955: --
5956: if g_debug then
5957: hr_utility.set_location(l_proc, 250);
5958: end if;
5959: --
5960: chk_works_council_approval_flg
5961: (p_position_id => p_rec.position_id
5965: ,p_validation_end_date => p_validation_end_date
5966: ,p_object_version_number => p_rec.object_version_number);
5967: --
5968: if g_debug then
5969: hr_utility.set_location(l_proc, 260);
5970: end if;
5971: --
5972: chk_term_start_month_cd
5973: (p_position_id => p_rec.position_id
5977: ,p_validation_end_date => p_validation_end_date
5978: ,p_object_version_number => p_rec.object_version_number);
5979: --
5980: if g_debug then
5981: hr_utility.set_location(l_proc, 270);
5982: end if;
5983: --
5984: chk_term_start_day_cd
5985: (p_position_id => p_rec.position_id
5989: ,p_validation_end_date => p_validation_end_date
5990: ,p_object_version_number => p_rec.object_version_number);
5991: --
5992: if g_debug then
5993: hr_utility.set_location(l_proc, 280);
5994: end if;
5995: --
5996: chk_seasonal_flag
5997: (p_position_id => p_rec.position_id
6001: ,p_validation_end_date => p_validation_end_date
6002: ,p_object_version_number => p_rec.object_version_number);
6003: --
6004: if g_debug then
6005: hr_utility.set_location(l_proc, 290);
6006: end if;
6007: --
6008: chk_review_flag
6009: (p_position_id => p_rec.position_id
6013: ,p_validation_end_date => p_validation_end_date
6014: ,p_object_version_number => p_rec.object_version_number);
6015: --
6016: if g_debug then
6017: hr_utility.set_location(l_proc, 300);
6018: end if;
6019: --
6020: chk_replacement_required_flag
6021: (p_position_id => p_rec.position_id
6025: ,p_validation_end_date => p_validation_end_date
6026: ,p_object_version_number => p_rec.object_version_number);
6027: --
6028: if g_debug then
6029: hr_utility.set_location(l_proc, 310);
6030: end if;
6031: --
6032: chk_probation_period_unit_cd
6033: (p_position_id => p_rec.position_id
6037: ,p_validation_end_date => p_validation_end_date
6038: ,p_object_version_number => p_rec.object_version_number);
6039: --
6040: if g_debug then
6041: hr_utility.set_location(l_proc, 320);
6042: end if;
6043: --
6044: chk_permit_recruitment_flag
6045: (p_position_id => p_rec.position_id
6049: ,p_validation_end_date => p_validation_end_date
6050: ,p_object_version_number => p_rec.object_version_number);
6051: --
6052: if g_debug then
6053: hr_utility.set_location(l_proc, 330);
6054: end if;
6055: --
6056: chk_permanent_temporary_flag
6057: (p_position_id => p_rec.position_id
6061: ,p_validation_end_date => p_validation_end_date
6062: ,p_object_version_number => p_rec.object_version_number);
6063: --
6064: if g_debug then
6065: hr_utility.set_location(l_proc, 335);
6066: end if;
6067: --
6068: chk_permanent_seasonal_flag
6069: (p_position_id => p_rec.position_id
6073: ,p_object_version_number => p_rec.object_version_number);
6074: --
6075:
6076: if g_debug then
6077: hr_utility.set_location(l_proc, 340);
6078: end if;
6079: --
6080: chk_pay_term_end_month_cd
6081: (p_position_id => p_rec.position_id
6085: ,p_validation_end_date => p_validation_end_date
6086: ,p_object_version_number => p_rec.object_version_number);
6087: --
6088: if g_debug then
6089: hr_utility.set_location(l_proc, 350);
6090: end if;
6091: --
6092: chk_pay_term_end_day_cd
6093: (p_position_id => p_rec.position_id
6097: ,p_validation_end_date => p_validation_end_date
6098: ,p_object_version_number => p_rec.object_version_number);
6099: --
6100: if g_debug then
6101: hr_utility.set_location(l_proc, 360);
6102: end if;
6103: --
6104: chk_overlap_unit_cd
6105: (p_position_id => p_rec.position_id
6109: ,p_validation_end_date => p_validation_end_date
6110: ,p_object_version_number => p_rec.object_version_number);
6111: --
6112: if g_debug then
6113: hr_utility.set_location(l_proc, 370);
6114: end if;
6115: --
6116: chk_bargaining_unit_cd
6117: (p_position_id => p_rec.position_id
6121: ,p_validation_end_date => p_validation_end_date
6122: ,p_object_version_number => p_rec.object_version_number);
6123: --
6124: if g_debug then
6125: hr_utility.set_location(l_proc, 380);
6126: end if;
6127: --
6128: chk_pay_freq_payroll_id
6129: (p_position_id => p_rec.position_id
6136: ,p_object_version_number => p_rec.object_version_number
6137: );
6138: --
6139: if g_debug then
6140: hr_utility.set_location(l_proc, 390);
6141: end if;
6142: --
6143: /*
6144: chk_position_transaction_id
6152: --
6153: */
6154: --
6155: if g_debug then
6156: hr_utility.set_location(l_proc, 400);
6157: end if;
6158: --
6159: chk_supervisor_position_id
6160: (p_business_group_id => p_rec.business_group_id
6166: ,p_object_version_number => p_rec.object_version_number
6167: );
6168: --
6169: if g_debug then
6170: hr_utility.set_location(l_proc, 410);
6171: end if;
6172: --
6173: chk_prior_position_id
6174: (p_business_group_id => p_rec.business_group_id
6180: ,p_object_version_number => p_rec.object_version_number
6181: );
6182: --
6183: if g_debug then
6184: hr_utility.set_location(l_proc, 420);
6185: end if;
6186: --
6187: chk_availability_status_id
6188: (p_position_id => p_rec.position_id
6195: ,p_object_version_number => p_rec.object_version_number
6196: ,p_datetrack_mode => p_datetrack_mode );
6197: --
6198: if g_debug then
6199: hr_utility.set_location(l_proc, 430);
6200: end if;
6201: --
6202: chk_position_type
6203: (p_position_id => p_rec.position_id
6208: ,p_object_version_number => p_rec.object_version_number
6209: );
6210: --
6211: if g_debug then
6212: hr_utility.set_location(l_proc, 440);
6213: end if;
6214: --
6215: chk_fte
6216: (p_position_id => p_rec.position_id
6221: ,p_validation_end_date => p_validation_end_Date
6222: ,p_object_version_number => p_rec.object_version_number);
6223: --
6224: if g_debug then
6225: hr_utility.set_location(l_proc, 445);
6226: end if;
6227: --
6228: chk_max_persons
6229: (p_position_id => p_rec.position_id
6232: ,p_effective_date => p_effective_date
6233: ,p_object_version_number => p_rec.object_version_number);
6234: --
6235: if g_debug then
6236: hr_utility.set_location(l_proc, 450);
6237: end if;
6238: --
6239: chk_extended_pay
6240: (p_position_id => p_rec.position_id
6247: ,p_work_term_end_month_cd => p_rec.work_term_end_month_cd
6248: );
6249: --
6250: if g_debug then
6251: hr_utility.set_location(l_proc, 460);
6252: end if;
6253: --
6254: chk_proposed_fte_for_layoff
6255: (p_fte => p_rec.fte
6257: ,p_proposed_date_for_layoff => p_rec.proposed_Date_for_layoff
6258: );
6259: --
6260: if g_debug then
6261: hr_utility.set_location(l_proc, 470);
6262: end if;
6263: --
6264: /*
6265: chk_extended_pay_permit
6270: ,p_validation_end_date => p_validation_end_date
6271: ,p_object_version_number => p_rec.object_version_number
6272: );
6273: if g_debug then
6274: hr_utility.set_location(l_proc, 2000);
6275: end if;
6276: --
6277: -- Validate status
6278: --
6284: );
6285: --
6286: */
6287: if g_debug then
6288: hr_utility.set_location('Entering:'||l_proc, 210);
6289: end if;
6290: --
6291: --
6292: -- Call developer descriptive flexfield validation routines
6299: --
6300: hr_psf_bus.chk_df(p_rec => p_rec);
6301: --
6302: if g_debug then
6303: hr_utility.set_location('Entering:'||l_proc, 220);
6304: end if;
6305: --
6306: -- PMFLETCH ** Not using this uniqueness chech anymore **
6307: -- Check position_name is unique for Business_group
6334: , p_effective_date => p_effective_date
6335: ) = 'Y') then
6336: --
6337: if p_rec.position_transaction_id is null then
6338: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
6339: hr_utility.raise_error;
6340: end if;
6341: --
6342: end if;
6335: ) = 'Y') then
6336: --
6337: if p_rec.position_transaction_id is null then
6338: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
6339: hr_utility.raise_error;
6340: end if;
6341: --
6342: end if;
6343: --
6350: --End of Position Control Business Rules call
6351: --
6352: --
6353: if g_debug then
6354: hr_utility.set_location(' Leaving:'||l_proc, 230);
6355: end if;
6356: --
6357: End insert_validate;
6358: --
6368: --
6369: l_proc varchar2(72) ;
6370: --
6371: Begin
6372: g_debug := hr_utility.debug_enabled;
6373: if g_debug then
6374: l_proc := g_package||'update_validate';
6375: hr_utility.set_location('Entering:'||l_proc, 5);
6376: end if;
6371: Begin
6372: g_debug := hr_utility.debug_enabled;
6373: if g_debug then
6374: l_proc := g_package||'update_validate';
6375: hr_utility.set_location('Entering:'||l_proc, 5);
6376: end if;
6377: --
6378: -- Call all supporting business operations
6379: --
6379: --
6380: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
6381: --
6382: if g_debug then
6383: hr_utility.set_location('Entering:'||l_proc, 100);
6384: end if;
6385: -- Validate successor position id
6386: --
6387: chk_successor_position_id
6394: ,p_object_version_number => p_rec.object_version_number
6395: );
6396: --
6397: if g_debug then
6398: hr_utility.set_location('Entering:'||l_proc, 110);
6399: end if;
6400: --
6401: -- Validate relief position id
6402: --
6410: ,p_object_version_number => p_rec.object_version_number
6411: );
6412: --
6413: if g_debug then
6414: hr_utility.set_location('Entering:'||l_proc, 120);
6415: end if;
6416: --
6417: -- Validate location_id
6418: --
6425: ,p_object_version_number => p_rec.object_version_number
6426: );
6427: --
6428: if g_debug then
6429: hr_utility.set_location('Entering:'||l_proc, 130);
6430: end if;
6431: --
6432: -- Validate working_hours and frequency
6433: --
6439: ,p_object_version_number => p_rec.object_version_number
6440: );
6441: --
6442: if g_debug then
6443: hr_utility.set_location('Entering:'||l_proc, 140);
6444: end if;
6445: --
6446: -- Validate probation period and probation_period_unit_cd
6447: --
6453: ,p_object_version_number => p_rec.object_version_number
6454: );
6455: --
6456: if g_debug then
6457: hr_utility.set_location('Entering:'||l_proc, 150);
6458: end if;
6459: --
6460: -- Validate time normal start and time_normal_finish
6461: --
6467: ,p_object_version_number => p_rec.object_version_number
6468: );
6469: --
6470: if g_debug then
6471: hr_utility.set_location('Entering:'||l_proc, 160);
6472: end if;
6473: --
6474: -- Validate position definition id
6475: --
6480: ,p_object_version_number => p_rec.object_version_number
6481: );
6482: --
6483: if g_debug then
6484: hr_utility.set_location(l_proc, 165);
6485: end if;
6486: --
6487: -- Validate working_hours and frequency
6488: --
6493: ,p_effective_date => p_effective_date
6494: );
6495: --
6496: if g_debug then
6497: hr_utility.set_location(l_proc, 170);
6498: end if;
6499: --
6500: -- Validate probation period and probation_period_unit_cd
6501: --
6506: ,p_effective_Date => p_effective_date
6507: );
6508: --
6509: if g_debug then
6510: hr_utility.set_location('Entering:'||l_proc, 180);
6511: end if;
6512: --
6513: -- Validate time normal start and time_normal_finish
6514: --
6519: ,p_effective_date => p_effective_date
6520: );
6521: --
6522: if g_debug then
6523: hr_utility.set_location(l_proc, 200);
6524: end if;
6525: --
6526: chk_entry_step_id
6527: (p_position_id => p_rec.position_id
6533: ,p_effective_date => p_effective_date
6534: ,p_object_version_number => p_rec.object_version_number
6535: );
6536: if g_debug then
6537: hr_utility.set_location(l_proc, 210);
6538: end if;
6539: chk_entry_grade_id
6540: (p_position_id => p_rec.position_id
6541: ,p_business_group_id => p_rec.business_group_id
6546: ,p_object_version_number => p_rec.object_version_number
6547: );
6548: --
6549: if g_debug then
6550: hr_utility.set_location(l_proc, 215);
6551: end if;
6552: --
6553: chk_entry_grade_rule_id
6554: (p_position_id => p_rec.position_id
6560: ,p_object_version_number => p_rec.object_version_number
6561: );
6562: --
6563: if g_debug then
6564: hr_utility.set_location(l_proc, 220);
6565: end if;
6566: --
6567: chk_work_term_end_month_cd
6568: (p_position_id => p_rec.position_id
6572: ,p_validation_end_date => p_validation_end_date
6573: ,p_object_version_number => p_rec.object_version_number);
6574: --
6575: if g_debug then
6576: hr_utility.set_location(l_proc, 230);
6577: end if;
6578: --
6579: chk_work_term_end_day_cd
6580: (p_position_id => p_rec.position_id
6584: ,p_validation_end_date => p_validation_end_date
6585: ,p_object_version_number => p_rec.object_version_number);
6586: --
6587: if g_debug then
6588: hr_utility.set_location(l_proc, 240);
6589: end if;
6590: --
6591: chk_work_period_type_cd
6592: (p_position_id => p_rec.position_id
6596: ,p_validation_end_date => p_validation_end_date
6597: ,p_object_version_number => p_rec.object_version_number);
6598: --
6599: if g_debug then
6600: hr_utility.set_location(l_proc, 250);
6601: end if;
6602: --
6603: chk_works_council_approval_flg
6604: (p_position_id => p_rec.position_id
6608: ,p_validation_end_date => p_validation_end_date
6609: ,p_object_version_number => p_rec.object_version_number);
6610: --
6611: if g_debug then
6612: hr_utility.set_location(l_proc, 260);
6613: end if;
6614: --
6615: chk_term_start_month_cd
6616: (p_position_id => p_rec.position_id
6620: ,p_validation_end_date => p_validation_end_date
6621: ,p_object_version_number => p_rec.object_version_number);
6622: --
6623: if g_debug then
6624: hr_utility.set_location(l_proc, 270);
6625: end if;
6626: --
6627: chk_term_start_day_cd
6628: (p_position_id => p_rec.position_id
6632: ,p_validation_end_date => p_validation_end_date
6633: ,p_object_version_number => p_rec.object_version_number);
6634: --
6635: if g_debug then
6636: hr_utility.set_location(l_proc, 280);
6637: end if;
6638: --
6639: chk_seasonal_flag
6640: (p_position_id => p_rec.position_id
6644: ,p_validation_end_date => p_validation_end_date
6645: ,p_object_version_number => p_rec.object_version_number);
6646: --
6647: if g_debug then
6648: hr_utility.set_location(l_proc, 290);
6649: end if;
6650: --
6651: chk_review_flag
6652: (p_position_id => p_rec.position_id
6656: ,p_validation_end_date => p_validation_end_date
6657: ,p_object_version_number => p_rec.object_version_number);
6658: --
6659: if g_debug then
6660: hr_utility.set_location(l_proc, 300);
6661: end if;
6662: --
6663: chk_replacement_required_flag
6664: (p_position_id => p_rec.position_id
6668: ,p_validation_end_date => p_validation_end_date
6669: ,p_object_version_number => p_rec.object_version_number);
6670: --
6671: if g_debug then
6672: hr_utility.set_location(l_proc, 310);
6673: end if;
6674: --
6675: chk_probation_period_unit_cd
6676: (p_position_id => p_rec.position_id
6680: ,p_validation_end_date => p_validation_end_date
6681: ,p_object_version_number => p_rec.object_version_number);
6682: --
6683: if g_debug then
6684: hr_utility.set_location(l_proc, 320);
6685: end if;
6686: --
6687: chk_permit_recruitment_flag
6688: (p_position_id => p_rec.position_id
6692: ,p_validation_end_date => p_validation_end_date
6693: ,p_object_version_number => p_rec.object_version_number);
6694: --
6695: if g_debug then
6696: hr_utility.set_location(l_proc, 330);
6697: end if;
6698: --
6699: chk_permanent_temporary_flag
6700: (p_position_id => p_rec.position_id
6704: ,p_validation_end_date => p_validation_end_date
6705: ,p_object_version_number => p_rec.object_version_number);
6706: --
6707: if g_debug then
6708: hr_utility.set_location(l_proc, 335);
6709: end if;
6710: --
6711: -- for bug fix 5250975
6712: chk_permanent_seasonal_flag
6717: ,p_object_version_number => p_rec.object_version_number);
6718: --
6719:
6720: if g_debug then
6721: hr_utility.set_location(l_proc, 340);
6722: end if;
6723: --
6724: chk_pay_term_end_month_cd
6725: (p_position_id => p_rec.position_id
6729: ,p_validation_end_date => p_validation_end_date
6730: ,p_object_version_number => p_rec.object_version_number);
6731: --
6732: if g_debug then
6733: hr_utility.set_location(l_proc, 350);
6734: end if;
6735: --
6736: chk_pay_term_end_day_cd
6737: (p_position_id => p_rec.position_id
6741: ,p_validation_end_date => p_validation_end_date
6742: ,p_object_version_number => p_rec.object_version_number);
6743: --
6744: if g_debug then
6745: hr_utility.set_location(l_proc, 360);
6746: end if;
6747: --
6748: chk_overlap_unit_cd
6749: (p_position_id => p_rec.position_id
6753: ,p_validation_end_date => p_validation_end_date
6754: ,p_object_version_number => p_rec.object_version_number);
6755: --
6756: if g_debug then
6757: hr_utility.set_location(l_proc, 370);
6758: end if;
6759: --
6760: chk_bargaining_unit_cd
6761: (p_position_id => p_rec.position_id
6765: ,p_validation_end_date => p_validation_end_date
6766: ,p_object_version_number => p_rec.object_version_number);
6767: --
6768: if g_debug then
6769: hr_utility.set_location(l_proc, 380);
6770: end if;
6771: --
6772: chk_pay_freq_payroll_id
6773: (p_position_id => p_rec.position_id
6780: ,p_object_version_number => p_rec.object_version_number
6781: );
6782: --
6783: if g_debug then
6784: hr_utility.set_location(l_proc, 390);
6785: end if;
6786: --
6787: /*
6788: chk_position_transaction_id
6795: );
6796: */
6797: --
6798: if g_debug then
6799: hr_utility.set_location(l_proc, 400);
6800: end if;
6801: --
6802: chk_supervisor_position_id
6803: (p_business_group_id => p_rec.business_group_id
6809: ,p_object_version_number => p_rec.object_version_number
6810: );
6811: --
6812: if g_debug then
6813: hr_utility.set_location(l_proc, 410);
6814: end if;
6815: --
6816: chk_prior_position_id
6817: (p_business_group_id => p_rec.business_group_id
6823: ,p_object_version_number => p_rec.object_version_number
6824: );
6825: --
6826: if g_debug then
6827: hr_utility.set_location(l_proc, 420);
6828: end if;
6829: --
6830: chk_availability_status_id
6831: (p_position_id => p_rec.position_id
6838: ,p_object_version_number => p_rec.object_version_number
6839: ,p_datetrack_mode => p_datetrack_mode );
6840: --
6841: if g_debug then
6842: hr_utility.set_location(l_proc, 430);
6843: end if;
6844: --
6845: chk_position_type
6846: (p_position_id => p_rec.position_id
6851: ,p_object_version_number => p_rec.object_version_number
6852: );
6853: --
6854: if g_debug then
6855: hr_utility.set_location(l_proc, 440);
6856: end if;
6857: --
6858: chk_fte
6859: (p_position_id => p_rec.position_id
6864: ,p_validation_end_date => p_validation_end_Date
6865: ,p_object_version_number => p_rec.object_version_number);
6866: --
6867: if g_debug then
6868: hr_utility.set_location(l_proc, 445);
6869: end if;
6870: --
6871: chk_max_persons
6872: (p_position_id => p_rec.position_id
6875: ,p_effective_date => p_effective_date
6876: ,p_object_version_number => p_rec.object_version_number);
6877: --
6878: if g_debug then
6879: hr_utility.set_location(l_proc, 450);
6880: end if;
6881: --
6882: if (p_rec.position_transaction_id is null) then
6883: chk_reserved_fte
6890: ,p_object_version_number => p_rec.object_version_number);
6891: end if;
6892: --
6893: if g_debug then
6894: hr_utility.set_location(l_proc, 455);
6895: end if;
6896: --
6897: chk_extended_pay
6898: (p_position_id => p_rec.position_id
6905: ,p_work_term_end_month_cd => p_rec.work_term_end_month_cd
6906: );
6907: --
6908: if g_debug then
6909: hr_utility.set_location(l_proc, 460);
6910: end if;
6911: --
6912: chk_proposed_fte_for_layoff
6913: (p_fte => p_rec.fte
6915: ,p_proposed_date_for_layoff => p_rec.proposed_Date_for_layoff
6916: );
6917: --
6918: if g_debug then
6919: hr_utility.set_location(l_proc, 470);
6920: end if;
6921: --
6922: --
6923: -- Call the datetrack update integrity operation
6934: p_validation_end_date => p_validation_end_date);
6935: --
6936: --
6937: if g_debug then
6938: hr_utility.set_location(l_proc, 480);
6939: end if;
6940: --
6941: --
6942: chk_proposed_status
6952: -- Call all supporting business operations
6953: --
6954: --
6955: if g_debug then
6956: hr_utility.set_location(l_proc, 490);
6957: end if;
6958: --
6959: -- validate end dates
6960: chk_end_dates
6969: ,proposed_date_for_layoff => p_rec.proposed_date_for_layoff
6970: ,date_effective => p_rec.date_effective );
6971: --
6972: if g_debug then
6973: hr_utility.set_location(l_proc, 500);
6974: end if;
6975: --
6976: -- Validate date effective
6977: --
6987: --
6988: --
6989: --
6990: if g_debug then
6991: hr_utility.set_location(l_proc, 510);
6992: end if;
6993: --
6994: chk_seasonal_poi
6995: (p_position_id => p_rec.position_id
6999: ,p_validation_end_date => p_validation_end_date
7000: ,p_object_version_number => p_rec.object_version_number);
7001: --
7002: if g_debug then
7003: hr_utility.set_location(l_proc, 520);
7004: end if;
7005: --
7006: chk_overlap_poi
7007: (p_position_id => p_rec.position_id
7011: ,p_validation_end_date => p_validation_end_date
7012: ,p_object_version_number => p_rec.object_version_number);
7013: --
7014: if g_debug then
7015: hr_utility.set_location(l_proc, 530);
7016: end if;
7017: --
7018: /*
7019: chk_extended_pay_permit
7025: ,p_object_version_number => p_rec.object_version_number
7026: );
7027: --
7028: if g_debug then
7029: hr_utility.set_location('Entering:'||l_proc, 450);
7030: end if;
7031: --
7032: -- Validate status
7033: --
7038: );
7039: */
7040: --
7041: if g_debug then
7042: hr_utility.set_location('Entering:'||l_proc, 600);
7043: end if;
7044: --
7045: -- PMFLETCH ** Not using this uniqueness chech anymore **
7046: -- Check position_name is unique for Business_group
7066: );
7067: --
7068: --
7069: if g_debug then
7070: hr_utility.set_location(l_proc, 610);
7071: end if;
7072: --
7073: -- Check validation for position_type change to Single
7074: --
7078: ,p_effective_date => p_effective_date
7079: ,p_object_version_number => p_rec.object_version_number);
7080: --
7081: if g_debug then
7082: hr_utility.set_location(l_proc, 620);
7083: end if;
7084: --
7085: --
7086: --
7089: -- hr_psf_bus.chk_ddf(p_rec => p_rec);
7090: --
7091: --
7092: if g_debug then
7093: hr_utility.set_location(l_proc, 630);
7094: end if;
7095: --
7096: -- Call descriptive flexfield validation routines
7097: --
7105: , p_effective_date => p_effective_date
7106: ) = 'Y') then
7107: --
7108: if p_rec.position_transaction_id is null then
7109: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
7110: hr_utility.raise_error;
7111: end if;
7112: --
7113: end if;
7106: ) = 'Y') then
7107: --
7108: if p_rec.position_transaction_id is null then
7109: hr_utility.set_message(800, 'PER_CANT_CRE_PC_POS_NO_TXN');
7110: hr_utility.raise_error;
7111: end if;
7112: --
7113: end if;
7114: --
7122: --End of Position Control Business Rules call
7123: --
7124: --
7125: if g_debug then
7126: hr_utility.set_location(' Leaving:'||l_proc, 700);
7127: end if;
7128: --
7129: End update_validate;
7130: --
7159: for update of date_effective;
7160: begin
7161: if g_debug then
7162: l_proc := g_package||'delete_date_effective ';
7163: hr_utility.set_location('entering '||l_proc,5);
7164: end if;
7165: if p_datetrack_mode ='DELETE_NEXT_CHANGE' then
7166: open current_row ;
7167: fetch current_row into l_esd,l_eed ;
7169: -- effective start date of current row is fetched from the database
7170: -- that will be used to fetch the next row and its status
7171: if l_eed < l_eot then
7172: if g_debug then
7173: hr_utility.set_location('first row fetched and next row there '||l_proc,15);
7174: end if;
7175: open next_row(l_esd);
7176: fetch next_row into l_next_esd,l_next_eed,l_next_stat;
7177: if next_row%found then
7176: fetch next_row into l_next_esd,l_next_eed,l_next_stat;
7177: if next_row%found then
7178: if l_next_eed
7180: hr_utility.set_location('next row active and next row there '||l_proc,25);
7181: end if;
7182: fetch next_row into l_next_esd,l_next_eed,l_next_stat ;
7183: if l_next_stat = 'ACTIVE' then
7184: -- next to next row is active effective start date of that row will be
7183: if l_next_stat = 'ACTIVE' then
7184: -- next to next row is active effective start date of that row will be
7185: -- made date effective for all the rows.
7186: if g_debug then
7187: hr_utility.set_location('next row active changing date effective '||l_proc,35);
7188: end if;
7189: for i in pos_all loop
7190: update hr_all_positions_f
7191: set date_effective = l_next_esd
7197: close next_row;
7198: end if;
7199: end if;
7200: if g_debug then
7201: hr_utility.set_location('Leaving '||l_proc,100);
7202: end if;
7203: end;
7204: -- ----------------------------------------------------------------------------
7205: -- |-------------------------< pre_delete_checks >-----------------------------|
7220:
7221: begin
7222: if g_debug then
7223: l_proc := g_package||'pre_delete_checks';
7224: hr_utility.set_location('Entering : ' || l_proc, 10);
7225: end if;
7226: if p_datetrack_mode = 'ZAP' then
7227: if g_debug then
7228: hr_utility.set_location(l_proc, 20);
7224: hr_utility.set_location('Entering : ' || l_proc, 10);
7225: end if;
7226: if p_datetrack_mode = 'ZAP' then
7227: if g_debug then
7228: hr_utility.set_location(l_proc, 20);
7229: end if;
7230: l_exists := NULL;
7231: -- if p_hr_ins = 'Y' then
7232: l_exists := NULL;
7240: exception when no_data_found then
7241: null;
7242: end;
7243: if l_exists = '1' then
7244: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
7245: hr_utility.raise_error;
7246: end if;
7247: l_exists := NULL;
7248: if g_debug then
7241: null;
7242: end;
7243: if l_exists = '1' then
7244: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
7245: hr_utility.raise_error;
7246: end if;
7247: l_exists := NULL;
7248: if g_debug then
7249: hr_utility.set_location(l_proc, 30);
7245: hr_utility.raise_error;
7246: end if;
7247: l_exists := NULL;
7248: if g_debug then
7249: hr_utility.set_location(l_proc, 30);
7250: end if;
7251: begin
7252: select '1'
7253: into l_exists
7258: exception when no_data_found then
7259: null;
7260: end;
7261: if l_exists = '1' then
7262: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7263: hr_utility.raise_error;
7264: end if;
7265: if g_debug then
7266: hr_utility.set_location(l_proc, 40);
7259: null;
7260: end;
7261: if l_exists = '1' then
7262: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7263: hr_utility.raise_error;
7264: end if;
7265: if g_debug then
7266: hr_utility.set_location(l_proc, 40);
7267: end if;
7262: hr_utility.set_message(801,'PER_7861_DEL_POS_REC_ACT');
7263: hr_utility.raise_error;
7264: end if;
7265: if g_debug then
7266: hr_utility.set_location(l_proc, 40);
7267: end if;
7268: begin
7269: select e.pos_structure_element_id
7270: into l_pos_structure_element_id
7281: exception when no_data_found then
7282: null;
7283: end;
7284: if g_debug then
7285: hr_utility.set_location(l_proc, 50);
7286: end if;
7287: l_exists := NULL;
7288: if l_pos_structure_element_id is null then
7289: begin
7297: exception when no_data_found then
7298: null;
7299: end;
7300: if g_debug then
7301: hr_utility.set_location(l_proc, 70);
7302: end if;
7303: if l_exists = '1' then
7304: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7305: hr_utility.raise_error;
7300: if g_debug then
7301: hr_utility.set_location(l_proc, 70);
7302: end if;
7303: if l_exists = '1' then
7304: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7305: hr_utility.raise_error;
7306: end if;
7307: end if;
7308: l_exists := NULL;
7301: hr_utility.set_location(l_proc, 70);
7302: end if;
7303: if l_exists = '1' then
7304: hr_utility.set_message(801,'PER_7416_POS_IN_POS_HIER');
7305: hr_utility.raise_error;
7306: end if;
7307: end if;
7308: l_exists := NULL;
7309: if g_debug then
7306: end if;
7307: end if;
7308: l_exists := NULL;
7309: if g_debug then
7310: hr_utility.set_location(l_proc, 80);
7311: end if;
7312: begin
7313: select '1'
7314: into l_exists
7320: exception when no_data_found then
7321: null;
7322: end;
7323: if g_debug then
7324: hr_utility.set_location(l_proc, 90);
7325: end if;
7326: if l_exists = '1' then
7327: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7328: hr_utility.raise_error;
7323: if g_debug then
7324: hr_utility.set_location(l_proc, 90);
7325: end if;
7326: if l_exists = '1' then
7327: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7328: hr_utility.raise_error;
7329: end if;
7330: l_exists := NULL;
7331: if g_debug then
7324: hr_utility.set_location(l_proc, 90);
7325: end if;
7326: if l_exists = '1' then
7327: hr_utility.set_message(801,'PER_7865_DEF_POS_DEL_GRADE');
7328: hr_utility.raise_error;
7329: end if;
7330: l_exists := NULL;
7331: if g_debug then
7332: hr_utility.set_location(l_proc, 100);
7328: hr_utility.raise_error;
7329: end if;
7330: l_exists := NULL;
7331: if g_debug then
7332: hr_utility.set_location(l_proc, 100);
7333: end if;
7334: begin
7335: select '1'
7336: into l_exists
7341: exception when no_data_found then
7342: null;
7343: end;
7344: if l_exists = '1' then
7345: hr_utility.set_message(801,'PER_7866_DEF_POS_DEL_REQ');
7346: hr_utility.raise_error;
7347: end if;
7348: l_exists := NULL;
7349: if g_debug then
7342: null;
7343: end;
7344: if l_exists = '1' then
7345: hr_utility.set_message(801,'PER_7866_DEF_POS_DEL_REQ');
7346: hr_utility.raise_error;
7347: end if;
7348: l_exists := NULL;
7349: if g_debug then
7350: hr_utility.set_location(l_proc, 110);
7346: hr_utility.raise_error;
7347: end if;
7348: l_exists := NULL;
7349: if g_debug then
7350: hr_utility.set_location(l_proc, 110);
7351: end if;
7352: begin
7353: select '1'
7354: into l_exists
7359: exception when no_data_found then
7360: null;
7361: end;
7362: if l_exists = '1' then
7363: hr_utility.set_message(801,'PER_7867_DEF_POS_DEL_EVAL');
7364: hr_utility.raise_error;
7365: end if;
7366:
7367: l_exists := NULL;
7360: null;
7361: end;
7362: if l_exists = '1' then
7363: hr_utility.set_message(801,'PER_7867_DEF_POS_DEL_EVAL');
7364: hr_utility.raise_error;
7365: end if;
7366:
7367: l_exists := NULL;
7368: if g_debug then
7365: end if;
7366:
7367: l_exists := NULL;
7368: if g_debug then
7369: hr_utility.set_location(l_proc, 120);
7370: end if;
7371: begin
7372: select '1'
7373: into l_exists
7380:
7381: end;
7382:
7383: if l_exists = '1' then
7384: hr_utility.set_message(801,'PER_7996_POS_SUCCESSOR_REF');
7385: hr_utility.raise_error;
7386: end if;
7387:
7388: l_exists := NULL;
7381: end;
7382:
7383: if l_exists = '1' then
7384: hr_utility.set_message(801,'PER_7996_POS_SUCCESSOR_REF');
7385: hr_utility.raise_error;
7386: end if;
7387:
7388: l_exists := NULL;
7389: if g_debug then
7386: end if;
7387:
7388: l_exists := NULL;
7389: if g_debug then
7390: hr_utility.set_location(l_proc, 120);
7391: end if;
7392: begin
7393: select '1'
7394: into l_exists
7401:
7402: end;
7403:
7404: if l_exists = '1' then
7405: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_REF');
7406: hr_utility.raise_error;
7407: end if;
7408:
7409: l_exists := NULL;
7402: end;
7403:
7404: if l_exists = '1' then
7405: hr_utility.set_message(800,'HR_PSF_SUPERVISOR_REF');
7406: hr_utility.raise_error;
7407: end if;
7408:
7409: l_exists := NULL;
7410: if g_debug then
7407: end if;
7408:
7409: l_exists := NULL;
7410: if g_debug then
7411: hr_utility.set_location(l_proc, 130);
7412: end if;
7413: /*
7414: begin
7415: select '1'
7421: exception when no_data_found then
7422: null;
7423: end;
7424: if l_exists = '1' then
7425: hr_utility.set_message(800,'HR_DEL_POS_EXTRA_INFO');
7426: hr_utility.raise_error;
7427: end if;
7428: */
7429: l_exists := NULL;
7422: null;
7423: end;
7424: if l_exists = '1' then
7425: hr_utility.set_message(800,'HR_DEL_POS_EXTRA_INFO');
7426: hr_utility.raise_error;
7427: end if;
7428: */
7429: l_exists := NULL;
7430: if g_debug then
7427: end if;
7428: */
7429: l_exists := NULL;
7430: if g_debug then
7431: hr_utility.set_location(l_proc, 140);
7432: end if;
7433:
7434: begin
7435: select '1'
7442: null;
7443: end;
7444:
7445: if l_exists = '1' then
7446: hr_utility.set_message(800,'HR_52776_NOT_DEL_MM_POSITIONS');
7447: hr_utility.raise_error;
7448: end if;
7449: --
7450: l_exists := NULL;
7443: end;
7444:
7445: if l_exists = '1' then
7446: hr_utility.set_message(800,'HR_52776_NOT_DEL_MM_POSITIONS');
7447: hr_utility.raise_error;
7448: end if;
7449: --
7450: l_exists := NULL;
7451: if g_debug then
7448: end if;
7449: --
7450: l_exists := NULL;
7451: if g_debug then
7452: hr_utility.set_location(l_proc, 150);
7453: end if;
7454: /* new logic
7455: --
7456: begin
7464: null;
7465: end;
7466: --
7467: if l_exists = '1' then
7468: hr_utility.set_message(800,'HR_NOT_DEL_PTX');
7469: hr_utility.raise_error;
7470: end if;
7471: --
7472: l_exists := NULL;
7465: end;
7466: --
7467: if l_exists = '1' then
7468: hr_utility.set_message(800,'HR_NOT_DEL_PTX');
7469: hr_utility.raise_error;
7470: end if;
7471: --
7472: l_exists := NULL;
7473: if g_debug then
7470: end if;
7471: --
7472: l_exists := NULL;
7473: if g_debug then
7474: hr_utility.set_location(l_proc, 150);
7475: end if;
7476: --
7477: begin
7478: select '1'
7485: null;
7486: end;
7487: --
7488: if l_exists = '1' then
7489: hr_utility.set_message(800,'HR_NOT_DEL_ATT_RANGES');
7490: hr_utility.raise_error;
7491: end if;
7492: --
7493: l_exists := NULL;
7486: end;
7487: --
7488: if l_exists = '1' then
7489: hr_utility.set_message(800,'HR_NOT_DEL_ATT_RANGES');
7490: hr_utility.raise_error;
7491: end if;
7492: --
7493: l_exists := NULL;
7494: if g_debug then
7491: end if;
7492: --
7493: l_exists := NULL;
7494: if g_debug then
7495: hr_utility.set_location(l_proc, 150);
7496: end if;
7497: --
7498: begin
7499: select '1'
7506: null;
7507: end;
7508: --
7509: if l_exists = '1' then
7510: hr_utility.set_message(800,'HR_NOT_DEL_BGT');
7511: hr_utility.raise_error;
7512: end if;
7513: --
7514: l_exists := NULL;
7507: end;
7508: --
7509: if l_exists = '1' then
7510: hr_utility.set_message(800,'HR_NOT_DEL_BGT');
7511: hr_utility.raise_error;
7512: end if;
7513: --
7514: l_exists := NULL;
7515: if g_debug then
7512: end if;
7513: --
7514: l_exists := NULL;
7515: if g_debug then
7516: hr_utility.set_location(l_proc, 150);
7517: end if;
7518: --
7519: begin
7520: select '1'
7527: null;
7528: end;
7529: --
7530: if l_exists = '1' then
7531: hr_utility.set_message(800,'HR_NOT_WKS_DETAIL');
7532: hr_utility.raise_error;
7533: end if;
7534: -- end if;
7535: */
7528: end;
7529: --
7530: if l_exists = '1' then
7531: hr_utility.set_message(800,'HR_NOT_WKS_DETAIL');
7532: hr_utility.raise_error;
7533: end if;
7534: -- end if;
7535: */
7536: --
7555: --
7556: -- Open Cursor for Processing Sql statment.
7557: --
7558: if g_debug then
7559: hr_utility.set_location(l_proc, 150);
7560: end if;
7561: l_sql_cursor := dbms_sql.open_cursor;
7562: --
7563: -- Parse SQL statement.
7566: --
7567: -- Map the local variables to each returned Column
7568: --
7569: if g_debug then
7570: hr_utility.set_location(l_proc, 160);
7571: end if;
7572: dbms_sql.define_column(l_sql_cursor, 1,l_oci_out,1);
7573: --
7574: -- Execute the SQL statement.
7573: --
7574: -- Execute the SQL statement.
7575: --
7576: if g_debug then
7577: hr_utility.set_location(l_proc, 170);
7578: end if;
7579: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
7580: --
7581: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7579: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
7580: --
7581: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7582: then
7583: hr_utility.set_message(800,'HR_6048_PO_POS_DEL_POS_CONT');
7584: hr_utility.raise_error;
7585: end if;
7586: --
7587: -- Close cursor used for processing SQL statement.
7580: --
7581: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
7582: then
7583: hr_utility.set_message(800,'HR_6048_PO_POS_DEL_POS_CONT');
7584: hr_utility.raise_error;
7585: end if;
7586: --
7587: -- Close cursor used for processing SQL statement.
7588: --
7587: -- Close cursor used for processing SQL statement.
7588: --
7589: dbms_sql.close_cursor(l_sql_cursor);
7590: if g_debug then
7591: hr_utility.set_location(l_proc, 180);
7592: end if;
7593: end;
7594: -- end if;
7595: --
7596: -- Ref Int check for OTA.
7597: --
7598: per_ota_predel_validation.ota_predel_pos_validation(p_position_id);
7599: if g_debug then
7600: hr_utility.set_location('Leaving : ' || l_proc, 300);
7601: end if;
7602: --
7603: end if;
7604: end pre_delete_checks;
7615: --
7616: l_proc varchar2(72) ;
7617: --
7618: Begin
7619: g_debug := hr_utility.debug_enabled;
7620: if g_debug then
7621: l_proc := g_package||'delete_validate';
7622: hr_utility.set_location('Entering:'||l_proc, 5);
7623: end if;
7618: Begin
7619: g_debug := hr_utility.debug_enabled;
7620: if g_debug then
7621: l_proc := g_package||'delete_validate';
7622: hr_utility.set_location('Entering:'||l_proc, 5);
7623: end if;
7624: --
7625: -- Delete Validations
7626: pre_delete_checks(p_position_id => p_rec.position_id
7663: ,p_business_group_id => p_rec.business_group_id
7664: ,p_datetrack_mode => p_datetrack_mode );
7665:
7666: if g_debug then
7667: hr_utility.set_location(' Leaving:'||l_proc, 10);
7668: end if;
7669: End delete_validate;
7670: --
7671: -- -----------------------------------------------------------------------------
7678: l_proc varchar2(72) ;
7679: l_error exception;
7680: --
7681: Begin
7682: g_debug := hr_utility.debug_enabled;
7683: if g_debug then
7684: l_proc := g_package||'chk_ddf';
7685: hr_utility.set_location('Entering:'||l_proc, 5);
7686: end if;
7681: Begin
7682: g_debug := hr_utility.debug_enabled;
7683: if g_debug then
7684: l_proc := g_package||'chk_ddf';
7685: hr_utility.set_location('Entering:'||l_proc, 5);
7686: end if;
7687: --
7688: -- Check if the row is being inserted or updated and a
7689: -- value has changed
7823: --
7824: end if;
7825: --
7826: if g_debug then
7827: hr_utility.set_location(' Leaving:'||l_proc, 10);
7828: end if;
7829: end chk_ddf;
7830: --
7831: -- Location : hr_psf_bus package
7867: --
7868: l_proc varchar2(72);
7869: --
7870: begin
7871: g_debug := hr_utility.debug_enabled;
7872: if g_debug then
7873: l_proc := g_package||'chk_df';
7874: hr_utility.set_location('Entering:'||l_proc, 10);
7875: end if;
7870: begin
7871: g_debug := hr_utility.debug_enabled;
7872: if g_debug then
7873: l_proc := g_package||'chk_df';
7874: hr_utility.set_location('Entering:'||l_proc, 10);
7875: end if;
7876: --
7877: if ((p_rec.position_id is not null) and (
7878: nvl(hr_psf_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
8014: end if;
8015: end if;
8016: --
8017: if g_debug then
8018: hr_utility.set_location(' Leaving:'||l_proc, 20);
8019: end if;
8020:
8021: end chk_df;
8022: --
8087: and p_datetrack_mode = 'ZAP');
8088:
8089: --
8090: begin
8091: hr_utility.set_location('Entering:'|| l_proc, 1);
8092: --
8093: -- Check that the position is not attached to any assignment
8094: --
8095: open csr_assgt;
8095: open csr_assgt;
8096: fetch csr_assgt into l_exists;
8097: if csr_assgt%found then
8098: close csr_assgt;
8099: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
8100: hr_utility.raise_error;
8101: end if;
8102: close csr_assgt;
8103: --
8096: fetch csr_assgt into l_exists;
8097: if csr_assgt%found then
8098: close csr_assgt;
8099: hr_utility.set_message(801,'PER_7417_POS_ASSIGNMENT');
8100: hr_utility.raise_error;
8101: end if;
8102: close csr_assgt;
8103: --
8104: hr_utility.set_location(l_proc, 2);
8100: hr_utility.raise_error;
8101: end if;
8102: close csr_assgt;
8103: --
8104: hr_utility.set_location(l_proc, 2);
8105: --
8106: -- Check that the position is not attached to any element link
8107: --
8108: open csr_element_links;
8108: open csr_element_links;
8109: fetch csr_element_links into l_exists;
8110: if csr_element_links%found then
8111: close csr_element_links;
8112: hr_utility.set_message(801,'PER_7863_DEL_POS_LINK');
8113: hr_utility.raise_error;
8114: end if;
8115: close csr_element_links;
8116: --
8109: fetch csr_element_links into l_exists;
8110: if csr_element_links%found then
8111: close csr_element_links;
8112: hr_utility.set_message(801,'PER_7863_DEL_POS_LINK');
8113: hr_utility.raise_error;
8114: end if;
8115: close csr_element_links;
8116: --
8117: hr_utility.set_location(l_proc, 3);
8113: hr_utility.raise_error;
8114: end if;
8115: close csr_element_links;
8116: --
8117: hr_utility.set_location(l_proc, 3);
8118: --
8119: -- Check that the position is not attached to any Budget
8120: --
8121: open csr_budget_details;
8121: open csr_budget_details;
8122: fetch csr_budget_details into l_exists;
8123: if csr_budget_details%found then
8124: close csr_budget_details;
8125: hr_utility.set_message(800,'PER_DEL_POSITION_BUDGET');
8126: hr_utility.raise_error;
8127: end if;
8128: close csr_budget_details;
8129: --
8122: fetch csr_budget_details into l_exists;
8123: if csr_budget_details%found then
8124: close csr_budget_details;
8125: hr_utility.set_message(800,'PER_DEL_POSITION_BUDGET');
8126: hr_utility.raise_error;
8127: end if;
8128: close csr_budget_details;
8129: --
8130: --
8127: end if;
8128: close csr_budget_details;
8129: --
8130: --
8131: hr_utility.set_location(' Leaving:'|| l_proc, 11);
8132: --
8133: end chk_ref_int_del;
8134:
8135: --
8150: l_proc varchar2(30);
8151: --
8152: Begin
8153: --
8154: g_debug := hr_utility.debug_enabled;
8155: if g_debug then
8156: l_proc :='First_active_position_row';
8157: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8158: end if;
8153: --
8154: g_debug := hr_utility.debug_enabled;
8155: if g_debug then
8156: l_proc :='First_active_position_row';
8157: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8158: end if;
8159: open c1;
8160: fetch c1 into l_minesd;
8161: close c1;
8160: fetch c1 into l_minesd;
8161: close c1;
8162: --
8163: if g_debug then
8164: hr_utility.set_location( l_proc, 20);
8165: end if;
8166: --
8167: if l_minesd is null or l_minesd = p_effective_start_date then
8168: --
8166: --
8167: if l_minesd is null or l_minesd = p_effective_start_date then
8168: --
8169: if g_debug then
8170: hr_utility.set_location( l_proc, 30);
8171: end if;
8172: --
8173: return (true);
8174: --
8174: --
8175: else
8176: --
8177: if g_debug then
8178: hr_utility.set_location( l_proc, 40);
8179: end if;
8180: --
8181: return (false);
8182: --
8181: return (false);
8182: --
8183: end if;
8184: if g_debug then
8185: hr_utility.set_location('Leaving : ' || l_proc, 100);
8186: end if;
8187: --
8188: End First_active_position_row;
8189: --
8213: Begin
8214: --
8215: if g_debug then
8216: l_proc :='First_proposed_only_position';
8217: hr_utility.set_location('Entering : ' || l_proc, 10);
8218: end if;
8219: open c1;
8220: fetch c1 into l_rows_not_proposed;
8221: if l_rows_not_proposed = 0 then
8220: fetch c1 into l_rows_not_proposed;
8221: if l_rows_not_proposed = 0 then
8222: --
8223: if g_debug then
8224: hr_utility.set_location(l_proc, 20);
8225: end if;
8226: open c2;
8227: fetch c2 into l_esd;
8228: close c2;
8227: fetch c2 into l_esd;
8228: close c2;
8229: if l_esd is null or l_esd = p_effective_Start_date then
8230: if g_debug then
8231: hr_utility.set_location(l_proc, 30);
8232: end if;
8233: return(true);
8234: end if;
8235: --
8233: return(true);
8234: end if;
8235: --
8236: if g_debug then
8237: hr_utility.set_location(l_proc, 40);
8238: end if;
8239: --
8240: end if;
8241: --
8239: --
8240: end if;
8241: --
8242: if g_debug then
8243: hr_utility.set_location( 'Leaving : ' || l_proc, 100);
8244: end if;
8245: return(false);
8246: --
8247: End First_proposed_only_position;
8265: ,psf.business_group_id) <> 'PROPOSED';
8266: --
8267: Begin
8268: --
8269: g_debug := hr_utility.debug_enabled;
8270: if g_debug then
8271: l_proc :='all_proposed_only_position';
8272: hr_utility.set_location('Entering : ' || l_proc, 10);
8273: end if;
8268: --
8269: g_debug := hr_utility.debug_enabled;
8270: if g_debug then
8271: l_proc :='all_proposed_only_position';
8272: hr_utility.set_location('Entering : ' || l_proc, 10);
8273: end if;
8274: open c1;
8275: fetch c1 into l_rows_not_proposed;
8276: if l_rows_not_proposed = 0 then
8277: return(true);
8278: end if;
8279: --
8280: if g_debug then
8281: hr_utility.set_location( 'Leaving : ' || l_proc, 100);
8282: end if;
8283: return(false);
8284: --
8285: End all_proposed_only_position;
8309: Begin
8310: --
8311: if g_debug then
8312: l_proc :='Lower_limit';
8313: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8314: end if;
8315: l_sot := to_date('01/01/0001','mm/dd/yyyy');
8316: l_proposed_only := hr_psf_bus.all_proposed_only_position(p_position_id);
8317: if l_proposed_only = true then
8321: fetch c1 into l_esd;
8322: close c1;
8323: --
8324: if g_debug then
8325: hr_utility.set_location(l_proc, 20);
8326: end if;
8327: --
8328: if l_esd is null or l_esd = p_effective_start_date then
8329: if g_debug then
8326: end if;
8327: --
8328: if l_esd is null or l_esd = p_effective_start_date then
8329: if g_debug then
8330: hr_utility.set_location( 'Leaving : ' || l_proc, 30);
8331: end if;
8332: return(l_sot);
8333: else
8334: --
8332: return(l_sot);
8333: else
8334: --
8335: if g_debug then
8336: hr_utility.set_location(l_proc, 40);
8337: end if;
8338: --
8339: open c2;
8340: fetch c2 into l_esd;
8340: fetch c2 into l_esd;
8341: close c2;
8342: --
8343: if g_debug then
8344: hr_utility.set_location( 'Leaving : ' || l_proc, 50);
8345: end if;
8346: --
8347: return(l_esd + 1);
8348: --
8380: Begin
8381: --
8382: if g_debug then
8383: l_proc :='Upper_Limit';
8384: hr_utility.set_location( 'Entering : ' || l_proc, 10);
8385: end if;
8386: l_eot := to_date('12/31/4712', 'mm/dd/yyyy');
8387: --
8388: if g_debug then
8385: end if;
8386: l_eot := to_date('12/31/4712', 'mm/dd/yyyy');
8387: --
8388: if g_debug then
8389: hr_utility.set_location(l_proc, 20);
8390: end if;
8391: l_proposed_only := hr_psf_bus.all_proposed_only_position(p_position_id);
8392: if l_proposed_only = true then
8393: return(l_eot);
8397: fetch c1 into l_esd;
8398: close c1;
8399: --
8400: if g_debug then
8401: hr_utility.set_location(l_proc, 30);
8402: end if;
8403: --
8404: if l_esd is null or l_esd = p_effective_start_date then
8405: if g_debug then
8402: end if;
8403: --
8404: if l_esd is null or l_esd = p_effective_start_date then
8405: if g_debug then
8406: hr_utility.set_location(l_proc, 40);
8407: end if;
8408: --
8409: l_ret_date := l_eot;
8410: elsE
8412: l_ret_date := l_esd -1;
8413: end if;
8414: --
8415: if g_debug then
8416: hr_utility.set_location(l_proc, 50);
8417: end if;
8418: --
8419: open c2;
8420: fetch c2 into l_tmp_esd;
8420: fetch c2 into l_tmp_esd;
8421: close c2;
8422: --
8423: if g_debug then
8424: hr_utility.set_location(l_proc, 60);
8425: end if;
8426: --
8427: if nvl(l_tmp_esd, l_eot) < nvl(l_ret_date, l_eot) then
8428: if g_debug then
8425: end if;
8426: --
8427: if nvl(l_tmp_esd, l_eot) < nvl(l_ret_date, l_eot) then
8428: if g_debug then
8429: hr_utility.set_location(l_proc, 70);
8430: end if;
8431: --
8432: l_ret_date := l_tmp_esd;
8433: end if;
8432: l_ret_date := l_tmp_esd;
8433: end if;
8434: --
8435: if g_debug then
8436: hr_utility.set_location(l_proc, 80);
8437: end if;
8438: --
8439: open c3;
8440: fetch c3 into l_tmp_esd;
8440: fetch c3 into l_tmp_esd;
8441: close c3;
8442: --
8443: if g_debug then
8444: hr_utility.set_location(l_proc, 90);
8445: end if;
8446: --
8447: if nvl(l_tmp_esd, l_eot) < nvl(l_esd, l_eot) then
8448: if g_debug then
8445: end if;
8446: --
8447: if nvl(l_tmp_esd, l_eot) < nvl(l_esd, l_eot) then
8448: if g_debug then
8449: hr_utility.set_location(l_proc, 100);
8450: end if;
8451: --
8452: l_ret_date := l_tmp_esd - 1;
8453: end if;
8452: l_ret_date := l_tmp_esd - 1;
8453: end if;
8454: --
8455: if g_debug then
8456: hr_utility.set_location( 'Leaving : ' || l_proc, 200);
8457: end if;
8458: return(nvl(l_ret_date, l_eot));
8459: --
8460: end if;
8512: Begin
8513: --
8514: if g_debug then
8515: l_proc := g_package||'chk_permanent_seasonal_flag';
8516: hr_utility.set_location('Entering:'||l_proc, 5);
8517: end if;
8518: --
8519: l_api_updating := hr_psf_shd.api_updating
8520: (p_position_id => p_position_id
8528: if (p_permanent_temporary_flag is not null and p_seasonal_flag is not null) then
8529: if(p_seasonal_flag = 'Y' and p_permanent_temporary_flag = 'Y') then
8530: -- raise error as both flags are set to Y.
8531: --
8532: hr_utility.set_message(8302,'PQH_INV_PRMNT_SEASONAL_FLAG');
8533: hr_utility.raise_error;
8534: end if;
8535: end if;
8536: end if;
8529: if(p_seasonal_flag = 'Y' and p_permanent_temporary_flag = 'Y') then
8530: -- raise error as both flags are set to Y.
8531: --
8532: hr_utility.set_message(8302,'PQH_INV_PRMNT_SEASONAL_FLAG');
8533: hr_utility.raise_error;
8534: end if;
8535: end if;
8536: end if;
8537: --
8535: end if;
8536: end if;
8537: --
8538: if g_debug then
8539: hr_utility.set_location('Leaving:'||l_proc,10);
8540: end if;
8541: --
8542: end chk_permanent_seasonal_flag;
8543: --