[Home] [Help]
PACKAGE BODY: APPS.FTP_BR_ADJUSTMENT_PVT
Source
1 PACKAGE BODY ftp_br_adjustment_pvt AS
2 /* $Header: ftpadjb.pls 120.1.12000000.1 2007/07/27 12:08:20 shishank noship $ */
3
4
5 G_PKG_NAME constant varchar2(30) := 'FTP_BR_ADJUSTMENT_PVT';
6
7 --------------------------------------------------------------------------------
8 -- PRIVATE SPECS
9 --------------------------------------------------------------------------------
10
11 PROCEDURE DeleteAdjustmentRuleRec(
12 p_obj_def_id in number
13 );
14
15 PROCEDURE DeleteAddOnRateDtlRecs(
16 p_obj_def_id in number
17 );
18
19 PROCEDURE DeleteConditionRecs (
20 p_obj_def_id in number
21 );
22
23 PROCEDURE CopyAdjustmentRuleRec(
24 p_source_obj_def_id in number
25 ,p_target_obj_def_id in number
26 ,p_created_by in number
27 ,p_creation_date in date
28 );
29
30 PROCEDURE CopyAddOnRateDtlRecs(
31 p_source_obj_def_id in number
32 ,p_target_obj_def_id in number
33 ,p_created_by in number
34 ,p_creation_date in date
35 );
36
37 PROCEDURE CopyConditionRecs (
38 p_source_obj_def_id in number
39 ,p_target_obj_def_id in number
40 ,p_created_by in number
41 ,p_creation_date in date
42 );
43 ----------------------------------------
44 -- PUBLIC BODIES ------
45 ----------------------------------------
46
47 PROCEDURE DeleteObjectDefinition(
48 p_obj_def_id in number
49 )
50 IS
51
52 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
53
54 BEGIN
55 DeleteAdjustmentRuleRec(
56 p_obj_def_id => p_obj_def_id
57 );
58
59 DeleteAddOnRateDtlRecs(
60 p_obj_def_id => p_obj_def_id
61 );
62
63 DeleteConditionRecs (
64 p_obj_def_id => p_obj_def_id
65 );
66
67 EXCEPTION
68
69 when others then
70 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
71 raise FND_API.G_EXC_UNEXPECTED_ERROR;
72
73 END DeleteObjectDefinition;
74
75
76
77 ----------------------------------------------------------------------------
78 -- Copy Procedure
79 ----------------------------------------------------------------------------
80 PROCEDURE CopyObjectDefinition(
81 p_source_obj_def_id in number
82 ,p_target_obj_def_id in number
83 ,p_created_by in number
84 ,p_creation_date in date
85 )
86 IS
87
88 g_api_name constant varchar2(30) := 'CopyObjectDefinition';
89
90 BEGIN
91
92 CopyAdjustmentRuleRec(
93 p_source_obj_def_id => p_source_obj_def_id
94 ,p_target_obj_def_id => p_target_obj_def_id
95 ,p_created_by => p_created_by
96 ,p_creation_date => p_creation_date
97
98 );
99
100 CopyAddOnRateDtlRecs(
101 p_source_obj_def_id => p_source_obj_def_id
102 ,p_target_obj_def_id => p_target_obj_def_id
103 ,p_created_by => p_created_by
104 ,p_creation_date => p_creation_date
105 );
106
107
108 CopyConditionRecs (
109 p_source_obj_def_id => p_source_obj_def_id
110 ,p_target_obj_def_id => p_target_obj_def_id
111 ,p_created_by => p_created_by
112 ,p_creation_date => p_creation_date
113 );
114
115 EXCEPTION
116
117 when others then
118 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
119 raise FND_API.G_EXC_UNEXPECTED_ERROR;
120 END CopyObjectDefinition;
121
122
123
124 ----------------------------------------
125 -- PRIVATE BODIES ----------------------
126 ----------------------------------------
127
128
129 PROCEDURE DeleteAdjustmentRuleRec(
130 p_obj_def_id in number
131 )
132 IS
133 BEGIN
134
135 delete from FTP_ADJUSTMENT_RULE
136 where object_definition_id = p_obj_def_id;
137
138 END DeleteAdjustmentRuleRec;
139
140
141
142 PROCEDURE DeleteAddOnRateDtlRecs(
143 p_obj_def_id in number
144 )
145 IS
146 BEGIN
147
148 delete from FTP_ADD_ON_RATE_DTL
149 where object_definition_id = p_obj_def_id;
150
151 END DeleteAddOnRateDtlRecs;
152
153
154 PROCEDURE DeleteConditionRecs(
155 p_obj_def_id in number
156 )
157 IS
158 BEGIN
159
160 delete from ftp_tp_pp_conditions
161 where object_definition_id = p_obj_def_id;
162
163
164 END DeleteConditionRecs;
165
166 ------------------------------------------------------
167 -- Copy Bodies
168 ------------------------------------------------------
169
170
171 PROCEDURE CopyAdjustmentRuleRec(
172 p_source_obj_def_id in number
173 ,p_target_obj_def_id in number
174 ,p_created_by in number
175 ,p_creation_date in date
176 )
177 IS
178 BEGIN
179
180 insert into FTP_ADJUSTMENT_RULE (
181 object_definition_id,
182 line_item_id,
183 currency,
184 cond_sequence,
185 adjustment_type_code,
186 calc_method_code,
187 reference_term_code,
188 lookup_method_code,
189 assignment_date_code,
190 interest_rate_code,
191 break_funding_rate,
192 minimum_charge,
193 break_funding_amt,
194 rate_spread,
195 created_by,
196 creation_date,
197 last_updated_by,
198 last_update_date,
199 last_update_login,
200 object_version_number
201 )
202 select
203 p_target_obj_def_id,
204 line_item_id,
205 currency,
206 cond_sequence,
207 adjustment_type_code,
208 calc_method_code,
209 reference_term_code,
210 lookup_method_code,
211 assignment_date_code,
212 interest_rate_code,
213 break_funding_rate,
214 minimum_charge,
215 break_funding_amt,
216 rate_spread,
217 nvl(p_created_by,created_by),
218 nvl(p_creation_date,creation_date),
219 FND_GLOBAL.user_id,
220 sysdate,
221 FND_GLOBAL.login_id,
222 object_version_number
223
224 from FTP_ADJUSTMENT_RULE
225 where object_definition_id = p_source_obj_def_id;
226
227 END CopyAdjustmentRuleRec;
228
229 PROCEDURE CopyAddOnRateDtlRecs(
230 p_source_obj_def_id in number
231 ,p_target_obj_def_id in number
232 ,p_created_by in number
233 ,p_creation_date in date
234 )
235 IS
236 BEGIN
237
238 insert into FTP_ADD_ON_RATE_DTL (
239 add_on_rate_dtl_id,
240 object_definition_id,
241 line_item_id,
242 currency,
243 cond_sequence,
244 term,
245 mult,
246 rate,
247 amount,
248 formula,
249 term_point,
250 term_multiplier,
251 coefficient,
252 created_by,
253 creation_date,
254 last_updated_by,
255 last_update_date,
256 last_update_login,
257 object_version_number
258 ) select
259 FUN_TRX_TYPES_B_S.nextval,
260 p_target_obj_def_id,
261 line_item_id,
262 currency,
263 cond_sequence,
264 term,
265 mult,
266 rate,
267 amount,
268 formula,
269 term_point,
270 term_multiplier,
271 coefficient,
272 nvl(p_created_by,created_by),
273 nvl(p_creation_date,creation_date),
274 FND_GLOBAL.user_id,
275 sysdate,
276 FND_GLOBAL.login_id,
277 object_version_number
278 from FTP_ADD_ON_RATE_DTL
279 where object_definition_id = p_source_obj_def_id;
280
281 END CopyAddOnRateDtlRecs;
282
283
284
285 PROCEDURE CopyConditionRecs(
286 p_source_obj_def_id in number
287 ,p_target_obj_def_id in number
288 ,p_created_by in number
289 ,p_creation_date in date
290 )
291 IS
292 BEGIN
293
294 insert into ftp_tp_pp_conditions (
295 object_definition_id
296 ,line_item_id
297 ,currency
298 ,cond_sequence
299 ,cond_order
300 ,level_num
301 ,table_name
302 ,column_name
303 ,column_data_type
304 ,compare_type
305 ,comparator
306 ,logical
307 ,r_from
308 ,r_to
309 ,left_paren
310 ,right_paren
311 ,created_by
312 ,creation_date
313 ,last_updated_by
314 ,last_update_date
315 ,last_update_login
316 ) select
317 p_target_obj_def_id
318 ,line_item_id
319 ,currency
320 ,cond_sequence
321 ,cond_order
322 ,level_num
323 ,table_name
324 ,column_name
325 ,column_data_type
326 ,compare_type
327 ,comparator
328 ,logical
329 ,r_from
330 ,r_to
331 ,left_paren
332 ,right_paren
333 ,nvl(p_created_by,created_by)
334 ,nvl(p_creation_date,creation_date)
335 ,FND_GLOBAL.user_id
336 ,sysdate
337 ,FND_GLOBAL.login_id
338 from ftp_tp_pp_conditions
339 where object_definition_id = p_source_obj_def_id;
340
341 END CopyConditionRecs;
342
343
344 END ftp_br_adjustment_pvt ;
345