[Home] [Help]
PACKAGE BODY: APPS.FEM_BR_RULE_SET_PVT
Source
1 PACKAGE BODY FEM_BR_RULE_SET_PVT AS
2 /* $Header: FEMVRUSB.pls 120.0 2005/06/06 19:47:24 appldev noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7
8 G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_BR_RULE_SET_PVT;';
9
10 --------------------------------------------------------------------------------
11 -- PRIVATE SPECIFICATIONS
12 --------------------------------------------------------------------------------
13
14
15
16
17 PROCEDURE CopyRuleSetRec(
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 PROCEDURE CopyMembersRec(
25 p_source_obj_def_id IN NUMBER
26 ,p_target_obj_def_id IN NUMBER
27 ,p_created_by IN NUMBER
28 ,p_creation_date IN DATE
29 );
30
31 PROCEDURE DeleteRuleSetRec(
32 p_obj_def_id IN NUMBER
33 );
34
35 PROCEDURE DeleteMembersRec(
36 p_obj_def_id IN NUMBER
37 );
38
39 --------------------------------------------------------------------------------
40 -- PUBLIC BODIES
41 --------------------------------------------------------------------------------
42
43
44 --
45 -- PROCEDURE
46 -- CopyObjectDefinition
47 --
48 -- DESCRIPTION
49 -- Creates the detail records of a new Rule Set Definition (target)
50 -- by copying the detail records of another Rule Set Definition Definition (source).
51 --
52 -- IN
53 -- p_source_obj_def_id - Source Object Definition ID.
54 -- p_target_obj_def_id - Target Object Definition ID.
55 -- p_created_by - FND User ID (optional).
56 -- p_creation_date - System Date (optional).
57 --
58 --------------------------------------------------------------------------------
59 PROCEDURE CopyObjectDefinition(
60 p_source_obj_def_id IN NUMBER
61 ,p_target_obj_def_id IN NUMBER
62 ,p_created_by IN NUMBER
63 ,p_creation_date IN DATE
64 )
65 --------------------------------------------------------------------------------
66 IS
67
68 G_API_NAME CONSTANT VARCHAR2(30) := 'CopyObjectDefinition';
69
70 BEGIN
71
72
73 CopyRuleSetRec(
74 p_source_obj_def_id => p_source_obj_def_id
75 ,p_target_obj_def_id => p_target_obj_def_id
76 ,p_created_by => p_created_by
77 ,p_creation_date => p_creation_date
78 );
79
80 CopyMembersRec(
81 p_source_obj_def_id => p_source_obj_def_id
82 ,p_target_obj_def_id => p_target_obj_def_id
83 ,p_created_by => p_created_by
84 ,p_creation_date => p_creation_date
85 );
86
87 EXCEPTION
88
89 WHEN OTHERS THEN
90 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, G_API_NAME);
91 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92
93
94 END CopyObjectDefinition;
95
96
97 --
98 -- PROCEDURE
99 -- DeleteObjectDefinition
100 --
101 -- DESCRIPTION
102 -- Deletes all the details records of a Rule Set Definition.
103 --
104 -- IN
105 -- p_obj_def_id - Object Definition ID.
106 --
107 --------------------------------------------------------------------------------
108 PROCEDURE DeleteObjectDefinition(
109 p_obj_def_id IN NUMBER
110 )
111 --------------------------------------------------------------------------------
112 IS
113
114 G_API_NAME CONSTANT VARCHAR2(30) := 'DeleteObjectDefinition';
115
116 BEGIN
117
118 DeleteRuleSetRec(
119 p_obj_def_id => p_obj_def_id
120 );
121
122 DeleteMembersRec(
123 p_obj_def_id => p_obj_def_id
124 );
125
126 EXCEPTION
127
128 WHEN OTHERS THEN
129 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, G_API_NAME);
130 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131
132 END DeleteObjectDefinition;
133
134
135
136 --------------------------------------------------------------------------------
137 -- PRIVATE BODIES
138 --------------------------------------------------------------------------------
139
140
141
142 --
143 -- PROCEDURE
144 -- CopyRuleSetRec
145 --
146 -- DESCRIPTION
147 -- Creates a new Rule Set Definition by copying records in the
148 -- FEM_RULE_SETS table.
149 --
150 -- IN
151 -- p_source_obj_def_id - Source Object Definition ID.
152 -- p_target_obj_def_id - Target Object Definition ID.
153 -- p_created_by - FND User ID (optional).
154 -- p_creation_date - System Date (optional).
155 --
156 --------------------------------------------------------------------------------
157 PROCEDURE CopyRuleSetRec(
158 p_source_obj_def_id IN NUMBER
159 ,p_target_obj_def_id IN NUMBER
160 ,p_created_by IN NUMBER
161 ,p_creation_date IN DATE
162 )
163 --------------------------------------------------------------------------------
164 IS
165 BEGIN
166
167 INSERT INTO FEM_RULE_SETS (
168 RULE_SET_OBJ_DEF_ID
169 ,RULE_SET_OBJECT_TYPE_CODE
170 ,OBJECT_VERSION_NUMBER
171 ,CREATION_DATE
172 ,CREATED_BY
173 ,LAST_UPDATE_DATE
174 ,LAST_UPDATED_BY
175 ,LAST_UPDATE_LOGIN
176 ) SELECT
177 p_target_obj_def_id
178 ,RULE_SET_OBJECT_TYPE_CODE
179 ,OBJECT_VERSION_NUMBER
180 ,NVL(p_creation_date,creation_date)
181 ,NVL(p_created_by,created_by)
182 ,SYSDATE
183 ,FND_GLOBAL.user_id
184 ,FND_GLOBAL.login_id
185 FROM FEM_RULE_SETS
186 WHERE RULE_SET_OBJ_DEF_ID = p_source_obj_def_id;
187
188 END CopyRuleSetRec;
189
190
191 --
192 -- PROCEDURE
193 -- CopyMembersRec
194 --
195 -- DESCRIPTION
196 -- Creates a new Rule Set Members by copying records in the
197 -- FEM_RULE_SET_MEMBERS table.
198 --
199 -- IN
200 -- p_source_obj_def_id - Source Object Definition ID.
201 -- p_target_obj_def_id - Target Object Definition ID.
202 -- p_created_by - FND User ID (optional).
203 -- p_creation_date - System Date (optional).
204 --
205 --------------------------------------------------------------------------------
206 PROCEDURE CopyMembersRec(
207 p_source_obj_def_id IN NUMBER
208 ,p_target_obj_def_id IN NUMBER
209 ,p_created_by IN NUMBER
210 ,p_creation_date IN DATE
211 )
212 --------------------------------------------------------------------------------
213 IS
214 BEGIN
215
216 INSERT INTO FEM_RULE_SET_MEMBERS (
217 RULE_SET_OBJ_DEF_ID
218 ,CHILD_OBJ_ID
219 ,CHILD_EXECUTION_SEQUENCE
220 ,EXECUTE_CHILD_FLAG
221 ,OBJECT_VERSION_NUMBER
222 ,CREATION_DATE
223 ,CREATED_BY
224 ,LAST_UPDATE_DATE
225 ,LAST_UPDATED_BY
226 ,LAST_UPDATE_LOGIN
227 ) SELECT
228 p_target_obj_def_id
229 ,CHILD_OBJ_ID
230 ,CHILD_EXECUTION_SEQUENCE
231 ,EXECUTE_CHILD_FLAG
232 ,OBJECT_VERSION_NUMBER
233 ,NVL(p_creation_date,creation_date)
234 ,NVL(p_created_by,created_by)
235 ,SYSDATE
236 ,FND_GLOBAL.user_id
237 ,FND_GLOBAL.login_id
238 FROM FEM_RULE_SET_MEMBERS
239 WHERE RULE_SET_OBJ_DEF_ID = p_source_obj_def_id;
240
241 END CopyMembersRec;
242
243 --
244 -- PROCEDURE
245 -- DeletRuleSetRec
246 --
247 -- DESCRIPTION
248 -- Deletes a Rule Set Definition by performing deletes on records
249 -- in the FEM_RULE_SETS table.
250 --
251 -- IN
252 -- p_obj_def_id - Object Definition ID.
253 --
254 --------------------------------------------------------------------------------
255 PROCEDURE DeleteRuleSetRec(
256 p_obj_def_id IN NUMBER
257 )
258 --------------------------------------------------------------------------------
259 IS
260 BEGIN
261
262 DELETE FROM FEM_RULE_SETS
263 WHERE RULE_SET_OBJ_DEF_ID = p_obj_def_id;
264
265 END DeleteRuleSetRec;
266
267
268 --
269 -- PROCEDURE
270 -- DeleteMembersRec
271 --
272 -- DESCRIPTION
273 -- Deletes Rule Set Members by performing deletes on records
274 -- in the FEM_RULE_SET_MEMBERS table.
275 --
276 -- IN
277 -- p_obj_def_id - Object Definition ID.
278 --
279 --------------------------------------------------------------------------------
280 PROCEDURE DeleteMembersRec(
281 p_obj_def_id IN NUMBER
282 )
283 --------------------------------------------------------------------------------
284 IS
285 BEGIN
286
287 DELETE FROM FEM_RULE_SET_MEMBERS
288 WHERE RULE_SET_OBJ_DEF_ID = p_obj_def_id;
289
290 END DeleteMembersRec;
291
292
293 END FEM_BR_RULE_SET_PVT;