[Home] [Help]
1: Package Body pqp_exr_bus as
2: /* $Header: pqexrrhi.pkb 120.4 2006/10/20 18:38:32 sshetty noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqp_exr_bus.'; -- Global package name
9: --
10: -- The following two global variables are only to be
11: -- used by the return_legislation_code function.
12: --
109: -- The legislation code has already been found with a previous
110: -- call to this function. Just return the value in the global
111: -- variable.
112: --
113: if pqp_exr_bus.g_legislation_code IS NOT NULL THEN
114: l_legislation_code := pqp_exr_bus.g_legislation_code;
115: end if;
116: hr_utility.set_location(l_proc, 20);
117: -- The ID is different to the last call to this function
110: -- call to this function. Just return the value in the global
111: -- variable.
112: --
113: if pqp_exr_bus.g_legislation_code IS NOT NULL THEN
114: l_legislation_code := pqp_exr_bus.g_legislation_code;
115: end if;
116: hr_utility.set_location(l_proc, 20);
117: -- The ID is different to the last call to this function
118: -- or this is the first call to this function.
135: -- Set the global variables so the values are
136: -- available for the next call to this function.
137: --
138: close csr_leg_code;
139: -- pqp_exr_bus.g_exception_report_id := p_exception_report_id;
140: pqp_exr_bus.g_legislation_code := l_legislation_code;
141: -- end if;
142: hr_utility.set_location(' Leaving:'|| l_proc, 40);
143: return l_legislation_code;
136: -- available for the next call to this function.
137: --
138: close csr_leg_code;
139: -- pqp_exr_bus.g_exception_report_id := p_exception_report_id;
140: pqp_exr_bus.g_legislation_code := l_legislation_code;
141: -- end if;
142: hr_utility.set_location(' Leaving:'|| l_proc, 40);
143: return l_legislation_code;
144: end return_legislation_code;
176: -- The legislation code has already been found with a previous
177: -- call to this function. Just return the value in the global
178: -- variable.
179: --
180: if pqp_exr_bus.g_legislation_code is not null and
181: p_exception_report_id = g_exception_report_id then
182: l_legislation_code := pqp_exr_bus.g_legislation_code;
183: hr_utility.set_location(l_proc, 19);
184: else
178: -- variable.
179: --
180: if pqp_exr_bus.g_legislation_code is not null and
181: p_exception_report_id = g_exception_report_id then
182: l_legislation_code := pqp_exr_bus.g_legislation_code;
183: hr_utility.set_location(l_proc, 19);
184: else
185: hr_utility.set_location(l_proc, 20);
186: -- The ID is different to the last call to this function
205: -- available for the next call to this function.
206: --
207: close csr_leg_code;
208: If l_legislation_code is not null then
209: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
210: pqp_exr_bus.g_legislation_code := l_legislation_code;
211: elsif l_exr_legislation_code is not null then
212: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
213: pqp_exr_bus.g_legislation_code := l_exr_legislation_code;
206: --
207: close csr_leg_code;
208: If l_legislation_code is not null then
209: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
210: pqp_exr_bus.g_legislation_code := l_legislation_code;
211: elsif l_exr_legislation_code is not null then
212: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
213: pqp_exr_bus.g_legislation_code := l_exr_legislation_code;
214: end if;
208: If l_legislation_code is not null then
209: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
210: pqp_exr_bus.g_legislation_code := l_legislation_code;
211: elsif l_exr_legislation_code is not null then
212: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
213: pqp_exr_bus.g_legislation_code := l_exr_legislation_code;
214: end if;
215: end if;
216: hr_utility.set_location(' Leaving:'|| l_proc, 40);
209: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
210: pqp_exr_bus.g_legislation_code := l_legislation_code;
211: elsif l_exr_legislation_code is not null then
212: pqp_exr_bus.g_exception_report_id := p_exception_report_id;
213: pqp_exr_bus.g_legislation_code := l_exr_legislation_code;
214: end if;
215: end if;
216: hr_utility.set_location(' Leaving:'|| l_proc, 40);
217: return l_legislation_code;
502: --
503: -- Check whether the balance type id exists within the BG or Leg Code
504: --
505: IF p_legislation_code is NULL THEN
506: l_legislation_code:=pqp_exr_bus.return_legislation_code(p_business_group_id);
507: ELSE
508: l_legislation_code:=p_legislation_code;
509: END IF;
510:
1387: );
1388: --
1389: BEGIN
1390: IF p_legislation_code is NULL THEN
1391: l_legislation_code:=pqp_exr_bus.return_legislation_code(p_business_group_id);
1392: ELSE
1393: l_legislation_code:=p_legislation_code;
1394: END IF;
1395:
1917:
1918: hr_utility.set_location(' Leaving:'||l_proc, 20);
1919: End delete_validate;
1920: --
1921: end pqp_exr_bus;