[Home] [Help]
62: and nvl(noa.end_date_active,l_effective_date)
63: and noa.enabled_flag = 'Y';
64:
65: begin
66: hr_utility.set_location('Entering:'|| l_proc, 10);
67:
68: --check mandatory arguments have been set
69: hr_api.mandatory_arg_error
70: (p_api_name => l_proc,
71: p_argument => 'noa_family_code',
72: p_argument_value => p_noa_family_code
73: );
74:
75: hr_utility.set_location(l_proc, 20);
76: --
77: -- Only proceed with validation if:
78: -- a) The current g_old_rec is current and
79: -- b) The nature_of_action_id has changed
82: l_api_updating := ghr_par_shd.api_updating
83: (p_pa_request_id => p_pa_request_id
84: ,p_object_version_number => p_object_version_number
85: );
86: hr_utility.set_location(l_proc, 30);
87: --
88: if ((l_api_updating
89: and nvl(ghr_par_shd.g_old_rec.first_noa_id, hr_api.g_number)
90: <> nvl(p_first_nature_of_action_id,hr_api.g_number))
90: <> nvl(p_first_nature_of_action_id,hr_api.g_number))
91: or
92: (NOT l_api_updating))
93: then
94: hr_utility.set_location(l_proc, 40);
95: --
96: -- Check if first_nature_of_action_id is valid
97: --
98: If p_first_nature_of_action_id is not null then
102: end loop;
103:
104: -- to include logic to check if not valid as of the effective date
105: if not l_exists then
106: hr_utility.set_message(8301, 'GHR_38167_INV_NAT_OF_ACT_FAM');
107: hr_utility.raise_error;
108: end if;
109: end if;
110: end if;
103:
104: -- to include logic to check if not valid as of the effective date
105: if not l_exists then
106: hr_utility.set_message(8301, 'GHR_38167_INV_NAT_OF_ACT_FAM');
107: hr_utility.raise_error;
108: end if;
109: end if;
110: end if;
111: --
108: end if;
109: end if;
110: end if;
111: --
112: hr_utility.set_location(' Leaving:'||l_proc, 20);
113: --
114: end chk_nature_of_action_id;
115: --
116:
145: -- and nvl(noa.end_date_active,l_effective_date)
146: -- and noa.enabled_flag = 'Y';
147:
148: begin
149: hr_utility.set_location('Entering:'|| l_proc, 10);
150:
151: /*--check mandatory arguments have been set
152: hr_api.mandatory_arg_error
153: (p_api_name => l_proc,
155: p_argument_value => p_noa_family_code
156: );
157: */
158:
159: hr_utility.set_location(l_proc, 20);
160: --
161: -- Only proceed with validation if:
162: -- a) The current g_old_rec is current and
163: -- b) The nature_of_action_id has changed
166: l_api_updating := ghr_par_shd.api_updating
167: (p_pa_request_id => p_pa_request_id
168: ,p_object_version_number => p_object_version_number
169: );
170: hr_utility.set_location(l_proc, 30);
171: --
172: if ((l_api_updating
173: and nvl(ghr_par_shd.g_old_rec.second_noa_id, hr_api.g_number)
174: <> nvl(p_second_nature_of_action_id,hr_api.g_number))
174: <> nvl(p_second_nature_of_action_id,hr_api.g_number))
175: or
176: (NOT l_api_updating))
177: then
178: hr_utility.set_location(l_proc, 40);
179: --
180: -- Check if second_nature_of_action_id is valid
181: --
182: If p_second_nature_of_action_id is not null then
180: -- Check if second_nature_of_action_id is valid
181: --
182: If p_second_nature_of_action_id is not null then
183: If p_first_nature_of_action_id is null then
184: hr_utility.set_message(8301,'GHR_38273_FIRST_NOA_MUST');
185: hr_utility.raise_error;
186: Else
187: If p_first_noa_code not in ('001','002') then
188: for noa_id in cur_sec_noa_id loop
181: --
182: If p_second_nature_of_action_id is not null then
183: If p_first_nature_of_action_id is null then
184: hr_utility.set_message(8301,'GHR_38273_FIRST_NOA_MUST');
185: hr_utility.raise_error;
186: Else
187: If p_first_noa_code not in ('001','002') then
188: for noa_id in cur_sec_noa_id loop
189: l_exists := true;
190: exit;
191: end loop;
192:
193: if not l_exists then
194: hr_utility.set_message(8301, 'GHR_38274_INVALID_DUAL_NOA');
195: hr_utility.raise_error;
196: end if;
197: End if;
198: End if;
191: end loop;
192:
193: if not l_exists then
194: hr_utility.set_message(8301, 'GHR_38274_INVALID_DUAL_NOA');
195: hr_utility.raise_error;
196: end if;
197: End if;
198: End if;
199: end if;
198: End if;
199: end if;
200: end if;
201: --
202: hr_utility.set_location(' Leaving:'||l_proc, 20);
203: --
204: end chk_second_nature_of_action_id;
205:
206:
249: AND nvl(p_effective_date,sysdate)
250: BETWEEN per.effective_start_date and per.effective_end_date;
251: --
252: begin
253: hr_utility.set_location('Entering:'||l_proc, 10);
254: --
255: --Check if the person exists
256: --
257: for cur_person_id in cur_per_id loop
254: --
255: --Check if the person exists
256: --
257: for cur_person_id in cur_per_id loop
258: hr_utility.set_location(l_proc, 20);
259: l_exists := true;
260: exit;
261: end loop;
262: If l_exists then
265: for csr_person_id_rec in cur_per_dt_id loop
266: l_exists := true;
267: exit;
268: end loop;
269: hr_utility.set_location(l_proc, 50);
270: if not l_exists then
271: return('INV_PER_DT');
272: end if;
273: else
274: return('INV_PER');
275: end if;
276: return('X');
277: --
278: hr_utility.set_location(' Leaving:'||l_proc, 60);
279: --
280: end chk_valid_person_id;
281: --
282: -- ---------------------------------------------------------------------------
320: l_proc varchar2(72) := g_package ||'chk_additional_info_person_id';
321: l_api_updating boolean;
322: --
323: begin
324: hr_utility.set_location('Entering:'|| l_proc, 10);
325: --
326: hr_utility.set_location(l_proc, 20);
327: --
328: -- Only proceed with validation if:
322: --
323: begin
324: hr_utility.set_location('Entering:'|| l_proc, 10);
325: --
326: hr_utility.set_location(l_proc, 20);
327: --
328: -- Only proceed with validation if:
329: -- a) The current g_old_rec is current and
330: -- b) The additional_info_person_id value has changed
333: l_api_updating := ghr_par_shd.api_updating
334: (p_pa_request_id => p_pa_request_id
335: ,p_object_version_number => p_object_version_number
336: );
337: hr_utility.set_location(l_proc, 30);
338: --
339: if ((l_api_updating
340: and nvl(ghr_par_shd.g_old_rec.additional_info_person_id, hr_api.g_number)
341: <> nvl(p_additional_info_person_id,hr_api.g_number))
341: <> nvl(p_additional_info_person_id,hr_api.g_number))
342: or
343: (NOT l_api_updating))
344: then
345: hr_utility.set_location(l_proc, 40);
346: --
347: -- Check if additional_info_person_id is valid
348: --
349: If p_additional_info_person_id is not null then
349: If p_additional_info_person_id is not null then
350: --
351: l_exists := chk_valid_person_id(p_additional_info_person_id,p_effective_date);
352: if nvl(l_exists,'x') = 'INV_PER_DT' then
353: hr_utility.set_message(8301, 'GHR_38061_INV_ADD_INFO_PER_DT');
354: hr_utility.raise_error;
355: elsif nvl(l_exists,'x') = 'INV_PER' then
356: hr_utility.set_message(8301, 'GHR_38062_INV_ADD_INFO_PERSON');
357: hr_utility.raise_error;
350: --
351: l_exists := chk_valid_person_id(p_additional_info_person_id,p_effective_date);
352: if nvl(l_exists,'x') = 'INV_PER_DT' then
353: hr_utility.set_message(8301, 'GHR_38061_INV_ADD_INFO_PER_DT');
354: hr_utility.raise_error;
355: elsif nvl(l_exists,'x') = 'INV_PER' then
356: hr_utility.set_message(8301, 'GHR_38062_INV_ADD_INFO_PERSON');
357: hr_utility.raise_error;
358: end if;
352: if nvl(l_exists,'x') = 'INV_PER_DT' then
353: hr_utility.set_message(8301, 'GHR_38061_INV_ADD_INFO_PER_DT');
354: hr_utility.raise_error;
355: elsif nvl(l_exists,'x') = 'INV_PER' then
356: hr_utility.set_message(8301, 'GHR_38062_INV_ADD_INFO_PERSON');
357: hr_utility.raise_error;
358: end if;
359: end if;
360: hr_utility.set_location(l_proc, 50);
353: hr_utility.set_message(8301, 'GHR_38061_INV_ADD_INFO_PER_DT');
354: hr_utility.raise_error;
355: elsif nvl(l_exists,'x') = 'INV_PER' then
356: hr_utility.set_message(8301, 'GHR_38062_INV_ADD_INFO_PERSON');
357: hr_utility.raise_error;
358: end if;
359: end if;
360: hr_utility.set_location(l_proc, 50);
361: --
356: hr_utility.set_message(8301, 'GHR_38062_INV_ADD_INFO_PERSON');
357: hr_utility.raise_error;
358: end if;
359: end if;
360: hr_utility.set_location(l_proc, 50);
361: --
362: end if;
363: hr_utility.set_location(l_proc, 60);
364: --
359: end if;
360: hr_utility.set_location(l_proc, 50);
361: --
362: end if;
363: hr_utility.set_location(l_proc, 60);
364: --
365: hr_utility.set_location(' Leaving:'|| l_proc, 70);
366: end chk_additional_info_person_id;
367:
361: --
362: end if;
363: hr_utility.set_location(l_proc, 60);
364: --
365: hr_utility.set_location(' Leaving:'|| l_proc, 70);
366: end chk_additional_info_person_id;
367:
368:
369:
408: l_proc varchar2(72) := g_package ||'chk_requested_by_person_id';
409: l_api_updating boolean;
410: --
411: begin
412: hr_utility.set_location('Entering:'|| l_proc, 10);
413: --
414: hr_utility.set_location(l_proc, 20);
415: --
416: -- Only proceed with validation if:
410: --
411: begin
412: hr_utility.set_location('Entering:'|| l_proc, 10);
413: --
414: hr_utility.set_location(l_proc, 20);
415: --
416: -- Only proceed with validation if:
417: -- a) The current g_old_rec is current and
418: -- b) The requested_by_person_id value has changed
421: l_api_updating := ghr_par_shd.api_updating
422: (p_pa_request_id => p_pa_request_id
423: ,p_object_version_number => p_object_version_number
424: );
425: hr_utility.set_location(l_proc, 30);
426: --
427: if ((l_api_updating
428: and nvl(ghr_par_shd.g_old_rec.requested_by_person_id, hr_api.g_number)
429: <> nvl(p_requested_by_person_id,hr_api.g_number))
429: <> nvl(p_requested_by_person_id,hr_api.g_number))
430: or
431: (NOT l_api_updating))
432: then
433: hr_utility.set_location(l_proc, 40);
434: --
435: -- Check if requested_by_person_id is valid
436: --
437: If p_requested_by_person_id is not null then
437: If p_requested_by_person_id is not null then
438: --
439: l_exists := chk_valid_person_id(p_requested_by_person_id,p_effective_date);
440: if nvl(l_exists,'x') = 'INV_PER_DT' then
441: hr_utility.set_message(8301, 'GHR_38063_INV_REQ_PERSON_DT');
442: hr_utility.raise_error;
443: elsif nvl(l_exists,'x') = 'INV_PER' then
444: hr_utility.set_message(8301, 'GHR_38064_INV_REQ_PERSON');
445: hr_utility.raise_error;
438: --
439: l_exists := chk_valid_person_id(p_requested_by_person_id,p_effective_date);
440: if nvl(l_exists,'x') = 'INV_PER_DT' then
441: hr_utility.set_message(8301, 'GHR_38063_INV_REQ_PERSON_DT');
442: hr_utility.raise_error;
443: elsif nvl(l_exists,'x') = 'INV_PER' then
444: hr_utility.set_message(8301, 'GHR_38064_INV_REQ_PERSON');
445: hr_utility.raise_error;
446: end if;
440: if nvl(l_exists,'x') = 'INV_PER_DT' then
441: hr_utility.set_message(8301, 'GHR_38063_INV_REQ_PERSON_DT');
442: hr_utility.raise_error;
443: elsif nvl(l_exists,'x') = 'INV_PER' then
444: hr_utility.set_message(8301, 'GHR_38064_INV_REQ_PERSON');
445: hr_utility.raise_error;
446: end if;
447:
448: end if;
441: hr_utility.set_message(8301, 'GHR_38063_INV_REQ_PERSON_DT');
442: hr_utility.raise_error;
443: elsif nvl(l_exists,'x') = 'INV_PER' then
444: hr_utility.set_message(8301, 'GHR_38064_INV_REQ_PERSON');
445: hr_utility.raise_error;
446: end if;
447:
448: end if;
449: hr_utility.set_location(l_proc, 50);
445: hr_utility.raise_error;
446: end if;
447:
448: end if;
449: hr_utility.set_location(l_proc, 50);
450: --
451: end if;
452: hr_utility.set_location(l_proc, 60);
453: --
448: end if;
449: hr_utility.set_location(l_proc, 50);
450: --
451: end if;
452: hr_utility.set_location(l_proc, 60);
453: --
454: hr_utility.set_location(' Leaving:'|| l_proc, 70);
455: end chk_requested_by_person_id;
456:
450: --
451: end if;
452: hr_utility.set_location(l_proc, 60);
453: --
454: hr_utility.set_location(' Leaving:'|| l_proc, 70);
455: end chk_requested_by_person_id;
456:
457: -- ---------------------------------------------------------------------------
458: -- |-----------------------------< chk_person_id >---------------------------|
509: and ppt.person_type_id = ppf.person_type_id
510: order by 1 desc;
511:
512: begin
513: hr_utility.set_location('Entering:'|| l_proc, 10);
514: --
515: If p_person_id is not null then
516: --
517: l_exists := chk_valid_person_id(p_person_id,p_effective_date);
515: If p_person_id is not null then
516: --
517: l_exists := chk_valid_person_id(p_person_id,p_effective_date);
518: if nvl(l_exists,'x') = 'INV_PER_DT' then
519: hr_utility.set_message(8301, 'GHR_38059_INV_PERSON_DT');
520: hr_utility.raise_error;
521: elsif nvl(l_exists,'x') = 'INV_PER' then
522: hr_utility.set_message(8301, 'GHR_38060_INV_PERSON');
523: hr_utility.raise_error;
516: --
517: l_exists := chk_valid_person_id(p_person_id,p_effective_date);
518: if nvl(l_exists,'x') = 'INV_PER_DT' then
519: hr_utility.set_message(8301, 'GHR_38059_INV_PERSON_DT');
520: hr_utility.raise_error;
521: elsif nvl(l_exists,'x') = 'INV_PER' then
522: hr_utility.set_message(8301, 'GHR_38060_INV_PERSON');
523: hr_utility.raise_error;
524: end if;
518: if nvl(l_exists,'x') = 'INV_PER_DT' then
519: hr_utility.set_message(8301, 'GHR_38059_INV_PERSON_DT');
520: hr_utility.raise_error;
521: elsif nvl(l_exists,'x') = 'INV_PER' then
522: hr_utility.set_message(8301, 'GHR_38060_INV_PERSON');
523: hr_utility.raise_error;
524: end if;
525: -- If conversion action and the person type is EX_EMP check to ensure that
526:
519: hr_utility.set_message(8301, 'GHR_38059_INV_PERSON_DT');
520: hr_utility.raise_error;
521: elsif nvl(l_exists,'x') = 'INV_PER' then
522: hr_utility.set_message(8301, 'GHR_38060_INV_PERSON');
523: hr_utility.raise_error;
524: end if;
525: -- If conversion action and the person type is EX_EMP check to ensure that
526:
527: -- he has not been terminated more than 3 days since the effective_date
526:
527: -- he has not been terminated more than 3 days since the effective_date
528: IF p_first_noa_cancel_or_correct not in (ghr_history_api.g_cancel,'CORRECT') THEN
529: If p_noa_family_code = 'CONV_APP' then
530: hr_utility.set_location('Conversion to app',1);
531: for person_type_rec in c_person_type_rec loop
532: l_person_type := person_type_rec.system_person_type;
533: l_effective_start_date := person_type_rec.effective_start_date;
534: exit;
533: l_effective_start_date := person_type_rec.effective_start_date;
534: exit;
535: end loop;
536: If nvl(l_person_type,hr_api.g_varchar2) = 'EX_EMP' then
537: hr_utility.set_location(' Ex Emp in Conv',1);
538: hr_utility.set_location('Termination date ' || l_effective_start_date,1);
539: if (nvl(p_effective_date,sysdate) - 3) >= (l_effective_start_date ) then
540: hr_utility.set_message(8301,'GHR_38645_EX_EMP_MORE_THAN_3');
541: hr_utility.raise_error;
534: exit;
535: end loop;
536: If nvl(l_person_type,hr_api.g_varchar2) = 'EX_EMP' then
537: hr_utility.set_location(' Ex Emp in Conv',1);
538: hr_utility.set_location('Termination date ' || l_effective_start_date,1);
539: if (nvl(p_effective_date,sysdate) - 3) >= (l_effective_start_date ) then
540: hr_utility.set_message(8301,'GHR_38645_EX_EMP_MORE_THAN_3');
541: hr_utility.raise_error;
542: end if;
536: If nvl(l_person_type,hr_api.g_varchar2) = 'EX_EMP' then
537: hr_utility.set_location(' Ex Emp in Conv',1);
538: hr_utility.set_location('Termination date ' || l_effective_start_date,1);
539: if (nvl(p_effective_date,sysdate) - 3) >= (l_effective_start_date ) then
540: hr_utility.set_message(8301,'GHR_38645_EX_EMP_MORE_THAN_3');
541: hr_utility.raise_error;
542: end if;
543: End if;
544: End if;
537: hr_utility.set_location(' Ex Emp in Conv',1);
538: hr_utility.set_location('Termination date ' || l_effective_start_date,1);
539: if (nvl(p_effective_date,sysdate) - 3) >= (l_effective_start_date ) then
540: hr_utility.set_message(8301,'GHR_38645_EX_EMP_MORE_THAN_3');
541: hr_utility.raise_error;
542: end if;
543: End if;
544: End if;
545: END IF;
544: End if;
545: END IF;
546:
547: end if;
548: hr_utility.set_location(l_proc, 50);
549: --
550: --end if;
551: hr_utility.set_location(l_proc, 60);
552: --
547: end if;
548: hr_utility.set_location(l_proc, 50);
549: --
550: --end if;
551: hr_utility.set_location(l_proc, 60);
552: --
553: hr_utility.set_location(' Leaving:'|| l_proc, 70);
554: end chk_person_id;
555:
549: --
550: --end if;
551: hr_utility.set_location(l_proc, 60);
552: --
553: hr_utility.set_location(' Leaving:'|| l_proc, 70);
554: end chk_person_id;
555:
556:
557: -- ---------------------------------------------------------------------------
595: l_proc varchar2(72) := g_package ||'chk_authorized_by_person_id';
596: l_api_updating boolean;
597: --
598: begin
599: hr_utility.set_location('Entering:'|| l_proc, 10);
600: --
601: -- Check mandatory parameters have been set
602: hr_utility.set_location(l_proc, 20);
603: --
598: begin
599: hr_utility.set_location('Entering:'|| l_proc, 10);
600: --
601: -- Check mandatory parameters have been set
602: hr_utility.set_location(l_proc, 20);
603: --
604: -- Only proceed with validation if:
605: -- a) The current g_old_rec is current and
606: -- b) The authorized_by_person_id value has changed
609: l_api_updating := ghr_par_shd.api_updating
610: (p_pa_request_id => p_pa_request_id
611: ,p_object_version_number => p_object_version_number
612: );
613: hr_utility.set_location(l_proc, 30);
614: --
615: if ((l_api_updating
616: and nvl(ghr_par_shd.g_old_rec.authorized_by_person_id, hr_api.g_number)
617: <> nvl(p_authorized_by_person_id,hr_api.g_number))
617: <> nvl(p_authorized_by_person_id,hr_api.g_number))
618: or
619: (NOT l_api_updating))
620: then
621: hr_utility.set_location(l_proc, 40);
622: --
623: -- Check if authorized_by_person_id is valid
624: --
625: If p_authorized_by_person_id is not null then
625: If p_authorized_by_person_id is not null then
626: --
627: l_exists := chk_valid_person_id(p_authorized_by_person_id,p_effective_date);
628: if nvl(l_exists,'x') = 'INV_PER_DT' then
629: hr_utility.set_message(8301, 'GHR_38065_INV_AUTH_PERSON_DT');
630: hr_utility.raise_error;
631: elsif nvl(l_exists,'x') = 'INV_PER' then
632: hr_utility.set_message(8301, 'GHR_38066_INV_AUTH_PERSON');
633: hr_utility.raise_error;
626: --
627: l_exists := chk_valid_person_id(p_authorized_by_person_id,p_effective_date);
628: if nvl(l_exists,'x') = 'INV_PER_DT' then
629: hr_utility.set_message(8301, 'GHR_38065_INV_AUTH_PERSON_DT');
630: hr_utility.raise_error;
631: elsif nvl(l_exists,'x') = 'INV_PER' then
632: hr_utility.set_message(8301, 'GHR_38066_INV_AUTH_PERSON');
633: hr_utility.raise_error;
634: end if;
628: if nvl(l_exists,'x') = 'INV_PER_DT' then
629: hr_utility.set_message(8301, 'GHR_38065_INV_AUTH_PERSON_DT');
630: hr_utility.raise_error;
631: elsif nvl(l_exists,'x') = 'INV_PER' then
632: hr_utility.set_message(8301, 'GHR_38066_INV_AUTH_PERSON');
633: hr_utility.raise_error;
634: end if;
635:
636: end if;
629: hr_utility.set_message(8301, 'GHR_38065_INV_AUTH_PERSON_DT');
630: hr_utility.raise_error;
631: elsif nvl(l_exists,'x') = 'INV_PER' then
632: hr_utility.set_message(8301, 'GHR_38066_INV_AUTH_PERSON');
633: hr_utility.raise_error;
634: end if;
635:
636: end if;
637: hr_utility.set_location(l_proc, 50);
633: hr_utility.raise_error;
634: end if;
635:
636: end if;
637: hr_utility.set_location(l_proc, 50);
638: --
639: end if;
640: hr_utility.set_location(l_proc, 60);
641: --
636: end if;
637: hr_utility.set_location(l_proc, 50);
638: --
639: end if;
640: hr_utility.set_location(l_proc, 60);
641: --
642: hr_utility.set_location(' Leaving:'|| l_proc, 70);
643: end chk_authorized_by_person_id;
644:
638: --
639: end if;
640: hr_utility.set_location(l_proc, 60);
641: --
642: hr_utility.set_location(' Leaving:'|| l_proc, 70);
643: end chk_authorized_by_person_id;
644:
645: -- ----------------------------------------------------------------------------
646: -- |---------------------------< chk_employee_assignment>----------------------------|
712: order by 1 desc;
713: --7015822
714: --
715: begin
716: hr_utility.set_location('Entering:'||l_proc, 10);
717: --
718: -- Check mandatory parameters have been set
719: --
720: -- Only proceed with validation if:
725: l_api_updating := ghr_par_shd.api_updating
726: (p_pa_request_id => p_pa_request_id
727: ,p_object_version_number => p_object_version_number
728: );
729: hr_utility.set_location(l_proc, 20);
730: --
731: if ((l_api_updating
732: and nvl(ghr_par_shd.g_old_rec.employee_assignment_id,hr_api.g_number)
733: <> nvl(p_employee_assignment_id,hr_api.g_number))
733: <> nvl(p_employee_assignment_id,hr_api.g_number))
734: or
735: (NOT l_api_updating))
736: then
737: hr_utility.set_location(l_proc, 30);
738: --
739: -- Check if employee_assignment_id is valid
740: --
741: If p_employee_assignment_id is not null then
744: l_person_id := recasg.person_id;
745: exit;
746: end loop;
747: --
748: hr_utility.set_location(l_proc, 40);
749: if l_exists then
750: l_exists := false;
751: for par_noa_code_rec in cur_par_noa_code loop
752: if par_noa_code_rec.noa_family_code <> 'CONV_APP' then
771: end if;
772: -- 7015822
773:
774: if not l_exists then
775: hr_utility.set_message(8301, 'GHR_38067_INV_ASSIGNMENT_DT');
776: hr_utility.raise_error;
777: end if;
778: end if;
779: end loop;
772: -- 7015822
773:
774: if not l_exists then
775: hr_utility.set_message(8301, 'GHR_38067_INV_ASSIGNMENT_DT');
776: hr_utility.raise_error;
777: end if;
778: end if;
779: end loop;
780: else
777: end if;
778: end if;
779: end loop;
780: else
781: hr_utility.set_message(8301, 'GHR_38068_INV_ASSIGNMENT');
782: hr_utility.raise_error;
783: end if;
784: end if;
785: end if;
778: end if;
779: end loop;
780: else
781: hr_utility.set_message(8301, 'GHR_38068_INV_ASSIGNMENT');
782: hr_utility.raise_error;
783: end if;
784: end if;
785: end if;
786: hr_utility.set_location(' Leaving:'||l_proc, 70);
782: hr_utility.raise_error;
783: end if;
784: end if;
785: end if;
786: hr_utility.set_location(' Leaving:'||l_proc, 70);
787: --
788: end chk_employee_assignment_id;
789:
790:
838: WHERE asg.assignment_id = p_employee_assignment_id
839: AND asg.position_id = p_from_position_id;
840: --
841: begin
842: hr_utility.set_location('Entering:'||l_proc, 10);
843: --
844: -- Check mandatory parameters have been set
845: --
846: -- Only proceed with validation if:
851: l_api_updating := ghr_par_shd.api_updating
852: (p_pa_request_id => p_pa_request_id
853: ,p_object_version_number => p_object_version_number
854: );
855: hr_utility.set_location(l_proc, 20);
856: --
857: if ((l_api_updating
858: and nvl(ghr_par_shd.g_old_rec.from_position_id,hr_api.g_number)
859: <> nvl(p_from_position_id,hr_api.g_number))
859: <> nvl(p_from_position_id,hr_api.g_number))
860: or
861: (NOT l_api_updating))
862: then
863: hr_utility.set_location(l_proc, 30);
864: --
865: -- Check if from_position_id is valid
866: --
867: If p_from_position_id is not null then
870: exit;
871: end loop;
872: --
873: if not l_exists then
874: hr_utility.set_message(8301, 'GHR_38056_INV_FROM_POSITION');
875: hr_utility.raise_error;
876: end if;
877: end if;
878: end if;
871: end loop;
872: --
873: if not l_exists then
874: hr_utility.set_message(8301, 'GHR_38056_INV_FROM_POSITION');
875: hr_utility.raise_error;
876: end if;
877: end if;
878: end if;
879: hr_utility.set_location(' Leaving:'||l_proc, 70);
875: hr_utility.raise_error;
876: end if;
877: end if;
878: end if;
879: hr_utility.set_location(' Leaving:'||l_proc, 70);
880: --
881: end chk_from_position_id;
882: --
883: --
914: between nvl(hl.start_date_active,nvl(p_effective_date,trunc(sysdate)))
915: and nvl(hl.end_date_active,nvl(p_effective_date,trunc(sysdate)));
916:
917: begin
918: hr_utility.set_location('Entering:'||l_proc, 10);
919: --
920: -- Check mandatory parameters have been set
921: --
922: /* -- Only proceed with validation if:
927: l_api_updating := ghr_par_shd.api_updating
928: (p_pa_request_id => p_pa_request_id
929: ,p_object_version_number => p_object_version_number
930: );
931: hr_utility.set_location(l_proc, 20);
932: --
933: if ((l_api_updating
934: and nvl(ghr_par_shd.g_old_rec.first_action_la_code1,hr_api.g_varchar2)
935: <> nvl(p_first_action_la_code1,hr_api.g_varchar2))
936: or
937: (NOT l_api_updating))
938: then
939:
940: hr_utility.set_location(l_proc, 30);
941: --
942: */
943: -- Check if first_action_la_code1 is valid
944: --
947: l_exists := true;
948: exit;
949: end loop;
950: --
951: hr_utility.set_location(l_proc, 40);
952: if not l_exists then
953: hr_utility.set_message(8301, 'GHR_38105_INV_FIRST_LA_CODE1');
954: hr_utility.raise_error;
955: end if;
949: end loop;
950: --
951: hr_utility.set_location(l_proc, 40);
952: if not l_exists then
953: hr_utility.set_message(8301, 'GHR_38105_INV_FIRST_LA_CODE1');
954: hr_utility.raise_error;
955: end if;
956: end if;
957: -- end if;
950: --
951: hr_utility.set_location(l_proc, 40);
952: if not l_exists then
953: hr_utility.set_message(8301, 'GHR_38105_INV_FIRST_LA_CODE1');
954: hr_utility.raise_error;
955: end if;
956: end if;
957: -- end if;
958: hr_utility.set_location(' Leaving:'||l_proc, 70);
954: hr_utility.raise_error;
955: end if;
956: end if;
957: -- end if;
958: hr_utility.set_location(' Leaving:'||l_proc, 70);
959: --
960: end chk_first_action_la_code1;
961: --
962: -- ----------------------------------------------------------------------------
991: between nvl(hl.start_date_active,nvl(p_effective_date,trunc(sysdate)))
992: and nvl(hl.end_date_active,nvl(p_effective_date,trunc(sysdate)));
993:
994: begin
995: hr_utility.set_location('Entering:'||l_proc, 10);
996: --
997: -- Check mandatory parameters have been set
998: --
999: /*
1005: l_api_updating := ghr_par_shd.api_updating
1006: (p_pa_request_id => p_pa_request_id
1007: ,p_object_version_number => p_object_version_number
1008: );
1009: hr_utility.set_location(l_proc, 20);
1010: --
1011: if ((l_api_updating
1012: and nvl(ghr_par_shd.g_old_rec.first_action_la_code2,hr_api.g_varchar2)
1013: <> nvl(p_first_action_la_code2,hr_api.g_varchar2))
1013: <> nvl(p_first_action_la_code2,hr_api.g_varchar2))
1014: or
1015: (NOT l_api_updating))
1016: then
1017: hr_utility.set_location(l_proc, 30);
1018: */
1019: --
1020: -- Check if first_action_la_code2 is valid
1021: --
1024: l_exists := true;
1025: exit;
1026: end loop;
1027: --
1028: hr_utility.set_location(l_proc, 40);
1029: if not l_exists then
1030: hr_utility.set_message(8301, 'GHR_38106_INV_FIRST_LA_CODE2');
1031: hr_utility.raise_error;
1032: end if;
1026: end loop;
1027: --
1028: hr_utility.set_location(l_proc, 40);
1029: if not l_exists then
1030: hr_utility.set_message(8301, 'GHR_38106_INV_FIRST_LA_CODE2');
1031: hr_utility.raise_error;
1032: end if;
1033: end if;
1034: -- end if;
1027: --
1028: hr_utility.set_location(l_proc, 40);
1029: if not l_exists then
1030: hr_utility.set_message(8301, 'GHR_38106_INV_FIRST_LA_CODE2');
1031: hr_utility.raise_error;
1032: end if;
1033: end if;
1034: -- end if;
1035: hr_utility.set_location(' Leaving:'||l_proc, 70);
1031: hr_utility.raise_error;
1032: end if;
1033: end if;
1034: -- end if;
1035: hr_utility.set_location(' Leaving:'||l_proc, 70);
1036: --
1037: end chk_first_action_la_code2;
1038: --
1039:
1091: AND nvl(p_effective_date,sysdate)
1092: BETWEEN dsf.effective_start_date and dsf.effective_end_date;
1093: --
1094: begin
1095: hr_utility.set_location('Entering:'||l_proc, 10);
1096: --
1097: -- Check mandatory parameters have been set
1098: --
1099: -- Only proceed with validation if:
1104: l_api_updating := ghr_par_shd.api_updating
1105: (p_pa_request_id => p_pa_request_id
1106: ,p_object_version_number => p_object_version_number
1107: );
1108: hr_utility.set_location(l_proc, 20);
1109: --
1110: --
1111: If p_duty_station_id is not null then
1112: for recasg in cur_duty_station_id loop
1113: l_exists := true;
1114: exit;
1115: end loop;
1116: --
1117: hr_utility.set_location(l_proc, 40);
1118: if l_exists then
1119: l_exists := false;
1120: for recasg in cur_duty_station_id_dt loop
1121: l_exists := true;
1121: l_exists := true;
1122: exit;
1123: end loop;
1124: if not l_exists then
1125: hr_utility.set_message(8301, 'GHR_38646_INV_DUTY_STN_DT');
1126: hr_utility.raise_error;
1127: end if;
1128: else
1129: hr_utility.set_message(8301, 'GHR_38647_INV_DUTY_STN');
1122: exit;
1123: end loop;
1124: if not l_exists then
1125: hr_utility.set_message(8301, 'GHR_38646_INV_DUTY_STN_DT');
1126: hr_utility.raise_error;
1127: end if;
1128: else
1129: hr_utility.set_message(8301, 'GHR_38647_INV_DUTY_STN');
1130: hr_utility.raise_error;
1125: hr_utility.set_message(8301, 'GHR_38646_INV_DUTY_STN_DT');
1126: hr_utility.raise_error;
1127: end if;
1128: else
1129: hr_utility.set_message(8301, 'GHR_38647_INV_DUTY_STN');
1130: hr_utility.raise_error;
1131: end if;
1132: end if;
1133: hr_utility.set_location(' Leaving:'||l_proc, 70);
1126: hr_utility.raise_error;
1127: end if;
1128: else
1129: hr_utility.set_message(8301, 'GHR_38647_INV_DUTY_STN');
1130: hr_utility.raise_error;
1131: end if;
1132: end if;
1133: hr_utility.set_location(' Leaving:'||l_proc, 70);
1134: --
1129: hr_utility.set_message(8301, 'GHR_38647_INV_DUTY_STN');
1130: hr_utility.raise_error;
1131: end if;
1132: end if;
1133: hr_utility.set_location(' Leaving:'||l_proc, 70);
1134: --
1135: end chk_duty_station_id;
1136:
1137: --
1168: between nvl(hl.start_date_active,nvl(p_effective_date,trunc(sysdate)))
1169: and nvl(hl.end_date_active,nvl(p_effective_date,trunc(sysdate)));
1170:
1171: begin
1172: hr_utility.set_location('Entering:'||l_proc, 10);
1173: --
1174: -- Check mandatory parameters have been set
1175: /*
1176: --
1182: l_api_updating := ghr_par_shd.api_updating
1183: (p_pa_request_id => p_pa_request_id
1184: ,p_object_version_number => p_object_version_number
1185: );
1186: hr_utility.set_location(l_proc, 20);
1187: --
1188: if ((l_api_updating
1189: and nvl(ghr_par_shd.g_old_rec.second_action_la_code1,hr_api.g_varchar2)
1190: <> nvl(p_second_action_la_code1,hr_api.g_varchar2))
1190: <> nvl(p_second_action_la_code1,hr_api.g_varchar2))
1191: or
1192: (NOT l_api_updating))
1193: then
1194: hr_utility.set_location(l_proc, 30);
1195: */
1196: --
1197: -- Check if second_action_la_code1 is valid
1198: --
1201: l_exists := true;
1202: exit;
1203: end loop;
1204: --
1205: hr_utility.set_location(l_proc, 40);
1206: if not l_exists then
1207: hr_utility.set_message(8301, 'GHR_38107_INV_SECOND_LA_CODE1');
1208: hr_utility.raise_error;
1209: end if;
1203: end loop;
1204: --
1205: hr_utility.set_location(l_proc, 40);
1206: if not l_exists then
1207: hr_utility.set_message(8301, 'GHR_38107_INV_SECOND_LA_CODE1');
1208: hr_utility.raise_error;
1209: end if;
1210: end if;
1211: -- end if;
1204: --
1205: hr_utility.set_location(l_proc, 40);
1206: if not l_exists then
1207: hr_utility.set_message(8301, 'GHR_38107_INV_SECOND_LA_CODE1');
1208: hr_utility.raise_error;
1209: end if;
1210: end if;
1211: -- end if;
1212: hr_utility.set_location(' Leaving:'||l_proc, 70);
1208: hr_utility.raise_error;
1209: end if;
1210: end if;
1211: -- end if;
1212: hr_utility.set_location(' Leaving:'||l_proc, 70);
1213: --
1214: end chk_second_action_la_code1;
1215: --
1216: -- ----------------------------------------------------------------------------
1245: between nvl(hl.start_date_active,nvl(p_effective_date,trunc(sysdate)))
1246: and nvl(hl.end_date_active,nvl(p_effective_date,trunc(sysdate)));
1247:
1248: begin
1249: hr_utility.set_location('Entering:'||l_proc, 10);
1250: --
1251: -- Check mandatory parameters have been set
1252: --
1253: /*
1259: l_api_updating := ghr_par_shd.api_updating
1260: (p_pa_request_id => p_pa_request_id
1261: ,p_object_version_number => p_object_version_number
1262: );
1263: hr_utility.set_location(l_proc, 20);
1264: --
1265: if ((l_api_updating
1266: and nvl(ghr_par_shd.g_old_rec.second_action_la_code2,hr_api.g_varchar2)
1267: <> nvl(p_second_action_la_code2,hr_api.g_varchar2))
1267: <> nvl(p_second_action_la_code2,hr_api.g_varchar2))
1268: or
1269: (NOT l_api_updating))
1270: then
1271: hr_utility.set_location(l_proc, 30);
1272: --
1273: */
1274: -- Check if second_action_la_code2 is valid
1275: --
1278: l_exists := true;
1279: exit;
1280: end loop;
1281: --
1282: hr_utility.set_location(l_proc, 40);
1283: if not l_exists then
1284: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
1285: hr_utility.raise_error;
1286: end if;
1280: end loop;
1281: --
1282: hr_utility.set_location(l_proc, 40);
1283: if not l_exists then
1284: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
1285: hr_utility.raise_error;
1286: end if;
1287: end if;
1288: -- end if;
1281: --
1282: hr_utility.set_location(l_proc, 40);
1283: if not l_exists then
1284: hr_utility.set_message(8301, 'GHR_38108_INV_SECOND_LA_CODE2');
1285: hr_utility.raise_error;
1286: end if;
1287: end if;
1288: -- end if;
1289: hr_utility.set_location(' Leaving:'||l_proc, 70);
1285: hr_utility.raise_error;
1286: end if;
1287: end if;
1288: -- end if;
1289: hr_utility.set_location(' Leaving:'||l_proc, 70);
1290: --
1291: end chk_second_action_la_code2;
1292: --
1293:
1298: --
1299: l_proc varchar2(72) := g_package||'insert_validate';
1300: --
1301: Begin
1302: hr_utility.set_location('Entering:'||l_proc, 5);
1303: --
1304: -- Call all supporting operations
1305:
1306: -- Check that the routing_group is not null
1317: p_argument_value => p_rec.noa_family_code);
1318:
1319: -- check person_id
1320: --
1321: hr_utility.set_location('chk person id' ,1);
1322: chk_person_id(p_pa_request_id => p_rec.pa_request_id,
1323: p_object_version_number => p_rec.object_version_number,
1324: p_noa_family_code => p_rec.noa_family_code,
1325: p_person_id => p_rec.person_id,
1490: ,p_attribute20_name => 'ATTRIBUTE20'
1491: ,p_attribute20_value => p_rec.ATTRIBUTE20
1492: );
1493: --
1494: hr_utility.set_location(' Leaving:'||l_proc, 10);
1495: End insert_validate;
1496: -- ----------------------------------------------------------------------------
1497: -- |---------------------------< update_validate >----------------------------|
1498: -- ----------------------------------------------------------------------------
1500: --
1501: l_proc varchar2(72) := g_package||'update_validate';
1502: --
1503: Begin
1504: hr_utility.set_location('Entering:'||l_proc, 5);
1505: --
1506: -- Call all supporting business operations
1507: --
1508: --
1688: ,p_attribute19_value => p_rec.ATTRIBUTE19
1689: ,p_attribute20_name => 'ATTRIBUTE20'
1690: ,p_attribute20_value => p_rec.ATTRIBUTE20
1691: );
1692: hr_utility.set_location(' Leaving:'||l_proc, 10);
1693: End update_validate;
1694: --
1695: -- ----------------------------------------------------------------------------
1696: -- |---------------------------< delete_validate >----------------------------|
1699: --
1700: l_proc varchar2(72) := g_package||'delete_validate';
1701: --
1702: Begin
1703: hr_utility.set_location('Entering:'||l_proc, 5);
1704: --
1705: -- Call all supporting business operations
1706: --
1707: hr_utility.set_location(' Leaving:'||l_proc, 10);
1703: hr_utility.set_location('Entering:'||l_proc, 5);
1704: --
1705: -- Call all supporting business operations
1706: --
1707: hr_utility.set_location(' Leaving:'||l_proc, 10);
1708: End delete_validate;
1709: --
1710:
1711: -- ----------------------------------------------------------------------------
1745: l_proc varchar2(72) := g_package||'convert_defaults';
1746: --
1747: Begin
1748: --
1749: hr_utility.set_location('Entering:'||l_proc, 5);
1750: --
1751: -- We must now examine each argument value in the
1752: -- p_rec plsql record structure
1753: -- to see if a system default is being used. If a system default