51:
52: PROCEDURE WRITE_TO_MAGTAPE_LOB(p_blob BLOB) IS
53: BEGIN
54: IF dbms_lob.getLength (p_blob) IS NOT NULL THEN
55: pay_core_files.write_to_magtape_lob (p_blob);
56: END IF;
57: END WRITE_TO_MAGTAPE_LOB;
58:
59: /****************************************************************************
63: *****************************************************************************/
64:
65: PROCEDURE WRITE_TO_MAGTAPE_LOB(p_data varchar2) IS
66: BEGIN
67: pay_core_files.write_to_magtape_lob (p_data);
68: END WRITE_TO_MAGTAPE_LOB;
69:
70: /****************************************************************************
71: Name : LOAD_XML
600: --
601: --
602: IF ln_arch_assignment_action_id IS NOT NULL THEN
603:
604: pay_core_files.write_to_magtape_lob('');
605: pay_core_files.write_to_magtape_lob('
606:
607: -- Printing Global Variable Values
608: --hr_utility.trace('g_chq_asg_action_id := '||pay_archive_chequewriter.g_chq_asg_action_id);
601: --
602: IF ln_arch_assignment_action_id IS NOT NULL THEN
603:
604: pay_core_files.write_to_magtape_lob('');
605: pay_core_files.write_to_magtape_lob('
607: -- Printing Global Variable Values
608: --hr_utility.trace('g_chq_asg_action_id := '||pay_archive_chequewriter.g_chq_asg_action_id);
609: --hr_utility.trace('g_arch_asg_action_id := '||pay_archive_chequewriter.g_arch_asg_action_id);
617: write_to_magtape_lob(l_xml);
618:
619: print_blob(pay_mag_tape.g_blob_value);
620:
621: pay_core_files.write_to_magtape_lob('');
622:
623:
624: ELSE
625: hr_utility.trace('ln_arch_assignment_action_id IS NULL.');
695: end if;
696:
697: hr_utility.trace('Before Archive Cheque');
698:
699: pay_core_files.write_to_magtape_lob('');
700: pay_core_files.write_to_magtape_lob('
701:
702: hr_utility.trace('Calling generate_xml_dummy');
703:
696:
697: hr_utility.trace('Before Archive Cheque');
698:
699: pay_core_files.write_to_magtape_lob('');
700: pay_core_files.write_to_magtape_lob('
702: hr_utility.trace('Calling generate_xml_dummy');
703:
704: generate_xml_dummy(l_cheque_no
730:
731: dummy_xml := l_xml_dummy;
732:
733: hr_utility.trace('Successful LOB Creation.');
734: pay_core_files.write_to_magtape_lob(dummy_xml);
735:
736: pay_core_files.write_to_magtape_lob('');
737:
738: BEGIN
732:
733: hr_utility.trace('Successful LOB Creation.');
734: pay_core_files.write_to_magtape_lob(dummy_xml);
735:
736: pay_core_files.write_to_magtape_lob('');
737:
738: BEGIN
739: UPDATE pay_assignment_actions
740: SET action_status = 'S'