1: Package Body PAY_BALANCE_TYPES_API as
2: /* $Header: pybltapi.pkb 120.0 2005/05/29 03:20:37 appldev noship $ */
3: --
4: -- Package Variables
5: --
2: /* $Header: pybltapi.pkb 120.0 2005/05/29 03:20:37 appldev noship $ */
3: --
4: -- Package Variables
5: --
6: g_package varchar2(33) := ' PAY_BALANCE_TYPES_API.';
7: --
8: -- ----------------------------------------------------------------------------
9: -- |--------------------------< CREATE_BAL_TYPE >--------------------------|
10: -- ----------------------------------------------------------------------------
55: -- Declare cursors and local variables
56: --
57: l_in_out_parameter number;
58: l_effective_date date;
59: l_balance_type_id pay_balance_types.balance_type_id%type;
60: l_object_version_number pay_balance_types.object_version_number%type;
61: l_default_currency_code pay_balance_types.currency_code%type;
62: l_proc varchar2(72) := g_package||'create_bal_type';
63: begin
56: --
57: l_in_out_parameter number;
58: l_effective_date date;
59: l_balance_type_id pay_balance_types.balance_type_id%type;
60: l_object_version_number pay_balance_types.object_version_number%type;
61: l_default_currency_code pay_balance_types.currency_code%type;
62: l_proc varchar2(72) := g_package||'create_bal_type';
63: begin
64: hr_utility.set_location('Entering:'|| l_proc, 10);
57: l_in_out_parameter number;
58: l_effective_date date;
59: l_balance_type_id pay_balance_types.balance_type_id%type;
60: l_object_version_number pay_balance_types.object_version_number%type;
61: l_default_currency_code pay_balance_types.currency_code%type;
62: l_proc varchar2(72) := g_package||'create_bal_type';
63: begin
64: hr_utility.set_location('Entering:'|| l_proc, 10);
65: --
103: --
104: -- Call Before Process User Hook
105: --
106: begin
107: PAY_BALANCE_TYPES_BK1.create_bal_type_b
108: (p_effective_date => l_effective_date
109: ,p_language_code => p_language_code
110: ,p_balance_name => p_balance_name
111: ,p_balance_uom => p_balance_uom
197: );
198: --
199: hr_utility.set_location('Entering:'|| l_proc, 50);
200: --
201: -- Create default entries in pay_balance_types_tl table
202: --
203: pay_btt_ins.ins_tl
204: (p_language_code => p_language_code
205: ,p_balance_type_id => l_balance_type_id
212: --
213: hr_utility.set_location('Entering:'|| l_proc, 60);
214: --
215: begin
216: PAY_BALANCE_TYPES_BK1.create_bal_type_a
217: (p_effective_date => l_effective_date
218: ,p_language_code => p_language_code
219: ,p_balance_name => p_balance_name
220: ,p_balance_uom => p_balance_uom
354: --
355: cursor csr_derived_values
356: is
357: select business_group_id,legislation_code,legislation_subgroup
358: from pay_balance_types
359: where balance_type_id = p_balance_type_id;
360:
361:
362: l_business_group_id pay_balance_types.business_group_id%type;
358: from pay_balance_types
359: where balance_type_id = p_balance_type_id;
360:
361:
362: l_business_group_id pay_balance_types.business_group_id%type;
363: l_legislation_code pay_balance_types.legislation_code%type;
364: l_legislation_subgroup pay_balance_types.legislation_subgroup%type;
365: l_object_version_number pay_balance_types.object_version_number%type;
366: l_default_currency_code pay_balance_types.currency_code%type;
359: where balance_type_id = p_balance_type_id;
360:
361:
362: l_business_group_id pay_balance_types.business_group_id%type;
363: l_legislation_code pay_balance_types.legislation_code%type;
364: l_legislation_subgroup pay_balance_types.legislation_subgroup%type;
365: l_object_version_number pay_balance_types.object_version_number%type;
366: l_default_currency_code pay_balance_types.currency_code%type;
367: l_balance_name_warning number;
360:
361:
362: l_business_group_id pay_balance_types.business_group_id%type;
363: l_legislation_code pay_balance_types.legislation_code%type;
364: l_legislation_subgroup pay_balance_types.legislation_subgroup%type;
365: l_object_version_number pay_balance_types.object_version_number%type;
366: l_default_currency_code pay_balance_types.currency_code%type;
367: l_balance_name_warning number;
368: l_effective_date date;
361:
362: l_business_group_id pay_balance_types.business_group_id%type;
363: l_legislation_code pay_balance_types.legislation_code%type;
364: l_legislation_subgroup pay_balance_types.legislation_subgroup%type;
365: l_object_version_number pay_balance_types.object_version_number%type;
366: l_default_currency_code pay_balance_types.currency_code%type;
367: l_balance_name_warning number;
368: l_effective_date date;
369: l_proc varchar2(72) := g_package||'UPDATE_BAL_TYPE';
362: l_business_group_id pay_balance_types.business_group_id%type;
363: l_legislation_code pay_balance_types.legislation_code%type;
364: l_legislation_subgroup pay_balance_types.legislation_subgroup%type;
365: l_object_version_number pay_balance_types.object_version_number%type;
366: l_default_currency_code pay_balance_types.currency_code%type;
367: l_balance_name_warning number;
368: l_effective_date date;
369: l_proc varchar2(72) := g_package||'UPDATE_BAL_TYPE';
370: begin
389: --
390: -- Call Before Process User Hook
391: --
392: begin
393: PAY_BALANCE_TYPES_BK2.update_bal_type_b
394: (p_effective_date => l_effective_date
395: ,p_language_code => p_language_code
396: ,p_balance_type_id => p_balance_type_id
397: ,p_object_version_number => l_object_version_number
533: --
534: -- Call After Process User Hook
535: --
536: begin
537: PAY_BALANCE_TYPES_BK2.update_bal_type_a
538: (p_effective_date => l_effective_date
539: ,p_language_code => p_language_code
540: ,p_balance_type_id => p_balance_type_id
541: ,p_object_version_number => l_object_version_number
654: --
655: -- Call Before Process User Hook
656: --
657: begin
658: PAY_BALANCE_TYPES_BK3.delete_bal_type_b
659: (p_balance_type_id => p_balance_type_id
660: ,p_object_version_number => l_object_version_number
661: );
662: exception
696: --
697: -- Call After Process User Hook
698: --
699: begin
700: PAY_BALANCE_TYPES_BK3.delete_bal_type_a
701: (p_balance_type_id => p_balance_type_id
702: ,p_object_version_number => l_object_version_number
703: );
704: exception
748: hr_utility.set_location(' Leaving:'||l_proc, 90);
749: raise;
750: end DELETE_BAL_TYPE;
751: --
752: end PAY_BALANCE_TYPES_API;