[Home] [Help]
20: l_error exception;
21: l_argument varchar2(30);
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: -- Only proceed with validation if a row exists for
27: -- the current record in the HR Schema
28: --
29: IF not per_pos_shd.api_updating
30: (p_position_id => p_rec.position_id
31: ,p_object_version_number => p_rec.object_version_number)
32: THEN
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '20');
36: END IF;
37: hr_utility.set_location(l_proc, 30);
30: (p_position_id => p_rec.position_id
31: ,p_object_version_number => p_rec.object_version_number)
32: THEN
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '20');
36: END IF;
37: hr_utility.set_location(l_proc, 30);
38: --
31: ,p_object_version_number => p_rec.object_version_number)
32: THEN
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '20');
36: END IF;
37: hr_utility.set_location(l_proc, 30);
38: --
39: if nvl(p_rec.business_group_id, hr_api.g_number) <>
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP', '20');
36: END IF;
37: hr_utility.set_location(l_proc, 30);
38: --
39: if nvl(p_rec.business_group_id, hr_api.g_number) <>
40: nvl(per_pos_shd.g_old_rec.business_group_id
41: ,hr_api.g_number
61: l_argument := 'organization_id';
62: raise l_error;
63: end if;
64: --
65: hr_utility.set_location(l_proc, 40);
66: exception
67: when l_error then
68: hr_api.argument_changed_error
69: (p_api_name => l_proc
70: ,p_argument => l_argument
71: );
72: when others then
73: raise;
74: hr_utility.set_location(' Leaving:'||l_proc, 50);
75: end chk_non_updateable_args;
76: --
77: --
78: -- ---------------------------------------------------------------------------
100: l_security_group_id number;
101: l_proc varchar2(72) := g_package||'set_security_group_id';
102: --
103: begin
104: hr_utility.set_location('Entering:'|| l_proc, 10);
105: --
106: -- Ensure that all the mandatory parameter are not null
107: --
108: hr_api.mandatory_arg_error(p_api_name => l_proc,
115: close csr_sec_grp;
116: --
117: -- The primary key is invalid therefore we must error
118: --
119: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
120: hr_utility.raise_error;
121: end if;
122: close csr_sec_grp;
123: --
116: --
117: -- The primary key is invalid therefore we must error
118: --
119: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
120: hr_utility.raise_error;
121: end if;
122: close csr_sec_grp;
123: --
124: -- Set the security_group_id in CLIENT_INFO
126: hr_api.set_security_group_id
127: (p_security_group_id => l_security_group_id
128: );
129: --
130: hr_utility.set_location(' Leaving:'|| l_proc, 20);
131: --
132: end set_security_group_id;
133: --
134: -- ----------------------------------------------------------------------------
189: and p_date_effective between job.date_from
190: and nvl(job.date_to,hr_api.g_eot);
191: --
192: begin
193: hr_utility.set_location('Entering:'||l_proc, 1);
194: --
195: -- Check mandatory parameters have been set
196: --
197: hr_api.mandatory_arg_error
198: (p_api_name => l_proc
199: ,p_argument => 'job_id'
200: ,p_argument_value => p_job_id
201: );
202: hr_utility.set_location(l_proc, 2);
203: --
204: -- Check for valid job id
205: --
206: open csr_valid_job_id;
206: open csr_valid_job_id;
207: fetch csr_valid_job_id into l_exists;
208: if csr_valid_job_id%notfound then
209: close csr_valid_job_id;
210: hr_utility.set_message(801,'HR_51090_JOB_NOT_EXIST');
211: hr_utility.raise_error;
212: else
213: hr_utility.set_location(l_proc, 3);
214: --
207: fetch csr_valid_job_id into l_exists;
208: if csr_valid_job_id%notfound then
209: close csr_valid_job_id;
210: hr_utility.set_message(801,'HR_51090_JOB_NOT_EXIST');
211: hr_utility.raise_error;
212: else
213: hr_utility.set_location(l_proc, 3);
214: --
215: -- Check p_date_effective between job date_from and date_to
209: close csr_valid_job_id;
210: hr_utility.set_message(801,'HR_51090_JOB_NOT_EXIST');
211: hr_utility.raise_error;
212: else
213: hr_utility.set_location(l_proc, 3);
214: --
215: -- Check p_date_effective between job date_from and date_to
216: --
217: close csr_valid_job_id;
218: open csr_valid_job_dates;
219: fetch csr_valid_job_dates into l_exists;
220: if csr_valid_job_dates%notfound then
221: close csr_valid_job_dates;
222: hr_utility.set_message(801,'HR_51358_POS_JOB_INVALID_DATE');
223: hr_utility.raise_error;
224: end if;
225: close csr_valid_job_dates;
226: end if;
219: fetch csr_valid_job_dates into l_exists;
220: if csr_valid_job_dates%notfound then
221: close csr_valid_job_dates;
222: hr_utility.set_message(801,'HR_51358_POS_JOB_INVALID_DATE');
223: hr_utility.raise_error;
224: end if;
225: close csr_valid_job_dates;
226: end if;
227: --
224: end if;
225: close csr_valid_job_dates;
226: end if;
227: --
228: hr_utility.set_location(' Leaving:'||l_proc, 4);
229: end chk_job_id;
230: --
231: --
232: -- ---------------------------------------------------------------------------
290: and p_date_effective between oru.date_from
291: and nvl(oru.date_to,hr_api.g_eot);
292: --
293: begin
294: hr_utility.set_location('Entering:'||l_proc, 1);
295: --
296: -- Check mandatory parameters have been set
297: --
298: hr_api.mandatory_arg_error
299: (p_api_name => l_proc
300: ,p_argument => 'organization_id'
301: ,p_argument_value => p_organization_id
302: );
303: hr_utility.set_location(l_proc, 2);
304: --
305: -- Check for valid organization id
306: --
307: open csr_valid_organization_id;
307: open csr_valid_organization_id;
308: fetch csr_valid_organization_id into l_exists;
309: if csr_valid_organization_id%notfound then
310: close csr_valid_organization_id;
311: hr_utility.set_message(801,'HR_51371_POS_ORG_NOT_EXIST');
312: hr_utility.raise_error;
313: else
314: hr_utility.set_location(l_proc, 3);
315: --
308: fetch csr_valid_organization_id into l_exists;
309: if csr_valid_organization_id%notfound then
310: close csr_valid_organization_id;
311: hr_utility.set_message(801,'HR_51371_POS_ORG_NOT_EXIST');
312: hr_utility.raise_error;
313: else
314: hr_utility.set_location(l_proc, 3);
315: --
316: -- Check p_date_effective between org date_from and date_to
310: close csr_valid_organization_id;
311: hr_utility.set_message(801,'HR_51371_POS_ORG_NOT_EXIST');
312: hr_utility.raise_error;
313: else
314: hr_utility.set_location(l_proc, 3);
315: --
316: -- Check p_date_effective between org date_from and date_to
317: --
318: close csr_valid_organization_id;
319: open csr_valid_organization_dates;
320: fetch csr_valid_organization_dates into l_exists;
321: if csr_valid_organization_dates%notfound then
322: close csr_valid_organization_dates;
323: hr_utility.set_message(801,'HR_51359_POS_ORG_INVAL_W_DATE');
324: hr_utility.raise_error;
325: end if;
326: close csr_valid_organization_dates;
327: end if;
320: fetch csr_valid_organization_dates into l_exists;
321: if csr_valid_organization_dates%notfound then
322: close csr_valid_organization_dates;
323: hr_utility.set_message(801,'HR_51359_POS_ORG_INVAL_W_DATE');
324: hr_utility.raise_error;
325: end if;
326: close csr_valid_organization_dates;
327: end if;
328: --
325: end if;
326: close csr_valid_organization_dates;
327: end if;
328: --
329: hr_utility.set_location(' Leaving:'||l_proc, 4);
330: end chk_organization_id;
331: --
332: -- ---------------------------------------------------------------------------
333: -- |--------------------< chk_successor_position_id >----------------------|
381: and pos.business_group_id + 0 = p_business_group_id
382: and nvl(pos.date_end,hr_api.g_eot) >= p_date_effective ;
383: --
384: begin
385: hr_utility.set_location('Entering:'||l_proc, 1);
386: --
387: -- Only proceed with validation if :
388: -- a) The current g_old_rec is current and
389: -- b) The successor_position_id value has changed
405: per_pos_shd.g_old_rec.successor_position_id <>
406: p_successor_position_id) or
407: (NOT l_api_updating)) then
408: --
409: hr_utility.set_location(l_proc, 2);
410: --
411: open csr_valid_successor_position;
412: fetch csr_valid_successor_position into l_exists;
413: if csr_valid_successor_position%notfound then
416: fnd_message.raise_error;
417: else
418: close csr_valid_successor_position;
419: if(l_api_updating and p_position_id = p_successor_position_id) then
420: hr_utility.set_message(801,'HR_51360_POS_SUCCESSOR_EQ_POS');
421: hr_utility.raise_error;
422: end if;
423: end if;
424: end if;
417: else
418: close csr_valid_successor_position;
419: if(l_api_updating and p_position_id = p_successor_position_id) then
420: hr_utility.set_message(801,'HR_51360_POS_SUCCESSOR_EQ_POS');
421: hr_utility.raise_error;
422: end if;
423: end if;
424: end if;
425: end if;
423: end if;
424: end if;
425: end if;
426: --
427: hr_utility.set_location(' Leaving:'||l_proc, 3);
428: end chk_successor_position_id;
429: --
430: -- ---------------------------------------------------------------------------
431: -- |--------------------< chk_relief_position_id >-------------------------|
478: and pos.business_group_id + 0 = p_business_group_id
479: and nvl(pos.date_end,hr_api.g_eot) >= p_date_effective ;
480: --
481: begin
482: hr_utility.set_location('Entering:'||l_proc, 1);
483: --
484: -- Only proceed with validation if :
485: -- a) The current g_old_rec is current and
486: -- b) The successor_position_id value has changed
502: per_pos_shd.g_old_rec.relief_position_id <>
503: p_relief_position_id) or
504: (NOT l_api_updating)) then
505: --
506: hr_utility.set_location(l_proc, 2);
507: --
508: open csr_valid_relief_position;
509: fetch csr_valid_relief_position into l_exists;
510: if csr_valid_relief_position%notfound then
513: fnd_message.raise_error;
514: else
515: close csr_valid_relief_position;
516: if(l_api_updating and p_position_id = p_relief_position_id) then
517: hr_utility.set_message(801,'HR_51361_POS_RELIEF_EQ_POS');
518: hr_utility.raise_error;
519: end if;
520: end if;
521: end if;
514: else
515: close csr_valid_relief_position;
516: if(l_api_updating and p_position_id = p_relief_position_id) then
517: hr_utility.set_message(801,'HR_51361_POS_RELIEF_EQ_POS');
518: hr_utility.raise_error;
519: end if;
520: end if;
521: end if;
522: end if;
520: end if;
521: end if;
522: end if;
523: --
524: hr_utility.set_location(' Leaving:'||l_proc, 3);
525: end chk_relief_position_id;
526: --
527: --
528: -- ---------------------------------------------------------------------------
583: and p_date_effective < nvl(loc.inactive_date,
584: hr_api.g_eot);
585: --
586: begin
587: hr_utility.set_location('Entering:'||l_proc, 1);
588: --
589: -- Only proceed with validation if :
590: -- a) The current g_old_rec is current and
591: -- b) The location_id value has changed
600: (NOT l_api_updating)) then
601: --
602: -- Validate that location id is valid for p_date_effective
603: --
604: hr_utility.set_location(l_proc, 4);
605: --
606: if p_location_id is not null then
607: open csr_valid_location;
608: fetch csr_valid_location into l_exists;
607: open csr_valid_location;
608: fetch csr_valid_location into l_exists;
609: if csr_valid_location%notfound then
610: close csr_valid_location;
611: hr_utility.set_message(801,'HR_51357_POS_LOC_NOT_EXIST');
612: hr_utility.raise_error;
613: end if;
614: close csr_valid_location;
615: end if;
608: fetch csr_valid_location into l_exists;
609: if csr_valid_location%notfound then
610: close csr_valid_location;
611: hr_utility.set_message(801,'HR_51357_POS_LOC_NOT_EXIST');
612: hr_utility.raise_error;
613: end if;
614: close csr_valid_location;
615: end if;
616: end if;
614: close csr_valid_location;
615: end if;
616: end if;
617: --
618: hr_utility.set_location(' Leaving:'||l_proc, 5);
619: end chk_location_id;
620: --
621: -- ---------------------------------------------------------------------------
622: -- |--------------------< chk_position_definition_id >---------------------|
657: from per_position_definitions
658: where position_definition_id = p_position_definition_id;
659: --
660: begin
661: hr_utility.set_location('Entering:'||l_proc, 1);
662: --
663: -- Check mandatory parameters have been set
664: --
665: hr_api.mandatory_arg_error
667: ,p_argument => 'position_definition_id'
668: ,p_argument_value => p_position_definition_id
669: );
670: --
671: hr_utility.set_location(l_proc, 2);
672: --
673: l_api_updating := per_pos_shd.api_updating
674: (p_position_id => p_position_id
675: ,p_object_version_number => p_object_version_number);
673: l_api_updating := per_pos_shd.api_updating
674: (p_position_id => p_position_id
675: ,p_object_version_number => p_object_version_number);
676: --
677: hr_utility.set_location(l_proc, 3);
678: --
679: if ((l_api_updating and
680: (per_pos_shd.g_old_rec.position_definition_id <>
681: p_position_definition_id)) or
680: (per_pos_shd.g_old_rec.position_definition_id <>
681: p_position_definition_id)) or
682: (NOT l_api_updating)) then
683: --
684: hr_utility.set_location(l_proc, 4);
685: --
686: open csr_pos_def;
687: fetch csr_pos_def into l_exists;
688: if csr_pos_def%notfound then
685: --
686: open csr_pos_def;
687: fetch csr_pos_def into l_exists;
688: if csr_pos_def%notfound then
689: hr_utility.set_message(801,'HR_51369_POS_DEF_NOT_EXIST');
690: hr_utility.raise_error;
691: end if;
692: close csr_pos_def;
693: --
686: open csr_pos_def;
687: fetch csr_pos_def into l_exists;
688: if csr_pos_def%notfound then
689: hr_utility.set_message(801,'HR_51369_POS_DEF_NOT_EXIST');
690: hr_utility.raise_error;
691: end if;
692: close csr_pos_def;
693: --
694: end if;
691: end if;
692: close csr_pos_def;
693: --
694: end if;
695: hr_utility.set_location('Leaving '||l_proc, 5);
696: --
697: end chk_position_definition_id;
698: --
699: -- ---------------------------------------------------------------------------
738: l_proc varchar2(72) := g_package||'chk_dates';
739: l_api_updating boolean;
740: --
741: begin
742: hr_utility.set_location('Entering:'||l_proc, 1);
743: --
744: -- Check mandatory parameters have been set
745: --
746: hr_api.mandatory_arg_error
747: (p_api_name => l_proc
748: ,p_argument => 'date_effective'
749: ,p_argument_value => p_date_effective
750: );
751: hr_utility.set_location(l_proc, 2);
752: --
753: -- Only proceed with validation if :
754: -- a) The current g_old_rec is current and
755: -- b) The date_end value has changed
764: (NOT l_api_updating))) then
765: --
766: -- Check that date_effective <= date_end
767: --
768: hr_utility.set_location(l_proc, 3);
769: --
770: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
771: hr_utility.set_message(801,'HR_51362_POS_INVAL_EFF_DATE');
772: hr_utility.raise_error;
767: --
768: hr_utility.set_location(l_proc, 3);
769: --
770: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
771: hr_utility.set_message(801,'HR_51362_POS_INVAL_EFF_DATE');
772: hr_utility.raise_error;
773: end if;
774: --
775: end if;
768: hr_utility.set_location(l_proc, 3);
769: --
770: if p_date_effective > nvl(p_date_end,hr_api.g_eot) then
771: hr_utility.set_message(801,'HR_51362_POS_INVAL_EFF_DATE');
772: hr_utility.raise_error;
773: end if;
774: --
775: end if;
776: --
773: end if;
774: --
775: end if;
776: --
777: hr_utility.set_location(' Leaving:'||l_proc, 4);
778: end chk_dates;
779: --
780: -- ---------------------------------------------------------------------------
781: -- |-------------------------< chk_hrs_frequency >-------------------------|
843: and enabled_flag = 'Y';
844: --
845: --
846: begin
847: hr_utility.set_location('Entering:'||l_proc, 1);
848: --
849: -- Only proceed with validation if :
850: -- a) The current g_old_rec is current and
851: -- b) The working hours value has changed or
864: (NOT l_api_updating)) then
865: --
866: -- Check for values consistency
867: --
868: hr_utility.set_location(l_proc, 5);
869: --
870: if ((p_working_hours is null and p_frequency is not null) or
871: (p_working_hours is not null and p_frequency is null)) then
872: fnd_message.set_name('PER','PER_52981_POS_WORK_FREQ_NULL');
874: end if;
875: --
876: -- Check for valid frequency against fnd_common_lookups
877: --
878: hr_utility.set_location(l_proc, 6);
879: --
880: if p_frequency is not null then
881:
882: open csr_valid_freq;
881:
882: open csr_valid_freq;
883: fetch csr_valid_freq into l_exists;
884: if csr_valid_freq%notfound then
885: hr_utility.set_message(801,'HR_51363_POS_INVAL_FREQUENCY');
886: hr_utility.raise_error;
887: end if;
888: --
889: -- Validate combinations of working_hours and frequency
882: open csr_valid_freq;
883: fetch csr_valid_freq into l_exists;
884: if csr_valid_freq%notfound then
885: hr_utility.set_message(801,'HR_51363_POS_INVAL_FREQUENCY');
886: hr_utility.raise_error;
887: end if;
888: --
889: -- Validate combinations of working_hours and frequency
890: --
887: end if;
888: --
889: -- Validate combinations of working_hours and frequency
890: --
891: hr_utility.set_location(l_proc, 7);
892: --
893: if ((p_working_hours > 24 AND p_frequency = 'D') or
894: ((p_working_hours > 168)
895: and (p_frequency = 'W')) or
896: ((p_working_hours > 744)
897: and (p_frequency = 'M')) or
898: ((p_working_hours > 8784)
899: and (p_frequency = 'Y'))) then
900: hr_utility.set_message(800,'HR_POS_2_MANY_HOURS');
901: hr_utility.raise_error;
902: end if;
903: --
904: end if;
897: and (p_frequency = 'M')) or
898: ((p_working_hours > 8784)
899: and (p_frequency = 'Y'))) then
900: hr_utility.set_message(800,'HR_POS_2_MANY_HOURS');
901: hr_utility.raise_error;
902: end if;
903: --
904: end if;
905: --
903: --
904: end if;
905: --
906: end if;
907: hr_utility.set_location(' Leaving:'||l_proc, 8);
908: end chk_hrs_frequency;
909: --
910: -- ---------------------------------------------------------------------------
911: -- |---------------------< chk_probation_info >---------------------------|
958: where lookup_type = 'QUALIFYING_UNITS'
959: and lookup_code = p_probation_period_units;
960: --
961: begin
962: hr_utility.set_location('Entering:'||l_proc, 1);
963: --
964: -- Only proceed with validation if :
965: -- a) The current g_old_rec is current and
966: -- b) The probation_period value has changed
978: (NOT l_api_updating)) then
979: --
980: -- Check for values consistency
981: --
982: hr_utility.set_location(l_proc, 2);
983: --
984: if (p_probation_period is null and
985: p_probation_period_units is not null) or
986: (p_probation_period is not null and
984: if (p_probation_period is null and
985: p_probation_period_units is not null) or
986: (p_probation_period is not null and
987: p_probation_period_units is null) then
988: hr_utility.set_message(801,'HR_51365_POS_PROB_UNITS_REQ');
989: hr_utility.raise_error;
990: else
991: --
992: -- Validate probation_period_units against fnd_common_lookups
985: p_probation_period_units is not null) or
986: (p_probation_period is not null and
987: p_probation_period_units is null) then
988: hr_utility.set_message(801,'HR_51365_POS_PROB_UNITS_REQ');
989: hr_utility.raise_error;
990: else
991: --
992: -- Validate probation_period_units against fnd_common_lookups
993: --
990: else
991: --
992: -- Validate probation_period_units against fnd_common_lookups
993: --
994: hr_utility.set_location(l_proc, 3);
995: --
996: if p_probation_period is not null
997: and p_probation_period_units is not null then
998: open csr_valid_unit;
997: and p_probation_period_units is not null then
998: open csr_valid_unit;
999: fetch csr_valid_unit into l_exists;
1000: if csr_valid_unit%notfound then
1001: hr_utility.set_message(801,'HR_51366_POS_PROB_UNITS_INV');
1002: hr_utility.raise_error;
1003: end if;
1004: end if;
1005: end if;
998: open csr_valid_unit;
999: fetch csr_valid_unit into l_exists;
1000: if csr_valid_unit%notfound then
1001: hr_utility.set_message(801,'HR_51366_POS_PROB_UNITS_INV');
1002: hr_utility.raise_error;
1003: end if;
1004: end if;
1005: end if;
1006: end if;
1004: end if;
1005: end if;
1006: end if;
1007: --
1008: hr_utility.set_location(' Leaving:'||l_proc, 4);
1009: end chk_probation_info;
1010: --
1011: -- ---------------------------------------------------------------------------
1012: -- |--------------< chk_replacement_required_flag >-------------------------|
1055: where lookup_type = 'YES_NO'
1056: and lookup_code = p_replacement_required_flag;
1057: --
1058: begin
1059: hr_utility.set_location('Entering:'||l_proc, 1);
1060: --
1061: -- Only proceed with validation if :
1062: -- a) The current g_old_rec is current and
1063: -- b) The replacement_required_flag value has changed
1073: (NOT l_api_updating)) then
1074: --
1075: -- Validate flag replacement_required_flag against fnd_common_lookups
1076: --
1077: hr_utility.set_location(l_proc, 3);
1078: --
1079: open csr_valid_flag;
1080: fetch csr_valid_flag into l_exists;
1081: if csr_valid_flag%notfound then
1078: --
1079: open csr_valid_flag;
1080: fetch csr_valid_flag into l_exists;
1081: if csr_valid_flag%notfound then
1082: hr_utility.set_message(801,'HR_51370_POS_REPL_REQ_FLAG');
1083: hr_utility.raise_error;
1084: end if;
1085: --
1086: end if;
1079: open csr_valid_flag;
1080: fetch csr_valid_flag into l_exists;
1081: if csr_valid_flag%notfound then
1082: hr_utility.set_message(801,'HR_51370_POS_REPL_REQ_FLAG');
1083: hr_utility.raise_error;
1084: end if;
1085: --
1086: end if;
1087: end if;
1085: --
1086: end if;
1087: end if;
1088: --
1089: hr_utility.set_location(' Leaving:'||l_proc, 4);
1090: end chk_replacement_flag;
1091: --
1092: --
1093: -- ---------------------------------------------------------------------------
1139: l_time_normal_finish varchar2(5);
1140: l_api_updating boolean;
1141: --
1142: begin
1143: hr_utility.set_location('Entering:'||l_proc, 1);
1144: --
1145: -- Only proceed with validation if :
1146: -- a) The current g_old_rec is current and
1147: -- b) The time_normal_start value has changed
1159: (NOT l_api_updating)) then
1160: --
1161: -- Check for values consistency
1162: --
1163: hr_utility.set_location(l_proc, 4);
1164: --
1165: if (p_time_normal_start is not null and p_time_normal_finish is null) or
1166: (p_time_normal_start is null and p_time_normal_finish is not null) then
1167: hr_utility.set_message(801,'HR_51367_POS_TIMES_REQ');
1163: hr_utility.set_location(l_proc, 4);
1164: --
1165: if (p_time_normal_start is not null and p_time_normal_finish is null) or
1166: (p_time_normal_start is null and p_time_normal_finish is not null) then
1167: hr_utility.set_message(801,'HR_51367_POS_TIMES_REQ');
1168: hr_utility.raise_error;
1169: --
1170: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
1171: and substr(p_time_normal_start,4,2) between '00' and '59'
1164: --
1165: if (p_time_normal_start is not null and p_time_normal_finish is null) or
1166: (p_time_normal_start is null and p_time_normal_finish is not null) then
1167: hr_utility.set_message(801,'HR_51367_POS_TIMES_REQ');
1168: hr_utility.raise_error;
1169: --
1170: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
1171: and substr(p_time_normal_start,4,2) between '00' and '59'
1172: and substr(p_time_normal_start,3,1) = ':') then
1169: --
1170: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
1171: and substr(p_time_normal_start,4,2) between '00' and '59'
1172: and substr(p_time_normal_start,3,1) = ':') then
1173: hr_utility.set_message(801,'HR_51154_INVAL_TIME_FORMAT');
1174: hr_utility.raise_error;
1175: --
1176: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
1177: and substr(p_time_normal_finish,4,2) between '00' and '59'
1170: elsif not (substr(p_time_normal_start,1,2) between '00' and '24'
1171: and substr(p_time_normal_start,4,2) between '00' and '59'
1172: and substr(p_time_normal_start,3,1) = ':') then
1173: hr_utility.set_message(801,'HR_51154_INVAL_TIME_FORMAT');
1174: hr_utility.raise_error;
1175: --
1176: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
1177: and substr(p_time_normal_finish,4,2) between '00' and '59'
1178: and substr(p_time_normal_finish,3,1) = ':') then
1175: --
1176: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
1177: and substr(p_time_normal_finish,4,2) between '00' and '59'
1178: and substr(p_time_normal_finish,3,1) = ':') then
1179: hr_utility.set_message(801,'HR_51154_INVAL_TIME_FORMAT');
1180: hr_utility.raise_error;
1181: end if;
1182: --
1183: -- Check that time_normal_start <= time_normal_finish
1176: elsif not (substr(p_time_normal_finish,1,2) between '00' and '24'
1177: and substr(p_time_normal_finish,4,2) between '00' and '59'
1178: and substr(p_time_normal_finish,3,1) = ':') then
1179: hr_utility.set_message(801,'HR_51154_INVAL_TIME_FORMAT');
1180: hr_utility.raise_error;
1181: end if;
1182: --
1183: -- Check that time_normal_start <= time_normal_finish
1184: --
1181: end if;
1182: --
1183: -- Check that time_normal_start <= time_normal_finish
1184: --
1185: hr_utility.set_location(l_proc, 5);
1186: --
1187: /*
1188: if p_time_normal_finish < p_time_normal_start then
1189: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
1185: hr_utility.set_location(l_proc, 5);
1186: --
1187: /*
1188: if p_time_normal_finish < p_time_normal_start then
1189: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
1190: hr_utility.raise_error;
1191: end if;
1192: */
1193: --
1186: --
1187: /*
1188: if p_time_normal_finish < p_time_normal_start then
1189: hr_utility.set_message(801,'HR_51368_POS_FIN_GT_START');
1190: hr_utility.raise_error;
1191: end if;
1192: */
1193: --
1194: end if;
1192: */
1193: --
1194: end if;
1195: --
1196: hr_utility.set_location(' Leaving:'||l_proc, 6);
1197: end chk_time_start_finish;
1198: --
1199: -- ---------------------------------------------------------------------------
1200: -- |-------------------------< chk_status >--------------------------------|
1240: l_status varchar2(30);
1241: l_api_updating boolean;
1242: --
1243: begin
1244: hr_utility.set_location('Entering:'||l_proc, 1);
1245: --
1246: -- Only proceed with validation if :
1247: -- a) The current g_old_rec is current and
1248: -- b) The status value has changed or
1258: (NOT l_api_updating)) then
1259: --
1260: -- Check for valid status against fnd_common_lookups
1261: --
1262: hr_utility.set_location(l_proc, 2);
1263: --
1264: if p_status is not null and
1265: hr_api.not_exists_in_hr_lookups
1266: (p_effective_date => p_date_effective
1267: ,p_lookup_type => 'POSITION_STATUS'
1268: ,p_lookup_code => p_status
1269: )
1270: then
1271: hr_utility.set_message(801,'PER_51870_POS_STATUS_INV');
1272: hr_utility.raise_error;
1273: end if;
1274: --
1275: end if;
1268: ,p_lookup_code => p_status
1269: )
1270: then
1271: hr_utility.set_message(801,'PER_51870_POS_STATUS_INV');
1272: hr_utility.raise_error;
1273: end if;
1274: --
1275: end if;
1276: --
1273: end if;
1274: --
1275: end if;
1276: --
1277: hr_utility.set_location(' Leaving:'||l_proc, 3);
1278: end chk_status;
1279: -- -----------------------------------------------------------------------
1280: -- |------------------------------< chk_df >-----------------------------|
1281: -- -----------------------------------------------------------------------
1308: --
1309: l_proc varchar2(72) := g_package||'chk_df';
1310: --
1311: begin
1312: hr_utility.set_location('Entering:'||l_proc, 10);
1313: --
1314: if ((p_rec.position_id is not null) and (
1315: nvl(per_pos_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
1316: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
1408: ,p_attribute20_value => p_rec.attribute20
1409: );
1410: end if;
1411: --
1412: hr_utility.set_location(' Leaving:'||l_proc, 20);
1413: end chk_df;
1414: --
1415: --
1416: -- ----------------------------------------------------------------------------
1475: --
1476: begin
1477: --if g_debug then
1478: l_proc := g_package||'chk_ccid_unique_for_BG';
1479: hr_utility.set_location('Entering:'||l_proc, 10);
1480: --end if;
1481: --
1482: -- Check mandatory parameters have been set
1483: --
1486: ,p_argument => 'business_group_id'
1487: ,p_argument_value => p_business_group_id
1488: );
1489: --if g_debug then
1490: hr_utility.set_location(l_proc, 20);
1491: --end if;
1492: --
1493: hr_api.mandatory_arg_error
1494: (p_api_name => l_proc
1495: ,p_argument => 'position_definition_id'
1496: ,p_argument_value => p_position_definition_id
1497: );
1498: --if g_debug then
1499: hr_utility.set_location(l_proc, 30);
1500: --end if;
1501: --
1502: l_api_updating := per_pos_shd.api_updating
1503: (p_position_id => p_position_id
1503: (p_position_id => p_position_id
1504: ,p_object_version_number => p_object_version_number
1505: );
1506: --if g_debug then
1507: hr_utility.set_location(l_proc, 70);
1508: --end if;
1509: --
1510: if (l_api_updating and
1511: (nvl(per_pos_shd.g_old_rec.position_definition_id, hr_api.g_number)
1513: )
1514: or NOT l_api_updating
1515: then
1516: --if g_debug then
1517: hr_utility.set_location(l_proc, 80);
1518: --end if;
1519: --
1520: -- Check for unique ccid
1521: --
1522: open csr_ccid_unique;
1523: fetch csr_ccid_unique into l_exists;
1524: if csr_ccid_unique%found then
1525: close csr_ccid_unique;
1526: hr_utility.set_message(801,'PAY_7688_USER_POS_TAB_UNIQUE');
1527: hr_utility.raise_error;
1528: else
1529: close csr_ccid_unique;
1530: --if g_debug then
1523: fetch csr_ccid_unique into l_exists;
1524: if csr_ccid_unique%found then
1525: close csr_ccid_unique;
1526: hr_utility.set_message(801,'PAY_7688_USER_POS_TAB_UNIQUE');
1527: hr_utility.raise_error;
1528: else
1529: close csr_ccid_unique;
1530: --if g_debug then
1531: hr_utility.set_location(l_proc, 90);
1527: hr_utility.raise_error;
1528: else
1529: close csr_ccid_unique;
1530: --if g_debug then
1531: hr_utility.set_location(l_proc, 90);
1532: --end if;
1533: end if;
1534: --
1535: end if;
1534: --
1535: end if;
1536: --
1537: --if g_debug then
1538: hr_utility.set_location(' Leaving:'||l_proc, 100);
1539: --end if;
1540: --
1541: end chk_ccid_unique_for_BG;
1542: --
1588: and posn.business_group_id = p_business_group_id;
1589: --
1590: --
1591: Begin
1592: hr_utility.set_location('Entering:'||l_proc, 1);
1593: --
1594: -- Check mandatory parameters have been set
1595: --
1596: hr_api.mandatory_arg_error
1597: (p_api_name => l_proc
1598: ,p_argument => 'business_group_id'
1599: ,p_argument_value => p_business_group_id
1600: );
1601: hr_utility.set_location(l_proc, 2);
1602: --
1603: hr_api.mandatory_arg_error
1604: (p_api_name => l_proc
1605: ,p_argument => 'name'
1604: (p_api_name => l_proc
1605: ,p_argument => 'name'
1606: ,p_argument_value => p_name
1607: );
1608: hr_utility.set_location(l_proc, 3);
1609: --
1610: -- Check for unique name
1611: --
1612: -- Added If statement to ensure an selective open of cursor
1621: open csr_name_unique;
1622: fetch csr_name_unique into l_exists;
1623: if csr_name_unique%found then
1624: close csr_name_unique;
1625: hr_utility.set_message(801,'PAY_7688_USER_POS_TAB_UNIQUE');
1626: hr_utility.raise_error;
1627: else
1628: close csr_name_unique;
1629: end if;
1622: fetch csr_name_unique into l_exists;
1623: if csr_name_unique%found then
1624: close csr_name_unique;
1625: hr_utility.set_message(801,'PAY_7688_USER_POS_TAB_UNIQUE');
1626: hr_utility.raise_error;
1627: else
1628: close csr_name_unique;
1629: end if;
1630:
1629: end if;
1630:
1631: END IF;
1632: --
1633: hr_utility.set_location(' Leaving:'||l_proc, 4);
1634: end chk_name_unique_for_BG;
1635: --
1636: -- ----------------------------------------------------------------------------
1637: -- |---------------------------< insert_validate >----------------------------|
1640: --
1641: l_proc varchar2(72) := g_package||'insert_validate';
1642: --
1643: Begin
1644: hr_utility.set_location('Entering:'||l_proc, 5);
1645: --
1646: -- Call all supporting business operations
1647: --
1648: -- Validate Business Group
1648: -- Validate Business Group
1649: --
1650: hr_api.validate_bus_grp_id(p_rec.business_group_id);
1651: --
1652: hr_utility.set_location(l_proc, 6);
1653: --
1654: --
1655: -- Validate date effective and date_end
1656: --
1665: p_date_effective => p_rec.date_effective,
1666: p_business_group_id => p_rec.business_group_id
1667: );
1668: --
1669: hr_utility.set_location(l_proc, 7);
1670: --
1671: -- Validate organization id
1672: --
1673: chk_organization_id
1675: p_date_effective => p_rec.date_effective,
1676: p_business_group_id => p_rec.business_group_id
1677: );
1678: --
1679: hr_utility.set_location(l_proc, 8);
1680: --
1681: -- Validate successor position id
1682: --
1683: chk_successor_position_id
1685: p_successor_position_id => p_rec.successor_position_id,
1686: p_date_effective => p_rec.date_effective
1687: );
1688: --
1689: hr_utility.set_location(l_proc, 9);
1690: --
1691: -- Validate relief position id
1692: --
1693: chk_relief_position_id
1695: p_relief_position_id => p_rec.relief_position_id,
1696: p_date_effective => p_rec.date_effective
1697: );
1698: --
1699: hr_utility.set_location(l_proc, 10);
1700: --
1701: -- Validate location_id
1702: --
1703: chk_location_id
1704: (p_location_id => p_rec.location_id,
1705: p_date_effective => p_rec.date_effective
1706: );
1707: --
1708: hr_utility.set_location(l_proc, 10);
1709: --
1710: -- Validate position definition id
1711: --
1712: chk_position_definition_id
1712: chk_position_definition_id
1713: (p_position_definition_id => p_rec.position_definition_id
1714: );
1715: --
1716: hr_utility.set_location(l_proc, 11);
1717: --
1718: -- Validate working_hours and frequency
1719: --
1720: chk_hrs_frequency
1721: (p_working_hours => p_rec.working_hours,
1722: p_frequency => p_rec.frequency
1723: );
1724: --
1725: hr_utility.set_location(l_proc, 15);
1726: --
1727: -- Validate probation period and probation_period_units
1728: --
1729: chk_probation_info
1730: (p_probation_period => p_rec.probation_period,
1731: p_probation_period_units => p_rec.probation_period_units
1732: );
1733: --
1734: hr_utility.set_location(l_proc, 16);
1735: --
1736: -- Validate time normal start and time_normal_finish
1737: --
1738: chk_time_start_finish
1754: );
1755: -- Moved the next 11 lines to be before chk_df call
1756: -- Bug 892165
1757: --
1758: hr_utility.set_location(l_proc, 18);
1759: --
1760: -- PMFLETCH ** Not using this uniqueness check anymore **
1761: -- Check position_name is unique for Business_group
1762: --
1775: ,p_object_version_number => p_rec.object_version_number
1776: );
1777: --
1778: --
1779: hr_utility.set_location(l_proc, 19);
1780: --
1781: --
1782: -- Call descriptive flexfield validation routines
1783: --
1782: -- Call descriptive flexfield validation routines
1783: --
1784: -- per_pos_bus.chk_df(p_rec => p_rec);
1785: --
1786: hr_utility.set_location(' Leaving:'||l_proc, 20);
1787: --
1788: End insert_validate;
1789:
1790: -- ----------------------------------------------------------------------------
1794: --
1795: l_proc varchar2(72) := g_package||'update_validate';
1796: --
1797: Begin
1798: hr_utility.set_location('Entering:'||l_proc, 5);
1799: -- Bug 892165
1800: -- Validate Business Group
1801: --
1802: hr_api.validate_bus_grp_id(p_rec.business_group_id);
1802: hr_api.validate_bus_grp_id(p_rec.business_group_id);
1803: --
1804: -- Call to chk_non_updateable_args - Bug 892165
1805: --
1806: hr_utility.set_location(l_proc, 6);
1807: chk_non_updateable_args(p_rec => p_rec);
1808: --
1809: -- Call all supporting business operations
1810: --
1825: p_date_effective => p_rec.date_effective,
1826: p_object_version_number => p_rec.object_version_number
1827: );
1828: --
1829: hr_utility.set_location(l_proc, 9);
1830: --
1831: -- Validate relief position id
1832: --
1833: chk_relief_position_id
1837: p_date_effective => p_rec.date_effective,
1838: p_object_version_number => p_rec.object_version_number
1839: );
1840: --
1841: hr_utility.set_location(l_proc, 10);
1842: --
1843: -- Validate location_id
1844: --
1845: chk_location_id
1848: p_date_effective => p_rec.date_effective,
1849: p_object_version_number => p_rec.object_version_number
1850: );
1851: --
1852: hr_utility.set_location(l_proc, 12);
1853: --
1854: -- Validate working_hours and frequency
1855: --
1856: chk_hrs_frequency
1859: p_frequency => p_rec.frequency,
1860: p_object_version_number => p_rec.object_version_number
1861: );
1862: --
1863: hr_utility.set_location(l_proc, 15);
1864: --
1865: -- Validate probation period and probation_period_units
1866: --
1867: chk_probation_info
1870: p_probation_period_units => p_rec.probation_period_units,
1871: p_object_version_number => p_rec.object_version_number
1872: );
1873: --
1874: hr_utility.set_location(l_proc, 16);
1875: --
1876: -- Validate time normal start and time_normal_finish
1877: --
1878: chk_time_start_finish
1903: p_date_effective => p_rec.date_effective,
1904: p_status => p_rec.status,
1905: p_object_version_number => p_rec.object_version_number
1906: );
1907: hr_utility.set_location(l_proc, 17);
1908: -- Moved this call to be before chk_df
1909: -- Bug 892165
1910: --
1911: -- PMFLETCH ** Not using this uniqueness check anymore **
1930: -- Call descriptive flexfield validation routines
1931: --
1932: --per_pos_bus.chk_df(p_rec => p_rec);
1933: --
1934: hr_utility.set_location(' Leaving:'||l_proc, 18);
1935: End update_validate;
1936: --
1937: -- ----------------------------------------------------------------------------
1938: -- |---------------------------< delete_validate >----------------------------|
1941: --
1942: l_proc varchar2(72) := g_package||'delete_validate';
1943: --
1944: Begin
1945: hr_utility.set_location('Entering:'||l_proc, 5);
1946: --
1947: -- Call all supporting business operations
1948: --
1949: hr_utility.set_location(' Leaving:'||l_proc, 10);
1945: hr_utility.set_location('Entering:'||l_proc, 5);
1946: --
1947: -- Call all supporting business operations
1948: --
1949: hr_utility.set_location(' Leaving:'||l_proc, 10);
1950: End delete_validate;
1951: --
1952: --
1953: -- ---------------------------------------------------------------------------
1971: --
1972: l_legislation_code varchar2(150);
1973: l_proc varchar2(72) := g_package||'return_legislation_code';
1974: begin
1975: hr_utility.set_location('Entering:'|| l_proc, 10);
1976: --
1977: -- Ensure that all the mandatory parameter are not null
1978: --
1979: hr_api.mandatory_arg_error(p_api_name => l_proc,
1986: close csr_leg_code;
1987: --
1988: -- The primary key is invalid therefore we must error
1989: --
1990: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1991: hr_utility.raise_error;
1992: end if;
1993: --
1994: close csr_leg_code;
1987: --
1988: -- The primary key is invalid therefore we must error
1989: --
1990: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1991: hr_utility.raise_error;
1992: end if;
1993: --
1994: close csr_leg_code;
1995: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1991: hr_utility.raise_error;
1992: end if;
1993: --
1994: close csr_leg_code;
1995: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1996: --
1997: return l_legislation_code;
1998: end return_legislation_code;
1999: --