[Home] [Help]
79: -- This API will check whether the indicator group is already attached to the
80: -- scorecard. If it is attached then the new group will be attached
81: ************************************************************************************/
82: PROCEDURE Assign_Ind_Group_To_Tab (
83: p_commit IN VARCHAR2 := FND_API.G_FALSE
84: , p_Indicator IN NUMBER
85: , p_New_Indicator_Group IN NUMBER
86: , p_Old_Indicator_Group IN NUMBER
87: , x_return_status OUT NOCOPY VARCHAR2
102: indicator = p_Indicator;
103:
104: BEGIN
105: FND_MSG_PUB.Initialize;
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107:
108: SAVEPOINT BscAssignIndGroupTab;
109:
110: OPEN c_Tab_Id;
125: IF l_Check_Association IS NOT NULL AND l_Check_Association = 0 THEN
126: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_New_Indicator_Group;
127: l_Bsc_Kpi_Group_Rec.Bsc_Tab_Id := l_Tab_Id;
128: BSC_KPI_GROUP_PVT.Update_Kpi_Group(
129: p_commit => FND_API.G_FALSE
130: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
131: ,x_return_status => x_return_status
132: ,x_msg_count => x_msg_count
133: ,x_msg_data => x_msg_data
131: ,x_return_status => x_return_status
132: ,x_msg_count => x_msg_count
133: ,x_msg_data => x_msg_data
134: );
135: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138: END IF;
139:
132: ,x_msg_count => x_msg_count
133: ,x_msg_data => x_msg_data
134: );
135: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138: END IF;
139:
140: SELECT
152: IF l_Indicator_Count = 0 THEN
153: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_Old_Indicator_Group;
154: l_Bsc_Kpi_Group_Rec.Bsc_Tab_Id := l_Tab_Id;
155: BSC_KPI_GROUP_PVT.Delete_Kpi_Group(
156: p_commit => FND_API.G_FALSE
157: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
158: ,x_return_status => x_return_status
159: ,x_msg_count => x_msg_count
160: ,x_msg_data => x_msg_data
158: ,x_return_status => x_return_status
159: ,x_msg_count => x_msg_count
160: ,x_msg_data => x_msg_data
161: );
162: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: END IF;
166:
159: ,x_msg_count => x_msg_count
160: ,x_msg_data => x_msg_data
161: );
162: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: END IF;
166:
167: END IF;
165: END IF;
166:
167: END IF;
168:
169: IF (p_commit = FND_API.G_TRUE) THEN
170: COMMIT;
171: END IF;
172: EXCEPTION
173: WHEN FND_API.G_EXC_ERROR THEN
169: IF (p_commit = FND_API.G_TRUE) THEN
170: COMMIT;
171: END IF;
172: EXCEPTION
173: WHEN FND_API.G_EXC_ERROR THEN
174: ROLLBACK TO BscAssignIndGroupTab;
175: IF (x_msg_data IS NULL) THEN
176: FND_MSG_PUB.Count_And_Get
177: ( p_encoded => FND_API.G_FALSE
173: WHEN FND_API.G_EXC_ERROR THEN
174: ROLLBACK TO BscAssignIndGroupTab;
175: IF (x_msg_data IS NULL) THEN
176: FND_MSG_PUB.Count_And_Get
177: ( p_encoded => FND_API.G_FALSE
178: , p_count => x_msg_count
179: , p_data => x_msg_data
180: );
181: END IF;
178: , p_count => x_msg_count
179: , p_data => x_msg_data
180: );
181: END IF;
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO BscAssignIndGroupTab;
185: IF (x_msg_data IS NULL) THEN
186: FND_MSG_PUB.Count_And_Get
179: , p_data => x_msg_data
180: );
181: END IF;
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO BscAssignIndGroupTab;
185: IF (x_msg_data IS NULL) THEN
186: FND_MSG_PUB.Count_And_Get
187: ( p_encoded => FND_API.G_FALSE
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO BscAssignIndGroupTab;
185: IF (x_msg_data IS NULL) THEN
186: FND_MSG_PUB.Count_And_Get
187: ( p_encoded => FND_API.G_FALSE
188: , p_count => x_msg_count
189: , p_data => x_msg_data
190: );
191: END IF;
188: , p_count => x_msg_count
189: , p_data => x_msg_data
190: );
191: END IF;
192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193: WHEN NO_DATA_FOUND THEN
194: ROLLBACK TO BscAssignIndGroupTab;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: IF (x_msg_data IS NOT NULL) THEN
191: END IF;
192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193: WHEN NO_DATA_FOUND THEN
194: ROLLBACK TO BscAssignIndGroupTab;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: IF (x_msg_data IS NOT NULL) THEN
197: x_msg_data := x_msg_data || ' ->BSC_COPY_INDICATOR_PUB.Assign_Ind_Group_To_Tab ';
198: ELSE
199: x_msg_data := SQLERRM || 'at BSC_COPY_INDICATOR_PUB.Assign_Ind_Group_To_Tab ';
199: x_msg_data := SQLERRM || 'at BSC_COPY_INDICATOR_PUB.Assign_Ind_Group_To_Tab ';
200: END IF;
201: WHEN OTHERS THEN
202: ROLLBACK TO BscAssignIndGroupTab;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: IF (x_msg_data IS NOT NULL) THEN
205: x_msg_data := x_msg_data || ' ->BSC_COPY_INDICATOR_PUB.Assign_Ind_Group_To_Tab ';
206: ELSE
207: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Assign_Ind_Group_To_Tab ';
217: -- the group type will be updated to 0
218: -- Add any cases if required
219: ************************************************************************************/
220: PROCEDURE Update_Kpi_Group_Properties (
221: p_commit IN VARCHAR2 := FND_API.G_FALSE
222: , p_New_Indicator_Group IN NUMBER
223: , x_return_status OUT NOCOPY VARCHAR2
224: , x_msg_count OUT NOCOPY NUMBER
225: , x_msg_data OUT NOCOPY VARCHAR2
228: l_Bsc_Kpi_Group_Rec BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec;
229: l_Kpi_Count NUMBER := 0;
230: BEGIN
231: FND_MSG_PUB.Initialize;
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233:
234: SAVEPOINT BscUpdateKpiGroupProperties;
235:
236: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_New_Indicator_Group;
235:
236: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_New_Indicator_Group;
237:
238: BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group(
239: p_commit => FND_API.G_FALSE
240: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
241: ,x_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
242: ,x_return_status => x_return_status
243: ,x_msg_count => x_msg_count
242: ,x_return_status => x_return_status
243: ,x_msg_count => x_msg_count
244: ,x_msg_data => x_msg_data
245: );
246: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
247: RAISE FND_API.G_EXC_ERROR;
248: END IF;
249:
250: SELECT COUNT(1)
243: ,x_msg_count => x_msg_count
244: ,x_msg_data => x_msg_data
245: );
246: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
247: RAISE FND_API.G_EXC_ERROR;
248: END IF;
249:
250: SELECT COUNT(1)
251: INTO
262: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Type := BSC_COPY_INDICATOR_PUB.INDICATOR_BESIDE_NAME;
263: END IF;
264:
265: BSC_KPI_GROUP_PUB.Update_Kpi_Group(
266: p_commit => FND_API.G_FALSE
267: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
268: ,x_return_status => x_return_status
269: ,x_msg_count => x_msg_count
270: ,x_msg_data => x_msg_data
268: ,x_return_status => x_return_status
269: ,x_msg_count => x_msg_count
270: ,x_msg_data => x_msg_data
271: );
272: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
276: IF (p_commit = FND_API.G_TRUE) THEN
269: ,x_msg_count => x_msg_count
270: ,x_msg_data => x_msg_data
271: );
272: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
276: IF (p_commit = FND_API.G_TRUE) THEN
277: COMMIT;
272: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
276: IF (p_commit = FND_API.G_TRUE) THEN
277: COMMIT;
278: END IF;
279: EXCEPTION
280: WHEN FND_API.G_EXC_ERROR THEN
276: IF (p_commit = FND_API.G_TRUE) THEN
277: COMMIT;
278: END IF;
279: EXCEPTION
280: WHEN FND_API.G_EXC_ERROR THEN
281: ROLLBACK TO BscUpdateKpiGroupProperties;
282: IF (x_msg_data IS NULL) THEN
283: FND_MSG_PUB.Count_And_Get
284: ( p_encoded => FND_API.G_FALSE
280: WHEN FND_API.G_EXC_ERROR THEN
281: ROLLBACK TO BscUpdateKpiGroupProperties;
282: IF (x_msg_data IS NULL) THEN
283: FND_MSG_PUB.Count_And_Get
284: ( p_encoded => FND_API.G_FALSE
285: , p_count => x_msg_count
286: , p_data => x_msg_data
287: );
288: END IF;
285: , p_count => x_msg_count
286: , p_data => x_msg_data
287: );
288: END IF;
289: x_return_status := FND_API.G_RET_STS_ERROR;
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: ROLLBACK TO BscUpdateKpiGroupProperties;
292: IF (x_msg_data IS NULL) THEN
293: FND_MSG_PUB.Count_And_Get
286: , p_data => x_msg_data
287: );
288: END IF;
289: x_return_status := FND_API.G_RET_STS_ERROR;
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: ROLLBACK TO BscUpdateKpiGroupProperties;
292: IF (x_msg_data IS NULL) THEN
293: FND_MSG_PUB.Count_And_Get
294: ( p_encoded => FND_API.G_FALSE
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: ROLLBACK TO BscUpdateKpiGroupProperties;
292: IF (x_msg_data IS NULL) THEN
293: FND_MSG_PUB.Count_And_Get
294: ( p_encoded => FND_API.G_FALSE
295: , p_count => x_msg_count
296: , p_data => x_msg_data
297: );
298: END IF;
295: , p_count => x_msg_count
296: , p_data => x_msg_data
297: );
298: END IF;
299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: WHEN NO_DATA_FOUND THEN
301: ROLLBACK TO BscUpdateKpiGroupProperties;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
298: END IF;
299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: WHEN NO_DATA_FOUND THEN
301: ROLLBACK TO BscUpdateKpiGroupProperties;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
304: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Update_Kpi_Group_Properties ';
305: ELSE
306: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Update_Kpi_Group_Properties ';
306: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Update_Kpi_Group_Properties ';
307: END IF;
308: WHEN OTHERS THEN
309: ROLLBACK TO BscUpdateKpiGroupProperties;
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: IF (x_msg_data IS NOT NULL) THEN
312: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Update_Kpi_Group_Properties ';
313: ELSE
314: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Update_Kpi_Group_Properties ';
325: -- is already 1
326: -- 2. Update the Ind_Group_Id to the new group
327: ************************************************************************************/
328: PROCEDURE Move_Indicator (
329: p_commit IN VARCHAR2 := FND_API.G_FALSE
330: , p_Indicator IN NUMBER
331: , p_New_Indicator_Group IN NUMBER
332: , p_Assign_Group_To_Tab IN VARCHAR2 := FND_API.G_TRUE
333: , x_return_status OUT NOCOPY VARCHAR2
328: PROCEDURE Move_Indicator (
329: p_commit IN VARCHAR2 := FND_API.G_FALSE
330: , p_Indicator IN NUMBER
331: , p_New_Indicator_Group IN NUMBER
332: , p_Assign_Group_To_Tab IN VARCHAR2 := FND_API.G_TRUE
333: , x_return_status OUT NOCOPY VARCHAR2
334: , x_msg_count OUT NOCOPY NUMBER
335: , x_msg_data OUT NOCOPY VARCHAR2
336: ) IS
338: l_Old_Indicator_Group bsc_tab_ind_groups_b.ind_group_id%TYPE;
339: BEGIN
340:
341: FND_MSG_PUB.Initialize;
342: x_return_status := FND_API.G_RET_STS_SUCCESS;
343:
344: SAVEPOINT BscMovIndicatorSavePnt;
345:
346: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
344: SAVEPOINT BscMovIndicatorSavePnt;
345:
346: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
347: BSC_KPI_PVT.Retrieve_Kpi(
348: p_commit => FND_API.G_FALSE
349: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
350: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
351: ,x_return_status => x_return_status
352: ,x_msg_count => x_msg_count
351: ,x_return_status => x_return_status
352: ,x_msg_count => x_msg_count
353: ,x_msg_data => x_msg_data
354: );
355: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
356: RAISE FND_API.G_EXC_ERROR;
357: END IF;
358:
359: l_Old_Indicator_Group := l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id;
352: ,x_msg_count => x_msg_count
353: ,x_msg_data => x_msg_data
354: );
355: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
356: RAISE FND_API.G_EXC_ERROR;
357: END IF;
358:
359: l_Old_Indicator_Group := l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id;
360: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_New_Indicator_Group;
358:
359: l_Old_Indicator_Group := l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id;
360: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_New_Indicator_Group;
361: BSC_KPI_PVT.Update_Kpi(
362: p_commit => FND_API.G_FALSE
363: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
364: ,x_return_status => x_return_status
365: ,x_msg_count => x_msg_count
366: ,x_msg_data => x_msg_data
364: ,x_return_status => x_return_status
365: ,x_msg_count => x_msg_count
366: ,x_msg_data => x_msg_data
367: );
368: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: IF p_Assign_Group_To_Tab = FND_API.G_TRUE THEN
365: ,x_msg_count => x_msg_count
366: ,x_msg_data => x_msg_data
367: );
368: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: IF p_Assign_Group_To_Tab = FND_API.G_TRUE THEN
373: Assign_Ind_Group_To_Tab (
368: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: IF p_Assign_Group_To_Tab = FND_API.G_TRUE THEN
373: Assign_Ind_Group_To_Tab (
374: p_commit => FND_API.G_FALSE
375: ,p_Indicator => p_Indicator
376: ,p_New_Indicator_Group => p_New_Indicator_Group
370: END IF;
371:
372: IF p_Assign_Group_To_Tab = FND_API.G_TRUE THEN
373: Assign_Ind_Group_To_Tab (
374: p_commit => FND_API.G_FALSE
375: ,p_Indicator => p_Indicator
376: ,p_New_Indicator_Group => p_New_Indicator_Group
377: ,p_Old_Indicator_Group => l_Old_Indicator_Group
378: ,x_return_status => x_return_status
378: ,x_return_status => x_return_status
379: ,x_msg_count => x_msg_count
380: ,x_msg_data => x_msg_data
381: );
382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: END IF;
386:
379: ,x_msg_count => x_msg_count
380: ,x_msg_data => x_msg_data
381: );
382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: END IF;
386:
387: IF (p_commit = FND_API.G_TRUE) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: END IF;
386:
387: IF (p_commit = FND_API.G_TRUE) THEN
388: COMMIT;
389: END IF;
390:
391: EXCEPTION
388: COMMIT;
389: END IF;
390:
391: EXCEPTION
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO BscMovIndicatorSavePnt;
394: IF (x_msg_data IS NULL) THEN
395: FND_MSG_PUB.Count_And_Get
396: ( p_encoded => FND_API.G_FALSE
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO BscMovIndicatorSavePnt;
394: IF (x_msg_data IS NULL) THEN
395: FND_MSG_PUB.Count_And_Get
396: ( p_encoded => FND_API.G_FALSE
397: , p_count => x_msg_count
398: , p_data => x_msg_data
399: );
400: END IF;
397: , p_count => x_msg_count
398: , p_data => x_msg_data
399: );
400: END IF;
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO BscMovIndicatorSavePnt;
404: IF (x_msg_data IS NULL) THEN
405: FND_MSG_PUB.Count_And_Get
398: , p_data => x_msg_data
399: );
400: END IF;
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO BscMovIndicatorSavePnt;
404: IF (x_msg_data IS NULL) THEN
405: FND_MSG_PUB.Count_And_Get
406: ( p_encoded => FND_API.G_FALSE
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO BscMovIndicatorSavePnt;
404: IF (x_msg_data IS NULL) THEN
405: FND_MSG_PUB.Count_And_Get
406: ( p_encoded => FND_API.G_FALSE
407: , p_count => x_msg_count
408: , p_data => x_msg_data
409: );
410: END IF;
407: , p_count => x_msg_count
408: , p_data => x_msg_data
409: );
410: END IF;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: WHEN NO_DATA_FOUND THEN
413: ROLLBACK TO BscMovIndicatorSavePnt;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF (x_msg_data IS NOT NULL) THEN
410: END IF;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: WHEN NO_DATA_FOUND THEN
413: ROLLBACK TO BscMovIndicatorSavePnt;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF (x_msg_data IS NOT NULL) THEN
416: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Move_Indicator ';
417: ELSE
418: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator ';
418: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator ';
419: END IF;
420: WHEN OTHERS THEN
421: ROLLBACK TO BscMovIndicatorSavePnt;
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: IF (x_msg_data IS NOT NULL) THEN
424: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Move_Indicator ';
425: ELSE
426: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator ';
433: -- Function :
434: -- This API is used to reposition the indicators in a group
435: ************************************************************************************/
436: PROCEDURE Reposition_Indicator (
437: p_commit IN VARCHAR2 := FND_API.G_FALSE
438: , p_Indicator IN NUMBER
439: , p_New_Indicator_Group IN NUMBER
440: , p_New_Position IN NUMBER
441: , x_return_status OUT NOCOPY VARCHAR2
470:
471: BEGIN
472:
473: FND_MSG_PUB.Initialize;
474: x_return_status := FND_API.G_RET_STS_SUCCESS;
475:
476: SAVEPOINT BscRepositionIndicatorSavePnt;
477:
478: IF l_Display_Order = p_New_Position THEN
490: END IF;
491: END IF;
492: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cInd.Indicator;
493: BSC_KPI_PVT.Retrieve_Kpi(
494: p_commit => FND_API.G_FALSE
495: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
496: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
497: ,x_return_status => x_return_status
498: ,x_msg_count => x_msg_count
497: ,x_return_status => x_return_status
498: ,x_msg_count => x_msg_count
499: ,x_msg_data => x_msg_data
500: );
501: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504:
505: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
498: ,x_msg_count => x_msg_count
499: ,x_msg_data => x_msg_data
500: );
501: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504:
505: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
506: BSC_KPI_PVT.Update_Kpi(
503: END IF;
504:
505: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
506: BSC_KPI_PVT.Update_Kpi(
507: p_commit => FND_API.G_FALSE
508: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
509: ,x_return_status => x_return_status
510: ,x_msg_count => x_msg_count
511: ,x_msg_data => x_msg_data
509: ,x_return_status => x_return_status
510: ,x_msg_count => x_msg_count
511: ,x_msg_data => x_msg_data
512: );
513: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
514: RAISE FND_API.G_EXC_ERROR;
515: END IF;
516:
517: FOR cd IN c_shared_obj(cInd.indicator) LOOP
510: ,x_msg_count => x_msg_count
511: ,x_msg_data => x_msg_data
512: );
513: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
514: RAISE FND_API.G_EXC_ERROR;
515: END IF;
516:
517: FOR cd IN c_shared_obj(cInd.indicator) LOOP
518: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
516:
517: FOR cd IN c_shared_obj(cInd.indicator) LOOP
518: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
519: BSC_KPI_PVT.Retrieve_Kpi(
520: p_commit => FND_API.G_FALSE
521: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
522: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
523: ,x_return_status => x_return_status
524: ,x_msg_count => x_msg_count
523: ,x_return_status => x_return_status
524: ,x_msg_count => x_msg_count
525: ,x_msg_data => x_msg_data
526: );
527: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
524: ,x_msg_count => x_msg_count
525: ,x_msg_data => x_msg_data
526: );
527: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
532: BSC_KPI_PVT.Update_Kpi(
529: END IF;
530:
531: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Display_Order := l_Current_Disp_Order;
532: BSC_KPI_PVT.Update_Kpi(
533: p_commit => FND_API.G_FALSE
534: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
535: ,x_return_status => x_return_status
536: ,x_msg_count => x_msg_count
537: ,x_msg_data => x_msg_data
535: ,x_return_status => x_return_status
536: ,x_msg_count => x_msg_count
537: ,x_msg_data => x_msg_data
538: );
539: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: END LOOP;
543: END LOOP;
536: ,x_msg_count => x_msg_count
537: ,x_msg_data => x_msg_data
538: );
539: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: END LOOP;
543: END LOOP;
544:
541: END IF;
542: END LOOP;
543: END LOOP;
544:
545: IF (p_commit = FND_API.G_TRUE) THEN
546: COMMIT;
547: END IF;
548:
549: EXCEPTION
546: COMMIT;
547: END IF;
548:
549: EXCEPTION
550: WHEN FND_API.G_EXC_ERROR THEN
551: ROLLBACK TO BscRepositionIndicatorSavePnt;
552: IF (x_msg_data IS NULL) THEN
553: FND_MSG_PUB.Count_And_Get
554: ( p_encoded => FND_API.G_FALSE
550: WHEN FND_API.G_EXC_ERROR THEN
551: ROLLBACK TO BscRepositionIndicatorSavePnt;
552: IF (x_msg_data IS NULL) THEN
553: FND_MSG_PUB.Count_And_Get
554: ( p_encoded => FND_API.G_FALSE
555: , p_count => x_msg_count
556: , p_data => x_msg_data
557: );
558: END IF;
555: , p_count => x_msg_count
556: , p_data => x_msg_data
557: );
558: END IF;
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: ROLLBACK TO BscRepositionIndicatorSavePnt;
562: IF (x_msg_data IS NULL) THEN
563: FND_MSG_PUB.Count_And_Get
556: , p_data => x_msg_data
557: );
558: END IF;
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: ROLLBACK TO BscRepositionIndicatorSavePnt;
562: IF (x_msg_data IS NULL) THEN
563: FND_MSG_PUB.Count_And_Get
564: ( p_encoded => FND_API.G_FALSE
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: ROLLBACK TO BscRepositionIndicatorSavePnt;
562: IF (x_msg_data IS NULL) THEN
563: FND_MSG_PUB.Count_And_Get
564: ( p_encoded => FND_API.G_FALSE
565: , p_count => x_msg_count
566: , p_data => x_msg_data
567: );
568: END IF;
565: , p_count => x_msg_count
566: , p_data => x_msg_data
567: );
568: END IF;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: WHEN NO_DATA_FOUND THEN
571: ROLLBACK TO BscRepositionIndicatorSavePnt;
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: IF (x_msg_data IS NOT NULL) THEN
568: END IF;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: WHEN NO_DATA_FOUND THEN
571: ROLLBACK TO BscRepositionIndicatorSavePnt;
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: IF (x_msg_data IS NOT NULL) THEN
574: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Reposition_Indicator ';
575: ELSE
576: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Reposition_Indicator ';
576: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Reposition_Indicator ';
577: END IF;
578: WHEN OTHERS THEN
579: ROLLBACK TO BscRepositionIndicatorSavePnt;
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
581: IF (x_msg_data IS NOT NULL) THEN
582: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Reposition_Indicator ';
583: ELSE
584: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Reposition_Indicator ';
596: -- is already 1
597: -- 2. Update the Ind_Group_Id to the new group
598: ************************************************************************************/
599: PROCEDURE Move_Indicator_UI_Wrap (
600: p_commit IN VARCHAR2 := FND_API.G_FALSE
601: , p_Indicator IN NUMBER
602: , p_New_Indicator_Group IN NUMBER
603: , p_New_Position IN NUMBER
604: , p_Time_Stamp IN VARCHAR2 := NULL
621:
622: BEGIN
623:
624: FND_MSG_PUB.Initialize;
625: x_return_status := FND_API.G_RET_STS_SUCCESS;
626:
627: SAVEPOINT BscMovIndicatorUIWrap;
628:
629: BSC_BIS_LOCKS_PUB.Lock_Kpi
628:
629: BSC_BIS_LOCKS_PUB.Lock_Kpi
630: ( p_Kpi_Id => p_Indicator
631: , p_time_stamp => p_time_stamp
632: , p_Full_Lock_Flag => FND_API.G_FALSE
633: , x_return_status => x_return_status
634: , x_msg_count => x_msg_count
635: , x_msg_data => x_msg_data
636: );
633: , x_return_status => x_return_status
634: , x_msg_count => x_msg_count
635: , x_msg_data => x_msg_data
636: );
637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640:
641: l_old_group_id := Get_Ind_Group_Id(p_Indicator);
634: , x_msg_count => x_msg_count
635: , x_msg_data => x_msg_data
636: );
637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640:
641: l_old_group_id := Get_Ind_Group_Id(p_Indicator);
642: IF l_old_group_id <> p_New_Indicator_Group THEN
641: l_old_group_id := Get_Ind_Group_Id(p_Indicator);
642: IF l_old_group_id <> p_New_Indicator_Group THEN
643: -- A warning should be displayed in the UI
644: Update_Kpi_Group_Properties (
645: p_commit => FND_API.G_FALSE
646: ,p_New_Indicator_Group => p_New_Indicator_Group
647: ,x_return_status => x_return_status
648: ,x_msg_count => x_msg_count
649: ,x_msg_data => x_msg_data
647: ,x_return_status => x_return_status
648: ,x_msg_count => x_msg_count
649: ,x_msg_data => x_msg_data
650: );
651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: Move_Indicator (
648: ,x_msg_count => x_msg_count
649: ,x_msg_data => x_msg_data
650: );
651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: Move_Indicator (
656: p_commit => FND_API.G_FALSE
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: Move_Indicator (
656: p_commit => FND_API.G_FALSE
657: ,p_Indicator => p_Indicator
658: ,p_New_Indicator_Group => p_New_Indicator_Group
659: ,x_return_status => x_return_status
660: ,x_msg_count => x_msg_count
659: ,x_return_status => x_return_status
660: ,x_msg_count => x_msg_count
661: ,x_msg_data => x_msg_data
662: );
663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: END IF;
666:
667: FOR cd in c_shared_obj LOOP
660: ,x_msg_count => x_msg_count
661: ,x_msg_data => x_msg_data
662: );
663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: END IF;
666:
667: FOR cd in c_shared_obj LOOP
668: Move_Indicator (
665: END IF;
666:
667: FOR cd in c_shared_obj LOOP
668: Move_Indicator (
669: p_commit => FND_API.G_FALSE
670: ,p_Indicator => cd.indicator
671: ,p_New_Indicator_Group => p_New_Indicator_Group
672: ,x_return_status => x_return_status
673: ,x_msg_count => x_msg_count
672: ,x_return_status => x_return_status
673: ,x_msg_count => x_msg_count
674: ,x_msg_data => x_msg_data
675: );
676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
679: END LOOP;
680: END IF;
673: ,x_msg_count => x_msg_count
674: ,x_msg_data => x_msg_data
675: );
676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
679: END LOOP;
680: END IF;
681:
679: END LOOP;
680: END IF;
681:
682: Reposition_Indicator (
683: p_commit => FND_API.G_FALSE
684: ,p_Indicator => p_Indicator
685: ,p_New_Indicator_Group => p_New_Indicator_Group
686: ,p_New_Position => p_New_Position
687: ,x_return_status => x_return_status
687: ,x_return_status => x_return_status
688: ,x_msg_count => x_msg_count
689: ,x_msg_data => x_msg_data
690: );
691: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
695: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
688: ,x_msg_count => x_msg_count
689: ,x_msg_data => x_msg_data
690: );
691: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
695: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
696: BSC_KPI_PUB.Update_Kpi_Time_Stamp (
693: END IF;
694:
695: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
696: BSC_KPI_PUB.Update_Kpi_Time_Stamp (
697: p_commit => FND_API.G_FALSE
698: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
699: ,x_return_status => x_return_status
700: ,x_msg_count => x_msg_count
701: ,x_msg_data => x_msg_data
702: );
703: FOR cd in c_shared_obj LOOP
704: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
705: BSC_KPI_PUB.Update_Kpi_Time_Stamp (
706: p_commit => FND_API.G_FALSE
707: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
708: ,x_return_status => x_return_status
709: ,x_msg_count => x_msg_count
710: ,x_msg_data => x_msg_data
710: ,x_msg_data => x_msg_data
711: );
712: END LOOP;
713:
714: IF (p_commit = FND_API.G_TRUE) THEN
715: COMMIT;
716: END IF;
717:
718: EXCEPTION
715: COMMIT;
716: END IF;
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO BscMovIndicatorUIWrap;
721: IF (x_msg_data IS NULL) THEN
722: FND_MSG_PUB.Count_And_Get
723: ( p_encoded => FND_API.G_FALSE
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO BscMovIndicatorUIWrap;
721: IF (x_msg_data IS NULL) THEN
722: FND_MSG_PUB.Count_And_Get
723: ( p_encoded => FND_API.G_FALSE
724: , p_count => x_msg_count
725: , p_data => x_msg_data
726: );
727: END IF;
724: , p_count => x_msg_count
725: , p_data => x_msg_data
726: );
727: END IF;
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: ROLLBACK TO BscMovIndicatorUIWrap;
731: IF (x_msg_data IS NULL) THEN
732: FND_MSG_PUB.Count_And_Get
725: , p_data => x_msg_data
726: );
727: END IF;
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: ROLLBACK TO BscMovIndicatorUIWrap;
731: IF (x_msg_data IS NULL) THEN
732: FND_MSG_PUB.Count_And_Get
733: ( p_encoded => FND_API.G_FALSE
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: ROLLBACK TO BscMovIndicatorUIWrap;
731: IF (x_msg_data IS NULL) THEN
732: FND_MSG_PUB.Count_And_Get
733: ( p_encoded => FND_API.G_FALSE
734: , p_count => x_msg_count
735: , p_data => x_msg_data
736: );
737: END IF;
734: , p_count => x_msg_count
735: , p_data => x_msg_data
736: );
737: END IF;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739: WHEN NO_DATA_FOUND THEN
740: ROLLBACK TO BscMovIndicatorUIWrap;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: IF (x_msg_data IS NOT NULL) THEN
737: END IF;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739: WHEN NO_DATA_FOUND THEN
740: ROLLBACK TO BscMovIndicatorUIWrap;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: IF (x_msg_data IS NOT NULL) THEN
743: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Move_Indicator_UI_Wrap ';
744: ELSE
745: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator_UI_Wrap ';
745: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator_UI_Wrap ';
746: END IF;
747: WHEN OTHERS THEN
748: ROLLBACK TO BscMovIndicatorUIWrap;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: IF (x_msg_data IS NOT NULL) THEN
751: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Move_Indicator_UI_Wrap ';
752: ELSE
753: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Move_Indicator_UI_Wrap ';
781: l_config_type bsc_kpis_b.config_type%TYPE;
782: BEGIN
783:
784: FND_MSG_PUB.Initialize;
785: x_return_status := FND_API.G_RET_STS_SUCCESS;
786:
787: SAVEPOINT BscValIndCopyUIWrap;
788:
789: IF BSC_DESIGNER_PVT.g_DbLink_Name IS NOT NULL THEN
795: CLOSE c_cursor;
796: IF l_EDW_Flag <> 0 THEN
797: FND_MESSAGE.SET_NAME('BSC','BSC_CAN_NOT_COPY_EDW_KPI');
798: FND_MSG_PUB.ADD;
799: RAISE FND_API.G_EXC_ERROR;
800: END IF;
801:
802: l_sql := BSC_DESIGNER_PVT.Format_DbLink_String('SELECT indicator_type,config_type FROM bsc_kpis_b');
803: l_sql := l_sql || ' WHERE indicator = :1';
814: CLOSE c_cursor;
815: IF l_PMF_Meas_Cnt > 0 THEN
816: FND_MESSAGE.SET_NAME('BSC','BSC_CAN_NOT_COPY_PMF_KPI');
817: FND_MSG_PUB.ADD;
818: RAISE FND_API.G_EXC_ERROR;
819: END IF;
820: END IF;
821:
822: END IF;
821:
822: END IF;
823:
824: EXCEPTION
825: WHEN FND_API.G_EXC_ERROR THEN
826: ROLLBACK TO BscValIndCopyUIWrap;
827: IF (x_msg_data IS NULL) THEN
828: FND_MSG_PUB.Count_And_Get
829: ( p_encoded => FND_API.G_FALSE
825: WHEN FND_API.G_EXC_ERROR THEN
826: ROLLBACK TO BscValIndCopyUIWrap;
827: IF (x_msg_data IS NULL) THEN
828: FND_MSG_PUB.Count_And_Get
829: ( p_encoded => FND_API.G_FALSE
830: , p_count => x_msg_count
831: , p_data => x_msg_data
832: );
833: END IF;
830: , p_count => x_msg_count
831: , p_data => x_msg_data
832: );
833: END IF;
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO BscValIndCopyUIWrap;
837: IF (x_msg_data IS NULL) THEN
838: FND_MSG_PUB.Count_And_Get
831: , p_data => x_msg_data
832: );
833: END IF;
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO BscValIndCopyUIWrap;
837: IF (x_msg_data IS NULL) THEN
838: FND_MSG_PUB.Count_And_Get
839: ( p_encoded => FND_API.G_FALSE
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO BscValIndCopyUIWrap;
837: IF (x_msg_data IS NULL) THEN
838: FND_MSG_PUB.Count_And_Get
839: ( p_encoded => FND_API.G_FALSE
840: , p_count => x_msg_count
841: , p_data => x_msg_data
842: );
843: END IF;
840: , p_count => x_msg_count
841: , p_data => x_msg_data
842: );
843: END IF;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: WHEN NO_DATA_FOUND THEN
846: ROLLBACK TO BscValIndCopyUIWrap;
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF (x_msg_data IS NOT NULL) THEN
843: END IF;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: WHEN NO_DATA_FOUND THEN
846: ROLLBACK TO BscValIndCopyUIWrap;
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF (x_msg_data IS NOT NULL) THEN
849: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Validate_Indicator_Copy ';
850: ELSE
851: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Validate_Indicator_Copy ';
851: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Validate_Indicator_Copy ';
852: END IF;
853: WHEN OTHERS THEN
854: ROLLBACK TO BscValIndCopyUIWrap;
855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
856: IF (x_msg_data IS NOT NULL) THEN
857: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Validate_Indicator_Copy ';
858: ELSE
859: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Validate_Indicator_Copy ';
882: l_sql VARCHAR2(32000);
883: BEGIN
884:
885: FND_MSG_PUB.Initialize;
886: x_return_status := FND_API.G_RET_STS_SUCCESS;
887:
888: FOR i IN 1..p_DataSet_Map.COUNT LOOP
889: BSC_BIS_LOCKS_PUB.Lock_Dataset (
890: p_dataset_id => p_DataSet_Map(i)
892: ,x_return_status => x_return_status
893: ,x_msg_count => x_msg_count
894: ,x_msg_data => x_msg_data
895: );
896: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: END LOOP;
900:
893: ,x_msg_count => x_msg_count
894: ,x_msg_data => x_msg_data
895: );
896: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: END LOOP;
900:
901: FOR i IN 1..p_DimLevel_Map.COUNT LOOP
905: ,x_return_status => x_return_status
906: ,x_msg_count => x_msg_count
907: ,x_msg_data => x_msg_data
908: );
909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912: END LOOP;
913:
906: ,x_msg_count => x_msg_count
907: ,x_msg_data => x_msg_data
908: );
909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912: END LOOP;
913:
914: FOR i IN 1..p_DimGroup_Map.COUNT LOOP
918: ,x_return_status => x_return_status
919: ,x_msg_count => x_msg_count
920: ,x_msg_data => x_msg_data
921: );
922: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
924: END IF;
925: END LOOP;
926:
919: ,x_msg_count => x_msg_count
920: ,x_msg_data => x_msg_data
921: );
922: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
924: END IF;
925: END LOOP;
926:
927: FOR i IN 1..p_Periodicity_Map.COUNT LOOP
931: ,x_return_status => x_return_status
932: ,x_msg_count => x_msg_count
933: ,x_msg_data => x_msg_data
934: );
935: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
938: END LOOP;
939:
932: ,x_msg_count => x_msg_count
933: ,x_msg_data => x_msg_data
934: );
935: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
938: END LOOP;
939:
940: BSC_BIS_LOCKS_PUB.Lock_Calendar (
943: ,x_return_status => x_return_status
944: ,x_msg_count => x_msg_count
945: ,x_msg_data => x_msg_data
946: );
947: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
949: END IF;
950:
951: EXCEPTION
944: ,x_msg_count => x_msg_count
945: ,x_msg_data => x_msg_data
946: );
947: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
949: END IF;
950:
951: EXCEPTION
952: WHEN OTHERS THEN
949: END IF;
950:
951: EXCEPTION
952: WHEN OTHERS THEN
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: IF (x_msg_data IS NOT NULL) THEN
955: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.Lock_Target_Entities ';
956: ELSE
957: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.Lock_Target_Entities ';
962: Function : Create_Kpi_Access_For_Resp
963: Description : This function will assign a objectitve to a given responsibility
964: ***********************************************************************************/
965: PROCEDURE Create_Kpi_Access_Wrap(
966: p_commit IN VARCHAR2 := FND_API.G_FALSE
967: ,p_Comma_Sep_Resposibility_Key IN VARCHAR2
968: ,p_Indicator_Id IN NUMBER
969: ,x_return_status OUT NOCOPY VARCHAR2
970: ,x_msg_count OUT NOCOPY NUMBER
974:
975: BEGIN
976:
977: FND_MSG_PUB.Initialize;
978: x_return_status := FND_API.G_RET_STS_SUCCESS;
979:
980: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator_Id;
981: l_Bsc_Kpi_Entity_Rec.Bsc_Responsibility_Id := FND_GLOBAL.RESP_ID;
982: l_Bsc_Kpi_Entity_Rec.Created_By := FND_GLOBAL.USER_ID;
992: , x_return_status => x_return_status
993: , x_msg_count => x_msg_count
994: , x_msg_data => x_msg_data
995: );
996: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999:
1000: EXCEPTION
993: , x_msg_count => x_msg_count
994: , x_msg_data => x_msg_data
995: );
996: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999:
1000: EXCEPTION
1001: WHEN FND_API.G_EXC_ERROR THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999:
1000: EXCEPTION
1001: WHEN FND_API.G_EXC_ERROR THEN
1002: IF (x_msg_data IS NULL) THEN
1003: FND_MSG_PUB.Count_And_Get
1004: ( p_encoded => FND_API.G_FALSE
1005: , p_count => x_msg_count
1000: EXCEPTION
1001: WHEN FND_API.G_EXC_ERROR THEN
1002: IF (x_msg_data IS NULL) THEN
1003: FND_MSG_PUB.Count_And_Get
1004: ( p_encoded => FND_API.G_FALSE
1005: , p_count => x_msg_count
1006: , p_data => x_msg_data
1007: );
1008: END IF;
1005: , p_count => x_msg_count
1006: , p_data => x_msg_data
1007: );
1008: END IF;
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => FND_API.G_FALSE
1006: , p_data => x_msg_data
1007: );
1008: END IF;
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => FND_API.G_FALSE
1014: , p_count => x_msg_count
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => FND_API.G_FALSE
1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: END IF;
1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: WHEN NO_DATA_FOUND THEN
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: IF (x_msg_data IS NOT NULL) THEN
1022: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1016: );
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: WHEN NO_DATA_FOUND THEN
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: IF (x_msg_data IS NOT NULL) THEN
1022: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1023: ELSE
1024: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1023: ELSE
1024: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1025: END IF;
1026: WHEN OTHERS THEN
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028: IF (x_msg_data IS NOT NULL) THEN
1029: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1030: ELSE
1031: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Create_Kpi_Access_Wrap ';
1040: -- Maps the datasets to the analysis measures of the target indicator
1041: ************************************************************************************/
1042:
1043: PROCEDURE Copy_Analysis_Measures(
1044: p_commit IN VARCHAR2 := FND_API.G_FALSE
1045: , p_Source_Indicator IN NUMBER
1046: , p_Target_Indicator IN NUMBER
1047: , p_Old_DataSet_Map IN FND_TABLE_OF_NUMBER
1048: , p_New_DataSet_Map IN FND_TABLE_OF_NUMBER
1062:
1063: BEGIN
1064:
1065: FND_MSG_PUB.Initialize;
1066: x_return_status := FND_API.G_RET_STS_SUCCESS;
1067: SAVEPOINT BscCopyIndicAnaMeasPub;
1068:
1069: l_sql := 'SELECT analysis_option0 ,analysis_option1 ,analysis_option2,series_id';
1070: l_sql := l_sql || BSC_DESIGNER_PVT.Format_DbLink_String(',dataset_id FROM bsc_kpi_analysis_measures_b');
1101: END LOOP;
1102: END LOOP;
1103: CLOSE c_Ana_Meas;
1104:
1105: IF (p_commit = FND_API.G_TRUE) THEN
1106: COMMIT;
1107: END IF;
1108:
1109: EXCEPTION
1106: COMMIT;
1107: END IF;
1108:
1109: EXCEPTION
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: ROLLBACK TO BscCopyIndicAnaMeasPub;
1112: IF (x_msg_data IS NULL) THEN
1113: FND_MSG_PUB.Count_And_Get
1114: ( p_encoded => FND_API.G_FALSE
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: ROLLBACK TO BscCopyIndicAnaMeasPub;
1112: IF (x_msg_data IS NULL) THEN
1113: FND_MSG_PUB.Count_And_Get
1114: ( p_encoded => FND_API.G_FALSE
1115: , p_count => x_msg_count
1116: , p_data => x_msg_data
1117: );
1118: END IF;
1115: , p_count => x_msg_count
1116: , p_data => x_msg_data
1117: );
1118: END IF;
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1121: ROLLBACK TO BscCopyIndicAnaMeasPub;
1122: IF (x_msg_data IS NULL) THEN
1123: FND_MSG_PUB.Count_And_Get
1116: , p_data => x_msg_data
1117: );
1118: END IF;
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1121: ROLLBACK TO BscCopyIndicAnaMeasPub;
1122: IF (x_msg_data IS NULL) THEN
1123: FND_MSG_PUB.Count_And_Get
1124: ( p_encoded => FND_API.G_FALSE
1120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1121: ROLLBACK TO BscCopyIndicAnaMeasPub;
1122: IF (x_msg_data IS NULL) THEN
1123: FND_MSG_PUB.Count_And_Get
1124: ( p_encoded => FND_API.G_FALSE
1125: , p_count => x_msg_count
1126: , p_data => x_msg_data
1127: );
1128: END IF;
1125: , p_count => x_msg_count
1126: , p_data => x_msg_data
1127: );
1128: END IF;
1129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130: WHEN NO_DATA_FOUND THEN
1131: ROLLBACK TO BscCopyIndicAnaMeasPub;
1132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1133: IF (x_msg_data IS NOT NULL) THEN
1128: END IF;
1129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130: WHEN NO_DATA_FOUND THEN
1131: ROLLBACK TO BscCopyIndicAnaMeasPub;
1132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1133: IF (x_msg_data IS NOT NULL) THEN
1134: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Analysis_Measures ';
1135: ELSE
1136: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Analysis_Measures ';
1136: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Analysis_Measures ';
1137: END IF;
1138: WHEN OTHERS THEN
1139: ROLLBACK TO BscCopyIndicAnaMeasPub;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1141: IF (x_msg_data IS NOT NULL) THEN
1142: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Analysis_Measures ';
1143: ELSE
1144: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Copy_Analysis_Measures ';
1153: -- It will check the current period for the new periodicity and
1154: ************************************************************************************/
1155:
1156: PROCEDURE Update_Annual_Current_Period(
1157: p_commit IN VARCHAR2 := FND_API.G_FALSE
1158: , p_Target_Indicator IN NUMBER
1159: , x_return_status OUT NOCOPY VARCHAR2
1160: , x_msg_count OUT NOCOPY NUMBER
1161: , x_msg_data OUT NOCOPY VARCHAR2
1177:
1178: BEGIN
1179:
1180: FND_MSG_PUB.Initialize;
1181: x_return_status := FND_API.G_RET_STS_SUCCESS;
1182: SAVEPOINT BscUpdAnnCurPeriod;
1183:
1184: FOR cd IN c_Periodicity LOOP
1185: UPDATE
1190: indicator = p_Target_Indicator AND
1191: periodicity_id = cd.periodicity_id ;
1192: END LOOP;
1193:
1194: IF (p_commit = FND_API.G_TRUE) THEN
1195: COMMIT;
1196: END IF;
1197:
1198: EXCEPTION
1195: COMMIT;
1196: END IF;
1197:
1198: EXCEPTION
1199: WHEN FND_API.G_EXC_ERROR THEN
1200: ROLLBACK TO BscUpdAnnCurPeriod;
1201: IF (x_msg_data IS NULL) THEN
1202: FND_MSG_PUB.Count_And_Get
1203: ( p_encoded => FND_API.G_FALSE
1199: WHEN FND_API.G_EXC_ERROR THEN
1200: ROLLBACK TO BscUpdAnnCurPeriod;
1201: IF (x_msg_data IS NULL) THEN
1202: FND_MSG_PUB.Count_And_Get
1203: ( p_encoded => FND_API.G_FALSE
1204: , p_count => x_msg_count
1205: , p_data => x_msg_data
1206: );
1207: END IF;
1204: , p_count => x_msg_count
1205: , p_data => x_msg_data
1206: );
1207: END IF;
1208: x_return_status := FND_API.G_RET_STS_ERROR;
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: ROLLBACK TO BscUpdAnnCurPeriod;
1211: IF (x_msg_data IS NULL) THEN
1212: FND_MSG_PUB.Count_And_Get
1205: , p_data => x_msg_data
1206: );
1207: END IF;
1208: x_return_status := FND_API.G_RET_STS_ERROR;
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: ROLLBACK TO BscUpdAnnCurPeriod;
1211: IF (x_msg_data IS NULL) THEN
1212: FND_MSG_PUB.Count_And_Get
1213: ( p_encoded => FND_API.G_FALSE
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: ROLLBACK TO BscUpdAnnCurPeriod;
1211: IF (x_msg_data IS NULL) THEN
1212: FND_MSG_PUB.Count_And_Get
1213: ( p_encoded => FND_API.G_FALSE
1214: , p_count => x_msg_count
1215: , p_data => x_msg_data
1216: );
1217: END IF;
1214: , p_count => x_msg_count
1215: , p_data => x_msg_data
1216: );
1217: END IF;
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: WHEN NO_DATA_FOUND THEN
1220: ROLLBACK TO BscUpdAnnCurPeriod;
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: IF (x_msg_data IS NOT NULL) THEN
1217: END IF;
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: WHEN NO_DATA_FOUND THEN
1220: ROLLBACK TO BscUpdAnnCurPeriod;
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: IF (x_msg_data IS NOT NULL) THEN
1223: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Update_Annual_Current_Period ';
1224: ELSE
1225: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Update_Annual_Current_Period ';
1225: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Update_Annual_Current_Period ';
1226: END IF;
1227: WHEN OTHERS THEN
1228: ROLLBACK TO BscUpdAnnCurPeriod;
1229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1230: IF (x_msg_data IS NOT NULL) THEN
1231: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Update_Annual_Current_Period ';
1232: ELSE
1233: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Update_Annual_Current_Period ';
1242: -- system
1243: ************************************************************************************/
1244:
1245: PROCEDURE Copy_Periodicities(
1246: p_commit IN VARCHAR2 := FND_API.G_FALSE
1247: , p_Source_Indicator IN NUMBER
1248: , p_Target_Indicator IN NUMBER
1249: , p_Target_Calendar IN NUMBER
1250: , p_Old_Periodicities IN FND_TABLE_OF_NUMBER
1267: l_Found BOOLEAN := FALSE;
1268: BEGIN
1269:
1270: FND_MSG_PUB.Initialize;
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272: SAVEPOINT BscCopyIndicPeriodsPub;
1273:
1274: IF p_New_Periodicities.COUNT = 0 THEN
1275: Update_Annual_Current_Period (
1272: SAVEPOINT BscCopyIndicPeriodsPub;
1273:
1274: IF p_New_Periodicities.COUNT = 0 THEN
1275: Update_Annual_Current_Period (
1276: p_commit => FND_API.G_FALSE
1277: ,p_Target_Indicator => p_Target_Indicator
1278: ,x_return_status => x_return_status
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data
1278: ,x_return_status => x_return_status
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data
1281: );
1282: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: RETURN;
1286: END IF;
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data
1281: );
1282: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: RETURN;
1286: END IF;
1287:
1371: END IF;
1372: END LOOP;
1373:
1374: Update_Annual_Current_Period(
1375: p_commit => FND_API.G_FALSE
1376: ,p_Target_Indicator => p_Target_Indicator
1377: ,x_return_status => x_return_status
1378: ,x_msg_count => x_msg_count
1379: ,x_msg_data => x_msg_data
1377: ,x_return_status => x_return_status
1378: ,x_msg_count => x_msg_count
1379: ,x_msg_data => x_msg_data
1380: );
1381: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384:
1385:
1378: ,x_msg_count => x_msg_count
1379: ,x_msg_data => x_msg_data
1380: );
1381: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384:
1385:
1386: SELECT
1420: WHERE
1421: indicator = p_Target_Indicator;
1422:
1423:
1424: IF (p_commit = FND_API.G_TRUE) THEN
1425: COMMIT;
1426: END IF;
1427:
1428: EXCEPTION
1425: COMMIT;
1426: END IF;
1427:
1428: EXCEPTION
1429: WHEN FND_API.G_EXC_ERROR THEN
1430: ROLLBACK TO BscCopyIndicPeriodsPub;
1431: IF (x_msg_data IS NULL) THEN
1432: FND_MSG_PUB.Count_And_Get
1433: ( p_encoded => FND_API.G_FALSE
1429: WHEN FND_API.G_EXC_ERROR THEN
1430: ROLLBACK TO BscCopyIndicPeriodsPub;
1431: IF (x_msg_data IS NULL) THEN
1432: FND_MSG_PUB.Count_And_Get
1433: ( p_encoded => FND_API.G_FALSE
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1437: END IF;
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1437: END IF;
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1440: ROLLBACK TO BscCopyIndicPeriodsPub;
1441: IF (x_msg_data IS NULL) THEN
1442: FND_MSG_PUB.Count_And_Get
1435: , p_data => x_msg_data
1436: );
1437: END IF;
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1440: ROLLBACK TO BscCopyIndicPeriodsPub;
1441: IF (x_msg_data IS NULL) THEN
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_encoded => FND_API.G_FALSE
1439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1440: ROLLBACK TO BscCopyIndicPeriodsPub;
1441: IF (x_msg_data IS NULL) THEN
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_encoded => FND_API.G_FALSE
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1447: END IF;
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1447: END IF;
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1449: WHEN NO_DATA_FOUND THEN
1450: ROLLBACK TO BscCopyIndicPeriodsPub;
1451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1452: IF (x_msg_data IS NOT NULL) THEN
1447: END IF;
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1449: WHEN NO_DATA_FOUND THEN
1450: ROLLBACK TO BscCopyIndicPeriodsPub;
1451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1452: IF (x_msg_data IS NOT NULL) THEN
1453: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Periodicities ';
1454: ELSE
1455: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Periodicities ';
1455: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Periodicities ';
1456: END IF;
1457: WHEN OTHERS THEN
1458: ROLLBACK TO BscCopyIndicPeriodsPub;
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1460: IF (x_msg_data IS NOT NULL) THEN
1461: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Periodicities ';
1462: ELSE
1463: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Copy_Periodicities ';
1472: --
1473: ************************************************************************************/
1474:
1475: PROCEDURE Update_Bsc_Kpi_Props(
1476: p_commit IN VARCHAR2 := FND_API.G_FALSE
1477: , p_Target_Indicator IN NUMBER
1478: , p_Property_code IN VARCHAR2
1479: , p_Property_value IN NUMBER
1480: , x_return_status OUT NOCOPY VARCHAR2
1484: l_Count NUMBER := 0;
1485: BEGIN
1486:
1487: FND_MSG_PUB.Initialize;
1488: x_return_status := FND_API.G_RET_STS_SUCCESS;
1489: SAVEPOINT BscCopyUpdKpiProps;
1490:
1491: l_Count := 0;
1492: SELECT
1517: indicator = p_Target_Indicator AND
1518: property_code = p_Property_code;
1519: END IF;
1520:
1521: IF (p_commit = FND_API.G_TRUE) THEN
1522: COMMIT;
1523: END IF;
1524:
1525: EXCEPTION
1522: COMMIT;
1523: END IF;
1524:
1525: EXCEPTION
1526: WHEN FND_API.G_EXC_ERROR THEN
1527: ROLLBACK TO BscCopyUpdKpiProps;
1528: IF (x_msg_data IS NULL) THEN
1529: FND_MSG_PUB.Count_And_Get
1530: ( p_encoded => FND_API.G_FALSE
1526: WHEN FND_API.G_EXC_ERROR THEN
1527: ROLLBACK TO BscCopyUpdKpiProps;
1528: IF (x_msg_data IS NULL) THEN
1529: FND_MSG_PUB.Count_And_Get
1530: ( p_encoded => FND_API.G_FALSE
1531: , p_count => x_msg_count
1532: , p_data => x_msg_data
1533: );
1534: END IF;
1531: , p_count => x_msg_count
1532: , p_data => x_msg_data
1533: );
1534: END IF;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: ROLLBACK TO BscCopyUpdKpiProps;
1538: IF (x_msg_data IS NULL) THEN
1539: FND_MSG_PUB.Count_And_Get
1532: , p_data => x_msg_data
1533: );
1534: END IF;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: ROLLBACK TO BscCopyUpdKpiProps;
1538: IF (x_msg_data IS NULL) THEN
1539: FND_MSG_PUB.Count_And_Get
1540: ( p_encoded => FND_API.G_FALSE
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: ROLLBACK TO BscCopyUpdKpiProps;
1538: IF (x_msg_data IS NULL) THEN
1539: FND_MSG_PUB.Count_And_Get
1540: ( p_encoded => FND_API.G_FALSE
1541: , p_count => x_msg_count
1542: , p_data => x_msg_data
1543: );
1544: END IF;
1541: , p_count => x_msg_count
1542: , p_data => x_msg_data
1543: );
1544: END IF;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: WHEN NO_DATA_FOUND THEN
1547: ROLLBACK TO BscCopyUpdKpiProps;
1548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1549: IF (x_msg_data IS NOT NULL) THEN
1544: END IF;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: WHEN NO_DATA_FOUND THEN
1547: ROLLBACK TO BscCopyUpdKpiProps;
1548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1549: IF (x_msg_data IS NOT NULL) THEN
1550: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Update_Bsc_Kpi_Props ';
1551: ELSE
1552: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Update_Bsc_Kpi_Props ';
1552: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Update_Bsc_Kpi_Props ';
1553: END IF;
1554: WHEN OTHERS THEN
1555: ROLLBACK TO BscCopyUpdKpiProps;
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: IF (x_msg_data IS NOT NULL) THEN
1558: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Update_Bsc_Kpi_Props ';
1559: ELSE
1560: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Update_Bsc_Kpi_Props ';
1568: -- Creates the entries in bsc_kpi_dim_level_properties
1569: ************************************************************************************/
1570:
1571: PROCEDURE Copy_Dim_Level_Props(
1572: p_commit IN VARCHAR2 := FND_API.G_FALSE
1573: , p_Source_Indicator IN NUMBER
1574: , p_Target_Indicator IN NUMBER
1575: , p_Old_Dim_Levels IN FND_TABLE_OF_NUMBER
1576: , p_New_Dim_Levels IN FND_TABLE_OF_NUMBER
1593:
1594: BEGIN
1595:
1596: FND_MSG_PUB.Initialize;
1597: x_return_status := FND_API.G_RET_STS_SUCCESS;
1598: SAVEPOINT BscCopyDimLevProps;
1599: IF p_Region_Code IS NOT NULL THEN -- Simulation tree
1600: BSC_SIMULATION_VIEW_PVT.Copy_Dimension_Group (
1601: p_commit => FND_API.G_FALSE
1597: x_return_status := FND_API.G_RET_STS_SUCCESS;
1598: SAVEPOINT BscCopyDimLevProps;
1599: IF p_Region_Code IS NOT NULL THEN -- Simulation tree
1600: BSC_SIMULATION_VIEW_PVT.Copy_Dimension_Group (
1601: p_commit => FND_API.G_FALSE
1602: ,p_Indicator => p_Target_Indicator
1603: ,p_Region_Code => p_Region_Code
1604: ,p_Old_Region_Code => p_Old_Region_Code
1605: ,p_New_Dim_Levels => p_New_Dim_Levels
1607: ,x_return_status => x_return_status
1608: ,x_msg_count => x_msg_count
1609: ,x_msg_data => x_msg_data
1610: );
1611: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614:
1615: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions(
1608: ,x_msg_count => x_msg_count
1609: ,x_msg_data => x_msg_data
1610: );
1611: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614:
1615: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions(
1616: p_commit => FND_API.G_FALSE
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614:
1615: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions(
1616: p_commit => FND_API.G_FALSE
1617: ,p_kpi_id => p_Target_Indicator
1618: ,p_dim_set_id => 0
1619: ,p_assign_dim_names => p_Region_Code
1620: ,p_unassign_dim_names => NULL
1622: ,x_return_status => x_return_status
1623: ,x_msg_count => x_msg_count
1624: ,x_msg_data => x_msg_data
1625: );
1626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1628: END IF;
1629:
1630: ELSE
1623: ,x_msg_count => x_msg_count
1624: ,x_msg_data => x_msg_data
1625: );
1626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1628: END IF;
1629:
1630: ELSE
1631: l_sql := BSC_DESIGNER_PVT.Format_DbLink_String('SELECT dim_set_id,dim_group_id,dim_group_index FROM bsc_kpi_dim_groups');
1649: END IF;
1650: END LOOP;
1651: IF l_Short_Name IS NOT NULL THEN
1652: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions(
1653: p_commit => FND_API.G_FALSE
1654: ,p_kpi_id => p_Target_Indicator
1655: ,p_dim_set_id => l_dim_set_id
1656: ,p_assign_dim_names => l_Short_Name
1657: ,p_unassign_dim_names => NULL
1659: ,x_return_status => x_return_status
1660: ,x_msg_count => x_msg_count
1661: ,x_msg_data => x_msg_data
1662: );
1663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1665: END IF;
1666: END IF;
1667: END LOOP;
1660: ,x_msg_count => x_msg_count
1661: ,x_msg_data => x_msg_data
1662: );
1663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1665: END IF;
1666: END IF;
1667: END LOOP;
1668: CLOSE c_Dim_Group_Info;
1675: FETCH c_Dim_Group_Info INTO l_dim_set_Id;
1676: EXIT WHEN c_Dim_Group_Info%NOTFOUND;
1677: IF l_dim_set_Id IS NOT NULL THEN
1678: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions(
1679: p_commit => FND_API.G_FALSE
1680: ,p_kpi_id => p_Target_Indicator
1681: ,p_dim_set_id => l_dim_set_id
1682: ,p_assign_dim_names => NULL
1683: ,p_unassign_dim_names => NULL
1685: ,x_return_status => x_return_status
1686: ,x_msg_count => x_msg_count
1687: ,x_msg_data => x_msg_data
1688: );
1689: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692: END IF;
1693: END LOOP;
1686: ,x_msg_count => x_msg_count
1687: ,x_msg_data => x_msg_data
1688: );
1689: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692: END IF;
1693: END LOOP;
1694: CLOSE c_Dim_Group_Info;
1693: END LOOP;
1694: CLOSE c_Dim_Group_Info;
1695: END IF;
1696:
1697: IF (p_commit = FND_API.G_TRUE) THEN
1698: COMMIT;
1699: END IF;
1700:
1701: EXCEPTION
1698: COMMIT;
1699: END IF;
1700:
1701: EXCEPTION
1702: WHEN FND_API.G_EXC_ERROR THEN
1703: ROLLBACK TO BscCopyDimLevProps;
1704: IF (x_msg_data IS NULL) THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1702: WHEN FND_API.G_EXC_ERROR THEN
1703: ROLLBACK TO BscCopyDimLevProps;
1704: IF (x_msg_data IS NULL) THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1710: END IF;
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1710: END IF;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: ROLLBACK TO BscCopyDimLevProps;
1714: IF (x_msg_data IS NULL) THEN
1715: FND_MSG_PUB.Count_And_Get
1708: , p_data => x_msg_data
1709: );
1710: END IF;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: ROLLBACK TO BscCopyDimLevProps;
1714: IF (x_msg_data IS NULL) THEN
1715: FND_MSG_PUB.Count_And_Get
1716: ( p_encoded => FND_API.G_FALSE
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: ROLLBACK TO BscCopyDimLevProps;
1714: IF (x_msg_data IS NULL) THEN
1715: FND_MSG_PUB.Count_And_Get
1716: ( p_encoded => FND_API.G_FALSE
1717: , p_count => x_msg_count
1718: , p_data => x_msg_data
1719: );
1720: END IF;
1717: , p_count => x_msg_count
1718: , p_data => x_msg_data
1719: );
1720: END IF;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: WHEN NO_DATA_FOUND THEN
1723: ROLLBACK TO BscCopyDimLevProps;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: IF (x_msg_data IS NOT NULL) THEN
1720: END IF;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: WHEN NO_DATA_FOUND THEN
1723: ROLLBACK TO BscCopyDimLevProps;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: IF (x_msg_data IS NOT NULL) THEN
1726: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Dim_Level_Props ';
1727: ELSE
1728: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Dim_Level_Props ';
1728: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Copy_Dim_Level_Props ';
1729: END IF;
1730: WHEN OTHERS THEN
1731: ROLLBACK TO BscCopyDimLevProps;
1732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1733: IF (x_msg_data IS NOT NULL) THEN
1734: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Copy_Dim_Level_Props ';
1735: ELSE
1736: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Copy_Dim_Level_Props ';
1799: -- Creates the entries in bsc_kpi_dim_level_properties
1800: ************************************************************************************/
1801:
1802: PROCEDURE Check_Key_Item_Props(
1803: p_commit IN VARCHAR2 := FND_API.G_FALSE
1804: , p_Source_Indicator IN NUMBER
1805: , p_Target_Indicator IN NUMBER
1806: , p_Old_Dim_Levels IN FND_TABLE_OF_NUMBER
1807: , p_New_Dim_Levels IN FND_TABLE_OF_NUMBER
1833:
1834: BEGIN
1835:
1836: FND_MSG_PUB.Initialize;
1837: x_return_status := FND_API.G_RET_STS_SUCCESS;
1838: SAVEPOINT BscChkKeyItemProps;
1839:
1840: l_sql := 'SELECT kl.dim_set_id,dim_level_index,kl.level_table_name,kl.level_pk_col,dl.dim_level_id,';
1841: l_sql := l_sql || 'parent_level_index,parent_level_rel,table_relation,';
1890: WHERE
1891: indicator = p_Target_Indicator;
1892:
1893: /* Update_Bsc_Kpi_Props (
1894: p_commit => FND_API.G_FALSE
1895: ,p_Target_Indicator => p_Target_Indicator
1896: ,p_Property_code => 'DB_TRANSFORM'
1897: ,p_Property_value => 2
1898: ,x_return_status => x_return_status
1898: ,x_return_status => x_return_status
1899: ,x_msg_count => x_msg_count
1900: ,x_msg_data => x_msg_data
1901: );
1902: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1904: END IF;*/
1905:
1906: BSC_DESIGNER_PVT.ActionFlag_Change( p_Target_Indicator, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
1899: ,x_msg_count => x_msg_count
1900: ,x_msg_data => x_msg_data
1901: );
1902: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1904: END IF;*/
1905:
1906: BSC_DESIGNER_PVT.ActionFlag_Change( p_Target_Indicator, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
1907: ELSE
1921: l_sql := l_sql || ' sys.dim_level_id = tar.dim_level_id) WHERE tar.indicator = :2';
1922: EXECUTE IMMEDIATE l_sql USING p_Source_Indicator,p_Target_Indicator;
1923: END IF;
1924:
1925: IF (p_commit = FND_API.G_TRUE) THEN
1926: COMMIT;
1927: END IF;
1928:
1929: EXCEPTION
1926: COMMIT;
1927: END IF;
1928:
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO BscChkKeyItemProps;
1932: IF (x_msg_data IS NULL) THEN
1933: FND_MSG_PUB.Count_And_Get
1934: ( p_encoded => FND_API.G_FALSE
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO BscChkKeyItemProps;
1932: IF (x_msg_data IS NULL) THEN
1933: FND_MSG_PUB.Count_And_Get
1934: ( p_encoded => FND_API.G_FALSE
1935: , p_count => x_msg_count
1936: , p_data => x_msg_data
1937: );
1938: END IF;
1935: , p_count => x_msg_count
1936: , p_data => x_msg_data
1937: );
1938: END IF;
1939: x_return_status := FND_API.G_RET_STS_ERROR;
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: ROLLBACK TO BscChkKeyItemProps;
1942: IF (x_msg_data IS NULL) THEN
1943: FND_MSG_PUB.Count_And_Get
1936: , p_data => x_msg_data
1937: );
1938: END IF;
1939: x_return_status := FND_API.G_RET_STS_ERROR;
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: ROLLBACK TO BscChkKeyItemProps;
1942: IF (x_msg_data IS NULL) THEN
1943: FND_MSG_PUB.Count_And_Get
1944: ( p_encoded => FND_API.G_FALSE
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: ROLLBACK TO BscChkKeyItemProps;
1942: IF (x_msg_data IS NULL) THEN
1943: FND_MSG_PUB.Count_And_Get
1944: ( p_encoded => FND_API.G_FALSE
1945: , p_count => x_msg_count
1946: , p_data => x_msg_data
1947: );
1948: END IF;
1945: , p_count => x_msg_count
1946: , p_data => x_msg_data
1947: );
1948: END IF;
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: WHEN NO_DATA_FOUND THEN
1951: ROLLBACK TO BscChkKeyItemProps;
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1953: IF (x_msg_data IS NOT NULL) THEN
1948: END IF;
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: WHEN NO_DATA_FOUND THEN
1951: ROLLBACK TO BscChkKeyItemProps;
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1953: IF (x_msg_data IS NOT NULL) THEN
1954: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Key_Item_Props ';
1955: ELSE
1956: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Key_Item_Props ';
1956: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Key_Item_Props ';
1957: END IF;
1958: WHEN OTHERS THEN
1959: ROLLBACK TO BscChkKeyItemProps;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961: IF (x_msg_data IS NOT NULL) THEN
1962: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Key_Item_Props ';
1963: ELSE
1964: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Check_Key_Item_Props ';
1973: -- Creates the entries in bsc_kpi_dim_level_properties
1974: ************************************************************************************/
1975:
1976: PROCEDURE Check_Color_By_Total_Props(
1977: p_commit IN VARCHAR2 := FND_API.G_FALSE
1978: , p_Target_Indicator IN NUMBER
1979: , x_return_status OUT NOCOPY VARCHAR2
1980: , x_msg_count OUT NOCOPY NUMBER
1981: , x_msg_data OUT NOCOPY VARCHAR2
1985:
1986: BEGIN
1987:
1988: FND_MSG_PUB.Initialize;
1989: x_return_status := FND_API.G_RET_STS_SUCCESS;
1990: SAVEPOINT BscChkColorByTotal;
1991:
1992: SELECT
1993: dim_set_id
2019: default_key_value IS NULL AND UPPER(default_value)= 'C';
2020:
2021: IF l_count > 0 THEN
2022: Update_Bsc_Kpi_Props (
2023: p_commit => FND_API.G_FALSE
2024: ,p_Target_Indicator => p_Target_Indicator
2025: ,p_Property_code => 'COLOR_BY_TOTAL'
2026: ,p_Property_value => 0
2027: ,x_return_status => x_return_status
2027: ,x_return_status => x_return_status
2028: ,x_msg_count => x_msg_count
2029: ,x_msg_data => x_msg_data
2030: );
2031: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: END IF;
2034: END IF;
2035: END IF;
2028: ,x_msg_count => x_msg_count
2029: ,x_msg_data => x_msg_data
2030: );
2031: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: END IF;
2034: END IF;
2035: END IF;
2036:
2033: END IF;
2034: END IF;
2035: END IF;
2036:
2037: IF (p_commit = FND_API.G_TRUE) THEN
2038: COMMIT;
2039: END IF;
2040:
2041: EXCEPTION
2038: COMMIT;
2039: END IF;
2040:
2041: EXCEPTION
2042: WHEN FND_API.G_EXC_ERROR THEN
2043: ROLLBACK TO BscChkColorByTotal;
2044: IF (x_msg_data IS NULL) THEN
2045: FND_MSG_PUB.Count_And_Get
2046: ( p_encoded => FND_API.G_FALSE
2042: WHEN FND_API.G_EXC_ERROR THEN
2043: ROLLBACK TO BscChkColorByTotal;
2044: IF (x_msg_data IS NULL) THEN
2045: FND_MSG_PUB.Count_And_Get
2046: ( p_encoded => FND_API.G_FALSE
2047: , p_count => x_msg_count
2048: , p_data => x_msg_data
2049: );
2050: END IF;
2047: , p_count => x_msg_count
2048: , p_data => x_msg_data
2049: );
2050: END IF;
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2053: ROLLBACK TO BscChkColorByTotal;
2054: IF (x_msg_data IS NULL) THEN
2055: FND_MSG_PUB.Count_And_Get
2048: , p_data => x_msg_data
2049: );
2050: END IF;
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2053: ROLLBACK TO BscChkColorByTotal;
2054: IF (x_msg_data IS NULL) THEN
2055: FND_MSG_PUB.Count_And_Get
2056: ( p_encoded => FND_API.G_FALSE
2052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2053: ROLLBACK TO BscChkColorByTotal;
2054: IF (x_msg_data IS NULL) THEN
2055: FND_MSG_PUB.Count_And_Get
2056: ( p_encoded => FND_API.G_FALSE
2057: , p_count => x_msg_count
2058: , p_data => x_msg_data
2059: );
2060: END IF;
2057: , p_count => x_msg_count
2058: , p_data => x_msg_data
2059: );
2060: END IF;
2061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2062: WHEN NO_DATA_FOUND THEN
2063: ROLLBACK TO BscChkColorByTotal;
2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF (x_msg_data IS NOT NULL) THEN
2060: END IF;
2061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2062: WHEN NO_DATA_FOUND THEN
2063: ROLLBACK TO BscChkColorByTotal;
2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF (x_msg_data IS NOT NULL) THEN
2066: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Color_By_Total_Props ';
2067: ELSE
2068: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Color_By_Total_Props ';
2068: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Color_By_Total_Props ';
2069: END IF;
2070: WHEN OTHERS THEN
2071: ROLLBACK TO BscChkColorByTotal;
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073: IF (x_msg_data IS NOT NULL) THEN
2074: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Color_By_Total_Props ';
2075: ELSE
2076: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Check_Color_By_Total_Props ';
2084: --
2085: ************************************************************************************/
2086:
2087: PROCEDURE Check_Profit_Loss_Properties(
2088: p_commit IN VARCHAR2 := FND_API.G_FALSE
2089: , p_Target_Indicator IN NUMBER
2090: , x_return_status OUT NOCOPY VARCHAR2
2091: , x_msg_count OUT NOCOPY NUMBER
2092: , x_msg_data OUT NOCOPY VARCHAR2
2108: l_Drill_Flag NUMBER := 0;
2109: BEGIN
2110:
2111: FND_MSG_PUB.Initialize;
2112: x_return_status := FND_API.G_RET_STS_SUCCESS;
2113: SAVEPOINT BscCopyIndicPLUpd;
2114:
2115: OPEN c_Indic;
2116: FETCH c_Indic INTO l_Indic_Type, l_Config_Type;
2130: l_Drill_Flag := 1;
2131: END IF;
2132:
2133: Update_Bsc_Kpi_Props (
2134: p_commit => FND_API.G_FALSE
2135: ,p_Target_Indicator => p_Target_Indicator
2136: ,p_Property_code => 'PL_DRILL_FLAG'
2137: ,p_Property_value => l_Drill_Flag
2138: ,x_return_status => x_return_status
2138: ,x_return_status => x_return_status
2139: ,x_msg_count => x_msg_count
2140: ,x_msg_data => x_msg_data
2141: );
2142: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2144: END IF;
2145:
2146: END IF;
2139: ,x_msg_count => x_msg_count
2140: ,x_msg_data => x_msg_data
2141: );
2142: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2144: END IF;
2145:
2146: END IF;
2147:
2145:
2146: END IF;
2147:
2148:
2149: IF (p_commit = FND_API.G_TRUE) THEN
2150: COMMIT;
2151: END IF;
2152:
2153: EXCEPTION
2150: COMMIT;
2151: END IF;
2152:
2153: EXCEPTION
2154: WHEN FND_API.G_EXC_ERROR THEN
2155: ROLLBACK TO BscCopyIndicPLUpd;
2156: IF (x_msg_data IS NULL) THEN
2157: FND_MSG_PUB.Count_And_Get
2158: ( p_encoded => FND_API.G_FALSE
2154: WHEN FND_API.G_EXC_ERROR THEN
2155: ROLLBACK TO BscCopyIndicPLUpd;
2156: IF (x_msg_data IS NULL) THEN
2157: FND_MSG_PUB.Count_And_Get
2158: ( p_encoded => FND_API.G_FALSE
2159: , p_count => x_msg_count
2160: , p_data => x_msg_data
2161: );
2162: END IF;
2159: , p_count => x_msg_count
2160: , p_data => x_msg_data
2161: );
2162: END IF;
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2165: ROLLBACK TO BscCopyIndicPLUpd;
2166: IF (x_msg_data IS NULL) THEN
2167: FND_MSG_PUB.Count_And_Get
2160: , p_data => x_msg_data
2161: );
2162: END IF;
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2165: ROLLBACK TO BscCopyIndicPLUpd;
2166: IF (x_msg_data IS NULL) THEN
2167: FND_MSG_PUB.Count_And_Get
2168: ( p_encoded => FND_API.G_FALSE
2164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2165: ROLLBACK TO BscCopyIndicPLUpd;
2166: IF (x_msg_data IS NULL) THEN
2167: FND_MSG_PUB.Count_And_Get
2168: ( p_encoded => FND_API.G_FALSE
2169: , p_count => x_msg_count
2170: , p_data => x_msg_data
2171: );
2172: END IF;
2169: , p_count => x_msg_count
2170: , p_data => x_msg_data
2171: );
2172: END IF;
2173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2174: WHEN NO_DATA_FOUND THEN
2175: ROLLBACK TO BscCopyIndicPLUpd;
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: IF (x_msg_data IS NOT NULL) THEN
2172: END IF;
2173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2174: WHEN NO_DATA_FOUND THEN
2175: ROLLBACK TO BscCopyIndicPLUpd;
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: IF (x_msg_data IS NOT NULL) THEN
2178: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Profit_Loss_Properties ';
2179: ELSE
2180: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Profit_Loss_Properties ';
2180: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Profit_Loss_Properties ';
2181: END IF;
2182: WHEN OTHERS THEN
2183: ROLLBACK TO BscCopyIndicPLUpd;
2184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2185: IF (x_msg_data IS NOT NULL) THEN
2186: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Profit_Loss_Properties ';
2187: ELSE
2188: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Check_Profit_Loss_Properties ';
2196: --
2197: ************************************************************************************/
2198:
2199: PROCEDURE Check_Default_Record_Data_Tbls(
2200: p_commit IN VARCHAR2 := FND_API.G_FALSE
2201: , p_Target_Indicator IN NUMBER
2202: , x_return_status OUT NOCOPY VARCHAR2
2203: , x_msg_count OUT NOCOPY NUMBER
2204: , x_msg_data OUT NOCOPY VARCHAR2
2210: l_Count NUMBER := 0;
2211: BEGIN
2212:
2213: FND_MSG_PUB.Initialize;
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215: SAVEPOINT BscCopyDfltDataTbl;
2216:
2217: SELECT
2218: COUNT(1)
2243: WHERE
2244: INDICATOR = p_Target_Indicator);
2245: END IF;
2246:
2247: IF (p_commit = FND_API.G_TRUE) THEN
2248: COMMIT;
2249: END IF;
2250:
2251: EXCEPTION
2248: COMMIT;
2249: END IF;
2250:
2251: EXCEPTION
2252: WHEN FND_API.G_EXC_ERROR THEN
2253: ROLLBACK TO BscCopyDfltDataTbl;
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_encoded => FND_API.G_FALSE
2252: WHEN FND_API.G_EXC_ERROR THEN
2253: ROLLBACK TO BscCopyDfltDataTbl;
2254: IF (x_msg_data IS NULL) THEN
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_encoded => FND_API.G_FALSE
2257: , p_count => x_msg_count
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2257: , p_count => x_msg_count
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2263: ROLLBACK TO BscCopyDfltDataTbl;
2264: IF (x_msg_data IS NULL) THEN
2265: FND_MSG_PUB.Count_And_Get
2258: , p_data => x_msg_data
2259: );
2260: END IF;
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2263: ROLLBACK TO BscCopyDfltDataTbl;
2264: IF (x_msg_data IS NULL) THEN
2265: FND_MSG_PUB.Count_And_Get
2266: ( p_encoded => FND_API.G_FALSE
2262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2263: ROLLBACK TO BscCopyDfltDataTbl;
2264: IF (x_msg_data IS NULL) THEN
2265: FND_MSG_PUB.Count_And_Get
2266: ( p_encoded => FND_API.G_FALSE
2267: , p_count => x_msg_count
2268: , p_data => x_msg_data
2269: );
2270: END IF;
2267: , p_count => x_msg_count
2268: , p_data => x_msg_data
2269: );
2270: END IF;
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: WHEN NO_DATA_FOUND THEN
2273: ROLLBACK TO BscCopyDfltDataTbl;
2274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2275: IF (x_msg_data IS NOT NULL) THEN
2270: END IF;
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: WHEN NO_DATA_FOUND THEN
2273: ROLLBACK TO BscCopyDfltDataTbl;
2274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2275: IF (x_msg_data IS NOT NULL) THEN
2276: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Default_Record_Data_Tbls ';
2277: ELSE
2278: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Default_Record_Data_Tbls ';
2278: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_Default_Record_Data_Tbls ';
2279: END IF;
2280: WHEN OTHERS THEN
2281: ROLLBACK TO BscCopyDfltDataTbl;
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2283: IF (x_msg_data IS NOT NULL) THEN
2284: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_Default_Record_Data_Tbls ';
2285: ELSE
2286: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Check_Default_Record_Data_Tbls ';
2294: --
2295: ************************************************************************************/
2296:
2297: PROCEDURE Check_KPI_Name(
2298: p_commit IN VARCHAR2 := FND_API.G_FALSE
2299: , p_Target_Indicator IN NUMBER
2300: , p_Name IN VARCHAR2
2301: , p_Description IN VARCHAR2
2302: , x_return_status OUT NOCOPY VARCHAR2
2318: l_new_name bsc_kpis_tl.name%TYPE;
2319: BEGIN
2320:
2321: FND_MSG_PUB.Initialize;
2322: x_return_status := FND_API.G_RET_STS_SUCCESS;
2323: SAVEPOINT BscCopyIndicChkKpiName;
2324:
2325: l_new_name := p_Name;
2326: FOR cd IN c_Kpi_Lang LOOP
2363: END IF;
2364:
2365: END LOOP;
2366:
2367: IF (p_commit = FND_API.G_TRUE) THEN
2368: COMMIT;
2369: END IF;
2370:
2371: EXCEPTION
2368: COMMIT;
2369: END IF;
2370:
2371: EXCEPTION
2372: WHEN FND_API.G_EXC_ERROR THEN
2373: ROLLBACK TO BscCopyIndicChkKpiName;
2374: IF (x_msg_data IS NULL) THEN
2375: FND_MSG_PUB.Count_And_Get
2376: ( p_encoded => FND_API.G_FALSE
2372: WHEN FND_API.G_EXC_ERROR THEN
2373: ROLLBACK TO BscCopyIndicChkKpiName;
2374: IF (x_msg_data IS NULL) THEN
2375: FND_MSG_PUB.Count_And_Get
2376: ( p_encoded => FND_API.G_FALSE
2377: , p_count => x_msg_count
2378: , p_data => x_msg_data
2379: );
2380: END IF;
2377: , p_count => x_msg_count
2378: , p_data => x_msg_data
2379: );
2380: END IF;
2381: x_return_status := FND_API.G_RET_STS_ERROR;
2382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2383: ROLLBACK TO BscCopyIndicChkKpiName;
2384: IF (x_msg_data IS NULL) THEN
2385: FND_MSG_PUB.Count_And_Get
2378: , p_data => x_msg_data
2379: );
2380: END IF;
2381: x_return_status := FND_API.G_RET_STS_ERROR;
2382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2383: ROLLBACK TO BscCopyIndicChkKpiName;
2384: IF (x_msg_data IS NULL) THEN
2385: FND_MSG_PUB.Count_And_Get
2386: ( p_encoded => FND_API.G_FALSE
2382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2383: ROLLBACK TO BscCopyIndicChkKpiName;
2384: IF (x_msg_data IS NULL) THEN
2385: FND_MSG_PUB.Count_And_Get
2386: ( p_encoded => FND_API.G_FALSE
2387: , p_count => x_msg_count
2388: , p_data => x_msg_data
2389: );
2390: END IF;
2387: , p_count => x_msg_count
2388: , p_data => x_msg_data
2389: );
2390: END IF;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: WHEN NO_DATA_FOUND THEN
2393: ROLLBACK TO BscCopyIndicChkKpiName;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: IF (x_msg_data IS NOT NULL) THEN
2390: END IF;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: WHEN NO_DATA_FOUND THEN
2393: ROLLBACK TO BscCopyIndicChkKpiName;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: IF (x_msg_data IS NOT NULL) THEN
2396: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_KPI_Name ';
2397: ELSE
2398: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_KPI_Name ';
2398: x_msg_data := SQLERRM||' at BSC_COPY_INDICATOR_PUB.Check_KPI_Name ';
2399: END IF;
2400: WHEN OTHERS THEN
2401: ROLLBACK TO BscCopyIndicChkKpiName;
2402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2403: IF (x_msg_data IS NOT NULL) THEN
2404: x_msg_data := x_msg_data||' -> BSC_COPY_INDICATOR_PUB.Check_KPI_Name ';
2405: ELSE
2406: x_msg_data := SQLERRM||' AT BSC_COPY_INDICATOR_PUB.Check_KPI_Name ';
2413: -- Function :
2414: -- This API is used to copy an indicator from one indicator group to another
2415: ************************************************************************************/
2416: PROCEDURE CopyNew_Indicator_UI_Wrap (
2417: p_commit IN VARCHAR2 := FND_API.G_FALSE
2418: , p_DbLink_Name IN VARCHAR2
2419: , p_Name IN VARCHAR2 := NULL
2420: , p_Description IN VARCHAR2 := NULL
2421: , p_Source_Indicator IN NUMBER
2443: l_Region_Code ak_regions.region_code%TYPE;
2444: BEGIN
2445:
2446: FND_MSG_PUB.Initialize;
2447: x_return_status := FND_API.G_RET_STS_SUCCESS;
2448:
2449: SAVEPOINT BscCopyIndicatorUIWrap;
2450:
2451: BSC_DESIGNER_PVT.g_DbLink_Name := p_DbLink_Name;
2454: ,x_return_status => x_return_status
2455: ,x_msg_count => x_msg_count
2456: ,x_msg_data => x_msg_data
2457: );
2458: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2459: BSC_APPS.Write_Line_Log('Validation of objective copy failed : Objective [ ' ||p_Source_Indicator||'] ' , BSC_APPS.OUTPUT_FILE);
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2456: ,x_msg_data => x_msg_data
2457: );
2458: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2459: BSC_APPS.Write_Line_Log('Validation of objective copy failed : Objective [ ' ||p_Source_Indicator||'] ' , BSC_APPS.OUTPUT_FILE);
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: IF p_DbLink_Name IS NULL THEN
2464: --l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Source_Indicator;
2464: --l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Source_Indicator;
2465: BSC_BIS_LOCKS_PUB.Lock_Kpi (
2466: p_kpi_Id => p_Source_Indicator
2467: ,p_time_stamp => p_Time_Stamp
2468: ,p_full_lock_flag => FND_API.G_FALSE
2469: ,x_return_status => x_return_status
2470: ,x_msg_count => x_msg_count
2471: ,x_msg_data => x_msg_data
2472: );
2469: ,x_return_status => x_return_status
2470: ,x_msg_count => x_msg_count
2471: ,x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END IF;
2477:
2470: ,x_msg_count => x_msg_count
2471: ,x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END IF;
2477:
2478: /*
2488: ,x_return_status => x_return_status
2489: ,x_msg_count => x_msg_count
2490: ,x_msg_data => x_msg_data
2491: );
2492: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2494: END IF;
2495: --END IF;*/
2496:
2489: ,x_msg_count => x_msg_count
2490: ,x_msg_data => x_msg_data
2491: );
2492: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2494: END IF;
2495: --END IF;*/
2496:
2497: BSC_DESIGNER_PVT.Copy_Kpi_Metadata(
2494: END IF;
2495: --END IF;*/
2496:
2497: BSC_DESIGNER_PVT.Copy_Kpi_Metadata(
2498: p_commit => FND_API.G_FALSE
2499: ,p_DbLink_Name => p_DbLink_Name
2500: ,p_Source_Indicator => p_Source_Indicator
2501: ,x_Target_Indicator => l_Target_Indicator
2502: ,x_return_status => x_return_status
2502: ,x_return_status => x_return_status
2503: ,x_msg_count => x_msg_count
2504: ,x_msg_data => x_msg_data
2505: );
2506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509:
2510: SELECT
2503: ,x_msg_count => x_msg_count
2504: ,x_msg_data => x_msg_data
2505: );
2506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509:
2510: SELECT
2511: short_name
2516: WHERE
2517: indicator = l_Target_Indicator;
2518:
2519: Move_Indicator (
2520: p_commit => FND_API.G_FALSE
2521: ,p_Indicator => l_Target_Indicator
2522: ,p_New_Indicator_Group => p_Target_Group
2523: ,p_Assign_Group_To_Tab => FND_API.G_FALSE
2524: ,x_return_status => x_return_status
2519: Move_Indicator (
2520: p_commit => FND_API.G_FALSE
2521: ,p_Indicator => l_Target_Indicator
2522: ,p_New_Indicator_Group => p_Target_Group
2523: ,p_Assign_Group_To_Tab => FND_API.G_FALSE
2524: ,x_return_status => x_return_status
2525: ,x_msg_count => x_msg_count
2526: ,x_msg_data => x_msg_data
2527: );
2524: ,x_return_status => x_return_status
2525: ,x_msg_count => x_msg_count
2526: ,x_msg_data => x_msg_data
2527: );
2528: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2529: RAISE FND_API.G_EXC_ERROR;
2530: END IF;
2531:
2532: l_Responsibility_Key_List := 'BSC_Manager,BSC_DESIGNER,BSC_PMD_USER';
2525: ,x_msg_count => x_msg_count
2526: ,x_msg_data => x_msg_data
2527: );
2528: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2529: RAISE FND_API.G_EXC_ERROR;
2530: END IF;
2531:
2532: l_Responsibility_Key_List := 'BSC_Manager,BSC_DESIGNER,BSC_PMD_USER';
2533: Create_Kpi_Access_Wrap (
2530: END IF;
2531:
2532: l_Responsibility_Key_List := 'BSC_Manager,BSC_DESIGNER,BSC_PMD_USER';
2533: Create_Kpi_Access_Wrap (
2534: p_commit => FND_API.G_FALSE
2535: ,p_Comma_Sep_Resposibility_Key => l_Responsibility_Key_List
2536: ,p_Indicator_Id => l_Target_Indicator
2537: ,x_return_status => x_return_status
2538: ,x_msg_count => x_msg_count
2537: ,x_return_status => x_return_status
2538: ,x_msg_count => x_msg_count
2539: ,x_msg_data => x_msg_data
2540: );
2541: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: END IF;
2544:
2545: BSC_DESIGNER_PVT.ActionFlag_Change(
2538: ,x_msg_count => x_msg_count
2539: ,x_msg_data => x_msg_data
2540: );
2541: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: END IF;
2544:
2545: BSC_DESIGNER_PVT.ActionFlag_Change(
2546: x_indicator => l_Target_Indicator
2546: x_indicator => l_Target_Indicator
2547: ,x_newflag => 1 );
2548:
2549: Check_KPI_Name (
2550: p_commit => FND_API.G_FALSE
2551: ,p_Target_Indicator => l_Target_Indicator
2552: ,p_Name => p_Name
2553: ,p_Description => p_Description
2554: ,x_return_status => x_return_status
2554: ,x_return_status => x_return_status
2555: ,x_msg_count => x_msg_count
2556: ,x_msg_data => x_msg_data
2557: );
2558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2561:
2562: IF l_Short_Name IS NOT NULL THEN
2555: ,x_msg_count => x_msg_count
2556: ,x_msg_data => x_msg_data
2557: );
2558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2561:
2562: IF l_Short_Name IS NOT NULL THEN
2563: l_Region_Code := BSC_UTILITY.get_Next_Name(
2572: OR p_Old_DataSet_Map.COUNT > 0 OR p_New_Periodicities.COUNT > 0 THEN
2573:
2574: -- IF p_New_Dim_Groups.COUNT > 0 THEN
2575: Copy_Dim_Level_Props (
2576: p_commit => FND_API.G_FALSE
2577: ,p_Source_Indicator => p_Source_Indicator
2578: ,p_Target_Indicator => l_Target_Indicator
2579: ,p_Old_Dim_Levels => p_Old_Dim_Levels
2580: ,p_New_Dim_Levels => p_New_Dim_Levels
2585: ,x_return_status => x_return_status
2586: ,x_msg_count => x_msg_count
2587: ,x_msg_data => x_msg_data
2588: );
2589: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592: Check_Key_Item_Props (
2593: p_commit => FND_API.G_FALSE
2586: ,x_msg_count => x_msg_count
2587: ,x_msg_data => x_msg_data
2588: );
2589: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592: Check_Key_Item_Props (
2593: p_commit => FND_API.G_FALSE
2594: ,p_Source_Indicator => p_Source_Indicator
2589: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592: Check_Key_Item_Props (
2593: p_commit => FND_API.G_FALSE
2594: ,p_Source_Indicator => p_Source_Indicator
2595: ,p_Target_Indicator => l_Target_Indicator
2596: ,p_Old_Dim_Levels => p_Old_Dim_Levels
2597: ,p_New_Dim_Levels => p_New_Dim_Levels
2598: ,x_return_status => x_return_status
2599: ,x_msg_count => x_msg_count
2600: ,x_msg_data => x_msg_data
2601: );
2602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: BSC_DESIGNER_PVT.Deflt_Update_Dim_Values (
2599: ,x_msg_count => x_msg_count
2600: ,x_msg_data => x_msg_data
2601: );
2602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: BSC_DESIGNER_PVT.Deflt_Update_Dim_Values (
2607: x_indicator => l_Target_Indicator
2613:
2614: -- END IF;
2615:
2616: Copy_Analysis_Measures (
2617: p_commit => FND_API.G_FALSE
2618: ,p_Source_Indicator => p_Source_Indicator
2619: ,p_Target_Indicator => l_Target_Indicator
2620: ,p_Old_DataSet_Map => p_Old_DataSet_Map
2621: ,p_New_DataSet_Map => p_New_DataSet_Map
2622: ,x_return_status => x_return_status
2623: ,x_msg_count => x_msg_count
2624: ,x_msg_data => x_msg_data
2625: );
2626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2628: END IF;
2629:
2630: BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_YTD_Apply (
2623: ,x_msg_count => x_msg_count
2624: ,x_msg_data => x_msg_data
2625: );
2626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2628: END IF;
2629:
2630: BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_YTD_Apply (
2631: p_commit => FND_API.G_FALSE
2627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2628: END IF;
2629:
2630: BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_YTD_Apply (
2631: p_commit => FND_API.G_FALSE
2632: ,p_Indicator => l_Target_Indicator
2633: ,x_return_status => x_return_status
2634: ,x_msg_count => x_msg_count
2635: ,x_msg_data => x_msg_data
2633: ,x_return_status => x_return_status
2634: ,x_msg_count => x_msg_count
2635: ,x_msg_data => x_msg_data
2636: );
2637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2639: END IF;
2640:
2641: BSC_DESIGNER_PVT.Deflt_Update_SN_FM_CM (
2634: ,x_msg_count => x_msg_count
2635: ,x_msg_data => x_msg_data
2636: );
2637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2639: END IF;
2640:
2641: BSC_DESIGNER_PVT.Deflt_Update_SN_FM_CM (
2642: x_indicator => l_Target_Indicator
2642: x_indicator => l_Target_Indicator
2643: );
2644:
2645: Copy_Periodicities (
2646: p_commit => FND_API.G_FALSE
2647: ,p_Source_Indicator => p_Source_Indicator
2648: ,p_Target_Indicator => l_Target_Indicator
2649: ,p_Target_Calendar => p_Target_Calendar
2650: ,p_Old_Periodicities => p_Old_Periodicities
2652: ,x_return_status => x_return_status
2653: ,x_msg_count => x_msg_count
2654: ,x_msg_data => x_msg_data
2655: );
2656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659:
2660: Check_Default_Record_Data_Tbls (
2653: ,x_msg_count => x_msg_count
2654: ,x_msg_data => x_msg_data
2655: );
2656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659:
2660: Check_Default_Record_Data_Tbls (
2661: p_commit => FND_API.G_FALSE
2657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659:
2660: Check_Default_Record_Data_Tbls (
2661: p_commit => FND_API.G_FALSE
2662: ,p_Target_Indicator => l_Target_Indicator
2663: ,x_return_status => x_return_status
2664: ,x_msg_count => x_msg_count
2665: ,x_msg_data => x_msg_data
2663: ,x_return_status => x_return_status
2664: ,x_msg_count => x_msg_count
2665: ,x_msg_data => x_msg_data
2666: );
2667: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671: Check_Profit_Loss_Properties (
2664: ,x_msg_count => x_msg_count
2665: ,x_msg_data => x_msg_data
2666: );
2667: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671: Check_Profit_Loss_Properties (
2672: p_commit => FND_API.G_FALSE
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671: Check_Profit_Loss_Properties (
2672: p_commit => FND_API.G_FALSE
2673: ,p_Target_Indicator => l_Target_Indicator
2674: ,x_return_status => x_return_status
2675: ,x_msg_count => x_msg_count
2676: ,x_msg_data => x_msg_data
2674: ,x_return_status => x_return_status
2675: ,x_msg_count => x_msg_count
2676: ,x_msg_data => x_msg_data
2677: );
2678: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2680: END IF;
2681:
2682:
2675: ,x_msg_count => x_msg_count
2676: ,x_msg_data => x_msg_data
2677: );
2678: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2680: END IF;
2681:
2682:
2683: IF l_Short_Name IS NOT NULL THEN
2681:
2682:
2683: IF l_Short_Name IS NOT NULL THEN
2684: BSC_MIGRATION.Migrate_Sim_Data (
2685: p_commit => FND_API.G_FALSE
2686: ,p_Src_indicator => p_Source_Indicator
2687: ,p_Trg_indicator => l_Target_Indicator
2688: ,p_Region_Code => l_Region_Code
2689: ,p_Old_Region_Code => l_Short_Name
2699: ,x_return_status => x_return_status
2700: ,x_msg_count => x_msg_count
2701: ,x_msg_data => x_msg_data
2702: );
2703: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2705: END IF;
2706: END IF;
2707:
2700: ,x_msg_count => x_msg_count
2701: ,x_msg_data => x_msg_data
2702: );
2703: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2705: END IF;
2706: END IF;
2707:
2708: END IF;
2707:
2708: END IF;
2709:
2710: Reposition_Indicator (
2711: p_commit => FND_API.G_FALSE
2712: ,p_Indicator => l_Target_Indicator
2713: ,p_New_Indicator_Group => p_Target_Group
2714: ,p_New_Position => p_New_Position
2715: ,x_return_status => x_return_status
2715: ,x_return_status => x_return_status
2716: ,x_msg_count => x_msg_count
2717: ,x_msg_data => x_msg_data
2718: );
2719: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2722:
2723: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_Target_Indicator;
2716: ,x_msg_count => x_msg_count
2717: ,x_msg_data => x_msg_data
2718: );
2719: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2722:
2723: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_Target_Indicator;
2724:
2722:
2723: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_Target_Indicator;
2724:
2725: BSC_KPI_PUB.Update_Kpi_Time_Stamp
2726: ( p_commit => FND_API.G_FALSE
2727: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
2728: , x_return_status => x_return_status
2729: , x_msg_count => x_msg_count
2730: , x_msg_data => x_msg_data
2728: , x_return_status => x_return_status
2729: , x_msg_count => x_msg_count
2730: , x_msg_data => x_msg_data
2731: );
2732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2734: END IF;
2735:
2736: IF (p_commit = FND_API.G_TRUE) THEN
2729: , x_msg_count => x_msg_count
2730: , x_msg_data => x_msg_data
2731: );
2732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2734: END IF;
2735:
2736: IF (p_commit = FND_API.G_TRUE) THEN
2737: COMMIT;
2732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2734: END IF;
2735:
2736: IF (p_commit = FND_API.G_TRUE) THEN
2737: COMMIT;
2738: END IF;
2739:
2740: EXCEPTION
2737: COMMIT;
2738: END IF;
2739:
2740: EXCEPTION
2741: WHEN FND_API.G_EXC_ERROR THEN
2742: ROLLBACK TO BscCopyIndicatorUIWrap;
2743: IF (x_msg_data IS NULL) THEN
2744: FND_MSG_PUB.Count_And_Get
2745: ( p_encoded => FND_API.G_FALSE
2741: WHEN FND_API.G_EXC_ERROR THEN
2742: ROLLBACK TO BscCopyIndicatorUIWrap;
2743: IF (x_msg_data IS NULL) THEN
2744: FND_MSG_PUB.Count_And_Get
2745: ( p_encoded => FND_API.G_FALSE
2746: , p_count => x_msg_count
2747: , p_data => x_msg_data
2748: );
2749: END IF;
2746: , p_count => x_msg_count
2747: , p_data => x_msg_data
2748: );
2749: END IF;
2750: x_return_status := FND_API.G_RET_STS_ERROR;
2751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2752: ROLLBACK TO BscCopyIndicatorUIWrap;
2753: IF (x_msg_data IS NULL) THEN
2754: FND_MSG_PUB.Count_And_Get
2747: , p_data => x_msg_data
2748: );
2749: END IF;
2750: x_return_status := FND_API.G_RET_STS_ERROR;
2751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2752: ROLLBACK TO BscCopyIndicatorUIWrap;
2753: IF (x_msg_data IS NULL) THEN
2754: FND_MSG_PUB.Count_And_Get
2755: ( p_encoded => FND_API.G_FALSE
2751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2752: ROLLBACK TO BscCopyIndicatorUIWrap;
2753: IF (x_msg_data IS NULL) THEN
2754: FND_MSG_PUB.Count_And_Get
2755: ( p_encoded => FND_API.G_FALSE
2756: , p_count => x_msg_count
2757: , p_data => x_msg_data
2758: );
2759: END IF;
2756: , p_count => x_msg_count
2757: , p_data => x_msg_data
2758: );
2759: END IF;
2760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2761: WHEN NO_DATA_FOUND THEN
2762: ROLLBACK TO BscCopyIndicatorUIWrap;
2763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2764: IF (x_msg_data IS NOT NULL) THEN
2759: END IF;
2760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2761: WHEN NO_DATA_FOUND THEN
2762: ROLLBACK TO BscCopyIndicatorUIWrap;
2763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2764: IF (x_msg_data IS NOT NULL) THEN
2765: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.CopyNew_Indicator_UI_Wrap ';
2766: ELSE
2767: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.CopyNew_Indicator_UI_Wrap ';
2767: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.CopyNew_Indicator_UI_Wrap ';
2768: END IF;
2769: WHEN OTHERS THEN
2770: ROLLBACK TO BscCopyIndicatorUIWrap;
2771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2772: IF (x_msg_data IS NOT NULL) THEN
2773: x_msg_data := x_msg_data || ' -> BSC_COPY_INDICATOR_PUB.CopyNew_Indicator_UI_Wrap ';
2774: ELSE
2775: x_msg_data := SQLERRM || ' at BSC_COPY_INDICATOR_PUB.CopyNew_Indicator_UI_Wrap ';