1: PACKAGE BODY PAY_NO_UNION_DUES AS
2: /* $Header: pynouniondues.pkb 120.3.12000000.1 2007/05/20 07:58:20 rlingama noship $ */
3:
4: g_debug boolean := hr_utility.debug_enabled;
5: l_business_id NUMBER;
6: l_leg_emp_id NUMBER;
7: l_effective_date DATE;
8: l_payee_org NUMBER;
23: l_delimiter VARCHAR2(1):=' ';
24:
25: BEGIN
26: IF g_debug THEN
27: hr_utility.set_location(' Entering Function GET_PARAMETER',10);
28: END IF;
29:
30: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
31:
49: END IF;
50:
51: RETURN l_parameter;
52: IF g_debug THEN
53: hr_utility.set_location(' Leaving Function GET_PARAMETER',20);
54: END IF;
55:
56: END GET_PARAMETER;
57:
86: FETCH csr_parameter_info INTO p_legal_employer_id ,p_archive,p_payee_org ,
87: p_fromdate,p_todate,p_effective_date ,p_business_group_id;
88: CLOSE csr_parameter_info;
89: IF g_debug THEN
90: hr_utility.set_location(' Leaving Procedure GET_ALL_PARAMETERS',30);
91: END IF;
92:
93:
94: END GET_ALL_PARAMETERS;
136:
137:
138: BEGIN
139: IF g_debug THEN
140: hr_utility.set_location(' Entering Procedure RANGE_CODE',40);
141: END IF;
142: -- the sql string to return
143: sqlstr := 'SELECT DISTINCT person_id
144: FROM per_people_f ppf
215:
216: END IF; -- l_archive = 'Y'
217:
218: IF g_debug THEN
219: hr_utility.set_location(' Leaving Procedure RANGE_CODE',50);
220: END IF;
221: END RANGE_CODE;
222:
223: -------------------------------------------------------------------------------------------------------------------------
226: IS
227:
228: BEGIN
229: IF g_debug THEN
230: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
231: END IF;
232: NULL;
233: IF g_debug THEN
234: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
230: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
231: END IF;
232: NULL;
233: IF g_debug THEN
234: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
235: END IF;
236:
237: exception when others then
238: g_err_num := SQLCODE;
236:
237: exception when others then
238: g_err_num := SQLCODE;
239: IF g_debug THEN
240: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE',180);
241: END IF;
242: END INITIALIZATION_CODE;
243:
244: ------------------------------------------------------------------------------------------------
353:
354:
355: BEGIN
356: IF g_debug THEN
357: hr_utility.set_location(' Entering Procedure ASSIGNMENT_ACTION_CODE',60);
358: END IF;
359:
360:
361: -- fetch the data
426:
427: END IF; -- l_archive = 'Y'
428:
429: IF g_debug THEN
430: hr_utility.set_location(' Leaving Procedure ASSIGNMENT_ACTION_CODE',70);
431: END IF;
432: END ASSIGNMENT_ACTION_CODE;
433:
434: ------------------------------------------------------------------------------------------------
593:
594:
595: BEGIN
596: IF g_debug THEN
597: hr_utility.set_location(' Entering Procedure ARCHIVE_CODE',380);
598: END IF;
599: begin
600: SELECT payroll_action_id
601: INTO l_payroll_action_id
704:
705: END IF; -- l_archive = 'Y'
706:
707: IF g_debug THEN
708: hr_utility.set_location(' Leaving Procedure ARCHIVE_CODE',390);
709: END IF;
710:
711: END ARCHIVE_CODE;
712:
932: --dbms_lob.createtemporary(p_xml,true);
933: --clob_to_blob(l_xfdf_string,p_xml);
934: exception
935: when others then
936: hr_utility.trace('sqleerm ' || sqlerrm);
937: hr_utility.raise_error;
938:
939: end write_to_clob;
940: ------------------------------------------------------------------------------------------------------------
933: --clob_to_blob(l_xfdf_string,p_xml);
934: exception
935: when others then
936: hr_utility.trace('sqleerm ' || sqlerrm);
937: hr_utility.raise_error;
938:
939: end write_to_clob;
940: ------------------------------------------------------------------------------------------------------------
941: