[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYJPMAG_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYJPMAG_XMLP_PKG AS
2 /* $Header: PAYJPMAGB.pls 120.1 2008/03/31 07:28:07 vjaganat noship $ */
3
4 function BeforeReport return boolean is
5 l_package_name varchar2(30);
6 cursor csr_pact is
7 select ppa.effective_date,
8 ppa.org_payment_method_id,
9 ppa.overriding_dd_date DIRECT_DEPOSIT_DATE,
10 opm.currency_code,
11 fnd_currency.get_format_mask(opm.currency_code,18) CURRENCY_FORMAT_MASK,
12 opm.pmeth_information1 CLIENT_NUMBER,
13 opm.pmeth_information2 CLIENT_NAME,
14 opm.pmeth_information3 PACKAGE_NAME,
15 opmtl.org_payment_method_name,
16 opm.external_account_id,
17 bnk.bank_code,
18 bnk.bank_name,
19 bnk.bank_name_kana,
20 bch.branch_code,
21 bch.branch_name,
22 bch.branch_name_kana,
23 pea.segment7 ACCOUNT_TYPE,
24 pea.segment8 ACCOUNT_NUMBER,
25 pea.segment9 ACCOUNT_NAME,
26 pea.segment10 DESCRIPTION1,
27 pea.segment11 DESCRIPTION2,
28 hr_general.decode_lookup('JP_ZENGIN_TRANSACTION_TYPE',P_TRANSACTION_TYPE) D_TRANSACTION_TYPE,
29 hr_general.decode_lookup('JP_ZENGIN_CHARACTER_SET_CODE',P_CHARACTER_SET_CODE) CHARACTER_SET_NAME
30 from pay_jp_bank_branches bch,
31 pay_jp_banks bnk,
32 pay_external_accounts pea,
33 pay_org_payment_methods_f_tl opmtl,
34 pay_org_payment_methods_f opm,
35 pay_payroll_actions ppa
36 where ppa.payroll_action_id = P_PAYROLL_ACTION_ID
37 and opm.org_payment_method_id = ppa.org_payment_method_id
38 and ppa.effective_date
39 between opm.effective_start_date and opm.effective_end_date
40 and opmtl.org_payment_method_id = opm.org_payment_method_id
41 and opmtl.language = userenv('LANG')
42 and pea.external_account_id = opm.external_account_id
43 and bnk.bank_code = pea.segment1
44 and bch.bank_code = bnk.bank_code
45 and bch.branch_code = pea.segment4;
46 begin
47 open csr_pact;
48 fetch csr_pact into
49 CP_EFFECTIVE_DATE,
50 CP_ORG_PAYMENT_METHOD_ID,
51 CP_DIRECT_DEPOSIT_DATE,
52 CP_CURRENCY_CODE,
53 CP_CURRENCY_FORMAT_MASK,
54 CP_COMPANY_CODE,
55 CP_COMPANY_NAME,
56 l_package_name,
57 CP_ORG_PAYMENT_METHOD_NAME,
58 CP_EXTERNAL_ACCOUNT_ID,
59 CP_BANK_CODE,
60 CP_BANK_NAME,
61 CP_BANK_NAME_KANA,
62 CP_BRANCH_CODE,
63 CP_BRANCH_NAME,
64 CP_BRANCH_NAME_KANA,
65 CP_ACCOUNT_TYPE,
66 CP_ACCOUNT_NUMBER,
67 CP_ACCOUNT_NAME,
68 CP_DESCRIPTION1,
69 CP_DESCRIPTION2,
70 CP_D_TRANSACTION_TYPE,
71 CP_CHARACTER_SET_NAME;
72 if csr_pact%NOTFOUND then
73 close csr_pact;
74 return (FALSE);
75 end if;
76 close csr_pact;
77 --hr_standard.event('BEFORE REPORT');
78 --file_io.open;
79 magtape_init(l_package_name);
80 magtape_header_record;
81 return (TRUE);
82 end;
83
84 function AfterReport (CS_COUNT_PER_REPORT in number,CS_SUM_PER_REPORT in number)return boolean is
85 begin
86 magtape_trailer_record(CS_COUNT_PER_REPORT,CS_SUM_PER_REPORT);
87 magtape_end_record;
88 --file_io.close;
89 --hr_standard.event('AFTER REPORT');
90 return (TRUE);
91 end;
92
93 function CF_PAYMENTFormula (BANK_NAME_KANA in varchar2,EMPLOYEE_NUMBER in varchar2,PERSON_ID in number,DESCRIPTION2 in varchar2,
94 DESCRIPTION1 in varchar2,ACCOUNT_NUMBER in varchar2,PAYMENT in number,ACCOUNT_TYPE in varchar2,ACCOUNT_NAME in varchar2,BANK_CODE in varchar2,
95 EXTERNAL_ACCOUNT_ID in number,BRANCH_CODE in varchar2,BRANCH_NAME_KANA in varchar2)return Number is
96 begin
97 magtape_data_record(PERSON_ID,EMPLOYEE_NUMBER,EXTERNAL_ACCOUNT_ID,BANK_CODE,BANK_NAME_KANA,BRANCH_CODE,BRANCH_NAME_KANA,ACCOUNT_TYPE,ACCOUNT_NUMBER,ACCOUNT_NAME,DESCRIPTION1,DESCRIPTION2,PAYMENT);
98 return(0);
99 end;
100
101 procedure magtape_init(p_package_name in varchar2) is
102 BEGIN
103 pay_jp_magtape_pkg.init(
104 p_package_name => p_package_name,
105 p_character_set => CP_CHARACTER_SET_NAME);
106 END;
107
108 PROCEDURE magtape_header_record IS
109 l_buffer varchar2(2000);
110 BEGIN
111 l_buffer := pay_jp_magtape_pkg.header_record(
112 p_org_payment_method_id => CP_ORG_PAYMENT_METHOD_ID,
113 p_transaction_type => P_TRANSACTION_TYPE,
114 p_character_set_code => P_CHARACTER_SET_CODE,
115 p_direct_deposit_date => CP_DIRECT_DEPOSIT_DATE,
116 p_company_code => CP_COMPANY_CODE,
117 p_company_name => CP_COMPANY_NAME,
118 p_external_account_id => CP_EXTERNAL_ACCOUNT_ID,
119 p_bank_code => CP_BANK_CODE,
120 p_bank_name_kana => CP_BANK_NAME_KANA,
121 p_branch_code => CP_BRANCH_CODE,
122 p_branch_name_kana => CP_BRANCH_NAME_KANA,
123 p_account_type => CP_ACCOUNT_TYPE,
124 p_account_number => CP_ACCOUNT_NUMBER,
125 p_account_name => CP_ACCOUNT_NAME,
126 p_description1 => CP_DESCRIPTION1,
127 p_description2 => CP_DESCRIPTION2);
128 --file_io.put(l_buffer);
129 END;
130
131 procedure magtape_data_record(PERSON_ID number,EMPLOYEE_NUMBER varchar2,EXTERNAL_ACCOUNT_ID number,BANK_CODE varchar2,BANK_NAME_KANA varchar2,
132 BRANCH_CODE varchar2,BRANCH_NAME_KANA varchar2,ACCOUNT_TYPE varchar2,ACCOUNT_NUMBER varchar2,ACCOUNT_NAME varchar2,DESCRIPTION1 varchar2,
133 DESCRIPTION2 varchar2,PAYMENT number) is
134 l_buffer varchar2(2000);
135 BEGIN
136 l_buffer := pay_jp_magtape_pkg.data_record(
137 p_person_id => PERSON_ID,
138 p_employee_number => EMPLOYEE_NUMBER,
139 p_external_account_id => EXTERNAL_ACCOUNT_ID,
140 p_bank_code => BANK_CODE,
141 p_bank_name_kana => BANK_NAME_KANA,
142 p_branch_code => BRANCH_CODE,
143 p_branch_name_kana => BRANCH_NAME_KANA,
144 p_account_type => ACCOUNT_TYPE,
145 p_account_number => ACCOUNT_NUMBER,
146 p_account_name => ACCOUNT_NAME,
147 p_description1 => DESCRIPTION1,
148 p_description2 => DESCRIPTION2,
149 p_payment => PAYMENT);
150 --file_io.put(l_buffer);
151 END;
152
153 procedure magtape_trailer_record(CS_COUNT_PER_REPORT number,CS_SUM_PER_REPORT number) is
154 l_buffer varchar2(2000);
155 BEGIN
156 l_buffer := pay_jp_magtape_pkg.trailer_record(
157 p_total_count => CS_COUNT_PER_REPORT,
158 p_total_payment => CS_SUM_PER_REPORT);
159 --file_io.put(l_buffer);
160 END;
161
162 PROCEDURE magtape_end_record IS
163 l_buffer varchar2(2000);
164 BEGIN
165 l_buffer := pay_jp_magtape_pkg.end_record;
166 --file_io.put(l_buffer);
167 END;
168
169 function AfterPForm return boolean is
170 l_request_id varchar2(30);
171 begin
172 if P_DIRECT_DEPOSIT_FILE_NAME is NULL then
173 l_request_id := to_char(FND_GLOBAL.conc_request_id);
174 P_DIRECT_DEPOSIT_FILE_NAME_1 := 'p' || lpad(substr(l_request_id,-least(length(l_request_id),7)),7,'0') || '.mf';
175 else
176 P_DIRECT_DEPOSIT_FILE_NAME_1:=P_DIRECT_DEPOSIT_FILE_NAME;
177 end if;
178 return (TRUE);
179 end;
180
181 --Functions to refer Oracle report placeholders--
182
183 Function CP_EFFECTIVE_DATE_p return date is
184 Begin
185 return CP_EFFECTIVE_DATE;
186 END;
187 Function CP_ORG_PAYMENT_METHOD_NAME_p return varchar2 is
188 Begin
189 return CP_ORG_PAYMENT_METHOD_NAME;
190 END;
191 Function CP_D_TRANSACTION_TYPE_p return varchar2 is
192 Begin
193 return CP_D_TRANSACTION_TYPE;
194 END;
195 Function CP_CHARACTER_SET_NAME_p return varchar2 is
196 Begin
197 return CP_CHARACTER_SET_NAME;
198 END;
199 Function CP_COMPANY_CODE_p return varchar2 is
200 Begin
201 return CP_COMPANY_CODE;
202 END;
203 Function CP_COMPANY_NAME_p return varchar2 is
204 Begin
205 return CP_COMPANY_NAME;
206 END;
207 Function CP_DIRECT_DEPOSIT_DATE_p return date is
208 Begin
209 return CP_DIRECT_DEPOSIT_DATE;
210 END;
211 Function CP_BANK_CODE_p return varchar2 is
212 Begin
213 return CP_BANK_CODE;
214 END;
215 Function CP_BANK_NAME_p return varchar2 is
216 Begin
217 return CP_BANK_NAME;
218 END;
219 Function CP_BANK_NAME_KANA_p return varchar2 is
220 Begin
221 return CP_BANK_NAME_KANA;
222 END;
223 Function CP_BRANCH_CODE_p return varchar2 is
224 Begin
225 return CP_BRANCH_CODE;
226 END;
227 Function CP_BRANCH_NAME_p return varchar2 is
228 Begin
229 return CP_BRANCH_NAME;
230 END;
231 Function CP_BRANCH_NAME_KANA_p return varchar2 is
232 Begin
233 return CP_BRANCH_NAME_KANA;
234 END;
235 Function CP_ACCOUNT_TYPE_p return varchar2 is
236 Begin
237 return CP_ACCOUNT_TYPE;
238 END;
239 Function CP_ACCOUNT_NUMBER_p return varchar2 is
240 Begin
241 return CP_ACCOUNT_NUMBER;
242 END;
243 Function CP_ACCOUNT_NAME_p return varchar2 is
244 Begin
245 return CP_ACCOUNT_NAME;
246 END;
247 Function CP_ORG_PAYMENT_METHOD_ID_p return number is
248 Begin
249 return CP_ORG_PAYMENT_METHOD_ID;
250 END;
251 Function CP_EXTERNAL_ACCOUNT_ID_p return number is
252 Begin
253 return CP_EXTERNAL_ACCOUNT_ID;
254 END;
255 Function CP_DESCRIPTION1_p return varchar2 is
256 Begin
257 return CP_DESCRIPTION1;
258 END;
259 Function CP_DESCRIPTION2_p return varchar2 is
260 Begin
261 return CP_DESCRIPTION2;
262 END;
263 Function CP_CURRENCY_CODE_p return varchar2 is
264 Begin
265 return CP_CURRENCY_CODE;
266 END;
267 Function CP_CURRENCY_FORMAT_MASK_p return varchar2 is
268 Begin
269 return CP_CURRENCY_FORMAT_MASK;
270 END;
271 END PAY_PAYJPMAG_XMLP_PKG ;