73: WHERE business_group_id = p_business_group_id;
74:
75:
76: /****************************************************************************
77: Name : HR_UTILITY_TRACE
78: Description : This procedure prints debug messages.
79: *****************************************************************************/
80: PROCEDURE HR_UTILITY_TRACE
81: (
76: /****************************************************************************
77: Name : HR_UTILITY_TRACE
78: Description : This procedure prints debug messages.
79: *****************************************************************************/
80: PROCEDURE HR_UTILITY_TRACE
81: (
82: P_TRC_DATA varchar2
83: ) AS
84: BEGIN
82: P_TRC_DATA varchar2
83: ) AS
84: BEGIN
85: IF g_debug THEN
86: hr_utility.trace(p_trc_data);
87: END IF;
88: END HR_UTILITY_TRACE;
89:
90: /****************************************************************************
84: BEGIN
85: IF g_debug THEN
86: hr_utility.trace(p_trc_data);
87: END IF;
88: END HR_UTILITY_TRACE;
89:
90: /****************************************************************************
91: Name : PRINT_BLOB
92: Description : This procedure prints contents of BLOB passed as parameter.
218:
219:
220: BEGIN
221: l_proc_name := g_proc_name || 'GENERATE_XML';
222: hr_utility_trace ('Entering '||l_proc_name);
223:
224: ln_chars := 2000;
225: ln_offset := 1;
226:
367: dbms_lob.writeAppend(l_xml,
368: ln_amt,
369: lr_xml);
370:
371: hr_utility_trace (pay_payroll_xml_extract_pkg.g_xml_table(cntr));
372: END LOOP;
373: pay_payroll_xml_extract_pkg.g_xml_table.delete();
374:
375: END IF;
376:
377: write_to_magtape_lob (l_xml);
378: dbms_lob.freeTemporary(l_xml);
379:
380: hr_utility_trace ('BLOB contents for assignment action '||
381: ln_assignment_action_id);
382: print_blob (pay_mag_tape.g_blob_value);
383:
384: hr_utility_trace ('Leaving '||l_proc_name);
380: hr_utility_trace ('BLOB contents for assignment action '||
381: ln_assignment_action_id);
382: print_blob (pay_mag_tape.g_blob_value);
383:
384: hr_utility_trace ('Leaving '||l_proc_name);
385: END GENERATE_XML;
386:
387:
388: /****************************************************************************
394: l_proc_name varchar2(100);
395: lv_buf varchar2(2000);
396: BEGIN
397: l_proc_name := g_proc_name || 'GEN_XML_HEADER';
398: --hr_utility.trace_on(null,'dd');
399: hr_utility_trace ('Entering '||l_proc_name);
400:
401: lv_buf := pay_magtape_generic.get_parameter_value('ROOT_XML_TAG');
402:
395: lv_buf varchar2(2000);
396: BEGIN
397: l_proc_name := g_proc_name || 'GEN_XML_HEADER';
398: --hr_utility.trace_on(null,'dd');
399: hr_utility_trace ('Entering '||l_proc_name);
400:
401: lv_buf := pay_magtape_generic.get_parameter_value('ROOT_XML_TAG');
402:
403: hr_utility_trace ('Header = '||lv_buf);
399: hr_utility_trace ('Entering '||l_proc_name);
400:
401: lv_buf := pay_magtape_generic.get_parameter_value('ROOT_XML_TAG');
402:
403: hr_utility_trace ('Header = '||lv_buf);
404:
405: write_to_magtape_lob (lv_buf);
406:
407: hr_utility_trace ('BLOB contents after appending header information');
403: hr_utility_trace ('Header = '||lv_buf);
404:
405: write_to_magtape_lob (lv_buf);
406:
407: hr_utility_trace ('BLOB contents after appending header information');
408: print_blob (pay_mag_tape.g_blob_value);
409:
410: hr_utility_trace ('Leaving '||l_proc_name);
411: END GET_HEADERS;
406:
407: hr_utility_trace ('BLOB contents after appending header information');
408: print_blob (pay_mag_tape.g_blob_value);
409:
410: hr_utility_trace ('Leaving '||l_proc_name);
411: END GET_HEADERS;
412:
413:
414:
463:
464:
465: BEGIN
466: l_proc_name := g_proc_name || 'GEN_EMPLOYER_LEVEL_XML';
467: hr_utility_trace ('Entering '||l_proc_name);
468: lv_pmeth_cat := NULL;
469:
470: ln_org_pay_method :=
471: pay_magtape_generic.get_parameter_value('TRANSFER_ORG_PAY_METHOD');
482:
483: ln_business_group_id :=
484: pay_magtape_generic.get_parameter_value('TRANSFER_BUSINESS_GROUP_ID');
485:
486: hr_utility_trace ('ln_org_pay_method '||ln_org_pay_method);
487: hr_utility_trace ('ld_effective_date '||ld_effective_date);
488: hr_utility_trace ('Direct Deposit Date '||lv_dd_date);
489: hr_utility_trace ('ln_payroll_action_id '||ln_payroll_action_id);
490: hr_utility_trace ('ln_business_group_id '||ln_business_group_id);
483: ln_business_group_id :=
484: pay_magtape_generic.get_parameter_value('TRANSFER_BUSINESS_GROUP_ID');
485:
486: hr_utility_trace ('ln_org_pay_method '||ln_org_pay_method);
487: hr_utility_trace ('ld_effective_date '||ld_effective_date);
488: hr_utility_trace ('Direct Deposit Date '||lv_dd_date);
489: hr_utility_trace ('ln_payroll_action_id '||ln_payroll_action_id);
490: hr_utility_trace ('ln_business_group_id '||ln_business_group_id);
491:
484: pay_magtape_generic.get_parameter_value('TRANSFER_BUSINESS_GROUP_ID');
485:
486: hr_utility_trace ('ln_org_pay_method '||ln_org_pay_method);
487: hr_utility_trace ('ld_effective_date '||ld_effective_date);
488: hr_utility_trace ('Direct Deposit Date '||lv_dd_date);
489: hr_utility_trace ('ln_payroll_action_id '||ln_payroll_action_id);
490: hr_utility_trace ('ln_business_group_id '||ln_business_group_id);
491:
492:
485:
486: hr_utility_trace ('ln_org_pay_method '||ln_org_pay_method);
487: hr_utility_trace ('ld_effective_date '||ld_effective_date);
488: hr_utility_trace ('Direct Deposit Date '||lv_dd_date);
489: hr_utility_trace ('ln_payroll_action_id '||ln_payroll_action_id);
490: hr_utility_trace ('ln_business_group_id '||ln_business_group_id);
491:
492:
493: pay_payroll_xml_extract_pkg.load_xml('CS','DEPOSIT_HEADER','');
486: hr_utility_trace ('ln_org_pay_method '||ln_org_pay_method);
487: hr_utility_trace ('ld_effective_date '||ld_effective_date);
488: hr_utility_trace ('Direct Deposit Date '||lv_dd_date);
489: hr_utility_trace ('ln_payroll_action_id '||ln_payroll_action_id);
490: hr_utility_trace ('ln_business_group_id '||ln_business_group_id);
491:
492:
493: pay_payroll_xml_extract_pkg.load_xml('CS','DEPOSIT_HEADER','');
494: /*Clear the details of previous assignmentId */
502:
503: IF pay_payroll_xml_extract_pkg.g_leg_code IS NULL THEN
504: OPEN c_get_leg_code(ln_business_group_id);
505: FETCH c_get_leg_code INTO lv_leg_code;
506: hr_utility_trace ('Legislation Code '||lv_leg_code);
507:
508: pay_payroll_xml_extract_pkg.g_leg_code :=lv_leg_code;
509: CLOSE c_get_leg_code;
510: END IF;
508: pay_payroll_xml_extract_pkg.g_leg_code :=lv_leg_code;
509: CLOSE c_get_leg_code;
510: END IF;
511:
512: hr_utility_trace ('Legislation Code '||pay_payroll_xml_extract_pkg.g_leg_code);
513:
514: OPEN get_org_bank_details(ln_org_pay_method,ld_effective_date);
515: FETCH get_org_bank_details INTO
516: g_org_flex(1),g_org_flex(2),g_org_flex(3),
562: dbms_lob.writeAppend(l_xml,
563: ln_amt,
564: lr_xml);
565:
566: hr_utility_trace (pay_payroll_xml_extract_pkg.g_xml_table(cntr));
567: END LOOP;
568: pay_payroll_xml_extract_pkg.g_xml_table.delete();
569:
570: END IF;
582: USING IN ln_payroll_action_id,'','DEPOSIT_XML';
583:
584:
585:
586: hr_utility_trace ('BLOB contents after appending header information');
587: print_blob (pay_mag_tape.g_blob_value);
588:
589: hr_utility_trace ('Leaving '||l_proc_name);
590: END get_deposit_header;
585:
586: hr_utility_trace ('BLOB contents after appending header information');
587: print_blob (pay_mag_tape.g_blob_value);
588:
589: hr_utility_trace ('Leaving '||l_proc_name);
590: END get_deposit_header;
591:
592: /****************************************************************************
593: Name : GEN_XML_FOOTER
599: lv_buf varchar2(2000);
600: l_proc_name varchar2(200);
601: BEGIN
602: l_proc_name := g_proc_name || 'GET_EMPLOYER_FOOTER';
603: hr_utility_trace ('Entering '||l_proc_name);
604:
605: lv_buf := '';
606:
607: write_to_magtape_lob (lv_buf);
605: lv_buf := '';
606:
607: write_to_magtape_lob (lv_buf);
608:
609: hr_utility_trace ('BLOB contents after appending footer information');
610: print_blob (pay_mag_tape.g_blob_value);
611:
612: hr_utility_trace ('Leaving '||l_proc_name);
613: END get_deposit_footer;
608:
609: hr_utility_trace ('BLOB contents after appending footer information');
610: print_blob (pay_mag_tape.g_blob_value);
611:
612: hr_utility_trace ('Leaving '||l_proc_name);
613: END get_deposit_footer;
614:
615: PROCEDURE GET_FOOTERS AS
616: lv_buf varchar2(2000);
616: lv_buf varchar2(2000);
617: l_proc_name varchar2(200);
618: BEGIN
619: l_proc_name := g_proc_name || 'GEN_XML_FOOTER';
620: hr_utility_trace ('Entering '||l_proc_name);
621:
622: lv_buf := '' ;
623:
624: write_to_magtape_lob (lv_buf);
622: lv_buf := '' ;
623:
624: write_to_magtape_lob (lv_buf);
625:
626: hr_utility_trace ('BLOB contents after appending footer information');
627: print_blob (pay_mag_tape.g_blob_value);
628:
629: hr_utility_trace ('Leaving '||l_proc_name);
630: END GET_FOOTERS;
625:
626: hr_utility_trace ('BLOB contents after appending footer information');
627: print_blob (pay_mag_tape.g_blob_value);
628:
629: hr_utility_trace ('Leaving '||l_proc_name);
630: END GET_FOOTERS;
631:
632: BEGIN
633: g_proc_name := 'pay_direct_deposit_xml.';
630: END GET_FOOTERS;
631:
632: BEGIN
633: g_proc_name := 'pay_direct_deposit_xml.';
634: g_debug := hr_utility.debug_enabled;
635: END pay_direct_deposit_xml;