DBA Data[Home] [Help]

APPS.HXC_TCC_BUS dependencies on HR_UTILITY

Line 10: g_debug boolean := hr_utility.debug_enabled;

6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_tcc_bus.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- ----------------------------------------------------------------------------
13: -- |-----------------------< chk_non_updateable_args >------------------------|
14: -- ----------------------------------------------------------------------------

Line 119: g_debug := hr_utility.debug_enabled;

115: l_ok varchar2(2) := NULL;
116:
117: BEGIN
118:
119: g_debug := hr_utility.debug_enabled;
120:
121: if g_debug then
122: l_proc := g_package||'chk_component_type_id';
123: hr_utility.set_location('Entering:'||l_proc, 5);

Line 123: hr_utility.set_location('Entering:'||l_proc, 5);

119: g_debug := hr_utility.debug_enabled;
120:
121: if g_debug then
122: l_proc := g_package||'chk_component_type_id';
123: hr_utility.set_location('Entering:'||l_proc, 5);
124: end if;
125:
126: IF ( p_component_type_id IS NOT NULL )
127: THEN

Line 129: hr_utility.set_location('Processing:'||l_proc, 10);

125:
126: IF ( p_component_type_id IS NOT NULL )
127: THEN
128: if g_debug then
129: hr_utility.set_location('Processing:'||l_proc, 10);
130: end if;
131:
132: -- check that mapping component id is valid
133:

Line 141: hr_utility.set_message(809, 'HXC_TCC_MPC_INVALID');

137:
138: IF l_ok IS NULL
139: THEN
140:
141: hr_utility.set_message(809, 'HXC_TCC_MPC_INVALID');
142: hr_utility.raise_error;
143:
144: END IF;
145:

Line 142: hr_utility.raise_error;

138: IF l_ok IS NULL
139: THEN
140:
141: hr_utility.set_message(809, 'HXC_TCC_MPC_INVALID');
142: hr_utility.raise_error;
143:
144: END IF;
145:
146: END IF;

Line 149: hr_utility.set_location('Leaving:'||l_proc, 20);

145:
146: END IF;
147:
148: if g_debug then
149: hr_utility.set_location('Leaving:'||l_proc, 20);
150: end if;
151:
152: END chk_component_type_id;
153:

Line 226: g_debug := hr_utility.debug_enabled;

222:
223: l_proc varchar2(72);
224:
225: BEGIN
226: g_debug := hr_utility.debug_enabled;
227:
228: if g_debug then
229: l_proc := g_package||'chk_for_parent_category';
230: hr_utility.set_location('Processing:'||l_proc, 5);

Line 230: hr_utility.set_location('Processing:'||l_proc, 5);

226: g_debug := hr_utility.debug_enabled;
227:
228: if g_debug then
229: l_proc := g_package||'chk_for_parent_category';
230: hr_utility.set_location('Processing:'||l_proc, 5);
231: end if;
232:
233: -- get any time category components of the child time category code
234: -- and make sure none are equal to the parent time category

Line 244: hr_utility.set_location('Processing:'||l_proc, 10);

240:
241: WHILE csr_get_child_comps%FOUND
242: LOOP
243: if g_debug then
244: hr_utility.set_location('Processing:'||l_proc, 10);
245: end if;
246:
247: IF ( l_ref_comp_time_cat_id = p_time_category_id )
248: THEN

Line 249: hr_utility.set_message(809, 'HXC_TCC_TC_CANNOT_REF_PARENT');

245: end if;
246:
247: IF ( l_ref_comp_time_cat_id = p_time_category_id )
248: THEN
249: hr_utility.set_message(809, 'HXC_TCC_TC_CANNOT_REF_PARENT');
250: hr_utility.raise_error;
251: ELSE
252:
253: if g_debug then

Line 250: hr_utility.raise_error;

246:
247: IF ( l_ref_comp_time_cat_id = p_time_category_id )
248: THEN
249: hr_utility.set_message(809, 'HXC_TCC_TC_CANNOT_REF_PARENT');
250: hr_utility.raise_error;
251: ELSE
252:
253: if g_debug then
254: hr_utility.set_location('Processing:'||l_proc, 15);

Line 254: hr_utility.set_location('Processing:'||l_proc, 15);

250: hr_utility.raise_error;
251: ELSE
252:
253: if g_debug then
254: hr_utility.set_location('Processing:'||l_proc, 15);
255: end if;
256:
257: chk_for_parent_category ( p_time_category_id => p_time_category_id
258: , p_ref_time_category_id => l_ref_comp_time_cat_id );

Line 269: hr_utility.set_location('Processing:'||l_proc, 20);

265:
266: CLOSE csr_get_child_comps;
267:
268: if g_debug then
269: hr_utility.set_location('Processing:'||l_proc, 20);
270: end if;
271:
272: END chk_for_parent_category;
273:

Line 278: g_debug := hr_utility.debug_enabled;

274:
275:
276: BEGIN -- chk_time_category_code
277:
278: g_debug := hr_utility.debug_enabled;
279:
280: if g_debug then
281: l_proc := g_package||'chk_time_category_code';
282: hr_utility.set_location('Entering:'||l_proc, 10);

Line 282: hr_utility.set_location('Entering:'||l_proc, 10);

278: g_debug := hr_utility.debug_enabled;
279:
280: if g_debug then
281: l_proc := g_package||'chk_time_category_code';
282: hr_utility.set_location('Entering:'||l_proc, 10);
283: end if;
284:
285: IF ( p_ref_time_category_id IS NOT NULL )
286: THEN

Line 289: hr_utility.set_location('Processing:'||l_proc, 20);

285: IF ( p_ref_time_category_id IS NOT NULL )
286: THEN
287:
288: if g_debug then
289: hr_utility.set_location('Processing:'||l_proc, 20);
290: end if;
291:
292: -- check that time category code is valid
293:

Line 299: hr_utility.set_location('Processing:'||l_proc, 30);

295: FETCH csr_chk_time_category_code INTO l_ok;
296: CLOSE csr_chk_time_category_code;
297:
298: if g_debug then
299: hr_utility.set_location('Processing:'||l_proc, 30);
300: end if;
301:
302: IF l_ok IS NULL
303: THEN

Line 305: hr_utility.set_message(809, 'HXC_TCC_TC_INVALID');

301:
302: IF l_ok IS NULL
303: THEN
304:
305: hr_utility.set_message(809, 'HXC_TCC_TC_INVALID');
306: hr_utility.raise_error;
307:
308: END IF;
309:

Line 306: hr_utility.raise_error;

302: IF l_ok IS NULL
303: THEN
304:
305: hr_utility.set_message(809, 'HXC_TCC_TC_INVALID');
306: hr_utility.raise_error;
307:
308: END IF;
309:
310: if g_debug then

Line 311: hr_utility.set_location('Processing:'||l_proc, 40);

307:
308: END IF;
309:
310: if g_debug then
311: hr_utility.set_location('Processing:'||l_proc, 40);
312: end if;
313:
314: -- check that time category code is unique
315:

Line 323: hr_utility.set_location('Leaving:'||l_proc, 60);

319:
320: IF l_error IS NOT NULL
321: THEN
322: if g_debug then
323: hr_utility.set_location('Leaving:'||l_proc, 60);
324: end if;
325:
326: hr_utility.set_message(809, 'HXC_TCC_TC_ALREADY_USED');
327: hr_utility.raise_error;

Line 326: hr_utility.set_message(809, 'HXC_TCC_TC_ALREADY_USED');

322: if g_debug then
323: hr_utility.set_location('Leaving:'||l_proc, 60);
324: end if;
325:
326: hr_utility.set_message(809, 'HXC_TCC_TC_ALREADY_USED');
327: hr_utility.raise_error;
328:
329: END IF;
330:

Line 327: hr_utility.raise_error;

323: hr_utility.set_location('Leaving:'||l_proc, 60);
324: end if;
325:
326: hr_utility.set_message(809, 'HXC_TCC_TC_ALREADY_USED');
327: hr_utility.raise_error;
328:
329: END IF;
330:
331: -- check to see if the time category code components include

Line 339: hr_utility.set_location('Leaving:'||l_proc, 70);

335: chk_for_parent_category ( p_time_category_id => p_time_category_id
336: , p_ref_time_category_id => p_ref_time_category_id );
337:
338: if g_debug then
339: hr_utility.set_location('Leaving:'||l_proc, 70);
340: end if;
341: END IF;
342:
343: END chk_time_category_code;

Line 378: g_debug := hr_utility.debug_enabled;

374: l_description varchar2(150) := NULL;
375:
376: BEGIN
377:
378: g_debug := hr_utility.debug_enabled;
379:
380: IF ( p_value_id IS NOT NULL )
381: THEN
382:

Line 385: hr_utility.set_location('Entering:'||l_proc, 5);

381: THEN
382:
383: if g_debug then
384: l_proc := g_package||'chk_value_id';
385: hr_utility.set_location('Entering:'||l_proc, 5);
386: end if;
387:
388: l_description := hxc_time_category_utils_pkg.get_flex_value (p_flex_value_set_id, p_value_id );
389:

Line 392: hr_utility.set_message(809, 'HXC_TCC_VALUE_INVALID');

388: l_description := hxc_time_category_utils_pkg.get_flex_value (p_flex_value_set_id, p_value_id );
389:
390: IF ( l_description IS NULL )
391: THEN
392: hr_utility.set_message(809, 'HXC_TCC_VALUE_INVALID');
393: hr_utility.raise_error;
394: END IF;
395:
396: if g_debug then

Line 393: hr_utility.raise_error;

389:
390: IF ( l_description IS NULL )
391: THEN
392: hr_utility.set_message(809, 'HXC_TCC_VALUE_INVALID');
393: hr_utility.raise_error;
394: END IF;
395:
396: if g_debug then
397: hr_utility.set_location('Leaving:'||l_proc, 20);

Line 397: hr_utility.set_location('Leaving:'||l_proc, 20);

393: hr_utility.raise_error;
394: END IF;
395:
396: if g_debug then
397: hr_utility.set_location('Leaving:'||l_proc, 20);
398: end if;
399:
400: END IF;
401:

Line 472: g_debug := hr_utility.debug_enabled;

468: l_description varchar2(150) := NULL;
469:
470: BEGIN
471:
472: g_debug := hr_utility.debug_enabled;
473:
474: -- first of all check to see that mapping component and value combo
475: -- are unique
476:

Line 483: hr_utility.set_location('Entering:'||l_proc, 10);

479: CLOSE csr_chk_mpc;
480:
481: if g_debug then
482: l_proc := g_package||'chk_mpc_value_id';
483: hr_utility.set_location('Entering:'||l_proc, 10);
484: end if;
485:
486: IF l_error IS NOT NULL
487: THEN

Line 489: hr_utility.set_message(809, 'HXC_TCC_MPC_VALUE_ALREADY_USED');

485:
486: IF l_error IS NOT NULL
487: THEN
488:
489: hr_utility.set_message(809, 'HXC_TCC_MPC_VALUE_ALREADY_USED');
490: hr_utility.raise_error;
491:
492: END IF;
493:

Line 490: hr_utility.raise_error;

486: IF l_error IS NOT NULL
487: THEN
488:
489: hr_utility.set_message(809, 'HXC_TCC_MPC_VALUE_ALREADY_USED');
490: hr_utility.raise_error;
491:
492: END IF;
493:
494: if g_debug then

Line 495: hr_utility.set_location('Entering:'||l_proc, 15);

491:
492: END IF;
493:
494: if g_debug then
495: hr_utility.set_location('Entering:'||l_proc, 15);
496: end if;
497:
498: END chk_mpc_value_id;
499:

Line 544: g_debug := hr_utility.debug_enabled;

540: l_ok varchar2(2) := NULL;
541:
542: BEGIN
543:
544: g_debug := hr_utility.debug_enabled;
545:
546: IF ( p_flex_value_set_id IS NULL AND p_value_id IS NOT NULL and p_type IN ('MC','MC_VS') )
547: THEN
548:

Line 549: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_MAND');

545:
546: IF ( p_flex_value_set_id IS NULL AND p_value_id IS NOT NULL and p_type IN ('MC','MC_VS') )
547: THEN
548:
549: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_MAND');
550: hr_utility.raise_error;
551:
552: ELSIF ( p_flex_value_set_id IN ( -1,-2 ) )
553: THEN

Line 550: hr_utility.raise_error;

546: IF ( p_flex_value_set_id IS NULL AND p_value_id IS NOT NULL and p_type IN ('MC','MC_VS') )
547: THEN
548:
549: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_MAND');
550: hr_utility.raise_error;
551:
552: ELSIF ( p_flex_value_set_id IN ( -1,-2 ) )
553: THEN
554:

Line 578: hr_utility.set_location('Entering:'||l_proc, 5);

574: THEN
575:
576: if g_debug then
577: l_proc := g_package||'chk_flex_value_set_id';
578: hr_utility.set_location('Entering:'||l_proc, 5);
579: end if;
580:
581: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_INV');
582: hr_utility.raise_error;

Line 581: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_INV');

577: l_proc := g_package||'chk_flex_value_set_id';
578: hr_utility.set_location('Entering:'||l_proc, 5);
579: end if;
580:
581: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_INV');
582: hr_utility.raise_error;
583:
584: END IF;
585:

Line 582: hr_utility.raise_error;

578: hr_utility.set_location('Entering:'||l_proc, 5);
579: end if;
580:
581: hr_utility.set_message(809, 'HXC_TCC_FLEX_VALUE_SET_ID_INV');
582: hr_utility.raise_error;
583:
584: END IF;
585:
586: if g_debug then

Line 587: hr_utility.set_location('Leaving:'||l_proc, 20);

583:
584: END IF;
585:
586: if g_debug then
587: hr_utility.set_location('Leaving:'||l_proc, 20);
588: end if;
589:
590: END chk_flex_value_set_id;
591:

Line 602: g_debug := hr_utility.debug_enabled;

598: --
599: l_proc varchar2(72);
600: --
601: Begin
602: g_debug := hr_utility.debug_enabled;
603:
604: if g_debug then
605: l_proc := g_package||'insert_validate';
606: hr_utility.set_location('Entering:'||l_proc, 5);

Line 606: hr_utility.set_location('Entering:'||l_proc, 5);

602: g_debug := hr_utility.debug_enabled;
603:
604: if g_debug then
605: l_proc := g_package||'insert_validate';
606: hr_utility.set_location('Entering:'||l_proc, 5);
607: end if;
608: --
609: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
610: -- CLIENT_INFO not set. No lookup validation or joins to HR_LOOKUPS.

Line 615: hr_utility.set_location('Processing:'||l_proc, 10);

611: --
612: -- Call all supporting business operations
613:
614: if g_debug then
615: hr_utility.set_location('Processing:'||l_proc, 10);
616: end if;
617:
618: IF ( p_rec.component_type_id IS NOT NULL AND p_rec.type = 'MC' )
619: THEN

Line 621: hr_utility.set_location('Processing:'||l_proc, 20);

617:
618: IF ( p_rec.component_type_id IS NOT NULL AND p_rec.type = 'MC' )
619: THEN
620: if g_debug then
621: hr_utility.set_location('Processing:'||l_proc, 20);
622: end if;
623:
624: chk_component_type_id ( p_component_type_id => p_rec.component_type_id
625: ,p_time_category_id => p_rec.time_category_id

Line 646: hr_utility.set_location('Processing:'||l_proc, 30);

642: ELSIF ( p_rec.type = 'TC' )
643: THEN
644:
645: if g_debug then
646: hr_utility.set_location('Processing:'||l_proc, 30);
647: end if;
648:
649: chk_time_category_code ( p_ref_time_category_id => p_rec.ref_time_category_id
650: ,p_time_category_id => p_rec.time_category_id

Line 657: hr_utility.set_location('Processing:'||l_proc, 35);

653: ELSIF ( p_rec.type = 'AN' ) --Fix for bug 4336172
654: THEN
655:
656: if g_debug then
657: hr_utility.set_location('Processing:'||l_proc, 35);
658: end if;
659:
660: chk_mpc_value_id ( p_time_category_id => p_rec.time_category_id,
661: p_time_category_comp_id => p_rec.time_category_comp_id,

Line 670: hr_utility.set_location('Processing:'||l_proc, 40);

666:
667: END IF;
668:
669: if g_debug then
670: hr_utility.set_location('Processing:'||l_proc, 40);
671: end if;
672:
673: End insert_validate;
674: --

Line 685: g_debug := hr_utility.debug_enabled;

681: --
682: l_proc varchar2(72);
683: --
684: Begin
685: g_debug := hr_utility.debug_enabled;
686:
687: if g_debug then
688: l_proc := g_package||'update_validate';
689: hr_utility.set_location('Entering:'||l_proc, 5);

Line 689: hr_utility.set_location('Entering:'||l_proc, 5);

685: g_debug := hr_utility.debug_enabled;
686:
687: if g_debug then
688: l_proc := g_package||'update_validate';
689: hr_utility.set_location('Entering:'||l_proc, 5);
690: end if;
691:
692: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
693: -- CLIENT_INFO not set. No lookup validation or joins to HR_LOOKUPS.

Line 698: hr_utility.set_location('Processing:'||l_proc, 10);

694:
695: -- Call all supporting business operations
696:
697: if g_debug then
698: hr_utility.set_location('Processing:'||l_proc, 10);
699: end if;
700:
701: IF ( p_rec.ref_time_category_id IS NOT NULL )
702: THEN

Line 704: hr_utility.set_location('Processing:'||l_proc, 20);

700:
701: IF ( p_rec.ref_time_category_id IS NOT NULL )
702: THEN
703: if g_debug then
704: hr_utility.set_location('Processing:'||l_proc, 20);
705: end if;
706:
707: chk_time_category_code ( p_ref_time_category_id => p_rec.ref_time_category_id
708: ,p_time_category_id => p_rec.time_category_id

Line 715: hr_utility.set_location('Processing:'||l_proc, 30);

711: ELSIF ( p_rec.type = 'MC' )
712: THEN
713:
714: if g_debug then
715: hr_utility.set_location('Processing:'||l_proc, 30);
716: end if;
717:
718: chk_component_type_id ( p_component_type_id => p_rec.component_type_id
719: ,p_time_category_id => p_rec.time_category_id

Line 738: hr_utility.set_location('Processing:'||l_proc, 40);

734: p_type => p_rec.type );
735: END IF;
736:
737: if g_debug then
738: hr_utility.set_location('Processing:'||l_proc, 40);
739: end if;
740:
741: chk_non_updateable_args
742: (p_rec => p_rec

Line 746: hr_utility.set_location(' Leaving:'||l_proc, 50);

742: (p_rec => p_rec
743: );
744:
745: if g_debug then
746: hr_utility.set_location(' Leaving:'||l_proc, 50);
747: end if;
748: End update_validate;
749: --
750: -- ----------------------------------------------------------------------------

Line 761: g_debug := hr_utility.debug_enabled;

757: l_proc varchar2(72);
758: --
759: Begin
760:
761: g_debug := hr_utility.debug_enabled;
762:
763: if g_debug then
764: l_proc := g_package||'delete_validate';
765: hr_utility.set_location('Entering:'||l_proc, 5);

Line 765: hr_utility.set_location('Entering:'||l_proc, 5);

761: g_debug := hr_utility.debug_enabled;
762:
763: if g_debug then
764: l_proc := g_package||'delete_validate';
765: hr_utility.set_location('Entering:'||l_proc, 5);
766: end if;
767:
768: -- Call all supporting business operations
769:

Line 776: hr_utility.set_location(' Leaving:'||l_proc, 10);

772: hxc_time_category_utils_pkg.delete_time_category_comp_sql ( p_rec );
773: END IF;
774:
775: if g_debug then
776: hr_utility.set_location(' Leaving:'||l_proc, 10);
777: end if;
778: End delete_validate;
779: --
780: end hxc_tcc_bus;