53: END IF;
54:
55: /*Added an additional check fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION')IN ('ERROR','WARN')*/
56: IF l_field IS NOT NULL AND fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION')IN ('ERROR','WARN') THEN
57: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
58: fnd_message.set_token('NAME',l_field, translate => true );
59: hr_utility.raise_error;
60: END IF;
61: --
54:
55: /*Added an additional check fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION')IN ('ERROR','WARN')*/
56: IF l_field IS NOT NULL AND fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION')IN ('ERROR','WARN') THEN
57: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
58: fnd_message.set_token('NAME',l_field, translate => true );
59: hr_utility.raise_error;
60: END IF;
61: --
62: END IF;
223: IF p_org_info_type_code = 'DK_SERVICE_PROVIDER_DETAILS' OR p_org_info_type_code = 'DK_LEGAL_ENTITY_DETAILS' THEN
224: open orgnum;
225: fetch orgnum into l_org_information1;
226: if l_org_information1 = p_org_information1 then
227: fnd_message.set_name('PER','HR_377005_DK_CVR_NUMBER_UNIQUE');
228: fnd_message.raise_error;
229: end if;
230: close orgnum;
231: END IF;
224: open orgnum;
225: fetch orgnum into l_org_information1;
226: if l_org_information1 = p_org_information1 then
227: fnd_message.set_name('PER','HR_377005_DK_CVR_NUMBER_UNIQUE');
228: fnd_message.raise_error;
229: end if;
230: close orgnum;
231: END IF;
232:
238: l_curr_sec27_ed := fnd_date.canonical_to_date(p_org_information3);
239:
240: /* Check if Section 27 Registration start date is before end date */
241: IF l_curr_sec27_sd > l_curr_sec27_ed THEN
242: fnd_message.set_name('PER','HR_377068_DK_SECTION27_DATES_E');
243: fnd_message.raise_error;
244: END IF;
245:
246: OPEN csr_get_sickpay_defaults(l_business_group_id);
239:
240: /* Check if Section 27 Registration start date is before end date */
241: IF l_curr_sec27_sd > l_curr_sec27_ed THEN
242: fnd_message.set_name('PER','HR_377068_DK_SECTION27_DATES_E');
243: fnd_message.raise_error;
244: END IF;
245:
246: OPEN csr_get_sickpay_defaults(l_business_group_id);
247: FETCH csr_get_sickpay_defaults BULK COLLECT INTO l_sickpay_records;
257: l_sec27_sd := fnd_date.canonical_to_date(l_sickpay_records(l_index).date1);
258: l_sec27_ed := fnd_date.canonical_to_date(l_sickpay_records(l_index).date2);
259:
260: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
261: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
262: fnd_message.raise_error;
263: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
258: l_sec27_ed := fnd_date.canonical_to_date(l_sickpay_records(l_index).date2);
259:
260: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
261: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
262: fnd_message.raise_error;
263: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
266: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
260: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
261: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
262: fnd_message.raise_error;
263: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
266: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
267: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
268: fnd_message.raise_error;
261: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
262: fnd_message.raise_error;
263: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
266: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
267: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
268: fnd_message.raise_error;
269: END IF;
263: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
266: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
267: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
268: fnd_message.raise_error;
269: END IF;
270:
271: END LOOP;
264: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
265: fnd_message.raise_error;
266: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
267: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
268: fnd_message.raise_error;
269: END IF;
270:
271: END LOOP;
272: END IF;
280: l_hol_acc_ed := last_day(trunc(l_effective_date,'YEAR'));
281:
282: IF l_effective_date BETWEEN l_hol_acc_sd AND l_hol_acc_ed THEN
283: NULL;
284: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
285: --fnd_message.raise_error;
286: ELSE
287: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
288: fnd_message.raise_error;
281:
282: IF l_effective_date BETWEEN l_hol_acc_sd AND l_hol_acc_ed THEN
283: NULL;
284: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
285: --fnd_message.raise_error;
286: ELSE
287: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
288: fnd_message.raise_error;
289: END IF;
283: NULL;
284: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
285: --fnd_message.raise_error;
286: ELSE
287: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
288: fnd_message.raise_error;
289: END IF;
290: END IF;
291: END IF;
284: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
285: --fnd_message.raise_error;
286: ELSE
287: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
288: fnd_message.raise_error;
289: END IF;
290: END IF;
291: END IF;
292: END validate_create_org_inf;
363: IF p_org_info_type_code = 'DK_SERVICE_PROVIDER_DETAILS' OR p_org_info_type_code = 'DK_LEGAL_ENTITY_DETAILS' THEN
364: open orgnum;
365: fetch orgnum into l_org_information1;
366: if l_org_information1 = p_org_information1 then
367: fnd_message.set_name('PER','HR_377005_DK_CVR_NUMBER_UNIQUE');
368: fnd_message.raise_error;
369: end if;
370: close orgnum;
371: END IF;
364: open orgnum;
365: fetch orgnum into l_org_information1;
366: if l_org_information1 = p_org_information1 then
367: fnd_message.set_name('PER','HR_377005_DK_CVR_NUMBER_UNIQUE');
368: fnd_message.raise_error;
369: end if;
370: close orgnum;
371: END IF;
372:
377: l_curr_sec27_ed := fnd_date.canonical_to_date(p_org_information3);
378:
379: /* Check if Section 27 Registration start date is before end date */
380: IF l_curr_sec27_sd > l_curr_sec27_ed THEN
381: fnd_message.set_name('PER','HR_377068_DK_SECTION27_DATES_E');
382: fnd_message.raise_error;
383: END IF;
384:
385: OPEN csr_get_sickpay_defaults(l_business_group_id,l_organization_id);
378:
379: /* Check if Section 27 Registration start date is before end date */
380: IF l_curr_sec27_sd > l_curr_sec27_ed THEN
381: fnd_message.set_name('PER','HR_377068_DK_SECTION27_DATES_E');
382: fnd_message.raise_error;
383: END IF;
384:
385: OPEN csr_get_sickpay_defaults(l_business_group_id,l_organization_id);
386: FETCH csr_get_sickpay_defaults BULK COLLECT INTO l_sickpay_records;
396: l_sec27_sd := fnd_date.canonical_to_date(l_sickpay_records(l_index).date1);
397: l_sec27_ed := fnd_date.canonical_to_date(l_sickpay_records(l_index).date2);
398:
399: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
400: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
401: fnd_message.raise_error;
402: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
397: l_sec27_ed := fnd_date.canonical_to_date(l_sickpay_records(l_index).date2);
398:
399: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
400: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
401: fnd_message.raise_error;
402: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
405: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
399: IF l_curr_sec27_sd BETWEEN l_sec27_sd AND l_sec27_ed THEN
400: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
401: fnd_message.raise_error;
402: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
405: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
406: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
407: fnd_message.raise_error;
400: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
401: fnd_message.raise_error;
402: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
405: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
406: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
407: fnd_message.raise_error;
408: END IF;
402: ELSIF l_curr_sec27_ed BETWEEN l_sec27_sd AND l_sec27_ed THEN
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
405: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
406: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
407: fnd_message.raise_error;
408: END IF;
409:
410: END LOOP;
403: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
404: fnd_message.raise_error;
405: ELSIF l_curr_sec27_sd <= l_sec27_sd AND l_curr_sec27_ed >= l_sec27_ed THEN
406: fnd_message.set_name('PER','HR_377069_DK_SECTION27_OVERLAP');
407: fnd_message.raise_error;
408: END IF;
409:
410: END LOOP;
411: END IF;
420: l_hol_acc_ed := last_day(trunc(l_effective_date,'YEAR'));
421:
422: IF l_effective_date BETWEEN l_hol_acc_sd AND l_hol_acc_ed THEN
423: NULL;
424: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
425: --hr_utility.raise_error;--fnd_message.raise_error;
426: ELSE
427: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
428: fnd_message.raise_error;
421:
422: IF l_effective_date BETWEEN l_hol_acc_sd AND l_hol_acc_ed THEN
423: NULL;
424: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
425: --hr_utility.raise_error;--fnd_message.raise_error;
426: ELSE
427: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
428: fnd_message.raise_error;
429: END IF;
423: NULL;
424: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
425: --hr_utility.raise_error;--fnd_message.raise_error;
426: ELSE
427: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
428: fnd_message.raise_error;
429: END IF;
430: END IF;
431: END IF;
424: --fnd_message.set_name('PAY','PAY_377105_DK_HOL_ALL_RED_WARN');
425: --hr_utility.raise_error;--fnd_message.raise_error;
426: ELSE
427: fnd_message.set_name('PAY','PAY_377106_DK_HOL_ALL_RED_ERR');
428: fnd_message.raise_error;
429: END IF;
430: END IF;
431: END IF;
432: END validate_update_org_inf;
454: --
455: IF p_assignment_status_type_id = 3 THEN
456: IF p_segment6 IS NULL THEN
457: l_field := hr_general.decode_lookup('DK_FORM_LABELS','TR');
458: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
459: fnd_message.set_token('NAME',l_field, translate => true );
460: hr_utility.raise_error;
461: END IF;
462:
455: IF p_assignment_status_type_id = 3 THEN
456: IF p_segment6 IS NULL THEN
457: l_field := hr_general.decode_lookup('DK_FORM_LABELS','TR');
458: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
459: fnd_message.set_token('NAME',l_field, translate => true );
460: hr_utility.raise_error;
461: END IF;
462:
463: IF p_segment7 IS NULL THEN
461: END IF;
462:
463: IF p_segment7 IS NULL THEN
464: l_field := hr_general.decode_lookup('DK_FORM_LABELS','ND');
465: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
466: fnd_message.set_token('NAME',l_field, translate => true );
467: hr_utility.raise_error;
468: END IF;
469:
462:
463: IF p_segment7 IS NULL THEN
464: l_field := hr_general.decode_lookup('DK_FORM_LABELS','ND');
465: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
466: fnd_message.set_token('NAME',l_field, translate => true );
467: hr_utility.raise_error;
468: END IF;
469:
470: IF p_segment8 IS NULL THEN
468: END IF;
469:
470: IF p_segment8 IS NULL THEN
471: l_field := hr_general.decode_lookup('DK_FORM_LABELS','TD');
472: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
473: fnd_message.set_token('NAME',l_field, translate => true );
474: hr_utility.raise_error;
475: END IF;
476: IF p_segment9 IS NULL THEN
469:
470: IF p_segment8 IS NULL THEN
471: l_field := hr_general.decode_lookup('DK_FORM_LABELS','TD');
472: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
473: fnd_message.set_token('NAME',l_field, translate => true );
474: hr_utility.raise_error;
475: END IF;
476: IF p_segment9 IS NULL THEN
477: l_field := hr_general.decode_lookup('DK_FORM_LABELS','AD');
474: hr_utility.raise_error;
475: END IF;
476: IF p_segment9 IS NULL THEN
477: l_field := hr_general.decode_lookup('DK_FORM_LABELS','AD');
478: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
479: fnd_message.set_token('NAME',l_field, translate => true );
480: hr_utility.raise_error;
481: END IF;
482:
475: END IF;
476: IF p_segment9 IS NULL THEN
477: l_field := hr_general.decode_lookup('DK_FORM_LABELS','AD');
478: fnd_message.set_name('PER', 'HR_377002_DK_MANDATORY_MSG');
479: fnd_message.set_token('NAME',l_field, translate => true );
480: hr_utility.raise_error;
481: END IF;
482:
483: ELSE
482:
483: ELSE
484: -- GSI Bug 4585094
485: IF p_segment6 <> hr_api.g_varchar2 THEN
486: fnd_message.set_name('PER', 'HR_377009_DK_TR_INVALID');
487: hr_utility.raise_error;
488: END IF;
489: -- GSI Bug 4585094
490: IF p_segment7 <> hr_api.g_varchar2 THEN
487: hr_utility.raise_error;
488: END IF;
489: -- GSI Bug 4585094
490: IF p_segment7 <> hr_api.g_varchar2 THEN
491: fnd_message.set_name('PER', 'HR_377010_DK_ND_INVALID');
492: hr_utility.raise_error;
493: END IF;
494: -- GSI Bug 4585094
495: IF p_segment8 <> hr_api.g_varchar2 THEN
492: hr_utility.raise_error;
493: END IF;
494: -- GSI Bug 4585094
495: IF p_segment8 <> hr_api.g_varchar2 THEN
496: fnd_message.set_name('PER', 'HR_377011_DK_TD_INVALID');
497: hr_utility.raise_error;
498: END IF;
499:
500: END IF;
511: -- Validation rule : notified date > assignment start date --
512: if p_segment7 <> hr_api.g_varchar2 -- GSI Bug 4585094
513: and l_asg_start_date is not NULL then
514: if fnd_date.canonical_to_date(p_segment7) < fnd_date.canonical_to_date(l_asg_start_date) then
515: fnd_message.set_name('PER', 'HR_377006_DK_NOTIFIED_DATE');
516: hr_utility.raise_error;
517: end if;
518: end if;
519: -- Validation rule : Termination date >= notified date --
519: -- Validation rule : Termination date >= notified date --
520: if p_segment8 <> hr_api.g_varchar2 -- GSI Bug 4585094
521: and p_segment7 <> hr_api.g_varchar2 then
522: if fnd_date.canonical_to_date(p_segment8) < fnd_date.canonical_to_date(p_segment7) then
523: fnd_message.set_name('PER', 'HR_377007_DK_TERM_DATE_ERR');
524: hr_utility.raise_error;
525: end if;
526: end if;
527: -- Validation rule : Adjusted seniority date < notified date --
527: -- Validation rule : Adjusted seniority date < notified date --
528: if p_segment9 <> hr_api.g_varchar2 -- GSI Bug 4585094
529: and p_segment7 <> hr_api.g_varchar2 then
530: if fnd_date.canonical_to_date(p_segment9) >= fnd_date.canonical_to_date(p_segment7) then
531: fnd_message.set_name('PER', 'HR_377008_DK_ASD_ERR');
532: hr_utility.raise_error;
533: end if;
534: end if;
535:
591: fetch orgtype into l_int_ext_flag;
592: close orgtype;
593:
594: if l_int_ext_flag='INT' then
595: fnd_message.set_name('PER','HR_377013_DK_PENSION_PVDR');
596: fnd_message.raise_error;
597: end if;
598:
599: END IF;
592: close orgtype;
593:
594: if l_int_ext_flag='INT' then
595: fnd_message.set_name('PER','HR_377013_DK_PENSION_PVDR');
596: fnd_message.raise_error;
597: end if;
598:
599: END IF;
600:
604: fetch orgtype into l_int_ext_flag;
605: close orgtype;
606:
607: if l_int_ext_flag='INT' then
608: fnd_message.set_name('PER','HR_377014_DK_SERVICE_PVDR');
609: fnd_message.raise_error;
610: end if;
611:
612: /* Added for bug fix 4227055 */
605: close orgtype;
606:
607: if l_int_ext_flag='INT' then
608: fnd_message.set_name('PER','HR_377014_DK_SERVICE_PVDR');
609: fnd_message.raise_error;
610: end if;
611:
612: /* Added for bug fix 4227055 */
613:
628: END IF;
629: END IF;
630: EXCEPTION
631: WHEN SP_DATA_FOUND THEN
632: fnd_message.set_name('PER','HR_377035_DK_SP_UNIQUE');
633: fnd_message.raise_error;
634:
635:
636:
629: END IF;
630: EXCEPTION
631: WHEN SP_DATA_FOUND THEN
632: fnd_message.set_name('PER','HR_377035_DK_SP_UNIQUE');
633: fnd_message.raise_error;
634:
635:
636:
637: END validate_create_org_cat;