DBA Data[Home] [Help]

APPS.PAY_JP_GENERIC_UPGRADE_PKG dependencies on HR_JP_STANDARD_PKG

Line 362: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 7, peev.screen_entry_value))) employer_address_kana,

358: nvl(fnd_number.canonical_to_number(min(decode(piv.display_sequence, 3, peev.screen_entry_value))), 0) mutual_aid_prem,
359: nvl(fnd_number.canonical_to_number(min(decode(piv.display_sequence, 4, peev.screen_entry_value))), 0) withholding_tax,
360: fnd_date.canonical_to_date(min(decode(piv.display_sequence, 5, peev.screen_entry_value))) termination_date,
361: nvl(min(decode(piv.display_sequence, 6, peev.screen_entry_value)), 'N') foreign_flag,
362: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 7, peev.screen_entry_value))) employer_address_kana,
363: min(decode(piv.display_sequence, 8, peev.screen_entry_value)) employer_address,
364: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 9, peev.screen_entry_value))) employer_name_kana,
365: min(decode(piv.display_sequence, 10, peev.screen_entry_value)) employer_name
366: from pay_element_types_f pet,

Line 364: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 9, peev.screen_entry_value))) employer_name_kana,

360: fnd_date.canonical_to_date(min(decode(piv.display_sequence, 5, peev.screen_entry_value))) termination_date,
361: nvl(min(decode(piv.display_sequence, 6, peev.screen_entry_value)), 'N') foreign_flag,
362: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 7, peev.screen_entry_value))) employer_address_kana,
363: min(decode(piv.display_sequence, 8, peev.screen_entry_value)) employer_address,
364: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 9, peev.screen_entry_value))) employer_name_kana,
365: min(decode(piv.display_sequence, 10, peev.screen_entry_value)) employer_name
366: from pay_element_types_f pet,
367: pay_element_links_f pel,
368: pay_element_entries_f pee,

Line 416: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(employer_name))), ' ') =

412: end_date
413: from per_previous_employers
414: where person_id = p_person_id
415: and (
416: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(employer_name))), ' ') =
417: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(p_employer_name))), ' ')
418: )
419: and (
420: end_date = p_termination_date

Line 417: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(p_employer_name))), ' ')

413: from per_previous_employers
414: where person_id = p_person_id
415: and (
416: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(employer_name))), ' ') =
417: replace(upper(hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(p_employer_name))), ' ')
418: )
419: and (
420: end_date = p_termination_date
421: or (end_date is null and p_termination_date is not null)

Line 1831: l_str := fnd_date.date_to_canonical(hr_jp_standard_pkg.to_jp_date(l_str, 'EYYMMDD'));

1827: l_str varchar2(30) := p_str;
1828: begin
1829: if l_str is not null then
1830: if length(l_str) = 7 then
1831: l_str := fnd_date.date_to_canonical(hr_jp_standard_pkg.to_jp_date(l_str, 'EYYMMDD'));
1832: elsif length(l_str) = 10 then
1833: l_str := fnd_date.date_to_canonical(to_date(l_str, 'YYYY/MM/DD'));
1834: end if;
1835: end if;

Line 1846: l_varchar2_tbl hr_jp_standard_pkg.t_varchar2_tbl;

1842: procedure upgrade_itw_archive(p_assignment_id in number)
1843: is
1844: c_proc constant varchar2(61) := c_package || 'validate_itw_archive';
1845: --
1846: l_varchar2_tbl hr_jp_standard_pkg.t_varchar2_tbl;
1847: l_itw_user_desc_kanji1 varchar2(240);
1848: l_itw_user_desc_kanji2 varchar2(240);
1849: l_dummy varchar2(32767);
1850: l_wtm_user_desc_kanji1 varchar2(240);

Line 1931: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1927: --
1928: -- ITW User Description
1929: --
1930: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1931: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1932: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1933: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1934: --
1935: -- ITW System Description

Line 1932: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1928: -- ITW User Description
1929: --
1930: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1931: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1932: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1933: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1934: --
1935: -- ITW System Description
1936: --

Line 1933: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1929: --
1930: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1931: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1932: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1933: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1934: --
1935: -- ITW System Description
1936: --
1937: if l_rec.itw_override_flag = 'Y' then

Line 1945: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1941: else
1942: l_rec.ITW_SYSTEM_DESC1_KANJI := rtrim(substrb(l_rec.ITW_SYSTEM_DESC1_KANJI, 1, 240));
1943: --
1944: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1945: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1946: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1947: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1948: end if;
1949: --

Line 1946: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1942: l_rec.ITW_SYSTEM_DESC1_KANJI := rtrim(substrb(l_rec.ITW_SYSTEM_DESC1_KANJI, 1, 240));
1943: --
1944: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1945: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1946: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1947: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1948: end if;
1949: --
1950: -- WTM User Description

Line 1947: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1943: --
1944: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1945: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1946: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1947: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1948: end if;
1949: --
1950: -- WTM User Description
1951: --

Line 1952: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.wtm_user_desc);

1948: end if;
1949: --
1950: -- WTM User Description
1951: --
1952: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.wtm_user_desc);
1953: l_dummy := substr(l_dummy, 1, 100);
1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

Line 1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1950: -- WTM User Description
1951: --
1952: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.wtm_user_desc);
1953: l_dummy := substr(l_dummy, 1, 100);
1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));

Line 1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1951: --
1952: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.wtm_user_desc);
1953: l_dummy := substr(l_dummy, 1, 100);
1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);

Line 1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1952: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.wtm_user_desc);
1953: l_dummy := substr(l_dummy, 1, 100);
1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);
1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

Line 1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));

1954: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1955: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);
1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1961: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

Line 1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1956: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);
1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1961: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: -- WTM System Description

Line 1961: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1957: --
1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);
1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1961: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: -- WTM System Description
1965: --

Line 1962: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1958: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1959: l_dummy := substr(l_dummy, 1, 100);
1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1961: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: -- WTM System Description
1965: --
1966: if l_rec.wtm_override_flag = 'Y' then

Line 1972: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_2);

1968: l_rec.WTM_SYSTEM_DESC_KANJI_2 := null;
1969: l_rec.WTM_SYSTEM_DESC_KANA_1 := null;
1970: l_rec.WTM_SYSTEM_DESC_KANA_2 := null;
1971: else
1972: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_2);
1973: l_dummy := substr(l_dummy, 1, 100);
1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

Line 1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1970: l_rec.WTM_SYSTEM_DESC_KANA_2 := null;
1971: else
1972: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_2);
1973: l_dummy := substr(l_dummy, 1, 100);
1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));

Line 1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1971: else
1972: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_2);
1973: l_dummy := substr(l_dummy, 1, 100);
1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);

Line 1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1972: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_2);
1973: l_dummy := substr(l_dummy, 1, 100);
1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);
1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

Line 1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));

1974: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1975: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);
1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1981: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

Line 1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

1976: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);
1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1981: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: end if;
1984: --

Line 1981: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1977: --
1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);
1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1981: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: end if;
1984: --
1985: update pay_action_information

Line 1982: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

1978: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.WTM_SYSTEM_DESC_KANA_1 || l_rec.WTM_SYSTEM_DESC_KANA_2, '?'));
1979: l_dummy := substr(l_dummy, 1, 100);
1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1981: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: end if;
1984: --
1985: update pay_action_information
1986: set ACTION_INFORMATION23 = l_rec.ITW_SYSTEM_DESC1_KANJI,