9: g_shouwa_to date := to_date('1989-01-07','YYYY-MM-DD');
10: g_heisei_from date := to_date('1989-01-08','YYYY-MM-DD');
11: g_heisei_to date := g_end_of_time;
12:
13: g_husband_user_name fnd_new_messages.message_text%type := fnd_message.get_string('PAY','PAY_JP_HUSBAND');
14: g_wife_user_name fnd_new_messages.message_text%type := fnd_message.get_string('PAY','PAY_JP_WIFE');
15: --
16: c_legislation_code varchar2(2) := 'JP';
17: c_com_hi_smr_info_elm pay_element_types_f.element_name%type := 'COM_HI_SMR_INFO';
10: g_heisei_from date := to_date('1989-01-08','YYYY-MM-DD');
11: g_heisei_to date := g_end_of_time;
12:
13: g_husband_user_name fnd_new_messages.message_text%type := fnd_message.get_string('PAY','PAY_JP_HUSBAND');
14: g_wife_user_name fnd_new_messages.message_text%type := fnd_message.get_string('PAY','PAY_JP_WIFE');
15: --
16: c_legislation_code varchar2(2) := 'JP';
17: c_com_hi_smr_info_elm pay_element_types_f.element_name%type := 'COM_HI_SMR_INFO';
18: c_com_wp_smr_info_elm pay_element_types_f.element_name%type := 'COM_WP_SMR_INFO';
48: c_max_line_size binary_integer := 32767;
49: c_comma_delimiter varchar2(1) := ',';
50: c_dot_delimiter varchar2(1) := '.';
51: --
52: c_circle varchar2(60) := substr(fnd_message.get_string('PER','HR_JP_CIRCLE'),0,1);
53: --
54: --------------------------------------------------------------
55: -- INSERT_SESSION_DATE --
56: --------------------------------------------------------------
227: pcon.per_information18 CON_LAST_NAME,
228: pcon.per_information19 CON_FIRST_NAME,
229: decode(pcon.sex,'M',1,'F',2,3) SEX_ORDER,
230: pcon.date_of_birth DATE_OF_BIRTH,
231: decode(pcr.contact_type,'S',decode(pcon.sex,'F',fnd_message.get_string('PAY','PAY_JP_WIFE'),fnd_message.get_string('PAY','PAY_JP_HUSBAND')),flv1.meaning) CONTACT_TYPE,
232: decode(pcr.contact_type,'S',decode(pcon.sex,'F',fnd_message.get_string('PAY','PAY_JP_WIFE_KANA'),fnd_message.get_string('PAY','PAY_JP_HUSBAND_KANA')),flv2.meaning) CONTACT_TYPE_KANA
233: from
234: hr_lookups flv2,
235: hr_lookups flv1,
228: pcon.per_information19 CON_FIRST_NAME,
229: decode(pcon.sex,'M',1,'F',2,3) SEX_ORDER,
230: pcon.date_of_birth DATE_OF_BIRTH,
231: decode(pcr.contact_type,'S',decode(pcon.sex,'F',fnd_message.get_string('PAY','PAY_JP_WIFE'),fnd_message.get_string('PAY','PAY_JP_HUSBAND')),flv1.meaning) CONTACT_TYPE,
232: decode(pcr.contact_type,'S',decode(pcon.sex,'F',fnd_message.get_string('PAY','PAY_JP_WIFE_KANA'),fnd_message.get_string('PAY','PAY_JP_HUSBAND_KANA')),flv2.meaning) CONTACT_TYPE_KANA
233: from
234: hr_lookups flv2,
235: hr_lookups flv1,
236: per_all_people_f pcon,
980: and l_prev_swot_2_rec.prev_swot_si_prem = 0) then
981:
982: if P_KANJI_FLAG = '1' then -- Kanji
983: if (l_description is NULL) then
984: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
985: else
986: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
987: end if;
988: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
982: if P_KANJI_FLAG = '1' then -- Kanji
983: if (l_description is NULL) then
984: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
985: else
986: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
987: end if;
988: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
989: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
990: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
984: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
985: else
986: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
987: end if;
988: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
989: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
990: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
991: l_prev_si_prem := ',' ||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
992: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
986: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
987: end if;
988: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
989: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
990: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
991: l_prev_si_prem := ',' ||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
992: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
993: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
994: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
987: end if;
988: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
989: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
990: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
991: l_prev_si_prem := ',' ||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
992: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
993: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
994: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
995: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN')
989: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
990: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
991: l_prev_si_prem := ',' ||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
992: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
993: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
994: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
995: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN')
996: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
997: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX') ||')';
991: l_prev_si_prem := ',' ||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
992: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
993: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
994: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
995: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN')
996: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
997: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX') ||')';
998: end if;
999: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX')
993: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
994: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
995: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN')
996: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
997: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX') ||')';
998: end if;
999: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX')
1000: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1001: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
995: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN')
996: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
997: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX') ||')';
998: end if;
999: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX')
1000: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1001: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1002: if nvl(l_prev_swot_rec.employer_address,' ') <> ' ' then
1003: l_prev_add := ',' || l_prev_swot_rec.employer_address;
997: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX') ||')';
998: end if;
999: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX')
1000: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1001: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1002: if nvl(l_prev_swot_rec.employer_address,' ') <> ' ' then
1003: l_prev_add := ',' || l_prev_swot_rec.employer_address;
1004: end if;
1005: if nvl(l_prev_swot_rec.employer_name,' ') <> ' ' then
1006: l_prev_name := ',' || l_prev_swot_rec.employer_name;
1007: end if;
1008: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1009: l_prev_term := ','
1010: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1011: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1012: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1013: || fnd_message.get_string('PAY','PAY_JP_TERM');
1014: end if;
1007: end if;
1008: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1009: l_prev_term := ','
1010: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1011: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1012: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1013: || fnd_message.get_string('PAY','PAY_JP_TERM');
1014: end if;
1015: else -- Kana
1008: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1009: l_prev_term := ','
1010: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1011: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1012: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1013: || fnd_message.get_string('PAY','PAY_JP_TERM');
1014: end if;
1015: else -- Kana
1016: if (l_description is NULL) then
1009: l_prev_term := ','
1010: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1011: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1012: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1013: || fnd_message.get_string('PAY','PAY_JP_TERM');
1014: end if;
1015: else -- Kana
1016: if (l_description is NULL) then
1017: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1013: || fnd_message.get_string('PAY','PAY_JP_TERM');
1014: end if;
1015: else -- Kana
1016: if (l_description is NULL) then
1017: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1018: else
1019: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1020: end if;
1021: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1015: else -- Kana
1016: if (l_description is NULL) then
1017: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1018: else
1019: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1020: end if;
1021: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1022: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
1023: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1017: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1018: else
1019: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1020: end if;
1021: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1022: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
1023: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1024: l_prev_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1025: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
1019: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1020: end if;
1021: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1022: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
1023: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1024: l_prev_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1025: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
1026: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1027: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
1020: end if;
1021: l_prev_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1022: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
1023: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1024: l_prev_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1025: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
1026: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1027: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
1028: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1022: || to_char(l_prev_swot_2_rec.prev_swot_taxable_amt)
1023: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1024: l_prev_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1025: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
1026: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1027: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
1028: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1029: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
1030: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') || ')';
1024: l_prev_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1025: || to_char(l_prev_swot_2_rec.prev_swot_si_prem)
1026: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1027: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
1028: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1029: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
1030: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') || ')';
1031: end if;
1032: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1026: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1027: if (l_prev_swot_2_rec.prev_swot_mutual_aid is not NULL) then
1028: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1029: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
1030: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') || ')';
1031: end if;
1032: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1033: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1034: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1028: l_prev_mutual_aid := '(' ||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1029: || to_char(l_prev_swot_2_rec.prev_swot_mutual_aid)
1030: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') || ')';
1031: end if;
1032: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1033: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1034: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1035: if nvl(l_prev_swot_rec.employer_address,' ') <> ' ' then
1036: l_prev_add := ',' || l_prev_swot_rec.employer_address;
1030: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') || ')';
1031: end if;
1032: l_prev_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1033: || to_char(l_prev_swot_2_rec.prev_swot_itax)
1034: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1035: if nvl(l_prev_swot_rec.employer_address,' ') <> ' ' then
1036: l_prev_add := ',' || l_prev_swot_rec.employer_address;
1037: end if;
1038: if nvl(l_prev_swot_rec.employer_name,' ') <> ' ' then
1039: l_prev_name := ',' || l_prev_swot_rec.employer_name;
1040: end if;
1041: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1042: l_prev_term := ','
1043: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1044: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1045: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1046: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1047: end if;
1040: end if;
1041: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1042: l_prev_term := ','
1043: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1044: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1045: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1046: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1047: end if;
1048: end if;
1041: if (l_prev_swot_rec.prev_swot_term_date is not NULL) then
1042: l_prev_term := ','
1043: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1044: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1045: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1046: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1047: end if;
1048: end if;
1049: l_description := pay_jp_report_pkg.substrb2(l_description
1042: l_prev_term := ','
1043: || lpad(to_char(l_prev_term_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1044: || lpad(to_char(l_prev_term_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1045: || lpad(to_char(l_prev_term_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1046: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1047: end if;
1048: end if;
1049: l_description := pay_jp_report_pkg.substrb2(l_description
1050: || l_prev_taxable_amt || l_prev_si_prem
1196: and l_get_entry_values_rec.pjob_si_prem = 0
1197: and l_get_entry_values_rec.pjob_itax = 0) then
1198: if p_kanji_flag = '1' then
1199: if (l_description is NULL) then
1200: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1201: else
1202: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1203: end if;
1204: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
1198: if p_kanji_flag = '1' then
1199: if (l_description is NULL) then
1200: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1201: else
1202: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1203: end if;
1204: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
1205: || l_get_entry_values_rec.pjob_taxable_amt
1206: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1200: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1201: else
1202: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1203: end if;
1204: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
1205: || l_get_entry_values_rec.pjob_taxable_amt
1206: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1207: l_pjob_si_prem := ','||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
1208: || l_get_entry_values_rec.pjob_si_prem
1202: l_description := l_description || ',' ||fnd_message.get_string('PAY','PAY_JP_PREVIOUS_EMPLOYMENT');
1203: end if;
1204: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
1205: || l_get_entry_values_rec.pjob_taxable_amt
1206: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1207: l_pjob_si_prem := ','||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
1208: || l_get_entry_values_rec.pjob_si_prem
1209: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1210: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1203: end if;
1204: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_SALARY')
1205: || l_get_entry_values_rec.pjob_taxable_amt
1206: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1207: l_pjob_si_prem := ','||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
1208: || l_get_entry_values_rec.pjob_si_prem
1209: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1210: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1211: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN')
1205: || l_get_entry_values_rec.pjob_taxable_amt
1206: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1207: l_pjob_si_prem := ','||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
1208: || l_get_entry_values_rec.pjob_si_prem
1209: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1210: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1211: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN')
1212: || l_get_entry_values_rec.pjob_mutual_aid
1213: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX')||')';
1207: l_pjob_si_prem := ','||fnd_message.get_string('PAY','PAY_JP_TRANS_SI')
1208: || l_get_entry_values_rec.pjob_si_prem
1209: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1210: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1211: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN')
1212: || l_get_entry_values_rec.pjob_mutual_aid
1213: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX')||')';
1214: end if;
1215: l_pjob_itax := ','||fnd_message.get_string('PAY','PAY_JP_TAX')
1209: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1210: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1211: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN')
1212: || l_get_entry_values_rec.pjob_mutual_aid
1213: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX')||')';
1214: end if;
1215: l_pjob_itax := ','||fnd_message.get_string('PAY','PAY_JP_TAX')
1216: || l_get_entry_values_rec.pjob_itax
1217: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1211: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN')
1212: || l_get_entry_values_rec.pjob_mutual_aid
1213: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX')||')';
1214: end if;
1215: l_pjob_itax := ','||fnd_message.get_string('PAY','PAY_JP_TAX')
1216: || l_get_entry_values_rec.pjob_itax
1217: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1218: if nvl(l_get_entry_values_rec.pjob_addr, ' ') <> ' ' then
1219: l_pjob_addr := ',' || l_get_entry_values_rec.pjob_addr;
1213: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX')||')';
1214: end if;
1215: l_pjob_itax := ','||fnd_message.get_string('PAY','PAY_JP_TAX')
1216: || l_get_entry_values_rec.pjob_itax
1217: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX');
1218: if nvl(l_get_entry_values_rec.pjob_addr, ' ') <> ' ' then
1219: l_pjob_addr := ',' || l_get_entry_values_rec.pjob_addr;
1220: end if;
1221: if nvl(l_get_entry_values_rec.pjob_employer_name, ' ') <> ' ' then
1222: l_pjob_employer_name := ',' || l_get_entry_values_rec.pjob_employer_name;
1223: end if;
1224: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1225: l_pjob_term_date := ','
1226: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1227: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1228: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1229: || fnd_message.get_string('PAY','PAY_JP_TERM');
1230: end if;
1223: end if;
1224: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1225: l_pjob_term_date := ','
1226: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1227: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1228: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1229: || fnd_message.get_string('PAY','PAY_JP_TERM');
1230: end if;
1231: else
1224: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1225: l_pjob_term_date := ','
1226: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1227: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1228: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1229: || fnd_message.get_string('PAY','PAY_JP_TERM');
1230: end if;
1231: else
1232: if (l_description is NULL) then
1225: l_pjob_term_date := ','
1226: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PER','HR_JP_YY')
1227: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PER','HR_JP_MM')
1228: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PER','HR_JP_DD')
1229: || fnd_message.get_string('PAY','PAY_JP_TERM');
1230: end if;
1231: else
1232: if (l_description is NULL) then
1233: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1229: || fnd_message.get_string('PAY','PAY_JP_TERM');
1230: end if;
1231: else
1232: if (l_description is NULL) then
1233: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1234: else
1235: l_description := l_description || ',' || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1236: end if;
1237: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1231: else
1232: if (l_description is NULL) then
1233: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1234: else
1235: l_description := l_description || ',' || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1236: end if;
1237: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1238: || l_get_entry_values_rec.pjob_taxable_amt
1239: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1233: l_description := l_description || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1234: else
1235: l_description := l_description || ',' || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1236: end if;
1237: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1238: || l_get_entry_values_rec.pjob_taxable_amt
1239: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1240: l_pjob_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1241: || l_get_entry_values_rec.pjob_si_prem
1235: l_description := l_description || ',' || fnd_message.get_string('PAY','PAY_JP_PREV_EMPLOYMENT_KANA');
1236: end if;
1237: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1238: || l_get_entry_values_rec.pjob_taxable_amt
1239: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1240: l_pjob_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1241: || l_get_entry_values_rec.pjob_si_prem
1242: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1243: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1236: end if;
1237: l_pjob_taxable_amt := fnd_message.get_string('PAY','PAY_JP_TRANS_SALARY_KANA')
1238: || l_get_entry_values_rec.pjob_taxable_amt
1239: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1240: l_pjob_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1241: || l_get_entry_values_rec.pjob_si_prem
1242: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1243: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1244: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1238: || l_get_entry_values_rec.pjob_taxable_amt
1239: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1240: l_pjob_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1241: || l_get_entry_values_rec.pjob_si_prem
1242: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1243: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1244: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1245: || l_get_entry_values_rec.pjob_mutual_aid
1246: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') ||')';
1240: l_pjob_si_prem := ',' || fnd_message.get_string('PAY','PAY_JP_TRANS_SI_KANA')
1241: || l_get_entry_values_rec.pjob_si_prem
1242: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1243: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1244: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1245: || l_get_entry_values_rec.pjob_mutual_aid
1246: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') ||')';
1247: end if;
1248: l_pjob_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1242: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1243: if (l_get_entry_values_rec.pjob_mutual_aid is not NULL) then
1244: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1245: || l_get_entry_values_rec.pjob_mutual_aid
1246: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') ||')';
1247: end if;
1248: l_pjob_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1249: || l_get_entry_values_rec.pjob_itax
1250: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1244: l_pjob_mutual_aid := '('||fnd_message.get_string('PAY','PAY_JP_WITHIN_KANA')
1245: || l_get_entry_values_rec.pjob_mutual_aid
1246: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') ||')';
1247: end if;
1248: l_pjob_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1249: || l_get_entry_values_rec.pjob_itax
1250: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1251: if nvl(l_get_entry_values_rec.pjob_addr, ' ') <> ' ' then
1252: l_pjob_addr := ',' || l_get_entry_values_rec.pjob_addr;
1246: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA') ||')';
1247: end if;
1248: l_pjob_itax := ',' ||fnd_message.get_string('PAY','PAY_JP_TAX_KANA')
1249: || l_get_entry_values_rec.pjob_itax
1250: || fnd_message.get_string('PAY','PAY_JP_JBA_MONEY_SUFFIX_KANA');
1251: if nvl(l_get_entry_values_rec.pjob_addr, ' ') <> ' ' then
1252: l_pjob_addr := ',' || l_get_entry_values_rec.pjob_addr;
1253: end if;
1254: if nvl(l_get_entry_values_rec.pjob_employer_name, ' ') <> ' ' then
1255: l_pjob_employer_name := ',' || l_get_entry_values_rec.pjob_employer_name;
1256: end if;
1257: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1258: l_pjob_term_date := ','
1259: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1260: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1261: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1262: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1263: end if;
1256: end if;
1257: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1258: l_pjob_term_date := ','
1259: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1260: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1261: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1262: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1263: end if;
1264: end if;
1257: if (l_get_entry_values_rec.pjob_term_date is not NULL) then
1258: l_pjob_term_date := ','
1259: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1260: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1261: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1262: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1263: end if;
1264: end if;
1265: l_description := pay_jp_report_pkg.substrb2(l_description
1258: l_pjob_term_date := ','
1259: || lpad(to_char(l_year),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_YY_KANA')
1260: || lpad(to_char(l_month),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_MM_KANA')
1261: || lpad(to_char(l_day),2,'0') || fnd_message.get_string('PAY','PAY_JP_TRANS_DD_KANA')
1262: || fnd_message.get_string('PAY','PAY_JP_TRANS_TERM_KANA');
1263: end if;
1264: end if;
1265: l_description := pay_jp_report_pkg.substrb2(l_description
1266: || l_pjob_taxable_amt || l_pjob_si_prem
1407: INDEX(PAPF PER_PEOPLE_F_PK) */
1408: DECODE(pceif.cei_information7,
1409: NULL,SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 ||
1410: DECODE(pceif.cei_information6,
1411: '20', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY') || ')',
1412: '30', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER') || ')' , NULL), 1, 2000),
1413: SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 || ' (' || pceif.cei_information7 ||
1414: DECODE(pceif.cei_information6,
1415: '20', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY'),
1408: DECODE(pceif.cei_information7,
1409: NULL,SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 ||
1410: DECODE(pceif.cei_information6,
1411: '20', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY') || ')',
1412: '30', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER') || ')' , NULL), 1, 2000),
1413: SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 || ' (' || pceif.cei_information7 ||
1414: DECODE(pceif.cei_information6,
1415: '20', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY'),
1416: '30', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER'), NULL) || ')',1,2000)) details
1411: '20', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY') || ')',
1412: '30', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER') || ')' , NULL), 1, 2000),
1413: SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 || ' (' || pceif.cei_information7 ||
1414: DECODE(pceif.cei_information6,
1415: '20', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY'),
1416: '30', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER'), NULL) || ')',1,2000)) details
1417: FROM per_contact_relationships pcr,
1418: per_contact_extra_info_f pceif,
1419: per_all_people_f papf
1412: '30', '(' ||fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER') || ')' , NULL), 1, 2000),
1413: SUBSTRB(papf.per_information18 || ' ' || papf.per_information19 || ' (' || pceif.cei_information7 ||
1414: DECODE(pceif.cei_information6,
1415: '20', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_SEPARATELY'),
1416: '30', ', ' || fnd_message.get_string('PAY','PAY_JP_LIVING_TOGETHER'), NULL) || ')',1,2000)) details
1417: FROM per_contact_relationships pcr,
1418: per_contact_extra_info_f pceif,
1419: per_all_people_f papf
1420: WHERE pcr.person_id = p_person_id
2598: if g_debug then
2599: hr_utility.trace('open_file : invalid_path');
2600: end if;
2601: --
2602: fnd_message.set_name('FND','CONC-FILE_ERROR');
2603: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2604: l_user_error := substrb(fnd_message.get,1,255);
2605: --
2606: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_PATH');
2599: hr_utility.trace('open_file : invalid_path');
2600: end if;
2601: --
2602: fnd_message.set_name('FND','CONC-FILE_ERROR');
2603: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2604: l_user_error := substrb(fnd_message.get,1,255);
2605: --
2606: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_PATH');
2607: fnd_message.set_token('FILE_DIR',p_file_dir,false);
2600: end if;
2601: --
2602: fnd_message.set_name('FND','CONC-FILE_ERROR');
2603: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2604: l_user_error := substrb(fnd_message.get,1,255);
2605: --
2606: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_PATH');
2607: fnd_message.set_token('FILE_DIR',p_file_dir,false);
2608: --
2602: fnd_message.set_name('FND','CONC-FILE_ERROR');
2603: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2604: l_user_error := substrb(fnd_message.get,1,255);
2605: --
2606: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_PATH');
2607: fnd_message.set_token('FILE_DIR',p_file_dir,false);
2608: --
2609: raise_application_error(-20100,l_user_error);
2610: --
2603: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2604: l_user_error := substrb(fnd_message.get,1,255);
2605: --
2606: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_PATH');
2607: fnd_message.set_token('FILE_DIR',p_file_dir,false);
2608: --
2609: raise_application_error(-20100,l_user_error);
2610: --
2611: when utl_file.invalid_mode then
2613: if g_debug then
2614: hr_utility.trace('open_file : invalid_mode');
2615: end if;
2616: --
2617: fnd_message.set_name('FND','CONC-FILE_ERROR');
2618: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2614: hr_utility.trace('open_file : invalid_mode');
2615: end if;
2616: --
2617: fnd_message.set_name('FND','CONC-FILE_ERROR');
2618: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2622: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2615: end if;
2616: --
2617: fnd_message.set_name('FND','CONC-FILE_ERROR');
2618: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2622: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2623: fnd_message.set_token('FILE_MODE','a',false);
2617: fnd_message.set_name('FND','CONC-FILE_ERROR');
2618: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2622: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2623: fnd_message.set_token('FILE_MODE','a',false);
2624: --
2625: raise_application_error(-20100,l_user_error);
2618: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2622: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2623: fnd_message.set_token('FILE_MODE','a',false);
2624: --
2625: raise_application_error(-20100,l_user_error);
2626: --
2619: l_user_error := substrb(fnd_message.get,1,255);
2620: --
2621: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MODE');
2622: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2623: fnd_message.set_token('FILE_MODE','a',false);
2624: --
2625: raise_application_error(-20100,l_user_error);
2626: --
2627: when utl_file.invalid_operation then
2629: if g_debug then
2630: hr_utility.trace('open_file : invalid_operation');
2631: end if;
2632: --
2633: fnd_message.set_name('FND','CONC-FILE_ERROR');
2634: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2630: hr_utility.trace('open_file : invalid_operation');
2631: end if;
2632: --
2633: fnd_message.set_name('FND','CONC-FILE_ERROR');
2634: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2638: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2631: end if;
2632: --
2633: fnd_message.set_name('FND','CONC-FILE_ERROR');
2634: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2638: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2639: fnd_message.set_token('TEMP_DIR',p_file_dir,false);
2633: fnd_message.set_name('FND','CONC-FILE_ERROR');
2634: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2638: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2639: fnd_message.set_token('TEMP_DIR',p_file_dir,false);
2640: --
2641: raise_application_error(-20100,l_user_error);
2634: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2638: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2639: fnd_message.set_token('TEMP_DIR',p_file_dir,false);
2640: --
2641: raise_application_error(-20100,l_user_error);
2642: --
2635: l_user_error := substrb(fnd_message.get,1,255);
2636: --
2637: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2638: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2639: fnd_message.set_token('TEMP_DIR',p_file_dir,false);
2640: --
2641: raise_application_error(-20100,l_user_error);
2642: --
2643: when utl_file.invalid_maxlinesize then
2645: if g_debug then
2646: hr_utility.trace('open_file : invalid_maxlinesize');
2647: end if;
2648: --
2649: fnd_message.set_name('FND','CONC-FILE_ERROR');
2650: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2646: hr_utility.trace('open_file : invalid_maxlinesize');
2647: end if;
2648: --
2649: fnd_message.set_name('FND','CONC-FILE_ERROR');
2650: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2654: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2647: end if;
2648: --
2649: fnd_message.set_name('FND','CONC-FILE_ERROR');
2650: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2654: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2655: fnd_message.set_token('MAXLINE',c_max_line_size,false);
2649: fnd_message.set_name('FND','CONC-FILE_ERROR');
2650: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2654: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2655: fnd_message.set_token('MAXLINE',c_max_line_size,false);
2656: --
2657: raise_application_error(-20100,l_user_error);
2650: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2654: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2655: fnd_message.set_token('MAXLINE',c_max_line_size,false);
2656: --
2657: raise_application_error(-20100,l_user_error);
2658: --
2651: l_user_error := substrb(fnd_message.get,1,255);
2652: --
2653: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_MAXLINE');
2654: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2655: fnd_message.set_token('MAXLINE',c_max_line_size,false);
2656: --
2657: raise_application_error(-20100,l_user_error);
2658: --
2659: when others then
2709: if g_debug then
2710: hr_utility.trace('read_file : invalid_filehandle');
2711: end if;
2712: --
2713: fnd_message.set_name('FND','CONC-FILE_ERROR');
2714: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2715: l_user_error := substrb(fnd_message.get,1,255);
2716: --
2717: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2710: hr_utility.trace('read_file : invalid_filehandle');
2711: end if;
2712: --
2713: fnd_message.set_name('FND','CONC-FILE_ERROR');
2714: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2715: l_user_error := substrb(fnd_message.get,1,255);
2716: --
2717: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2718: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2711: end if;
2712: --
2713: fnd_message.set_name('FND','CONC-FILE_ERROR');
2714: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2715: l_user_error := substrb(fnd_message.get,1,255);
2716: --
2717: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2718: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2719: --
2713: fnd_message.set_name('FND','CONC-FILE_ERROR');
2714: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2715: l_user_error := substrb(fnd_message.get,1,255);
2716: --
2717: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2718: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2719: --
2720: raise_application_error(-20100,l_user_error);
2721: --
2714: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2715: l_user_error := substrb(fnd_message.get,1,255);
2716: --
2717: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2718: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2719: --
2720: raise_application_error(-20100,l_user_error);
2721: --
2722: when utl_file.invalid_operation then
2724: if g_debug then
2725: hr_utility.trace('read_file : invalid_operation');
2726: end if;
2727: --
2728: fnd_message.set_name('FND','CONC-FILE_ERROR');
2729: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2730: l_user_error := substrb(fnd_message.get,1,255);
2731: --
2732: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2725: hr_utility.trace('read_file : invalid_operation');
2726: end if;
2727: --
2728: fnd_message.set_name('FND','CONC-FILE_ERROR');
2729: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2730: l_user_error := substrb(fnd_message.get,1,255);
2731: --
2732: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2733: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2726: end if;
2727: --
2728: fnd_message.set_name('FND','CONC-FILE_ERROR');
2729: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2730: l_user_error := substrb(fnd_message.get,1,255);
2731: --
2732: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2733: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2734: --
2728: fnd_message.set_name('FND','CONC-FILE_ERROR');
2729: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2730: l_user_error := substrb(fnd_message.get,1,255);
2731: --
2732: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2733: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2734: --
2735: raise_application_error(-20100,l_user_error);
2736: --
2729: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2730: l_user_error := substrb(fnd_message.get,1,255);
2731: --
2732: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2733: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2734: --
2735: raise_application_error(-20100,l_user_error);
2736: --
2737: when utl_file.read_error then
2739: if g_debug then
2740: hr_utility.trace('read_file : read_error');
2741: end if;
2742: --
2743: fnd_message.set_name('FND','CONC-FILE_ERROR');
2744: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2745: l_user_error := substrb(fnd_message.get,1,255);
2746: --
2747: fnd_message.set_name('FND','CONC-TEMPFILE_READ_ERROR');
2740: hr_utility.trace('read_file : read_error');
2741: end if;
2742: --
2743: fnd_message.set_name('FND','CONC-FILE_ERROR');
2744: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2745: l_user_error := substrb(fnd_message.get,1,255);
2746: --
2747: fnd_message.set_name('FND','CONC-TEMPFILE_READ_ERROR');
2748: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2741: end if;
2742: --
2743: fnd_message.set_name('FND','CONC-FILE_ERROR');
2744: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2745: l_user_error := substrb(fnd_message.get,1,255);
2746: --
2747: fnd_message.set_name('FND','CONC-TEMPFILE_READ_ERROR');
2748: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2749: --
2743: fnd_message.set_name('FND','CONC-FILE_ERROR');
2744: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2745: l_user_error := substrb(fnd_message.get,1,255);
2746: --
2747: fnd_message.set_name('FND','CONC-TEMPFILE_READ_ERROR');
2748: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2749: --
2750: raise_application_error(-20100,l_user_error);
2751: --
2744: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2745: l_user_error := substrb(fnd_message.get,1,255);
2746: --
2747: fnd_message.set_name('FND','CONC-TEMPFILE_READ_ERROR');
2748: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2749: --
2750: raise_application_error(-20100,l_user_error);
2751: --
2752: when others then
2851: if g_debug then
2852: hr_utility.trace('write_file : invalid_filehandle');
2853: end if;
2854: --
2855: fnd_message.set_name('FND','CONC-FILE_ERROR');
2856: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2857: l_user_error := substrb(fnd_message.get,1,255);
2858: --
2859: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2852: hr_utility.trace('write_file : invalid_filehandle');
2853: end if;
2854: --
2855: fnd_message.set_name('FND','CONC-FILE_ERROR');
2856: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2857: l_user_error := substrb(fnd_message.get,1,255);
2858: --
2859: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2860: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2853: end if;
2854: --
2855: fnd_message.set_name('FND','CONC-FILE_ERROR');
2856: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2857: l_user_error := substrb(fnd_message.get,1,255);
2858: --
2859: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2860: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2861: --
2855: fnd_message.set_name('FND','CONC-FILE_ERROR');
2856: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2857: l_user_error := substrb(fnd_message.get,1,255);
2858: --
2859: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2860: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2861: --
2862: raise_application_error(-20100,l_user_error);
2863: --
2856: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2857: l_user_error := substrb(fnd_message.get,1,255);
2858: --
2859: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_HANDLE');
2860: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2861: --
2862: raise_application_error(-20100,l_user_error);
2863: --
2864: when utl_file.invalid_operation then
2866: if g_debug then
2867: hr_utility.trace('write_file : invalid_operation');
2868: end if;
2869: --
2870: fnd_message.set_name('FND','CONC-FILE_ERROR');
2871: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2872: l_user_error := substrb(fnd_message.get,1,255);
2873: --
2874: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2867: hr_utility.trace('write_file : invalid_operation');
2868: end if;
2869: --
2870: fnd_message.set_name('FND','CONC-FILE_ERROR');
2871: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2872: l_user_error := substrb(fnd_message.get,1,255);
2873: --
2874: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2875: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2868: end if;
2869: --
2870: fnd_message.set_name('FND','CONC-FILE_ERROR');
2871: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2872: l_user_error := substrb(fnd_message.get,1,255);
2873: --
2874: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2875: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2876: --
2870: fnd_message.set_name('FND','CONC-FILE_ERROR');
2871: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2872: l_user_error := substrb(fnd_message.get,1,255);
2873: --
2874: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2875: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2876: --
2877: raise_application_error(-20100,l_user_error);
2878: --
2871: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2872: l_user_error := substrb(fnd_message.get,1,255);
2873: --
2874: fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
2875: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2876: --
2877: raise_application_error(-20100,l_user_error);
2878: --
2879: when utl_file.write_error then
2881: if g_debug then
2882: hr_utility.trace('write_file : write_error');
2883: end if;
2884: --
2885: fnd_message.set_name('FND','CONC-FILE_ERROR');
2886: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2887: l_user_error := substrb(fnd_message.get,1,255);
2888: --
2889: fnd_message.set_name('FND','CONC-TEMPFILE_WRITE_ERROR');
2882: hr_utility.trace('write_file : write_error');
2883: end if;
2884: --
2885: fnd_message.set_name('FND','CONC-FILE_ERROR');
2886: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2887: l_user_error := substrb(fnd_message.get,1,255);
2888: --
2889: fnd_message.set_name('FND','CONC-TEMPFILE_WRITE_ERROR');
2890: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2883: end if;
2884: --
2885: fnd_message.set_name('FND','CONC-FILE_ERROR');
2886: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2887: l_user_error := substrb(fnd_message.get,1,255);
2888: --
2889: fnd_message.set_name('FND','CONC-TEMPFILE_WRITE_ERROR');
2890: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2891: --
2885: fnd_message.set_name('FND','CONC-FILE_ERROR');
2886: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2887: l_user_error := substrb(fnd_message.get,1,255);
2888: --
2889: fnd_message.set_name('FND','CONC-TEMPFILE_WRITE_ERROR');
2890: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2891: --
2892: raise_application_error(-20100,l_user_error);
2893: --
2886: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2887: l_user_error := substrb(fnd_message.get,1,255);
2888: --
2889: fnd_message.set_name('FND','CONC-TEMPFILE_WRITE_ERROR');
2890: fnd_message.set_token('TEMP_FILE',p_file_name,false);
2891: --
2892: raise_application_error(-20100,l_user_error);
2893: --
2894: when others then