DBA Data[Home] [Help]

APPS.PAY_ETM_BUS dependencies on HR_UTILITY

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

19: l_api_updating boolean;
20: l_argument varchar2(30);
21: --
22: Begin
23: hr_utility.set_location('Entering:'||l_proc, 5);
24: l_api_updating := pay_etm_shd.api_updating
25: (p_template_id => p_rec.template_id
26: ,p_object_version_number => p_rec.object_version_number
27: );

Line 29: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

25: (p_template_id => p_rec.template_id
26: ,p_object_version_number => p_rec.object_version_number
27: );
28: if not l_api_updating then
29: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
30: hr_utility.set_message_token('PROCEDURE', l_proc);
31: hr_utility.set_message_token('STEP', '10');
32: hr_utility.raise_error;
33: end if;

Line 30: hr_utility.set_message_token('PROCEDURE', l_proc);

26: ,p_object_version_number => p_rec.object_version_number
27: );
28: if not l_api_updating then
29: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
30: hr_utility.set_message_token('PROCEDURE', l_proc);
31: hr_utility.set_message_token('STEP', '10');
32: hr_utility.raise_error;
33: end if;
34: --

Line 31: hr_utility.set_message_token('STEP', '10');

27: );
28: if not l_api_updating then
29: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
30: hr_utility.set_message_token('PROCEDURE', l_proc);
31: hr_utility.set_message_token('STEP', '10');
32: hr_utility.raise_error;
33: end if;
34: --
35: hr_utility.set_location(l_proc, 15);

Line 32: hr_utility.raise_error;

28: if not l_api_updating then
29: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
30: hr_utility.set_message_token('PROCEDURE', l_proc);
31: hr_utility.set_message_token('STEP', '10');
32: hr_utility.raise_error;
33: end if;
34: --
35: hr_utility.set_location(l_proc, 15);
36: --

Line 35: hr_utility.set_location(l_proc, 15);

31: hr_utility.set_message_token('STEP', '10');
32: hr_utility.raise_error;
33: end if;
34: --
35: hr_utility.set_location(l_proc, 15);
36: --
37: -- p_business_group_id
38: --
39: if nvl(p_rec.business_group_id, hr_api.g_number) <>

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

77: then
78: l_argument := 'p_base_name';
79: raise l_error;
80: end if;
81: hr_utility.set_location('Leaving:'||l_proc, 20);
82: exception
83: when l_error then
84: hr_utility.set_location('Leaving:'||l_proc, 25);
85: hr_api.argument_changed_error

Line 84: hr_utility.set_location('Leaving:'||l_proc, 25);

80: end if;
81: hr_utility.set_location('Leaving:'||l_proc, 20);
82: exception
83: when l_error then
84: hr_utility.set_location('Leaving:'||l_proc, 25);
85: hr_api.argument_changed_error
86: (p_api_name => l_proc
87: ,p_argument => l_argument);
88: when others then

Line 89: hr_utility.set_location('Leaving:'||l_proc, 30);

85: hr_api.argument_changed_error
86: (p_api_name => l_proc
87: ,p_argument => l_argument);
88: when others then
89: hr_utility.set_location('Leaving:'||l_proc, 30);
90: raise;
91: End chk_non_updateable_args;
92: -- ----------------------------------------------------------------------------
93: -- |-------------------------< chk_busgrp_legcode >---------------------------|

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

107: l_proc varchar2(72) := g_package||'chk_busgrp_legcode';
108: l_valid varchar2(1);
109: --
110: Begin
111: hr_utility.set_location('Entering:'||l_proc, 5);
112: --
113: -- Check that at least one of legislation_code and business_group_id
114: -- is null.
115: --

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

114: -- is null.
115: --
116: if p_business_group_id is not null and p_legislation_code is not null
117: then
118: hr_utility.set_location(' Leaving:'||l_proc, 10);
119: fnd_message.set_name('PAY', 'PAY_50069_ETM_LEG_BUS_NOT_NULL');
120: fnd_message.raise_error;
121: end if;
122: --

Line 136: hr_utility.set_location(' Leaving:'||l_proc, 15);

132: p_legislation_code <> 'ZZ') then
133: open csr_valid_leg_code;
134: fetch csr_valid_leg_code into l_valid;
135: if csr_valid_leg_code%notfound then
136: hr_utility.set_location(' Leaving:'||l_proc, 15);
137: close csr_valid_leg_code;
138: fnd_message.set_name('PAY', 'PAY_50070_INVALID_LEG_CODE');
139: fnd_message.raise_error;
140: end if;

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

139: fnd_message.raise_error;
140: end if;
141: close csr_valid_leg_code;
142: end if;
143: hr_utility.set_location(' Leaving:'||l_proc, 20);
144: End chk_busgrp_legcode;
145: -- ----------------------------------------------------------------------------
146: -- |--------------------------< chk_template_name >---------------------------|
147: -- ----------------------------------------------------------------------------

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

178: l_legislation_code varchar2(2000);
179: l_exists varchar2(1);
180: --
181: Begin
182: hr_utility.set_location('Entering:'||l_proc, 5);
183: --
184: -- Check that the name is not null.
185: --
186: hr_api.mandatory_arg_error

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

212: );
213: fetch csr_template_name_exists into l_exists;
214: if csr_template_name_exists%found then
215: close csr_template_name_exists;
216: hr_utility.set_location(' Leaving:'||l_proc, 10);
217: fnd_message.set_name('PAY', 'PAY_50071_ETM_NAME_EXISTS');
218: fnd_message.set_token('TEMPLATE_NAME', p_template_name);
219: fnd_message.raise_error;
220: end if;

Line 223: hr_utility.set_location(' Leaving:'||l_proc, 15);

219: fnd_message.raise_error;
220: end if;
221: close csr_template_name_exists;
222: end if;
223: hr_utility.set_location(' Leaving:'||l_proc, 15);
224: End chk_template_name;
225: --
226: -- ----------------------------------------------------------------------------
227: -- |--------------------< chk_base_processing_priority >----------------------|

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

250: l_upper constant number := pay_etm_shd.g_max_processing_priority;
251: l_too_large varchar2(1);
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: l_api_updating := pay_etm_shd.api_updating
256: (p_template_id => p_template_id
257: ,p_object_version_number => p_object_version_number
258: );

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

265: --
266: -- Check that an update is not being done for a template type of 'U'.
267: --
268: if l_api_updating and p_template_type = 'U' then
269: hr_utility.set_location(' Leaving:'||l_proc, 10);
270: fnd_message.set_name('PAY', 'PAY_50072_ETM_PRIORITY_UPDATE');
271: fnd_message.raise_error;
272: end if;
273: --

Line 286: hr_utility.set_location(' Leaving:'||l_proc, 15);

282: -- Check that the base processing priority is reasonable.
283: --
284: if p_base_processing_priority < l_lower or
285: p_base_processing_priority > l_upper then
286: hr_utility.set_location(' Leaving:'||l_proc, 15);
287: fnd_message.set_name('PAY', 'PAY_50073_ETM_PRIORITY_RANGE');
288: fnd_message.set_token('LOWER', l_lower);
289: fnd_message.set_token('UPPER', l_upper);
290: fnd_message.raise_error;

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

292: if l_api_updating then
293: open csr_priority_too_large;
294: fetch csr_priority_too_large into l_too_large;
295: if csr_priority_too_large%found then
296: hr_utility.set_location(' Leaving:'||l_proc, 20);
297: fnd_message.set_name('PAY', 'PAY_50074_ETM_PRI_SUM_RANGE');
298: fnd_message.set_token('LOWER', l_lower);
299: fnd_message.set_token('UPPER', l_upper);
300: fnd_message.raise_error;

Line 305: hr_utility.set_location(' Leaving:'||l_proc, 25);

301: end if;
302: close csr_priority_too_large;
303: end if;
304: end if;
305: hr_utility.set_location(' Leaving:'||l_proc, 25);
306: End chk_base_processing_priority;
307: -- ----------------------------------------------------------------------------
308: -- |-----------------------------< chk_version >------------------------------|
309: -- ----------------------------------------------------------------------------

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

317: l_proc varchar2(72) := g_package||'chk_version_number';
318: l_api_updating boolean;
319: --
320: Begin
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: l_api_updating := pay_etm_shd.api_updating
323: (p_template_id => p_template_id
324: ,p_object_version_number => p_object_version_number
325: );

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

340: --
341: -- Version number may not be updated for template type = 'U'.
342: --
343: if l_api_updating and p_template_type = 'U' then
344: hr_utility.set_location(' Leaving:'||l_proc, 10);
345: fnd_message.set_name('PAY', 'PAY_50084_ETM_VERSION_NO_UPD');
346: fnd_message.raise_error;
347: end if;
348: --

Line 354: hr_utility.set_location(' Leaving:'||l_proc, 15);

350: -- version number.
351: --
352: if l_api_updating and
353: p_version_number < pay_etm_shd.g_old_rec.version_number then
354: hr_utility.set_location(' Leaving:'||l_proc, 15);
355: fnd_message.set_name('PAY', 'PAY_50083_ETM_LOWER_VERSION_NO');
356: fnd_message.raise_error;
357: end if;
358: end if;

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

355: fnd_message.set_name('PAY', 'PAY_50083_ETM_LOWER_VERSION_NO');
356: fnd_message.raise_error;
357: end if;
358: end if;
359: hr_utility.set_location(' Leaving:'||l_proc, 20);
360: End chk_version_number;
361: -- ----------------------------------------------------------------------------
362: -- |--------------------------< chk_template_type >---------------------------|
363: -- ----------------------------------------------------------------------------

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

370: --
371: l_proc varchar2(72) := g_package||'chk_template_type';
372: --
373: Begin
374: hr_utility.set_location('Entering:'||l_proc, 5);
375: --
376: -- Check that the template type is not null.
377: --
378: hr_api.mandatory_arg_error

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

389: ,p_lookup_type => 'ELEMENT_TEMPLATE_TYPE'
390: ,p_lookup_code => p_template_type
391: )
392: then
393: hr_utility.set_location(' Leaving:'||l_proc, 10);
394: fnd_message.set_name('PAY', 'PAY_50082_ETM_BAD_TEMP_TYPE');
395: fnd_message.set_token('TEMPLATE_TYPE', p_template_type);
396: fnd_message.raise_error;
397: end if;

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

401: --
402: if p_template_type = 'U' and
403: (p_legislation_code is not null or p_business_group_id is null)
404: then
405: hr_utility.set_location(' Leaving:'||l_proc, 20);
406: fnd_message.set_name('PAY', 'PAY_50081_ETM_BAD_BUS_GROUP');
407: fnd_message.raise_error;
408: end if;
409: hr_utility.set_location(' Leaving:'||l_proc, 20);

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

405: hr_utility.set_location(' Leaving:'||l_proc, 20);
406: fnd_message.set_name('PAY', 'PAY_50081_ETM_BAD_BUS_GROUP');
407: fnd_message.raise_error;
408: end if;
409: hr_utility.set_location(' Leaving:'||l_proc, 20);
410: End chk_template_type;
411: -- ----------------------------------------------------------------------------
412: -- |-----------------------< chk_max_base_name_length >-----------------------|
413: -- ----------------------------------------------------------------------------

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

423: l_lower constant number := 1;
424: l_upper constant number := 50;
425: --
426: Begin
427: hr_utility.set_location('Entering:'||l_proc, 5);
428: l_api_updating := pay_etm_shd.api_updating
429: (p_template_id => p_template_id
430: ,p_object_version_number => p_object_version_number
431: );

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

447: -- Maximum base name length may not be updated if the template type
448: -- is 'U'
449: --
450: if l_api_updating and p_template_type = 'U' then
451: hr_utility.set_location(' Leaving:'||l_proc, 10);
452: fnd_message.set_name('PAY', 'PAY_50080_ETM_UPD_BASE_NM_LEN');
453: fnd_message.raise_error;
454: end if;
455: --

Line 460: hr_utility.set_location(' Leaving:'||l_proc, 15);

456: -- Check that the length is within limits.
457: --
458: if p_max_base_name_length < l_lower or p_max_base_name_length > l_upper
459: then
460: hr_utility.set_location(' Leaving:'||l_proc, 15);
461: fnd_message.set_name('PAY', 'PAY_50079_ETM_BASE_NAME_LENGTH');
462: fnd_message.set_token('LOWER', l_lower);
463: fnd_message.set_token('UPPER', l_upper);
464: fnd_message.raise_error;

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

463: fnd_message.set_token('UPPER', l_upper);
464: fnd_message.raise_error;
465: end if;
466: end if;
467: hr_utility.set_location(' Leaving:'||l_proc, 20);
468: End chk_max_base_name_length;
469: -- ----------------------------------------------------------------------------
470: -- |-----------------------------< chk_base_name >----------------------------|
471: -- ----------------------------------------------------------------------------

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

504: l_output varchar2(2000);
505: l_rgeflg varchar2(2000);
506: --
507: Begin
508: hr_utility.set_location('Entering:'||l_proc, 5);
509: --
510: -- Check that the base name is null if template type is 'T'.
511: --
512: if p_template_type = 'T' and p_base_name is not null then

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

509: --
510: -- Check that the base name is null if template type is 'T'.
511: --
512: if p_template_type = 'T' and p_base_name is not null then
513: hr_utility.set_location(' Leaving:'||l_proc, 10);
514: fnd_message.set_name('PAY', 'PAY_50078_ETM_BASE_NM_NOT_NULL');
515: fnd_message.raise_error;
516: end if;
517: --

Line 521: hr_utility.set_location(' Leaving:'||l_proc, 15);

517: --
518: -- Return if template type is 'T'.
519: --
520: if p_template_type = 'T' then
521: hr_utility.set_location(' Leaving:'||l_proc, 15);
522: return;
523: end if;
524: --
525: -- Check that the base name is not null.

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

532: --
533: -- Check that the base name is not too long.
534: --
535: if lengthb(p_base_name) > p_max_base_name_length then
536: hr_utility.set_location(' Leaving:'||l_proc, 20);
537: fnd_message.set_name('PAY', 'PAY_50077_ETM_LONG_BASE_NAME');
538: fnd_message.set_token('BASE_NAME', p_base_name);
539: fnd_message.set_token('MAX_LENGTH', p_max_base_name_length);
540: fnd_message.raise_error;

Line 567: hr_utility.set_location(' Leaving:'||l_proc, 22);

563: --
564: open csr_name_exists_for_template;
565: fetch csr_name_exists_for_template into l_exists;
566: if csr_name_exists_for_template%found then
567: hr_utility.set_location(' Leaving:'||l_proc, 22);
568: close csr_name_exists_for_template;
569: fnd_message.set_name('PAY', 'PAY_50076_ETM_BASE_NAME_EXISTS');
570: fnd_message.set_token('BASE_NAME', p_base_name);
571: fnd_message.raise_error;

Line 582: hr_utility.set_location(' Leaving:'||l_proc, 25);

578: --
579: open csr_base_name_exists;
580: fetch csr_base_name_exists into l_exists;
581: if csr_base_name_exists%found then
582: hr_utility.set_location(' Leaving:'||l_proc, 25);
583: close csr_base_name_exists;
584: fnd_message.set_name('PAY', 'PAY_50076_ETM_BASE_NAME_EXISTS');
585: fnd_message.set_token('BASE_NAME', p_base_name);
586: fnd_message.raise_error;

Line 590: hr_utility.set_location(' Leaving:'||l_proc, 30);

586: fnd_message.raise_error;
587: end if;
588: close csr_base_name_exists;
589: end if;
590: hr_utility.set_location(' Leaving:'||l_proc, 30);
591: End chk_base_name;
592: -- ----------------------------------------------------------------------------
593: -- |------------------------------< chk_delete >------------------------------|
594: -- ----------------------------------------------------------------------------

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

622: l_exists varchar2(1);
623: l_error exception;
624: --
625: Begin
626: hr_utility.set_location('Entering:'||l_proc, 5);
627: --
628: open csr_element_types;
629: fetch csr_element_types into l_exists;
630: if csr_element_types%found then

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

627: --
628: open csr_element_types;
629: fetch csr_element_types into l_exists;
630: if csr_element_types%found then
631: hr_utility.set_location(' Leaving:'||l_proc, 10);
632: close csr_element_types;
633: raise l_error;
634: end if;
635: close csr_element_types;

Line 640: hr_utility.set_location(' Leaving:'||l_proc, 15);

636: --
637: open csr_balance_types;
638: fetch csr_balance_types into l_exists;
639: if csr_balance_types%found then
640: hr_utility.set_location(' Leaving:'||l_proc, 15);
641: close csr_balance_types;
642: raise l_error;
643: end if;
644: close csr_balance_types;

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

645: --
646: open csr_exclusion_rules;
647: fetch csr_exclusion_rules into l_exists;
648: if csr_exclusion_rules%found then
649: hr_utility.set_location(' Leaving:'||l_proc, 20);
650: close csr_exclusion_rules;
651: raise l_error;
652: end if;
653: close csr_exclusion_rules;

Line 658: hr_utility.set_location(' Leaving:'||l_proc, 25);

654: --
655: open csr_core_objects;
656: fetch csr_core_objects into l_exists;
657: if csr_core_objects%found then
658: hr_utility.set_location(' Leaving:'||l_proc, 25);
659: close csr_core_objects;
660: raise l_error;
661: end if;
662: close csr_core_objects;

Line 663: hr_utility.set_location(' Leaving:'||l_proc, 30);

659: close csr_core_objects;
660: raise l_error;
661: end if;
662: close csr_core_objects;
663: hr_utility.set_location(' Leaving:'||l_proc, 30);
664: exception
665: when l_error then
666: fnd_message.set_name('PAY', 'PAY_50075_ETM_INVALID_DELETE');
667: fnd_message.raise_error;

Line 669: hr_utility.set_location(' Leaving:'||l_proc, 35);

665: when l_error then
666: fnd_message.set_name('PAY', 'PAY_50075_ETM_INVALID_DELETE');
667: fnd_message.raise_error;
668: when others then
669: hr_utility.set_location(' Leaving:'||l_proc, 35);
670: raise;
671: End chk_delete;
672: -- ----------------------------------------------------------------------------
673: -- |---------------------------< insert_validate >----------------------------|

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

679: --
680: l_proc varchar2(72) := g_package||'insert_validate';
681: --
682: Begin
683: hr_utility.set_location('Entering:'||l_proc, 5);
684: --
685: -- Call all supporting business operations
686: --
687: chk_busgrp_legcode

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

730: ,p_template_id => p_rec.template_id
731: ,p_template_type => p_rec.template_type
732: ,p_object_version_number => p_rec.object_version_number
733: );
734: hr_utility.set_location(' Leaving:'||l_proc, 10);
735: End insert_validate;
736: --
737: -- ----------------------------------------------------------------------------
738: -- |---------------------------< update_validate >----------------------------|

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

744: --
745: l_proc varchar2(72) := g_package||'update_validate';
746: --
747: Begin
748: hr_utility.set_location('Entering:'||l_proc, 5);
749: --
750: -- Call all supporting business operations
751: --
752: chk_non_updateable_args(p_rec => p_rec);

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

770: ,p_template_id => p_rec.template_id
771: ,p_template_type => p_rec.template_type
772: ,p_object_version_number => p_rec.object_version_number
773: );
774: hr_utility.set_location(' Leaving:'||l_proc, 10);
775: End update_validate;
776: --
777: -- ----------------------------------------------------------------------------
778: -- |---------------------------< delete_validate >----------------------------|

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

781: --
782: l_proc varchar2(72) := g_package||'delete_validate';
783: --
784: Begin
785: hr_utility.set_location('Entering:'||l_proc, 5);
786: --
787: -- Call all supporting business operations
788: --
789: chk_delete(p_rec.template_id);

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

786: --
787: -- Call all supporting business operations
788: --
789: chk_delete(p_rec.template_id);
790: hr_utility.set_location(' Leaving:'||l_proc, 10);
791: End delete_validate;
792: --
793: end pay_etm_bus;