[Home] [Help]
PACKAGE BODY: APPS.FTP_BR_TRANSFER_PRICE_PVT
Source
1 PACKAGE BODY FTP_BR_TRANSFER_PRICE_PVT AS
2 /* $Header: ftptprub.pls 120.0 2005/06/06 19:20:40 appldev noship $ */
3 --------------------------------------------------------------------------------
4 -- PRIVATE CONSTANTS
5 --------------------------------------------------------------------------------
6
7 G_PKG_NAME constant varchar2(30) := 'FTP_BR_TRANSFER_PRICE_PVT';
8
9 --------------------------------------------------------------------------------
10 -- PRIVATE SPECIFICATIONS
11 --------------------------------------------------------------------------------
12
13 PROCEDURE DeleteTransferPriceRuleRec(
14 p_obj_def_id in number
15 );
16
17 PROCEDURE DeleteUnpricedAccountRecs(
18 p_obj_def_id in number
19 );
20
21 PROCEDURE DeleteRedemptionCurveRecs(
22 p_obj_def_id in number
23 );
24
25 PROCEDURE DeleteConditionRecs(
26 p_obj_def_id in number
27 );
28
29 PROCEDURE CopyTransferPriceRuleRec(
30 p_source_obj_def_id in number
31 ,p_target_obj_def_id in number
32 ,p_created_by in number
33 ,p_creation_date in date
34 );
35
36 PROCEDURE CopyUnpricedAccountRecs(
37 p_source_obj_def_id in number
38 ,p_target_obj_def_id in number
39 ,p_created_by in number
40 ,p_creation_date in date
41 );
42
43 PROCEDURE CopyRedemptionCurveRecs(
44 p_source_obj_def_id in number
45 ,p_target_obj_def_id in number
46 ,p_created_by in number
47 ,p_creation_date in date
48 );
49
50 PROCEDURE CopyConditionRecs(
51 p_source_obj_def_id in number
52 ,p_target_obj_def_id in number
53 ,p_created_by in number
54 ,p_creation_date in date
55 );
56
57 --------------------------------------------------------------------------------
58 -- PUBLIC BODIES
59 --------------------------------------------------------------------------------
60
61 --
62 -- PROCEDURE
63 -- DeleteObjectDefinition
64 --
65 -- DESCRIPTION
66 -- Deletes all the details records of a Transfer Price Rule Definition.
67 --
68 -- IN
69 -- p_obj_def_id - Object Definition ID.
70 --
71 --------------------------------------------------------------------------------
72 PROCEDURE DeleteObjectDefinition(
73 p_obj_def_id in number
74 )
75 --------------------------------------------------------------------------------
76 IS
77
78 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
79
80 BEGIN
81
82 DeleteUnpricedAccountRecs(
83 p_obj_def_id => p_obj_def_id
84 );
85
86 DeleteRedemptionCurveRecs(
87 p_obj_def_id => p_obj_def_id
88 );
89
90 DeleteConditionRecs(
91 p_obj_def_id => p_obj_def_id
92 );
93
94 DeleteTransferPriceRuleRec(
95 p_obj_def_id => p_obj_def_id
96 );
97
98 EXCEPTION
99
100 when others then
101 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
102 raise FND_API.G_EXC_UNEXPECTED_ERROR;
103
104 END DeleteObjectDefinition;
105
106
107 --
108 -- PROCEDURE
109 -- CopyObjectDefinition
110 --
111 -- DESCRIPTION
112 -- Creates all the detail records of a new Transfer Price Rule Definition (target)
113 -- by copying the detail records of another Transfer Price Rule Definition (source).
114 --
115 -- IN
116 -- p_source_obj_def_id - Source Object Definition ID.
117 -- p_target_obj_def_id - Target Object Definition ID.
118 -- p_created_by - FND User ID (optional).
119 -- p_creation_date - System Date (optional).
120 --
121 --------------------------------------------------------------------------------
122 PROCEDURE CopyObjectDefinition(
123 p_source_obj_def_id in number
124 ,p_target_obj_def_id in number
125 ,p_created_by in number
126 ,p_creation_date in date
127 )
128 --------------------------------------------------------------------------------
129 IS
130
131 g_api_name constant varchar2(30) := 'CopyObjectDefinition';
132
133 BEGIN
134
135 CopyTransferPriceRuleRec(
136 p_source_obj_def_id => p_source_obj_def_id
137 ,p_target_obj_def_id => p_target_obj_def_id
138 ,p_created_by => p_created_by
139 ,p_creation_date => p_creation_date
140 );
141
142 CopyUnpricedAccountRecs(
143 p_source_obj_def_id => p_source_obj_def_id
144 ,p_target_obj_def_id => p_target_obj_def_id
145 ,p_created_by => p_created_by
146 ,p_creation_date => p_creation_date
147 );
148
149 CopyRedemptionCurveRecs(
150 p_source_obj_def_id => p_source_obj_def_id
151 ,p_target_obj_def_id => p_target_obj_def_id
152 ,p_created_by => p_created_by
153 ,p_creation_date => p_creation_date
154 );
155
156 CopyConditionRecs(
157 p_source_obj_def_id => p_source_obj_def_id
158 ,p_target_obj_def_id => p_target_obj_def_id
159 ,p_created_by => p_created_by
160 ,p_creation_date => p_creation_date
161 );
162
163 EXCEPTION
164
165 when others then
166 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
167 raise FND_API.G_EXC_UNEXPECTED_ERROR;
168
169 END CopyObjectDefinition;
170
171
172
173 --------------------------------------------------------------------------------
174 -- PRIVATE BODIES
175 --------------------------------------------------------------------------------
176
177 --
178 -- PROCEDURE
179 -- DeleteTransferPriceRuleRec
180 --
181 -- DESCRIPTION
182 -- Deletes a Transfer Price Rule Definition by performing deletes on records
183 -- in the FTP_TRANSFER_PRICE_RULE table.
184 --
185 -- IN
186 -- p_obj_def_id - Object Definition ID.
187 --
188 --------------------------------------------------------------------------------
189 PROCEDURE DeleteTransferPriceRuleRec(
190 p_obj_def_id in number
191 )
192 --------------------------------------------------------------------------------
193 IS
194 BEGIN
195
196 delete from ftp_transfer_price_rule
197 where object_definition_id = p_obj_def_id;
198
199 END DeleteTransferPriceRuleRec;
200
201
202 --
203 -- PROCEDURE
204 -- DeleteUnpricedAccountRecs
205 --
206 -- DESCRIPTION
207 -- Deletes Transfer Price Rule Definition records by performing deletes on records
208 -- in the FTP_TP_UNPRICED_ACCT_DTL table.
209 --
210 -- IN
211 -- p_obj_def_id - Object Definition ID.
212 --
213 --------------------------------------------------------------------------------
214 PROCEDURE DeleteUnpricedAccountRecs(
215 p_obj_def_id in number
216 )
217 --------------------------------------------------------------------------------
218 IS
219 BEGIN
220
221 delete from ftp_tp_unpriced_acct_dtl
222 where object_definition_id = p_obj_def_id;
223
224 END DeleteUnpricedAccountRecs;
225
226
227 --
228 -- PROCEDURE
229 -- DeleteRedemptionCurveRecs
230 --
231 -- DESCRIPTION
232 -- Deletes Transfer Price Rule Definition records by performing deletes on records
233 -- in the FTP_TP_REDEMPT_CURVE_DTL table.
234 --
235 -- IN
236 -- p_obj_def_id - Object Definition ID.
237 --
238 --------------------------------------------------------------------------------
239 PROCEDURE DeleteRedemptionCurveRecs(
240 p_obj_def_id in number
241 )
242 --------------------------------------------------------------------------------
243 IS
244 BEGIN
245
246 delete from ftp_tp_redempt_curve_dtl
247 where object_definition_id = p_obj_def_id;
248
249 END DeleteRedemptionCurveRecs;
250
251
252 --
253 -- PROCEDURE
254 -- DeleteConditionRecs
255 --
256 -- DESCRIPTION
257 -- Deletes Transfer Price Rule Definition records by performing deletes on records
258
259 -- in the FTP_TP_PP_CONDITIONS table.
260 --
261 -- IN
262 -- p_obj_def_id - Object Definition ID.
263 --
264 --------------------------------------------------------------------------------
265 PROCEDURE DeleteConditionRecs(
266 p_obj_def_id in number
267 )
268 --------------------------------------------------------------------------------
269 IS
270 BEGIN
271
272 delete from ftp_tp_pp_conditions
273 where object_definition_id = p_obj_def_id;
274
275 END DeleteConditionRecs;
276
277
278 --
279 -- PROCEDURE
280 -- CopTransferPriceRuleRec
281 --
282 -- DESCRIPTION
283 -- Creates a new Transfer Price Rule Definition by copying records in the
284 -- FTP_TRANSFER_PRICE_RULE table.
285 --
286 -- IN
287 -- p_source_obj_def_id - Source Object Definition ID.
288 -- p_target_obj_def_id - Target Object Definition ID.
289 -- p_created_by - FND User ID (optional).
290 -- p_creation_date - System Date (optional).
291 --
292 --------------------------------------------------------------------------------
293 PROCEDURE CopyTransferPriceRuleRec(
294 p_source_obj_def_id in number
295 ,p_target_obj_def_id in number
296 ,p_created_by in number
297 ,p_creation_date in date
298 )
299 --------------------------------------------------------------------------------
300 IS
301 BEGIN
302
303 insert into ftp_transfer_price_rule (
304 object_definition_id
305 ,line_item_id
306 ,currency
307 ,cond_sequence
308 ,data_source_code
309 ,tp_calc_method_code
310 ,gross_rate_flg
311 ,interest_rate_code
312 ,yield_curve_term
313 ,yield_curve_mult
314 ,historical_term
315 ,historical_mult
316 ,assignment_date_code
317 ,option_cost_method_code
318 ,target_bal_code
319 ,rate_spread
320 ,lag_term
321 ,lag_mult
322 ,across_org_unit_flg
323 ,mid_period_reprice_flg
324 ,created_by
325 ,creation_date
326 ,last_updated_by
327 ,last_update_date
328 ,last_update_login
329 ) select
330 p_target_obj_def_id
331 ,line_item_id
332 ,currency
333 ,cond_sequence
334 ,data_source_code
335 ,tp_calc_method_code
336 ,gross_rate_flg
337 ,interest_rate_code
338 ,yield_curve_term
339 ,yield_curve_mult
340 ,historical_term
341 ,historical_mult
342 ,assignment_date_code
343 ,option_cost_method_code
344 ,target_bal_code
345 ,rate_spread
346 ,lag_term
347 ,lag_mult
348 ,across_org_unit_flg
349 ,mid_period_reprice_flg
350 ,nvl(p_created_by,created_by)
351 ,nvl(p_creation_date,creation_date)
352 ,FND_GLOBAL.user_id
353 ,sysdate
354 ,FND_GLOBAL.login_id
355 from ftp_transfer_price_rule
356 where object_definition_id = p_source_obj_def_id;
357
358 END CopyTransferPriceRuleRec;
359
360
361 --
362 -- PROCEDURE
363 -- CopyUnpricedAccountRecs
364 --
365 -- DESCRIPTION
366 -- Creates a new Transfer Price Rule Definition records by copying records in the
367 -- FTP_TP_UNPPRICED_ACCT_DTL table.
368 --
369 -- IN
370 -- p_source_obj_def_id - Source Object Definition ID.
371 -- p_target_obj_def_id - Target Object Definition ID.
372 -- p_created_by - FND User ID (optional).
373 -- p_creation_date - System Date (optional).
374 --
375 --------------------------------------------------------------------------------
376 PROCEDURE CopyUnpricedAccountRecs(
377 p_source_obj_def_id in number
378 ,p_target_obj_def_id in number
379 ,p_created_by in number
380 ,p_creation_date in date
381 )
382 --------------------------------------------------------------------------------
383 IS
384 BEGIN
385
386 insert into ftp_tp_unpriced_acct_dtl (
387 object_definition_id
388 ,line_item_id
389 ,currency
390 ,cond_sequence
391 ,source_line_item_id
392 ,created_by
393 ,creation_date
394 ,last_updated_by
395 ,last_update_date
396 ,last_update_login
397 ) select
398 p_target_obj_def_id
399 ,line_item_id
400 ,currency
401 ,cond_sequence
402 ,source_line_item_id
403 ,nvl(p_created_by,created_by)
407 ,FND_GLOBAL.login_id
404 ,nvl(p_creation_date,creation_date)
405 ,FND_GLOBAL.user_id
406 ,sysdate
408 from ftp_tp_unpriced_acct_dtl
409 where object_definition_id = p_source_obj_def_id;
410
411 END CopyUnpricedAccountRecs;
412
413
414
415
416 --
417 -- PROCEDURE
418 -- CopyRedemptionCurveRecs
419 --
420 -- DESCRIPTION
421 -- Creates a new Transfer Price Rule Definition records by copying records in the
422 -- FTP_TP_REDEMPT_CURVE_DTL table.
423 --
424 -- IN
425 -- p_source_obj_def_id - Source Object Definition ID.
426 -- p_target_obj_def_id - Target Object Definition ID.
427 -- p_created_by - FND User ID (optional).
428 -- p_creation_date - System Date (optional).
429 --
430 --------------------------------------------------------------------------------
431 PROCEDURE CopyRedemptionCurveRecs(
432 p_source_obj_def_id in number
433 ,p_target_obj_def_id in number
434 ,p_created_by in number
435 ,p_creation_date in date
436 )
437 --------------------------------------------------------------------------------
438 IS
439 BEGIN
440
441 insert into ftp_tp_redempt_curve_dtl (
442 object_definition_id
443 ,line_item_id
444 ,currency
445 ,cond_sequence
446 ,interest_rate_code
447 ,interest_rate_term
448 ,interest_rate_term_mult
449 ,percentage
450 ,created_by
451 ,creation_date
452 ,last_updated_by
453 ,last_update_date
454 ,last_update_login
455 ) select
456 p_target_obj_def_id
457 ,line_item_id
458 ,currency
459 ,cond_sequence
460 ,interest_rate_code
461 ,interest_rate_term
462 ,interest_rate_term_mult
463 ,percentage
464 ,nvl(p_created_by,created_by)
465 ,nvl(p_creation_date,creation_date)
466 ,FND_GLOBAL.user_id
467 ,sysdate
468 ,FND_GLOBAL.login_id
469 from ftp_tp_redempt_curve_dtl
470 where object_definition_id = p_source_obj_def_id;
471
472 END CopyRedemptionCurveRecs;
473
474
475 --
476 -- PROCEDURE
477 -- CopyConditionRecs
478 --
479 -- DESCRIPTION
480 -- Creates a new Transfer Price Rule Definition records by copying records in the
481 -- FTP_TP_PP_CONDITIONS table.
482 --
483 -- IN
484 -- p_source_obj_def_id - Source Object Definition ID.
485 -- p_target_obj_def_id - Target Object Definition ID.
486 -- p_created_by - FND User ID (optional).
487 -- p_creation_date - System Date (optional).
488 --
489 --------------------------------------------------------------------------------
490 PROCEDURE CopyConditionRecs(
491 p_source_obj_def_id in number
492 ,p_target_obj_def_id in number
493 ,p_created_by in number
494 ,p_creation_date in date
495 )
496 --------------------------------------------------------------------------------
497 IS
498 BEGIN
499
500 insert into ftp_tp_pp_conditions (
501 object_definition_id
502 ,line_item_id
503 ,currency
504 ,cond_sequence
505 ,cond_order
506 ,level_num
507 ,table_name
508 ,column_name
509 ,column_data_type
510 ,compare_type
511 ,comparator
512 ,logical
513 ,r_from
514 ,r_to
515 ,left_paren
516 ,right_paren
517 ,created_by
518 ,creation_date
519 ,last_updated_by
520 ,last_update_date
521 ,last_update_login
522 ) select
523 p_target_obj_def_id
524 ,line_item_id
525 ,currency
526 ,cond_sequence
527 ,cond_order
528 ,level_num
529 ,table_name
530 ,column_name
531 ,column_data_type
532 ,compare_type
533 ,comparator
534 ,logical
535 ,r_from
536 ,r_to
537 ,left_paren
538 ,right_paren
539 ,nvl(p_created_by,created_by)
540 ,nvl(p_creation_date,creation_date)
541 ,FND_GLOBAL.user_id
542 ,sysdate
543 ,FND_GLOBAL.login_id
544 from ftp_tp_pp_conditions
545 where object_definition_id = p_source_obj_def_id;
546
547 END CopyConditionRecs;
548
549 END FTP_BR_TRANSFER_PRICE_PVT;
550