[Home] [Help]
PACKAGE BODY: APPS.PFT_BR_PROFIT_AGG_PVT
Source
1 PACKAGE BODY PFT_BR_PROFIT_AGG_PVT AS
2 /* $Header: PFTVPAGB.pls 120.0 2005/06/06 18:59:20 appldev noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7
8 G_PKG_NAME constant varchar2(30) := 'PFT_BR_PROFIT_AGG_PVT;';
9
10 --------------------------------------------------------------------------------
11 -- PRIVATE SPECIFICATIONS
12 --------------------------------------------------------------------------------
13
14
15
16
17 PROCEDURE CopyAggRuleRec(
18 p_source_obj_def_id IN NUMBER
19 ,p_target_obj_def_id IN NUMBER
20 ,p_created_by IN NUMBER
21 ,p_creation_date IN DATE
22 );
23
24
25 PROCEDURE DeleteAggRuleRec(
26 p_obj_def_id IN NUMBER
27 );
28
29
30 --------------------------------------------------------------------------------
31 -- PUBLIC BODIES
32 --------------------------------------------------------------------------------
33
34
35 --
36 -- PROCEDURE
37 -- CopyObjectDefinition
38 --
39 -- DESCRIPTION
40 -- Creates all the detail records of a new Profit Aggregation Rule Definition (target)
41 -- by copying the detail records of another Profit Aggregation Rule Definition (source).
42 --
43 -- IN
44 -- p_source_obj_def_id - Source Object Definition ID.
45 -- p_target_obj_def_id - Target Object Definition ID.
46 -- p_created_by - FND User ID (optional).
47 -- p_creation_date - System Date (optional).
48 --
49 --------------------------------------------------------------------------------
50 PROCEDURE CopyObjectDefinition(
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 IS
58
59 G_API_NAME CONSTANT VARCHAR2(30) := 'CopyObjectDefinition';
60
61 BEGIN
62
63
64 CopyAggRuleRec(
65 p_source_obj_def_id => p_source_obj_def_id
66 ,p_target_obj_def_id => p_target_obj_def_id
67 ,p_created_by => p_created_by
68 ,p_creation_date => p_creation_date
69 );
70
71
72 EXCEPTION
73
74 WHEN OTHERS THEN
75 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, G_API_NAME);
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77
78 END CopyObjectDefinition;
79
80
81 --
82 -- PROCEDURE
83 -- DeleteObjectDefinition
84 --
85 -- DESCRIPTION
86 -- Deletes all the details records of a Profit Aggregation Rule Definition.
87 --
88 -- IN
89 -- p_obj_def_id - Object Definition ID.
90 --
91 --------------------------------------------------------------------------------
92 PROCEDURE DeleteObjectDefinition(
93 p_obj_def_id IN NUMBER
94 )
95 --------------------------------------------------------------------------------
96 IS
97
98 G_API_NAME CONSTANT VARCHAR2(30) := 'DeleteObjectDefinition';
99
100 BEGIN
101
102 DeleteAggRuleRec(
103 p_obj_def_id => p_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 DeleteObjectDefinition;
113
114
115 --------------------------------------------------------------------------------
116 -- PRIVATE BODIES
117 --------------------------------------------------------------------------------
118
119
120
121 --
122 -- PROCEDURE
123 -- CopyAggRuleRec
124 --
125 -- DESCRIPTION
126 -- Creates a new Profit Aggregation Rule Definition Formula by copying records in the
127 -- PFT_PPROF_AGG_RULES table.
128 --
129 -- IN
130 -- p_source_obj_def_id - Source Object Definition ID.
131 -- p_target_obj_def_id - Target Object Definition ID.
132 -- p_created_by - FND User ID (optional).
133 -- p_creation_date - System Date (optional).
134 --
135 --------------------------------------------------------------------------------
136 PROCEDURE CopyAggRuleRec(
137 p_source_obj_def_id IN NUMBER
138 ,p_target_obj_def_id IN NUMBER
139 ,p_created_by IN NUMBER
140 ,p_creation_date IN DATE
141 )
142 --------------------------------------------------------------------------------
143 IS
144 BEGIN
145
146 INSERT INTO PFT_PPROF_AGG_RULES (
147 pprof_agg_obj_def_id
148 ,created_by
149 ,creation_date
150 ,last_updated_by
151 ,last_update_date
152 ,last_update_login
153 ,object_version_number
154 ,col_tmplt_obj_id
155 ,condition_obj_id
156 ,hierarchy_obj_id
157 ,dimension_grp_id_from
158 ,dimension_grp_id_to
159 ) SELECT
160 p_target_obj_def_id
161 ,NVL(p_created_by,created_by)
162 ,NVL(p_creation_date,creation_date)
163 ,FND_GLOBAL.user_id
164 ,SYSDATE
165 ,FND_GLOBAL.login_id
166 ,object_version_number
167 ,col_tmplt_obj_id
168 ,condition_obj_id
169 ,hierarchy_obj_id
170 ,dimension_grp_id_from
171 ,dimension_grp_id_to
172 FROM pft_pprof_agg_rules
173 WHERE pprof_agg_obj_def_id = p_source_obj_def_id;
174
175 END CopyAggRuleRec;
176
177
178 --
179 -- PROCEDURE
180 -- DeletAggRuleRec
181 --
182 -- DESCRIPTION
183 -- Deletes a Profit Aggregation Rule Definition by performing deletes on records
184 -- in the PFT_PPROF_AGG_RULES table.
185 --
186 -- IN
187 -- p_obj_def_id - Object Definition ID.
188 --
189 --------------------------------------------------------------------------------
190 PROCEDURE DeleteAggRuleRec(
191 p_obj_def_id IN NUMBER
192 )
193 --------------------------------------------------------------------------------
194 IS
195 BEGIN
196
197 DELETE FROM PFT_PPROF_AGG_RULES
198 WHERE PPROF_AGG_OBJ_DEF_ID = p_obj_def_id;
199
200 END DeleteAggRuleRec;
201
202
203
204 END PFT_BR_PROFIT_AGG_PVT;