40: l_api_updating boolean;
41: --
42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := pqh_bce_shd.api_updating
47: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
48: p_object_version_number => p_object_version_number);
68: end if;
69: --
70: end if;
71: --
72: hr_utility.set_location('Leaving:'||l_proc, 10);
73: --
74: End chk_bdgt_cmmtmnt_elmnt_id;
75: --
76: -- ----------------------------------------------------------------------------
112: where a.period_type = p_dflt_elmnt_frequency;
113: --
114: Begin
115: --
116: hr_utility.set_location('Entering:'||l_proc,5);
117: --
118: l_api_updating := pqh_bce_shd.api_updating
119: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
120: p_object_version_number => p_object_version_number);
144: close c1;
145: --
146: end if;
147: --
148: hr_utility.set_location('Leaving:'||l_proc,10);
149: --
150: End chk_dflt_elmnt_frequency;
151: --
152: -- ----------------------------------------------------------------------------
188: where a.budget_id = p_budget_id;
189: --
190: Begin
191: --
192: hr_utility.set_location('Entering:'||l_proc,5);
193: --
194: l_api_updating := pqh_bce_shd.api_updating
195: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
196: p_object_version_number => p_object_version_number);
219: close c1;
220: --
221: end if;
222: --
223: hr_utility.set_location('Leaving:'||l_proc,10);
224: --
225: End chk_budget_id;
226: --
227: -- ----------------------------------------------------------------------------
259: l_api_updating boolean;
260: --
261: Begin
262: --
263: hr_utility.set_location('Entering:'||l_proc, 5);
264: --
265: l_api_updating := pqh_bce_shd.api_updating
266: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
267: p_object_version_number => p_object_version_number);
280: p_effective_date => p_effective_date) then
281: --
282: -- raise error as does not exist as lookup
283: --
284: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
285: hr_utility.raise_error;
286: --
287: end if;
288: --
281: --
282: -- raise error as does not exist as lookup
283: --
284: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
285: hr_utility.raise_error;
286: --
287: end if;
288: --
289: end if;
287: end if;
288: --
289: end if;
290: --
291: hr_utility.set_location('Leaving:'||l_proc,10);
292: --
293: end chk_actual_commitment_type;
294: --
295: -- ----------------------------------------------------------------------------
327: l_api_updating boolean;
328: --
329: Begin
330: --
331: hr_utility.set_location('Entering:'||l_proc, 5);
332: --
333: l_api_updating := pqh_bce_shd.api_updating
334: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
335: p_object_version_number => p_object_version_number);
348: p_effective_date => p_effective_date) then
349: --
350: -- raise error as does not exist as lookup
351: --
352: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
353: hr_utility.raise_error;
354: --
355: end if;
356: --
349: --
350: -- raise error as does not exist as lookup
351: --
352: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
353: hr_utility.raise_error;
354: --
355: end if;
356: --
357: end if;
355: end if;
356: --
357: end if;
358: --
359: hr_utility.set_location('Leaving:'||l_proc,10);
360: --
361: end chk_salary_basis_flag;
362: --
363: -- ----------------------------------------------------------------------------
396: l_count number(9) := 0;
397:
398: Begin
399: --
400: hr_utility.set_location('Entering:'||l_proc, 5);
401:
402: --
403: l_api_updating := pqh_bce_shd.api_updating
404: (p_bdgt_cmmtmnt_elmnt_id => p_bdgt_cmmtmnt_elmnt_id,
408: IF p_element_type_id IS NULL THEN
409: --
410: -- raise error as element is null
411: --
412: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_NULL');
413: hr_utility.raise_error;
414: --
415: END IF;
416: --
409: --
410: -- raise error as element is null
411: --
412: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_NULL');
413: hr_utility.raise_error;
414: --
415: END IF;
416: --
417: -- check if the lement is repeated more then once
423:
424: if l_count <> 0 then
425: -- raise error as element is null
426: --
427: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
428: hr_utility.raise_error;
429: --
430: end if;
431: --
424: if l_count <> 0 then
425: -- raise error as element is null
426: --
427: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
428: hr_utility.raise_error;
429: --
430: end if;
431: --
432: else
437:
438: if l_count <> 0 then
439: -- raise error as element is null
440: --
441: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
442: hr_utility.raise_error;
443: --
444: end if;
445: --
438: if l_count <> 0 then
439: -- raise error as element is null
440: --
441: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
442: hr_utility.raise_error;
443: --
444: end if;
445: --
446:
445: --
446:
447: end if; -- for api_updating
448:
449: hr_utility.set_location('Leaving:'||l_proc,10);
450: --
451: end chk_element_type_id ;
452: --
453: -- ----------------------------------------------------------------------------
462: l_api_updating boolean;
463: --
464: Begin
465: --
466: hr_utility.set_location('Entering:'||l_proc, 5);
467:
468: /* Commmented as element frequency is no longer inputted from the screen
469: IF (p_element_input_value_id IS NULL AND p_frequency_input_value_id IS NOT NULL ) OR
470: (p_element_input_value_id IS NOT NULL AND p_frequency_input_value_id IS NULL ) THEN
470: (p_element_input_value_id IS NOT NULL AND p_frequency_input_value_id IS NULL ) THEN
471: --
472: -- raise error as both are mutually inclusive
473: --
474: hr_utility.set_message(8302,'PQH_INPUT_VALUES_NULL');
475: hr_utility.raise_error;
476: --
477: END IF;
478: */
471: --
472: -- raise error as both are mutually inclusive
473: --
474: hr_utility.set_message(8302,'PQH_INPUT_VALUES_NULL');
475: hr_utility.raise_error;
476: --
477: END IF;
478: */
479: --
485: --
486: -- atleast one of the three must be entered
487: -- raise error
488: --
489: hr_utility.set_message(8302,'PQH_INVALID_CMMT_VALUES');
490: hr_utility.raise_error;
491: --
492: END IF;
493: -- only one basis must be entered, if more than one basis then report error
486: -- atleast one of the three must be entered
487: -- raise error
488: --
489: hr_utility.set_message(8302,'PQH_INVALID_CMMT_VALUES');
490: hr_utility.raise_error;
491: --
492: END IF;
493: -- only one basis must be entered, if more than one basis then report error
494: if p_element_input_value_id is not null then
492: END IF;
493: -- only one basis must be entered, if more than one basis then report error
494: if p_element_input_value_id is not null then
495: if nvl(p_salary_basis_flag,'N') = 'Y' then
496: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
497: hr_utility.raise_error;
498: elsif p_formula_id is not null then
499: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
500: hr_utility.raise_error;
493: -- only one basis must be entered, if more than one basis then report error
494: if p_element_input_value_id is not null then
495: if nvl(p_salary_basis_flag,'N') = 'Y' then
496: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
497: hr_utility.raise_error;
498: elsif p_formula_id is not null then
499: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
500: hr_utility.raise_error;
501: end if;
495: if nvl(p_salary_basis_flag,'N') = 'Y' then
496: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
497: hr_utility.raise_error;
498: elsif p_formula_id is not null then
499: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
500: hr_utility.raise_error;
501: end if;
502: end if;
503: if p_formula_id is not null then
496: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
497: hr_utility.raise_error;
498: elsif p_formula_id is not null then
499: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
500: hr_utility.raise_error;
501: end if;
502: end if;
503: if p_formula_id is not null then
504: if nvl(p_salary_basis_flag,'N') = 'Y' then
501: end if;
502: end if;
503: if p_formula_id is not null then
504: if nvl(p_salary_basis_flag,'N') = 'Y' then
505: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
506: hr_utility.raise_error;
507: elsif p_element_input_value_id is not null then
508: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
509: hr_utility.raise_error;
502: end if;
503: if p_formula_id is not null then
504: if nvl(p_salary_basis_flag,'N') = 'Y' then
505: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
506: hr_utility.raise_error;
507: elsif p_element_input_value_id is not null then
508: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
509: hr_utility.raise_error;
510: end if;
504: if nvl(p_salary_basis_flag,'N') = 'Y' then
505: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
506: hr_utility.raise_error;
507: elsif p_element_input_value_id is not null then
508: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
509: hr_utility.raise_error;
510: end if;
511: end if;
512:
505: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
506: hr_utility.raise_error;
507: elsif p_element_input_value_id is not null then
508: hr_utility.set_message(8302,'PQH_MULTI_CMMT_VALUES');
509: hr_utility.raise_error;
510: end if;
511: end if;
512:
513: --
511: end if;
512:
513: --
514:
515: hr_utility.set_location('Leaving:'||l_proc,10);
516: --
517: end chk_input_values ;
518: --
519: -- ----------------------------------------------------------------------------
525: l_api_updating boolean;
526: --
527: Begin
528: --
529: hr_utility.set_location('Entering:'||l_proc, 5);
530:
531: IF NVL(p_overhead_percentage,0) < 0 THEN
532: --
533: -- raise error as overhead_percentage cannot be negative
531: IF NVL(p_overhead_percentage,0) < 0 THEN
532: --
533: -- raise error as overhead_percentage cannot be negative
534: --
535: hr_utility.set_message(8302,'PQH_INVALID_OVERHEAD_PER');
536: hr_utility.raise_error;
537: --
538: END IF;
539: --
532: --
533: -- raise error as overhead_percentage cannot be negative
534: --
535: hr_utility.set_message(8302,'PQH_INVALID_OVERHEAD_PER');
536: hr_utility.raise_error;
537: --
538: END IF;
539: --
540:
537: --
538: END IF;
539: --
540:
541: hr_utility.set_location('Leaving:'||l_proc,10);
542: --
543: end chk_overhead_percentage ;
544: --
545: -- ----------------------------------------------------------------------------
560: l_count number(9) := 0;
561:
562: Begin
563: --
564: hr_utility.set_location('Entering:'||l_proc, 5);
565:
566: IF p_balance_type_id IS not NULL THEN
567: open csr_balance;
568: fetch csr_balance into l_count;
570:
571: if l_count <> 0 then
572: -- raise error as element is null
573: --
574: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
575: hr_utility.set_warning;
576:
577: --
578: end if;
571: if l_count <> 0 then
572: -- raise error as element is null
573: --
574: hr_utility.set_message(8302,'PQH_BDGT_ELMNT_DUP');
575: hr_utility.set_warning;
576:
577: --
578: end if;
579: --
579: --
580:
581: end if; -- for api_updating
582:
583: hr_utility.set_location('Leaving:'||l_proc,10);
584: --
585: end chk_balance_type_id ;
586: --
587: -- ----------------------------------------------------------------------------
592: --
593: l_proc varchar2(72) := g_package||'insert_validate';
594: --
595: Begin
596: hr_utility.set_location('Entering:'||l_proc, 5);
597: --
598: -- Call all supporting business operations
599: --
600: chk_bdgt_cmmtmnt_elmnt_id
642: /* chk_balance_type_id
643: (p_balance_type_id => p_rec.balance_type_id); */
644: --
645: --
646: hr_utility.set_location(' Leaving:'||l_proc, 10);
647: End insert_validate;
648: --
649: -- ----------------------------------------------------------------------------
650: -- |---------------------------< update_validate >----------------------------|
654: --
655: l_proc varchar2(72) := g_package||'update_validate';
656: --
657: Begin
658: hr_utility.set_location('Entering:'||l_proc, 5);
659: --
660: -- Call all supporting business operations
661: --
662: chk_bdgt_cmmtmnt_elmnt_id
704: /* chk_balance_type_id
705: (p_balance_type_id => p_rec.balance_type_id); */
706: --
707: --
708: hr_utility.set_location(' Leaving:'||l_proc, 10);
709: End update_validate;
710: --
711: -- ----------------------------------------------------------------------------
712: -- |---------------------------< delete_validate >----------------------------|
716: --
717: l_proc varchar2(72) := g_package||'delete_validate';
718: --
719: Begin
720: hr_utility.set_location('Entering:'||l_proc, 5);
721: --
722: -- Call all supporting business operations
723: --
724: hr_utility.set_location(' Leaving:'||l_proc, 10);
720: hr_utility.set_location('Entering:'||l_proc, 5);
721: --
722: -- Call all supporting business operations
723: --
724: hr_utility.set_location(' Leaving:'||l_proc, 10);
725: End delete_validate;
726: --
727: end pqh_bce_bus;