DBA Data[Home] [Help]

APPS.PAY_JP_GENERIC_UPGRADE_PKG dependencies on STANDARD

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: 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: hr_jp_standard_pkg.to_hankaku(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 365: hr_jp_standard_pkg.to_hankaku(min(decode(piv.display_sequence, 10, peev.screen_entry_value))) employer_name

361: nvl(min(decode(piv.display_sequence, 6, peev.screen_entry_value)), 'N') foreign_flag,
362: 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: hr_jp_standard_pkg.to_hankaku(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,
369: pay_element_entry_values_f peev,

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 1837: l_str := fnd_date.date_to_canonical(hr_jp_standard_pkg.to_jp_date(l_str, 'EYYMMDD'));

1833: l_str varchar2(30) := p_str;
1834: begin
1835: if l_str is not null then
1836: if length(l_str) = 7 then
1837: l_str := fnd_date.date_to_canonical(hr_jp_standard_pkg.to_jp_date(l_str, 'EYYMMDD'));
1838: elsif length(l_str) = 10 then
1839: l_str := fnd_date.date_to_canonical(to_date(l_str, 'YYYY/MM/DD'));
1840: end if;
1841: end if;

Line 1852: l_varchar2_tbl hr_jp_standard_pkg.t_varchar2_tbl;

1848: procedure upgrade_itw_archive(p_assignment_id in number)
1849: is
1850: c_proc constant varchar2(61) := c_package || 'validate_itw_archive';
1851: --
1852: l_varchar2_tbl hr_jp_standard_pkg.t_varchar2_tbl;
1853: l_itw_user_desc_kanji1 varchar2(240);
1854: l_itw_user_desc_kanji2 varchar2(240);
1855: l_dummy varchar2(32767);
1856: l_wtm_user_desc_kanji1 varchar2(240);

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

1933: --
1934: -- ITW User Description
1935: --
1936: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1937: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1938: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1939: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1940: --
1941: -- ITW System Description

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

1934: -- ITW User Description
1935: --
1936: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1937: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1938: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1939: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1940: --
1941: -- ITW System Description
1942: --

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

1935: --
1936: l_dummy := rtrim(substrb(l_rec.itw_user_desc_kanji, 1, 300));
1937: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1938: l_itw_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1939: l_itw_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1940: --
1941: -- ITW System Description
1942: --
1943: if l_rec.itw_override_flag = 'Y' then

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

1947: else
1948: l_rec.ITW_SYSTEM_DESC1_KANJI := rtrim(substrb(l_rec.ITW_SYSTEM_DESC1_KANJI, 1, 240));
1949: --
1950: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1951: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1952: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1953: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1954: end if;
1955: --

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

1948: l_rec.ITW_SYSTEM_DESC1_KANJI := rtrim(substrb(l_rec.ITW_SYSTEM_DESC1_KANJI, 1, 240));
1949: --
1950: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1951: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1952: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1953: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1954: end if;
1955: --
1956: -- WTM User Description

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

1949: --
1950: l_dummy := rtrim(substrb(l_rec.ITW_SYSTEM_DESC2_KANJI_1 || l_rec.ITW_SYSTEM_DESC2_KANJI_2, 1, 300));
1951: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1952: l_rec.ITW_SYSTEM_DESC2_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1953: l_rec.ITW_SYSTEM_DESC2_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1954: end if;
1955: --
1956: -- WTM User Description
1957: --

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

1954: end if;
1955: --
1956: -- WTM User Description
1957: --
1958: l_dummy := hr_jp_standard_pkg.to_zenkaku(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_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kanji2 := 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: -- WTM User Description
1957: --
1958: l_dummy := hr_jp_standard_pkg.to_zenkaku(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_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));

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

1957: --
1958: l_dummy := hr_jp_standard_pkg.to_zenkaku(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_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);

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

1958: l_dummy := hr_jp_standard_pkg.to_zenkaku(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_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);
1966: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

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

1960: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1961: l_wtm_user_desc_kanji1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1962: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);
1966: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1967: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1968: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

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

1962: l_wtm_user_desc_kanji2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);
1966: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1967: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1968: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1969: --
1970: -- WTM System Description

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

1963: --
1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);
1966: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1967: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1968: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1969: --
1970: -- WTM System Description
1971: --

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

1964: l_dummy := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_rec.wtm_user_desc, '?'));
1965: l_dummy := substr(l_dummy, 1, 100);
1966: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1967: l_wtm_user_desc_kana1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1968: l_wtm_user_desc_kana2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1969: --
1970: -- WTM System Description
1971: --
1972: if l_rec.wtm_override_flag = 'Y' then

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

1974: l_rec.WTM_SYSTEM_DESC_KANJI_2 := null;
1975: l_rec.WTM_SYSTEM_DESC_KANA_1 := null;
1976: l_rec.WTM_SYSTEM_DESC_KANA_2 := null;
1977: else
1978: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_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_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANJI_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_KANA_2 := null;
1977: else
1978: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_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_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: --
1984: 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 1981: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);

1977: else
1978: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_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_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: --
1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);

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

1978: l_dummy := hr_jp_standard_pkg.to_zenkaku(l_rec.WTM_SYSTEM_DESC_KANJI_1 || l_rec.WTM_SYSTEM_DESC_KANJI_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_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: --
1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);
1986: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);

Line 1984: 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, '?'));

1980: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1981: l_rec.WTM_SYSTEM_DESC_KANJI_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1982: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: --
1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);
1986: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1987: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1988: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);

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

1982: l_rec.WTM_SYSTEM_DESC_KANJI_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1983: --
1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);
1986: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1987: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1988: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1989: end if;
1990: --

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

1983: --
1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);
1986: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1987: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1988: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1989: end if;
1990: --
1991: update pay_action_information

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

1984: 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, '?'));
1985: l_dummy := substr(l_dummy, 1, 100);
1986: hr_jp_standard_pkg.to_table(l_dummy, 240, l_varchar2_tbl);
1987: l_rec.WTM_SYSTEM_DESC_KANA_1 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 1);
1988: l_rec.WTM_SYSTEM_DESC_KANA_2 := hr_jp_standard_pkg.get_index_at(l_varchar2_tbl, 2);
1989: end if;
1990: --
1991: update pay_action_information
1992: set ACTION_INFORMATION23 = l_rec.ITW_SYSTEM_DESC1_KANJI,