[Home] [Help]
PACKAGE BODY: APPS.PFT_BR_COUC_ROLLUP_PVT
Source
1 PACKAGE BODY PFT_BR_COUC_ROLLUP_PVT AS
2 /* $Header: PFTVCORB.pls 120.0 2005/06/06 19:02:57 appldev noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7
8 G_PKG_NAME constant varchar2(30) := 'PFT_BR_COUC_ROLLUP_PVT';
9
10 --------------------------------------------------------------------------------
11 -- PRIVATE SPECIFICATIONS
12 --------------------------------------------------------------------------------
13
14 --------------------------------------------------------------------------------
15 -- PUBLIC BODIES
16 --------------------------------------------------------------------------------
17
18 --
19 -- PROCEDURE
20 -- DeleteObjectDefinition
21 --
22 -- DESCRIPTION
23 -- Deletes all the details records of a Cost Object Unit Cost Rollup Rule Definition.
24 --
25 -- IN
26 -- p_obj_def_id - Object Definition ID.
27 --
28 --------------------------------------------------------------------------------
29 PROCEDURE DeleteObjectDefinition(
30 p_obj_def_id in number
31 )
32 --------------------------------------------------------------------------------
33 IS
34
35 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
36
37 BEGIN
38
39 delete from PFT_COUC_ROLLUP_RULES
40 where couc_rollup_obj_def_id = p_obj_def_id;
41
42 EXCEPTION
43
44 when others then
45 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
46 raise FND_API.G_EXC_UNEXPECTED_ERROR;
47
48 END DeleteObjectDefinition;
49
50
51 --
52 -- PROCEDURE
53 -- CopyObjectDefinition
54 --
55 -- DESCRIPTION
56 -- Creates all the detail records of a new Cost Object Unit Cost Rollup Rule Definition
57 -- (target) by copying the detail records of another Cost Object Unit Cost Rollup Rule
58 -- Definition (source).
59 --
60 -- IN
61 -- p_source_obj_def_id - Source Object Definition ID.
62 -- p_target_obj_def_id - Target Object Definition ID.
63 -- p_created_by - FND User ID (optional).
64 -- p_creation_date - System Date (optional).
65 --
66 --------------------------------------------------------------------------------
67 PROCEDURE CopyObjectDefinition(
68 p_source_obj_def_id in number
69 ,p_target_obj_def_id in number
70 ,p_created_by in number
71 ,p_creation_date in date
72 )
73 --------------------------------------------------------------------------------
74 IS
75
76 g_api_name constant varchar2(30) := 'CopyObjectDefinition';
77
78 BEGIN
79
80 insert into PFT_COUC_ROLLUP_RULES(
81 couc_rollup_obj_def_id
82 ,cost_object_hier_obj_id
83 ,currency_code
84 ,condition_obj_id
85 ,created_by
86 ,creation_date
87 ,last_updated_by
88 ,last_update_date
89 ,last_update_login
90 ,object_version_number
91 ) select
92 p_target_obj_def_id
93 ,cost_object_hier_obj_id
94 ,currency_code
95 ,condition_obj_id
96 ,nvl(p_created_by,created_by)
97 ,nvl(p_creation_date,creation_date)
98 ,FND_GLOBAL.user_id
99 ,sysdate
100 ,FND_GLOBAL.login_id
101 ,object_version_number
102 from PFT_COUC_ROLLUP_RULES
103 where couc_rollup_obj_def_id = p_source_obj_def_id;
104
105
106 EXCEPTION
107
108 when others then
109 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
110 raise FND_API.G_EXC_UNEXPECTED_ERROR;
111
112 END CopyObjectDefinition;
113
114
115
116 END PFT_BR_COUC_ROLLUP_PVT;