[Home] [Help]
PACKAGE BODY: APPS.PAY_NO_RSER
Source
1 PACKAGE BODY PAY_NO_RSER AS
2 /* $Header: pynorser.pkb 120.0.12000000.1 2007/05/20 09:45:37 rlingama noship $ */
3 PROCEDURE GET_DATA (
4 p_business_group_id IN NUMBER,
5 p_payroll_action_id IN VARCHAR2 ,
6 p_template_name IN VARCHAR2,
7 p_xml OUT NOCOPY CLOB
8 )
9
10 IS
11
12 /* Start of declaration*/
13
14 -- Variables needed for the report
15 l_xfdf_string clob;
16 l_str1 varchar2(2000);
17 l_term VARCHAR2(1000);
18 l_year VARCHAR2(1000);
19 l_Tax_Mun_No VARCHAR2(1000);
20 l_mun_name VARCHAR2(1000);
21 l_org_number VARCHAR2(1000);
22 l_emp_name VARCHAR2(1000);
23 l_address VARCHAR2(1000);
24 l_postal_code VARCHAR2(1000);
25 l_post_office VARCHAR2(1000);
26 l_industry_exception VARCHAR2(1000);
27 l_exemption_limit NUMBER;
28 l_spr_emp_contri_base NUMBER;
29 l_spr_calc_contribution NUMBER;
30 l_no_months NUMBER;
31 l_fma_calc_contribution NUMBER;
32 l_tot_u_contribution_basis NUMBER;
33 l_tot_o_contribution_basis NUMBER;
34 l_remain_exemp_limit NUMBER;
35 l_tot_emp_contribution NUMBER;
36 l_k_emp_contribution NUMBER;
37 l_tot_withholding_tax NUMBER;
38 l_k_withholding_tax NUMBER;
39 l_municipal_number VARCHAR2(1000);
40 l_municipal_name VARCHAR2(1000);
41 l_zone NUMBER;
42 l_emp_contri_base_u NUMBER;
43 l_emp_contri_base_o NUMBER;
44 l_withholding_tax NUMBER;
45 l_u_zone1 NUMBER;
46 l_o_zone1 NUMBER;
47 l_u_zone2 NUMBER;
48 l_o_zone2 NUMBER;
49 l_u_zone3 NUMBER;
50 l_o_zone3 NUMBER;
51 l_u_zone4 NUMBER;
52 l_o_zone4 NUMBER;
53 l_u_zone5 NUMBER;
54 l_o_zone5 NUMBER;
55 l_payroll_action_id PAY_ACTION_INFORMATION. ACTION_INFORMATION1%TYPE;
56 l_IANA_charset VARCHAR2 (50);
57 l_el NUMBER;
58
59 /* End of declaration*/
60
61 /* Cursors */
62 Cursor csr_rser_header_rpt(csr_v_pa_id PAY_ACTION_INFORMATION.ACTION_INFORMATION1%TYPE)
63 IS
64 SELECT *
65 FROM PAY_ACTION_INFORMATION
66 WHERE ACTION_CONTEXT_TYPE = 'PA'
67 AND ACTION_CONTEXT_ID = csr_v_pa_id
68 AND ACTION_INFORMATION_CATEGORY='EMEA REPORT INFORMATION'
69 AND ACTION_INFORMATION1='PYNORSEA';
70
71 rg_rser_header_rpt csr_rser_header_rpt%rowtype;
72
73 Cursor csr_rser_body_rpt(csr_v_pa_id PAY_ACTION_INFORMATION. ACTION_INFORMATION1%TYPE)
74 IS
75 SELECT *
76 FROM PAY_ACTION_INFORMATION
77 WHERE ACTION_CONTEXT_TYPE = 'PA'
78 AND ACTION_CONTEXT_ID = csr_v_pa_id
79 AND ACTION_INFORMATION_CATEGORY= 'EMEA REPORT INFORMATION'
80 AND ACTION_INFORMATION1='PYNORSEA'
81 AND ACTION_INFORMATION2='M';
82
83 rg_rser_body_rpt csr_rser_body_rpt%rowtype;
84
85 Cursor csr_rser_sum_rpt(csr_v_pa_id PAY_ACTION_INFORMATION. ACTION_INFORMATION1%TYPE)
86 IS
87 SELECT SUM(action_information6) Witholding_Tax, SUM(action_information7) u_contribution_basis, SUM(action_information8) o_contribution_basis
88 , SUM(action_information20) fe_spr_contribution_basis, SUM(action_information21) fe_spr_calc_contribution
89 , SUM(action_information25) fe_fma_calc_contribution , SUM(action_information11) u_calc_contribution, SUM(action_information12) o_calc_contribution
90 , SUM(action_information26) lu_el_used , SUM(action_information27) lu_el_used_bimonth , SUM(action_information23) no_month
91 FROM PAY_ACTION_INFORMATION
92 WHERE ACTION_CONTEXT_TYPE = 'PA'
93 AND ACTION_CONTEXT_ID = csr_v_pa_id
94 AND ACTION_INFORMATION_CATEGORY= 'EMEA REPORT INFORMATION'
95 AND ACTION_INFORMATION1='PYNORSEA'
96 AND ACTION_INFORMATION2='M';
97
98 rg_rser_sum_rpt csr_rser_sum_rpt%rowtype;
99
100 /* End of Cursors */
101
102 BEGIN
103
104
105 hr_utility.set_location('Entering GETDATA ',10);
106
107 /*Fetching the payroll action id of the archived data*/
108 IF p_payroll_action_id IS NULL THEN
109
110 BEGIN
111
112 SELECT payroll_action_id
113 INTO l_payroll_action_id
114 FROM pay_payroll_actions ppa,
115 fnd_conc_req_summary_v fcrs,
116 fnd_conc_req_summary_v fcrs1
117 WHERE fcrs.request_id = FND_GLOBAL.CONC_REQUEST_ID
118 AND fcrs.priority_request_id = fcrs1.priority_request_id
119 AND ppa.request_id between fcrs1.request_id and fcrs.request_id
120 AND ppa.request_id = fcrs1.request_id;
121
122 EXCEPTION
123 WHEN others THEN
124 NULL;
125 END ;
126
127 ELSE
128
129 l_payroll_action_id :=p_payroll_action_id;
130
131 END IF;
132
133
134 /* Pick up the details belonging to Header */
135
136 OPEN csr_rser_header_rpt( l_payroll_action_id);
137 FETCH csr_rser_header_rpt INTO rg_rser_header_rpt;
138 CLOSE csr_rser_header_rpt;
139
140
141 /* Sum data in the records related to the body */
142 OPEN csr_rser_sum_rpt( l_payroll_action_id);
143 FETCH csr_rser_sum_rpt INTO rg_rser_sum_rpt;
144 CLOSE csr_rser_sum_rpt;
145
146
147 /*Assign values to the relevant variables*/
148
149 --OppgaveTermin-datadef-11819
150 l_term:=to_number(substr(rg_rser_header_rpt.action_information3,1,2));
151
152 --OppgaveAr-datadef-11236
153 l_year := substr(rg_rser_header_rpt.action_information3,3,4);
154
155 --SkatteoppkreverKommuneNummer-datadef-16513
156 l_Tax_Mun_No := rg_rser_header_rpt.action_information5;
157
158 --SkatteoppkreverKommuneNavn-datadef-8486
159 l_mun_name := rg_rser_header_rpt.action_information6;
160
161 --RapporteringsenhetOrganisasjonsnummer-datadef-21772
162 l_org_number := rg_rser_header_rpt.action_information4;
163
164 --RapporteringsenhetNavn-datadef-21771
165 l_emp_name := rg_rser_header_rpt.action_information6;
166
167 --RapporteringsenhetAdresse-datadef-21773
168 l_address := rg_rser_header_rpt.action_information7||' '||rg_rser_header_rpt.action_information7;
169
170 --RapporteringsenhetPostnummer-datadef-21774
171 l_postal_code :=rg_rser_header_rpt.action_information9;
172
173 --RapporteringsenhetPoststed-datadef-21775
174 l_post_office := rg_rser_header_rpt.action_information10;
175
176 --ArbeidsgiveravgiftBeregningType-datadef-16522
177 l_industry_exception := rg_rser_header_rpt.action_information17;
178
179 --ArbeidsgiveravgiftBunnfradrag-datadef-16517
180 l_exemption_limit := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_header_rpt.action_information18)
181 - FND_NUMBER.CANONICAL_TO_NUMBER( rg_rser_sum_rpt.lu_el_used)
182 + FND_NUMBER.CANONICAL_TO_NUMBER( rg_rser_sum_rpt.lu_el_used_bimonth ) ;
183 --ArbeidsgiveravgiftUtenlandskGrunnlag-datadef-16518
184 l_spr_emp_contri_base := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.fe_spr_contribution_basis);
185
186 --ArbeidsgiveravgiftUtenlandskArbeidstakerBergenet-datadef-6049
187 l_spr_calc_contribution := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.fe_spr_calc_contribution);
188
189 --'AnsattUtenlandskManeder-datadef-16519'
190 l_no_months := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.no_month);
191
192 --'ArbeidsgiveravgiftUtenlandskManedBeregnet-datadef-16520'
193 l_fma_calc_contribution := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.fe_fma_calc_contribution);
194
195 --'ArbeidsgiveravgiftUnder62ArGrunnlag-datadef-6051'
196 l_tot_u_contribution_basis :=FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.u_contribution_basis);
197
198
199 --'ArbeidsgiveravgiftOver62ArGrunnlag-datadef-16510'
200 l_tot_o_contribution_basis := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.o_contribution_basis);
201
202 --'ArbeidsgiveravgiftRestFribelop-datadef-21169'
203 l_remain_exemp_limit := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_header_rpt.action_information18)
204 - FND_NUMBER.CANONICAL_TO_NUMBER( rg_rser_sum_rpt.lu_el_used) ;
205 -- 'ArbeidsgiveravgiftSkyldig-datadef-223'
206 l_tot_emp_contribution := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt. fe_spr_calc_contribution)
207 + FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.fe_fma_calc_contribution)
208 + FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.o_calc_contribution)
209 + FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.u_calc_contribution) ;
210
211 --'KIDnummerArbeidsgiveravgift-datadef-16512'
212 l_k_emp_contribution := NULL;
213
214 --'Forskuddstrekk-datadef-2903'
215 l_tot_withholding_tax := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_sum_rpt.Witholding_Tax);
216
217 -- 'KIDnummerForskuddstrekk-datadef-16511'
218 l_k_withholding_tax := NULL;
219
220
221 --RefusjonRTVGrunnlagSone1Under62Ar-datadef-25054
222 l_u_zone1 := NULL;
223
224 --RefusjonRTVGrunnlagSone1Over62Ar-datadef-25055
225 l_o_zone1 := NULL;
226
227 --RefusjonRTVGrunnlagSone2Under62Ar-datadef-25056
228 l_u_zone2 := NULL;
229
230 --RefusjonRTVGrunnlagSone2Over62Ar-datadef-25057
231 l_o_zone2 := NULL;
232
233 --RefusjonRTVGrunnlagSone3Under62Ar-datadef-25058
234 l_u_zone3 := NULL;
235
236 --RefusjonRTVGrunnlagSone3Over62Ar-datadef-25059
237 l_o_zone3 := NULL;
238
239 --RefusjonRTVGrunnlagSone4Under62Ar-datadef-25060
240 l_u_zone4 := NULL;
241
242 --RefusjonRTVGrunnlagSone4Over62Ar-datadef-25061
243 l_o_zone4 := NULL;
244
245 --RefusjonRTVGrunnlagSone5Under62Ar-datadef-25062
246 l_u_zone5 := NULL;
247
248 --RefusjonRTVGrunnlagSone5Over62Ar-datadef-25063
249 l_o_zone5 := NULL;
250
251 hr_utility.set_location('inside GETDATA ',20);
252
253
254 /*Fetching the characterset of the Database*/
255 l_IANA_charset :=HR_NO_UTILITY.get_IANA_charset ;
256
257 /*Generate an xml string*/
258 dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
259 dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
260
261 l_str1 := '<?xml version="1.0" encoding="'||l_IANA_charset||'"?>
262 <Skjema xmlns:brreg="http://www.brreg.no/or" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
263 tittel="Terminoppgave for arbeidsgiveravgift og forskuddstrekk." gruppeid="52" spesifikasjonsnummer="4578"
264 skjemanummer="669" etatid="974761076" blankettnummer="RF-1037">';
265 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
266
267 l_str1 :='<GenerellInformasjon-grp-986 gruppeid="986">
268 <Periode-grp-57 gruppeid="57">
269 <OppgaveTermin-datadef-11819 orid="11819">'||l_term||'</OppgaveTermin-datadef-11819>
270 <OppgaveAr-datadef-11236 orid="11236">'||l_year||'</OppgaveAr-datadef-11236>
271 </Periode-grp-57>
272 <Skatteoppkrever-grp-989 gruppeid="989">
273 <SkatteoppkreverKommuneNummer-datadef-16513 orid="16513">'||l_Tax_Mun_No||'</SkatteoppkreverKommuneNummer-datadef-16513>
274 <SkatteoppkreverKommuneNavn-datadef-8486 orid="8486">'||l_mun_name||'</SkatteoppkreverKommuneNavn-datadef-8486>
275 </Skatteoppkrever-grp-989>
276 <Innsender-grp-56 gruppeid="56">
277 <RapporteringsenhetOrganisasjonsnummer-datadef-21772 orid="21772">'||l_org_number||'</RapporteringsenhetOrganisasjonsnummer-datadef-21772>
278 <RapporteringsenhetNavn-datadef-21771 orid="21771">'||l_emp_name||'</RapporteringsenhetNavn-datadef-21771>
279 <RapporteringsenhetAdresse-datadef-21773 orid="21773">'||l_address||'</RapporteringsenhetAdresse-datadef-21773>
280 <RapporteringsenhetPostnummer-datadef-21774 orid="21774">'||l_postal_code ||'</RapporteringsenhetPostnummer-datadef-21774>
281 <RapporteringsenhetPoststed-datadef-21775 orid="21775">'||l_post_office||'</RapporteringsenhetPoststed-datadef-21775>
282 </Innsender-grp-56>
283 </GenerellInformasjon-grp-986>';
284 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
285
286 l_str1 :='<BransjeFribelopOgSpesielleGrupper-grp-5698 gruppeid="5698">
287 <Bransje-grp-169 gruppeid="169">
288 <ArbeidsgiveravgiftBeregningType-datadef-16522 orid="16522">'||l_industry_exception ||'</ArbeidsgiveravgiftBeregningType-datadef-16522>
289 <ArbeidsgiveravgiftBunnfradrag-datadef-16517 orid="16517">'||l_exemption_limit||'</ArbeidsgiveravgiftBunnfradrag-datadef-16517>
290 </Bransje-grp-169>
291 <UTL1-grp-69 gruppeid="69">
292 <ArbeidsgiveravgiftUtenlandskGrunnlag-datadef-16518 orid="16518">'||l_spr_emp_contri_base||'</ArbeidsgiveravgiftUtenlandskGrunnlag-datadef-16518>
293 <ArbeidsgiveravgiftUtenlandskArbeidstakerBergenet-datadef-6049 orid="6049">'||l_spr_calc_contribution||'</ArbeidsgiveravgiftUtenlandskArbeidstakerBergenet-datadef-6049>
294 </UTL1-grp-69>
295 <UTL2-grp-71 gruppeid="71">
296 <AnsattUtenlandskManeder-datadef-16519 orid="16519">'||l_no_months||'</AnsattUtenlandskManeder-datadef-16519>
297 <ArbeidsgiveravgiftUtenlandskManedBeregnet-datadef-16520 orid="16520">'||l_fma_calc_contribution||'</ArbeidsgiveravgiftUtenlandskManedBeregnet-datadef-16520>
298 </UTL2-grp-71>
299 </BransjeFribelopOgSpesielleGrupper-grp-5698>';
300 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
301
302
306 /*Loop through records in the body*/
303 l_str1 :='<ArbeidsgiveravgiftsgrunnlagForskuddstrekkOgRefusjon-grp-4953 gruppeid="4953">';
304 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
305
307
308 FOR rg_rser_body_rpt IN csr_rser_body_rpt( l_payroll_action_id)
309 LOOP
310 --KommuneNummer-datadef-5950
311 l_municipal_number :=rg_rser_body_rpt.action_information3;
312
313 --KommuneNavn-datadef-5932
314 l_municipal_name := rg_rser_body_rpt.action_information4;
315
316 --ArbeidsgiveravgiftSone-datadef-3545
317 l_zone := rg_rser_body_rpt.action_information5;
318
319 --ArbeidsgiveravgiftUnder62ArGrunnlagKommune-datadef-6047
320 l_emp_contri_base_u :=FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_body_rpt.action_information7);
321
322 --ArbeidsgiveravgiftOver62ArGrunnlagKommune-datadef-16509
323 l_emp_contri_base_o := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_body_rpt.action_information8);
324
325 --ForskuddstrekkKommune-datadef-6046
326 l_withholding_tax := FND_NUMBER.CANONICAL_TO_NUMBER(rg_rser_body_rpt.action_information6);
327
328 l_str1 := '<ForskuddstrekkOgGrunnlagArbeidsgiveravgift-grp-67 gruppeid="67">
329 <KommuneNummer-datadef-5950 orid="5950">'||l_municipal_number ||'</KommuneNummer-datadef-5950>
330 <KommuneNavn-datadef-5932 orid="5932">'||l_municipal_name||'</KommuneNavn-datadef-5932>
331 <ArbeidsgiveravgiftSone-datadef-3545 orid="3545">'||l_zone||'</ArbeidsgiveravgiftSone-datadef-3545>
332 <ArbeidsgiveravgiftUnder62ArGrunnlagKommune-datadef-6047 orid="6047">'||l_emp_contri_base_u||'</ArbeidsgiveravgiftUnder62ArGrunnlagKommune-datadef-6047>
333 <ArbeidsgiveravgiftOver62ArGrunnlagKommune-datadef-16509 orid="16509">'||l_emp_contri_base_o||'</ArbeidsgiveravgiftOver62ArGrunnlagKommune-datadef-16509>
334 <ForskuddstrekkKommune-datadef-6046 orid="6046">'||l_withholding_tax||'</ForskuddstrekkKommune-datadef-6046>
335 </ForskuddstrekkOgGrunnlagArbeidsgiveravgift-grp-67>';
336 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
337 END LOOP;
338
339 l_str1 :='<Refusjonsgrunnlag-grp-5699 gruppeid="5699">
340 <RefusjonSone1-grp-5700 gruppeid="5700">
341 <RefusjonRTVGrunnlagSone1Under62Ar-datadef-25054 orid="25054">'||l_u_zone1||'</RefusjonRTVGrunnlagSone1Under62Ar-datadef-25054>
342 <RefusjonRTVGrunnlagSone1Over62Ar-datadef-25055 orid="25055">'||l_o_zone1||'</RefusjonRTVGrunnlagSone1Over62Ar-datadef-25055>
343 </RefusjonSone1-grp-5700>
344 <RefusjonSone2-grp-5701 gruppeid="5701">
345 <RefusjonRTVGrunnlagSone2Under62Ar-datadef-25056 orid="25056">'||l_u_zone2||'</RefusjonRTVGrunnlagSone2Under62Ar-datadef-25056>
346 <RefusjonRTVGrunnlagSone2Over62Ar-datadef-25057 orid="25057">'||l_o_zone2||'</RefusjonRTVGrunnlagSone2Over62Ar-datadef-25057>
347 </RefusjonSone2-grp-5701>
348 <RefusjonSone3-grp-5702 gruppeid="5702">
349 <RefusjonRTVGrunnlagSone3Under62Ar-datadef-25058 orid="25058">'||l_u_zone3||'</RefusjonRTVGrunnlagSone3Under62Ar-datadef-25058>
350 <RefusjonRTVGrunnlagSone3Over62Ar-datadef-25059 orid="25059">'||l_o_zone3||'</RefusjonRTVGrunnlagSone3Over62Ar-datadef-25059>
351 </RefusjonSone3-grp-5702>
352 <RefusjonSone4-grp-5703 gruppeid="5703">
353 <RefusjonRTVGrunnlagSone4Under62Ar-datadef-25060 orid="25060">'||l_u_zone4||'</RefusjonRTVGrunnlagSone4Under62Ar-datadef-25060>
354 <RefusjonRTVGrunnlagSone4Over62Ar-datadef-25061 orid="25061">'||l_o_zone4||'</RefusjonRTVGrunnlagSone4Over62Ar-datadef-25061>
355 </RefusjonSone4-grp-5703>
356 <RefusjonSone5-grp-5704 gruppeid="5704">
357 <RefusjonRTVGrunnlagSone5Under62Ar-datadef-25062 orid="25062">'||l_u_zone5||'</RefusjonRTVGrunnlagSone5Under62Ar-datadef-25062>
358 <RefusjonRTVGrunnlagSone5Over62Ar-datadef-25063 orid="25063">'||l_o_zone5||'</RefusjonRTVGrunnlagSone5Over62Ar-datadef-25063>
359 </RefusjonSone5-grp-5704>
360 </Refusjonsgrunnlag-grp-5699>';
361 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
362
363 l_str1 :='</ArbeidsgiveravgiftsgrunnlagForskuddstrekkOgRefusjon-grp-4953>';
364 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
365
366 l_str1 :='<Resultater-grp-74 gruppeid="74">
367 <Kontrollsummer-grp-4909 gruppeid="4909">
368 <ArbeidsgiveravgiftUnder62ArGrunnlag-datadef-6051 orid="6051">'||l_tot_u_contribution_basis||'</ArbeidsgiveravgiftUnder62ArGrunnlag-datadef-6051>
369 <ArbeidsgiveravgiftOver62ArGrunnlag-datadef-16510 orid="16510">'||l_tot_o_contribution_basis||'</ArbeidsgiveravgiftOver62ArGrunnlag-datadef-16510>
370 <ArbeidsgiveravgiftRestFribelop-datadef-21169 orid="21169">'||l_remain_exemp_limit||'</ArbeidsgiveravgiftRestFribelop-datadef-21169>
371 </Kontrollsummer-grp-4909>
372 <Arbeidsgiveravgift-grp-4910 gruppeid="4910">
373 <ArbeidsgiveravgiftSkyldig-datadef-223 orid="223">'||l_tot_emp_contribution||'</ArbeidsgiveravgiftSkyldig-datadef-223>
374 <KIDnummerArbeidsgiveravgift-datadef-16512 orid="16512">'||l_k_emp_contribution||'</KIDnummerArbeidsgiveravgift-datadef-16512>
375 </Arbeidsgiveravgift-grp-4910>
376 <Forskuddstrekk-grp-4911 gruppeid="4911">
377 <Forskuddstrekk-datadef-2903 orid="2903">'||l_tot_withholding_tax||'</Forskuddstrekk-datadef-2903>
378 <KIDnummerForskuddstrekk-datadef-16511 orid="16511">'||l_k_withholding_tax||'</KIDnummerForskuddstrekk-datadef-16511>
379 </Forskuddstrekk-grp-4911>
380 </Resultater-grp-74>
381 </Skjema>';
382 dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
383
384 hr_utility.set_location('Inside GETDATA',30);
385
386 p_xml := l_xfdf_string;
387
388 hr_utility.set_location('Leaving GETDATA',40);
389
390 END GET_DATA;
391
392 END PAY_NO_RSER;