[Home] [Help]
1: PACKAGE BODY PAY_IE_NES_REPORT_PKG AS
2: /* $Header: pyienes.pkb 120.10 2010/09/30 09:07:01 knadhan noship $ */
3:
4: g_package VARCHAR2(50) := 'PAY_IE_nes_REPORT_PKG.';
5: EOL VARCHAR2(5) := fnd_global.local_chr(10);
1: PACKAGE BODY PAY_IE_NES_REPORT_PKG AS
2: /* $Header: pyienes.pkb 120.10 2010/09/30 09:07:01 knadhan noship $ */
3:
4: g_package VARCHAR2(50) := 'PAY_IE_nes_REPORT_PKG.';
5: EOL VARCHAR2(5) := fnd_global.local_chr(10);
6: l_errflag VARCHAR2(1) := 'N';
7: error_message boolean;
8: l_str_Common VARCHAR2(2000);
965: l_ass_check varchar2(1);
966: l_csr_already_archived pay_element_entry_values_f.screen_entry_value%TYPE := 'N';
967: BEGIN
968:
969: hr_utility.set_location('Entering PAY_IE_NES_REPORT_PKG.assignment_action_code',500);
970:
971: -- Get all the parameters
972: /*6978389 */
973: hr_utility.set_location('Before get_all_parameters',501);
1145: WHERE payroll_action_id = pactid;
1146:
1147: BEGIN
1148:
1149: hr_utility.set_location('Entering: PAY_IE_nes_REPORT_PKG.archive_init: ',600);
1150:
1151: OPEN csr_archive_effective_date(p_payroll_action_id);
1152: FETCH csr_archive_effective_date
1153: INTO g_archive_effective_date;
1181: hr_utility.set_location(' Leaving PAY_IE_NESS_REPORT_PKG.archive_init', 640);
1182:
1183: EXCEPTION
1184: WHEN Others THEN
1185: hr_utility.set_location(' Leaving PAY_IE_nes_REPORT_PKG.archive_init with errors', 650);
1186: Hr_Utility.set_location('..'||'SQL-ERRM :'||SQLERRM,1211);
1187:
1188: END archive_init;
1189: -----------------------------------------------------------------------
1532: --------------------------- Variables which will hold the Balance Values.
1533:
1534: BEGIN
1535:
1536: hr_utility.set_location(' Entering PAY_IE_nes_REPORT_PKG.ARCHIVE_CODE: ',700);
1537:
1538: hr_utility.set_location('p_assignment_action_id '||TO_CHAR(p_assactid),700);
1539: OPEN cur_get_pactid(p_assactid);
1540: FETCH cur_get_pactid INTO l_payroll_action_id,l_assignment_id,l_person_id,l_employee_number; -- 9795571
3030: buffer RAW( 32767 );
3031: res BLOB;
3032: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
3033: BEGIN
3034: Hr_Utility.set_location('Entering: PAY_IE_NES_REPORT_PKG.c2b',1000);
3035: DBMS_LOB.createTemporary( res, TRUE );
3036: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
3037:
3038:
3046: pos := pos + 16000;
3047: EXIT WHEN pos > lob_len;
3048: END LOOP;
3049:
3050: Hr_Utility.set_location('Leaving: PAY_IE_NES_REPORT_PKG.c2b',1010);
3051: RETURN res; -- res is OPEN here
3052: END c2b;
3053: -----------------------------------------------------------------------
3054: -- GEN_BODY_XML
3114: l_csr_nes_part1 csr_nes_part1%ROWTYPE;
3115:
3116:
3117: BEGIN
3118: hr_utility.set_location(' Entering: PAY_IE_NES_REPORT_PKG.gen_body_xml: ', 2000);
3119:
3120: l_payroll_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
3121: l_assignment_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_ACT_ID');
3122:
3162: l_blob := c2b(l_clob);
3163: pay_core_files.write_to_magtape_lob(l_blob);
3164: END IF;
3165:
3166: hr_utility.set_location(' Leaving: PAY_IE_NES_REPORT_PKG.gen_body_xml: ', 2040);
3167:
3168: EXCEPTION
3169: WHEN Others THEN
3170: Hr_Utility.set_location('..'||'SQL-ERRM :'||SQLERRM,2050);
3226: l_proc := g_package || 'gen_header_xml';
3227: hr_utility.set_location ('Entering '||l_proc,1500);
3228:
3229: l_payroll_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID');
3230: hr_utility.set_location('Inside PAY_IE_NES_REPORT_PKG.gen_header_xml,l_payroll_action_id: '||l_payroll_action_id,300);
3231:
3232: OPEN c_get_header(l_payroll_action_id);
3233: FETCH c_get_header into l_header;
3234: CLOSE c_get_header;
3322: setup_balance_table;
3323:
3324: hr_utility.set_location('After the call of setup_balance_table in '||l_procedure_name, 320);
3325: end archive_deinit;
3326: END PAY_IE_NES_REPORT_PKG;