119: l_payroll_action_id :=p_payroll_action_id;
120:
121: END IF;
122:
123: hr_utility.set_location('Entered Procedure GETDATA',10);
124:
125: /* Pick up the data related to Record VSPSERIE*/
126: FOR rg_csr_VSPSERIE1 IN csr_VSPSERIE1 (l_payroll_action_id)
127: LOOP
652: gtagdata(l_counter).TagValue := rg_csr_VSPSVYHT.action_information30;
653: l_counter := l_counter + 1;
654:
655: END LOOP;
656: hr_utility.set_location('After populating pl/sql table',30);
657:
658:
659: WritetoCLOB (p_xml );
660:
678: l_IANA_charset VARCHAR2 (50);
679:
680: BEGIN
681: l_IANA_charset :=hr_fi_utility.get_IANA_charset ;
682: hr_utility.set_location('Entering WritetoCLOB ',70);
683: l_str1 := '
684: l_str2 := '<';
685: l_str3 := '>';
686: l_str4 := '';
749: END IF;
750:
751: p_xfdf_clob := l_xfdf_string;
752:
753: hr_utility.set_location('Leaving WritetoCLOB ',40);
754:
755: EXCEPTION
756: WHEN OTHERS then
757: HR_UTILITY.TRACE('sqlerrm ' || SQLERRM);
753: hr_utility.set_location('Leaving WritetoCLOB ',40);
754:
755: EXCEPTION
756: WHEN OTHERS then
757: HR_UTILITY.TRACE('sqlerrm ' || SQLERRM);
758: HR_UTILITY.RAISE_ERROR;
759: END WritetoCLOB;
760: -------------------------------------------------------------------------------------------------------------------------
761:
754:
755: EXCEPTION
756: WHEN OTHERS then
757: HR_UTILITY.TRACE('sqlerrm ' || SQLERRM);
758: HR_UTILITY.RAISE_ERROR;
759: END WritetoCLOB;
760: -------------------------------------------------------------------------------------------------------------------------
761:
762: END PAY_FI_DPSR;