132: CP_BG_DPNT_REF_TYPE := PER_JP_CTR_UTILITY_PKG.BG_ITAX_DPNT_REF_TYPE(P_BUSINESS_GROUP_ID);
133: SELECT
134: RTRIM(RPAD(DECODE(P_KANJI_FLAG
135: ,'Y'
136: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI1.ORG_INFORMATION6 || HOI1.ORG_INFORMATION7 || HOI1.ORG_INFORMATION8)
137: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI1.ORG_INFORMATION9 || HOI1.ORG_INFORMATION10 || HOI1.ORG_INFORMATION11))
138: ,120)),
139: RTRIM(RPAD(DECODE(P_KANJI_FLAG
140: ,'Y'
133: SELECT
134: RTRIM(RPAD(DECODE(P_KANJI_FLAG
135: ,'Y'
136: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI1.ORG_INFORMATION6 || HOI1.ORG_INFORMATION7 || HOI1.ORG_INFORMATION8)
137: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI1.ORG_INFORMATION9 || HOI1.ORG_INFORMATION10 || HOI1.ORG_INFORMATION11))
138: ,120)),
139: RTRIM(RPAD(DECODE(P_KANJI_FLAG
140: ,'Y'
141: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI1.ORG_INFORMATION1)
137: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI1.ORG_INFORMATION9 || HOI1.ORG_INFORMATION10 || HOI1.ORG_INFORMATION11))
138: ,120)),
139: RTRIM(RPAD(DECODE(P_KANJI_FLAG
140: ,'Y'
141: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI1.ORG_INFORMATION1)
142: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI1.ORG_INFORMATION2))
143: ,60)),
144: LPAD(HOI2.ORG_INFORMATION4
145: ,10
138: ,120)),
139: RTRIM(RPAD(DECODE(P_KANJI_FLAG
140: ,'Y'
141: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI1.ORG_INFORMATION1)
142: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI1.ORG_INFORMATION2))
143: ,60)),
144: LPAD(HOI2.ORG_INFORMATION4
145: ,10
146: ,'0'),
178: ,P_DATE_FORMAT IN VARCHAR2) RETURN VARCHAR2 IS
179: L_DUMMY VARCHAR2(255);
180: BEGIN
181: IF P_DATE IS NOT NULL THEN
182: L_DUMMY := HR_JP_STANDARD_PKG.TO_JP_CHAR(P_DATE
183: ,P_DATE_FORMAT);
184: END IF;
185: RETURN L_DUMMY;
186: END TO_JP_CHAR;
344: ,P_DAY => CP_HOUSING_RESIDENCE_DAY);
345: CP_ORIGINAL_DESCRIPTION := NULL;
346: IF P_KANJI_FLAG = 'Y' THEN
347: IF L_CERTIFICATE_INFO.DESCRIPTION_KANJI IS NOT NULL THEN
348: CP_ORIGINAL_DESCRIPTION := HR_JP_STANDARD_PKG.TO_ZENKAKU(L_CERTIFICATE_INFO.DESCRIPTION_KANJI);
349: END IF;
350: ELSE
351: IF L_CERTIFICATE_INFO.DESCRIPTION_KANA IS NOT NULL THEN
352: CP_ORIGINAL_DESCRIPTION := HR_JP_STANDARD_PKG.UPPER_KANA(HR_JP_STANDARD_PKG.TO_HANKAKU(L_CERTIFICATE_INFO.DESCRIPTION_KANA));
348: CP_ORIGINAL_DESCRIPTION := HR_JP_STANDARD_PKG.TO_ZENKAKU(L_CERTIFICATE_INFO.DESCRIPTION_KANJI);
349: END IF;
350: ELSE
351: IF L_CERTIFICATE_INFO.DESCRIPTION_KANA IS NOT NULL THEN
352: CP_ORIGINAL_DESCRIPTION := HR_JP_STANDARD_PKG.UPPER_KANA(HR_JP_STANDARD_PKG.TO_HANKAKU(L_CERTIFICATE_INFO.DESCRIPTION_KANA));
353: END IF;
354: END IF;
355: ELSE
356: L_YES := '*';
604: END IF;
605: SELECT
606: RTRIM(RPAD(DECODE(P_KANJI_FLAG
607: ,'Y'
608: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION6 || HOI.ORG_INFORMATION7 || HOI.ORG_INFORMATION8)
609: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION9 || HOI.ORG_INFORMATION10 || HOI.ORG_INFORMATION11))
610: ,120)),
611: RTRIM(RPAD(DECODE(P_KANJI_FLAG
612: ,'Y'
605: SELECT
606: RTRIM(RPAD(DECODE(P_KANJI_FLAG
607: ,'Y'
608: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION6 || HOI.ORG_INFORMATION7 || HOI.ORG_INFORMATION8)
609: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION9 || HOI.ORG_INFORMATION10 || HOI.ORG_INFORMATION11))
610: ,120)),
611: RTRIM(RPAD(DECODE(P_KANJI_FLAG
612: ,'Y'
613: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION1)
609: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION9 || HOI.ORG_INFORMATION10 || HOI.ORG_INFORMATION11))
610: ,120)),
611: RTRIM(RPAD(DECODE(P_KANJI_FLAG
612: ,'Y'
613: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION1)
614: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION2))
615: ,60)),
616: RTRIM(RPAD(TRANSLATE(HR_JP_STANDARD_PKG.TO_HANKAKU(HOI.ORG_INFORMATION12)
617: ,',"'
610: ,120)),
611: RTRIM(RPAD(DECODE(P_KANJI_FLAG
612: ,'Y'
613: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION1)
614: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION2))
615: ,60)),
616: RTRIM(RPAD(TRANSLATE(HR_JP_STANDARD_PKG.TO_HANKAKU(HOI.ORG_INFORMATION12)
617: ,',"'
618: ,' ')
612: ,'Y'
613: ,HR_JP_STANDARD_PKG.TO_ZENKAKU(HOI.ORG_INFORMATION1)
614: ,HR_JP_STANDARD_PKG.UPPER_KANA(HOI.ORG_INFORMATION2))
615: ,60)),
616: RTRIM(RPAD(TRANSLATE(HR_JP_STANDARD_PKG.TO_HANKAKU(HOI.ORG_INFORMATION12)
617: ,',"'
618: ,' ')
619: ,15))
620: INTO CP_EMPLOYER_ADDRESS,CP_EMPLOYER_NAME,CP_EMPLOYER_TELEPHONE_NUMBER
1067: L_TEXT VARCHAR2(32767);
1068: BEGIN
1069: IF P_CHARACTER_SET = 'JA16JIS8' THEN
1070: TEXT_IO.PUT(G_FILE
1071: ,HR_JP_STANDARD_PKG.TO_JIS8(P_TEXT));
1072: ELSE
1073: TEXT_IO.PUT(G_FILE
1074: ,PAY_JP_REPORT_PKG.CONVERT2(P_TEXT
1075: ,P_CHARACTER_SET));
1129: END CSV;*/
1130:
1131: BEGIN
1132: IF P_KANJI_FLAG = 'Y' THEN
1133: G_SPACE := HR_JP_STANDARD_PKG.TO_ZENKAKU(G_SPACE);
1134: END IF;
1135: END PAY_PAYJPWTM_XMLP_PKG ;