[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYJPLTX_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYJPLTX_XMLP_PKG AS
2 /* $Header: PAYJPLTXB.pls 120.0 2007/12/13 12:18:37 amakrish noship $ */
3
4 function BeforeReport return boolean is
5 l_date_era_code NUMBER;
6 l_date_year NUMBER;
7 l_date_month NUMBER;
8 l_date_day NUMBER;
9 l_file_name VARCHAR2(100);
10 begin
11 --hr_standard.event('BEFORE REPORT');
12 LP_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID();
13 LP_DEPOSIT_DATE := TO_CHAR(P_DEPOSIT_DATE,'YYYY/MM/DD');
14 if P_FILE_NAME is NULL then
15 --l_file_name := 'o' || lpad(to_char(P_CONC_REQUEST_ID - trunc(P_CONC_REQUEST_ID, -7)), 7, '0') || '.mf';
16 l_file_name := 'o' || lpad(to_char(LP_CONC_REQUEST_ID - trunc(LP_CONC_REQUEST_ID, -7)), 7, '0') || '.mf';
17 else
18 l_file_name := P_FILE_NAME;
19 end if;
20 CP_MAGFILE_NAME := l_file_name;
21 pay_jp_report_pkg.to_era
22 (
23 add_months(P_DEPOSIT_DATE, -1),
24 l_date_era_code,
25 l_date_year,
26 l_date_month,
27 l_date_day
28 );
29 l_date_year := l_date_year - trunc(l_date_year, -2);
30 CP_ERA_CODE := hr_general.decode_lookup('JP_ERA', to_char(l_date_era_code));
31 CP_YEAR := lpad(to_char(l_date_year), 2, ' ');
32 CP_MONTH := lpad(to_char(l_date_month), 2, ' ');
33 --file_io.open_magfile;
34 return (TRUE);
35 end;
36
37 --function afterreport (CS_LTAX_COUNT in number, CS_LTAX_SUM in number) return boolean is
38 function afterreport return boolean is
39 begin
40 if CP_BANK_CODE = '0000' then
41 NULL;
42 else
43 --file_io.put('8');
44 --file_io.put(lpad(to_char(CS_LTAX_COUNT),7,'0'));
45 --file_io.put(lpad(to_char(CS_LTAX_SUM + CS_LTAX_LUMPSUM_SUM),11,'0'));
46 --file_io.put(lpad(to_char(CS_SP_LTAX_COUNT),7,'0'));
47 --file_io.put(lpad(to_char(CS_SP_LTAX_SUM),11,'0'));
48 --file_io.put(lpad(to_char(CP_LTAX_TOTAL_COUNT),7,'0'));
49 --file_io.put(lpad(to_char(CP_LTAX_TOTAL),11,'0'));
50 --file_io.put(rpad(' ',65,' '));
51
52 --file_io.put('9');
53 --file_io.put(rpad(' ',119,' '));
54 NULL;
55 end if;
56 --file_io.close_magfile;
57 --hr_standard.event('AFTER REPORT');
58 return (TRUE);
59 end;
60
61 function cf_body_masterformula (CS_BODY_LTAX_SUM in number, CS_BODY_LTAX_LUMPSUM_SUM in number, CS_BODY_SP_LTAX_SUM in number,
62 CS_LTAX_COUNT in number, CS_SP_LTAX_COUNT in number, DISTRICT_CODE in varchar2, DISTRICT_NAME_KANA in varchar2, SWOT_NO in varchar2,
63 CS_BODY_SP_LTAX_INCOME_SUM in number, CS_BODY_SP_LTAX_SHI_SUM in number, CS_BODY_SP_LTAX_TO_SUM in number) return number is
64 begin
65 CP_LTAX_TOTAL := CP_LTAX_TOTAL + CS_BODY_LTAX_SUM + CS_BODY_LTAX_LUMPSUM_SUM + CS_BODY_SP_LTAX_SUM;
66 CP_LTAX_TOTAL_COUNT := CS_LTAX_COUNT + CS_SP_LTAX_COUNT;
67
68 if CP_BANK_CODE = '0000' then
69 NULL;
70 else
71 /*file_io.put('2');
72 file_io.put(lpad(nvl(DISTRICT_CODE,'0'),6,'0'));
73 file_io.put(rpad(nvl(DISTRICT_NAME_KANA,' '),15,' '));
74 file_io.put(rpad(nvl(SWOT_NO,' '),15,' '));
75 file_io.put(rpad(' ',1,' '));
76
77 file_io.put(lpad(to_char(CP_BODY_LTAX_COUNT),5,'0'));
78 file_io.put(lpad(to_char(CS_BODY_LTAX_SUM + CS_BODY_LTAX_LUMPSUM_SUM),9,'0'));
79 file_io.put(lpad(to_char(CP_BODY_SP_LTAX_COUNT),5,'0'));
80 file_io.put(lpad(to_char(CS_BODY_SP_LTAX_SUM),9,'0'));
81 file_io.put(lpad(to_char(CP_BODY_LTAX_COUNT + CP_BODY_SP_LTAX_COUNT),5,'0'));
82 file_io.put(lpad(to_char(CS_BODY_LTAX_SUM + CS_BODY_LTAX_LUMPSUM_SUM + CS_BODY_SP_LTAX_SUM),9,'0'));
83
84 file_io.put(lpad(to_char(CP_BODY_SP_LTAX_COUNT),3,'0'));
85 file_io.put(lpad(to_char(CS_BODY_SP_LTAX_INCOME_SUM),10,'0'));
86 file_io.put(lpad(to_char(CS_BODY_SP_LTAX_SHI_SUM),9,'0'));
87 file_io.put(lpad(to_char(CS_BODY_SP_LTAX_TO_SUM),9,'0'));
88 file_io.put(rpad(' ',9,' '));
89 */
90 NULL;
91 end if;
92 return ('');
93 end;
94
95 function cf_headerformula (BANK_CODE in varchar2, CLIENT_CODE in varchar2, SWOT_NAME1 in varchar2, SWOT_NAME2 in varchar2, SWOT_ADDRESS1 in varchar2, SWOT_ADDRESS2 in varchar2, SWOT_ADDRESS3 in varchar2) return number is
96 begin
97 CP_BANK_CODE := lpad(nvl(BANK_CODE,'0000'),4,'0');
98
99 if CP_BANK_CODE = '0000' then
100 NULL;
101 else
102 --file_io.put('191');
103 if P_CHARACTER_SET = 'JA16EBCDIC930' then
104 --file_io.put('1');
105 NULL;
106 else
107 --file_io.put('0');
108 NULL;
109 end if;
110 /*file_io.put(CP_BANK_CODE);
111 file_io.put(lpad(nvl(CLIENT_CODE,'0'),10,'0'));
112 file_io.put(to_char(P_DEPOSIT_DATE,'YYMMDD'));
113 file_io.put(to_char(add_months(P_DEPOSIT_DATE,-1),'YYMM'));
114 file_io.put(rpad(nvl(SWOT_NAME1,' '),20,' '));
115 file_io.put(rpad(nvl(SWOT_NAME2,' '),20,' '));
116 file_io.put(rpad(nvl(SWOT_ADDRESS1,' '),15,' '));
117 file_io.put(rpad(nvl(SWOT_ADDRESS2,' '),15,' '));
118 file_io.put(rpad(nvl(SWOT_ADDRESS3,' '),20,' '));
119 file_io.put(rpad(' ',2,' '));*/
120 end if;
121 return ('');
122 end;
123
124 function cf_body_detailsformula (CS_BODY_DETAILS_COUNT in number, LTAX in number, LTAX_LUMPSUM in number, SP_LTAX in number, SP_LTAX_SHI in number, SP_LTAX_TO in number) return number is
125 begin
126 if CS_BODY_DETAILS_COUNT = 1 then
127 CP_BODY_LTAX_COUNT := 0;
128 CP_BODY_SP_LTAX_COUNT := 0;
129 end if;
130
131 if LTAX <> 0 or LTAX_LUMPSUM <> 0 then
132 CP_BODY_LTAX_COUNT := CP_BODY_LTAX_COUNT + 1;
133 end if;
134 if SP_LTAX <> 0 or SP_LTAX_SHI <> 0 or SP_LTAX_TO <> 0 then
135 CP_BODY_SP_LTAX_COUNT := CP_BODY_SP_LTAX_COUNT + 1;
136 end if;
137 return ('');
138 end;
139
140 --Functions to refer Oracle report placeholders--
141
142 Function CP_BODY_LTAX_COUNT_p return number is
143 Begin
144 return CP_BODY_LTAX_COUNT;
145 END;
146 Function CP_BODY_SP_LTAX_COUNT_p return number is
147 Begin
148 return CP_BODY_SP_LTAX_COUNT;
149 END;
150 Function CP_BANK_CODE_p return varchar2 is
151 Begin
152 return CP_BANK_CODE;
153 END;
154 Function CP_MAGFILE_NAME_p return varchar2 is
155 Begin
156 return CP_MAGFILE_NAME;
157 END;
158 Function CP_LTAX_TOTAL_p return number is
159 Begin
160 return CP_LTAX_TOTAL;
161 END;
162 Function CP_LTAX_TOTAL_COUNT_p return number is
163 Begin
164 return CP_LTAX_TOTAL_COUNT;
165 END;
166 Function CP_ERA_CODE_p return varchar2 is
167 Begin
168 return CP_ERA_CODE;
169 END;
170 Function CP_YEAR_p return varchar2 is
171 Begin
172 return CP_YEAR;
173 END;
174 Function CP_MONTH_p return varchar2 is
175 Begin
176 return CP_MONTH;
177 END;
178 END PAY_PAYJPLTX_XMLP_PKG ;