24: l_proc varchar2(72) := g_package||'set_security_group_id';
25: --
26: begin
27: --
28: hr_utility.set_location('Entering:'|| l_proc, 10);
29: --
30: -- No business group context. Security group is not applicable.
31: --
32: null;
30: -- No business group context. Security group is not applicable.
31: --
32: null;
33: --
34: hr_utility.set_location(' Leaving:'|| l_proc, 20);
35: --
36: end set_security_group_id;
37: --
38: -- ---------------------------------------------------------------------------
48: l_proc varchar2(72) := g_package||'return_legislation_code';
49: --
50: Begin
51: --
52: hr_utility.set_location('Entering:'|| l_proc, 10);
53: --
54: -- Legislation code not available for form items
55: --
56: l_legislation_code := null;
54: -- Legislation code not available for form items
55: --
56: l_legislation_code := null;
57: --
58: hr_utility.set_location(' Leaving:'|| l_proc, 40);
59: return l_legislation_code;
60: end return_legislation_code;
61: --
62: -- ----------------------------------------------------------------------------
173: l_proc varchar2(72) := g_package || 'chk_application_id';
174: l_api_updating boolean;
175: --
176: Begin
177: hr_utility.set_location('Entering:'||l_proc, 10);
178: --
179: -- Check value has been passed
180: --
181: hr_api.mandatory_arg_error
195: fnd_message.raise_error;
196: END IF;
197: CLOSE cur_chk_app_id;
198:
199: hr_utility.set_location('Leaving:'||l_proc, 100);
200: End chk_application_id;
201: --
202: -- ----------------------------------------------------------------------------
203: -- |-----------------------------< chk_form_id >------------------------------|
220: l_proc varchar2(72) := g_package || 'chk_form_id';
221: l_api_updating boolean;
222: --
223: Begin
224: hr_utility.set_location('Entering:'||l_proc, 10);
225: --
226: -- Check value has been passed
227: --
228: hr_api.mandatory_arg_error
242: fnd_message.raise_error;
243: END IF;
244: CLOSE cur_chk_form_id;
245: --
246: hr_utility.set_location('Leaving:'||l_proc, 100);
247: End chk_form_id;
248: --
249: -- ----------------------------------------------------------------------------
250: -- |--------------------------< chk_form_canvas_id >--------------------------|
265: l_api_updating boolean;
266: l_canvas_type varchar2(30);
267: --
268: Begin
269: hr_utility.set_location('Entering:'||l_proc, 10);
270: --
271: l_api_updating := hr_fim_shd.api_updating
272: (p_form_item_id => p_form_item_id
273: ,p_object_version_number => p_object_version_number
271: l_api_updating := hr_fim_shd.api_updating
272: (p_form_item_id => p_form_item_id
273: ,p_object_version_number => p_object_version_number
274: );
275: hr_utility.set_location(l_proc,20);
276: --
277: -- Only proceed with SQL validation if absolutely necessary
278: --
279: if ( ( l_api_updating
280: and nvl(hr_fim_shd.g_old_rec.form_canvas_id,hr_api.g_number) <>
281: nvl(p_form_canvas_id,hr_api.g_number))
282: or (NOT l_api_updating)) then
283: --
284: hr_utility.set_location(l_proc,30);
285: --
286: -- Check value has been passed
287: --
288: hr_api.mandatory_arg_error
290: ,p_argument => 'form_canvas_id'
291: ,p_argument_value => p_form_canvas_id
292: );
293: --
294: hr_utility.set_location(l_proc,40);
295: --
296: -- Check form canvas exists and is of type CONTENT or TAB
297: --
298: open csr_form_canvas;
305: fnd_message.raise_error;
306: end if;
307: close csr_form_canvas;
308: --
309: hr_utility.set_location(l_proc,50);
310: --
311: if nvl(l_canvas_type,hr_api.g_varchar2) not in ('CONTENT','TAB','STACKED') then
312: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
313: fnd_message.set_token('PROCEDURE', l_proc);
316: end if;
317: --
318: end if;
319: --
320: hr_utility.set_location('Leaving:'||l_proc, 100);
321: End chk_form_canvas_id;
322: --
323: -- ----------------------------------------------------------------------------
324: -- |-------------------------< chk_form_tab_page_id >-------------------------|
333: l_proc varchar2(72) := g_package || 'chk_form_tab_page_id';
334: l_api_updating boolean;
335: --
336: Begin
337: hr_utility.set_location('Entering:'||l_proc, 10);
338: --
339: -- No additional validation required
340: --
341: null;
339: -- No additional validation required
340: --
341: null;
342: --
343: hr_utility.set_location('Leaving:'||l_proc, 100);
344: End chk_form_tab_page_id;
345: --
346: -- ----------------------------------------------------------------------------
347: -- |--------------------------< chk_full_item_name >--------------------------|
358: l_api_updating boolean;
359: l_period_pos number;
360: --
361: Begin
362: hr_utility.set_location('Entering:'||l_proc, 10);
363: --
364: -- Check value has been passed
365: --
366: hr_api.mandatory_arg_error
377: fnd_message.set_token('STEP','10');
378: fnd_message.raise_error;
379: end if;
380: --
381: hr_utility.set_location(l_proc,20);
382: --
383: -- Check value is of the form
384: --
385: l_period_pos := instrb(p_full_item_name,'.',1,1);
412: fnd_message.raise_error;
413: end if;
414: end if;
415: --
416: hr_utility.set_location(' Leaving:'||l_proc, 100);
417: End chk_full_item_name;
418: --
419: -- ----------------------------------------------------------------------------
420: -- |-----------------------------< chk_item_type >----------------------------|
429: l_proc varchar2(72) := g_package || 'chk_item_type';
430: l_api_updating boolean;
431: --
432: Begin
433: hr_utility.set_location('Entering:'||l_proc, 10);
434: --
435: -- Check mandatory arguments have been set
436: --
437: hr_api.mandatory_arg_error
443: l_api_updating := hr_fim_shd.api_updating
444: (p_form_item_id => p_form_item_id
445: ,p_object_version_number => p_object_version_number
446: );
447: hr_utility.set_location(l_proc,20);
448: --
449: -- Only proceed with SQL validation if absolutely necessary
450: --
451: if ( ( l_api_updating
452: and nvl(hr_fim_shd.g_old_rec.item_type,hr_api.g_varchar2) <>
453: nvl(p_item_type,hr_api.g_varchar2))
454: or (NOT l_api_updating)) then
455: --
456: hr_utility.set_location(l_proc,30);
457: --
458: -- Check value has been passed
459: --
460: hr_api.mandatory_arg_error
462: ,p_argument => 'item_type'
463: ,p_argument_value => p_item_type
464: );
465: --
466: hr_utility.set_location(l_proc,40);
467: --
468: -- Must exist in hr_standard_lookups where lookup_type is ITEM_TYPES
469: --
470: if hr_api.not_exists_in_hrstanlookups
479: end if;
480: --
481: end if;
482: --
483: hr_utility.set_location('Leaving:'||l_proc, 100);
484: End chk_item_type;
485: --
486: -- -----------------------------------------------------------------------------
487: -- |--------------------------< chk_radio_button_name >------------------------|
497: l_proc varchar2(72) := g_package || 'chk_radio_button_name';
498: l_api_updating boolean;
499: --
500: Begin
501: hr_utility.set_location('Entering:'||l_proc, 10);
502: --
503: if ( (p_item_type = 'RADIO_BUTTON')
504: and (p_radio_button_name is null) ) then
505: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
520: fnd_message.set_token('STEP','30');
521: fnd_message.raise_error;
522: end if;
523: --
524: hr_utility.set_location('Leaving:'||l_proc, 100);
525: End chk_radio_button_name;
526: --
527: -- ----------------------------------------------------------------------------
528: -- |---------------------< chk_form_tab_page_id_override >--------------------|
537: l_proc varchar2(72) := g_package || 'chk_form_tab_page_id_override';
538: l_api_updating boolean;
539: --
540: Begin
541: hr_utility.set_location('Entering:'||l_proc, 10);
542: --
543: -- No additional validation required
544: --
545: null;
543: -- No additional validation required
544: --
545: null;
546: --
547: hr_utility.set_location('Leaving:'||l_proc, 100);
548: End chk_form_tab_page_id_override;
549: --
550: -- ----------------------------------------------------------------------------
551: -- |-------------------------< chk_required_override >------------------------|
560: l_proc varchar2(72) := g_package || 'chk_required_override';
561: l_api_updating boolean;
562: --
563: Begin
564: hr_utility.set_location('Entering:'||l_proc, 10);
565: --
566: -- Check mandatory arguments have been set
567: --
568: hr_api.mandatory_arg_error
574: l_api_updating := hr_fim_shd.api_updating
575: (p_form_item_id => p_form_item_id
576: ,p_object_version_number => p_object_version_number
577: );
578: hr_utility.set_location(l_proc,20);
579: --
580: -- Only proceed with SQL validation if absolutely necessary
581: --
582: if ( ( l_api_updating
583: and nvl(hr_fim_shd.g_old_rec.required_override,hr_api.g_number) <>
584: nvl(p_required_override,hr_api.g_number))
585: or (NOT l_api_updating)) then
586: --
587: hr_utility.set_location(l_proc,30);
588: --
589: if (p_required_override is not null) then
590: --
591: hr_utility.set_location(l_proc,40);
587: hr_utility.set_location(l_proc,30);
588: --
589: if (p_required_override is not null) then
590: --
591: hr_utility.set_location(l_proc,40);
592: --
593: -- Must exist in hr_standard_lookups where lookup_type is
594: -- PROPERTY_TRUE_OR_FALSE
595: --
607: end if;
608: --
609: end if;
610: --
611: hr_utility.set_location('Leaving:'||l_proc, 100);
612: End chk_required_override;
613: --
614: -- ----------------------------------------------------------------------------
615: -- |-------------------------< chk_visible_override >-------------------------|
624: l_proc varchar2(72) := g_package || 'chk_visible_override';
625: l_api_updating boolean;
626: --
627: Begin
628: hr_utility.set_location('Entering:'||l_proc, 10);
629: --
630: -- Check mandatory arguments have been set
631: --
632: hr_api.mandatory_arg_error
638: l_api_updating := hr_fim_shd.api_updating
639: (p_form_item_id => p_form_item_id
640: ,p_object_version_number => p_object_version_number
641: );
642: hr_utility.set_location(l_proc,20);
643: --
644: -- Only proceed with SQL validation if absolutely necessary
645: --
646: if ( ( l_api_updating
647: and nvl(hr_fim_shd.g_old_rec.visible_override,hr_api.g_number) <>
648: nvl(p_visible_override,hr_api.g_number))
649: or (NOT l_api_updating)) then
650: --
651: hr_utility.set_location(l_proc,30);
652: --
653: if (p_visible_override is not null) then
654: --
655: hr_utility.set_location(l_proc,40);
651: hr_utility.set_location(l_proc,30);
652: --
653: if (p_visible_override is not null) then
654: --
655: hr_utility.set_location(l_proc,40);
656: --
657: -- Must exist in hr_standard_lookups where lookup_type is
658: -- PROPERTY_TRUE_OR_FALSE
659: --
671: end if;
672: --
673: end if;
674: --
675: hr_utility.set_location('Leaving:'||l_proc, 100);
676: End chk_visible_override;
677: --
678: -- ----------------------------------------------------------------------------
679: -- |-----------------------< chk_appl_form_and_canvas >-----------------------|
700: l_application_id number;
701: l_form_id number;
702: --
703: Begin
704: hr_utility.set_location('Entering:'||l_proc, 10);
705: --
706: l_api_updating := hr_fim_shd.api_updating
707: (p_form_item_id => p_form_item_id
708: ,p_object_version_number => p_object_version_number
706: l_api_updating := hr_fim_shd.api_updating
707: (p_form_item_id => p_form_item_id
708: ,p_object_version_number => p_object_version_number
709: );
710: hr_utility.set_location(l_proc,20);
711: --
712: -- Only proceed with SQL validation if absolutely necessary
713: --
714: if ( ( l_api_updating
719: or (nvl(hr_fim_shd.g_old_rec.form_canvas_id,hr_api.g_number) <>
720: nvl(p_form_canvas_id,hr_api.g_number))))
721: or (NOT l_api_updating)) then
722: --
723: hr_utility.set_location(l_proc,30);
724: --
725: -- Check canvas exists and that it references the same form as the item
726: --
727: open csr_form_canvas;
734: fnd_message.raise_error;
735: end if;
736: close csr_form_canvas;
737: --
738: hr_utility.set_location(l_proc,40);
739: --
740: if ( (nvl(p_application_id,hr_api.g_number) <> nvl(l_application_id,hr_api.g_number))
741: or (nvl(p_form_id,hr_api.g_number) <> nvl(l_form_id,hr_api.g_number))) then
742: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
746: end if;
747: --
748: end if;
749: --
750: hr_utility.set_location('Leaving:'||l_proc, 100);
751: --
752: end chk_appl_form_and_canvas;
753: --
754: -- ----------------------------------------------------------------------------
778: l_canvas_type varchar2(30);
779: l_form_canvas_id number;
780: --
781: Begin
782: hr_utility.set_location('Entering:'||l_proc, 10);
783: --
784: l_api_updating := hr_fim_shd.api_updating
785: (p_form_item_id => p_form_item_id
786: ,p_object_version_number => p_object_version_number
784: l_api_updating := hr_fim_shd.api_updating
785: (p_form_item_id => p_form_item_id
786: ,p_object_version_number => p_object_version_number
787: );
788: hr_utility.set_location(l_proc,20);
789: --
790: -- Only proceed with SQL validation if absolutely necessary
791: --
792: if ( ( l_api_updating
797: or (nvl(hr_fim_shd.g_old_rec.form_tab_page_id_override,hr_api.g_number) <>
798: nvl(p_form_tab_page_id_override,hr_api.g_number))))
799: or (NOT l_api_updating)) then
800: --
801: hr_utility.set_location(l_proc,30);
802: --
803: -- Check canvas exists
804: --
805: open csr_form_canvas;
812: fnd_message.raise_error;
813: end if;
814: close csr_form_canvas;
815: --
816: hr_utility.set_location(l_proc,40);
817: --
818: -- Check tab page has been specified for items on tab canvases and the tab
819: -- page references the same canvas as the canvas specified for the item.
820: --
819: -- page references the same canvas as the canvas specified for the item.
820: --
821: if nvl(l_canvas_type,hr_api.g_varchar2) = 'TAB' then
822: --
823: hr_utility.set_location(l_proc,50);
824: --
825: if p_form_tab_page_id is null then
826: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
827: fnd_message.set_token('PROCEDURE', l_proc);
828: fnd_message.set_token('STEP','20');
829: fnd_message.raise_error;
830: end if;
831: --
832: hr_utility.set_location(l_proc,60);
833: --
834: open csr_form_tab_page;
835: fetch csr_form_tab_page into l_form_canvas_id;
836: if csr_form_tab_page%notfound then
841: fnd_message.raise_error;
842: end if;
843: close csr_form_tab_page;
844: --
845: hr_utility.set_location(l_proc,70);
846: --
847: if nvl(p_form_canvas_id,hr_api.g_number) <>
848: nvl(l_form_canvas_id,hr_api.g_number) then
849: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
853: end if;
854: --
855: else
856: --
857: hr_utility.set_location(l_proc,80);
858: --
859: if p_form_tab_page_id is not null then
860: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
861: fnd_message.set_token('PROCEDURE', l_proc);
864: end if;
865: --
866: end if;
867: --
868: hr_utility.set_location(l_proc,90);
869: --
870: -- Check the override tab page is the same as the standard tab page if
871: -- specified
872: --
880: end if;
881: --
882: end if;
883: --
884: hr_utility.set_location('Leaving:'||l_proc, 100);
885: --
886: end chk_canvas_and_tab_pages;
887: --
888: -- ----------------------------------------------------------------------------
894: --
895: l_proc varchar2(72) := g_package||'chk_delete';
896: --
897: Begin
898: hr_utility.set_location('Entering:'||l_proc, 5);
899: --
900: -- No additional validation required
901: --
902: null;
900: -- No additional validation required
901: --
902: null;
903: --
904: hr_utility.set_location(' Leaving:'||l_proc, 10);
905: End chk_delete;
906: --
907: -- ----------------------------------------------------------------------------
908: -- |---------------------------< insert_validate >----------------------------|
914: --
915: l_proc varchar2(72) := g_package||'insert_validate';
916: --
917: Begin
918: hr_utility.set_location('Entering:'||l_proc, 5);
919: --
920: -- Call all supporting business operations
921: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
922: --
1010: ,p_form_tab_page_id => p_rec.form_tab_page_id
1011: ,p_form_tab_page_id_override => p_rec.form_tab_page_id_override
1012: );
1013: --
1014: hr_utility.set_location(' Leaving:'||l_proc, 10);
1015: End insert_validate;
1016: --
1017: -- ----------------------------------------------------------------------------
1018: -- |---------------------------< update_validate >----------------------------|
1024: --
1025: l_proc varchar2(72) := g_package||'update_validate';
1026: --
1027: Begin
1028: hr_utility.set_location('Entering:'||l_proc, 5);
1029: --
1030: -- Call all supporting business operations
1031: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
1032: --
1125: ,p_form_tab_page_id => p_rec.form_tab_page_id
1126: ,p_form_tab_page_id_override => p_rec.form_tab_page_id_override
1127: );
1128: --
1129: hr_utility.set_location(' Leaving:'||l_proc, 10);
1130: End update_validate;
1131: --
1132: -- ----------------------------------------------------------------------------
1133: -- |---------------------------< delete_validate >----------------------------|
1138: --
1139: l_proc varchar2(72) := g_package||'delete_validate';
1140: --
1141: Begin
1142: hr_utility.set_location('Entering:'||l_proc, 5);
1143: --
1144: -- Call all supporting business operations
1145: --
1146: chk_delete
1146: chk_delete
1147: (p_rec => p_rec
1148: );
1149: --
1150: hr_utility.set_location(' Leaving:'||l_proc, 10);
1151: End delete_validate;
1152: --
1153: end hr_fim_bus;