21: aneghosh 01-Jul-2009 115.1 8316783 Added code for missing slip number.
22: Modified cursor c_original_slipno.
23: aneghosh 14-Jul-2009 115.2 8316783 Removed locking of Amendment Paper Report.
24: Reused function convert_special_char defined
25: in pay_ca_rl1_mag.
26: Added the feature to show only those emloyees
27: whose assignamnents got amended since the
28: previous run of amendment mag media.
29: aneghosh 24-Sep-2009 115.4 8932754 Modified the cursor
142: AND ppa.report_qualifier = 'CAEOY_RL1_AMEND_PPQ'
143: AND ppa.report_category = 'ARCHIVE'
144: AND ppa.effective_date = p_effective_date AND
145: p_transmitter_org_id =
146: pay_ca_rl1_mag.get_parameter('PRE_ORGANIZATION_ID',
147: ppa.legislative_parameters);
148:
149: l_transmitter_number VARCHAR2(30);
150: l_transmitter_name VARCHAR2(100);
171: FETCH cur_ppa
172: INTO l_legislative_parameters;
173: CLOSE cur_ppa;
174:
175: l_transmitter_org_id := pay_ca_rl1_mag.get_parameter('TRANSMITTER_PRE',
176: l_legislative_parameters);
177:
178: hr_utility.trace('l_transmitter_org_id = ' || to_char(l_transmitter_org_id));
179: hr_utility.trace('p_bg_id = ' || to_char(p_bg_id));
402: and ppa.report_type = ''CAEOY_RL1_AMEND_PP''
403: and ppa.payroll_action_id = paa.payroll_action_id
404: and fdi2.user_name = ''CAEOY_TAXATION_YEAR''
405: and fai2.user_entity_id = fdi2.user_entity_id
406: and fai2.value = pay_ca_rl1_mag.get_parameter(''REPORTING_YEAR'',ppa1.legislative_parameters)
407: and paa.payroll_action_id= fai2.context1
408: and paa.action_status = ''C''
409: and paa.assignment_action_id = fai1.context1
410: and fai1.user_entity_id = fdi1.user_entity_id
409: and paa.assignment_action_id = fai1.context1
410: and fai1.user_entity_id = fdi1.user_entity_id
411: and fdi1.user_name = ''CAEOY_PERSON_ID''
412: and decode(hoi.org_information3, ''Y'', hoi.organization_id, hoi.org_information20) =
413: pay_ca_rl1_mag.get_parameter(''TRANSMITTER_PRE'', ppa1.legislative_parameters )
414: and hoi.org_information_context =''Prov Reporting Est''
415: and hoi.organization_id = pay_ca_rl1_mag.get_parameter(''PRE_ORGANIZATION_ID'', ppa.legislative_parameters )
416: order by to_number(fai1.value)' ;
417:
411: and fdi1.user_name = ''CAEOY_PERSON_ID''
412: and decode(hoi.org_information3, ''Y'', hoi.organization_id, hoi.org_information20) =
413: pay_ca_rl1_mag.get_parameter(''TRANSMITTER_PRE'', ppa1.legislative_parameters )
414: and hoi.org_information_context =''Prov Reporting Est''
415: and hoi.organization_id = pay_ca_rl1_mag.get_parameter(''PRE_ORGANIZATION_ID'', ppa.legislative_parameters )
416: order by to_number(fai1.value)' ;
417:
418: hr_utility.set_location( 'pay_ca_rl1_amend_mag.range_cursor',40);
419:
699: l_quebec_no := substr(l_quebec_val ,1,10);
700:
701: hr_utility.trace('First 10 digits of the QIN: '||l_quebec_no);
702: hr_utility.trace('l_quebec_name ='|| l_quebec_name);
703: l_return := pay_ca_rl1_mag.validate_quebec_number(l_quebec_val,l_quebec_name);
704:
705: end if ;
706:
707: --Create the assignment action for the record
1015: l_transmitter_name := pay_ca_archive_utils.get_archive_value(l_context1,
1016: 'CAEOY_RL1_TRANSMITTER_NAME');
1017:
1018: tab_transmitter(lNom1) := '
1019: pay_ca_rl1_mag.convert_special_char(substr(l_transmitter_name,1,30)) || '
1020:
1021: hr_utility.trace('tab_transmitter(lNom1) = ' || tab_transmitter(lNom1));
1022:
1023: l_return := substr(l_transmitter_name,31,30);
1021: hr_utility.trace('tab_transmitter(lNom1) = ' || tab_transmitter(lNom1));
1022:
1023: l_return := substr(l_transmitter_name,31,30);
1024: IF l_return IS NOT NULL THEN
1025: tab_transmitter(lNom2) := '
1026: ELSE
1027: tab_transmitter(lNom2) := NULL;
1028: END IF;
1029:
1032: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
1033: 'CAEOY_RL1_TRANSMITTER_ADDRESS_LINE1');
1034:
1035: tab_transmitter(lLigne1) := '
1036: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
1037:
1038: hr_utility.trace('tab_transmitter(lLigne1) = ' || tab_transmitter(lLigne1));
1039:
1040: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
1041: 'CAEOY_RL1_TRANSMITTER_ADDRESS_LINE2');
1042:
1043: IF l_address_line IS NOT NULL THEN
1044: tab_transmitter(lLigne2) := '
1045: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
1046: ELSE
1047: tab_transmitter(lLigne2) := NULL;
1048: END IF;
1049:
1053: 'CAEOY_RL1_TRANSMITTER_CITY');
1054:
1055: IF l_address_line IS NOT NULL THEN
1056: tab_transmitter(lVille) := '
1057: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
1058: ELSE
1059: tab_transmitter(lVille) := NULL;
1060: END IF;
1061:
1137: 'CAEOY_RL1_ACCOUNTING_CONTACT_NAME');
1138:
1139: IF l_contact IS NOT NULL THEN
1140: tab_transmitter(lANom) := '
1141: pay_ca_rl1_mag.convert_special_char(substr(l_contact,1,30)) || '
1142: ELSE
1143: tab_transmitter(lANom) := NULL;
1144: END IF;
1145: hr_utility.trace('tab_transmitter(lANom) = ' || tab_transmitter(lANom));
1214: end if;
1215: -- End bug 6738509
1216:
1217: tab_transmitter(lNoConcepteur) :=
1218: '
1220:
1221: -- Bug 7602718
1222: if(l_taxation_year = '2006') then
1815: --NoReleve
1816: /*Bug 13564765 here*/
1817: lv_rl1_slip_no := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1818: 'CAEOY_RL1_SLIP_NUMBER');
1819: l_return := pay_ca_rl1_mag.get_slip_seq_no('|',lv_rl1_slip_no,1);
1820:
1821: IF l_return IS NULL THEN
1822: l_status := 'Failed';
1823: tab_employee(lNoReleve) := NULL;
1850: -- No
1851: l_return := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1852: 'CAEOY_EMPLOYEE_NUMBER');
1853: IF l_return IS NOT NULL THEN
1854: tab_employee(lNo) := '
1855: tab_xml_employee(lNo) := pay_ca_rl1_mag.convert_special_char(l_return); --
1856: ELSE
1857: tab_employee(lNo) := NULL;
1858: tab_xml_employee(lNo) := NULL; --
1851: l_return := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1852: 'CAEOY_EMPLOYEE_NUMBER');
1853: IF l_return IS NOT NULL THEN
1854: tab_employee(lNo) := '
1855: tab_xml_employee(lNo) := pay_ca_rl1_mag.convert_special_char(l_return); --
1856: ELSE
1857: tab_employee(lNo) := NULL;
1858: tab_xml_employee(lNo) := NULL; --
1859: END IF;
1863: -- NomFamille
1864: l_name := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1865: 'CAEOY_EMPLOYEE_LAST_NAME');
1866: tab_employee(lNomFamille) := '
1867: pay_ca_rl1_mag.convert_special_char(substr(l_name,1,30)) || '
1868: tab_xml_employee(lNomFamille) := pay_ca_rl1_mag.convert_special_char(substr(l_name,1,20)); --
1869: hr_utility.trace('tab_employee(lNomFamille) = ' || tab_employee(lNomFamille));
1870: hr_utility.trace('tab_xml_employee(lNomFamille) = ' || tab_xml_employee(lNomFamille)); --
1871:
1864: l_name := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1865: 'CAEOY_EMPLOYEE_LAST_NAME');
1866: tab_employee(lNomFamille) := '
1867: pay_ca_rl1_mag.convert_special_char(substr(l_name,1,30)) || '
1868: tab_xml_employee(lNomFamille) := pay_ca_rl1_mag.convert_special_char(substr(l_name,1,20)); --
1869: hr_utility.trace('tab_employee(lNomFamille) = ' || tab_employee(lNomFamille));
1870: hr_utility.trace('tab_xml_employee(lNomFamille) = ' || tab_xml_employee(lNomFamille)); --
1871:
1872: -- Prenom
1872: -- Prenom
1873: l_name := pay_ca_archive_utils.get_archive_value(l_arch_action_id,
1874: 'CAEOY_EMPLOYEE_FIRST_NAME');
1875: IF l_name is NOT NULL THEN
1876: tab_employee(lPrenom) := '
1878: tab_xml_employee(lPrenom) := pay_ca_rl1_mag.convert_special_char(substr(l_name,1,20)) ; --
1879:
1880: ELSE
1874: 'CAEOY_EMPLOYEE_FIRST_NAME');
1875: IF l_name is NOT NULL THEN
1876: tab_employee(lPrenom) := '
1877: || '
1878: tab_xml_employee(lPrenom) := pay_ca_rl1_mag.convert_special_char(substr(l_name,1,20)) ; --
1879:
1880: ELSE
1881: l_status := 'Failed';
1882: l_msg_code := 'MISSING_EMP_FIRST_NAME';
1945:
1946: l_addr_begin_tag := '
1947:
1948: tab_employee(lLigne1) := '
1949: pay_ca_rl1_mag.convert_special_char(substr(l_address_line1,1,30)) || '
1950: hr_utility.trace('tab_employee(lLigne1) = ' || tab_employee(lLigne1));
1951:
1952: -- Address Line 2
1953: IF ((l_address_line2 IS NULL OR
1955: (l_address_line3 IS NULL OR
1956: l_address_line3 <> ' ')) THEN
1957: l_combined_addr := rtrim(ltrim(l_address_line2)) || rtrim(ltrim(l_address_line3));
1958: tab_employee(lLigne2) := '
1959: pay_ca_rl1_mag.convert_special_char(substr(l_combined_addr,1,30)) || '
1960: ELSE
1961: tab_employee(lLigne2) := NULL;
1962: END IF;
1963: hr_utility.trace('tab_employee(lLigne2) = ' || tab_employee(lLigne2));
2933: FETCH cur_ppa
2934: INTO l_legislative_parameters;
2935: CLOSE cur_ppa;
2936:
2937: l_transmitter_org_id := pay_ca_rl1_mag.get_parameter('TRANSMITTER_PRE',
2938: l_legislative_parameters);
2939: -- Original Slip Number
2940: /*Bug 13564765 starts here*/
2941: lv_org_rl1_slip_no := NULL;
2957: tab_employee(l_origi_slipno) := NULL;
2958: l_status := 'Failed';
2959: l_msg_code := 'MISSING_SLIP_NO';
2960: ELSE
2961: l_original_slpno := pay_ca_rl1_mag.get_slip_seq_no('|',lv_org_rl1_slip_no,1);
2962: tab_employee(l_origi_slipno) := '
2963: END IF;
2964: /*Bug 13564765 ends here*/
2965: -- Negative Balance Exists
3106: if l_m = 0 then
3107: l_final_xml_string := '<' || l_status || '>' || EOL ||
3108: '' || EOL ||
3109: tab_employee(lAnnee) ||
3110: '
3111: || lv_ident_addr_string || lv_montants_string || l_further_info_string ||
3112: '
3113: '' ;
3114:
3108: '' || EOL ||
3109: tab_employee(lAnnee) ||
3110: '
3111: || lv_ident_addr_string || lv_montants_string || l_further_info_string ||
3112: '
3113: '' ;
3114:
3115: else
3116: l_final_xml_string := l_final_xml_string || EOL ||
3116: l_final_xml_string := l_final_xml_string || EOL ||
3117: '<' || l_status || '>' || EOL ||
3118: '' || EOL ||
3119: tab_employee(lAnnee) ||
3120: '
3121: || lv_ident_addr_string ||
3122: '
3123: '
3124: l_further_info_string ||
3121: || lv_ident_addr_string ||
3122: '
3123: '
3124: l_further_info_string ||
3125: '
3126: '' ;
3127: end if;
3128: l_m := 1;
3129: l_further_info_string :='';
3135: if l_m = 0 then
3136: l_final_xml_string := '<' || l_status || '>' || EOL ||
3137: '' || EOL ||
3138: tab_employee(lAnnee) ||
3139: '
3140: || lv_ident_addr_string || lv_montants_string || l_further_info_string ||
3141: '
3142: '' ;
3143:
3137: '' || EOL ||
3138: tab_employee(lAnnee) ||
3139: '
3140: || lv_ident_addr_string || lv_montants_string || l_further_info_string ||
3141: '
3142: '' ;
3143:
3144: else
3145: l_final_xml_string := l_final_xml_string || EOL ||
3145: l_final_xml_string := l_final_xml_string || EOL ||
3146: '<' || l_status || '>' || EOL ||
3147: '' || EOL ||
3148: tab_employee(lAnnee) ||
3149: '
3150: || lv_ident_addr_string ||
3151: '
3152: '
3153: l_further_info_string ||
3150: || lv_ident_addr_string ||
3151: '
3152: '
3153: l_further_info_string ||
3154: '
3155: '' ;
3156:
3157: end if;
3158: end if;
3269: l_employer_name := pay_ca_archive_utils.get_archive_value(l_context1,
3270: 'CAEOY_RL1_EMPLOYER_NAME');
3271:
3272: tab_employer(lNom1) := '
3273: pay_ca_rl1_mag.convert_special_char(substr(l_employer_name,1,30)) || '
3274: hr_utility.trace('tab_employer(lAnnee) = ' || tab_employer(lAnnee));
3275: hr_utility.trace('tab_employer(lNbReleves) = ' || tab_employer(lNbReleves));
3276: hr_utility.trace('tab_employer(lNoId) = ' || tab_employer(lNoId));
3277: hr_utility.trace('tab_employer(lTypeDossier) = ' || tab_employer(lTypeDossier));
3280: hr_utility.trace('tab_employer(lNom1) = ' || tab_employer(lNom1));
3281:
3282: IF SUBSTR(l_employer_name,31,30) IS NOT NULL THEN
3283: tab_employer(lNom2) := '
3284: pay_ca_rl1_mag.convert_special_char(substr(l_employer_name,31,30)) || '
3285: ELSE
3286: tab_employer(lNom2) := NULL;
3287: END IF;
3288: hr_utility.trace('tab_employer(lNom2) = ' || tab_employer(lNom2));
3306:
3307: l_address_begin_tag := '
3308:
3309: tab_employer(lLigne1) := '
3310: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
3311: hr_utility.trace('tab_employer(lLigne1) = ' || tab_employer(lLigne1));
3312:
3313:
3314: -- Address Line 2
3317: 'CAEOY_RL1_EMPLOYER_ADDRESS_LINE2');
3318:
3319: IF l_address_line IS NOT NULL THEN
3320: tab_employer(lLigne2) := '
3321: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
3322: ELSE
3323: tab_employer(lLigne2) := NULL;
3324: END IF;
3325: hr_utility.trace('tab_employer(lLigne2) = ' || tab_employer(lLigne2));
3329: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3330: 'CAEOY_RL1_EMPLOYER_CITY');
3331: IF l_address_line IS NOT NULL THEN
3332: tab_employer(lVille) := '
3333: pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30)) || '
3334: ELSE
3335: tab_employer(lVille) := NULL;
3336: END IF;
3337: hr_utility.trace('tab_employer(lVille) = ' || tab_employer(lVille));
3670:
3671: l_employer_name := pay_ca_archive_utils.get_archive_value(l_context1,
3672: 'CAEOY_RL1_EMPLOYER_NAME');
3673:
3674: tab_employer(lNom1) := pay_ca_rl1_mag.convert_special_char(l_employer_name);
3675: hr_utility.trace('tab_employer(lNoId) = ' || tab_employer(lNoId));
3676: hr_utility.trace('tab_employer(lNom1) = ' || tab_employer(lNom1));
3677:
3678: -- Address Line 1
3677:
3678: -- Address Line 1
3679: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3680: 'CAEOY_RL1_EMPLOYER_ADDRESS_LINE1');
3681: tab_employer(lLigne1) := pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,40));
3682: hr_utility.trace('tab_employer(lLigne1) = ' || tab_employer(lLigne1));
3683:
3684: -- Address Line 2
3685: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3683:
3684: -- Address Line 2
3685: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3686: 'CAEOY_RL1_EMPLOYER_ADDRESS_LINE2');
3687: tab_employer(lLigne2) := pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,40));
3688: hr_utility.trace('tab_employer(lLigne2) = ' || tab_employer(lLigne2));
3689:
3690: -- Address Line 3
3691: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3689:
3690: -- Address Line 3
3691: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3692: 'CAEOY_RL1_EMPLOYER_ADDRESS_LINE3');
3693: tab_employer(lLigne3) := pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,40));
3694: hr_utility.trace('tab_employer(lLigne3) = ' || tab_employer(lLigne3));
3695:
3696: if(tab_employer(lLigne2) is not null or tab_employer(lLigne3) is not null) then
3697: tab_employer(lLigne2) := tab_employer(lLigne2) ||' '|| tab_employer(lLigne3) ; /*******/
3699:
3700: -- Ville (City)
3701: l_address_line := pay_ca_archive_utils.get_archive_value(l_context1,
3702: 'CAEOY_RL1_EMPLOYER_CITY');
3703: tab_employer(lVille) := pay_ca_rl1_mag.convert_special_char(substr(l_address_line,1,30));
3704: hr_utility.trace('tab_employer(lVille) = ' || tab_employer(lVille));
3705:
3706: -- Province
3707: