57:
58: EOL VARCHAR2(5);
59:
60: /****************************************************************************
61: Name : HR_UTILITY_TRACE
62: Description : This procedure prints debug messages.
63: *****************************************************************************/
64: PROCEDURE hr_utility_trace ( P_TRC_DATA VARCHAR2) AS
65: BEGIN
60: /****************************************************************************
61: Name : HR_UTILITY_TRACE
62: Description : This procedure prints debug messages.
63: *****************************************************************************/
64: PROCEDURE hr_utility_trace ( P_TRC_DATA VARCHAR2) AS
65: BEGIN
66: IF g_debug THEN
67: hr_utility.trace(p_trc_data);
68: END IF;
63: *****************************************************************************/
64: PROCEDURE hr_utility_trace ( P_TRC_DATA VARCHAR2) AS
65: BEGIN
66: IF g_debug THEN
67: hr_utility.trace(p_trc_data);
68: END IF;
69: END hr_utility_trace;
70:
71:
65: BEGIN
66: IF g_debug THEN
67: hr_utility.trace(p_trc_data);
68: END IF;
69: END hr_utility_trace;
70:
71:
72: /****************************************************************************
73: Name : PRINT_BLOB
160: l_xml VARCHAR2(240);
161:
162: BEGIN
163: l_proc_name := g_proc_name || 'LOAD_XML_INTERNAL';
164: hr_utility_trace ('Entering '||l_proc_name);
165:
166: IF p_node_type = 'CS' THEN
167:
168: l_xml := '<'||p_node||'>'||EOL;
184: END IF;
185:
186: write_to_magtape_lob (l_xml);
187:
188: hr_utility_trace ('Leaving '||l_proc_name);
189:
190: END load_xml_internal;
191:
192: /****************************************************************************
241: BEGIN
242:
243: lv_procedure_name := g_proc_name ||'.get_payroll_action_info';
244:
245: hr_utility.set_location(lv_procedure_name, 10);
246:
247: ln_step := 1;
248:
249: OPEN c_payroll_action_info(p_payroll_action_id);
258: CLOSE c_payroll_action_info;
259:
260:
261: ln_step := 2;
262: hr_utility.set_location(lv_procedure_name, 30);
263: hr_utility_trace ('ld_rpt_start_dt = '|| ld_rpt_start_dt);
264: hr_utility_trace ('ld_rpt_end_dt = '|| ld_rpt_end_dt);
265:
266: IF lv_assignment_set IS NOT NULL THEN
259:
260:
261: ln_step := 2;
262: hr_utility.set_location(lv_procedure_name, 30);
263: hr_utility_trace ('ld_rpt_start_dt = '|| ld_rpt_start_dt);
264: hr_utility_trace ('ld_rpt_end_dt = '|| ld_rpt_end_dt);
265:
266: IF lv_assignment_set IS NOT NULL THEN
267: OPEN c_ass_set_name(lv_assignment_set);
260:
261: ln_step := 2;
262: hr_utility.set_location(lv_procedure_name, 30);
263: hr_utility_trace ('ld_rpt_start_dt = '|| ld_rpt_start_dt);
264: hr_utility_trace ('ld_rpt_end_dt = '|| ld_rpt_end_dt);
265:
266: IF lv_assignment_set IS NOT NULL THEN
267: OPEN c_ass_set_name(lv_assignment_set);
268: FETCH c_ass_set_name INTO gv_assignment_set;
272: gv_ass_set_id := lv_assignment_set;
273: gd_start_date := fnd_date.canonical_to_date(ld_rpt_start_dt);
274: gd_end_date := fnd_date.canonical_to_date(ld_rpt_end_dt);
275: gv_rpting_year := lv_rpting_year;
276: hr_utility_trace ('gd_start_date = '|| gd_start_date);
277: hr_utility_trace ('gd_end_date = '|| gd_end_date);
278: p_end_date := TRUNC(ld_end_date,'Y');
279: p_business_group_id := ln_business_group_id;
280: p_legal_employer_id := ln_legal_er_id;
273: gd_start_date := fnd_date.canonical_to_date(ld_rpt_start_dt);
274: gd_end_date := fnd_date.canonical_to_date(ld_rpt_end_dt);
275: gv_rpting_year := lv_rpting_year;
276: hr_utility_trace ('gd_start_date = '|| gd_start_date);
277: hr_utility_trace ('gd_end_date = '|| gd_end_date);
278: p_end_date := TRUNC(ld_end_date,'Y');
279: p_business_group_id := ln_business_group_id;
280: p_legal_employer_id := ln_legal_er_id;
281: p_sort_opt := lv_sort_opt;
279: p_business_group_id := ln_business_group_id;
280: p_legal_employer_id := ln_legal_er_id;
281: p_sort_opt := lv_sort_opt;
282:
283: hr_utility.set_location(lv_procedure_name, 50);
284:
285: EXCEPTION
286: WHEN OTHERS THEN
287: lv_error_message := 'Error at step ' || ln_step || ' IN ' ||
286: WHEN OTHERS THEN
287: lv_error_message := 'Error at step ' || ln_step || ' IN ' ||
288: lv_procedure_name;
289:
290: hr_utility.trace(lv_error_message || '-' || SQLERRM);
291:
292: lv_error_message :=
293: pay_emp_action_arch.set_error_message(lv_error_message);
294:
291:
292: lv_error_message :=
293: pay_emp_action_arch.set_error_message(lv_error_message);
294:
295: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
296: hr_utility.set_message_token('FORMULA_TEXT', lv_error_message);
297: hr_utility.raise_error;
298:
299: END get_payroll_action_info;
292: lv_error_message :=
293: pay_emp_action_arch.set_error_message(lv_error_message);
294:
295: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
296: hr_utility.set_message_token('FORMULA_TEXT', lv_error_message);
297: hr_utility.raise_error;
298:
299: END get_payroll_action_info;
300:
293: pay_emp_action_arch.set_error_message(lv_error_message);
294:
295: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
296: hr_utility.set_message_token('FORMULA_TEXT', lv_error_message);
297: hr_utility.raise_error;
298:
299: END get_payroll_action_info;
300:
301: /****************************************************************************
309:
310: BEGIN
311: l_proc_name := g_proc_name || 'RANGE_CURSOR';
312:
313: hr_utility_trace ('Entering '||l_proc_name);
314:
315: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| p_payroll_action_id);
316:
317: get_payroll_action_info (p_payroll_action_id
311: l_proc_name := g_proc_name || 'RANGE_CURSOR';
312:
313: hr_utility_trace ('Entering '||l_proc_name);
314:
315: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| p_payroll_action_id);
316:
317: get_payroll_action_info (p_payroll_action_id
318: ,gd_effective_date
319: ,gn_business_group_id
320: ,gn_legal_er_id
321: ,gv_sort_opt);
322:
323:
324: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
325: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
326: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
327: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
328:
321: ,gv_sort_opt);
322:
323:
324: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
325: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
326: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
327: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
328:
329: p_sqlstr := '
322:
323:
324: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
325: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
326: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
327: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
328:
329: p_sqlstr := '
330: SELECT DISTINCT paa_arch.serial_number
323:
324: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
325: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
326: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
327: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
328:
329: p_sqlstr := '
330: SELECT DISTINCT paa_arch.serial_number
331: FROM pay_assignment_actions paa_arch
343: AND paa_arch.action_status = ''C''
344: AND :p_payroll_action_id = '||p_payroll_action_id||'
345: ORDER BY serial_number';
346:
347: hr_utility_trace ('Range cursor query : ' || p_sqlstr);
348: hr_utility_trace ('Leaving '||l_proc_name);
349:
350: END range_cursor;
351:
344: AND :p_payroll_action_id = '||p_payroll_action_id||'
345: ORDER BY serial_number';
346:
347: hr_utility_trace ('Range cursor query : ' || p_sqlstr);
348: hr_utility_trace ('Leaving '||l_proc_name);
349:
350: END range_cursor;
351:
352:
436: ln_asg_count number;
437: BEGIN
438: l_proc_name := g_proc_name || 'ACTION_CREATION';
439:
440: hr_utility_trace ('Entering '||l_proc_name);
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
437: BEGIN
438: l_proc_name := g_proc_name || 'ACTION_CREATION';
439:
440: hr_utility_trace ('Entering '||l_proc_name);
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
445: hr_utility_trace ('P_CHUNK = '|| P_CHUNK);
438: l_proc_name := g_proc_name || 'ACTION_CREATION';
439:
440: hr_utility_trace ('Entering '||l_proc_name);
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
445: hr_utility_trace ('P_CHUNK = '|| P_CHUNK);
446:
439:
440: hr_utility_trace ('Entering '||l_proc_name);
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
445: hr_utility_trace ('P_CHUNK = '|| P_CHUNK);
446:
447: ln_prev_person_id := -1;
440: hr_utility_trace ('Entering '||l_proc_name);
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
445: hr_utility_trace ('P_CHUNK = '|| P_CHUNK);
446:
447: ln_prev_person_id := -1;
448: ln_prev_asg_id := -1;
441: hr_utility_trace ('Parameters ....');
442: hr_utility_trace ('P_PAYROLL_ACTION_ID = '|| P_PAYROLL_ACTION_ID);
443: hr_utility_trace ('P_START_PERSON_ID = '|| P_START_PERSON_ID);
444: hr_utility_trace ('P_END_PERSON_ID = '|| P_END_PERSON_ID);
445: hr_utility_trace ('P_CHUNK = '|| P_CHUNK);
446:
447: ln_prev_person_id := -1;
448: ln_prev_asg_id := -1;
449: ln_prev_arch_pact_id := -1;
467: ,p_report_category => 'RT');
468:
469: IF lb_range_person_on THEN
470:
471: hr_utility_trace ('Person ranges are ON');
472:
473: OPEN c_arch_asg_range( gn_business_group_id
474: ,gn_legal_er_id
475: ,gd_effective_date
477: ,p_payroll_action_id);
478:
479: ELSE
480:
481: hr_utility_trace ('Person ranges are OFF');
482:
483: OPEN c_arch_asg( gn_business_group_id
484: ,gn_legal_er_id
485: ,gd_effective_date
504: END IF;
505:
506: ln_asg_count := ln_asg_count + 1;
507:
508: hr_utility_trace ('-------------');
509: hr_utility_trace('Current archiver asg action = '||ln_arch_act_id);
510: hr_utility_trace('Current person = '||ln_person_id);
511: hr_utility_trace('Previous person = '||ln_prev_person_id);
512:
505:
506: ln_asg_count := ln_asg_count + 1;
507:
508: hr_utility_trace ('-------------');
509: hr_utility_trace('Current archiver asg action = '||ln_arch_act_id);
510: hr_utility_trace('Current person = '||ln_person_id);
511: hr_utility_trace('Previous person = '||ln_prev_person_id);
512:
513: IF (ln_person_id <> ln_prev_person_id) THEN
506: ln_asg_count := ln_asg_count + 1;
507:
508: hr_utility_trace ('-------------');
509: hr_utility_trace('Current archiver asg action = '||ln_arch_act_id);
510: hr_utility_trace('Current person = '||ln_person_id);
511: hr_utility_trace('Previous person = '||ln_prev_person_id);
512:
513: IF (ln_person_id <> ln_prev_person_id) THEN
514:
507:
508: hr_utility_trace ('-------------');
509: hr_utility_trace('Current archiver asg action = '||ln_arch_act_id);
510: hr_utility_trace('Current person = '||ln_person_id);
511: hr_utility_trace('Previous person = '||ln_prev_person_id);
512:
513: IF (ln_person_id <> ln_prev_person_id) THEN
514:
515: SELECT pay_assignment_actions_s.nextval
515: SELECT pay_assignment_actions_s.nextval
516: INTO ln_mag_asg_act_id
517: FROM dual;
518:
519: hr_utility_trace('Creating report assignment action '||
520: ln_mag_asg_act_id);
521:
522: hr_nonrun_asact.insact(ln_mag_asg_act_id
523: ,ln_assignment_id
528: ,'U'
529: ,null);
530:
531: -- insert an interlock to this action
532: hr_utility.trace('Locking Action in IF = ' || ln_mag_asg_act_id);
533: hr_utility.trace('Locked Action in IF = ' || ln_arch_act_id);
534:
535: hr_nonrun_asact.insint(ln_mag_asg_act_id,
536: ln_arch_act_id);
529: ,null);
530:
531: -- insert an interlock to this action
532: hr_utility.trace('Locking Action in IF = ' || ln_mag_asg_act_id);
533: hr_utility.trace('Locked Action in IF = ' || ln_arch_act_id);
534:
535: hr_nonrun_asact.insint(ln_mag_asg_act_id,
536: ln_arch_act_id);
537:
537:
538: ELSE
539:
540: -- insert an interlock to this action
541: hr_utility.trace('Locking Action in ELSE = ' || ln_mag_asg_act_id);
542: hr_utility.trace('Locked Action in ELSE = ' || ln_arch_act_id);
543:
544: hr_nonrun_asact.insint(ln_mag_asg_act_id,
545: ln_arch_act_id);
538: ELSE
539:
540: -- insert an interlock to this action
541: hr_utility.trace('Locking Action in ELSE = ' || ln_mag_asg_act_id);
542: hr_utility.trace('Locked Action in ELSE = ' || ln_arch_act_id);
543:
544: hr_nonrun_asact.insint(ln_mag_asg_act_id,
545: ln_arch_act_id);
546:
549: ln_prev_person_id := ln_person_id;
550:
551: END LOOP;
552:
553: hr_utility_trace(ln_asg_count || ' archiver actions processed in chunk '||
554: p_chunk);
555:
556: IF lb_range_person_on THEN
557: CLOSE c_arch_asg_range;
558: ELSE
559: CLOSE c_arch_asg;
560: END IF;
561:
562: hr_utility_trace ('Leaving '||l_proc_name);
563:
564: END action_creation;
565:
566: /****************************************************************************
631:
632:
633: BEGIN
634: l_proc_name := g_proc_name || 'GENERATE_XML';
635: hr_utility_trace ('Entering '||l_proc_name);
636:
637: ln_assignment_action_id := pay_magtape_generic.get_parameter_value
638: ('TRANSFER_ACT_ID');
639:
636:
637: ln_assignment_action_id := pay_magtape_generic.get_parameter_value
638: ('TRANSFER_ACT_ID');
639:
640: hr_utility_trace ('Fetching transactions for magtape asg action '||
641: ln_assignment_action_id);
642:
643: subemppaid_xml_tbl.DELETE;
644:
666: ,gv_sort_opt);
667:
668: END IF;
669:
670: hr_utility_trace ('Getting report parameters....');
671: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
672: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
673: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
674: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
667:
668: END IF;
669:
670: hr_utility_trace ('Getting report parameters....');
671: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
672: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
673: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
674: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
675: OPEN c_subemppaid_rec(ln_assignment_action_id);
668: END IF;
669:
670: hr_utility_trace ('Getting report parameters....');
671: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
672: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
673: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
674: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
675: OPEN c_subemppaid_rec(ln_assignment_action_id);
676: LOOP
669:
670: hr_utility_trace ('Getting report parameters....');
671: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
672: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
673: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
674: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
675: OPEN c_subemppaid_rec(ln_assignment_action_id);
676: LOOP
677: FETCH c_subemppaid_rec INTO subemppaid;
670: hr_utility_trace ('Getting report parameters....');
671: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
672: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
673: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
674: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
675: OPEN c_subemppaid_rec(ln_assignment_action_id);
676: LOOP
677: FETCH c_subemppaid_rec INTO subemppaid;
678: EXIT WHEN c_subemppaid_rec%NOTFOUND;
727: ,subemppaid.ER_LEGAL_NAME );
728:
729: END IF;
730:
731: hr_utility_trace ('Leaving '||l_proc_name);
732:
733: /*EXCEPTION
734: WHEN OTHERS THEN
735: hr_utility_trace (SQLERRM);
731: hr_utility_trace ('Leaving '||l_proc_name);
732:
733: /*EXCEPTION
734: WHEN OTHERS THEN
735: hr_utility_trace (SQLERRM);
736: RAISE; */
737: END GENERATE_XML;
738:
739:
755: lv_le_name hr_organization_units.name%type;
756: ln_payroll_action_id NUMBER;
757: BEGIN
758: l_proc_name := g_proc_name || 'GENERATE_XML_HEADER';
759: hr_utility_trace ('Entering '||l_proc_name);
760: subemppaid_xml_tbl.delete;
761: ln_payroll_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
762: hr_utility_trace ('ln_payroll_action_id = '|| ln_payroll_action_id);
763: IF gn_legal_er_id IS NULL THEN
758: l_proc_name := g_proc_name || 'GENERATE_XML_HEADER';
759: hr_utility_trace ('Entering '||l_proc_name);
760: subemppaid_xml_tbl.delete;
761: ln_payroll_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
762: hr_utility_trace ('ln_payroll_action_id = '|| ln_payroll_action_id);
763: IF gn_legal_er_id IS NULL THEN
764:
765: get_payroll_action_info (ln_payroll_action_id
766: ,gd_effective_date
769: ,gv_sort_opt);
770:
771: END IF;
772:
773: hr_utility_trace ('Getting report parameters....');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
770:
771: END IF;
772:
773: hr_utility_trace ('Getting report parameters....');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
778: hr_utility_trace ('Root XML tag = '||
771: END IF;
772:
773: hr_utility_trace ('Getting report parameters....');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
778: hr_utility_trace ('Root XML tag = '||
779: pay_magtape_generic.get_parameter_value('ROOT_XML_TAG'));
772:
773: hr_utility_trace ('Getting report parameters....');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
778: hr_utility_trace ('Root XML tag = '||
779: pay_magtape_generic.get_parameter_value('ROOT_XML_TAG'));
780:
773: hr_utility_trace ('Getting report parameters....');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
778: hr_utility_trace ('Root XML tag = '||
779: pay_magtape_generic.get_parameter_value('ROOT_XML_TAG'));
780:
781: lv_buf := pay_magtape_generic.get_parameter_value('ROOT_XML_TAG');
774: hr_utility_trace ('gd_effective_date = '|| gd_effective_date);
775: hr_utility_trace ('gn_business_group_id = '|| gn_business_group_id);
776: hr_utility_trace ('gn_legal_er_id = '|| gn_legal_er_id);
777: hr_utility_trace ('gv_sort_opt = '|| gv_sort_opt);
778: hr_utility_trace ('Root XML tag = '||
779: pay_magtape_generic.get_parameter_value('ROOT_XML_TAG'));
780:
781: lv_buf := pay_magtape_generic.get_parameter_value('ROOT_XML_TAG');
782: write_to_magtape_lob (lv_buf);
786: CLOSE c_le_name;
787:
788: lv_rpt_sort_opt := hr_general.decode_lookup('REPORT_SELECT_SORT_CODE',gv_sort_opt);
789:
790: hr_utility_trace ('lv_le_name = '|| lv_le_name);
791: hr_utility_trace ('lv_rpt_sort_opt = '|| lv_rpt_sort_opt);
792: hr_utility_trace ('Building XML for Report param val....');
793:
794: populate_xml_table('RPT_ER_LEGAL_NAME', lv_le_name,'TEXT');
787:
788: lv_rpt_sort_opt := hr_general.decode_lookup('REPORT_SELECT_SORT_CODE',gv_sort_opt);
789:
790: hr_utility_trace ('lv_le_name = '|| lv_le_name);
791: hr_utility_trace ('lv_rpt_sort_opt = '|| lv_rpt_sort_opt);
792: hr_utility_trace ('Building XML for Report param val....');
793:
794: populate_xml_table('RPT_ER_LEGAL_NAME', lv_le_name,'TEXT');
795: populate_xml_table('RPT_FISCAL_YEAR',gv_rpting_year,'TEXT');
788: lv_rpt_sort_opt := hr_general.decode_lookup('REPORT_SELECT_SORT_CODE',gv_sort_opt);
789:
790: hr_utility_trace ('lv_le_name = '|| lv_le_name);
791: hr_utility_trace ('lv_rpt_sort_opt = '|| lv_rpt_sort_opt);
792: hr_utility_trace ('Building XML for Report param val....');
793:
794: populate_xml_table('RPT_ER_LEGAL_NAME', lv_le_name,'TEXT');
795: populate_xml_table('RPT_FISCAL_YEAR',gv_rpting_year,'TEXT');
796: populate_xml_table('RPT_ASS_SET', gv_assignment_set,'TEXT');
806: END LOOP;
807:
808: load_xml_internal('CE','REPORT_PARM',NULL);
809:
810: hr_utility_trace ('Leaving '||l_proc_name);
811: END generate_xml_header;
812:
813:
814: /****************************************************************************
829: lr_xml RAW (32767);
830: ln_amt number;
831: BEGIN
832: l_proc_name := g_proc_name || 'GENERATE_XML_FOOTER';
833: hr_utility_trace ('Entering '||l_proc_name);
834:
835: lv_buf := '' ||
836: SUBSTR(pay_magtape_generic.get_parameter_value('ROOT_XML_TAG'),
837: 2);
837: 2);
838:
839: write_to_magtape_lob (lv_buf);
840:
841: hr_utility_trace ('Leaving '||l_proc_name);
842: END generate_xml_footer;
843:
844: BEGIN
845: -- hr_utility.trace_on(null, 'PAYMXSUBEMPL');
841: hr_utility_trace ('Leaving '||l_proc_name);
842: END generate_xml_footer;
843:
844: BEGIN
845: -- hr_utility.trace_on(null, 'PAYMXSUBEMPL');
846: g_proc_name := 'PAY_MX_SUBSIDY_EMP_PD_RPT.';
847: g_debug := hr_utility.debug_enabled;
848: g_document_type := 'MX_subemppaid';
849: END PAY_MX_SUBSIDY_EMP_PD_RPT;
843:
844: BEGIN
845: -- hr_utility.trace_on(null, 'PAYMXSUBEMPL');
846: g_proc_name := 'PAY_MX_SUBSIDY_EMP_PD_RPT.';
847: g_debug := hr_utility.debug_enabled;
848: g_document_type := 'MX_subemppaid';
849: END PAY_MX_SUBSIDY_EMP_PD_RPT;