[Home] [Help]
PACKAGE BODY: APPS.FARX_C_TAX_PKG
Source
1 PACKAGE BODY FARX_C_TAX_PKG as
2 /* $Header: farxcptb.pls 120.3 2009/03/26 21:45:57 bridgway ship $ */
3
4 PROCEDURE PROPTAX (
5 errbuf out nocopy varchar2,
6 retcode out nocopy varchar2,
7 argument1 in varchar2, -- book
8 argument2 in varchar2 default null,
9 argument3 in varchar2 default null,
10 argument4 in varchar2 default null,
11 argument5 in varchar2 default null,
12 argument6 in varchar2 default null,
13 argument7 in varchar2 default null,
14 argument8 in varchar2 default null,
15 argument9 in varchar2 default null,
16 argument10 in varchar2 default null,
17 argument11 in varchar2 default null,
18 argument12 in varchar2 default null,
19 argument13 in varchar2 default null,
20 argument14 in varchar2 default null,
21 argument15 in varchar2 default null,
22 argument16 in varchar2 default null,
23 argument17 in varchar2 default null,
24 argument18 in varchar2 default null,
25 argument19 in varchar2 default null,
26 argument20 in varchar2 default null,
27 argument21 in varchar2 default null,
28 argument22 in varchar2 default null,
29 argument23 in varchar2 default null,
30 argument24 in varchar2 default null,
31 argument25 in varchar2 default null,
32 argument26 in varchar2 default null,
33 argument27 in varchar2 default null,
34 argument28 in varchar2 default null,
35 argument29 in varchar2 default null,
36 argument30 in varchar2 default null,
37 argument31 in varchar2 default null,
38 argument32 in varchar2 default null,
39 argument33 in varchar2 default null,
40 argument34 in varchar2 default null,
41 argument35 in varchar2 default null,
42 argument36 in varchar2 default null,
43 argument37 in varchar2 default null,
44 argument38 in varchar2 default null,
45 argument39 in varchar2 default null,
46 argument40 in varchar2 default null,
47 argument41 in varchar2 default null,
48 argument42 in varchar2 default null,
49 argument43 in varchar2 default null,
50 argument44 in varchar2 default null,
51 argument45 in varchar2 default null,
52 argument46 in varchar2 default null,
53 argument47 in varchar2 default null,
54 argument48 in varchar2 default null,
55 argument49 in varchar2 default null,
56 argument50 in varchar2 default null,
57 argument51 in varchar2 default null,
58 argument52 in varchar2 default null,
59 argument53 in varchar2 default null,
60 argument54 in varchar2 default null,
61 argument55 in varchar2 default null,
62 argument56 in varchar2 default null,
63 argument57 in varchar2 default null,
64 argument58 in varchar2 default null,
65 argument59 in varchar2 default null,
66 argument60 in varchar2 default null,
67 argument61 in varchar2 default null,
68 argument62 in varchar2 default null,
69 argument63 in varchar2 default null,
70 argument64 in varchar2 default null,
71 argument65 in varchar2 default null,
72 argument66 in varchar2 default null,
73 argument67 in varchar2 default null,
74 argument68 in varchar2 default null,
75 argument69 in varchar2 default null,
76 argument70 in varchar2 default null,
77 argument71 in varchar2 default null,
81 argument75 in varchar2 default null,
78 argument72 in varchar2 default null,
79 argument73 in varchar2 default null,
80 argument74 in varchar2 default null,
82 argument76 in varchar2 default null,
83 argument77 in varchar2 default null,
84 argument78 in varchar2 default null,
85 argument79 in varchar2 default null,
86 argument80 in varchar2 default null,
87 argument81 in varchar2 default null,
88 argument82 in varchar2 default null,
89 argument83 in varchar2 default null,
90 argument84 in varchar2 default null,
91 argument85 in varchar2 default null,
92 argument86 in varchar2 default null,
93 argument87 in varchar2 default null,
94 argument88 in varchar2 default null,
95 argument89 in varchar2 default null,
96 argument90 in varchar2 default null,
97 argument91 in varchar2 default null,
98 argument92 in varchar2 default null,
99 argument93 in varchar2 default null,
100 argument94 in varchar2 default null,
101 argument95 in varchar2 default null,
102 argument96 in varchar2 default null,
103 argument97 in varchar2 default null,
104 argument98 in varchar2 default null,
105 argument99 in varchar2 default null,
106 argument100 in varchar2 default null) is
107
108
109 Cursor c1 is
110 Select lookup_code
111 From fa_lookups
112 Where lookup_type = 'PROPERTY TYPE'
113 And meaning = argument10;
114
115 h_property_type varchar2(80);
116
117
118 h_request_id number;
119 h_user_id number;
120 h_end_date date;
121 h_date_format varchar2(25);
122 h_end_date_str varchar2(25);
123 h_err_msg varchar2(2000);
124
125 begin
126
127 -- select max(fcr.request_id)
128 -- into h_request_id
129 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
130 -- where fcr.argument1 = argument1
131 -- and fcr.argument2 = argument2
132 -- and fcr.argument3 = argument3
133 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
134 -- and fcp.concurrent_program_name = 'RXFAPTAX';
135
136 h_request_id := fnd_global.conc_request_id;
137 fnd_profile.get('USER_ID',h_user_id);
138
139 -- h_end_date_str := substr(argument3,1,instr(argument3,'_')-1);
140 -- h_date_format := substr(argument3,instr(argument3,'_')+1);
141 -- h_end_date := to_date(h_end_date_str,h_date_format);
142
143 h_end_date := to_date(argument2, 'YYYY/MM/DD HH24:MI:SS');
144
145 if argument10 is not null then
146 open c1;
147 fetch c1 into h_property_type;
148 if c1%notfound then
149 h_property_type := argument10;
150 end if;
151 close c1;
152 end if;
153
154 farx_tax_pkg.property_tax (
155 book => argument1,
156 end_date => h_end_date,
157 segment1 => argument3,
158 segment2 => argument4,
159 segment3 => argument5,
160 segment4 => argument6,
161 segment5 => argument7,
162 segment6 => argument8,
163 segment7 => argument9,
164 property_type => h_property_type,
168 request_id => h_request_id,
165 company => argument12,
166 cost_center => argument13,
167 cost_account => argument14,
169 user_id => h_user_id,
170 retcode => retcode,
171 errbuf => errbuf);
172
173 retcode := 0;
174
175 exception
176 when others then
177 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
178 h_err_msg := fnd_message.get;
179 fa_rx_conc_mesg_pkg.log(h_err_msg);
180 retcode := 2;
181
182 end proptax;
183
184 END FARX_C_TAX_PKG;