95: /* Bug 14701466,14616599 sbachu*/
96: cursor cur_further_info(p_cpp_withheld NUMBER,p_cpp_taxable NUMBER) is
97: select substr(ltrim(rtrim(code)),1,60) code, value value
98: from (
99: select 'B-1' code,to_char(p_cpp_withheld) value from dual
100: where p_cpp_withheld <> 0
101: union
102: select 'G-2' code,to_char(p_cpp_taxable) value from dual
103: where p_cpp_taxable <> 0
98: from (
99: select 'B-1' code,to_char(p_cpp_withheld) value from dual
100: where p_cpp_withheld <> 0
101: union
102: select 'G-2' code,to_char(p_cpp_taxable) value from dual
103: where p_cpp_taxable <> 0
104: union
105: select decode(fdi.user_name,'CAEOY_RL1_FURTHER_INFO_AMOUNT_201_AMT_PER_JD_YTD','201',
106: 'CAEOY_RL1_FURTHER_INFO_AMOUNT_211_AMT_PER_JD_YTD','211',
248: utl_raw.cast_to_varchar2(hextoraw('C386')),'AE'
249: ),
250: utl_raw.cast_to_varchar2(hextoraw('C3A9')),'e'
251: )
252: from dual;
253:
254: BEGIN
255: l_data := trim(p_data);
256: l_data := REPLACE(l_data, '&' , '&' || 'amp;');
336:
337: hr_utility.trace('l_transmitter_number = ' || l_transmitter_number);
338: SELECT substr(l_transmitter_number,1,2)
339: INTO dummy1
340: FROM dual;
341:
342: IF (dummy1 <> 'NP' OR
343: length(l_transmitter_number) <> 8) THEN
344: RAISE INVALID_NUMBER;
345: END IF;
346:
347: SELECT to_number(substr(l_transmitter_number,3,6))
348: INTO dummy
349: FROM dual;
350:
351: EXCEPTION
352: WHEN INVALID_NUMBER THEN
353: hr_utility.set_message(800,'PAY_CA_RL1_INVALID_TRANSMITTER');
605: hr_utility.set_location('pay_ca_rl1_mag.create_assignement_act', 40);
606:
607: SELECT pay_assignment_actions_s.nextval
608: INTO lockingactid
609: FROM dual;
610:
611: hr_utility.set_location('pay_ca_rl1_mag.create_assignement_act', 50);
612: hr_nonrun_asact.insact(lockingactid,
613: l_assignment_id,
880:
881: SELECT
882: fnd_global.local_chr(13) || fnd_global.local_chr(10)
883: INTO EOL
884: FROM dual;
885:
886: lAnnee := 1;
887: lTypeEnvoi := 2;
888: lProvenance := 3;
1809:
1810: SELECT
1811: fnd_global.local_chr(13) || fnd_global.local_chr(10)
1812: INTO EOL
1813: FROM dual;
1814:
1815: lAnnee := 1;
1816: lNoReleve := 2;
1817: lNAS := 3;
2074: l_person_id1 := to_number(pay_ca_archive_utils.get_archive_value(
2075: p_arch_action_id,
2076: 'CAEOY_PERSON_ID'));
2077:
2078: select trunc(sysdate) into l_session_date from dual;
2079: hr_utility.trace('l_person_id1 ='|| l_person_id1);
2080: hr_utility.trace('l_session_date ='|| l_session_date);
2081: addr := pay_ca_rl1_reg.get_primary_address(l_person_id1, l_session_date);
2082: tab_xml_employee(lLigne1) := convert_special_char(substr(addr.addr_line_1,1,40));
2224: to_number(l_box) <> 0 THEN
2225:
2226: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2227: INTO l_formatted_box
2228: FROM dual;
2229: tab_employee(lA_RevenuEmploi) := '
2230: '
2231: tab_xml_employee(lA_RevenuEmploi) := l_formatted_box; --
2232: l_all_box_0 := FALSE;
2256: l_BoxB := l_box;
2257:
2258: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2259: INTO l_formatted_box
2260: FROM dual;
2261:
2262: tab_employee(lB_CotisationRRQ) := '
2263: || '
2264: tab_xml_employee(lB_CotisationRRQ) := l_formatted_box; --
2290: to_number(l_box) <> 0 THEN
2291:
2292: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2293: INTO l_formatted_box
2294: FROM dual;
2295:
2296: tab_employee(lC_CotisationAssEmploi) := '
2297: l_formatted_box || '
2298: tab_xml_employee(lC_CotisationAssEmploi) := l_formatted_box; --
2323: to_number(l_box) <> 0 THEN
2324:
2325: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2326: INTO l_formatted_box
2327: FROM dual;
2328:
2329: tab_employee(lD_CotisationRPA) := '
2330: l_formatted_box || '
2331: tab_xml_employee(lD_CotisationRPA) := l_formatted_box; --
2357: to_number(l_box) <> 0 THEN
2358:
2359: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2360: INTO l_formatted_box
2361: FROM dual;
2362:
2363: tab_employee(lE_ImpotQue) := '
2364: l_formatted_box || '
2365: tab_xml_employee(lE_ImpotQue) := l_formatted_box ; --
2390: to_number(l_box) <> 0 THEN
2391:
2392: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2393: INTO l_formatted_box
2394: FROM dual;
2395:
2396: tab_employee(lF_CotisationSyndicale) := '
2397: l_formatted_box || '
2398: tab_xml_employee(lF_CotisationSyndicale) := l_formatted_box; --
2422: to_number(l_box) <> 0 THEN
2423:
2424: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2425: INTO l_formatted_box
2426: FROM dual;
2427:
2428: tab_employee(lQ_SalaireDiffere) := '
2429: l_formatted_box || '
2430: tab_xml_employee(lQ_SalaireDiffere) := l_formatted_box; --
2457: to_number(l_box) <> 0 THEN
2458:
2459: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2460: INTO l_formatted_box
2461: FROM dual;
2462:
2463: tab_employee(lU_RetraiteProgressive) := '
2464: l_formatted_box || '
2465: tab_xml_employee(lU_RetraiteProgressive) := l_formatted_box; --
2498: l_msg_code := 'AMT_GREATER_THAN_RANGE';
2499:
2500: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2501: INTO l_formatted_box
2502: FROM dual;
2503:
2504: tab_employee(lG_SalaireAdmisRRQ) := '
2505: l_formatted_box || '
2506:
2519: NVL(to_number(l_BoxU),0)) THEN
2520:
2521: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2522: INTO l_formatted_box
2523: FROM dual;
2524:
2525: tab_employee(lG_SalaireAdmisRRQ) := '
2526: l_formatted_box || '
2527:
2535: -- commented by for bug 10283895, BOXG value has to display in this case also
2536: -- tab_employee(lG_SalaireAdmisRRQ) := NULL;
2537: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2538: INTO l_formatted_box
2539: FROM dual;
2540: tab_employee(lG_SalaireAdmisRRQ) := '
2541: l_formatted_box||'
2542:
2543: END IF;
2555:
2556: IF l_box IS NOT NULL THEN
2557: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2558: INTO l_formatted_box
2559: FROM dual;
2560: tab_xml_employee(lG_SalaireAdmisRRQ) := l_formatted_box;
2561:
2562: --commented for 10283895
2563: /*IF to_number(l_box)= NVL(to_number(l_BoxA),0) THEN
2607: to_number(l_box) <> 0 THEN
2608:
2609: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2610: INTO l_formatted_box
2611: FROM dual;
2612:
2613: tab_employee(lV_NourritureLogement) := '
2614: l_formatted_box || '
2615: tab_xml_employee(lV_NourritureLogement) := l_formatted_box; --
2640: to_number(l_box) <> 0 THEN
2641:
2642: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2643: INTO l_formatted_box
2644: FROM dual;
2645:
2646: tab_employee(lW_Vehicule) := '
2647: l_formatted_box || '
2648: tab_xml_employee(lW_Vehicule) := l_formatted_box; --
2672: to_number(l_box) <> 0 THEN
2673:
2674: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2675: INTO l_formatted_box
2676: FROM dual;
2677:
2678: tab_employee(lH_CotisationRQAP) := '
2679: l_formatted_box || '
2680: tab_xml_employee(lH_CotisationRQAP) := l_formatted_box; --
2706: to_number(l_box) <> 0 THEN
2707:
2708: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2709: INTO l_formatted_box
2710: FROM dual;
2711:
2712: tab_employee(lI_SalaireAdmisRQAP) := '
2713: l_formatted_box || '
2714: tab_xml_employee(lI_SalaireAdmisRQAP) := l_formatted_box; --
2740: to_number(l_box) <> 0 THEN
2741:
2742: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2743: INTO l_formatted_box
2744: FROM dual;
2745:
2746: tab_employee(lJ_RegimeAssMaladie) := '
2747: l_formatted_box || '
2748: tab_xml_employee(lJ_RegimeAssMaladie) := l_formatted_box; --
2773: to_number(l_box) <> 0 THEN
2774:
2775: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2776: INTO l_formatted_box
2777: FROM dual;
2778:
2779: tab_employee(lK_Voyage) := '
2780: l_formatted_box || '
2781: tab_xml_employee(lK_Voyage) := l_formatted_box; --
2805: to_number(l_box) <> 0 THEN
2806:
2807: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2808: INTO l_formatted_box
2809: FROM dual;
2810:
2811: tab_employee(lL_AutreAvantage) := '
2812: l_formatted_box || '
2813: tab_xml_employee(lL_AutreAvantage) := l_formatted_box; --
2837: to_number(l_box) <> 0 THEN
2838:
2839: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2840: INTO l_formatted_box
2841: FROM dual;
2842:
2843: tab_employee(lM_Commission) := '
2844: l_formatted_box || '
2845: tab_xml_employee(lM_Commission) := l_formatted_box; --
2869: to_number(l_box) <> 0 THEN
2870:
2871: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2872: INTO l_formatted_box
2873: FROM dual;
2874:
2875: tab_employee(lN_DonBienfaisance) := '
2876: l_formatted_box || '
2877: tab_xml_employee(lN_DonBienfaisance) := l_formatted_box; --
2903:
2904: l_boxO := l_box;
2905: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2906: INTO l_formatted_box
2907: FROM dual;
2908:
2909: tab_employee(lO_AutreRevenu) := '
2910: l_formatted_box || '
2911: tab_xml_employee(lO_AutreRevenu) := l_formatted_box; --
2965: to_number(l_box) <> 0 THEN
2966:
2967: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
2968: INTO l_formatted_box
2969: FROM dual;
2970:
2971: tab_employee(lP_RegimeAssInterEntr) := '
2972: l_formatted_box || '
2973: tab_xml_employee(lP_RegimeAssInterEntr) := l_formatted_box; --
2997: to_number(l_box) <> 0 THEN
2998:
2999: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3000: INTO l_formatted_box
3001: FROM dual;
3002:
3003: tab_employee(lR_RevenuIndien) := '
3004: l_formatted_box || '
3005: tab_xml_employee(lR_RevenuIndien) := l_formatted_box; --
3029: to_number(l_box) <> 0 THEN
3030:
3031: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3032: INTO l_formatted_box
3033: FROM dual;
3034:
3035: tab_employee(lS_PourboireRecu) := '
3036: l_formatted_box || '
3037: tab_xml_employee(lS_PourboireRecu) := l_formatted_box; --
3061: to_number(l_box) <> 0 THEN
3062:
3063: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3064: INTO l_formatted_box
3065: FROM dual;
3066:
3067: tab_employee(lT_PourboireAttribue) := '
3068: l_formatted_box || '
3069: tab_xml_employee(lT_PourboireAttribue) := l_formatted_box; --
3094: and p_taxation_year = '2011' THEN /*bug 14701466 sbachu*/
3095:
3096: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3097: INTO l_formatted_box
3098: FROM dual;
3099:
3100: tab_employee(l_ContisationRPC) := '
3101: l_formatted_box || '
3102: l_all_box_0 := FALSE;
3124: and p_taxation_year = '2011' THEN /*bug 14701466 sbachu*/
3125:
3126: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3127: INTO l_formatted_box
3128: FROM dual;
3129:
3130: tab_employee(l_FraisGarde) := '
3131: l_formatted_box || '
3132: l_all_box_0 := FALSE;
3157: and p_taxation_year = '2011'THEN /*bug 14701466 sbachu*/
3158:
3159: SELECT ltrim(rtrim(to_char(to_number(l_box),l_format_mask)))
3160: INTO l_formatted_box
3161: FROM dual;
3162:
3163: tab_employee(l_DeductionForce) := '
3164: l_formatted_box || '
3165: l_all_box_0 := FALSE;
3218: if l_further_amount(l_i) is not null and
3219: l_further_amount(l_i) <> '0' then
3220: SELECT ltrim(rtrim(to_char(to_number(l_further_amount(l_i)),l_format_mask)))
3221: INTO l_formatted_box
3222: FROM dual;
3223: select decode(l_further_code(l_i),'201','F_1','211','F_2','235','F_3',replace(l_further_code(l_i),'-','_'))
3224: into l_formatted_code
3225: from dual;
3226: l_other_details:=l_other_details||'<'||l_formatted_code||'>'
3221: INTO l_formatted_box
3222: FROM dual;
3223: select decode(l_further_code(l_i),'201','F_1','211','F_2','235','F_3',replace(l_further_code(l_i),'-','_'))
3224: into l_formatted_code
3225: from dual;
3226: l_other_details:=l_other_details||'<'||l_formatted_code||'>'
3227: ||l_formatted_box||''||l_formatted_code||'>'||EOL;
3228: end if;
3229: end loop;
3475: if l_further_amount(l_i) is not null and
3476: l_further_amount(l_i) <> '0' then
3477: SELECT ltrim(rtrim(to_char(to_number(l_further_amount(l_i)),l_format_mask)))
3478: INTO l_formatted_box
3479: FROM dual;
3480: select decode(l_further_code(l_i),'201','F_1','211','F_2','235','F_3',replace(l_further_code(l_i),'-','_'))
3481: into l_formatted_code
3482: from dual;
3483: l_final_xml_string:=l_final_xml_string||'<'||l_formatted_code||'>'
3478: INTO l_formatted_box
3479: FROM dual;
3480: select decode(l_further_code(l_i),'201','F_1','211','F_2','235','F_3',replace(l_further_code(l_i),'-','_'))
3481: into l_formatted_code
3482: from dual;
3483: l_final_xml_string:=l_final_xml_string||'<'||l_formatted_code||'>'
3484: ||l_formatted_box||''||l_formatted_code||'>'||EOL;
3485: end if;
3486: end loop;
3519: hr_utility.trace('l_footnote_boxo3 ='|| l_footnote_boxo3);
3520:
3521: tab_xml_employee(lNomFamille) := tab_xml_employee(lNomFamille)||','||tab_xml_employee(lPrenom)||' '||tab_xml_employee(lInitiale);
3522:
3523: /*select pay_ca_rl1_pdf_seq_s.nextval into l_sequence_number from dual;
3524: */
3525: /* Bug 13564765 sbachu */
3526: lv_rl1_seq_no := pay_ca_eoy_rl1_archive.gen_rl1_pdf_seq(p_arch_action_id --Bug 6768167
3527: ,l_year
4066: and (NVL(tab_xml_employee(l_SourceCase),'RZ') = 'RZ' or l_further_code(l_i) not like 'RZ%') then
4067: l_k := l_k + 1;
4068: SELECT ltrim(rtrim(to_char(to_number(l_further_amount(l_i)),l_format_mask)))
4069: INTO l_formatted_box
4070: FROM dual;
4071: l_further_info_string:=l_further_info_string||'
4072: ||'
4073: ||'
4074: ||'
4206:
4207: SELECT
4208: fnd_global.local_chr(13) || fnd_global.local_chr(10)
4209: INTO EOL
4210: FROM dual;
4211:
4212: lAnnee := 1;
4213: lNbReleves := 2;
4214: lNoId := 3;
4495: hr_utility.trace('l_see_attached = '||l_see_attached);
4496: SELECT
4497: fnd_global.local_chr(13) || fnd_global.local_chr(10)
4498: INTO EOL
4499: from dual;
4500: l_cpp_withheld := pay_ca_archive_utils.get_archive_value(p_arch_assact_id
4501: ,'CAEOY_CPP_EE_WITHHELD_PER_YTD');
4502: open c_get_language(p_assgn_id);
4503: fetch c_get_language into l_person_lang;
4638:
4639: SELECT
4640: fnd_global.local_chr(13) || fnd_global.local_chr(10)
4641: INTO EOL
4642: FROM dual;
4643:
4644: lNoId := 1;
4645: lNom1 := 2;
4646: lLigne1 := 3;