36: l_proc varchar2(72) := g_package||'set_security_group_id';
37: --
38: begin
39: --
40: hr_utility.set_location('Entering:'|| l_proc, 10);
41: --
42: -- Ensure that all the mandatory parameter are not null
43: --
44: hr_api.mandatory_arg_error
67: hr_api.set_security_group_id
68: (p_security_group_id => l_security_group_id
69: );
70: --
71: hr_utility.set_location(' Leaving:'|| l_proc, 20);
72: --
73: end set_security_group_id;
74: --
75: -- ---------------------------------------------------------------------------
96: l_proc varchar2(72) := g_package||'return_legislation_code';
97: --
98: Begin
99: --
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Ensure that all the mandatory parameter are not null
103: --
104: hr_api.mandatory_arg_error
114: -- call to this function. Just return the value in the global
115: -- variable.
116: --
117: l_legislation_code := pay_rtu_bus.g_legislation_code;
118: hr_utility.set_location(l_proc, 20);
119: else
120: --
121: -- The ID is different to the last call to this function
122: -- or this is the first call to this function.
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
137: -- Set the global variables so the values are
138: -- available for the next call to this function.
139: --
140: close csr_leg_code;
141: pay_rtu_bus.g_run_type_usage_id := p_run_type_usage_id;
142: pay_rtu_bus.g_legislation_code := l_legislation_code;
143: end if;
144: hr_utility.set_location(' Leaving:'|| l_proc, 40);
145: return l_legislation_code;
146: end return_legislation_code;
147: --
148: -- ----------------------------------------------------------------------------
196: fnd_message.set_token('STEP ', '5');
197: fnd_message.raise_error;
198: END IF;
199: --
200: hr_utility.set_location(l_proc, 10);
201: --
202: if nvl(p_rec.business_group_id, hr_api.g_number) <>
203: nvl(pay_rtu_shd.g_old_rec.business_group_id, hr_api.g_number) then
204: l_argument := 'business_group_id';
203: nvl(pay_rtu_shd.g_old_rec.business_group_id, hr_api.g_number) then
204: l_argument := 'business_group_id';
205: raise l_error;
206: end if;
207: hr_utility.set_location(l_proc, 15);
208: --
209: if p_rec.run_type_usage_id <> pay_rtu_shd.g_old_rec.run_type_usage_id then
210: l_argument := 'run_type_usage_id';
211: raise l_error;
209: if p_rec.run_type_usage_id <> pay_rtu_shd.g_old_rec.run_type_usage_id then
210: l_argument := 'run_type_usage_id';
211: raise l_error;
212: end if;
213: hr_utility.set_location(l_proc, 20);
214: --
215: if p_rec.legislation_code <> pay_rtu_shd.g_old_rec.legislation_code then
216: l_argument := 'legislation_code';
217: raise l_error;
215: if p_rec.legislation_code <> pay_rtu_shd.g_old_rec.legislation_code then
216: l_argument := 'legislation_code';
217: raise l_error;
218: end if;
219: hr_utility.set_location(l_proc, 25);
220: --
221: if p_rec.parent_run_type_id <> pay_rtu_shd.g_old_rec.parent_run_type_id then
222: l_argument := 'parent_run_type_id';
223: raise l_error;
221: if p_rec.parent_run_type_id <> pay_rtu_shd.g_old_rec.parent_run_type_id then
222: l_argument := 'parent_run_type_id';
223: raise l_error;
224: end if;
225: hr_utility.set_location(l_proc, 30);
226: --
227: if p_rec.child_run_type_id <> pay_rtu_shd.g_old_rec.child_run_type_id then
228: l_argument := 'child_run_type_id';
229: raise l_error;
227: if p_rec.child_run_type_id <> pay_rtu_shd.g_old_rec.child_run_type_id then
228: l_argument := 'child_run_type_id';
229: raise l_error;
230: end if;
231: hr_utility.set_location(l_proc, 35);
232: --
233: EXCEPTION
234: WHEN l_error THEN
235: hr_api.argument_changed_error
236: (p_api_name => l_proc
237: ,p_argument => l_argument);
238: WHEN OTHERS THEN
239: RAISE;
240: hr_utility.set_location(' Leaving:'|| l_proc, 40);
241: End chk_non_updateable_args;
242: --
243: -- ---------------------------------------------------------------------------
244: -- |-----------------------< chk_parent_run_type_id >------------------------|
321: --
322: l_mode varchar2(10);
323: BEGIN
324: --
325: hr_utility.set_location('Entering: '|| l_proc, 5);
326: --
327: -- Only execute the cursor if absolutely necessary.
328: -- a) During update, the parent_run_type_id has actually changed to another not
329: -- null value, i,e, the value passed to this procedure is different to the
338: nvl(p_parent_run_type_id, hr_api.g_number))
339: or
340: (p_run_type_usage_id is null)) then
341: --
342: hr_utility.set_location(l_proc, 10);
343: --
344: -- Only need to open the cursor if parent_run_type_id is not null
345: --
346: if p_parent_run_type_id is not null then
351: -- If business_group and legislation code are not null then must
352: -- be in GENERIC mode, check by calling:
353: --
354: if hr_startup_data_api_support.g_startup_mode = 'GENERIC' THEN
355: hr_utility.set_location(l_proc, 15);
356: --
357: OPEN csr_chk_valid_parent;
358: FETCH csr_chk_valid_parent INTO l_exists;
359: IF csr_chk_valid_parent%NOTFOUND THEN
359: IF csr_chk_valid_parent%NOTFOUND THEN
360: --
361: CLOSE csr_chk_valid_parent;
362: -- parent run type does not exist
363: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
364: hr_utility.raise_error;
365: --
366: END IF;
367: CLOSE csr_chk_valid_parent;
360: --
361: CLOSE csr_chk_valid_parent;
362: -- parent run type does not exist
363: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
364: hr_utility.raise_error;
365: --
366: END IF;
367: CLOSE csr_chk_valid_parent;
368: end if; -- if generic
367: CLOSE csr_chk_valid_parent;
368: end if; -- if generic
369: --
370: ELSE
371: hr_utility.set_location(l_proc, 20);
372: --
373: -- If business_group_id is null, and legislation code is not null,
374: -- then must be in STRATUP mode, check by calling:
375: --
373: -- If business_group_id is null, and legislation code is not null,
374: -- then must be in STRATUP mode, check by calling:
375: --
376: if hr_startup_data_api_support.g_startup_mode = 'STARTUP' THEN
377: hr_utility.set_location(l_proc, 25);
378: --
379: OPEN csr_chk_valid_parent;
380: FETCH csr_chk_valid_parent INTO l_exists;
381: IF csr_chk_valid_parent%NOTFOUND THEN
381: IF csr_chk_valid_parent%NOTFOUND THEN
382: --
383: CLOSE csr_chk_valid_parent;
384: -- parent run type_id does not exist
385: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
386: hr_utility.raise_error;
387: END IF;
388: CLOSE csr_chk_valid_parent;
389: end if; -- if STARTUP
382: --
383: CLOSE csr_chk_valid_parent;
384: -- parent run type_id does not exist
385: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
386: hr_utility.raise_error;
387: END IF;
388: CLOSE csr_chk_valid_parent;
389: end if; -- if STARTUP
390: --
396: -- If business_group is not null, and legislation code is null then
397: -- must be in USER mode, check by calling:
398: --
399: if hr_startup_data_api_support.g_startup_mode = 'USER' then
400: hr_utility.set_location(l_proc, 30);
401: --
402: OPEN csr_chk_valid_parent;
403: FETCH csr_chk_valid_parent INTO l_exists;
404: IF csr_chk_valid_parent%NOTFOUND THEN
404: IF csr_chk_valid_parent%NOTFOUND THEN
405: --
406: CLOSE csr_chk_valid_parent;
407: -- parent run type does not exist
408: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
409: hr_utility.raise_error;
410: END IF;
411: CLOSE csr_chk_valid_parent;
412: --
405: --
406: CLOSE csr_chk_valid_parent;
407: -- parent run type does not exist
408: hr_utility.set_message(801, 'HR_33593_RTU_INV_P_RT');
409: hr_utility.raise_error;
410: END IF;
411: CLOSE csr_chk_valid_parent;
412: --
413: end if; -- if USER
412: --
413: end if; -- if USER
414: else -- p_legislation_code is not null
415: -- legislaiton_code cannot be NOT NULL in USER mode
416: hr_utility.set_message(801, 'HR_33594_RTU_INV_P_LEG');
417: hr_utility.raise_error;
418: end if;
419: END IF;
420: hr_utility.set_location(l_proc, 35);
413: end if; -- if USER
414: else -- p_legislation_code is not null
415: -- legislaiton_code cannot be NOT NULL in USER mode
416: hr_utility.set_message(801, 'HR_33594_RTU_INV_P_LEG');
417: hr_utility.raise_error;
418: end if;
419: END IF;
420: hr_utility.set_location(l_proc, 35);
421: end if;
416: hr_utility.set_message(801, 'HR_33594_RTU_INV_P_LEG');
417: hr_utility.raise_error;
418: end if;
419: END IF;
420: hr_utility.set_location(l_proc, 35);
421: end if;
422: hr_utility.set_location(l_proc, 40);
423: end if;
424: hr_utility.set_location('Leaving: '||l_proc, 45);
418: end if;
419: END IF;
420: hr_utility.set_location(l_proc, 35);
421: end if;
422: hr_utility.set_location(l_proc, 40);
423: end if;
424: hr_utility.set_location('Leaving: '||l_proc, 45);
425: END chk_parent_run_type_id;
426: -- ---------------------------------------------------------------------------
420: hr_utility.set_location(l_proc, 35);
421: end if;
422: hr_utility.set_location(l_proc, 40);
423: end if;
424: hr_utility.set_location('Leaving: '||l_proc, 45);
425: END chk_parent_run_type_id;
426: -- ---------------------------------------------------------------------------
427: -- |------------------------< chk_child_run_type_id >------------------------|
428: -- ---------------------------------------------------------------------------
508: l_derived_leg varchar2(20);
509: --
510: BEGIN
511: --
512: hr_utility.set_location('Entering: '|| l_proc, 5);
513: -- Only execute the cursor if absolutely necessary.
514: -- a) During update, the child_run_type_id has actually changed to another not
515: -- null value, i,e, the value passed to this procedure is different to the
516: -- g_old_rec value.
524: nvl(p_child_run_type_id, hr_api.g_number))
525: or
526: (p_run_type_usage_id is null)) then
527: --
528: hr_utility.set_location(l_proc, 10);
529: --
530: -- Only need to open the cursor if child_run_type_id is not null
531: --
532: if p_child_run_type_id is not null then
532: if p_child_run_type_id is not null then
533: --
534: --
535: IF p_business_group_id is NULL THEN
536: hr_utility.set_location(l_proc, 15);
537: --
538: IF p_legislation_code is NULL THEN
539: hr_utility.set_location(l_proc, 20);
540: --
535: IF p_business_group_id is NULL THEN
536: hr_utility.set_location(l_proc, 15);
537: --
538: IF p_legislation_code is NULL THEN
539: hr_utility.set_location(l_proc, 20);
540: --
541: -- If business group id and leg code are null, then we must be in
542: -- GENERIC mode, check this by calling:
543: --
541: -- If business group id and leg code are null, then we must be in
542: -- GENERIC mode, check this by calling:
543: --
544: if hr_startup_data_api_support.g_startup_mode = 'GENERIC' then
545: hr_utility.set_location(l_proc, 25);
546: --
547: OPEN csr_chk_valid_child;
548: FETCH csr_chk_valid_child INTO l_bg_id, l_leg_code, l_rt_id;
549: IF csr_chk_valid_child%NOTFOUND THEN
549: IF csr_chk_valid_child%NOTFOUND THEN
550: --
551: CLOSE csr_chk_valid_child;
552: -- invalid primary key error, child run type does not exist
553: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
554: hr_utility.raise_error;
555: END IF;
556: CLOSE csr_chk_valid_child;
557: --
550: --
551: CLOSE csr_chk_valid_child;
552: -- invalid primary key error, child run type does not exist
553: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
554: hr_utility.raise_error;
555: END IF;
556: CLOSE csr_chk_valid_child;
557: --
558: -- chk that this usage doesn't already exist
562: IF csr_usage_exists%FOUND THEN
563: --
564: CLOSE csr_usage_exists;
565: -- usage already exists error
566: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
567: hr_utility.raise_error;
568: END IF;
569: CLOSE csr_usage_exists;
570: --
563: --
564: CLOSE csr_usage_exists;
565: -- usage already exists error
566: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
567: hr_utility.raise_error;
568: END IF;
569: CLOSE csr_usage_exists;
570: --
571: -- if the child run type bg or leg code are not null then
574: if (l_bg_id is not null
575: or l_leg_code is not null) then
576: --
577: -- child run type not of generic mode
578: hr_utility.set_message(801, 'HR_33597_RTU_INV_C_RT_G');
579: hr_utility.raise_error;
580: end if;
581: --
582: end if; -- if GENERIC
575: or l_leg_code is not null) then
576: --
577: -- child run type not of generic mode
578: hr_utility.set_message(801, 'HR_33597_RTU_INV_C_RT_G');
579: hr_utility.raise_error;
580: end if;
581: --
582: end if; -- if GENERIC
583: --
581: --
582: end if; -- if GENERIC
583: --
584: ELSE -- p_legislation_code is not null
585: hr_utility.set_location(l_proc, 30);
586: --
587: -- If business_group_id is null, and legislation_code is not null,
588: -- we must be in STARTUP mode, check this by calling:
589: --
587: -- If business_group_id is null, and legislation_code is not null,
588: -- we must be in STARTUP mode, check this by calling:
589: --
590: if hr_startup_data_api_support.g_startup_mode = 'STARTUP' then
591: hr_utility.set_location(l_proc, 35);
592: --
593: OPEN csr_chk_valid_child;
594: FETCH csr_chk_valid_child INTO l_bg_id, l_leg_code, l_rt_id;
595: IF csr_chk_valid_child%NOTFOUND THEN
595: IF csr_chk_valid_child%NOTFOUND THEN
596: --
597: CLOSE csr_chk_valid_child;
598: -- child run type does not exist
599: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
600: hr_utility.raise_error;
601: END IF;
602: CLOSE csr_chk_valid_child;
603: --
596: --
597: CLOSE csr_chk_valid_child;
598: -- child run type does not exist
599: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
600: hr_utility.raise_error;
601: END IF;
602: CLOSE csr_chk_valid_child;
603: --
604: -- chk that this usage doesn't already exist
608: IF csr_usage_exists%FOUND THEN
609: --
610: CLOSE csr_usage_exists;
611: -- usage already exists error
612: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
613: hr_utility.raise_error;
614: END IF;
615: CLOSE csr_usage_exists;
616: --
609: --
610: CLOSE csr_usage_exists;
611: -- usage already exists error
612: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
613: hr_utility.raise_error;
614: END IF;
615: CLOSE csr_usage_exists;
616: --
617: -- If the bg of the child run type is not null, then the child
618: -- run type is not a STARTUP row, so error.
619: --
620: if l_bg_id is not null then
621: --
622: hr_utility.set_message(801, 'HR_33598_RTU_INV_C_RT_S');
623: hr_utility.raise_error;
624: --
625: elsif l_leg_code is not null then
626: --
619: --
620: if l_bg_id is not null then
621: --
622: hr_utility.set_message(801, 'HR_33598_RTU_INV_C_RT_S');
623: hr_utility.raise_error;
624: --
625: elsif l_leg_code is not null then
626: --
627: if l_leg_code = p_legislation_code then
625: elsif l_leg_code is not null then
626: --
627: if l_leg_code = p_legislation_code then
628: --
629: hr_utility.trace ('valid startup child run type id');
630: else
631: -- child run type leg code is not same as usage leg code
632: -- therefore is invalid
633: hr_utility.set_message(801, 'HR_33599_RTU_INV_LEG_S');
629: hr_utility.trace ('valid startup child run type id');
630: else
631: -- child run type leg code is not same as usage leg code
632: -- therefore is invalid
633: hr_utility.set_message(801, 'HR_33599_RTU_INV_LEG_S');
634: hr_utility.raise_error;
635: end if;
636: end if;
637: --
630: else
631: -- child run type leg code is not same as usage leg code
632: -- therefore is invalid
633: hr_utility.set_message(801, 'HR_33599_RTU_INV_LEG_S');
634: hr_utility.raise_error;
635: end if;
636: end if;
637: --
638: end if; -- if STARTUP
639: --
640: END IF; -- if p_legislation_code is null
641: --
642: ELSE -- p_business_group_id is not null
643: hr_utility.set_location(l_proc, 40);
644: --
645: if p_legislation_code is null then
646: --
647: -- If business_group_id is NOT NULL and legislation code is null then
647: -- If business_group_id is NOT NULL and legislation code is null then
648: -- we must be in USER mode, check this by calling:
649: --
650: if hr_startup_data_api_support.g_startup_mode = 'USER' then
651: hr_utility.set_location(l_proc, 45);
652: --
653: OPEN csr_chk_valid_child;
654: FETCH csr_chk_valid_child INTO l_bg_id, l_leg_code, l_rt_id;
655: IF csr_chk_valid_child%NOTFOUND THEN
655: IF csr_chk_valid_child%NOTFOUND THEN
656: --
657: CLOSE csr_chk_valid_child;
658: -- child run type does not exist
659: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
660: hr_utility.raise_error;
661: END IF;
662: CLOSE csr_chk_valid_child;
663: --
656: --
657: CLOSE csr_chk_valid_child;
658: -- child run type does not exist
659: hr_utility.set_message(801, 'HR_33595_RTU_INV_C_RT');
660: hr_utility.raise_error;
661: END IF;
662: CLOSE csr_chk_valid_child;
663: --
664: -- chk that this usage doesn't already exist
668: IF csr_usage_exists%FOUND THEN
669: --
670: CLOSE csr_usage_exists;
671: -- usage already exists error
672: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
673: hr_utility.raise_error;
674: END IF;
675: CLOSE csr_usage_exists;
676: --
669: --
670: CLOSE csr_usage_exists;
671: -- usage already exists error
672: hr_utility.set_message(801, 'HR_33596_RTU_EXISTS');
673: hr_utility.raise_error;
674: END IF;
675: CLOSE csr_usage_exists;
676: --
677: if l_bg_id is not null then
676: --
677: if l_bg_id is not null then
678: if l_bg_id = p_business_group_id then
679: --
680: hr_utility.trace('valid user child run type id');
681: --
682: else -- in USER mode so BG must not be null
683: -- child run type bg is not same as usage bg, so invalid
684: hr_utility.set_message(801, 'HR_33600_RTU_INV_BG');
680: hr_utility.trace('valid user child run type id');
681: --
682: else -- in USER mode so BG must not be null
683: -- child run type bg is not same as usage bg, so invalid
684: hr_utility.set_message(801, 'HR_33600_RTU_INV_BG');
685: hr_utility.raise_error;
686: end if;
687: else -- l_bg_id is null
688: if l_leg_code is NOT NULL then
681: --
682: else -- in USER mode so BG must not be null
683: -- child run type bg is not same as usage bg, so invalid
684: hr_utility.set_message(801, 'HR_33600_RTU_INV_BG');
685: hr_utility.raise_error;
686: end if;
687: else -- l_bg_id is null
688: if l_leg_code is NOT NULL then
689: --
703: pay_rtu_bus.return_legislation_code(p_run_type_usage_id);
704: end if;
705: --
706: if l_leg_code = l_derived_leg then
707: hr_utility.trace('valid user child run type id');
708: else
709: hr_utility.set_message(801, 'HR_33995_RTU_INV_LEG_U');
710: hr_utility.raise_error;
711: end if;
705: --
706: if l_leg_code = l_derived_leg then
707: hr_utility.trace('valid user child run type id');
708: else
709: hr_utility.set_message(801, 'HR_33995_RTU_INV_LEG_U');
710: hr_utility.raise_error;
711: end if;
712: end if; -- l_leg_code is not null
713: end if; -- l_bg_is not null
706: if l_leg_code = l_derived_leg then
707: hr_utility.trace('valid user child run type id');
708: else
709: hr_utility.set_message(801, 'HR_33995_RTU_INV_LEG_U');
710: hr_utility.raise_error;
711: end if;
712: end if; -- l_leg_code is not null
713: end if; -- l_bg_is not null
714: end if; -- if USER
714: end if; -- if USER
715: --
716: ELSE -- leg_code is not null
717: --
718: hr_utility.set_message(801, 'HR_33993_RTU_INV_BG_LEG');
719: hr_utility.raise_error;
720: --
721: END IF; -- leg code is null
722: --
715: --
716: ELSE -- leg_code is not null
717: --
718: hr_utility.set_message(801, 'HR_33993_RTU_INV_BG_LEG');
719: hr_utility.raise_error;
720: --
721: END IF; -- leg code is null
722: --
723: END IF; -- p_business_group_id is null
720: --
721: END IF; -- leg code is null
722: --
723: END IF; -- p_business_group_id is null
724: hr_utility.set_location(l_proc, 50);
725: end if; -- p_child_run_type is null
726: hr_utility.set_location(l_proc, 55);
727: END IF;
728: hr_utility.set_location('Leaving: '||l_proc, 60);
722: --
723: END IF; -- p_business_group_id is null
724: hr_utility.set_location(l_proc, 50);
725: end if; -- p_child_run_type is null
726: hr_utility.set_location(l_proc, 55);
727: END IF;
728: hr_utility.set_location('Leaving: '||l_proc, 60);
729: END chk_child_run_type_id;
730: -- ---------------------------------------------------------------------------
724: hr_utility.set_location(l_proc, 50);
725: end if; -- p_child_run_type is null
726: hr_utility.set_location(l_proc, 55);
727: END IF;
728: hr_utility.set_location('Leaving: '||l_proc, 60);
729: END chk_child_run_type_id;
730: -- ---------------------------------------------------------------------------
731: -- |-----------------------------< chk_sequence >----------------------------|
732: -- ---------------------------------------------------------------------------
777: and rtu.effective_end_date;
778: --
779: BEGIN
780: --
781: hr_utility.set_location('Entering: '|| l_proc, 5);
782: --
783: -- Only execute the cursor if absolutely necessary.
784: -- a) During update, the sequence has actually changed to another not
785: -- null value, i,e, the value passed to this procedure is different to the
794: nvl(p_sequence, hr_api.g_number))
795: or
796: (p_run_type_usage_id is null)) then
797: --
798: hr_utility.set_location(l_proc, 10);
799: --
800: -- Only need to opent the cursor if is not null
801: --
802: if p_sequence is not null then
805: FETCH csr_chk_valid_sequence INTO l_exists;
806: IF csr_chk_valid_sequence%FOUND THEN
807: --
808: CLOSE csr_chk_valid_sequence;
809: hr_utility.set_message(801, 'HR_33994_RTU_DUP_SEQUENCE');
810: hr_utility.raise_error;
811: END IF;
812: CLOSE csr_chk_valid_sequence;
813: --
806: IF csr_chk_valid_sequence%FOUND THEN
807: --
808: CLOSE csr_chk_valid_sequence;
809: hr_utility.set_message(801, 'HR_33994_RTU_DUP_SEQUENCE');
810: hr_utility.raise_error;
811: END IF;
812: CLOSE csr_chk_valid_sequence;
813: --
814: end if;
811: END IF;
812: CLOSE csr_chk_valid_sequence;
813: --
814: end if;
815: hr_utility.set_location(l_proc, 15);
816: --
817: END IF;
818: hr_utility.set_location('Leaving: '||l_proc, 20);
819: END chk_sequence;
814: end if;
815: hr_utility.set_location(l_proc, 15);
816: --
817: END IF;
818: hr_utility.set_location('Leaving: '||l_proc, 20);
819: END chk_sequence;
820: -- ----------------------------------------------------------------------------
821: -- |--------------------------< dt_update_validate >--------------------------|
822: -- ----------------------------------------------------------------------------
1093: --
1094: l_proc varchar2(72) := g_package||'insert_validate';
1095: --
1096: Begin
1097: hr_utility.set_location('Entering:'||l_proc, 5);
1098: --
1099: -- Call all supporting business operations
1100: --
1101: /* RET removed this call infavour or new chk_startup_action
1113: THEN
1114: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate bus_grp
1115: END IF;
1116: --
1117: hr_utility.set_location(l_proc, 10);
1118: --
1119: chk_parent_run_type_id
1120: (p_run_type_usage_id => p_rec.run_type_usage_id
1121: ,p_parent_run_type_id => p_rec.parent_run_type_id
1122: ,p_effective_date => p_effective_date
1123: ,p_business_group_id => p_rec.business_group_id
1124: ,p_legislation_code => p_rec.legislation_code);
1125: --
1126: hr_utility.set_location(l_proc, 15);
1127: --
1128: chk_child_run_type_id
1129: (p_run_type_usage_id => p_rec.run_type_usage_id
1130: ,p_child_run_type_id => p_rec.child_run_type_id
1132: ,p_effective_date => p_effective_date
1133: ,p_business_group_id => p_rec.business_group_id
1134: ,p_legislation_code => p_rec.legislation_code);
1135: --
1136: hr_utility.set_location(l_proc, 20);
1137: --
1138: chk_sequence (p_run_type_usage_id => p_rec.run_type_usage_id
1139: ,p_parent_run_type_id => p_rec.parent_run_type_id
1140: ,p_sequence => p_rec.sequence
1139: ,p_parent_run_type_id => p_rec.parent_run_type_id
1140: ,p_sequence => p_rec.sequence
1141: ,p_effective_date => p_effective_date);
1142: --
1143: hr_utility.set_location(' Leaving:'||l_proc, 25);
1144: End insert_validate;
1145: --
1146: -- ----------------------------------------------------------------------------
1147: -- |---------------------------< update_validate >----------------------------|
1156: --
1157: l_proc varchar2(72) := g_package||'update_validate';
1158: --
1159: Begin
1160: hr_utility.set_location('Entering:'||l_proc, 5);
1161: --
1162: -- Call all supporting business operations
1163: --
1164: /* RET removed in favour of new chk_startup_data_api
1176: THEN
1177: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate bus_grp
1178: END IF;
1179: --
1180: hr_utility.set_location(l_proc, 10);
1181: --
1182: chk_parent_run_type_id
1183: (p_run_type_usage_id => p_rec.run_type_usage_id
1184: ,p_parent_run_type_id => p_rec.parent_run_type_id
1185: ,p_effective_date => p_effective_date
1186: ,p_business_group_id => p_rec.business_group_id
1187: ,p_legislation_code => p_rec.legislation_code);
1188: --
1189: hr_utility.set_location(l_proc, 15);
1190: --
1191: chk_child_run_type_id
1192: (p_run_type_usage_id => p_rec.run_type_usage_id
1193: ,p_child_run_type_id => p_rec.child_run_type_id
1195: ,p_effective_date => p_effective_date
1196: ,p_business_group_id => p_rec.business_group_id
1197: ,p_legislation_code => p_rec.legislation_code);
1198: --
1199: hr_utility.set_location(l_proc, 20);
1200: --
1201: chk_sequence (p_run_type_usage_id => p_rec.run_type_usage_id
1202: ,p_parent_run_type_id => p_rec.parent_run_type_id
1203: ,p_sequence => p_rec.sequence
1202: ,p_parent_run_type_id => p_rec.parent_run_type_id
1203: ,p_sequence => p_rec.sequence
1204: ,p_effective_date => p_effective_date);
1205: --
1206: hr_utility.set_location(l_proc, 25);
1207: --
1208: -- Call the datetrack update integrity operation
1209: --
1210: dt_update_validate
1214: ,p_validation_start_date => p_validation_start_date
1215: ,p_validation_end_date => p_validation_end_date
1216: );
1217: --
1218: hr_utility.set_location(l_proc, 30);
1219: --
1220: chk_non_updateable_args
1221: (p_effective_date => p_effective_date
1222: ,p_rec => p_rec
1221: (p_effective_date => p_effective_date
1222: ,p_rec => p_rec
1223: );
1224: --
1225: hr_utility.set_location(' Leaving:'||l_proc, 35);
1226: --
1227: End update_validate;
1228: --
1229: -- ----------------------------------------------------------------------------
1239: --
1240: l_proc varchar2(72) := g_package||'delete_validate';
1241: --
1242: Begin
1243: hr_utility.set_location('Entering:'||l_proc, 5);
1244: --
1245: -- Call all supporting business operations
1246: --
1247: chk_startup_action(false
1255: ,p_validation_end_date => p_validation_end_date
1256: ,p_run_type_usage_id => p_rec.run_type_usage_id
1257: );
1258: --
1259: hr_utility.set_location(' Leaving:'||l_proc, 10);
1260: End delete_validate;
1261: --
1262: end pay_rtu_bus;