18: OPEN csr_get_iana_charset;
19: FETCH csr_get_iana_charset INTO lv_iana_charset;
20: CLOSE csr_get_iana_charset;
21:
22: hr_utility.trace('IANA Charset = '||lv_iana_charset);
23: RETURN (lv_iana_charset);
24: END get_IANA_charset;
25:
26: -------------------------------------------------------------------------------
155:
156:
157: BEGIN
158:
159: --hr_utility.trace_on(NULL,'ERSR');
160: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : Parameters',100);
161: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_eff_date'||p_eff_date,140);
162: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_ele_records'||p_ele_records,160);
163: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_business_group_id'||p_business_group_id,180);
156:
157: BEGIN
158:
159: --hr_utility.trace_on(NULL,'ERSR');
160: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : Parameters',100);
161: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_eff_date'||p_eff_date,140);
162: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_ele_records'||p_ele_records,160);
163: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_business_group_id'||p_business_group_id,180);
164:
157: BEGIN
158:
159: --hr_utility.trace_on(NULL,'ERSR');
160: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : Parameters',100);
161: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_eff_date'||p_eff_date,140);
162: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_ele_records'||p_ele_records,160);
163: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_business_group_id'||p_business_group_id,180);
164:
165:
158:
159: --hr_utility.trace_on(NULL,'ERSR');
160: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : Parameters',100);
161: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_eff_date'||p_eff_date,140);
162: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_ele_records'||p_ele_records,160);
163: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_business_group_id'||p_business_group_id,180);
164:
165:
166: l_effec_date := fnd_date.canonical_to_date(p_eff_date);
159: --hr_utility.trace_on(NULL,'ERSR');
160: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : Parameters',100);
161: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_eff_date'||p_eff_date,140);
162: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_ele_records'||p_ele_records,160);
163: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate : p_business_group_id'||p_business_group_id,180);
164:
165:
166: l_effec_date := fnd_date.canonical_to_date(p_eff_date);
167:
181: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'ELE_RECORDS';
182: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := hr_general.decode_lookup('HR_NL_ESR_ELE_REC',p_ele_records);
183: vCtr := vCtr + 1;
184:
185: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
187: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
188:
189: -- Setting PL/SQL table for tags and values of the xml data for all the element records
182: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := hr_general.decode_lookup('HR_NL_ESR_ELE_REC',p_ele_records);
183: vCtr := vCtr + 1;
184:
185: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
186: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
188:
189: -- Setting PL/SQL table for tags and values of the xml data for all the element records
190:
183: vCtr := vCtr + 1;
184:
185: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
186: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
187: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
189: -- Setting PL/SQL table for tags and values of the xml data for all the element records
190:
191: FOR v_get_ele_class IN csr_get_ele_class(p_business_group_id,p_ele_records)
198: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'ELE_CLASS';
199: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := v_get_ele_class.classification_name ;
200: vCtr := vCtr + 1;
201:
202: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
204: FOR v_get_element_record
205: IN csr_get_element_record(p_business_group_id,l_effec_date,v_get_ele_class.classification_id)
206: LOOP
199: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := v_get_ele_class.classification_name ;
200: vCtr := vCtr + 1;
201:
202: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
203: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
205: IN csr_get_element_record(p_business_group_id,l_effec_date,v_get_ele_class.classification_id)
206: LOOP
207: -- Donot repeat the element name if same.
271: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_ELEMENT';
272: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
273: vCtr := vCtr + 1;
274:
275: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
277:
278: END LOOP;
279:
272: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
273: vCtr := vCtr + 1;
274:
275: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
276: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
278: END LOOP;
279:
280: IF p_ele_records = 'A' THEN
292: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_ELEMENT';
293: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
294: vCtr := vCtr + 1;
295:
296: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
298: END LOOP;
299: END IF;
300:
293: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
294: vCtr := vCtr + 1;
295:
296: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
297: hr_utility.set_location('Inside pay_nl_retro_setup_report.generate :
299: END IF;
300:
301: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_CLASS';
304:
305: END LOOP;
306:
307: -- Generate XML data using the PL/SQL table.
308: hr_utility.set_location('Entered Procedure Write to clob ',100);
309: l_str1 := '
310: l_str2 := '<';
311: l_str3 := '>';
312: l_str4 := '
321: dbms_lob.writeAppend( l_xml, length(l_str11), l_str11 );
322:
323: if PAY_NL_XDO_REPORT.vXMLTable.count > 0 then
324: dbms_lob.writeAppend( l_xml, length(l_str1), l_str1 );
325: hr_utility.set_location('Before Procedure Write to clob: before loop',102);
326: FOR ctr_table IN PAY_NL_XDO_REPORT.vXMLTable.FIRST .. PAY_NL_XDO_REPORT.vXMLTable.LAST LOOP
327: hr_utility.set_location('Before Procedure Write to clob: Inside loop'||PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagName,104);
328: l_str8 := PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagName;
329: l_str9 := PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagValue;
323: if PAY_NL_XDO_REPORT.vXMLTable.count > 0 then
324: dbms_lob.writeAppend( l_xml, length(l_str1), l_str1 );
325: hr_utility.set_location('Before Procedure Write to clob: before loop',102);
326: FOR ctr_table IN PAY_NL_XDO_REPORT.vXMLTable.FIRST .. PAY_NL_XDO_REPORT.vXMLTable.LAST LOOP
327: hr_utility.set_location('Before Procedure Write to clob: Inside loop'||PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagName,104);
328: l_str8 := PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagName;
329: l_str9 := PAY_NL_XDO_REPORT.vXMLTable(ctr_table).TagValue;
330: if (substr(l_str8,1,11) = 'G_CONTAINER') then
331: if (l_str9 is null) then
383: insert into my_table15 values(l_xml);
384: end;*/
385: EXCEPTION
386: WHEN OTHERS then
387: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
388: HR_UTILITY.RAISE_ERROR;
389:
390: END generate;
391:
384: end;*/
385: EXCEPTION
386: WHEN OTHERS then
387: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
388: HR_UTILITY.RAISE_ERROR;
389:
390: END generate;
391:
392: END pay_nl_retro_setup_report;