[Home] [Help]
Skip to content
PACKAGE BODY: APPS.BIS_PMF_DATA_SOURCE_PVT
Source
1 PACKAGE BODY BIS_PMF_DATA_SOURCE_PVT AS
2 /* $Header: BISVDSCB.pls 115.16 2003/01/30 09:10:11 sugopal ship $ */
3 /*
4 REM +=======================================================================+
5 REM | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
6 REM | All rights reserved. |
7 REM +=======================================================================+
8 REM | FILENAME |
9 REM | BISVDSCB.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Private API for the Data Source Connector
13 REM |
14 REM | NOTES |
15 REM | |
16 REM | HISTORY |
17 REM | APR-2000 irchen Creation
18 REM | 30-JAN-03 sugopal FND_API.G_MISS_xxx should not be used in |
19 REM | initialization or declaration (bug#2774644) |
20 REM +=======================================================================+
21 */
22 G_PKG_NAME CONSTANT VARCHAR2(30):= 'BIS_PMF_DATA_SOURCE_PVT';
23 --
24 -- Constants
25 --
26
27
28 --
29 -- Procedures
30 --
31
32 Procedure Form_Target_Level_rec
33 ( p_measure_instance IN BIS_MEASURE_PUB.Measure_Instance_type
34 , p_dim_level_value_tbl IN BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type
35 , x_target_level_rec OUT NOCOPY BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
36 )
37 IS
38
39 l_target_level_rec BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type;
40
41 BEGIN
42
43 l_target_level_rec := x_target_level_rec;
44
45 l_target_level_rec.measure_Id := p_measure_instance.Measure_ID;
46 l_target_level_rec.measure_short_name
47 := p_measure_instance.Measure_short_name;
48 l_target_level_rec.measure_name := p_measure_instance.Measure_name;
49
50 l_target_level_rec.Target_Level_Id := p_measure_instance.Target_Level_ID;
51 l_target_level_rec.Target_Level_short_name
52 := p_measure_instance.Target_Level_short_name;
53 l_target_level_rec.Target_Level_name := p_measure_instance.Target_Level_name;
54
55 x_target_level_rec := l_target_level_rec;
56
57 EXCEPTION
58 when FND_API.G_EXC_ERROR then
59 RETURN;
60 when FND_API.G_EXC_UNEXPECTED_ERROR then
61 RETURN;
62 when others then
63 BIS_UTILITIES_PVT.Add_Error_Message
64 ( p_error_msg_id => SQLCODE
65 , p_error_description => SQLERRM
66 , p_error_proc_name => G_PKG_NAME||'. Form_Target_Level_rec'
67 );
68 RETURN;
69 END Form_Target_Level_rec;
70
71 Procedure Form_Target_rec
72 ( p_measure_instance IN BIS_MEASURE_PUB.Measure_Instance_type
73 , p_dim_level_value_tbl IN BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type
74 , x_target_rec OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
75 )
76 IS
77
78 l_target_rec BIS_TARGET_PUB.Target_Rec_Type;
79
80 BEGIN
81
82 l_target_rec := x_target_rec;
83
84 l_target_rec.Target_Level_Id := p_measure_instance.Target_Level_ID;
85 l_target_rec.Target_Level_short_name
86 := p_measure_instance.Target_Level_short_name;
87 l_target_rec.Target_Level_name := p_measure_instance.Target_Level_name;
88
89 l_target_rec.plan_Id := p_measure_instance.plan_ID;
90 l_target_rec.plan_short_name := p_measure_instance.plan_short_name;
91 l_target_rec.plan_name := p_measure_instance.plan_name;
92
93 l_target_rec.Target_id := p_measure_instance.target_id;
94 l_target_rec.Target := p_measure_instance.target;
95
96 l_target_rec.range1_low := p_measure_instance.range1_low;
97 l_target_rec.range1_high := p_measure_instance.range1_high;
98 l_target_rec.range2_low := p_measure_instance.range2_low;
99 l_target_rec.range2_high := p_measure_instance.range2_high;
100 l_target_rec.range3_low := p_measure_instance.range3_low;
101 l_target_rec.range3_high := p_measure_instance.range3_high;
102
103 l_target_rec.Notify_Resp1_ID := p_measure_instance.Range1_Owner_ID;
104 l_target_rec.Notify_Resp1_Short_Name
105 := p_measure_instance.Range1_Owner_Short_Name;
106 l_target_rec.Notify_Resp1_Name := p_measure_instance.Range1_Owner_Name;
107 l_target_rec.Notify_Resp2_ID := p_measure_instance.Range2_Owner_ID;
108 l_target_rec.Notify_Resp2_Short_Name
109 := p_measure_instance.Range2_Owner_Short_Name;
110 l_target_rec.Notify_Resp2_Name := p_measure_instance.Range2_Owner_Name;
111 l_target_rec.Notify_Resp3_ID := p_measure_instance.Range3_Owner_ID;
112 l_target_rec.Notify_Resp3_Short_Name
113 := p_measure_instance.Range3_Owner_Short_Name;
114 l_target_rec.Notify_Resp3_Name := p_measure_instance.Range3_Owner_Name;
115
116 l_target_rec.Dim1_Level_Value_ID
117 := p_dim_level_value_tbl(1).Dimension_Level_Value_ID;
118 l_target_rec.Dim1_Level_Value_Name
119 := p_dim_level_value_tbl(1).Dimension_Level_Value_name;
120 l_target_rec.Dim2_Level_Value_ID
121 := p_dim_level_value_tbl(2).Dimension_Level_Value_ID;
122 l_target_rec.Dim2_Level_Value_Name
123 := p_dim_level_value_tbl(2).Dimension_Level_Value_name;
124 /*
125 l_target_rec.Org_Level_Value_ID
126 := p_dim_level_value_tbl(1).Dimension_Level_Value_ID;
127 l_target_rec.Org_Level_Value_Name
128 := p_dim_level_value_tbl(1).Dimension_Level_Value_name;
129 l_target_rec.Time_Level_Value_ID
130 := p_dim_level_value_tbl(2).Dimension_Level_Value_ID;
131 l_target_rec.Time_Level_Value_Name
132 := p_dim_level_value_tbl(2).Dimension_Level_Value_name;
133 */
134 l_target_rec.Dim3_Level_Value_ID
135 := p_dim_level_value_tbl(3).Dimension_Level_Value_ID;
136 l_target_rec.Dim3_Level_Value_Name
137 := p_dim_level_value_tbl(3).Dimension_Level_Value_name;
138 l_target_rec.Dim4_Level_Value_ID
139 := p_dim_level_value_tbl(4).Dimension_Level_Value_ID;
140 l_target_rec.Dim4_Level_Value_Name
141 := p_dim_level_value_tbl(4).Dimension_Level_Value_name;
142 l_target_rec.Dim5_Level_Value_ID
143 := p_dim_level_value_tbl(5).Dimension_Level_Value_ID;
144 l_target_rec.Dim5_Level_Value_Name
145 := p_dim_level_value_tbl(5).Dimension_Level_Value_name;
146 l_target_rec.Dim6_Level_Value_ID
147 := p_dim_level_value_tbl(6).Dimension_Level_Value_ID;
148 l_target_rec.Dim6_Level_Value_Name
149 := p_dim_level_value_tbl(6).Dimension_Level_Value_name;
150 l_target_rec.Dim7_Level_Value_ID
151 := p_dim_level_value_tbl(7).Dimension_Level_Value_ID;
152 l_target_rec.Dim7_Level_Value_Name
153 := p_dim_level_value_tbl(7).Dimension_Level_Value_name;
154
155 x_target_rec := l_target_rec;
156
157 EXCEPTION
158 when FND_API.G_EXC_ERROR then
159 RETURN;
160 when FND_API.G_EXC_UNEXPECTED_ERROR then
161 RETURN;
162 when others then
163 BIS_UTILITIES_PVT.Add_Error_Message
164 ( p_error_msg_id => SQLCODE
165 , p_error_description => SQLERRM
166 , p_error_proc_name => G_PKG_NAME||'.Form_Target_rec'
167 );
168 RETURN;
169 END Form_Target_rec;
170
171 Procedure Form_Actual_rec
172 ( p_measure_instance IN BIS_MEASURE_PUB.Measure_Instance_type
173 , p_dim_level_value_tbl IN BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type
174 , x_actual_rec OUT NOCOPY BIS_ACTUAL_PUB.Actual_Rec_Type
175 )
176 IS
177
178 l_actual_rec BIS_ACTUAL_PUB.Actual_Rec_Type;
179
180 BEGIN
181
182 l_actual_rec := x_actual_rec;
183
184 l_actual_rec.target_Level_Id := p_measure_instance.Target_Level_ID;
185 l_actual_rec.Target_Level_short_name
186 := p_measure_instance.Target_Level_short_name;
187 l_actual_rec.Target_Level_name := p_measure_instance.Target_Level_name;
188
189 l_actual_rec.Actual_id := p_measure_instance.actual_id;
190 l_actual_rec.Actual := p_measure_instance.actual;
191
192 l_actual_rec.Dim1_Level_Value_ID
193 := p_dim_level_value_tbl(1).Dimension_Level_Value_ID;
194 l_actual_rec.Dim1_Level_Value_Name
195 := p_dim_level_value_tbl(1).Dimension_Level_Value_name;
196 l_actual_rec.Dim2_Level_Value_ID
197 := p_dim_level_value_tbl(2).Dimension_Level_Value_ID;
198 l_actual_rec.Dim2_Level_Value_Name
199 := p_dim_level_value_tbl(2).Dimension_Level_Value_name;
200 /*
201 l_actual_rec.Org_Level_Value_ID
202 := p_dim_level_value_tbl(1).Dimension_Level_Value_ID;
203 l_actual_rec.Org_Level_Value_Name
204 := p_dim_level_value_tbl(1).Dimension_Level_Value_name;
205 l_actual_rec.Time_Level_Value_ID
206 := p_dim_level_value_tbl(2).Dimension_Level_Value_ID;
207 l_actual_rec.Time_Level_Value_Name
208 := p_dim_level_value_tbl(2).Dimension_Level_Value_name;
209 */
210 l_actual_rec.Dim3_Level_Value_ID
211 := p_dim_level_value_tbl(3).Dimension_Level_Value_ID;
212 l_actual_rec.Dim3_Level_Value_Name
213 := p_dim_level_value_tbl(3).Dimension_Level_Value_name;
214 l_actual_rec.Dim4_Level_Value_ID
215 := p_dim_level_value_tbl(4).Dimension_Level_Value_ID;
216 l_actual_rec.Dim4_Level_Value_Name
217 := p_dim_level_value_tbl(4).Dimension_Level_Value_name;
218 l_actual_rec.Dim5_Level_Value_ID
219 := p_dim_level_value_tbl(5).Dimension_Level_Value_ID;
220 l_actual_rec.Dim5_Level_Value_Name
221 := p_dim_level_value_tbl(5).Dimension_Level_Value_name;
222 l_actual_rec.Dim6_Level_Value_ID
223 := p_dim_level_value_tbl(6).Dimension_Level_Value_ID;
224 l_actual_rec.Dim6_Level_Value_Name
225 := p_dim_level_value_tbl(6).Dimension_Level_Value_name;
226 l_actual_rec.Dim7_Level_Value_ID
227 := p_dim_level_value_tbl(7).Dimension_Level_Value_ID;
228 l_actual_rec.Dim7_Level_Value_Name
229 := p_dim_level_value_tbl(7).Dimension_Level_Value_name;
230
231 x_actual_rec := l_actual_rec;
232
233 EXCEPTION
234 when FND_API.G_EXC_ERROR then
235 RETURN;
236 when FND_API.G_EXC_UNEXPECTED_ERROR then
237 RETURN;
238 when others then
239 BIS_UTILITIES_PVT.Add_Error_Message
240 ( p_error_msg_id => SQLCODE
241 , p_error_description => SQLERRM
242 , p_error_proc_name => G_PKG_NAME||'.Form_Actual_rec'
243 );
244 RETURN;
245 END Form_Actual_rec;
246
247 Procedure Form_Measure_Instance
248 ( p_Measure_ID IN NUMBER := NULL
249 , p_Target_Level_ID IN NUMBER := NULL
250 , p_Plan_ID IN NUMBER := NULL
251 , p_Actual_ID IN NUMBER := NULL
252 , p_Target_ID IN NUMBER := NULL
253 , x_Measure_instance OUT NOCOPY BIS_MEASURE_PUB.Measure_Instance_type
254 )
255 IS
256
257 l_Measure_instance BIS_MEASURE_PUB.Measure_Instance_type;
258
259 BEGIN
260
261 l_Measure_instance := x_Measure_instance;
262
263 l_measure_instance.Measure_ID := p_Measure_ID;
264 l_measure_instance.Target_Level_ID := p_Target_Level_ID;
265 l_measure_instance.Plan_ID := p_Plan_ID;
266 l_measure_instance.Actual_ID := p_Actual_ID;
267 l_measure_instance.Target_ID := p_Target_ID;
268
269 x_Measure_instance := l_Measure_instance;
270
271 END Form_Measure_Instance;
272
273 Procedure Form_dim_level_value_tbl
274 ( p_Dimension1_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
275 , p_Dimension1_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
276 , p_Dimension2_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
277 , p_Dimension2_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
278 , p_Dimension3_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
279 , p_Dimension3_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
280 , p_Dimension4_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
281 , p_Dimension4_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
282 , p_Dimension5_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
283 , p_Dimension5_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
284 , p_Dimension6_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
285 , p_Dimension6_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
286 , p_Dimension7_Level_ID IN NUMBER := BIS_UTILITIES_PUB.G_NULL_NUM
287 , p_Dimension7_Level_Value_ID IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
288 , x_dim_level_value_tbl OUT NOCOPY BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type
289 )
290 IS
291
292 l_dim_level_value_tbl BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type;
293
294 BEGIN
295
296 l_dim_level_value_tbl := x_dim_level_value_tbl;
297
298 l_dim_level_value_tbl(1).Dimension_Level_ID
299 := p_Dimension1_Level_ID;
300 l_dim_level_value_tbl(2).Dimension_Level_ID
301 := p_Dimension2_Level_ID;
302 l_dim_level_value_tbl(3).Dimension_Level_ID
303 := p_Dimension3_Level_ID;
304 l_dim_level_value_tbl(4).Dimension_Level_ID
305 := p_Dimension4_Level_ID;
306 l_dim_level_value_tbl(5).Dimension_Level_ID
307 := p_Dimension5_Level_ID;
308 l_dim_level_value_tbl(6).Dimension_Level_ID
309 := p_Dimension6_Level_ID;
310 l_dim_level_value_tbl(7).Dimension_Level_ID
311 := p_Dimension7_Level_ID;
312
313 l_dim_level_value_tbl(1).Dimension_Level_Value_ID
314 := p_Dimension1_Level_Value_ID;
315 l_dim_level_value_tbl(2).Dimension_Level_Value_ID
316 := p_Dimension2_Level_Value_ID;
317 l_dim_level_value_tbl(3).Dimension_Level_Value_ID
318 := p_Dimension3_Level_Value_ID;
319 l_dim_level_value_tbl(4).Dimension_Level_Value_ID
320 := p_Dimension4_Level_Value_ID;
321 l_dim_level_value_tbl(5).Dimension_Level_Value_ID
322 := p_Dimension5_Level_Value_ID;
323 l_dim_level_value_tbl(6).Dimension_Level_Value_ID
324 := p_Dimension6_Level_Value_ID;
325 l_dim_level_value_tbl(7).Dimension_Level_Value_ID
326 := p_Dimension7_Level_Value_ID;
327
328 x_dim_level_value_tbl := l_dim_level_value_tbl;
329
330 END Form_dim_level_value_tbl;
331
332 Procedure Sync_Target_Measure_Owners
333 ( p_measure_instance IN BIS_MEASURE_PUB.Measure_Instance_type
334 , p_Target_owners_rec IN BIS_TARGET_PUB.Target_Owners_Rec_Type
335 , x_measure_instance IN OUT NOCOPY BIS_MEASURE_PUB.Measure_Instance_type
336 )
337 IS
338
339 l_measure_instance BIS_MEASURE_PUB.Measure_Instance_type;
340
341 BEGIN
342
343 l_measure_instance := p_measure_instance;
344
345 l_measure_instance.Range1_Owner_ID := p_target_owners_rec.Range1_Owner_ID;
346 l_measure_instance.Range1_Owner_Short_Name
347 := p_target_owners_rec.Range1_Owner_Short_Name;
348 l_measure_instance.Range1_Owner_Name
349 := p_target_owners_rec.Range1_Owner_Name;
350
351 l_measure_instance.Range2_Owner_ID := p_target_owners_rec.Range2_Owner_ID;
352 l_measure_instance.Range2_Owner_Short_Name
353 := p_target_owners_rec.Range2_Owner_Short_Name;
354 l_measure_instance.Range2_Owner_Name
355 := p_target_owners_rec.Range2_Owner_Name;
356
357 l_measure_instance.Range3_Owner_ID := p_target_owners_rec.Range3_Owner_ID;
358 l_measure_instance.Range3_Owner_Short_Name
359 := p_target_owners_rec.Range3_Owner_Short_Name;
360 l_measure_instance.Range3_Owner_Name
361 := p_target_owners_rec.Range3_Owner_Name;
362
363 x_measure_instance := l_measure_instance;
364
365 EXCEPTION
366 when FND_API.G_EXC_ERROR then
367 RETURN;
368 when FND_API.G_EXC_UNEXPECTED_ERROR then
369 RETURN;
370 when others then
371 BIS_UTILITIES_PVT.Add_Error_Message
372 ( p_error_msg_id => SQLCODE
373 , p_error_description => SQLERRM
374 , p_error_proc_name => G_PKG_NAME||'.Sync_Target_Measure_Owners'
375 );
376 RETURN;
377
378 END Sync_Target_Measure_Owners;
379
380
381 END BIS_PMF_DATA_SOURCE_PVT;