[Home] [Help]
32: l_text fnd_lookup_values.meaning%TYPE;
33: l_proc VARCHAR2(40) := g_package||' range_cursor ';
34: BEGIN
35: --
36: hr_utility.set_location('Entering ' || l_proc,10);
37: --
38: -- Get the legislative parameters used in the call to prove the seed data
39: -- retrict the list of addresses
40: --
37: --
38: -- Get the legislative parameters used in the call to prove the seed data
39: -- retrict the list of addresses
40: --
41: hr_utility.set_location('Step ' || l_proc,20);
42: --
43: -- Return the select string
44: --
45: sqlstr := 'SELECT DISTINCT person_id
48: WHERE ppa.payroll_action_id = :payroll_action_id
49: AND ppa.business_group_id = ppf.business_group_id
50: ORDER BY ppf.person_id';
51: --
52: hr_utility.set_location('Leaving: '||l_proc,50);
53: EXCEPTION
54: WHEN OTHERS THEN
55: hr_utility.set_location(' Leaving with EXCEPTION: '||l_proc,50);
56: -- Return cursor that selects no rows
51: --
52: hr_utility.set_location('Leaving: '||l_proc,50);
53: EXCEPTION
54: WHEN OTHERS THEN
55: hr_utility.set_location(' Leaving with EXCEPTION: '||l_proc,50);
56: -- Return cursor that selects no rows
57: sqlstr := 'select 1 from dual where to_char(:payroll_action_id) = dummy';
58: END range_cursor;
59: -------------------------------------------------------------------------------
112: --
113: l_actid pay_assignment_actions.assignment_action_id%TYPE;
114: --
115: BEGIN
116: hr_utility.set_location('Entering ' || l_proc,20);
117: --
118: if g_cache_payroll_action_id is null
119: or g_cache_payroll_action_id <> pactid then
120: pay_fr_dads_pkg.get_all_parameters (
156: --
157: END LOOP;
158:
159: --
160: hr_utility.set_location('Leaving ' || l_proc, 100);
161: END action_creation;
162: -------------------------------------------------------------------------------
163: -- ARCHIVE_INIT --
164: -- DESCRIPTION : Caches the SRS Parameters
168: --
169: l_proc VARCHAR2(40):= g_package||' archinit ';
170: BEGIN
171: --
172: hr_utility.set_location('Entering ' || l_proc, 10);
173: if g_cache_payroll_action_id is null
174: or g_cache_payroll_action_id <> p_payroll_action_id then
175: pay_fr_dads_pkg.get_all_parameters (
176: p_payroll_action_id => p_payroll_action_id
182: ,p_start_date => g_param_start_date
183: ,p_effective_date => g_param_effective_date);
184: g_cache_payroll_action_id := p_payroll_action_id;
185: end if;
186: hr_utility.set_location('Leaving ' || l_proc, 100);
187: --
188: END;
189: -------------------------------------------------------------------------------
190: -- ARCHIVE CODE
207: and hoi_issue.organization_id = hoi.organization_id
208: and hoi_issue.org_information_context = 'FR_COMP_INFO'
209: and hoi_issue.org_information4 = g_param_issuing_estab_id;
210: BEGIN
211: hr_utility.set_location('Entering ' || l_proc,10);
212:
213: IF g_param_company_id IS NULL THEN
214: for get_compid_rec in get_compid_cur loop
215: -- Call procedure for retrieving S30 data
212:
213: IF g_param_company_id IS NULL THEN
214: for get_compid_rec in get_compid_cur loop
215: -- Call procedure for retrieving S30 data
216: hr_utility.set_location('Calling S30 p_assact_id:'||p_assactid,101);
217: PAY_FR_DADS_EMP_PKG.execS30_G01_00(
218: p_assact_id =>p_assactid
219: ,p_issuing_estab_id => g_param_issuing_estab_id
220: ,p_org_id =>get_compid_rec.organization_id
224: ,p_start_date => g_param_start_date
225: ,p_effective_date => g_param_effective_date);
226: end loop;
227: ELSE
228: hr_utility.set_location('Calling S30-COmp p_assact_id:'||p_assactid,101);
229: PAY_FR_DADS_EMP_PKG.execS30_G01_00(
230: p_assact_id =>p_assactid
231: ,p_issuing_estab_id => g_param_issuing_estab_id
232: ,p_org_id =>g_param_company_id
237: ,p_effective_date => g_param_effective_date);
238:
239: END IF;
240:
241: hr_utility.set_location('Leaving ' || l_proc, 100);
242: --
243: END Archive_Code;
244:
245: -------------------------------------------------------------------------------
255: l_start_pos NUMBER;
256: l_delimiter varchar2(1):=' ';
257: l_proc VARCHAR2(40):= g_package||' get parameter ';
258: BEGIN
259: hr_utility.set_location('Entering ' || l_proc, 20);
260: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
261: IF l_start_pos = 0 THEN
262: l_delimiter := '|';
263: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
276: instr(l_parameter,':',1,p_segment_number+1) -1
277: - instr(l_parameter,':',1,p_segment_number));
278: END IF;
279: END IF;
280: hr_utility.set_location('Leaving ' || l_proc, 100);
281: RETURN l_parameter;
282: END get_parameter;
283: -------------------------------------------------------------------------------
284: -- GET_ALL_PARAMETERS gets all parameters for the payroll action
306: --
307: l_proc VARCHAR2(40):= g_package||' get_all_parameters ';
308:
309: BEGIN
310: hr_utility.set_location('Entering ' || l_proc, 20);
311: open csr_parameter_info (p_payroll_action_id);
312: fetch csr_parameter_info into p_issuing_estab_id, p_company_id, p_estab_id
313: ,p_business_group_id, p_reference, p_start_date
314: ,p_effective_date;
313: ,p_business_group_id, p_reference, p_start_date
314: ,p_effective_date;
315: close csr_parameter_info;
316:
317: hr_utility.set_location('Leaving ' || l_proc, 100);
318: END;
319: -------------------------------------------------------------------------------
320: -- DEINITIALIZE
321: -- DESCRIPTION : Called once per payroll action;