120: , x_msg_data OUT NOCOPY VARCHAR2
121: )RETURN BOOLEAN;
122: /*******************************************************************/
123: PROCEDURE Create_Dim_Grp_Lev_In_Dset
124: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
125: , p_kpi_id IN NUMBER
126: , p_dim_set_id IN NUMBER
127: , p_dim_short_names IN VARCHAR2
128: , x_return_status OUT NOCOPY VARCHAR2
178: ,x_return_status => x_return_status
179: ,x_msg_count => x_msg_count
180: ,x_msg_data => x_msg_data
181: );
182: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
179: ,x_msg_count => x_msg_count
180: ,x_msg_data => x_msg_data
181: );
182: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
187: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels (
184: END IF;
185:
186: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
187: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels (
188: p_commit => FND_API.G_FALSE
189: ,p_Dim_Set_Rec => l_Dim_Set_Rec
190: ,x_return_status => x_return_status
191: ,x_msg_count => x_msg_count
192: ,x_msg_data => x_msg_data
190: ,x_return_status => x_return_status
191: ,x_msg_count => x_msg_count
192: ,x_msg_data => x_msg_data
193: );
194: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: --Update bsc_kpi_dim_level_properties with the default_key_value
191: ,x_msg_count => x_msg_count
192: ,x_msg_data => x_msg_data
193: );
194: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: --Update bsc_kpi_dim_level_properties with the default_key_value
199: BSC_DIMENSION_SETS_PUB.Retrieve_Dim_Level_Properties (
202: ,x_return_status => x_return_status
203: ,x_msg_count => x_msg_count
204: ,x_msg_data => x_msg_data
205: );
206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
209: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
210: BSC_DIMENSION_SETS_PUB.Update_Dim_Level_Properties (
203: ,x_msg_count => x_msg_count
204: ,x_msg_data => x_msg_data
205: );
206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
209: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
210: BSC_DIMENSION_SETS_PUB.Update_Dim_Level_Properties (
211: p_commit => FND_API.G_FALSE
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
209: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
210: BSC_DIMENSION_SETS_PUB.Update_Dim_Level_Properties (
211: p_commit => FND_API.G_FALSE
212: ,p_Dim_Set_Rec => l_Dim_Set_Rec
213: ,x_return_status => x_return_status
214: ,x_msg_count => x_msg_count
215: ,x_msg_data => x_msg_data
213: ,x_return_status => x_return_status
214: ,x_msg_count => x_msg_count
215: ,x_msg_data => x_msg_data
216: );
217: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220:
221: EXCEPTION
214: ,x_msg_count => x_msg_count
215: ,x_msg_data => x_msg_data
216: );
217: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220:
221: EXCEPTION
222: WHEN FND_API.G_EXC_ERROR THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220:
221: EXCEPTION
222: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.Count_And_Get
224: ( p_encoded => FND_API.G_FALSE
225: , p_count => x_msg_count
226: , p_data => x_msg_data
220:
221: EXCEPTION
222: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.Count_And_Get
224: ( p_encoded => FND_API.G_FALSE
225: , p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228: x_return_status := FND_API.G_RET_STS_ERROR;
224: ( p_encoded => FND_API.G_FALSE
225: , p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: FND_MSG_PUB.Count_And_Get
231: ( p_encoded => FND_API.G_FALSE
232: , p_count => x_msg_count
225: , p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: FND_MSG_PUB.Count_And_Get
231: ( p_encoded => FND_API.G_FALSE
232: , p_count => x_msg_count
233: , p_data => x_msg_data
227: );
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: FND_MSG_PUB.Count_And_Get
231: ( p_encoded => FND_API.G_FALSE
232: , p_count => x_msg_count
233: , p_data => x_msg_data
234: );
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231: ( p_encoded => FND_API.G_FALSE
232: , p_count => x_msg_count
233: , p_data => x_msg_data
234: );
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
233: , p_data => x_msg_data
234: );
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
240: ELSE
241: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
240: ELSE
241: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
242: END IF;
243: WHEN OTHERS THEN
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245: IF (x_msg_data IS NOT NULL) THEN
246: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
247: ELSE
248: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
283: ) IS
284: l_Count NUMBER := -1;
285: BEGIN
286: FND_MSG_PUB.Initialize;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids Procedure');
289: x_Parent_Option_ID := p_Parent_Option_ID;
290: x_GrandParent_Option_ID := p_GrandParent_Option_ID;
291:
340: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT1', p_Option_ID);
341: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT2', p_Parent_Option_ID);
342: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT3', p_GrandParent_Option_ID);
343: FND_MSG_PUB.ADD;
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: IF (x_msg_data IS NULL) THEN
350: FND_MSG_PUB.Count_And_Get
351: ( p_encoded => FND_API.G_FALSE
352: , p_count => x_msg_count
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: IF (x_msg_data IS NULL) THEN
350: FND_MSG_PUB.Count_And_Get
351: ( p_encoded => FND_API.G_FALSE
352: , p_count => x_msg_count
353: , p_data => x_msg_data
354: );
355: END IF;
352: , p_count => x_msg_count
353: , p_data => x_msg_data
354: );
355: END IF;
356: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF (x_msg_data IS NOT NULL) THEN
353: , p_data => x_msg_data
354: );
355: END IF;
356: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF (x_msg_data IS NOT NULL) THEN
361: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
355: END IF;
356: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF (x_msg_data IS NOT NULL) THEN
361: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
362: ELSE
363: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
387: END LOOP;
388: END store_kpi_anal_group;
389: /*******************************************************************/
390: PROCEDURE Create_Default_Kpi_Dim_Object
391: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
392: , p_kpi_id IN NUMBER
393: , p_dim_set_id IN NUMBER
394: , x_return_status OUT NOCOPY VARCHAR2
395: , x_msg_count OUT NOCOPY NUMBER
416: AND Dim_Set_Id = l_bsc_dimset_rec.Bsc_Dim_Set_Id;
417: IF (l_Count = 0) THEN
418: -- Bug #3343860 if l_Count = 0, it means create default entry in BSC_KPI_DIM_LEVELS_B
419: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
420: ( p_commit => FND_API.G_FALSE
421: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
422: , p_dim_set_id => l_bsc_dimset_rec.Bsc_Dim_Set_Id
423: , p_dim_short_names => NULL
424: , x_return_status => x_return_status
424: , x_return_status => x_return_status
425: , x_msg_count => x_msg_count
426: , x_msg_data => x_msg_data
427: );
428: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
429: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
431: END IF;
432: --repeat the same steps for all the shared indicators
426: , x_msg_data => x_msg_data
427: );
428: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
429: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
431: END IF;
432: --repeat the same steps for all the shared indicators
433: FOR cd IN c_kpi_ids LOOP
434: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
432: --repeat the same steps for all the shared indicators
433: FOR cd IN c_kpi_ids LOOP
434: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
435: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
436: ( p_commit => FND_API.G_FALSE
437: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
438: , p_dim_set_id => l_bsc_dimset_rec.Bsc_Dim_Set_Id
439: , p_dim_short_names => NULL
440: , x_return_status => x_return_status
440: , x_return_status => x_return_status
441: , x_msg_count => x_msg_count
442: , x_msg_data => x_msg_data
443: );
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: END LOOP;
442: , x_msg_data => x_msg_data
443: );
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: END LOOP;
449: END IF;
450: IF (p_commit = FND_API.G_TRUE) THEN
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: END LOOP;
449: END IF;
450: IF (p_commit = FND_API.G_TRUE) THEN
451: COMMIT;
452: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
453: END IF;
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: IF (p_commit = FND_API.G_TRUE) THEN
451: COMMIT;
452: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
453: END IF;
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object procedure');
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO CreateBSCDefDimObjectsPMD;
453: END IF;
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object procedure');
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO CreateBSCDefDimObjectsPMD;
459: IF (x_msg_data IS NULL) THEN
460: FND_MSG_PUB.Count_And_Get
461: ( p_encoded => FND_API.G_FALSE
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO CreateBSCDefDimObjectsPMD;
459: IF (x_msg_data IS NULL) THEN
460: FND_MSG_PUB.Count_And_Get
461: ( p_encoded => FND_API.G_FALSE
462: , p_count => x_msg_count
463: , p_data => x_msg_data
464: );
465: END IF;
462: , p_count => x_msg_count
463: , p_data => x_msg_data
464: );
465: END IF;
466: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: ROLLBACK TO CreateBSCDefDimObjectsPMD;
470: IF (x_msg_data IS NULL) THEN
463: , p_data => x_msg_data
464: );
465: END IF;
466: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: ROLLBACK TO CreateBSCDefDimObjectsPMD;
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
464: );
465: END IF;
466: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: ROLLBACK TO CreateBSCDefDimObjectsPMD;
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: ROLLBACK TO CreateBSCDefDimObjectsPMD;
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
473: , p_count => x_msg_count
474: , p_data => x_msg_data
475: );
476: END IF;
473: , p_count => x_msg_count
474: , p_data => x_msg_data
475: );
476: END IF;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
479: WHEN NO_DATA_FOUND THEN
480: ROLLBACK TO CreateBSCDefDimObjectsPMD;
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474: , p_data => x_msg_data
475: );
476: END IF;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
479: WHEN NO_DATA_FOUND THEN
480: ROLLBACK TO CreateBSCDefDimObjectsPMD;
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482: IF (x_msg_data IS NOT NULL) THEN
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
479: WHEN NO_DATA_FOUND THEN
480: ROLLBACK TO CreateBSCDefDimObjectsPMD;
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482: IF (x_msg_data IS NOT NULL) THEN
483: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
484: ELSE
485: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
486: END IF;
487: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
488: WHEN OTHERS THEN
489: ROLLBACK TO CreateBSCDefDimObjectsPMD;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF (x_msg_data IS NOT NULL) THEN
492: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
493: ELSE
494: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
496: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
497: END Create_Default_Kpi_Dim_Object;
498: /*******************************************************************/
499: PROCEDURE Delete_Default_Kpi_Dim_Object
500: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
501: , p_kpi_id IN NUMBER
502: , p_dim_set_id IN NUMBER
503: , x_return_status OUT NOCOPY VARCHAR2
504: , x_msg_count OUT NOCOPY NUMBER
520: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
521:
522: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
523: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
524: ( p_commit => FND_API.G_FALSE
525: , p_Dim_Set_Rec => l_bsc_dimset_rec
526: , x_return_status => x_return_status
527: , x_msg_count => x_msg_count
528: , x_msg_data => x_msg_data
526: , x_return_status => x_return_status
527: , x_msg_count => x_msg_count
528: , x_msg_data => x_msg_data
529: );
530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
531: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Group_In_Dset');
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
528: , x_msg_data => x_msg_data
529: );
530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
531: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Group_In_Dset');
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: --repeat the same steps for all the shared indicators
536: FOR cd IN c_kpi_ids LOOP
535: --repeat the same steps for all the shared indicators
536: FOR cd IN c_kpi_ids LOOP
537: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
538: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
539: ( p_commit => FND_API.G_FALSE
540: , p_Dim_Set_Rec => l_bsc_dimset_rec
541: , x_return_status => x_return_status
542: , x_msg_count => x_msg_count
543: , x_msg_data => x_msg_data
541: , x_return_status => x_return_status
542: , x_msg_count => x_msg_count
543: , x_msg_data => x_msg_data
544: );
545: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
546: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END LOOP;
543: , x_msg_data => x_msg_data
544: );
545: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
546: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END LOOP;
550: IF (p_commit = FND_API.G_TRUE) THEN
551: COMMIT;
546: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END LOOP;
550: IF (p_commit = FND_API.G_TRUE) THEN
551: COMMIT;
552: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
553: END IF;
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
550: IF (p_commit = FND_API.G_TRUE) THEN
551: COMMIT;
552: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
553: END IF;
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object procedure');
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO CreateBSCDefDimObjectsPMD;
553: END IF;
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object procedure');
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO CreateBSCDefDimObjectsPMD;
559: IF (x_msg_data IS NULL) THEN
560: FND_MSG_PUB.Count_And_Get
561: ( p_encoded => FND_API.G_FALSE
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO CreateBSCDefDimObjectsPMD;
559: IF (x_msg_data IS NULL) THEN
560: FND_MSG_PUB.Count_And_Get
561: ( p_encoded => FND_API.G_FALSE
562: , p_count => x_msg_count
563: , p_data => x_msg_data
564: );
565: END IF;
562: , p_count => x_msg_count
563: , p_data => x_msg_data
564: );
565: END IF;
566: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO CreateBSCDefDimObjectsPMD;
570: IF (x_msg_data IS NULL) THEN
563: , p_data => x_msg_data
564: );
565: END IF;
566: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO CreateBSCDefDimObjectsPMD;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
564: );
565: END IF;
566: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO CreateBSCDefDimObjectsPMD;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
572: ( p_encoded => FND_API.G_FALSE
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO CreateBSCDefDimObjectsPMD;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
572: ( p_encoded => FND_API.G_FALSE
573: , p_count => x_msg_count
574: , p_data => x_msg_data
575: );
576: END IF;
573: , p_count => x_msg_count
574: , p_data => x_msg_data
575: );
576: END IF;
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO CreateBSCDefDimObjectsPMD;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: , p_data => x_msg_data
575: );
576: END IF;
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO CreateBSCDefDimObjectsPMD;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO CreateBSCDefDimObjectsPMD;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
583: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
584: ELSE
585: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
586: END IF;
587: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
588: WHEN OTHERS THEN
589: ROLLBACK TO CreateBSCDefDimObjectsPMD;
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: IF (x_msg_data IS NOT NULL) THEN
592: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
593: ELSE
594: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
598: /*******************************************************************
599: PROCEUDRE to Orders Dimensions in Dimension Sets
600: *******************************************************************/
601: PROCEDURE Order_Dims_In_DSets
602: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
603: , p_kpi_id IN NUMBER
604: , p_dim_set_id IN NUMBER
605: , p_dim_short_names IN VARCHAR2
606: , p_kpi_flag_change IN BOOLEAN
643: BEGIN
644: SAVEPOINT OrderBSCDimsInDSetPMD;
645: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
646: FND_MSG_PUB.Initialize;
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
649: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
650:
651: FOR cd IN c_dim_index LOOP
679: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Index := l_current_index;
680: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
681: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
682: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
683: ( p_commit => FND_API.G_FALSE
684: , p_Dim_Set_Rec => l_bsc_dimset_rec
685: , p_create_Dim_Lev_Grp => FALSE
686: , x_return_status => x_return_status
687: , x_msg_count => x_msg_count
686: , x_return_status => x_return_status
687: , x_msg_count => x_msg_count
688: , x_msg_data => x_msg_data
689: );
690: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
691: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: --for shared KPIs
688: , x_msg_data => x_msg_data
689: );
690: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
691: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: --for shared KPIs
695: FOR cd IN c_kpi_ids LOOP
696: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
694: --for shared KPIs
695: FOR cd IN c_kpi_ids LOOP
696: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
697: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
698: ( p_commit => FND_API.G_FALSE
699: , p_Dim_Set_Rec => l_bsc_dimset_rec
700: , p_create_Dim_Lev_Grp => FALSE
701: , x_return_status => x_return_status
702: , x_msg_count => x_msg_count
701: , x_return_status => x_return_status
702: , x_msg_count => x_msg_count
703: , x_msg_data => x_msg_data
704: );
705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
706: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709: END LOOP;
703: , x_msg_data => x_msg_data
704: );
705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
706: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709: END LOOP;
710: END IF;
711: l_current_index := l_current_index + 1;
720: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Index := l_current_index;
721: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
722: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
723: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
724: ( p_commit => FND_API.G_FALSE
725: , p_Dim_Set_Rec => l_bsc_dimset_rec
726: , p_create_Dim_Lev_Grp => FALSE
727: , x_return_status => x_return_status
728: , x_msg_count => x_msg_count
727: , x_return_status => x_return_status
728: , x_msg_count => x_msg_count
729: , x_msg_data => x_msg_data
730: );
731: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
732: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735: --for shared KPIs
729: , x_msg_data => x_msg_data
730: );
731: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
732: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735: --for shared KPIs
736: FOR cd IN c_kpi_ids LOOP
737: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
735: --for shared KPIs
736: FOR cd IN c_kpi_ids LOOP
737: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
738: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
739: ( p_commit => FND_API.G_FALSE
740: , p_Dim_Set_Rec => l_bsc_dimset_rec
741: , p_create_Dim_Lev_Grp => FALSE
742: , x_return_status => x_return_status
743: , x_msg_count => x_msg_count
742: , x_return_status => x_return_status
743: , x_msg_count => x_msg_count
744: , x_msg_data => x_msg_data
745: );
746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
747: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: END IF;
750: END LOOP;
744: , x_msg_data => x_msg_data
745: );
746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
747: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: END IF;
750: END LOOP;
751: END IF;
752: l_current_index := l_current_index + 1;
755: END LOOP;
756: IF ((p_kpi_flag_change) OR (l_refresh)) THEN
757: --dbms_output.PUT_LINE('p_kpi_flag_change is TRUE, it means flag structural changes also');
758: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
759: ( p_commit => FND_API.G_FALSE
760: , p_kpi_id => p_kpi_id
761: , p_dim_set_id => p_dim_set_id
762: , p_delete => TRUE
763: , x_return_status => x_return_status
763: , x_return_status => x_return_status
764: , x_msg_count => x_msg_count
765: , x_msg_data => x_msg_data
766: );
767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
768: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /* ELSIF (l_refresh) THEN
765: , x_msg_data => x_msg_data
766: );
767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
768: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /* ELSIF (l_refresh) THEN
772: --dbms_output.PUT_LINE('Refresh is TRUE');
773: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
770: END IF;
771: /* ELSIF (l_refresh) THEN
772: --dbms_output.PUT_LINE('Refresh is TRUE');
773: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
774: ( p_commit => FND_API.G_FALSE
775: , p_kpi_id => p_kpi_id
776: , p_dim_set_id => p_dim_set_id
777: , p_kpi_flag_change => BSC_DESIGNER_PVT.G_ActionFlag.Normal
778: , p_delete => TRUE
779: , x_return_status => x_return_status
780: , x_msg_count => x_msg_count
781: , x_msg_data => x_msg_data
782: );
783: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
784: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF; */
787: END IF;
781: , x_msg_data => x_msg_data
782: );
783: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
784: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF; */
787: END IF;
788: IF (p_commit = FND_API.G_TRUE) THEN
789: COMMIT;
784: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF; */
787: END IF;
788: IF (p_commit = FND_API.G_TRUE) THEN
789: COMMIT;
790: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
791: END IF;
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
788: IF (p_commit = FND_API.G_TRUE) THEN
789: COMMIT;
790: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
791: END IF;
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO OrderBSCDimsInDSetPMD;
791: END IF;
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO OrderBSCDimsInDSetPMD;
797: IF (x_msg_data IS NULL) THEN
798: FND_MSG_PUB.Count_And_Get
799: ( p_encoded => FND_API.G_FALSE
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO OrderBSCDimsInDSetPMD;
797: IF (x_msg_data IS NULL) THEN
798: FND_MSG_PUB.Count_And_Get
799: ( p_encoded => FND_API.G_FALSE
800: , p_count => x_msg_count
801: , p_data => x_msg_data
802: );
803: END IF;
800: , p_count => x_msg_count
801: , p_data => x_msg_data
802: );
803: END IF;
804: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO OrderBSCDimsInDSetPMD;
808: IF (x_msg_data IS NULL) THEN
801: , p_data => x_msg_data
802: );
803: END IF;
804: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO OrderBSCDimsInDSetPMD;
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
802: );
803: END IF;
804: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO OrderBSCDimsInDSetPMD;
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
810: ( p_encoded => FND_API.G_FALSE
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO OrderBSCDimsInDSetPMD;
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
810: ( p_encoded => FND_API.G_FALSE
811: , p_count => x_msg_count
812: , p_data => x_msg_data
813: );
814: END IF;
811: , p_count => x_msg_count
812: , p_data => x_msg_data
813: );
814: END IF;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
817: WHEN NO_DATA_FOUND THEN
818: ROLLBACK TO OrderBSCDimsInDSetPMD;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
812: , p_data => x_msg_data
813: );
814: END IF;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
817: WHEN NO_DATA_FOUND THEN
818: ROLLBACK TO OrderBSCDimsInDSetPMD;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF (x_msg_data IS NOT NULL) THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
817: WHEN NO_DATA_FOUND THEN
818: ROLLBACK TO OrderBSCDimsInDSetPMD;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF (x_msg_data IS NOT NULL) THEN
821: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
822: ELSE
823: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
824: END IF;
825: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
826: WHEN OTHERS THEN
827: ROLLBACK TO OrderBSCDimsInDSetPMD;
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829: IF (x_msg_data IS NOT NULL) THEN
830: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
831: ELSE
832: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
967: --dbms_output.PUT_LINE('*** l_view_by <'||x_view_bys||'>');
968: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
969: EXCEPTION
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: IF (x_msg_data IS NOT NULL) THEN
973: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
974: ELSE
975: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
1014: l_flag BOOLEAN;
1015: BEGIN
1016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1017: FND_MSG_PUB.Initialize;
1018: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: l_Region_Code := p_Region_Code;
1020: IF (p_Region_Code IS NULL) THEN
1021: BSC_JV_PMF.get_Pmf_Measure
1022: ( p_Measure_ShortName => p_Measure_Short_Name
1022: ( p_Measure_ShortName => p_Measure_Short_Name
1023: , x_function_name => l_function_code
1024: , x_region_code => l_Region_Code
1025: );
1026: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1027: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_Dimensions_In_Meas Failed: at BSC_JV_PMF.get_Pmf_Measure');
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1024: , x_region_code => l_Region_Code
1025: );
1026: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1027: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_Dimensions_In_Meas Failed: at BSC_JV_PMF.get_Pmf_Measure');
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1031: BIS_PMV_BSC_API_PUB.Get_Dimlevel_Viewby
1032: ( p_api_version => 1
1036: , x_return_status => x_return_status
1037: , x_msg_count => x_msg_count
1038: , x_msg_data => x_msg_data
1039: );
1040: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1041: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Failed: at BIS_PMV_BSC_API_PUB.Get_Dimlevel_Viewby');
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1043: END IF;
1044: FOR i IN 1..l_DimObj_ViewBy_Tbl.COUNT LOOP
1038: , x_msg_data => x_msg_data
1039: );
1040: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1041: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Failed: at BIS_PMV_BSC_API_PUB.Get_Dimlevel_Viewby');
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1043: END IF;
1044: FOR i IN 1..l_DimObj_ViewBy_Tbl.COUNT LOOP
1045: l_flag := TRUE;
1046: l_dimension := TRIM(SUBSTR(l_DimObj_ViewBy_Tbl(i).Dim_DimLevel, 1, (INSTR(l_DimObj_ViewBy_Tbl(i).Dim_DimLevel, '+') - 1)));
1099: END IF;
1100: END LOOP;*/
1101: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1102: EXCEPTION
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1105: IF (x_msg_data IS NULL) THEN
1106: FND_MSG_PUB.Count_And_Get
1107: ( p_encoded => FND_API.G_FALSE
1100: END LOOP;*/
1101: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1102: EXCEPTION
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1105: IF (x_msg_data IS NULL) THEN
1106: FND_MSG_PUB.Count_And_Get
1107: ( p_encoded => FND_API.G_FALSE
1108: , p_count => x_msg_count
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1105: IF (x_msg_data IS NULL) THEN
1106: FND_MSG_PUB.Count_And_Get
1107: ( p_encoded => FND_API.G_FALSE
1108: , p_count => x_msg_count
1109: , p_data => x_msg_data
1110: );
1111: END IF;
1108: , p_count => x_msg_count
1109: , p_data => x_msg_data
1110: );
1111: END IF;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: WHEN OTHERS THEN
1114: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: IF (x_msg_data IS NOT NULL) THEN
1111: END IF;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: WHEN OTHERS THEN
1114: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: IF (x_msg_data IS NOT NULL) THEN
1117: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1118: ELSE
1119: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1146: /*******************************************************************
1147: PROCEUDRE TO REMOVE THE UNUSED PMF DIMENSION
1148: *******************************************************************/
1149: PROCEDURE Remove_Unused_PMF_Dimenison
1150: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1151: , p_Kpi_Id IN NUMBER
1152: , p_dim_set_id IN NUMBER
1153: , x_return_status OUT NOCOPY VARCHAR2
1154: , x_msg_count OUT NOCOPY NUMBER
1175: AND A.Dim_Group_ID = l_dimension_id;
1176: BEGIN
1177: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1178: FND_MSG_PUB.Initialize;
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: IF (p_dim_set_id IS NOT NULL) THEN
1181: --dbms_output.PUT_LINE('dim set id is not NULL should not be here ..... ');
1182: FOR cd IN c_dim_set_ind LOOP
1183: l_dimension_id := cd.Dim_Group_Id;
1203: , x_return_status => x_return_status
1204: , x_msg_count => x_msg_count
1205: , x_msg_data => x_msg_data
1206: );
1207: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1208: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Failed');
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211: -- END Granular Locking
1205: , x_msg_data => x_msg_data
1206: );
1207: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1208: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Failed');
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211: -- END Granular Locking
1212: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
1213: ( p_commit => FND_API.G_FALSE
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211: -- END Granular Locking
1212: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
1213: ( p_commit => FND_API.G_FALSE
1214: , p_kpi_id => p_Kpi_Id
1215: , p_dim_set_id => p_dim_set_id
1216: , p_dim_short_names => l_temp_var
1217: , p_time_stamp => NULL
1218: , x_return_status => x_return_status
1219: , x_msg_count => x_msg_count
1220: , x_msg_data => x_msg_data
1221: );
1222: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1223: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: --now delete the dimension from system level, ie from BSC_SYS_DIM_GROUPS_TL table
1220: , x_msg_data => x_msg_data
1221: );
1222: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1223: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: --now delete the dimension from system level, ie from BSC_SYS_DIM_GROUPS_TL table
1227: BSC_BIS_DIMENSION_PUB.Delete_Dimension
1228: ( p_commit => FND_API.G_FALSE
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: --now delete the dimension from system level, ie from BSC_SYS_DIM_GROUPS_TL table
1227: BSC_BIS_DIMENSION_PUB.Delete_Dimension
1228: ( p_commit => FND_API.G_FALSE
1229: , p_dim_short_name => l_temp_var
1230: , x_return_status => x_return_status
1231: , x_msg_count => x_msg_count
1232: , x_msg_data => x_msg_data
1230: , x_return_status => x_return_status
1231: , x_msg_count => x_msg_count
1232: , x_msg_data => x_msg_data
1233: );
1234: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Delete_Dimension');
1236: x_return_status := FND_API.G_RET_STS_SUCCESS;
1237: x_msg_data := NULL;
1238: END IF;
1232: , x_msg_data => x_msg_data
1233: );
1234: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Delete_Dimension');
1236: x_return_status := FND_API.G_RET_STS_SUCCESS;
1237: x_msg_data := NULL;
1238: END IF;
1239: END IF;
1240: END LOOP;
1238: END IF;
1239: END IF;
1240: END LOOP;
1241: END IF;
1242: IF (p_commit = FND_API.G_TRUE) THEN
1243: COMMIT;
1244: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242: IF (p_commit = FND_API.G_TRUE) THEN
1243: COMMIT;
1244: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (x_msg_data IS NULL) THEN
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (x_msg_data IS NULL) THEN
1251: FND_MSG_PUB.Count_And_Get
1252: ( p_encoded => FND_API.G_FALSE
1253: , p_count => x_msg_count
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (x_msg_data IS NULL) THEN
1251: FND_MSG_PUB.Count_And_Get
1252: ( p_encoded => FND_API.G_FALSE
1253: , p_count => x_msg_count
1254: , p_data => x_msg_data
1255: );
1256: END IF;
1253: , p_count => x_msg_count
1254: , p_data => x_msg_data
1255: );
1256: END IF;
1257: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: IF (x_msg_data IS NULL) THEN
1261: FND_MSG_PUB.Count_And_Get
1254: , p_data => x_msg_data
1255: );
1256: END IF;
1257: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: IF (x_msg_data IS NULL) THEN
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_encoded => FND_API.G_FALSE
1255: );
1256: END IF;
1257: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: IF (x_msg_data IS NULL) THEN
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_encoded => FND_API.G_FALSE
1263: , p_count => x_msg_count
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: IF (x_msg_data IS NULL) THEN
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_encoded => FND_API.G_FALSE
1263: , p_count => x_msg_count
1264: , p_data => x_msg_data
1265: );
1266: END IF;
1263: , p_count => x_msg_count
1264: , p_data => x_msg_data
1265: );
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1268: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1269: WHEN NO_DATA_FOUND THEN
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: IF (x_msg_data IS NOT NULL) THEN
1264: , p_data => x_msg_data
1265: );
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1268: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1269: WHEN NO_DATA_FOUND THEN
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: IF (x_msg_data IS NOT NULL) THEN
1272: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1268: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1269: WHEN NO_DATA_FOUND THEN
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: IF (x_msg_data IS NOT NULL) THEN
1272: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1273: ELSE
1274: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1274: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1275: END IF;
1276: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1277: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: IF (x_msg_data IS NOT NULL) THEN
1280: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1281: ELSE
1282: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1287: /*******************************************************************
1288: PROCEUDRE to SET Defaults for PMF Dimension Levels
1289: *******************************************************************/
1290: PROCEDURE Get_PMF_Defaults
1291: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1292: , p_data_set_id IN NUMBER
1293: , p_measure_short_name IN VARCHAR2
1294: , p_dim_obj_short_names IN VARCHAR2
1295: , p_default_short_names IN VARCHAR2
1308: l_dim_obj_name BSC_SYS_DIM_LEVELS_B.Short_Name%TYPE;
1309: BEGIN
1310: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1311: FND_MSG_PUB.Initialize;
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313: x_dim_obj_short_names := p_dim_obj_short_names;
1314: x_default_short_names := p_default_short_names;
1315: x_view_by_name := p_view_by_name;
1316: x_measure_short_name := p_measure_short_name;
1334: , x_msg_count => x_msg_count
1335: , x_msg_data => x_msg_data
1336: );
1337: --dbms_output.PUT_LINE(' fetched the PMV table .....!');
1338: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1339: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: IF (x_dim_obj_short_names IS NULL) THEN
1336: );
1337: --dbms_output.PUT_LINE(' fetched the PMV table .....!');
1338: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1339: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: IF (x_dim_obj_short_names IS NULL) THEN
1343: BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure
1344: ( p_DimObj_ViewBy_Tbl => l_DimObj_ViewBy_Tbl
1351: );
1352: --dbms_output.PUT_LINE(' fetched the default and view by .....!');
1353: --dbms_output.PUT_LINE('-* Defaults *- '||x_default_short_names);
1354: --dbms_output.PUT_LINE('-* view by *- '||x_view_by_name);
1355: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1356: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure');
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359: END IF;
1353: --dbms_output.PUT_LINE('-* Defaults *- '||x_default_short_names);
1354: --dbms_output.PUT_LINE('-* view by *- '||x_view_by_name);
1355: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1356: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure');
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359: END IF;
1360: IF (x_view_by_name IS NULL) THEN
1361: l_flag := FALSE;
1397: /*ELSE
1398: --dbms_output.PUT_LINE('view by problem');
1399: FND_MESSAGE.SET_NAME('BSC','BSC_VIEW_BY_REQUIRED');
1400: FND_MSG_PUB.ADD;
1401: RAISE FND_API.G_EXC_ERROR;*/
1402: END IF;
1403: END IF;
1404: END IF;
1405: -- WHY IS THIS REQUIRED ** ask Pankaj
1445: END IF;
1446: IF(NOT l_flag) THEN
1447: FND_MESSAGE.SET_NAME('BSC','BSC_TIME_DIM_REQUIRED');
1448: FND_MSG_PUB.ADD;
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451: END IF;
1452: -- changed this code so that view by and default dimension are
1453: -- set properly when finish pressed on 1,2 page in 3 step process
1466: IF (INSTR(x_dim_obj_short_names, l_dim_obj_name) = 0 ) THEN
1467: x_dim_obj_short_names := x_dim_obj_short_names||', '||l_dim_obj_name;
1468: END IF;
1469: END LOOP;
1470: IF (p_commit = FND_API.G_TRUE) THEN
1471: COMMIT;
1472: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_SUCCESS;
1470: IF (p_commit = FND_API.G_TRUE) THEN
1471: COMMIT;
1472: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_SUCCESS;
1475: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1476: EXCEPTION
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (x_msg_data IS NULL) THEN
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_SUCCESS;
1475: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1476: EXCEPTION
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (x_msg_data IS NULL) THEN
1479: FND_MSG_PUB.Count_And_Get
1480: ( p_encoded => FND_API.G_FALSE
1481: , p_count => x_msg_count
1476: EXCEPTION
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (x_msg_data IS NULL) THEN
1479: FND_MSG_PUB.Count_And_Get
1480: ( p_encoded => FND_API.G_FALSE
1481: , p_count => x_msg_count
1482: , p_data => x_msg_data
1483: );
1484: END IF;
1481: , p_count => x_msg_count
1482: , p_data => x_msg_data
1483: );
1484: END IF;
1485: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (x_msg_data IS NULL) THEN
1489: FND_MSG_PUB.Count_And_Get
1482: , p_data => x_msg_data
1483: );
1484: END IF;
1485: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (x_msg_data IS NULL) THEN
1489: FND_MSG_PUB.Count_And_Get
1490: ( p_encoded => FND_API.G_FALSE
1483: );
1484: END IF;
1485: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (x_msg_data IS NULL) THEN
1489: FND_MSG_PUB.Count_And_Get
1490: ( p_encoded => FND_API.G_FALSE
1491: , p_count => x_msg_count
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (x_msg_data IS NULL) THEN
1489: FND_MSG_PUB.Count_And_Get
1490: ( p_encoded => FND_API.G_FALSE
1491: , p_count => x_msg_count
1492: , p_data => x_msg_data
1493: );
1494: END IF;
1491: , p_count => x_msg_count
1492: , p_data => x_msg_data
1493: );
1494: END IF;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1497: WHEN NO_DATA_FOUND THEN
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: IF (x_msg_data IS NOT NULL) THEN
1492: , p_data => x_msg_data
1493: );
1494: END IF;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1497: WHEN NO_DATA_FOUND THEN
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: IF (x_msg_data IS NOT NULL) THEN
1500: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1494: END IF;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1497: WHEN NO_DATA_FOUND THEN
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: IF (x_msg_data IS NOT NULL) THEN
1500: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1501: ELSE
1502: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1502: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1503: END IF;
1504: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1505: WHEN OTHERS THEN
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507: IF (x_msg_data IS NOT NULL) THEN
1508: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1509: ELSE
1510: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1514: /*********************************************************************************
1515: CREATE DIMENSION-SETS
1516: *********************************************************************************/
1517: PROCEDURE Create_Dim_Set
1518: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1519: , p_kpi_id IN NUMBER
1520: , p_display_name IN VARCHAR2
1521: , p_dim_short_names IN VARCHAR2
1522: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
1537: WHERE Source_Indicator = p_kpi_id
1538: AND Prototype_Flag <> 2;
1539: BEGIN
1540: FND_MSG_PUB.Initialize;
1541: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542: SAVEPOINT CreateBSCDimSetPMD;
1543: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1544: IF (p_kpi_id IS NULL) THEN
1545: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1544: IF (p_kpi_id IS NULL) THEN
1545: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1546: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1547: FND_MSG_PUB.ADD;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: SELECT COUNT(*) INTO l_count
1551: FROM BSC_KPIS_B
1552: WHERE indicator = p_kpi_id;
1553: IF (l_count = 0) THEN
1554: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1555: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1556: FND_MSG_PUB.ADD;
1557: RAISE FND_API.G_EXC_ERROR;
1558: END IF;
1559: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --varchar2(10)
1560: l_bsc_dimset_rec.Bsc_Dim_Set_Short_Name := p_dim_set_short_name;
1561: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
1567: IF (l_count = 2) THEN
1568: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1569: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
1570: FND_MSG_PUB.ADD;
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573:
1574: BSC_UTILITY.Enable_Dimensions_Entity(
1575: p_Entity_Type => BSC_UTILITY.c_DIMENSION
1578: , x_Return_Status => x_return_status
1579: , x_Msg_Count => x_msg_count
1580: , x_Msg_Data => x_msg_data
1581: );
1582: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1584: END IF;
1585:
1586: l_bsc_dimset_rec.Bsc_New_Dset := 'N'; --varchar2(45)
1579: , x_Msg_Count => x_msg_count
1580: , x_Msg_Data => x_msg_data
1581: );
1582: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1584: END IF;
1585:
1586: l_bsc_dimset_rec.Bsc_New_Dset := 'N'; --varchar2(45)
1587: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_New_Dset <'||l_bsc_dimset_rec.Bsc_New_Dset||'>');
1600: -- Lock the underlying KPI, so that it is not deleted when assignment is being done.
1601: BSC_BIS_LOCKS_PUB.LOCK_KPI
1602: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
1603: , p_time_stamp => p_time_stamp
1604: , p_Full_Lock_Flag => FND_API.G_FALSE
1605: , x_return_status => x_return_status
1606: , x_msg_count => x_msg_count
1607: , x_msg_data => x_msg_data
1608: );
1605: , x_return_status => x_return_status
1606: , x_msg_count => x_msg_count
1607: , x_msg_data => x_msg_data
1608: );
1609: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1610: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1612: END IF;
1613: -- END Granular Locking
1607: , x_msg_data => x_msg_data
1608: );
1609: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1610: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1612: END IF;
1613: -- END Granular Locking
1614: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1615: ( p_commit => FND_API.G_FALSE
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1612: END IF;
1613: -- END Granular Locking
1614: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1615: ( p_commit => FND_API.G_FALSE
1616: , p_Dim_Set_Rec => l_bsc_dimset_rec
1617: , x_return_status => x_return_status
1618: , x_msg_count => x_msg_count
1619: , x_msg_data => x_msg_data
1617: , x_return_status => x_return_status
1618: , x_msg_count => x_msg_count
1619: , x_msg_data => x_msg_data
1620: );
1621: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1619: , x_msg_data => x_msg_data
1620: );
1621: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1626: ( p_commit => FND_API.G_FALSE
1627: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1626: ( p_commit => FND_API.G_FALSE
1627: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1628: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
1629: , p_dim_short_names => p_dim_short_names
1630: , x_return_status => x_return_status
1630: , x_return_status => x_return_status
1631: , x_msg_count => x_msg_count
1632: , x_msg_data => x_msg_data
1633: );
1634: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1635: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1632: , x_msg_data => x_msg_data
1633: );
1634: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1635: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1639: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1640: ( p_Kpi_Id => p_Kpi_Id
1642: , x_return_status => x_return_status
1643: , x_msg_count => x_msg_count
1644: , x_msg_data => x_msg_data
1645: );
1646: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1647: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed: SET_TIME_STAMP_DIM_SET');
1648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1649: END IF;
1650: -- END: Granular Locking, Change time stamp of Dim Set & KPI
1644: , x_msg_data => x_msg_data
1645: );
1646: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1647: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed: SET_TIME_STAMP_DIM_SET');
1648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1649: END IF;
1650: -- END: Granular Locking, Change time stamp of Dim Set & KPI
1651: --for all shared indicator, repeat the steps above
1652: FOR cd IN c_kpi_ids LOOP
1655: -- Lock the underlying KPI, so that it is not deleted when assignment is being done.
1656: BSC_BIS_LOCKS_PUB.LOCK_KPI
1657: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
1658: , p_time_stamp => NULL
1659: , p_Full_Lock_Flag => FND_API.G_FALSE
1660: , x_return_status => x_return_status
1661: , x_msg_count => x_msg_count
1662: , x_msg_data => x_msg_data
1663: );
1660: , x_return_status => x_return_status
1661: , x_msg_count => x_msg_count
1662: , x_msg_data => x_msg_data
1663: );
1664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1665: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1662: , x_msg_data => x_msg_data
1663: );
1664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1665: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1669: SELECT NVL(MAX(dim_set_id) + 1, 0)
1670: INTO l_bsc_dimset_rec.bsc_dim_set_id
1670: INTO l_bsc_dimset_rec.bsc_dim_set_id
1671: FROM BSC_KPI_DIM_SETS_VL
1672: WHERE indicator = l_bsc_dimset_rec.bsc_kpi_id;
1673: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1674: ( p_commit => FND_API.G_FALSE
1675: , p_Dim_Set_Rec => l_bsc_dimset_rec
1676: , x_return_status => x_return_status
1677: , x_msg_count => x_msg_count
1678: , x_msg_data => x_msg_data
1676: , x_return_status => x_return_status
1677: , x_msg_count => x_msg_count
1678: , x_msg_data => x_msg_data
1679: );
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1678: , x_msg_data => x_msg_data
1679: );
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1685: ( p_commit => FND_API.G_FALSE
1686: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1685: ( p_commit => FND_API.G_FALSE
1686: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1687: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
1688: , p_dim_short_names => p_dim_short_names
1689: , x_return_status => x_return_status
1689: , x_return_status => x_return_status
1690: , x_msg_count => x_msg_count
1691: , x_msg_data => x_msg_data
1692: );
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1691: , x_msg_data => x_msg_data
1692: );
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1698: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1699: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
1701: , x_return_status => x_return_status
1702: , x_msg_count => x_msg_count
1703: , x_msg_data => x_msg_data
1704: );
1705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1706: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed: SET_TIME_STAMP_DIM_SET');
1707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1708: END IF;
1709: -- END: Granular Locking, Change time stamp of Dim Set & KPI
1703: , x_msg_data => x_msg_data
1704: );
1705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1706: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed: SET_TIME_STAMP_DIM_SET');
1707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1708: END IF;
1709: -- END: Granular Locking, Change time stamp of Dim Set & KPI
1710: END LOOP;
1711: /*************************************************************
1723: , x_return_status => x_return_status
1724: , x_msg_count => x_msg_count
1725: , x_msg_data => x_msg_data
1726: );
1727: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1728: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1725: , x_msg_data => x_msg_data
1726: );
1727: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1728: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1732: /********************************************************
1733: Check no of independent dimension objects in dimension set
1754:
1755: FND_MESSAGE.SET_NAME('BSC','BSC_IND_DIMOBJ_LIMIT');
1756: FND_MESSAGE.SET_TOKEN('NAME_LIST',l_kpi_name);
1757: FND_MSG_PUB.ADD;
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760:
1761:
1762: END IF;
1761:
1762: END IF;
1763:
1764: /********************************************************/
1765: IF (p_commit = FND_API.G_TRUE) THEN
1766: COMMIT;
1767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1765: IF (p_commit = FND_API.G_TRUE) THEN
1766: COMMIT;
1767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO CreateBSCDimSetPMD;
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO CreateBSCDimSetPMD;
1774: IF (x_msg_data IS NULL) THEN
1775: FND_MSG_PUB.Count_And_Get
1776: ( p_encoded => FND_API.G_FALSE
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO CreateBSCDimSetPMD;
1774: IF (x_msg_data IS NULL) THEN
1775: FND_MSG_PUB.Count_And_Get
1776: ( p_encoded => FND_API.G_FALSE
1777: , p_count => x_msg_count
1778: , p_data => x_msg_data
1779: );
1780: END IF;
1777: , p_count => x_msg_count
1778: , p_data => x_msg_data
1779: );
1780: END IF;
1781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: ROLLBACK TO CreateBSCDimSetPMD;
1785: IF (x_msg_data IS NULL) THEN
1778: , p_data => x_msg_data
1779: );
1780: END IF;
1781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: ROLLBACK TO CreateBSCDimSetPMD;
1785: IF (x_msg_data IS NULL) THEN
1786: FND_MSG_PUB.Count_And_Get
1779: );
1780: END IF;
1781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: ROLLBACK TO CreateBSCDimSetPMD;
1785: IF (x_msg_data IS NULL) THEN
1786: FND_MSG_PUB.Count_And_Get
1787: ( p_encoded => FND_API.G_FALSE
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: ROLLBACK TO CreateBSCDimSetPMD;
1785: IF (x_msg_data IS NULL) THEN
1786: FND_MSG_PUB.Count_And_Get
1787: ( p_encoded => FND_API.G_FALSE
1788: , p_count => x_msg_count
1789: , p_data => x_msg_data
1790: );
1791: END IF;
1788: , p_count => x_msg_count
1789: , p_data => x_msg_data
1790: );
1791: END IF;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1794: WHEN NO_DATA_FOUND THEN
1795: ROLLBACK TO CreateBSCDimSetPMD;
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: , p_data => x_msg_data
1790: );
1791: END IF;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1794: WHEN NO_DATA_FOUND THEN
1795: ROLLBACK TO CreateBSCDimSetPMD;
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: IF (x_msg_data IS NOT NULL) THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1794: WHEN NO_DATA_FOUND THEN
1795: ROLLBACK TO CreateBSCDimSetPMD;
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: IF (x_msg_data IS NOT NULL) THEN
1798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1799: ELSE
1800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1801: END IF;
1802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1803: WHEN OTHERS THEN
1804: ROLLBACK TO CreateBSCDimSetPMD;
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1806: IF (x_msg_data IS NOT NULL) THEN
1807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1808: ELSE
1809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1813: /*********************************************************************************
1814: UPDATE DIMENSION-SETS
1815: *********************************************************************************/
1816: PROCEDURE Update_Dim_Set
1817: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1818: , p_kpi_id IN NUMBER
1819: , p_dim_set_id IN NUMBER
1820: , p_display_name IN VARCHAR2
1821: , p_assign_dim_names IN VARCHAR2
1830: l_count_independent_dim_obj NUMBER;
1831: l_kpi_name VARCHAR2(32000);
1832: BEGIN
1833: FND_MSG_PUB.Initialize;
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1836: IF (p_kpi_id IS NULL) THEN
1837: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1838: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1836: IF (p_kpi_id IS NULL) THEN
1837: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1838: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1839: FND_MSG_PUB.ADD;
1840: RAISE FND_API.G_EXC_ERROR;
1841: END IF;
1842:
1843: -- added for Bug#4615361
1844: BSC_UTILITY.Enable_Dimensions_Entity(
1848: , x_Return_Status => x_return_status
1849: , x_Msg_Count => x_msg_count
1850: , x_Msg_Data => x_msg_data
1851: );
1852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: END IF;
1855:
1856:
1849: , x_Msg_Count => x_msg_count
1850: , x_Msg_Data => x_msg_data
1851: );
1852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: END IF;
1855:
1856:
1857: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
1854: END IF;
1855:
1856:
1857: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
1858: ( p_commit => FND_API.G_FALSE
1859: , p_kpi_id => p_kpi_id
1860: , p_dim_set_id => p_dim_set_id
1861: , p_display_name => p_display_name
1862: , p_time_stamp => p_time_stamp
1863: , x_return_status => x_return_status
1864: , x_msg_count => x_msg_count
1865: , x_msg_data => x_msg_data
1866: );
1867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1868: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set');
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions
1865: , x_msg_data => x_msg_data
1866: );
1867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1868: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set');
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions
1872: ( p_commit => FND_API.G_FALSE
1873: , p_kpi_id => p_kpi_id
1868: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set');
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions
1872: ( p_commit => FND_API.G_FALSE
1873: , p_kpi_id => p_kpi_id
1874: , p_dim_set_id => p_dim_set_id
1875: , p_assign_dim_names => p_assign_dim_names
1876: , p_unassign_dim_names => p_unassign_dim_names
1878: , x_return_status => x_return_status
1879: , x_msg_count => x_msg_count
1880: , x_msg_data => x_msg_data
1881: );
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Assign_Unassign_Dimensions <'||x_msg_data||'>');
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1880: , x_msg_data => x_msg_data
1881: );
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Assign_Unassign_Dimensions <'||x_msg_data||'>');
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: /********************************************************
1888: Check no of independent dimension objects in dimension set
1910:
1911: FND_MESSAGE.SET_NAME('BSC','BSC_IND_DIMOBJ_LIMIT');
1912: FND_MESSAGE.SET_TOKEN('NAME_LIST',l_kpi_name);
1913: FND_MSG_PUB.ADD;
1914: RAISE FND_API.G_EXC_ERROR;
1915: END IF;
1916:
1917: END IF;
1918:
1917: END IF;
1918:
1919: /********************************************************/
1920:
1921: IF (p_commit = FND_API.G_TRUE) THEN
1922: COMMIT;
1923: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1924: END IF;
1925: x_return_status := FND_API.G_RET_STS_SUCCESS;
1921: IF (p_commit = FND_API.G_TRUE) THEN
1922: COMMIT;
1923: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1924: END IF;
1925: x_return_status := FND_API.G_RET_STS_SUCCESS;
1926: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1927: EXCEPTION
1928: WHEN FND_API.G_EXC_ERROR THEN
1929: IF (x_msg_data IS NULL) THEN
1924: END IF;
1925: x_return_status := FND_API.G_RET_STS_SUCCESS;
1926: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1927: EXCEPTION
1928: WHEN FND_API.G_EXC_ERROR THEN
1929: IF (x_msg_data IS NULL) THEN
1930: FND_MSG_PUB.Count_And_Get
1931: ( p_encoded => FND_API.G_FALSE
1932: , p_count => x_msg_count
1927: EXCEPTION
1928: WHEN FND_API.G_EXC_ERROR THEN
1929: IF (x_msg_data IS NULL) THEN
1930: FND_MSG_PUB.Count_And_Get
1931: ( p_encoded => FND_API.G_FALSE
1932: , p_count => x_msg_count
1933: , p_data => x_msg_data
1934: );
1935: END IF;
1932: , p_count => x_msg_count
1933: , p_data => x_msg_data
1934: );
1935: END IF;
1936: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1937: x_return_status := FND_API.G_RET_STS_ERROR;
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: IF (x_msg_data IS NULL) THEN
1940: FND_MSG_PUB.Count_And_Get
1933: , p_data => x_msg_data
1934: );
1935: END IF;
1936: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1937: x_return_status := FND_API.G_RET_STS_ERROR;
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: IF (x_msg_data IS NULL) THEN
1940: FND_MSG_PUB.Count_And_Get
1941: ( p_encoded => FND_API.G_FALSE
1934: );
1935: END IF;
1936: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1937: x_return_status := FND_API.G_RET_STS_ERROR;
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: IF (x_msg_data IS NULL) THEN
1940: FND_MSG_PUB.Count_And_Get
1941: ( p_encoded => FND_API.G_FALSE
1942: , p_count => x_msg_count
1937: x_return_status := FND_API.G_RET_STS_ERROR;
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: IF (x_msg_data IS NULL) THEN
1940: FND_MSG_PUB.Count_And_Get
1941: ( p_encoded => FND_API.G_FALSE
1942: , p_count => x_msg_count
1943: , p_data => x_msg_data
1944: );
1945: END IF;
1942: , p_count => x_msg_count
1943: , p_data => x_msg_data
1944: );
1945: END IF;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1947: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1948: WHEN NO_DATA_FOUND THEN
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: IF (x_msg_data IS NOT NULL) THEN
1943: , p_data => x_msg_data
1944: );
1945: END IF;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1947: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1948: WHEN NO_DATA_FOUND THEN
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: IF (x_msg_data IS NOT NULL) THEN
1951: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1945: END IF;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1947: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1948: WHEN NO_DATA_FOUND THEN
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: IF (x_msg_data IS NOT NULL) THEN
1951: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1952: ELSE
1953: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1953: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1954: END IF;
1955: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1956: WHEN OTHERS THEN
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1958: IF (x_msg_data IS NOT NULL) THEN
1959: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1960: ELSE
1961: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1966: /*********************************************************************************
1967: UPDATE DIMENSION-SETS
1968: *********************************************************************************/
1969: PROCEDURE Update_Dim_Set
1970: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1971: , p_kpi_id IN NUMBER
1972: , p_dim_set_id IN NUMBER
1973: , p_display_name IN VARCHAR2
1974: , p_dim_short_names IN VARCHAR2
1989: AND indicator = p_kpi_id);
1990: BEGIN
1991: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1992: FND_MSG_PUB.Initialize;
1993: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: IF (p_kpi_id IS NULL) THEN
1995: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1996: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1997: FND_MSG_PUB.ADD;
1994: IF (p_kpi_id IS NULL) THEN
1995: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1996: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1997: FND_MSG_PUB.ADD;
1998: RAISE FND_API.G_EXC_ERROR;
1999: END IF;
2000: IF (p_dim_set_id IS NULL) THEN
2001: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2002: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2000: IF (p_dim_set_id IS NULL) THEN
2001: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2002: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2003: FND_MSG_PUB.ADD;
2004: RAISE FND_API.G_EXC_ERROR;
2005: END IF;
2006: SELECT COUNT(DIM_SET_ID)
2007: INTO l_count
2008: FROM BSC_KPI_DIM_SETS_VL
2017: WHERE LOOKUP_TYPE = 'BSC_UI_COMMON' AND LOOKUP_CODE = 'DIM_SET' ;
2018:
2019: FND_MESSAGE.SET_TOKEN('TYPE', l_meaning, TRUE);
2020: FND_MSG_PUB.ADD;
2021: RAISE FND_API.G_EXC_ERROR;
2022: END IF;
2023: FOR cd IN p_unassign_dim_names LOOP
2024: IF (cd.short_name IS NOT NULL) THEN
2025: IF (l_unassign_dim_names IS NULL) THEN
2037: , x_Return_Status => x_return_status
2038: , x_Msg_Count => x_msg_count
2039: , x_Msg_Data => x_msg_data
2040: );
2041: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2043: END IF;
2044:
2045:
2038: , x_Msg_Count => x_msg_count
2039: , x_Msg_Data => x_msg_data
2040: );
2041: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2043: END IF;
2044:
2045:
2046: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
2043: END IF;
2044:
2045:
2046: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
2047: ( p_commit => FND_API.G_FALSE
2048: , p_kpi_id => p_kpi_id
2049: , p_dim_set_id => p_dim_set_id
2050: , p_display_name => p_display_name
2051: , p_assign_dim_names => p_dim_short_names
2054: , x_return_status => x_return_status
2055: , x_msg_count => x_msg_count
2056: , x_msg_data => x_msg_data
2057: );
2058: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2059: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set <'||x_msg_data||'>');
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062: IF (p_commit = FND_API.G_TRUE) THEN
2056: , x_msg_data => x_msg_data
2057: );
2058: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2059: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set <'||x_msg_data||'>');
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062: IF (p_commit = FND_API.G_TRUE) THEN
2063: COMMIT;
2064: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2058: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2059: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set <'||x_msg_data||'>');
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062: IF (p_commit = FND_API.G_TRUE) THEN
2063: COMMIT;
2064: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2062: IF (p_commit = FND_API.G_TRUE) THEN
2063: COMMIT;
2064: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2068: EXCEPTION
2069: WHEN FND_API.G_EXC_ERROR THEN
2070: IF (x_msg_data IS NULL) THEN
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2068: EXCEPTION
2069: WHEN FND_API.G_EXC_ERROR THEN
2070: IF (x_msg_data IS NULL) THEN
2071: FND_MSG_PUB.Count_And_Get
2072: ( p_encoded => FND_API.G_FALSE
2073: , p_count => x_msg_count
2068: EXCEPTION
2069: WHEN FND_API.G_EXC_ERROR THEN
2070: IF (x_msg_data IS NULL) THEN
2071: FND_MSG_PUB.Count_And_Get
2072: ( p_encoded => FND_API.G_FALSE
2073: , p_count => x_msg_count
2074: , p_data => x_msg_data
2075: );
2076: END IF;
2073: , p_count => x_msg_count
2074: , p_data => x_msg_data
2075: );
2076: END IF;
2077: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF (x_msg_data IS NULL) THEN
2081: FND_MSG_PUB.Count_And_Get
2074: , p_data => x_msg_data
2075: );
2076: END IF;
2077: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF (x_msg_data IS NULL) THEN
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2075: );
2076: END IF;
2077: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF (x_msg_data IS NULL) THEN
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF (x_msg_data IS NULL) THEN
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2084: , p_data => x_msg_data
2085: );
2086: END IF;
2083: , p_count => x_msg_count
2084: , p_data => x_msg_data
2085: );
2086: END IF;
2087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2089: WHEN NO_DATA_FOUND THEN
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2084: , p_data => x_msg_data
2085: );
2086: END IF;
2087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2089: WHEN NO_DATA_FOUND THEN
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2092: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2086: END IF;
2087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2089: WHEN NO_DATA_FOUND THEN
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2092: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2093: ELSE
2094: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2094: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2095: END IF;
2096: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2097: WHEN OTHERS THEN
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2099: IF (x_msg_data IS NOT NULL) THEN
2100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2101: ELSE
2102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2106: /*********************************************************************************
2107: UPDATE DIMENSION-SET
2108: *********************************************************************************/
2109: PROCEDURE Update_Dim_Set
2110: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
2111: , p_kpi_id IN NUMBER
2112: , p_dim_set_id IN NUMBER
2113: , p_display_name IN VARCHAR2
2114: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2129: BEGIN
2130: SAVEPOINT UpdateBSCDimSetPMD;
2131: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2132: FND_MSG_PUB.Initialize;
2133: x_return_status := FND_API.G_RET_STS_SUCCESS;
2134: IF (p_kpi_id IS NULL) THEN
2135: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2136: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2137: FND_MSG_PUB.ADD;
2134: IF (p_kpi_id IS NULL) THEN
2135: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2136: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2137: FND_MSG_PUB.ADD;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2140: IF (p_dim_set_id IS NULL) THEN
2141: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2142: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2140: IF (p_dim_set_id IS NULL) THEN
2141: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2142: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2143: FND_MSG_PUB.ADD;
2144: RAISE FND_API.G_EXC_ERROR;
2145: END IF;
2146: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
2147: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
2148: -- Verify that this is not a Shared KPI.
2153: IF (l_count = 2) THEN
2154: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
2155: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
2156: FND_MSG_PUB.ADD;
2157: RAISE FND_API.G_EXC_ERROR;
2158: END IF;
2159: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
2160: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
2161: l_bsc_dimset_rec.Bsc_Dim_Set_Name := p_display_name;
2169: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2170: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2171: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2172: FND_MSG_PUB.ADD;
2173: RAISE FND_API.G_EXC_ERROR;
2174: END IF;
2175:
2176: -- START Granular Locking
2177: -- We need to call locking only in this API, since this is the lowermost API
2183: , x_return_status => x_return_status
2184: , x_msg_count => x_msg_count
2185: , x_msg_data => x_msg_data
2186: );
2187: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2188: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END IF;
2191: -- END Granular Locking
2185: , x_msg_data => x_msg_data
2186: );
2187: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2188: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END IF;
2191: -- END Granular Locking
2192: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2193: ( p_commit => FND_API.G_FALSE
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END IF;
2191: -- END Granular Locking
2192: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2193: ( p_commit => FND_API.G_FALSE
2194: , p_Dim_Set_Rec => l_bsc_dimset_rec
2195: , x_return_status => x_return_status
2196: , x_msg_count => x_msg_count
2197: , x_msg_data => x_msg_data
2195: , x_return_status => x_return_status
2196: , x_msg_count => x_msg_count
2197: , x_msg_data => x_msg_data
2198: );
2199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2200: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2197: , x_msg_data => x_msg_data
2198: );
2199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2200: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2204: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2205: ( p_Kpi_Id => p_Kpi_Id
2207: , x_return_status => x_return_status
2208: , x_msg_count => x_msg_count
2209: , x_msg_data => x_msg_data
2210: );
2211: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2212: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: END IF;
2215: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2209: , x_msg_data => x_msg_data
2210: );
2211: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2212: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: END IF;
2215: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2216: --for shared inidicators repeat the steps above
2217: FOR cd IN c_kpi_ids LOOP
2224: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2225: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2226: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2227: FND_MSG_PUB.ADD;
2228: RAISE FND_API.G_EXC_ERROR;
2229: END IF;
2230: -- START Granular Locking
2231: -- We need to call locking only in this API, since this is the lowermost API
2232: -- and all Update APIs will call this API eventually.
2237: , x_return_status => x_return_status
2238: , x_msg_count => x_msg_count
2239: , x_msg_data => x_msg_data
2240: );
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2244: END IF;
2245: -- END Granular Locking
2239: , x_msg_data => x_msg_data
2240: );
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2244: END IF;
2245: -- END Granular Locking
2246: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2247: ( p_commit => FND_API.G_FALSE
2243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2244: END IF;
2245: -- END Granular Locking
2246: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2247: ( p_commit => FND_API.G_FALSE
2248: , p_Dim_Set_Rec => l_bsc_dimset_rec
2249: , x_return_status => x_return_status
2250: , x_msg_count => x_msg_count
2251: , x_msg_data => x_msg_data
2249: , x_return_status => x_return_status
2250: , x_msg_count => x_msg_count
2251: , x_msg_data => x_msg_data
2252: );
2253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2251: , x_msg_data => x_msg_data
2252: );
2253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2258: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2259: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
2261: , x_return_status => x_return_status
2262: , x_msg_count => x_msg_count
2263: , x_msg_data => x_msg_data
2264: );
2265: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2266: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
2267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: END IF;
2269: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2263: , x_msg_data => x_msg_data
2264: );
2265: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2266: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
2267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: END IF;
2269: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2270: END LOOP;
2271:
2268: END IF;
2269: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2270: END LOOP;
2271:
2272: IF (p_commit = FND_API.G_TRUE) THEN
2273: COMMIT;
2274: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2275: END IF;
2276: x_return_status := FND_API.G_RET_STS_SUCCESS;
2272: IF (p_commit = FND_API.G_TRUE) THEN
2273: COMMIT;
2274: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2275: END IF;
2276: x_return_status := FND_API.G_RET_STS_SUCCESS;
2277: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2278: EXCEPTION
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: ROLLBACK TO UpdateBSCDimSetPMD;
2275: END IF;
2276: x_return_status := FND_API.G_RET_STS_SUCCESS;
2277: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2278: EXCEPTION
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: ROLLBACK TO UpdateBSCDimSetPMD;
2281: IF (x_msg_data IS NULL) THEN
2282: FND_MSG_PUB.Count_And_Get
2283: ( p_encoded => FND_API.G_FALSE
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: ROLLBACK TO UpdateBSCDimSetPMD;
2281: IF (x_msg_data IS NULL) THEN
2282: FND_MSG_PUB.Count_And_Get
2283: ( p_encoded => FND_API.G_FALSE
2284: , p_count => x_msg_count
2285: , p_data => x_msg_data
2286: );
2287: END IF;
2284: , p_count => x_msg_count
2285: , p_data => x_msg_data
2286: );
2287: END IF;
2288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: ROLLBACK TO UpdateBSCDimSetPMD;
2292: IF (x_msg_data IS NULL) THEN
2285: , p_data => x_msg_data
2286: );
2287: END IF;
2288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: ROLLBACK TO UpdateBSCDimSetPMD;
2292: IF (x_msg_data IS NULL) THEN
2293: FND_MSG_PUB.Count_And_Get
2286: );
2287: END IF;
2288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: ROLLBACK TO UpdateBSCDimSetPMD;
2292: IF (x_msg_data IS NULL) THEN
2293: FND_MSG_PUB.Count_And_Get
2294: ( p_encoded => FND_API.G_FALSE
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: ROLLBACK TO UpdateBSCDimSetPMD;
2292: IF (x_msg_data IS NULL) THEN
2293: FND_MSG_PUB.Count_And_Get
2294: ( p_encoded => FND_API.G_FALSE
2295: , p_count => x_msg_count
2296: , p_data => x_msg_data
2297: );
2298: END IF;
2295: , p_count => x_msg_count
2296: , p_data => x_msg_data
2297: );
2298: END IF;
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2300: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2301: WHEN NO_DATA_FOUND THEN
2302: ROLLBACK TO UpdateBSCDimSetPMD;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2296: , p_data => x_msg_data
2297: );
2298: END IF;
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2300: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2301: WHEN NO_DATA_FOUND THEN
2302: ROLLBACK TO UpdateBSCDimSetPMD;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF (x_msg_data IS NOT NULL) THEN
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2300: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2301: WHEN NO_DATA_FOUND THEN
2302: ROLLBACK TO UpdateBSCDimSetPMD;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF (x_msg_data IS NOT NULL) THEN
2305: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2306: ELSE
2307: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2308: END IF;
2309: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2310: WHEN OTHERS THEN
2311: ROLLBACK TO UpdateBSCDimSetPMD;
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2313: IF (x_msg_data IS NOT NULL) THEN
2314: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2315: ELSE
2316: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2381: /*********************************************************************************
2382: DELETE DIMENSION-SETS
2383: *********************************************************************************/
2384: PROCEDURE Delete_Dim_Set
2385: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
2386: , p_kpi_id IN NUMBER
2387: , p_dim_set_id IN NUMBER
2388: , x_return_status OUT NOCOPY VARCHAR2
2389: , x_msg_count OUT NOCOPY NUMBER
2400: BEGIN
2401: SAVEPOINT DeleteBSCDimSetPMD;
2402: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2403: FND_MSG_PUB.Initialize;
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405: IF (p_kpi_id IS NULL) THEN
2406: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2408: FND_MSG_PUB.ADD;
2405: IF (p_kpi_id IS NULL) THEN
2406: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2408: FND_MSG_PUB.ADD;
2409: RAISE FND_API.G_EXC_ERROR;
2410: END IF;
2411: IF (p_dim_set_id IS NULL) THEN
2412: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2411: IF (p_dim_set_id IS NULL) THEN
2412: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2414: FND_MSG_PUB.ADD;
2415: RAISE FND_API.G_EXC_ERROR;
2416: END IF;
2417: IF (p_dim_set_id = 0) THEN
2418: FND_MESSAGE.SET_NAME('BSC', 'BSC_DIM_SET_0_NO_DELETE');
2419: FND_MSG_PUB.ADD;
2416: END IF;
2417: IF (p_dim_set_id = 0) THEN
2418: FND_MESSAGE.SET_NAME('BSC', 'BSC_DIM_SET_0_NO_DELETE');
2419: FND_MSG_PUB.ADD;
2420: RAISE FND_API.G_EXC_ERROR;
2421: END IF;
2422: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
2423: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
2424: -- Verify that this is not a Shared KPI.
2429: IF (l_count = 2) THEN
2430: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
2431: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
2432: FND_MSG_PUB.ADD;
2433: RAISE FND_API.G_EXC_ERROR;
2434: END IF;
2435: SELECT COUNT(*) INTO l_count
2436: FROM BSC_KPI_DIM_SETS_VL
2437: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id;
2437: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id;
2438: IF (l_count = 1) THEN
2439: FND_MESSAGE.SET_NAME('BSC','BSC_D_KPI_AT_LEAST_1_DS');
2440: FND_MSG_PUB.ADD;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF;
2443: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
2444: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
2445: -- START Granular Locking
2450: , x_return_status => x_return_status
2451: , x_msg_count => x_msg_count
2452: , x_msg_data => x_msg_data
2453: );
2454: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2455: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2457: END IF;
2458: -- END Granular Locking
2452: , x_msg_data => x_msg_data
2453: );
2454: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2455: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2457: END IF;
2458: -- END Granular Locking
2459: -- Aditya added for Incremental Changes
2460: -- Deleting the Dimension set involves a structural change to be captured by Optimizer.
2463: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2464: BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2465: END IF;
2466: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2467: ( p_commit => FND_API.G_FALSE
2468: , p_Dim_Set_Rec => l_bsc_dimset_rec
2469: , x_return_status => x_return_status
2470: , x_msg_count => x_msg_count
2471: , x_msg_data => x_msg_data
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: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: --repeat the steps above for all the shared indicators
2471: , x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: --repeat the steps above for all the shared indicators
2478: FOR cd IN c_kpi_ids LOOP
2479: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
2490: , x_return_status => x_return_status
2491: , x_msg_count => x_msg_count
2492: , x_msg_data => x_msg_data
2493: );
2494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2495: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2497: END IF;
2498: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2492: , x_msg_data => x_msg_data
2493: );
2494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2495: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2497: END IF;
2498: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2499: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2500: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2499: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2500: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2501: END IF;
2502: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2503: ( p_commit => FND_API.G_FALSE
2504: , p_Dim_Set_Rec => l_bsc_dimset_rec
2505: , x_return_status => x_return_status
2506: , x_msg_count => x_msg_count
2507: , x_msg_data => x_msg_data
2505: , x_return_status => x_return_status
2506: , x_msg_count => x_msg_count
2507: , x_msg_data => x_msg_data
2508: );
2509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2510: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2512: END IF;
2513: END IF;
2507: , x_msg_data => x_msg_data
2508: );
2509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2510: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2512: END IF;
2513: END IF;
2514: END LOOP;
2515: IF (p_commit = FND_API.G_TRUE) THEN
2511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2512: END IF;
2513: END IF;
2514: END LOOP;
2515: IF (p_commit = FND_API.G_TRUE) THEN
2516: COMMIT;
2517: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2518: END IF;
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2515: IF (p_commit = FND_API.G_TRUE) THEN
2516: COMMIT;
2517: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2518: END IF;
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2520: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: ROLLBACK TO DeleteBSCDimSetPMD;
2518: END IF;
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2520: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: ROLLBACK TO DeleteBSCDimSetPMD;
2524: IF (x_msg_data IS NULL) THEN
2525: FND_MSG_PUB.Count_And_Get
2526: ( p_encoded => FND_API.G_FALSE
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: ROLLBACK TO DeleteBSCDimSetPMD;
2524: IF (x_msg_data IS NULL) THEN
2525: FND_MSG_PUB.Count_And_Get
2526: ( p_encoded => FND_API.G_FALSE
2527: , p_count => x_msg_count
2528: , p_data => x_msg_data
2529: );
2530: END IF;
2527: , p_count => x_msg_count
2528: , p_data => x_msg_data
2529: );
2530: END IF;
2531: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2532: x_return_status := FND_API.G_RET_STS_ERROR;
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: ROLLBACK TO DeleteBSCDimSetPMD;
2535: IF (x_msg_data IS NULL) THEN
2528: , p_data => x_msg_data
2529: );
2530: END IF;
2531: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2532: x_return_status := FND_API.G_RET_STS_ERROR;
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: ROLLBACK TO DeleteBSCDimSetPMD;
2535: IF (x_msg_data IS NULL) THEN
2536: FND_MSG_PUB.Count_And_Get
2529: );
2530: END IF;
2531: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2532: x_return_status := FND_API.G_RET_STS_ERROR;
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: ROLLBACK TO DeleteBSCDimSetPMD;
2535: IF (x_msg_data IS NULL) THEN
2536: FND_MSG_PUB.Count_And_Get
2537: ( p_encoded => FND_API.G_FALSE
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: ROLLBACK TO DeleteBSCDimSetPMD;
2535: IF (x_msg_data IS NULL) THEN
2536: FND_MSG_PUB.Count_And_Get
2537: ( p_encoded => FND_API.G_FALSE
2538: , p_count => x_msg_count
2539: , p_data => x_msg_data
2540: );
2541: END IF;
2538: , p_count => x_msg_count
2539: , p_data => x_msg_data
2540: );
2541: END IF;
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2543: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2544: WHEN NO_DATA_FOUND THEN
2545: ROLLBACK TO DeleteBSCDimSetPMD;
2546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2539: , p_data => x_msg_data
2540: );
2541: END IF;
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2543: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2544: WHEN NO_DATA_FOUND THEN
2545: ROLLBACK TO DeleteBSCDimSetPMD;
2546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2547: IF (x_msg_data IS NOT NULL) THEN
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2543: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2544: WHEN NO_DATA_FOUND THEN
2545: ROLLBACK TO DeleteBSCDimSetPMD;
2546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2547: IF (x_msg_data IS NOT NULL) THEN
2548: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2549: ELSE
2550: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2551: END IF;
2552: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2553: WHEN OTHERS THEN
2554: ROLLBACK TO DeleteBSCDimSetPMD;
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556: IF (x_msg_data IS NOT NULL) THEN
2557: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2558: ELSE
2559: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2563: /*********************************************************************************
2564: ASSIGN DIMENSION TO DIMENSION-SETS
2565: *********************************************************************************/
2566: PROCEDURE Assign_Dims_To_Dim_Set
2567: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
2568: , p_kpi_id IN NUMBER
2569: , p_dim_set_id IN NUMBER
2570: , p_dim_short_names IN VARCHAR2
2571: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2606: BEGIN
2607: SAVEPOINT AssBSCDimToDSetPMD;
2608: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2609: FND_MSG_PUB.Initialize;
2610: x_return_status := FND_API.G_RET_STS_SUCCESS;
2611: IF (p_kpi_id IS NULL) THEN
2612: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2613: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2614: FND_MSG_PUB.ADD;
2611: IF (p_kpi_id IS NULL) THEN
2612: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2613: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2614: FND_MSG_PUB.ADD;
2615: RAISE FND_API.G_EXC_ERROR;
2616: END IF;
2617: IF (p_dim_set_id IS NULL) THEN
2618: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2619: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2617: IF (p_dim_set_id IS NULL) THEN
2618: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2619: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2620: FND_MSG_PUB.ADD;
2621: RAISE FND_API.G_EXC_ERROR;
2622: END IF;
2623: SELECT
2624: level_table_name
2625: ,default_key_value
2656: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2657: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2658: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2659: FND_MSG_PUB.ADD;
2660: RAISE FND_API.G_EXC_ERROR;
2661: END IF;
2662:
2663: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
2664: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
2661: END IF;
2662:
2663: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
2664: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
2665: ( p_commit => FND_API.G_FALSE
2666: , p_kpi_id => p_kpi_id
2667: , p_dim_set_id => p_dim_set_id
2668: , x_return_status => x_return_status
2669: , x_msg_count => x_msg_count
2668: , x_return_status => x_return_status
2669: , x_msg_count => x_msg_count
2670: , x_msg_data => x_msg_data
2671: );
2672: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2673: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: END IF;
2676:
2670: , x_msg_data => x_msg_data
2671: );
2672: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2673: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: END IF;
2676:
2677: l_temp_var := p_dim_short_names;
2678: l_dim_short_names := NULL;
2685: IF (l_count = 0) THEN
2686: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
2687: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME', l_dim_short_name);
2688: FND_MSG_PUB.ADD;
2689: RAISE FND_API.G_EXC_ERROR;
2690: END IF;
2691:
2692: SELECT COUNT(*) INTO l_count
2693: FROM BSC_KPI_DIM_GROUPS
2712: , x_return_status => x_return_status
2713: , x_msg_count => x_msg_count
2714: , x_msg_data => x_msg_data
2715: );
2716: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2717: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720: -- BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2714: , x_msg_data => x_msg_data
2715: );
2716: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2717: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720: -- BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2721: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2722: ( p_commit => FND_API.G_FALSE
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720: -- BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2721: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2722: ( p_commit => FND_API.G_FALSE
2723: , p_kpi_id => p_kpi_id
2724: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
2725: , p_dim_short_names => l_dim_short_names
2726: , x_return_status => x_return_status
2726: , x_return_status => x_return_status
2727: , x_msg_count => x_msg_count
2728: , x_msg_data => x_msg_data
2729: );
2730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2733: END IF;
2734: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2728: , x_msg_data => x_msg_data
2729: );
2730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2733: END IF;
2734: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2735: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2736: ( p_Kpi_Id => p_Kpi_Id
2738: , x_return_status => x_return_status
2739: , x_msg_count => x_msg_count
2740: , x_msg_data => x_msg_data
2741: );
2742: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2743: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Assign_Dims_To_Dim_Set');
2744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2745: END IF;
2746: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2740: , x_msg_data => x_msg_data
2741: );
2742: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2743: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Assign_Dims_To_Dim_Set');
2744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2745: END IF;
2746: -- END: Granular Locking, Change time stamp of Dim Set & KPI
2747: --repeat the steps above for all the shared indicators
2748: FOR cd IN c_kpi_ids LOOP
2755: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2756: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2757: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2758: FND_MSG_PUB.ADD;
2759: RAISE FND_API.G_EXC_ERROR;
2760: END IF;
2761: -- START Granular Locking
2762: BSC_BIS_LOCKS_PUB.LOCK_DIM_SET
2763: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
2766: , x_return_status => x_return_status
2767: , x_msg_count => x_msg_count
2768: , x_msg_data => x_msg_data
2769: );
2770: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2771: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: --BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2768: , x_msg_data => x_msg_data
2769: );
2770: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2771: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: --BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2775: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2776: ( p_commit => FND_API.G_FALSE
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: --BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2775: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2776: ( p_commit => FND_API.G_FALSE
2777: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
2778: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
2779: , p_dim_short_names => l_dim_short_names
2780: , x_return_status => x_return_status
2780: , x_return_status => x_return_status
2781: , x_msg_count => x_msg_count
2782: , x_msg_data => x_msg_data
2783: );
2784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2787: END IF;
2788: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2782: , x_msg_data => x_msg_data
2783: );
2784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2787: END IF;
2788: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2789: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2790: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
2792: , x_return_status => x_return_status
2793: , x_msg_count => x_msg_count
2794: , x_msg_data => x_msg_data
2795: );
2796: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2797: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Assign_Dims_To_Dim_Set');
2798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2799: END IF;
2800: END LOOP;
2794: , x_msg_data => x_msg_data
2795: );
2796: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2797: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Assign_Dims_To_Dim_Set');
2798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2799: END IF;
2800: END LOOP;
2801: END IF;
2802: BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets
2799: END IF;
2800: END LOOP;
2801: END IF;
2802: BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets
2803: ( p_commit => FND_API.G_FALSE
2804: , p_kpi_id => p_kpi_id
2805: , p_dim_set_id => p_dim_set_id
2806: , p_dim_short_names => p_dim_short_names
2807: , p_kpi_flag_change => l_kpi_flag_change
2808: , x_return_status => x_return_status
2809: , x_msg_count => x_msg_count
2810: , x_msg_data => x_msg_data
2811: );
2812: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2813: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
2810: , x_msg_data => x_msg_data
2811: );
2812: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2813: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
2817: ( p_commit => FND_API.G_FALSE
2818: , p_kpi_id => p_kpi_id
2813: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
2817: ( p_commit => FND_API.G_FALSE
2818: , p_kpi_id => p_kpi_id
2819: , p_dim_set_id => p_dim_set_id
2820: , x_return_status => x_return_status
2821: , x_msg_count => x_msg_count
2820: , x_return_status => x_return_status
2821: , x_msg_count => x_msg_count
2822: , x_msg_data => x_msg_data
2823: );
2824: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2825: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: END IF;
2822: , x_msg_data => x_msg_data
2823: );
2824: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2825: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: END IF;
2829:
2830: FOR cd IN c_Dim_Levels LOOP
2844: , x_return_status => x_return_status
2845: , x_msg_count => x_msg_count
2846: , x_msg_data => x_msg_data
2847: );
2848: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851: END IF;
2852: END LOOP;
2845: , x_msg_count => x_msg_count
2846: , x_msg_data => x_msg_data
2847: );
2848: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851: END IF;
2852: END LOOP;
2853:
2850: END IF;
2851: END IF;
2852: END LOOP;
2853:
2854: IF (p_commit = FND_API.G_TRUE) THEN
2855: COMMIT;
2856: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2857: END IF;
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2854: IF (p_commit = FND_API.G_TRUE) THEN
2855: COMMIT;
2856: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2857: END IF;
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2859: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: IF (x_msg_data IS NULL) THEN
2857: END IF;
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2859: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: IF (x_msg_data IS NULL) THEN
2863: FND_MSG_PUB.Count_And_Get
2864: ( p_encoded => FND_API.G_FALSE
2865: , p_count => x_msg_count
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: IF (x_msg_data IS NULL) THEN
2863: FND_MSG_PUB.Count_And_Get
2864: ( p_encoded => FND_API.G_FALSE
2865: , p_count => x_msg_count
2866: , p_data => x_msg_data
2867: );
2868: END IF;
2865: , p_count => x_msg_count
2866: , p_data => x_msg_data
2867: );
2868: END IF;
2869: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2870: x_return_status := FND_API.G_RET_STS_ERROR;
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: IF (x_msg_data IS NULL) THEN
2873: FND_MSG_PUB.Count_And_Get
2866: , p_data => x_msg_data
2867: );
2868: END IF;
2869: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2870: x_return_status := FND_API.G_RET_STS_ERROR;
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: IF (x_msg_data IS NULL) THEN
2873: FND_MSG_PUB.Count_And_Get
2874: ( p_encoded => FND_API.G_FALSE
2867: );
2868: END IF;
2869: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2870: x_return_status := FND_API.G_RET_STS_ERROR;
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: IF (x_msg_data IS NULL) THEN
2873: FND_MSG_PUB.Count_And_Get
2874: ( p_encoded => FND_API.G_FALSE
2875: , p_count => x_msg_count
2870: x_return_status := FND_API.G_RET_STS_ERROR;
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: IF (x_msg_data IS NULL) THEN
2873: FND_MSG_PUB.Count_And_Get
2874: ( p_encoded => FND_API.G_FALSE
2875: , p_count => x_msg_count
2876: , p_data => x_msg_data
2877: );
2878: END IF;
2875: , p_count => x_msg_count
2876: , p_data => x_msg_data
2877: );
2878: END IF;
2879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2880: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2881: WHEN NO_DATA_FOUND THEN
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2883: IF (x_msg_data IS NOT NULL) THEN
2876: , p_data => x_msg_data
2877: );
2878: END IF;
2879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2880: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2881: WHEN NO_DATA_FOUND THEN
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2883: IF (x_msg_data IS NOT NULL) THEN
2884: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2878: END IF;
2879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2880: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2881: WHEN NO_DATA_FOUND THEN
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2883: IF (x_msg_data IS NOT NULL) THEN
2884: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2885: ELSE
2886: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2886: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2887: END IF;
2888: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2889: WHEN OTHERS THEN
2890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2891: IF (x_msg_data IS NOT NULL) THEN
2892: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2893: ELSE
2894: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2899: /*********************************************************************************
2900: ASSIGN DIMENSION TO DIMENSION-SETS
2901: *********************************************************************************/
2902: PROCEDURE Assign_Unassign_Dimensions
2903: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
2904: , p_kpi_id IN NUMBER
2905: , p_dim_set_id IN NUMBER
2906: , p_assign_dim_names IN VARCHAR2
2907: , p_unassign_dim_names IN VARCHAR2
2940:
2941: BEGIN
2942: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
2943: FND_MSG_PUB.Initialize;
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: IF (p_kpi_id IS NULL) THEN
2946: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2947: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2948: FND_MSG_PUB.ADD;
2945: IF (p_kpi_id IS NULL) THEN
2946: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2947: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2948: FND_MSG_PUB.ADD;
2949: RAISE FND_API.G_EXC_ERROR;
2950: END IF;
2951: IF (p_dim_set_id IS NULL) THEN
2952: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2953: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2951: IF (p_dim_set_id IS NULL) THEN
2952: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2953: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2954: FND_MSG_PUB.ADD;
2955: RAISE FND_API.G_EXC_ERROR;
2956: END IF;
2957:
2958: SELECT
2959: level_table_name
2992: END IF;
2993: END LOOP;
2994: IF (l_unassign_dim_objs IS NOT NULL) THEN
2995: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
2996: ( p_commit => FND_API.G_FALSE
2997: , p_kpi_id => p_kpi_id
2998: , p_dim_set_id => p_dim_set_id
2999: , p_dim_short_names => l_unassign_dim_objs
3000: , p_time_stamp => p_time_stamp
3001: , x_return_status => x_return_status
3002: , x_msg_count => x_msg_count
3003: , x_msg_data => x_msg_data
3004: );
3005: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: END IF;
3003: , x_msg_data => x_msg_data
3004: );
3005: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: END IF;
3010: END IF;
3011: BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set
3008: END IF;
3009: END IF;
3010: END IF;
3011: BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set
3012: ( p_commit => FND_API.G_FALSE
3013: , p_kpi_id => p_kpi_id
3014: , p_dim_set_id => p_dim_set_id
3015: , p_dim_short_names => p_assign_dim_names
3016: , p_time_stamp => p_time_stamp
3017: , x_return_status => x_return_status
3018: , x_msg_count => x_msg_count
3019: , x_msg_data => x_msg_data
3020: );
3021: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3022: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: END IF;
3025: --Restore old key item values if any are set
3019: , x_msg_data => x_msg_data
3020: );
3021: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3022: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: END IF;
3025: --Restore old key item values if any are set
3026: FOR cd IN c_Dim_Levels LOOP
3027: l_key_item := NULL;
3040: , x_return_status => x_return_status
3041: , x_msg_count => x_msg_count
3042: , x_msg_data => x_msg_data
3043: );
3044: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3046: END IF;
3047: END IF;
3048: END LOOP;
3041: , x_msg_count => x_msg_count
3042: , x_msg_data => x_msg_data
3043: );
3044: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3046: END IF;
3047: END IF;
3048: END LOOP;
3049: /*************************************************************
3061: , x_return_status => x_return_status
3062: , x_msg_count => x_msg_count
3063: , x_msg_data => x_msg_data
3064: );
3065: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3066: --dbms_output.PUT_LINE('BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button Failed: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: END IF;
3069:
3063: , x_msg_data => x_msg_data
3064: );
3065: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3066: --dbms_output.PUT_LINE('BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button Failed: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: END IF;
3069:
3070: IF (p_commit = FND_API.G_TRUE) THEN
3071: COMMIT;
3066: --dbms_output.PUT_LINE('BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button Failed: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: END IF;
3069:
3070: IF (p_commit = FND_API.G_TRUE) THEN
3071: COMMIT;
3072: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3073: END IF;
3074: x_return_status := FND_API.G_RET_STS_SUCCESS;
3070: IF (p_commit = FND_API.G_TRUE) THEN
3071: COMMIT;
3072: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3073: END IF;
3074: x_return_status := FND_API.G_RET_STS_SUCCESS;
3075: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: IF (x_msg_data IS NULL) THEN
3073: END IF;
3074: x_return_status := FND_API.G_RET_STS_SUCCESS;
3075: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: IF (x_msg_data IS NULL) THEN
3079: FND_MSG_PUB.Count_And_Get
3080: ( p_encoded => FND_API.G_FALSE
3081: , p_count => x_msg_count
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: IF (x_msg_data IS NULL) THEN
3079: FND_MSG_PUB.Count_And_Get
3080: ( p_encoded => FND_API.G_FALSE
3081: , p_count => x_msg_count
3082: , p_data => x_msg_data
3083: );
3084: END IF;
3081: , p_count => x_msg_count
3082: , p_data => x_msg_data
3083: );
3084: END IF;
3085: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3088: IF (x_msg_data IS NULL) THEN
3089: FND_MSG_PUB.Count_And_Get
3082: , p_data => x_msg_data
3083: );
3084: END IF;
3085: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3088: IF (x_msg_data IS NULL) THEN
3089: FND_MSG_PUB.Count_And_Get
3090: ( p_encoded => FND_API.G_FALSE
3083: );
3084: END IF;
3085: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3088: IF (x_msg_data IS NULL) THEN
3089: FND_MSG_PUB.Count_And_Get
3090: ( p_encoded => FND_API.G_FALSE
3091: , p_count => x_msg_count
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3088: IF (x_msg_data IS NULL) THEN
3089: FND_MSG_PUB.Count_And_Get
3090: ( p_encoded => FND_API.G_FALSE
3091: , p_count => x_msg_count
3092: , p_data => x_msg_data
3093: );
3094: END IF;
3091: , p_count => x_msg_count
3092: , p_data => x_msg_data
3093: );
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3096: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3097: WHEN NO_DATA_FOUND THEN
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099: IF (x_msg_data IS NOT NULL) THEN
3092: , p_data => x_msg_data
3093: );
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3096: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3097: WHEN NO_DATA_FOUND THEN
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099: IF (x_msg_data IS NOT NULL) THEN
3100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3096: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3097: WHEN NO_DATA_FOUND THEN
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099: IF (x_msg_data IS NOT NULL) THEN
3100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3101: ELSE
3102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3103: END IF;
3104: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3105: WHEN OTHERS THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107: IF (x_msg_data IS NOT NULL) THEN
3108: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3109: ELSE
3110: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3115: /*********************************************************************************
3116: REMOVE DIMENSION FROM DIMENSION-SETS
3117: *********************************************************************************/
3118: PROCEDURE Unassign_Dims_From_Dim_Set
3119: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
3120: , p_kpi_id IN NUMBER
3121: , p_dim_set_id IN NUMBER
3122: , p_dim_short_names IN VARCHAR2
3123: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
3148: BEGIN
3149: SAVEPOINT UnAssBSCDimToDSetPMD;
3150: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3151: FND_MSG_PUB.Initialize;
3152: x_return_status := FND_API.G_RET_STS_SUCCESS;
3153: IF (p_kpi_id IS NULL) THEN
3154: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3155: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3156: FND_MSG_PUB.ADD;
3153: IF (p_kpi_id IS NULL) THEN
3154: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3155: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3156: FND_MSG_PUB.ADD;
3157: RAISE FND_API.G_EXC_ERROR;
3158: END IF;
3159: IF (p_dim_set_id IS NULL) THEN
3160: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3161: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3159: IF (p_dim_set_id IS NULL) THEN
3160: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3161: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3162: FND_MSG_PUB.ADD;
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
3166: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
3167:
3172: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id;
3173: IF (l_count = 2) THEN
3174: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
3179: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
3180:
3185: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3186: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3187: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3188: FND_MSG_PUB.ADD;
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191: -- START Granular Locking
3192: BSC_BIS_LOCKS_PUB.LOCK_DIM_SET
3193: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
3196: , x_return_status => x_return_status
3197: , x_msg_count => x_msg_count
3198: , x_msg_data => x_msg_data
3199: );
3200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3201: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Unassign_Dims_From_Dim_Set');
3202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3203: END IF;
3204: -- END Granular Locking
3198: , x_msg_data => x_msg_data
3199: );
3200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3201: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Unassign_Dims_From_Dim_Set');
3202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3203: END IF;
3204: -- END Granular Locking
3205: IF(p_dim_short_names IS NOT NULL) THEN
3206: l_count := 0;
3226: WHERE short_name = l_dim_short_name;
3227: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id <'||l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id||'>');
3228: l_kpi_flag_change := TRUE;
3229: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
3230: ( p_commit => FND_API.G_FALSE
3231: , p_Dim_Set_Rec => l_bsc_dimset_rec
3232: , p_create_Dim_Lev_Grp => FALSE
3233: , x_return_status => x_return_status
3234: , x_msg_count => x_msg_count
3233: , x_return_status => x_return_status
3234: , x_msg_count => x_msg_count
3235: , x_msg_data => x_msg_data
3236: );
3237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3238: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END IF;
3241: END IF;
3235: , x_msg_data => x_msg_data
3236: );
3237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3238: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END IF;
3241: END IF;
3242: END LOOP;
3243: END IF;
3249: , x_return_status => x_return_status
3250: , x_msg_count => x_msg_count
3251: , x_msg_data => x_msg_data
3252: );
3253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: END IF;
3257: --repeat the steps above for all the shared indicators
3251: , x_msg_data => x_msg_data
3252: );
3253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: END IF;
3257: --repeat the steps above for all the shared indicators
3258: FOR cd IN c_kpi_ids LOOP
3259: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
3286: , x_return_status => x_return_status
3287: , x_msg_count => x_msg_count
3288: , x_msg_data => x_msg_data
3289: );
3290: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3291: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Unassign_Dims_From_Dim_Set');
3292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3293: END IF;
3294: -- END Granular Locking
3288: , x_msg_data => x_msg_data
3289: );
3290: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3291: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Unassign_Dims_From_Dim_Set');
3292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3293: END IF;
3294: -- END Granular Locking
3295: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id <'||l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id||'>');
3296: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
3293: END IF;
3294: -- END Granular Locking
3295: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id <'||l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id||'>');
3296: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
3297: ( p_commit => FND_API.G_FALSE
3298: , p_Dim_Set_Rec => l_bsc_dimset_rec
3299: , p_create_Dim_Lev_Grp => FALSE
3300: , x_return_status => x_return_status
3301: , x_msg_count => x_msg_count
3300: , x_return_status => x_return_status
3301: , x_msg_count => x_msg_count
3302: , x_msg_data => x_msg_data
3303: );
3304: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3305: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: END IF;
3302: , x_msg_data => x_msg_data
3303: );
3304: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3305: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: END IF;
3309: END LOOP;
3310: -- START: Granular Locking, Change time stamp of Dim Set & KPI
3314: , x_return_status => x_return_status
3315: , x_msg_count => x_msg_count
3316: , x_msg_data => x_msg_data
3317: );
3318: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3319: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Unassign_Dims_From_Dim_Set');
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322: -- END: Granular Locking, Change time stamp of Dim Set & KPI
3316: , x_msg_data => x_msg_data
3317: );
3318: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3319: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET - Unassign_Dims_From_Dim_Set');
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322: -- END: Granular Locking, Change time stamp of Dim Set & KPI
3323: END IF;
3324: END LOOP;
3330: l_dim_short_names := l_dim_short_names||', '||cd.Short_Name;
3331: END IF;
3332: END LOOP;
3333: BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets
3334: ( p_commit => FND_API.G_FALSE
3335: , p_kpi_id => p_kpi_id
3336: , p_dim_set_id => p_dim_set_id
3337: , p_dim_short_names => l_dim_short_names
3338: , p_kpi_flag_change => l_kpi_flag_change
3339: , x_return_status => x_return_status
3340: , x_msg_count => x_msg_count
3341: , x_msg_data => x_msg_data
3342: );
3343: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3344: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347: END IF;
3341: , x_msg_data => x_msg_data
3342: );
3343: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3344: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347: END IF;
3348: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
3349: ( p_commit => FND_API.G_FALSE
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347: END IF;
3348: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
3349: ( p_commit => FND_API.G_FALSE
3350: , p_kpi_id => p_kpi_id
3351: , p_dim_set_id => p_dim_set_id
3352: , x_return_status => x_return_status
3353: , x_msg_count => x_msg_count
3353: , x_msg_count => x_msg_count
3354: , x_msg_data => x_msg_data
3355: );
3356:
3357: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3358: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
3359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: IF (p_dim_short_names IS NOT NULL) THEN
3355: );
3356:
3357: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3358: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
3359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: IF (p_dim_short_names IS NOT NULL) THEN
3362: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button
3363: (
3372: , x_return_status => x_return_status
3373: , x_msg_count => x_msg_count
3374: , x_msg_data => x_msg_data
3375: );
3376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3377: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set failed at BSC_BIS_KPI_MEAS_PUB.Check_Filters_Not_Apply');
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: END IF;
3380: END IF;
3374: , x_msg_data => x_msg_data
3375: );
3376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3377: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set failed at BSC_BIS_KPI_MEAS_PUB.Check_Filters_Not_Apply');
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: END IF;
3380: END IF;
3381:
3382: IF (p_commit = FND_API.G_TRUE) THEN
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: END IF;
3380: END IF;
3381:
3382: IF (p_commit = FND_API.G_TRUE) THEN
3383: COMMIT;
3384: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3385: END IF;
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3382: IF (p_commit = FND_API.G_TRUE) THEN
3383: COMMIT;
3384: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3385: END IF;
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3387: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: IF (x_msg_data IS NULL) THEN
3385: END IF;
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3387: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: IF (x_msg_data IS NULL) THEN
3391: FND_MSG_PUB.Count_And_Get
3392: ( p_encoded => FND_API.G_FALSE
3393: , p_count => x_msg_count
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: IF (x_msg_data IS NULL) THEN
3391: FND_MSG_PUB.Count_And_Get
3392: ( p_encoded => FND_API.G_FALSE
3393: , p_count => x_msg_count
3394: , p_data => x_msg_data
3395: );
3396: END IF;
3393: , p_count => x_msg_count
3394: , p_data => x_msg_data
3395: );
3396: END IF;
3397: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3400: IF (x_msg_data IS NULL) THEN
3401: FND_MSG_PUB.Count_And_Get
3394: , p_data => x_msg_data
3395: );
3396: END IF;
3397: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3400: IF (x_msg_data IS NULL) THEN
3401: FND_MSG_PUB.Count_And_Get
3402: ( p_encoded => FND_API.G_FALSE
3395: );
3396: END IF;
3397: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3400: IF (x_msg_data IS NULL) THEN
3401: FND_MSG_PUB.Count_And_Get
3402: ( p_encoded => FND_API.G_FALSE
3403: , p_count => x_msg_count
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3400: IF (x_msg_data IS NULL) THEN
3401: FND_MSG_PUB.Count_And_Get
3402: ( p_encoded => FND_API.G_FALSE
3403: , p_count => x_msg_count
3404: , p_data => x_msg_data
3405: );
3406: END IF;
3403: , p_count => x_msg_count
3404: , p_data => x_msg_data
3405: );
3406: END IF;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3409: WHEN NO_DATA_FOUND THEN
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: IF (x_msg_data IS NOT NULL) THEN
3404: , p_data => x_msg_data
3405: );
3406: END IF;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3409: WHEN NO_DATA_FOUND THEN
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: IF (x_msg_data IS NOT NULL) THEN
3412: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3406: END IF;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3409: WHEN NO_DATA_FOUND THEN
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: IF (x_msg_data IS NOT NULL) THEN
3412: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3413: ELSE
3414: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3414: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3415: END IF;
3416: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3417: WHEN OTHERS THEN
3418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3419: IF (x_msg_data IS NOT NULL) THEN
3420: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3421: ELSE
3422: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3426: /*********************************************************************************
3427: UPDATE DIMENSION LEVEL SELECTIONS
3428: *********************************************************************************/
3429: PROCEDURE Create_Dim_Grp_Lev_In_Dset
3430: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
3431: , p_kpi_id IN NUMBER
3432: , p_dim_set_id IN NUMBER
3433: , p_dim_short_names IN VARCHAR2
3434: , x_return_status OUT NOCOPY VARCHAR2
3442: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.short_name%TYPE;
3443: BEGIN
3444: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3445: FND_MSG_PUB.Initialize;
3446: x_return_status := FND_API.G_RET_STS_SUCCESS;
3447:
3448: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
3449: l_bsc_dimset_rec.Bsc_Dim_Level_Long_Name := 'XXX';
3450: l_bsc_dimset_rec.Bsc_Dim_Tot_Disp_Name := 'XXX';
3519: , x_return_status => x_return_status
3520: , x_msg_count => x_msg_count
3521: , x_msg_data => x_msg_data
3522: );
3523: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3524: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_GROUP Failed: at Create_Dim_Grp_Lev_In_Dset');
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- END : Granular Locking
3521: , x_msg_data => x_msg_data
3522: );
3523: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3524: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_GROUP Failed: at Create_Dim_Grp_Lev_In_Dset');
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- END : Granular Locking
3528: BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset--insert into BSC_KPI_DIM_GROUPS
3529: ( p_commit => FND_API.G_FALSE
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- END : Granular Locking
3528: BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset--insert into BSC_KPI_DIM_GROUPS
3529: ( p_commit => FND_API.G_FALSE
3530: , p_Dim_Set_Rec => l_bsc_dimset_rec
3531: , p_create_Dim_Lev_Grp => FALSE
3532: , x_return_status => x_return_status
3533: , x_msg_count => x_msg_count
3532: , x_return_status => x_return_status
3533: , x_msg_count => x_msg_count
3534: , x_msg_data => x_msg_data
3535: );
3536: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3534: , x_msg_data => x_msg_data
3535: );
3536: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3541: ( p_commit => FND_API.G_FALSE
3542: , p_Dim_Set_Rec => l_bsc_dimset_rec
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3541: ( p_commit => FND_API.G_FALSE
3542: , p_Dim_Set_Rec => l_bsc_dimset_rec
3543: , x_return_status => x_return_status
3544: , x_msg_count => x_msg_count
3545: , x_msg_data => x_msg_data
3543: , x_return_status => x_return_status
3544: , x_msg_count => x_msg_count
3545: , x_msg_data => x_msg_data
3546: );
3547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3545: , x_msg_data => x_msg_data
3546: );
3547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3552: ( p_commit => FND_API.G_FALSE
3553: , p_Dim_Set_Rec => l_bsc_dimset_rec
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3552: ( p_commit => FND_API.G_FALSE
3553: , p_Dim_Set_Rec => l_bsc_dimset_rec
3554: , x_return_status => x_return_status
3555: , x_msg_count => x_msg_count
3556: , x_msg_data => x_msg_data
3554: , x_return_status => x_return_status
3555: , x_msg_count => x_msg_count
3556: , x_msg_data => x_msg_data
3557: );
3558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3559: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: END IF;
3562: END IF;
3556: , x_msg_data => x_msg_data
3557: );
3558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3559: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: END IF;
3562: END IF;
3563: END LOOP;
3564: ELSE
3570: AND DIM_SET_ID = l_bsc_dimset_rec.Bsc_Dim_Set_Id;
3571: l_bsc_dimset_rec.Bsc_Dset_Dim_Level_Index := l_count + 1;
3572: END IF;
3573: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3574: ( p_commit => FND_API.G_FALSE
3575: , p_Dim_Set_Rec => l_bsc_dimset_rec
3576: , x_return_status => x_return_status
3577: , x_msg_count => x_msg_count
3578: , x_msg_data => x_msg_data
3576: , x_return_status => x_return_status
3577: , x_msg_count => x_msg_count
3578: , x_msg_data => x_msg_data
3579: );
3580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3581: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584: END IF;
3578: , x_msg_data => x_msg_data
3579: );
3580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3581: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584: END IF;
3585: -- START: Granular Locking, Change time stamp of Dim Set & KPI
3586: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
3589: , x_return_status => x_return_status
3590: , x_msg_count => x_msg_count
3591: , x_msg_data => x_msg_data
3592: );
3593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3594: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
3595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3596: END IF;
3597: --dbms_output.PUT_LINE('END Setting TIME STAMP');
3591: , x_msg_data => x_msg_data
3592: );
3593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3594: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
3595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3596: END IF;
3597: --dbms_output.PUT_LINE('END Setting TIME STAMP');
3598: -- END: Granular Locking, Change time stamp of Dim Set & KPI
3599: IF (p_commit = FND_API.G_TRUE) THEN
3595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3596: END IF;
3597: --dbms_output.PUT_LINE('END Setting TIME STAMP');
3598: -- END: Granular Locking, Change time stamp of Dim Set & KPI
3599: IF (p_commit = FND_API.G_TRUE) THEN
3600: COMMIT;
3601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3602: END IF;
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3599: IF (p_commit = FND_API.G_TRUE) THEN
3600: COMMIT;
3601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3602: END IF;
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: IF (x_msg_data IS NULL) THEN
3602: END IF;
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: IF (x_msg_data IS NULL) THEN
3608: FND_MSG_PUB.Count_And_Get
3609: ( p_encoded => FND_API.G_FALSE
3610: , p_count => x_msg_count
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: IF (x_msg_data IS NULL) THEN
3608: FND_MSG_PUB.Count_And_Get
3609: ( p_encoded => FND_API.G_FALSE
3610: , p_count => x_msg_count
3611: , p_data => x_msg_data
3612: );
3613: END IF;
3610: , p_count => x_msg_count
3611: , p_data => x_msg_data
3612: );
3613: END IF;
3614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3617: IF (x_msg_data IS NULL) THEN
3618: FND_MSG_PUB.Count_And_Get
3611: , p_data => x_msg_data
3612: );
3613: END IF;
3614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3617: IF (x_msg_data IS NULL) THEN
3618: FND_MSG_PUB.Count_And_Get
3619: ( p_encoded => FND_API.G_FALSE
3612: );
3613: END IF;
3614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3617: IF (x_msg_data IS NULL) THEN
3618: FND_MSG_PUB.Count_And_Get
3619: ( p_encoded => FND_API.G_FALSE
3620: , p_count => x_msg_count
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3617: IF (x_msg_data IS NULL) THEN
3618: FND_MSG_PUB.Count_And_Get
3619: ( p_encoded => FND_API.G_FALSE
3620: , p_count => x_msg_count
3621: , p_data => x_msg_data
3622: );
3623: END IF;
3620: , p_count => x_msg_count
3621: , p_data => x_msg_data
3622: );
3623: END IF;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3626: WHEN NO_DATA_FOUND THEN
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: IF (x_msg_data IS NOT NULL) THEN
3621: , p_data => x_msg_data
3622: );
3623: END IF;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3626: WHEN NO_DATA_FOUND THEN
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: IF (x_msg_data IS NOT NULL) THEN
3629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3623: END IF;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3626: WHEN NO_DATA_FOUND THEN
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: IF (x_msg_data IS NOT NULL) THEN
3629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3630: ELSE
3631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3632: END IF;
3633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3634: WHEN OTHERS THEN
3635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3636: IF (x_msg_data IS NOT NULL) THEN
3637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3638: ELSE
3639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3643: /*********************************************************************************
3644: ASSIGN DIMENSION-SETS
3645: *********************************************************************************/
3646: PROCEDURE Assign_DSet_Analysis_Options
3647: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
3648: , p_kpi_id IN NUMBER
3649: , p_dim_set_id IN NUMBER
3650: , p_analysis_grp_id IN NUMBER
3651: , p_option_id IN NUMBER
3666: BEGIN
3667: SAVEPOINT AssBSCDSetPMD;
3668: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3669: FND_MSG_PUB.Initialize;
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671: IF (p_kpi_id IS NULL) THEN
3672: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3673: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3674: FND_MSG_PUB.ADD;
3671: IF (p_kpi_id IS NULL) THEN
3672: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3673: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3674: FND_MSG_PUB.ADD;
3675: RAISE FND_API.G_EXC_ERROR;
3676: END IF;
3677: IF (p_dim_set_id IS NULL) THEN
3678: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3679: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3677: IF (p_dim_set_id IS NULL) THEN
3678: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3679: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3680: FND_MSG_PUB.ADD;
3681: RAISE FND_API.G_EXC_ERROR;
3682: END IF;
3683: IF (p_analysis_grp_id IS NULL) THEN
3684: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3685: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Analysis Group ID');
3683: IF (p_analysis_grp_id IS NULL) THEN
3684: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3685: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Analysis Group ID');
3686: FND_MSG_PUB.ADD;
3687: RAISE FND_API.G_EXC_ERROR;
3688: END IF;
3689: IF (p_option_id IS NULL) THEN
3690: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3691: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Option ID');
3689: IF (p_option_id IS NULL) THEN
3690: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3691: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Option ID');
3692: FND_MSG_PUB.ADD;
3693: RAISE FND_API.G_EXC_ERROR;
3694: END IF;
3695: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
3696: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
3697: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
3717: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3718: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3719: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3720: FND_MSG_PUB.ADD;
3721: RAISE FND_API.G_EXC_ERROR;
3722: END IF;
3723: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3724: ( p_commit => FND_API.G_FALSE
3725: , p_Dim_Set_Rec => l_bsc_dimset_rec
3720: FND_MSG_PUB.ADD;
3721: RAISE FND_API.G_EXC_ERROR;
3722: END IF;
3723: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3724: ( p_commit => FND_API.G_FALSE
3725: , p_Dim_Set_Rec => l_bsc_dimset_rec
3726: , x_return_status => x_return_status
3727: , x_msg_count => x_msg_count
3728: , x_msg_data => x_msg_data
3726: , x_return_status => x_return_status
3727: , x_msg_count => x_msg_count
3728: , x_msg_data => x_msg_data
3729: );
3730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3734: --copied from VB Code
3728: , x_msg_data => x_msg_data
3729: );
3730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3734: --copied from VB Code
3735: BSC_DESIGNER_PVT.Deflt_Update_AOPTS(l_bsc_dimset_rec.Bsc_Kpi_Id);
3736: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3745: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3746: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3747: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3748: FND_MSG_PUB.ADD;
3749: RAISE FND_API.G_EXC_ERROR;
3750: END IF;
3751: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3752: ( p_commit => FND_API.G_FALSE
3753: , p_Dim_Set_Rec => l_bsc_dimset_rec
3748: FND_MSG_PUB.ADD;
3749: RAISE FND_API.G_EXC_ERROR;
3750: END IF;
3751: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3752: ( p_commit => FND_API.G_FALSE
3753: , p_Dim_Set_Rec => l_bsc_dimset_rec
3754: , x_return_status => x_return_status
3755: , x_msg_count => x_msg_count
3756: , x_msg_data => x_msg_data
3754: , x_return_status => x_return_status
3755: , x_msg_count => x_msg_count
3756: , x_msg_data => x_msg_data
3757: );
3758: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3759: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3756: , x_msg_data => x_msg_data
3757: );
3758: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3759: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3763: END LOOP;
3764: END IF;
3761: END IF;
3762: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3763: END LOOP;
3764: END IF;
3765: IF (p_commit = FND_API.G_TRUE) THEN
3766: COMMIT;
3767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3768: END IF;
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765: IF (p_commit = FND_API.G_TRUE) THEN
3766: COMMIT;
3767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3768: END IF;
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3771: EXCEPTION
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO AssBSCDSetPMD;
3768: END IF;
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3771: EXCEPTION
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO AssBSCDSetPMD;
3774: IF (x_msg_data IS NULL) THEN
3775: FND_MSG_PUB.Count_And_Get
3776: ( p_encoded => FND_API.G_FALSE
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO AssBSCDSetPMD;
3774: IF (x_msg_data IS NULL) THEN
3775: FND_MSG_PUB.Count_And_Get
3776: ( p_encoded => FND_API.G_FALSE
3777: , p_count => x_msg_count
3778: , p_data => x_msg_data
3779: );
3780: END IF;
3777: , p_count => x_msg_count
3778: , p_data => x_msg_data
3779: );
3780: END IF;
3781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3782: x_return_status := FND_API.G_RET_STS_ERROR;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO AssBSCDSetPMD;
3785: IF (x_msg_data IS NULL) THEN
3778: , p_data => x_msg_data
3779: );
3780: END IF;
3781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3782: x_return_status := FND_API.G_RET_STS_ERROR;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO AssBSCDSetPMD;
3785: IF (x_msg_data IS NULL) THEN
3786: FND_MSG_PUB.Count_And_Get
3779: );
3780: END IF;
3781: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3782: x_return_status := FND_API.G_RET_STS_ERROR;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO AssBSCDSetPMD;
3785: IF (x_msg_data IS NULL) THEN
3786: FND_MSG_PUB.Count_And_Get
3787: ( p_encoded => FND_API.G_FALSE
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO AssBSCDSetPMD;
3785: IF (x_msg_data IS NULL) THEN
3786: FND_MSG_PUB.Count_And_Get
3787: ( p_encoded => FND_API.G_FALSE
3788: , p_count => x_msg_count
3789: , p_data => x_msg_data
3790: );
3791: END IF;
3788: , p_count => x_msg_count
3789: , p_data => x_msg_data
3790: );
3791: END IF;
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3794: WHEN NO_DATA_FOUND THEN
3795: ROLLBACK TO AssBSCDSetPMD;
3796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3789: , p_data => x_msg_data
3790: );
3791: END IF;
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3794: WHEN NO_DATA_FOUND THEN
3795: ROLLBACK TO AssBSCDSetPMD;
3796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3797: IF (x_msg_data IS NOT NULL) THEN
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3793: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3794: WHEN NO_DATA_FOUND THEN
3795: ROLLBACK TO AssBSCDSetPMD;
3796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3797: IF (x_msg_data IS NOT NULL) THEN
3798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3799: ELSE
3800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3801: END IF;
3802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3803: WHEN OTHERS THEN
3804: ROLLBACK TO AssBSCDSetPMD;
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: IF (x_msg_data IS NOT NULL) THEN
3807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3808: ELSE
3809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
4048: /*********************************************************************************
4049: API TO UPDATE PMF/BSC MEASURES/ANALYSIS OPTIONS WITHIN AN INDICATOR
4050: *********************************************************************************/
4051: PROCEDURE Update_KPI_Analysis_Options
4052: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
4053: , p_kpi_id IN NUMBER
4054: , p_data_source IN VARCHAR2 --this parameter is not needed and can be removed from the API
4055: , p_analysis_group_id IN NUMBER
4056: , p_analysis_option_id0 IN NUMBER
4169:
4170: BEGIN
4171: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4172: FND_MSG_PUB.Initialize;
4173: x_return_status := FND_API.G_RET_STS_SUCCESS;
4174: SAVEPOINT UpdateBSCKPIAnaOpts;
4175: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
4176: l_dim_set_id := p_dim_set_id;
4177: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := p_option0_Name;
4203: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
4204: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4205: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
4206: FND_MSG_PUB.ADD;
4207: RAISE FND_API.G_EXC_ERROR;
4208: END IF;
4209: IF (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL) THEN
4210: IF (c_data_set_id%ISOPEN) THEN
4211: CLOSE c_data_set_id;
4217: IF (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL) THEN
4218: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4219: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'DATASET'), TRUE);
4220: FND_MSG_PUB.ADD;
4221: RAISE FND_API.G_EXC_ERROR;
4222: END IF;
4223: SELECT COUNT(*) INTO l_count
4224: FROM BSC_KPIS_B
4225: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
4226: IF (l_count = 0) THEN
4227: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
4228: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
4229: FND_MSG_PUB.ADD;
4230: RAISE FND_API.G_EXC_ERROR;
4231: END IF;
4232: -- Verify that this is not a Shared KPI.
4233: SELECT share_flag INTO l_count
4234: FROM BSC_KPIS_B
4236: IF (l_count = 2) THEN
4237: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
4238: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4239: FND_MSG_PUB.ADD;
4240: RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4242:
4243: SELECT Source INTO l_data_source
4244: FROM BSC_SYS_DATASETS_B
4257: (((l_data_source <> l_temp_data_source) AND (l_data_set_id <> -1)) OR
4258: ((l_data_set_id <> -1) AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id = -1)))) THEN
4259: FND_MESSAGE.SET_NAME('BSC','BSC_NO_UPDATE_MEASURE_SOURCE');
4260: FND_MSG_PUB.ADD;
4261: RAISE FND_API.G_EXC_ERROR;
4262: ELSIF (l_temp_data_source IS NULL) THEN
4263: FND_MESSAGE.SET_NAME('BSC','BSC_V_NO_MEASURE_BY_DIM_SET');
4264: FND_MESSAGE.SET_TOKEN('DIM_SET', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4265: FND_MSG_PUB.ADD;
4262: ELSIF (l_temp_data_source IS NULL) THEN
4263: FND_MESSAGE.SET_NAME('BSC','BSC_V_NO_MEASURE_BY_DIM_SET');
4264: FND_MESSAGE.SET_TOKEN('DIM_SET', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4265: FND_MSG_PUB.ADD;
4266: RAISE FND_API.G_EXC_ERROR;
4267: END IF;
4268: END IF;
4269: --dbms_output.PUT_LINE('p_data_source '||l_data_source);
4270: -- START Granular Locking - Lock the KPI Under consideration
4275: , x_return_status => x_return_status
4276: , x_msg_count => x_msg_count
4277: , x_msg_data => x_msg_data
4278: );
4279: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4280: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
4281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4282: END IF;
4283: --ADDED BY PETER
4277: , x_msg_data => x_msg_data
4278: );
4279: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4280: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
4281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4282: END IF;
4283: --ADDED BY PETER
4284: -- Save the old data set ID for comparison (3169904)
4285: IF (c_old_data_set_id%ISOPEN) THEN
4296: --default_calculation should be cleared off when the current dataset does not support that property
4297: IF l_old_data_set_id <> p_data_set_id AND l_def_calc_id IS NOT NULL AND
4298: BSC_CALCULATIONS_PUB.Is_Calculation_Enabled(p_dataset_id => p_data_set_id, p_calculation_id => l_def_calc_id) = 'N' THEN
4299: BSC_KPI_SERIES_PUB.Save_Default_Calculation(
4300: p_commit => FND_API.G_FALSE
4301: ,p_Indicator => p_kpi_id
4302: ,p_Analysis_Option0 => p_analysis_option_id0
4303: ,p_Analysis_Option1 => p_analysis_option_id1
4304: ,p_Analysis_Option2 => p_analysis_option_id2
4307: ,x_return_status => x_return_status
4308: ,x_msg_count => x_msg_count
4309: ,x_msg_data => x_msg_data
4310: );
4311: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314: END IF;
4315: -- END Granular Locking - Lock the KPI Under consideration
4308: ,x_msg_count => x_msg_count
4309: ,x_msg_data => x_msg_data
4310: );
4311: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314: END IF;
4315: -- END Granular Locking - Lock the KPI Under consideration
4316: IF (l_data_source = 'PMF') THEN
4321: l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id := l_dim_set_id;
4322: END IF;
4323: --dbms_output.PUT_LINE('into the PMF area');
4324: BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults
4325: ( p_commit => FND_API.G_FALSE
4326: , p_data_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
4327: , p_measure_short_name => p_measure_short_name
4328: , p_dim_obj_short_names => p_dim_obj_short_names
4329: , p_default_short_names => p_default_short_names
4335: , x_return_status => x_return_status
4336: , x_msg_count => x_msg_count
4337: , x_msg_data => x_msg_data
4338: );
4339: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4340: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults');
4341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF;
4343: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
4337: , x_msg_data => x_msg_data
4338: );
4339: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4340: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults');
4341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF;
4343: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
4344: ( p_commit => FND_API.G_FALSE
4345: , p_Kpi_Id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4340: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults');
4341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF;
4343: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
4344: ( p_commit => FND_API.G_FALSE
4345: , p_Kpi_Id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4346: , p_dim_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4347: , x_return_status => x_return_status
4348: , x_msg_count => x_msg_count
4347: , x_return_status => x_return_status
4348: , x_msg_count => x_msg_count
4349: , x_msg_data => x_msg_data
4350: );
4351: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4352: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison');
4353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4354: END IF;
4355: --this following part of the code is copied from BSC_PMF_UI_API_PUB.Create_Bsc_Analysis_Option
4349: , x_msg_data => x_msg_data
4350: );
4351: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4352: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison');
4353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4354: END IF;
4355: --this following part of the code is copied from BSC_PMF_UI_API_PUB.Create_Bsc_Analysis_Option
4356: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
4357: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id := 0;
4396: , x_msg_count => x_msg_count
4397: , x_msg_data => x_msg_data
4398: );
4399: --dbms_output.PUT_LINE('locked @@ .. '|| l_dim_obj_name);
4400: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4401: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_CREATE_DIMENSION');
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4404: END IF;
4398: );
4399: --dbms_output.PUT_LINE('locked @@ .. '|| l_dim_obj_name);
4400: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4401: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_CREATE_DIMENSION');
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4404: END IF;
4405: END LOOP;
4406: END IF;
4434: --dbms_output.PUT_LINE('Unique Short Name Created '||l_dim_short_name);
4435: --dbms_output.PUT_LINE('l_dim_obj_short_names '||l_dim_obj_short_names);
4436: --dbms_output.PUT_LINE('CREATE DIMENSION GROUPS');
4437: BSC_BIS_DIMENSION_PUB.Create_Dimension
4438: ( p_commit => FND_API.G_FALSE
4439: , p_dim_short_name => l_dim_short_name
4440: , p_display_name => l_dim_short_name
4441: , p_description => l_dim_short_name
4442: , p_dim_obj_short_names => l_dim_obj_short_names
4441: , p_description => l_dim_short_name
4442: , p_dim_obj_short_names => l_dim_obj_short_names
4443: , p_application_id => 271
4444: , p_create_view => 1
4445: , p_hide => FND_API.G_TRUE
4446: , x_return_status => x_return_status
4447: , x_msg_count => x_msg_count
4448: , x_msg_data => x_msg_data
4449: );
4446: , x_return_status => x_return_status
4447: , x_msg_count => x_msg_count
4448: , x_msg_data => x_msg_data
4449: );
4450: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4451: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Create_Dimension');
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4448: , x_msg_data => x_msg_data
4449: );
4450: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4451: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Create_Dimension');
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4455: END IF;
4456: --if dimension set exists than update otherwise create new dimension set
4464: INTO l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4465: FROM BSC_KPI_DIM_SETS_VL
4466: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
4467: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set
4468: ( p_commit => FND_API.G_FALSE
4469: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4470: , p_display_name => 'Dimension Set '||l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4471: , p_dim_short_names => l_dim_short_name
4472: , p_time_stamp => NULL
4473: , x_return_status => x_return_status
4474: , x_msg_count => x_msg_count
4475: , x_msg_data => x_msg_data
4476: );
4477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4478: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
4479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4480: END IF;
4481: ELSE
4475: , x_msg_data => x_msg_data
4476: );
4477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4478: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
4479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4480: END IF;
4481: ELSE
4482: SELECT COUNT(*) INTO l_count
4483: FROM BSC_KPI_DIM_SETS_VL
4487: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
4488: FND_MESSAGE.SET_TOKEN('KPI_ID', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4489: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4490: FND_MSG_PUB.ADD;
4491: RAISE FND_API.G_EXC_ERROR;
4492: END IF;
4493: --dbms_output.PUT_LINE('ASSIGN TO DIMENSION SET');
4494: IF (l_dim_obj_short_names IS NULL) THEN
4495: l_dim_short_name := NULL;
4494: IF (l_dim_obj_short_names IS NULL) THEN
4495: l_dim_short_name := NULL;
4496: END IF;
4497: BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set
4498: ( p_commit => FND_API.G_FALSE
4499: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4500: , p_dim_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4501: , p_dim_short_names => l_dim_short_name
4502: , x_return_status => x_return_status
4502: , x_return_status => x_return_status
4503: , x_msg_count => x_msg_count
4504: , x_msg_data => x_msg_data
4505: );
4506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4507: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
4508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4509: END IF;
4510: END IF;
4504: , x_msg_data => x_msg_data
4505: );
4506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4507: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
4508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4509: END IF;
4510: END IF;
4511: -- default values and view by
4512: IF (l_default_short_names IS NOT NULL) THEN
4522: INTO l_bsc_dimset_rec.Bsc_Level_Name
4523: FROM BSC_SYS_DIM_LEVELS_B
4524: WHERE Short_Name = l_dim_obj_name;
4525: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4526: ( p_commit => FND_API.G_FALSE
4527: , p_Dim_Set_Rec => l_bsc_dimset_rec
4528: , x_return_status => x_return_status
4529: , x_msg_count => x_msg_count
4530: , x_msg_data => x_msg_data
4528: , x_return_status => x_return_status
4529: , x_msg_count => x_msg_count
4530: , x_msg_data => x_msg_data
4531: );
4532: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4533: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- default values and view by for shared indicators
4530: , x_msg_data => x_msg_data
4531: );
4532: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4533: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- default values and view by for shared indicators
4537: FOR cd IN c_kpi_ids LOOP
4538: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4536: -- default values and view by for shared indicators
4537: FOR cd IN c_kpi_ids LOOP
4538: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4539: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4540: ( p_commit => FND_API.G_FALSE
4541: , p_Dim_Set_Rec => l_bsc_dimset_rec
4542: , x_return_status => x_return_status
4543: , x_msg_count => x_msg_count
4544: , x_msg_data => x_msg_data
4542: , x_return_status => x_return_status
4543: , x_msg_count => x_msg_count
4544: , x_msg_data => x_msg_data
4545: );
4546: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4547: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4549: END IF;
4550: END LOOP;
4544: , x_msg_data => x_msg_data
4545: );
4546: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4547: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4549: END IF;
4550: END LOOP;
4551: END IF;
4552: END LOOP;
4560: INTO l_bsc_dimset_rec.Bsc_Level_Name
4561: FROM BSC_SYS_DIM_LEVELS_B
4562: WHERE Short_Name = l_view_by_name;
4563: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4564: ( p_commit => FND_API.G_FALSE
4565: , p_Dim_Set_Rec => l_bsc_dimset_rec
4566: , x_return_status => x_return_status
4567: , x_msg_count => x_msg_count
4568: , x_msg_data => x_msg_data
4566: , x_return_status => x_return_status
4567: , x_msg_count => x_msg_count
4568: , x_msg_data => x_msg_data
4569: );
4570: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4571: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: -- default values and view by for shared indicators
4568: , x_msg_data => x_msg_data
4569: );
4570: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4571: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: -- default values and view by for shared indicators
4575: FOR cd IN c_kpi_ids LOOP
4576: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4574: -- default values and view by for shared indicators
4575: FOR cd IN c_kpi_ids LOOP
4576: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4577: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4578: ( p_commit => FND_API.G_FALSE
4579: , p_Dim_Set_Rec => l_bsc_dimset_rec
4580: , x_return_status => x_return_status
4581: , x_msg_count => x_msg_count
4582: , x_msg_data => x_msg_data
4580: , x_return_status => x_return_status
4581: , x_msg_count => x_msg_count
4582: , x_msg_data => x_msg_data
4583: );
4584: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588: END LOOP;
4582: , x_msg_data => x_msg_data
4583: );
4584: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588: END LOOP;
4589: END IF;
4590: END IF;
4606: , x_return_status => x_return_status
4607: , x_msg_count => x_msg_count
4608: , x_msg_data => x_msg_data
4609: );
4610: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4612: END IF;
4613: END IF;
4614: END LOOP;
4607: , x_msg_count => x_msg_count
4608: , x_msg_data => x_msg_data
4609: );
4610: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4612: END IF;
4613: END IF;
4614: END LOOP;
4615: END IF;
4647: , x_return_status => x_return_status
4648: , x_msg_count => x_msg_count
4649: , x_msg_data => x_msg_data
4650: );
4651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4652: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4654: END IF;
4655: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4649: , x_msg_data => x_msg_data
4650: );
4651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4652: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4654: END IF;
4655: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4656: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id);
4657: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id);
4656: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id);
4657: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id);
4658: -- END Granular Locking
4659: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4660: ( p_commit => FND_API.G_FALSE
4661: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
4662: , x_return_status => x_return_status
4663: , x_msg_count => x_msg_count
4664: , x_msg_data => x_msg_data
4662: , x_return_status => x_return_status
4663: , x_msg_count => x_msg_count
4664: , x_msg_data => x_msg_data
4665: );
4666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4667: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4669: END IF;
4670: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4664: , x_msg_data => x_msg_data
4665: );
4666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4667: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4669: END IF;
4670: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4671: FOR cd IN c_kpi_ids LOOP
4672: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := cd.indicator;
4680: , x_return_status => x_return_status
4681: , x_msg_count => x_msg_count
4682: , x_msg_data => x_msg_data
4683: );
4684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4685: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed Failed: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: END IF;
4688: ELSE
4682: , x_msg_data => x_msg_data
4683: );
4684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4685: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed Failed: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: END IF;
4688: ELSE
4689: --dbms_output.PUT_LINE('ELSE');
4690: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
4690: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
4691: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4692: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'ANALYSIS_MS'), TRUE);
4693: FND_MSG_PUB.ADD;
4694: RAISE FND_API.G_EXC_ERROR;
4695: END IF;
4696: IF (l_Bsc_Anal_Opt_Rec.Bsc_Option_Name IS NULL) THEN
4697: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name;
4698: END IF;
4696: IF (l_Bsc_Anal_Opt_Rec.Bsc_Option_Name IS NULL) THEN
4697: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name;
4698: END IF;
4699: BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options
4700: ( p_commit => FND_API.G_FALSE
4701: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
4702: , x_return_status => x_return_status
4703: , x_msg_count => x_msg_count
4704: , x_msg_data => x_msg_data
4702: , x_return_status => x_return_status
4703: , x_msg_count => x_msg_count
4704: , x_msg_data => x_msg_data
4705: );
4706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
4708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4709: END IF;
4710: END IF;
4704: , x_msg_data => x_msg_data
4705: );
4706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
4708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4709: END IF;
4710: END IF;
4711: -- START Granular Locking added by Aditya
4712: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
4715: , x_return_status => x_return_status
4716: , x_msg_count => x_msg_count
4717: , x_msg_data => x_msg_data
4718: );
4719: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4720: --dbms_output.PUT_LINE('BSC_BIS_DIMENSION_PUB.CREATE_DIM_LEVEL_GROUP Failed: at BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group');
4721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4722: END IF;
4723: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
4717: , x_msg_data => x_msg_data
4718: );
4719: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4720: --dbms_output.PUT_LINE('BSC_BIS_DIMENSION_PUB.CREATE_DIM_LEVEL_GROUP Failed: at BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group');
4721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4722: END IF;
4723: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
4724: ( p_dataset_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
4725: , x_return_status => x_return_status
4725: , x_return_status => x_return_status
4726: , x_msg_count => x_msg_count
4727: , x_msg_data => x_msg_data
4728: );
4729: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4730: --dbms_output.PUT_LINE('BSC_BIS_DIMENSION_PUB.CREATE_DIM_LEVEL_GROUP Failed: at BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group');
4731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4732: END IF;
4733: -- END Granular Locking added by Aditya
4727: , x_msg_data => x_msg_data
4728: );
4729: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4730: --dbms_output.PUT_LINE('BSC_BIS_DIMENSION_PUB.CREATE_DIM_LEVEL_GROUP Failed: at BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group');
4731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4732: END IF;
4733: -- END Granular Locking added by Aditya
4734: ELSIF (l_data_source = 'BSC') THEN
4735: -- IF (p_option0_Name IS NOT NULL) THEN /* if changed to fix bug 3149102 */
4748: , x_return_status => x_return_status
4749: , x_msg_count => x_msg_count
4750: , x_msg_data => x_msg_data
4751: );
4752: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4753: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Failed');
4754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4755: END IF;
4756: END IF;
4750: , x_msg_data => x_msg_data
4751: );
4752: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4753: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Failed');
4754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4755: END IF;
4756: END IF;
4757: -- Lock the Datasets before UPDATE
4758: -- IF (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL) THEN fiexed bug
4763: , x_return_status => x_return_status
4764: , x_msg_count => x_msg_count
4765: , x_msg_data => x_msg_data
4766: );
4767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4768: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4770: END IF;
4771: END IF;
4765: , x_msg_data => x_msg_data
4766: );
4767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4768: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4770: END IF;
4771: END IF;
4772: -- END Granular Locking
4773: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4770: END IF;
4771: END IF;
4772: -- END Granular Locking
4773: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4774: ( p_commit => FND_API.G_FALSE
4775: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
4776: , p_data_Source => l_data_source
4777: , x_return_status => x_return_status
4778: , x_msg_count => x_msg_count
4777: , x_return_status => x_return_status
4778: , x_msg_count => x_msg_count
4779: , x_msg_data => x_msg_data
4780: );
4781: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4782: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785: IF (p_option1_Name IS NOT NULL) THEN
4779: , x_msg_data => x_msg_data
4780: );
4781: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4782: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785: IF (p_option1_Name IS NOT NULL) THEN
4786: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_analysis_option_id1;
4787: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := p_option1_Name;
4797: , x_return_status => x_return_status
4798: , x_msg_count => x_msg_count
4799: , x_msg_data => x_msg_data
4800: );
4801: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4802: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4804: END IF;
4805: l_Bsc_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := NULL;
4799: , x_msg_data => x_msg_data
4800: );
4801: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4802: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4804: END IF;
4805: l_Bsc_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := NULL;
4806: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options1 '||p_option1_Name);
4807: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4804: END IF;
4805: l_Bsc_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := NULL;
4806: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options1 '||p_option1_Name);
4807: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4808: ( p_commit => FND_API.G_FALSE
4809: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
4810: , p_data_Source => l_data_source
4811: , x_return_status => x_return_status
4812: , x_msg_count => x_msg_count
4811: , x_return_status => x_return_status
4812: , x_msg_count => x_msg_count
4813: , x_msg_data => x_msg_data
4814: );
4815: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4816: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: END IF;
4819: END IF;
4813: , x_msg_data => x_msg_data
4814: );
4815: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4816: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: END IF;
4819: END IF;
4820: IF (p_option2_Name IS NOT NULL) THEN
4821: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_analysis_option_id2;
4832: , x_return_status => x_return_status
4833: , x_msg_count => x_msg_count
4834: , x_msg_data => x_msg_data
4835: );
4836: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4837: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options2 '||p_option2_Name);
4834: , x_msg_data => x_msg_data
4835: );
4836: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4837: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options2 '||p_option2_Name);
4841: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4842: ( p_commit => FND_API.G_FALSE
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options2 '||p_option2_Name);
4841: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4842: ( p_commit => FND_API.G_FALSE
4843: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
4844: , p_data_Source => l_data_source
4845: , x_return_status => x_return_status
4846: , x_msg_count => x_msg_count
4845: , x_return_status => x_return_status
4846: , x_msg_count => x_msg_count
4847: , x_msg_data => x_msg_data
4848: );
4849: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4850: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4852: END IF;
4853: END IF;
4847: , x_msg_data => x_msg_data
4848: );
4849: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4850: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4852: END IF;
4853: END IF;
4854: END IF;
4855: IF ((p_default_value IS NOT NULL) AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Series_Id IS NOT NULL)) THEN
4893: , x_return_status => x_return_status
4894: , x_msg_count => x_msg_count
4895: , x_msg_data => x_msg_data
4896: );
4897: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
4898: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed');
4899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4900: END IF;
4901: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
4895: , x_msg_data => x_msg_data
4896: );
4897: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
4898: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET Failed');
4899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4900: END IF;
4901: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
4902: ( p_dataset_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
4903: , x_return_status => x_return_status
4903: , x_return_status => x_return_status
4904: , x_msg_count => x_msg_count
4905: , x_msg_data => x_msg_data
4906: );
4907: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
4908: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET Failed');
4909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4910: END IF;
4911: -- END Granular Locking added by Aditya
4905: , x_msg_data => x_msg_data
4906: );
4907: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
4908: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET Failed');
4909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4910: END IF;
4911: -- END Granular Locking added by Aditya
4912: END IF;
4913:
4910: END IF;
4911: -- END Granular Locking added by Aditya
4912: END IF;
4913:
4914: IF (p_commit = FND_API.G_TRUE) THEN
4915: COMMIT;
4916: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
4917: END IF;
4918: x_return_status := FND_API.G_RET_STS_SUCCESS;
4914: IF (p_commit = FND_API.G_TRUE) THEN
4915: COMMIT;
4916: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
4917: END IF;
4918: x_return_status := FND_API.G_RET_STS_SUCCESS;
4919: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4920: EXCEPTION
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: IF (c_data_set_id%ISOPEN) THEN
4917: END IF;
4918: x_return_status := FND_API.G_RET_STS_SUCCESS;
4919: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4920: EXCEPTION
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: IF (c_data_set_id%ISOPEN) THEN
4923: CLOSE c_data_set_id;
4924: END IF;
4925: ROLLBACK TO UpdateBSCKPIAnaOpts;
4924: END IF;
4925: ROLLBACK TO UpdateBSCKPIAnaOpts;
4926: IF (x_msg_data IS NULL) THEN
4927: FND_MSG_PUB.Count_And_Get
4928: ( p_encoded => FND_API.G_FALSE
4929: , p_count => x_msg_count
4930: , p_data => x_msg_data
4931: );
4932: END IF;
4929: , p_count => x_msg_count
4930: , p_data => x_msg_data
4931: );
4932: END IF;
4933: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4934: x_return_status := FND_API.G_RET_STS_ERROR;
4935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4936: IF (c_data_set_id%ISOPEN) THEN
4937: CLOSE c_data_set_id;
4930: , p_data => x_msg_data
4931: );
4932: END IF;
4933: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4934: x_return_status := FND_API.G_RET_STS_ERROR;
4935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4936: IF (c_data_set_id%ISOPEN) THEN
4937: CLOSE c_data_set_id;
4938: END IF;
4931: );
4932: END IF;
4933: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4934: x_return_status := FND_API.G_RET_STS_ERROR;
4935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4936: IF (c_data_set_id%ISOPEN) THEN
4937: CLOSE c_data_set_id;
4938: END IF;
4939: ROLLBACK TO UpdateBSCKPIAnaOpts;
4938: END IF;
4939: ROLLBACK TO UpdateBSCKPIAnaOpts;
4940: IF (x_msg_data IS NULL) THEN
4941: FND_MSG_PUB.Count_And_Get
4942: ( p_encoded => FND_API.G_FALSE
4943: , p_count => x_msg_count
4944: , p_data => x_msg_data
4945: );
4946: END IF;
4943: , p_count => x_msg_count
4944: , p_data => x_msg_data
4945: );
4946: END IF;
4947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4948: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4949: WHEN NO_DATA_FOUND THEN
4950: IF (c_data_set_id%ISOPEN) THEN
4951: CLOSE c_data_set_id;
4944: , p_data => x_msg_data
4945: );
4946: END IF;
4947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4948: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4949: WHEN NO_DATA_FOUND THEN
4950: IF (c_data_set_id%ISOPEN) THEN
4951: CLOSE c_data_set_id;
4952: END IF;
4950: IF (c_data_set_id%ISOPEN) THEN
4951: CLOSE c_data_set_id;
4952: END IF;
4953: ROLLBACK TO UpdateBSCKPIAnaOpts;
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4955: IF (x_msg_data IS NOT NULL) THEN
4956: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4957: ELSE
4958: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4962: IF (c_data_set_id%ISOPEN) THEN
4963: CLOSE c_data_set_id;
4964: END IF;
4965: ROLLBACK TO UpdateBSCKPIAnaOpts;
4966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4967: IF (x_msg_data IS NOT NULL) THEN
4968: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4969: ELSE
4970: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4976: API TO CREATE PMF/BSC MEASURES/ANALYSIS OPTIONS WITHIN AN INDICATOR
4977: *********************************************************************************/
4978: -- ADRAO added Short_Name to Analysis Option for Enh#3540302 (ADMINISTRATOR TO ADD KPI TO KPI REGION)
4979: PROCEDURE Create_KPI_Analysis_Options
4980: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
4981: , p_kpi_id IN NUMBER
4982: , p_analysis_group_id IN NUMBER
4983: , p_data_set_id IN NUMBER
4984: , p_measure_short_name IN VARCHAR2
5014: l_index NUMBER;
5015: BEGIN
5016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5017: FND_MSG_PUB.Initialize;
5018: x_return_status := FND_API.G_RET_STS_SUCCESS;
5019: SAVEPOINT CreateBSCKPIAnaOpts;
5020:
5021: OPEN c_data_source;
5022: FETCH c_data_source INTO l_datasource;
5027: FROM BSC_LOOKUPS
5028: WHERE LOOKUP_TYPE = 'BSC_UI_COMMON' AND LOOKUP_CODE = 'EDW_MEASURE' ;
5029: FND_MESSAGE.SET_TOKEN('TYPE', l_meaning, TRUE);
5030: FND_MSG_PUB.ADD;
5031: RAISE FND_API.G_EXC_ERROR;
5032: END IF;
5033: IF ((l_datasource <> 'BSC') AND (l_datasource <> 'PMF')) THEN
5034: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5035: FND_MSG_PUB.ADD;
5032: END IF;
5033: IF ((l_datasource <> 'BSC') AND (l_datasource <> 'PMF')) THEN
5034: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5035: FND_MSG_PUB.ADD;
5036: RAISE FND_API.G_EXC_ERROR;
5037: END IF;
5038: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
5039: l_measure_short_name := p_measure_short_name;
5040: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := p_measure_name;
5059: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
5060: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5061: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5062: FND_MSG_PUB.ADD;
5063: RAISE FND_API.G_EXC_ERROR;
5064: END IF;
5065: IF ((l_datasource = 'BSC') AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL)) THEN
5066: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5067: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'DATASET'), TRUE);
5065: IF ((l_datasource = 'BSC') AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL)) THEN
5066: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5067: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'DATASET'), TRUE);
5068: FND_MSG_PUB.ADD;
5069: RAISE FND_API.G_EXC_ERROR;
5070: END IF;
5071: SELECT COUNT(*) INTO l_count
5072: FROM BSC_KPIS_B
5073: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
5074: IF (l_count = 0) THEN
5075: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5076: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5077: FND_MSG_PUB.ADD;
5078: RAISE FND_API.G_EXC_ERROR;
5079: END IF;
5080: -- Verify that this is not a Shared KPI.
5081: SELECT share_flag INTO l_count
5082: FROM BSC_KPIS_B
5083: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id ;
5084: IF (l_count = 2) THEN
5085: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5086: FND_MSG_PUB.ADD;
5087: RAISE FND_API.G_EXC_ERROR;
5088: END IF;
5089: --dbms_output.PUT_LINE('l_datasource '||l_datasource);
5090: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
5091: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5090: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
5091: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5092: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'ANALYSIS_MS'), TRUE);
5093: FND_MSG_PUB.ADD;
5094: RAISE FND_API.G_EXC_ERROR;
5095: END IF;
5096: IF (l_Bsc_Anal_Opt_Rec.Bsc_Option_Name IS NULL) THEN
5097: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name;
5098: END IF;
5104: , x_return_status => x_return_status
5105: , x_msg_count => x_msg_count
5106: , x_msg_data => x_msg_data
5107: );
5108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5109: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5111: END IF;
5112: -- END Granular Locking - Lock the KPI Under consideration
5106: , x_msg_data => x_msg_data
5107: );
5108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5109: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5111: END IF;
5112: -- END Granular Locking - Lock the KPI Under consideration
5113: IF (l_datasource = 'PMF') THEN
5114: BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options
5111: END IF;
5112: -- END Granular Locking - Lock the KPI Under consideration
5113: IF (l_datasource = 'PMF') THEN
5114: BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options
5115: ( p_commit => FND_API.G_FALSE
5116: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
5117: , p_data_source => l_datasource
5118: , p_analysis_group_id => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id
5119: , p_analysis_option_id0 => NULL
5136: , x_return_status => x_return_status
5137: , x_msg_count => x_msg_count
5138: , x_msg_data => x_msg_data
5139: );
5140: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5141: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options');
5142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5143: END IF;
5144: ELSIF (l_datasource = 'BSC') THEN
5138: , x_msg_data => x_msg_data
5139: );
5140: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5141: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options');
5142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5143: END IF;
5144: ELSIF (l_datasource = 'BSC') THEN
5145: --for BSC we do not create dimension set. Therefore use the default value for dimension set
5146: l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id := 0;
5184: , x_return_status => x_return_status
5185: , x_msg_count => x_msg_count
5186: , x_msg_data => x_msg_data
5187: );
5188: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5189: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
5190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5191: END IF;
5192: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5186: , x_msg_data => x_msg_data
5187: );
5188: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5189: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DATASET Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
5190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5191: END IF;
5192: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5193: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id);
5194: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id);
5193: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id);
5194: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id);
5195: -- END Granular Locking
5196: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
5197: ( p_commit => FND_API.G_FALSE
5198: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
5199: , x_return_status => x_return_status
5200: , x_msg_count => x_msg_count
5201: , x_msg_data => x_msg_data
5199: , x_return_status => x_return_status
5200: , x_msg_count => x_msg_count
5201: , x_msg_data => x_msg_data
5202: );
5203: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5204: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
5205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5206: END IF;
5207: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5201: , x_msg_data => x_msg_data
5202: );
5203: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5204: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
5205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5206: END IF;
5207: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5208: FOR cd IN c_kpi_ids LOOP
5209: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := cd.indicator;
5217: AND Analysis_Group_Id = l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id;
5218:
5219: -- START Granular Locking added by Aditya
5220: BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options
5221: ( p_commit => FND_API.G_FALSE
5222: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
5223: , x_return_status => x_return_status
5224: , x_msg_count => x_msg_count
5225: , x_msg_data => x_msg_data
5223: , x_return_status => x_return_status
5224: , x_msg_count => x_msg_count
5225: , x_msg_data => x_msg_data
5226: );
5227: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5228: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
5229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5230: END IF;
5231: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
5225: , x_msg_data => x_msg_data
5226: );
5227: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5228: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
5229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5230: END IF;
5231: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
5232: ( p_dataset_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
5233: , x_return_status => x_return_status
5233: , x_return_status => x_return_status
5234: , x_msg_count => x_msg_count
5235: , x_msg_data => x_msg_data
5236: );
5237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5238: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET Failed');
5239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5240: END IF;
5241: -- Added by ADRAO
5235: , x_msg_data => x_msg_data
5236: );
5237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5238: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET Failed');
5239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5240: END IF;
5241: -- Added by ADRAO
5242: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_KPI
5243: ( p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
5244: , x_return_status => x_return_status
5245: , x_msg_count => x_msg_count
5246: , x_msg_data => x_msg_data
5247: );
5248: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: END IF;
5251: -- END Granular Locking added by Aditya
5252: END IF;
5245: , x_msg_count => x_msg_count
5246: , x_msg_data => x_msg_data
5247: );
5248: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: END IF;
5251: -- END Granular Locking added by Aditya
5252: END IF;
5253: END IF;
5265: END LOOP;
5266:
5267: END IF;
5268:
5269: IF (p_commit = FND_API.G_TRUE) THEN
5270: COMMIT;
5271: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5272: END IF;
5273: x_return_status := FND_API.G_RET_STS_SUCCESS;
5269: IF (p_commit = FND_API.G_TRUE) THEN
5270: COMMIT;
5271: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5272: END IF;
5273: x_return_status := FND_API.G_RET_STS_SUCCESS;
5274: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5275: EXCEPTION
5276: WHEN FND_API.G_EXC_ERROR THEN
5277: IF (c_data_source%ISOPEN)THEN
5272: END IF;
5273: x_return_status := FND_API.G_RET_STS_SUCCESS;
5274: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5275: EXCEPTION
5276: WHEN FND_API.G_EXC_ERROR THEN
5277: IF (c_data_source%ISOPEN)THEN
5278: CLOSE c_data_source;
5279: END IF;
5280: ROLLBACK TO CreateBSCKPIAnaOpts;
5279: END IF;
5280: ROLLBACK TO CreateBSCKPIAnaOpts;
5281: IF (x_msg_data IS NULL) THEN
5282: FND_MSG_PUB.Count_And_Get
5283: ( p_encoded => FND_API.G_FALSE
5284: , p_count => x_msg_count
5285: , p_data => x_msg_data
5286: );
5287: END IF;
5284: , p_count => x_msg_count
5285: , p_data => x_msg_data
5286: );
5287: END IF;
5288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5289: x_return_status := FND_API.G_RET_STS_ERROR;
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: IF (c_data_source%ISOPEN)THEN
5292: CLOSE c_data_source;
5285: , p_data => x_msg_data
5286: );
5287: END IF;
5288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5289: x_return_status := FND_API.G_RET_STS_ERROR;
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: IF (c_data_source%ISOPEN)THEN
5292: CLOSE c_data_source;
5293: END IF;
5286: );
5287: END IF;
5288: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5289: x_return_status := FND_API.G_RET_STS_ERROR;
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: IF (c_data_source%ISOPEN)THEN
5292: CLOSE c_data_source;
5293: END IF;
5294: ROLLBACK TO CreateBSCKPIAnaOpts;
5293: END IF;
5294: ROLLBACK TO CreateBSCKPIAnaOpts;
5295: IF (x_msg_data IS NULL) THEN
5296: FND_MSG_PUB.Count_And_Get
5297: ( p_encoded => FND_API.G_FALSE
5298: , p_count => x_msg_count
5299: , p_data => x_msg_data
5300: );
5301: END IF;
5298: , p_count => x_msg_count
5299: , p_data => x_msg_data
5300: );
5301: END IF;
5302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5303: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5304: WHEN NO_DATA_FOUND THEN
5305: IF (c_data_source%ISOPEN)THEN
5306: CLOSE c_data_source;
5299: , p_data => x_msg_data
5300: );
5301: END IF;
5302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5303: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5304: WHEN NO_DATA_FOUND THEN
5305: IF (c_data_source%ISOPEN)THEN
5306: CLOSE c_data_source;
5307: END IF;
5305: IF (c_data_source%ISOPEN)THEN
5306: CLOSE c_data_source;
5307: END IF;
5308: ROLLBACK TO CreateBSCKPIAnaOpts;
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: IF (x_msg_data IS NOT NULL) THEN
5311: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5312: ELSE
5313: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5317: IF (c_data_source%ISOPEN)THEN
5318: CLOSE c_data_source;
5319: END IF;
5320: ROLLBACK TO CreateBSCKPIAnaOpts;
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5322: IF (x_msg_data IS NOT NULL) THEN
5323: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5324: ELSE
5325: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5329: /*********************************************************************************
5330: API TO DELETE PMF/BSC MEASURES/ANALYSIS OPTIONS WITHIN AN INDICATOR
5331: *********************************************************************************/
5332: /*PROCEDURE Delete_KPI_Analysis_Options
5333: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
5334: , p_kpi_id IN NUMBER
5335: , p_data_source IN VARCHAR2
5336: , p_option_id IN NUMBER
5337: , p_time_stamp IN VARCHAR2 := NULL
5349: l_Bsc_Dim_Set_Rec_Type BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
5350: BEGIN
5351: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5352: FND_MSG_PUB.Initialize;
5353: x_return_status := FND_API.G_RET_STS_SUCCESS;
5354: SAVEPOINT DeleteBSCKPIAnaOpts;
5355: IF (p_data_source IS NULL) THEN
5356: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5357: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
5355: IF (p_data_source IS NULL) THEN
5356: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5357: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
5358: FND_MSG_PUB.ADD;
5359: RAISE FND_API.G_EXC_ERROR;
5360: END IF;
5361: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
5362: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5363: FND_MSG_PUB.ADD;
5360: END IF;
5361: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
5362: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5363: FND_MSG_PUB.ADD;
5364: RAISE FND_API.G_EXC_ERROR;
5365: END IF;
5366: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
5367: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id; -- BSC_KPI_ANALYSIS_OPTIONS_TL.indicator
5368: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_option_id; -- BSC_KPI_ANALYSIS_OPTIONS_TL.option_id
5389: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
5390: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5391: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5392: FND_MSG_PUB.ADD;
5393: RAISE FND_API.G_EXC_ERROR;
5394: END IF;
5395:
5396: SELECT COUNT(*) INTO l_count
5397: FROM BSC_KPIS_B
5399: IF (l_count = 0) THEN
5400: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5401: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5402: FND_MSG_PUB.ADD;
5403: RAISE FND_API.G_EXC_ERROR;
5404: END IF;
5405: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
5406: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
5405: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
5406: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5410: END IF;
5411: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
5412: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
5411: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
5412: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
5414: FND_MSG_PUB.ADD;
5415: RAISE FND_API.G_EXC_ERROR;
5416: END IF;
5417: -- Verify that this is not a Shared KPI.
5418: SELECT share_flag INTO l_count
5419: FROM BSC_KPIS_B
5421: IF (l_count = 2) THEN
5422: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5423: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5424: FND_MSG_PUB.ADD;
5425: RAISE FND_API.G_EXC_ERROR;
5426: END IF;
5427: --Determine if Indicator assigned to a tab.
5428: SELECT COUNT(indicator) INTO l_count
5429: FROM BSC_TAB_INDICATORS
5449: , x_return_status => x_return_status
5450: , x_msg_count => x_msg_count
5451: , x_msg_data => x_msg_data
5452: );
5453: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5454: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5456: END IF;
5457: --Determine number of distinct dataset_id before delete.
5451: , x_msg_data => x_msg_data
5452: );
5453: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5454: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5456: END IF;
5457: --Determine number of distinct dataset_id before delete.
5458: SELECT COUNT (DISTINCT dataset_id) INTO l_count
5459: FROM BSC_KPI_ANALYSIS_MEASURES_B
5460: WHERE INDICATOR = p_kpi_id;
5461:
5462: -- END Granular Locking - Lock the KPI Under consideration
5463: BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options
5464: ( p_commit => FND_API.G_FALSE
5465: , p_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
5466: , x_return_status => x_return_status
5467: , x_msg_count => x_msg_count
5468: , x_msg_data => x_msg_data
5466: , x_return_status => x_return_status
5467: , x_msg_count => x_msg_count
5468: , x_msg_data => x_msg_data
5469: );
5470: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5471: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5473: END IF;
5474: --Determine number of distinct dataset_id after delete.
5468: , x_msg_data => x_msg_data
5469: );
5470: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5471: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5473: END IF;
5474: --Determine number of distinct dataset_id after delete.
5475: SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
5476: FROM BSC_KPI_ANALYSIS_MEASURES_B
5480: BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
5481: END IF;
5482: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
5483: BSC_KPI_PUB.Update_Kpi_Time_Stamp
5484: ( p_commit => FND_API.G_FALSE
5485: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
5486: , x_return_status => x_return_status
5487: , x_msg_count => x_msg_count
5488: , x_msg_data => x_msg_data
5486: , x_return_status => x_return_status
5487: , x_msg_count => x_msg_count
5488: , x_msg_data => x_msg_data
5489: );
5490: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5491: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493: END IF;
5494: -- Determine if the dimension set is being used by other options.
5488: , x_msg_data => x_msg_data
5489: );
5490: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5491: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493: END IF;
5494: -- Determine if the dimension set is being used by other options.
5495: IF (p_data_source = 'PMF') THEN
5496: SELECT COUNT(option_id) INTO l_count
5499: AND dim_set_id = l_dim_set_id;
5500: -- If there are no more options using this dim set delete it.
5501: IF (l_count = 0) THEN
5502: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
5503: ( p_commit => FND_API.G_FALSE
5504: , p_kpi_id => p_kpi_id
5505: , p_dim_set_id => l_dim_set_id
5506: , x_return_status => x_return_status
5507: , x_msg_count => x_msg_count
5506: , x_return_status => x_return_status
5507: , x_msg_count => x_msg_count
5508: , x_msg_data => x_msg_data
5509: );
5510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5511: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5513: END IF;
5514: -- Need to call procedure for list button logic.
5508: , x_msg_data => x_msg_data
5509: );
5510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5511: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5513: END IF;
5514: -- Need to call procedure for list button logic.
5515: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
5516: ( p_commit => FND_API.G_FALSE
5512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5513: END IF;
5514: -- Need to call procedure for list button logic.
5515: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
5516: ( p_commit => FND_API.G_FALSE
5517: , p_Tab_Id => l_tab_id
5518: , x_return_status => x_return_status
5519: , x_msg_count => x_msg_count
5520: , x_msg_data => x_msg_data
5518: , x_return_status => x_return_status
5519: , x_msg_count => x_msg_count
5520: , x_msg_data => x_msg_data
5521: );
5522: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5523: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5525: END IF;
5526: END IF;
5520: , x_msg_data => x_msg_data
5521: );
5522: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5523: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5525: END IF;
5526: END IF;
5527: END IF;
5528: IF (p_commit = FND_API.G_TRUE) THEN
5524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5525: END IF;
5526: END IF;
5527: END IF;
5528: IF (p_commit = FND_API.G_TRUE) THEN
5529: COMMIT;
5530: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5531: END IF;
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5528: IF (p_commit = FND_API.G_TRUE) THEN
5529: COMMIT;
5530: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5531: END IF;
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5534: EXCEPTION
5535: WHEN FND_API.G_EXC_ERROR THEN
5536: ROLLBACK TO DeleteBSCKPIAnaOpts;
5531: END IF;
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5534: EXCEPTION
5535: WHEN FND_API.G_EXC_ERROR THEN
5536: ROLLBACK TO DeleteBSCKPIAnaOpts;
5537: IF (x_msg_data IS NULL) THEN
5538: FND_MSG_PUB.Count_And_Get
5539: ( p_encoded => FND_API.G_FALSE
5535: WHEN FND_API.G_EXC_ERROR THEN
5536: ROLLBACK TO DeleteBSCKPIAnaOpts;
5537: IF (x_msg_data IS NULL) THEN
5538: FND_MSG_PUB.Count_And_Get
5539: ( p_encoded => FND_API.G_FALSE
5540: , p_count => x_msg_count
5541: , p_data => x_msg_data
5542: );
5543: END IF;
5540: , p_count => x_msg_count
5541: , p_data => x_msg_data
5542: );
5543: END IF;
5544: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5547: ROLLBACK TO DeleteBSCKPIAnaOpts;
5548: IF (x_msg_data IS NULL) THEN
5541: , p_data => x_msg_data
5542: );
5543: END IF;
5544: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5547: ROLLBACK TO DeleteBSCKPIAnaOpts;
5548: IF (x_msg_data IS NULL) THEN
5549: FND_MSG_PUB.Count_And_Get
5542: );
5543: END IF;
5544: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5547: ROLLBACK TO DeleteBSCKPIAnaOpts;
5548: IF (x_msg_data IS NULL) THEN
5549: FND_MSG_PUB.Count_And_Get
5550: ( p_encoded => FND_API.G_FALSE
5546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5547: ROLLBACK TO DeleteBSCKPIAnaOpts;
5548: IF (x_msg_data IS NULL) THEN
5549: FND_MSG_PUB.Count_And_Get
5550: ( p_encoded => FND_API.G_FALSE
5551: , p_count => x_msg_count
5552: , p_data => x_msg_data
5553: );
5554: END IF;
5551: , p_count => x_msg_count
5552: , p_data => x_msg_data
5553: );
5554: END IF;
5555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5556: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5557: WHEN NO_DATA_FOUND THEN
5558: ROLLBACK TO DeleteBSCKPIAnaOpts;
5559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5552: , p_data => x_msg_data
5553: );
5554: END IF;
5555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5556: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5557: WHEN NO_DATA_FOUND THEN
5558: ROLLBACK TO DeleteBSCKPIAnaOpts;
5559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5560: IF (x_msg_data IS NOT NULL) THEN
5555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5556: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5557: WHEN NO_DATA_FOUND THEN
5558: ROLLBACK TO DeleteBSCKPIAnaOpts;
5559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5560: IF (x_msg_data IS NOT NULL) THEN
5561: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5562: ELSE
5563: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5564: END IF;
5565: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5566: WHEN OTHERS THEN
5567: ROLLBACK TO DeleteBSCKPIAnaOpts;
5568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5569: IF (x_msg_data IS NOT NULL) THEN
5570: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5571: ELSE
5572: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5609:
5610: BEGIN
5611: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5612: FND_MSG_PUB.Initialize;
5613: x_return_status := FND_API.G_RET_STS_SUCCESS;
5614: SAVEPOINT DeleteBSCKPIAnaOpts;
5615: -- we also need to normalize the values for column ANALYSYS_OPTION0,
5616: -- ANALYSYS_OPTION1, ANALYSYS_OPTION2 based on group id.
5617:
5616: -- ANALYSYS_OPTION1, ANALYSYS_OPTION2 based on group id.
5617:
5618: -- END Granular Locking - Lock the KPI Under consideration
5619: BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options
5620: ( p_commit => FND_API.G_FALSE
5621: , p_Anal_Opt_Rec => p_Bsc_Anal_Opt_Rec
5622: , x_return_status => x_return_status
5623: , x_msg_count => x_msg_count
5624: , x_msg_data => x_msg_data
5622: , x_return_status => x_return_status
5623: , x_msg_count => x_msg_count
5624: , x_msg_data => x_msg_data
5625: );
5626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5627: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5629: END IF;
5630: -- Determine if the dimension set is being used by other options.
5624: , x_msg_data => x_msg_data
5625: );
5626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5627: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5629: END IF;
5630: -- Determine if the dimension set is being used by other options.
5631: IF (p_data_source = 'PMF') THEN
5632: SELECT COUNT(option_id) INTO l_count
5642:
5643: -- If there are no more options using this dim set delete it.
5644: IF (l_count = 0) THEN
5645: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
5646: ( p_commit => FND_API.G_FALSE
5647: , p_kpi_id => p_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
5648: , p_dim_set_id => p_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
5649: , x_return_status => x_return_status
5650: , x_msg_count => x_msg_count
5649: , x_return_status => x_return_status
5650: , x_msg_count => x_msg_count
5651: , x_msg_data => x_msg_data
5652: );
5653: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5654: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5656: END IF;
5657:
5651: , x_msg_data => x_msg_data
5652: );
5653: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5654: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5656: END IF;
5657:
5658: --Determine if Indicator assigned to a tab.
5659: SELECT COUNT(indicator) INTO l_count
5666: WHERE indicator = p_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
5667: END IF;
5668: -- Need to call procedure for list button logic.
5669: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
5670: ( p_commit => FND_API.G_FALSE
5671: , p_Tab_Id => l_tab_id
5672: , x_return_status => x_return_status
5673: , x_msg_count => x_msg_count
5674: , x_msg_data => x_msg_data
5672: , x_return_status => x_return_status
5673: , x_msg_count => x_msg_count
5674: , x_msg_data => x_msg_data
5675: );
5676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5677: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5680: END IF;
5674: , x_msg_data => x_msg_data
5675: );
5676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5677: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5680: END IF;
5681:
5682: IF(l_dim_group_id <> -1) THEN
5686: --delete the imported dimensions if it is not used in any report
5687: l_regions := BSC_UTILITY.Is_Dim_In_AKReport(l_dim_shortName, BSC_UTILITY.c_DIMENSION);
5688: IF(l_regions IS NULL AND l_dim_shortName IS NOT NULL) THEN
5689: BSC_BIS_DIMENSION_PUB.Delete_Dimension
5690: ( p_commit => FND_API.G_FALSE
5691: , p_dim_short_name => l_dim_shortName
5692: , x_return_status => x_return_status
5693: , x_msg_count => x_msg_count
5694: , x_msg_data => x_msg_data
5692: , x_return_status => x_return_status
5693: , x_msg_count => x_msg_count
5694: , x_msg_data => x_msg_data
5695: );
5696: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5698: END IF;
5699: END IF;
5700: END IF;
5693: , x_msg_count => x_msg_count
5694: , x_msg_data => x_msg_data
5695: );
5696: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5698: END IF;
5699: END IF;
5700: END IF;
5701: END IF;
5698: END IF;
5699: END IF;
5700: END IF;
5701: END IF;
5702: x_return_status := FND_API.G_RET_STS_SUCCESS;
5703: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5704: EXCEPTION
5705: WHEN FND_API.G_EXC_ERROR THEN
5706: ROLLBACK TO DeleteBSCKPIAnaOpts;
5701: END IF;
5702: x_return_status := FND_API.G_RET_STS_SUCCESS;
5703: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5704: EXCEPTION
5705: WHEN FND_API.G_EXC_ERROR THEN
5706: ROLLBACK TO DeleteBSCKPIAnaOpts;
5707: IF (x_msg_data IS NULL) THEN
5708: FND_MSG_PUB.Count_And_Get
5709: ( p_encoded => FND_API.G_FALSE
5705: WHEN FND_API.G_EXC_ERROR THEN
5706: ROLLBACK TO DeleteBSCKPIAnaOpts;
5707: IF (x_msg_data IS NULL) THEN
5708: FND_MSG_PUB.Count_And_Get
5709: ( p_encoded => FND_API.G_FALSE
5710: , p_count => x_msg_count
5711: , p_data => x_msg_data
5712: );
5713: END IF;
5710: , p_count => x_msg_count
5711: , p_data => x_msg_data
5712: );
5713: END IF;
5714: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5715: x_return_status := FND_API.G_RET_STS_ERROR;
5716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5717: ROLLBACK TO DeleteBSCKPIAnaOpts;
5718: IF (x_msg_data IS NULL) THEN
5711: , p_data => x_msg_data
5712: );
5713: END IF;
5714: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5715: x_return_status := FND_API.G_RET_STS_ERROR;
5716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5717: ROLLBACK TO DeleteBSCKPIAnaOpts;
5718: IF (x_msg_data IS NULL) THEN
5719: FND_MSG_PUB.Count_And_Get
5712: );
5713: END IF;
5714: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5715: x_return_status := FND_API.G_RET_STS_ERROR;
5716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5717: ROLLBACK TO DeleteBSCKPIAnaOpts;
5718: IF (x_msg_data IS NULL) THEN
5719: FND_MSG_PUB.Count_And_Get
5720: ( p_encoded => FND_API.G_FALSE
5716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5717: ROLLBACK TO DeleteBSCKPIAnaOpts;
5718: IF (x_msg_data IS NULL) THEN
5719: FND_MSG_PUB.Count_And_Get
5720: ( p_encoded => FND_API.G_FALSE
5721: , p_count => x_msg_count
5722: , p_data => x_msg_data
5723: );
5724: END IF;
5721: , p_count => x_msg_count
5722: , p_data => x_msg_data
5723: );
5724: END IF;
5725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5726: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5727: WHEN NO_DATA_FOUND THEN
5728: ROLLBACK TO DeleteBSCKPIAnaOpts;
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5722: , p_data => x_msg_data
5723: );
5724: END IF;
5725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5726: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5727: WHEN NO_DATA_FOUND THEN
5728: ROLLBACK TO DeleteBSCKPIAnaOpts;
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730: IF (x_msg_data IS NOT NULL) THEN
5725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5726: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5727: WHEN NO_DATA_FOUND THEN
5728: ROLLBACK TO DeleteBSCKPIAnaOpts;
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730: IF (x_msg_data IS NOT NULL) THEN
5731: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5732: ELSE
5733: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5734: END IF;
5735: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5736: WHEN OTHERS THEN
5737: ROLLBACK TO DeleteBSCKPIAnaOpts;
5738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5739: IF (x_msg_data IS NOT NULL) THEN
5740: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5741: ELSE
5742: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5746: /************************************************************************************
5747: UPDATE KPIS
5748: ************************************************************************************/
5749: PROCEDURE Update_Kpi
5750: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
5751: , p_kpi_id IN NUMBER
5752: , p_kpi_name IN VARCHAR2
5753: , p_kpi_help IN VARCHAR2 := NULL
5754: , p_responsibility_id IN NUMBER := NULL
5796:
5797: BEGIN
5798: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5799: SAVEPOINT UpdatePMDBSCKPIs;
5800: x_return_status := FND_API.G_RET_STS_SUCCESS;
5801: FND_MSG_PUB.Initialize;
5802: IF (p_kpi_id IS NULL) THEN
5803: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5804: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5802: IF (p_kpi_id IS NULL) THEN
5803: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5804: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5805: FND_MSG_PUB.ADD;
5806: RAISE FND_API.G_EXC_ERROR;
5807: END IF;
5808: SELECT COUNT(*) INTO l_count
5809: FROM BSC_KPIS_B
5810: WHERE indicator = p_kpi_id;
5811: IF (l_count = 0) THEN
5812: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5813: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5814: FND_MSG_PUB.ADD;
5815: RAISE FND_API.G_EXC_ERROR;
5816: END IF;
5817: -- Verify that this is not a Shared KPI.
5818: SELECT share_flag
5819: INTO l_count
5822: IF (l_count = 2) THEN
5823: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5824: --FND_MESSAGE.SET_TOKEN('BSC_KPI', p_kpi_id);
5825: FND_MSG_PUB.ADD;
5826: RAISE FND_API.G_EXC_ERROR;
5827: END IF;
5828: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
5829:
5830: l_Anal_Num_Tbl(0) := p_Anal_opt0;
5870: , x_return_status => x_return_status
5871: , x_msg_count => x_msg_count
5872: , x_msg_data => x_msg_data
5873: );
5874: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5875: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5877: END IF;
5878: -- We need to check if there is an update on the Indicator name in order
5872: , x_msg_data => x_msg_data
5873: );
5874: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5875: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
5876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5877: END IF;
5878: -- We need to check if there is an update on the Indicator name in order
5879: -- to prevent it. To do this we need to check if there is a different
5880: -- indicator in the same tab with the same name.
5894: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
5895: FND_MESSAGE.SET_TOKEN('Indicator name: ', p_kpi_name);
5896: FND_MESSAGE.SET_TOKEN('Tab name: ', l_tab_name);
5897: FND_MSG_PUB.ADD;
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF;
5900:
5901:
5902: BSC_KPI_PUB.Update_Kpi
5899: END IF;
5900:
5901:
5902: BSC_KPI_PUB.Update_Kpi
5903: ( p_commit => FND_API.G_FALSE
5904: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
5905: , x_return_status => x_return_status
5906: , x_msg_count => x_msg_count
5907: , x_msg_data => x_msg_data
5905: , x_return_status => x_return_status
5906: , x_msg_count => x_msg_count
5907: , x_msg_data => x_msg_data
5908: );
5909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5910: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed: at BSC_KPI_PUB.Update_Kpi');
5911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5912: END IF;
5913:
5907: , x_msg_data => x_msg_data
5908: );
5909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5910: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed: at BSC_KPI_PUB.Update_Kpi');
5911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5912: END IF;
5913:
5914: -- Fixed Bug#3663301, Called ActionFlag_Change with a Color Flag
5915: IF (l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Default_Value IS NOT NULL) THEN
5967: , x_return_status => x_return_status
5968: , x_msg_count => x_msg_count
5969: , x_msg_data => x_msg_data
5970: );
5971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5972: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
5973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5974: END IF;
5975: END IF;
5969: , x_msg_data => x_msg_data
5970: );
5971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5972: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
5973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5974: END IF;
5975: END IF;
5976: END IF;
5977:
5981: , x_return_status => x_return_status
5982: , x_msg_count => x_msg_count
5983: , x_msg_data => x_msg_data
5984: );
5985: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
5986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5987: END IF;
5988: IF (p_commit = FND_API.G_TRUE) THEN
5989: COMMIT;
5982: , x_msg_count => x_msg_count
5983: , x_msg_data => x_msg_data
5984: );
5985: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
5986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5987: END IF;
5988: IF (p_commit = FND_API.G_TRUE) THEN
5989: COMMIT;
5990: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5984: );
5985: IF ((x_return_status = FND_API.G_RET_STS_ERROR) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)) THEN
5986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5987: END IF;
5988: IF (p_commit = FND_API.G_TRUE) THEN
5989: COMMIT;
5990: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5991: END IF;
5992: x_return_status := FND_API.G_RET_STS_SUCCESS;
5988: IF (p_commit = FND_API.G_TRUE) THEN
5989: COMMIT;
5990: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5991: END IF;
5992: x_return_status := FND_API.G_RET_STS_SUCCESS;
5993: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5994: EXCEPTION
5995: WHEN FND_API.G_EXC_ERROR THEN
5996: ROLLBACK TO UpdatePMDBSCKPIs;
5991: END IF;
5992: x_return_status := FND_API.G_RET_STS_SUCCESS;
5993: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5994: EXCEPTION
5995: WHEN FND_API.G_EXC_ERROR THEN
5996: ROLLBACK TO UpdatePMDBSCKPIs;
5997: IF (x_msg_data IS NULL) THEN
5998: FND_MSG_PUB.Count_And_Get
5999: ( p_encoded => FND_API.G_FALSE
5995: WHEN FND_API.G_EXC_ERROR THEN
5996: ROLLBACK TO UpdatePMDBSCKPIs;
5997: IF (x_msg_data IS NULL) THEN
5998: FND_MSG_PUB.Count_And_Get
5999: ( p_encoded => FND_API.G_FALSE
6000: , p_count => x_msg_count
6001: , p_data => x_msg_data
6002: );
6003: END IF;
6000: , p_count => x_msg_count
6001: , p_data => x_msg_data
6002: );
6003: END IF;
6004: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6005: x_return_status := FND_API.G_RET_STS_ERROR;
6006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6007: ROLLBACK TO UpdatePMDBSCKPIs;
6008: IF (x_msg_data IS NULL) THEN
6001: , p_data => x_msg_data
6002: );
6003: END IF;
6004: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6005: x_return_status := FND_API.G_RET_STS_ERROR;
6006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6007: ROLLBACK TO UpdatePMDBSCKPIs;
6008: IF (x_msg_data IS NULL) THEN
6009: FND_MSG_PUB.Count_And_Get
6002: );
6003: END IF;
6004: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6005: x_return_status := FND_API.G_RET_STS_ERROR;
6006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6007: ROLLBACK TO UpdatePMDBSCKPIs;
6008: IF (x_msg_data IS NULL) THEN
6009: FND_MSG_PUB.Count_And_Get
6010: ( p_encoded => FND_API.G_FALSE
6006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6007: ROLLBACK TO UpdatePMDBSCKPIs;
6008: IF (x_msg_data IS NULL) THEN
6009: FND_MSG_PUB.Count_And_Get
6010: ( p_encoded => FND_API.G_FALSE
6011: , p_count => x_msg_count
6012: , p_data => x_msg_data
6013: );
6014: END IF;
6011: , p_count => x_msg_count
6012: , p_data => x_msg_data
6013: );
6014: END IF;
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6017: WHEN NO_DATA_FOUND THEN
6018: ROLLBACK TO UpdatePMDBSCKPIs;
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6012: , p_data => x_msg_data
6013: );
6014: END IF;
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6017: WHEN NO_DATA_FOUND THEN
6018: ROLLBACK TO UpdatePMDBSCKPIs;
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6020: IF (x_msg_data IS NOT NULL) THEN
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6017: WHEN NO_DATA_FOUND THEN
6018: ROLLBACK TO UpdatePMDBSCKPIs;
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6020: IF (x_msg_data IS NOT NULL) THEN
6021: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6022: ELSE
6023: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6024: END IF;
6025: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6026: WHEN OTHERS THEN
6027: ROLLBACK TO UpdatePMDBSCKPIs;
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: IF (x_msg_data IS NOT NULL) THEN
6030: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6031: ELSE
6032: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6035: END Update_Kpi;
6036:
6037: /************************************************************************************/
6038: PROCEDURE Create_Kpi
6039: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
6040: , p_group_id IN NUMBER
6041: , p_kpi_name IN VARCHAR2
6042: , p_kpi_help IN VARCHAR2
6043: , p_responsibility_id IN NUMBER
6047: ) IS
6048: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
6049: BEGIN
6050: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6051: x_return_status := FND_API.G_RET_STS_SUCCESS;
6052: FND_MSG_PUB.Initialize;
6053: SAVEPOINT CreatePMDBSCKPIs;
6054: IF (p_kpi_name IS NULL) THEN
6055: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6054: IF (p_kpi_name IS NULL) THEN
6055: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6056: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_NAME'), TRUE);
6057: FND_MSG_PUB.ADD;
6058: RAISE FND_API.G_EXC_ERROR;
6059: END IF;
6060: IF (p_responsibility_id IS NULL) THEN
6061: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6062: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_SETUP', 'SRC_RESPONSIBILITY'), TRUE);
6060: IF (p_responsibility_id IS NULL) THEN
6061: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6062: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_SETUP', 'SRC_RESPONSIBILITY'), TRUE);
6063: FND_MSG_PUB.ADD;
6064: RAISE FND_API.G_EXC_ERROR;
6065: END IF;
6066: -- set the passed values to the record.
6067: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_group_id;
6068: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Name := p_kpi_name;
6098: l_Bsc_Kpi_Entity_Rec.Last_Updated_By := 0;
6099: l_Bsc_Kpi_Entity_Rec.Last_Update_Login := 0;
6100: l_Bsc_Kpi_Entity_Rec.Last_Update_Login := 0;
6101: BSC_KPI_PUB.Create_Kpi
6102: ( p_commit => FND_API.G_FALSE
6103: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
6104: , x_return_status => x_return_status
6105: , x_msg_count => x_msg_count
6106: , x_msg_data => x_msg_data
6104: , x_return_status => x_return_status
6105: , x_msg_count => x_msg_count
6106: , x_msg_data => x_msg_data
6107: );
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Kpi Failed: at BSC_KPI_PUB.Create_Kpi');
6110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6111: END IF;
6112: IF (p_commit = FND_API.G_TRUE) THEN
6106: , x_msg_data => x_msg_data
6107: );
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Kpi Failed: at BSC_KPI_PUB.Create_Kpi');
6110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6111: END IF;
6112: IF (p_commit = FND_API.G_TRUE) THEN
6113: COMMIT;
6114: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Kpi Failed: at BSC_KPI_PUB.Create_Kpi');
6110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6111: END IF;
6112: IF (p_commit = FND_API.G_TRUE) THEN
6113: COMMIT;
6114: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6115: END IF;
6116: x_return_status := FND_API.G_RET_STS_SUCCESS;
6112: IF (p_commit = FND_API.G_TRUE) THEN
6113: COMMIT;
6114: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6115: END IF;
6116: x_return_status := FND_API.G_RET_STS_SUCCESS;
6117: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6118: EXCEPTION
6119: WHEN FND_API.G_EXC_ERROR THEN
6120: ROLLBACK TO CreatePMDBSCKPIs;
6115: END IF;
6116: x_return_status := FND_API.G_RET_STS_SUCCESS;
6117: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6118: EXCEPTION
6119: WHEN FND_API.G_EXC_ERROR THEN
6120: ROLLBACK TO CreatePMDBSCKPIs;
6121: IF (x_msg_data IS NULL) THEN
6122: FND_MSG_PUB.Count_And_Get
6123: ( p_encoded => FND_API.G_FALSE
6119: WHEN FND_API.G_EXC_ERROR THEN
6120: ROLLBACK TO CreatePMDBSCKPIs;
6121: IF (x_msg_data IS NULL) THEN
6122: FND_MSG_PUB.Count_And_Get
6123: ( p_encoded => FND_API.G_FALSE
6124: , p_count => x_msg_count
6125: , p_data => x_msg_data
6126: );
6127: END IF;
6124: , p_count => x_msg_count
6125: , p_data => x_msg_data
6126: );
6127: END IF;
6128: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6129: x_return_status := FND_API.G_RET_STS_ERROR;
6130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6131: ROLLBACK TO CreatePMDBSCKPIs;
6132: IF (x_msg_data IS NULL) THEN
6125: , p_data => x_msg_data
6126: );
6127: END IF;
6128: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6129: x_return_status := FND_API.G_RET_STS_ERROR;
6130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6131: ROLLBACK TO CreatePMDBSCKPIs;
6132: IF (x_msg_data IS NULL) THEN
6133: FND_MSG_PUB.Count_And_Get
6126: );
6127: END IF;
6128: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6129: x_return_status := FND_API.G_RET_STS_ERROR;
6130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6131: ROLLBACK TO CreatePMDBSCKPIs;
6132: IF (x_msg_data IS NULL) THEN
6133: FND_MSG_PUB.Count_And_Get
6134: ( p_encoded => FND_API.G_FALSE
6130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6131: ROLLBACK TO CreatePMDBSCKPIs;
6132: IF (x_msg_data IS NULL) THEN
6133: FND_MSG_PUB.Count_And_Get
6134: ( p_encoded => FND_API.G_FALSE
6135: , p_count => x_msg_count
6136: , p_data => x_msg_data
6137: );
6138: END IF;
6135: , p_count => x_msg_count
6136: , p_data => x_msg_data
6137: );
6138: END IF;
6139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6140: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6141: WHEN NO_DATA_FOUND THEN
6142: ROLLBACK TO CreatePMDBSCKPIs;
6143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6136: , p_data => x_msg_data
6137: );
6138: END IF;
6139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6140: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6141: WHEN NO_DATA_FOUND THEN
6142: ROLLBACK TO CreatePMDBSCKPIs;
6143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6144: IF (x_msg_data IS NOT NULL) THEN
6139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6140: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6141: WHEN NO_DATA_FOUND THEN
6142: ROLLBACK TO CreatePMDBSCKPIs;
6143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6144: IF (x_msg_data IS NOT NULL) THEN
6145: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6146: ELSE
6147: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6148: END IF;
6149: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6150: WHEN OTHERS THEN
6151: ROLLBACK TO CreatePMDBSCKPIs;
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6153: IF (x_msg_data IS NOT NULL) THEN
6154: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6155: ELSE
6156: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6272: IF(l_tokens IS NOT NULL) THEN
6273: FND_MESSAGE.SET_NAME('BSC','BSC_MEAS_DELETE_DEPEND');
6274: FND_MESSAGE.SET_TOKEN('MEASURE', l_tokens);
6275: FND_MSG_PUB.ADD;
6276: RAISE FND_API.G_EXC_ERROR;
6277: END IF;
6278:
6279: RETURN NULL;
6280:
6278:
6279: RETURN NULL;
6280:
6281: EXCEPTION
6282: WHEN FND_API.G_EXC_ERROR THEN
6283: IF (l_Msg_Data IS NULL) THEN
6284: FND_MSG_PUB.Count_And_Get
6285: ( p_encoded => FND_API.G_FALSE
6286: , p_count => l_msg_count
6281: EXCEPTION
6282: WHEN FND_API.G_EXC_ERROR THEN
6283: IF (l_Msg_Data IS NULL) THEN
6284: FND_MSG_PUB.Count_And_Get
6285: ( p_encoded => FND_API.G_FALSE
6286: , p_count => l_msg_count
6287: , p_data => l_Msg_Data
6288: );
6289: END IF;
6286: , p_count => l_msg_count
6287: , p_data => l_Msg_Data
6288: );
6289: END IF;
6290: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6291: RETURN l_Msg_Data;
6292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6293: IF (l_Msg_Data IS NULL) THEN
6294: FND_MSG_PUB.Count_And_Get
6288: );
6289: END IF;
6290: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6291: RETURN l_Msg_Data;
6292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6293: IF (l_Msg_Data IS NULL) THEN
6294: FND_MSG_PUB.Count_And_Get
6295: ( p_encoded => FND_API.G_FALSE
6296: , p_count => l_msg_count
6291: RETURN l_Msg_Data;
6292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6293: IF (l_Msg_Data IS NULL) THEN
6294: FND_MSG_PUB.Count_And_Get
6295: ( p_encoded => FND_API.G_FALSE
6296: , p_count => l_msg_count
6297: , p_data => l_Msg_Data
6298: );
6299: END IF;
6296: , p_count => l_msg_count
6297: , p_data => l_Msg_Data
6298: );
6299: END IF;
6300: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6301: RETURN l_Msg_Data;
6302: WHEN OTHERS THEN
6303: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
6304: RETURN NULL;
6307: API to CREATE DIMENSION-OBJECTS IN DIMENSION SETS USED IN CASCADING
6308: It should only be called for BSC type of Dimension Sets not for PMF type
6309: *********************************************************************************/
6310: PROCEDURE Create_Dim_Objs_In_DSet
6311: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
6312: , p_kpi_id IN NUMBER
6313: , p_dim_set_id IN NUMBER
6314: , p_kpi_flag_change IN NUMBER := NULL
6315: , p_delete IN BOOLEAN := FALSE
6343: AND B.Short_Name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim;
6344: BEGIN
6345: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6346: FND_MSG_PUB.Initialize;
6347: x_return_status := FND_API.G_RET_STS_SUCCESS;
6348: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
6349: l_bsc_dimset_rec.Bsc_Dim_Level_Long_Name := 'XXX';
6350: l_bsc_dimset_rec.Bsc_Dim_Tot_Disp_Name := 'XXX';
6351: l_bsc_dimset_rec.Bsc_Dset_Comp_Order := 0;
6397: --dbms_output.PUT_LINE('l_count '||l_count);
6398: IF (l_count > 1) THEN
6399: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_COMMON_DIM_OBJS');
6400: FND_MSG_PUB.ADD;
6401: RAISE FND_API.G_EXC_ERROR;
6402: END IF;
6403:
6404: IF (p_delete) THEN
6405: --delete all the dimension objects before creating.
6404: IF (p_delete) THEN
6405: --delete all the dimension objects before creating.
6406: --dbms_output.PUT_LINE('DELETE ENABLED');
6407: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet
6408: ( p_commit => FND_API.G_FALSE
6409: , p_kpi_id => p_kpi_id
6410: , p_dim_set_id => p_dim_set_id
6411: , x_return_status => x_return_status
6412: , x_msg_count => x_msg_count
6411: , x_return_status => x_return_status
6412: , x_msg_count => x_msg_count
6413: , x_msg_data => x_msg_data
6414: );
6415: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6416: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Objs_In_DSet');
6417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6418: END IF;
6419: END IF;
6413: , x_msg_data => x_msg_data
6414: );
6415: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6416: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Objs_In_DSet');
6417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6418: END IF;
6419: END IF;
6420: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6421: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
6418: END IF;
6419: END IF;
6420: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6421: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
6422: ( p_commit => FND_API.G_FALSE
6423: , p_kpi_id => p_kpi_id
6424: , p_dim_set_id => p_dim_set_id
6425: , x_return_status => x_return_status
6426: , x_msg_count => x_msg_count
6425: , x_return_status => x_return_status
6426: , x_msg_count => x_msg_count
6427: , x_msg_data => x_msg_data
6428: );
6429: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6430: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
6431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6432: END IF;
6433: FOR cn_bsc IN c_dim_group_id LOOP
6427: , x_msg_data => x_msg_data
6428: );
6429: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6430: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
6431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6432: END IF;
6433: FOR cn_bsc IN c_dim_group_id LOOP
6434: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6435: BSC_BIS_LOCKS_PUB.LOCK_KPI
6434: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6435: BSC_BIS_LOCKS_PUB.LOCK_KPI
6436: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
6437: , p_time_stamp => NULL
6438: , p_Full_Lock_Flag => FND_API.G_FALSE
6439: , x_return_status => x_return_status
6440: , x_msg_count => x_msg_count
6441: , x_msg_data => x_msg_data
6442: );
6439: , x_return_status => x_return_status
6440: , x_msg_count => x_msg_count
6441: , x_msg_data => x_msg_data
6442: );
6443: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6444: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446: END IF;
6447: -- END : Granular Locking
6441: , x_msg_data => x_msg_data
6442: );
6443: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6444: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446: END IF;
6447: -- END : Granular Locking
6448: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6449: ( p_commit => FND_API.G_FALSE
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446: END IF;
6447: -- END : Granular Locking
6448: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6449: ( p_commit => FND_API.G_FALSE
6450: , p_Dim_Set_Rec => l_bsc_dimset_rec
6451: , x_return_status => x_return_status
6452: , x_msg_count => x_msg_count
6453: , x_msg_data => x_msg_data
6451: , x_return_status => x_return_status
6452: , x_msg_count => x_msg_count
6453: , x_msg_data => x_msg_data
6454: );
6455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6453: , x_msg_data => x_msg_data
6454: );
6455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6460: ( p_commit => FND_API.G_FALSE
6461: , p_Dim_Set_Rec => l_bsc_dimset_rec
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6460: ( p_commit => FND_API.G_FALSE
6461: , p_Dim_Set_Rec => l_bsc_dimset_rec
6462: , x_return_status => x_return_status
6463: , x_msg_count => x_msg_count
6464: , x_msg_data => x_msg_data
6462: , x_return_status => x_return_status
6463: , x_msg_count => x_msg_count
6464: , x_msg_data => x_msg_data
6465: );
6466: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6467: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6469: END IF;
6470: END LOOP;
6464: , x_msg_data => x_msg_data
6465: );
6466: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6467: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6469: END IF;
6470: END LOOP;
6471: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6472: --do not flag any changes to KPIs
6493: , x_return_status => x_return_status
6494: , x_msg_count => x_msg_count
6495: , x_msg_data => x_msg_data
6496: );
6497: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6498: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6500: END IF;
6501: --reapeating the steps for shared KPIs also
6495: , x_msg_data => x_msg_data
6496: );
6497: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6498: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6500: END IF;
6501: --reapeating the steps for shared KPIs also
6502: FOR cm IN c_kpi_ids LOOP
6503: l_bsc_dimset_rec.Bsc_Kpi_Id := cm.indicator;
6512: GROUP BY SYS_DIM_LEL.Dim_Level_Id);
6513: IF (l_count > 1) THEN
6514: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_COMMON_DIM_OBJS');
6515: FND_MSG_PUB.ADD;
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6518: FOR cn_bsc IN c_dim_group_id LOOP
6519: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6520: BSC_BIS_LOCKS_PUB.LOCK_KPI
6519: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6520: BSC_BIS_LOCKS_PUB.LOCK_KPI
6521: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
6522: , p_time_stamp => NULL
6523: , p_Full_Lock_Flag => FND_API.G_FALSE
6524: , x_return_status => x_return_status
6525: , x_msg_count => x_msg_count
6526: , x_msg_data => x_msg_data
6527: );
6524: , x_return_status => x_return_status
6525: , x_msg_count => x_msg_count
6526: , x_msg_data => x_msg_data
6527: );
6528: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6529: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6531: END IF;
6532: -- END : Granular Locking
6526: , x_msg_data => x_msg_data
6527: );
6528: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6529: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6531: END IF;
6532: -- END : Granular Locking
6533: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6534: ( p_commit => FND_API.G_FALSE
6530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6531: END IF;
6532: -- END : Granular Locking
6533: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6534: ( p_commit => FND_API.G_FALSE
6535: , p_Dim_Set_Rec => l_bsc_dimset_rec
6536: , x_return_status => x_return_status
6537: , x_msg_count => x_msg_count
6538: , x_msg_data => x_msg_data
6536: , x_return_status => x_return_status
6537: , x_msg_count => x_msg_count
6538: , x_msg_data => x_msg_data
6539: );
6540: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6538: , x_msg_data => x_msg_data
6539: );
6540: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6545: ( p_commit => FND_API.G_FALSE
6546: , p_Dim_Set_Rec => l_bsc_dimset_rec
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6545: ( p_commit => FND_API.G_FALSE
6546: , p_Dim_Set_Rec => l_bsc_dimset_rec
6547: , x_return_status => x_return_status
6548: , x_msg_count => x_msg_count
6549: , x_msg_data => x_msg_data
6547: , x_return_status => x_return_status
6548: , x_msg_count => x_msg_count
6549: , x_msg_data => x_msg_data
6550: );
6551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6552: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554: END IF;
6555: END LOOP;
6549: , x_msg_data => x_msg_data
6550: );
6551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6552: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554: END IF;
6555: END LOOP;
6556: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6557: --do not flag any changes to KPIs
6578: , x_return_status => x_return_status
6579: , x_msg_count => x_msg_count
6580: , x_msg_data => x_msg_data
6581: );
6582: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6583: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6585: END IF;
6586: END LOOP;
6580: , x_msg_data => x_msg_data
6581: );
6582: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6583: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6585: END IF;
6586: END LOOP;
6587: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6588: ( p_commit => FND_API.G_FALSE
6584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6585: END IF;
6586: END LOOP;
6587: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6588: ( p_commit => FND_API.G_FALSE
6589: , p_kpi_id => p_kpi_id
6590: , p_dim_set_id => p_dim_set_id
6591: , x_return_status => x_return_status
6592: , x_msg_count => x_msg_count
6591: , x_return_status => x_return_status
6592: , x_msg_count => x_msg_count
6593: , x_msg_data => x_msg_data
6594: );
6595: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6596: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: END IF;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6593: , x_msg_data => x_msg_data
6594: );
6595: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6596: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: END IF;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6600: COMMIT;
6601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6595: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6596: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: END IF;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6600: COMMIT;
6601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6602: END IF;
6603: x_return_status := FND_API.G_RET_STS_SUCCESS;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6600: COMMIT;
6601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6602: END IF;
6603: x_return_status := FND_API.G_RET_STS_SUCCESS;
6604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6605: EXCEPTION
6606: WHEN FND_API.G_EXC_ERROR THEN
6607: IF (x_msg_data IS NULL) THEN
6602: END IF;
6603: x_return_status := FND_API.G_RET_STS_SUCCESS;
6604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6605: EXCEPTION
6606: WHEN FND_API.G_EXC_ERROR THEN
6607: IF (x_msg_data IS NULL) THEN
6608: FND_MSG_PUB.Count_And_Get
6609: ( p_encoded => FND_API.G_FALSE
6610: , p_count => x_msg_count
6605: EXCEPTION
6606: WHEN FND_API.G_EXC_ERROR THEN
6607: IF (x_msg_data IS NULL) THEN
6608: FND_MSG_PUB.Count_And_Get
6609: ( p_encoded => FND_API.G_FALSE
6610: , p_count => x_msg_count
6611: , p_data => x_msg_data
6612: );
6613: END IF;
6610: , p_count => x_msg_count
6611: , p_data => x_msg_data
6612: );
6613: END IF;
6614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6615: x_return_status := FND_API.G_RET_STS_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (x_msg_data IS NULL) THEN
6618: FND_MSG_PUB.Count_And_Get
6611: , p_data => x_msg_data
6612: );
6613: END IF;
6614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6615: x_return_status := FND_API.G_RET_STS_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (x_msg_data IS NULL) THEN
6618: FND_MSG_PUB.Count_And_Get
6619: ( p_encoded => FND_API.G_FALSE
6612: );
6613: END IF;
6614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6615: x_return_status := FND_API.G_RET_STS_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (x_msg_data IS NULL) THEN
6618: FND_MSG_PUB.Count_And_Get
6619: ( p_encoded => FND_API.G_FALSE
6620: , p_count => x_msg_count
6615: x_return_status := FND_API.G_RET_STS_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (x_msg_data IS NULL) THEN
6618: FND_MSG_PUB.Count_And_Get
6619: ( p_encoded => FND_API.G_FALSE
6620: , p_count => x_msg_count
6621: , p_data => x_msg_data
6622: );
6623: END IF;
6620: , p_count => x_msg_count
6621: , p_data => x_msg_data
6622: );
6623: END IF;
6624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6626: WHEN NO_DATA_FOUND THEN
6627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6628: IF (x_msg_data IS NOT NULL) THEN
6621: , p_data => x_msg_data
6622: );
6623: END IF;
6624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6626: WHEN NO_DATA_FOUND THEN
6627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6628: IF (x_msg_data IS NOT NULL) THEN
6629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6623: END IF;
6624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6626: WHEN NO_DATA_FOUND THEN
6627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6628: IF (x_msg_data IS NOT NULL) THEN
6629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6630: ELSE
6631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6632: END IF;
6633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6634: WHEN OTHERS THEN
6635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6636: IF (x_msg_data IS NOT NULL) THEN
6637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6638: ELSE
6639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6645: API to DELETE DIMENSION-OBJECTS IN DIMENSION SETS USED IN CASCADING
6646: It should only be called for BSC type of Dimension Sets not for PMF type
6647: *********************************************************************************/
6648: PROCEDURE Delete_Dim_Objs_In_DSet
6649: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
6650: , p_kpi_id IN NUMBER
6651: , p_dim_set_id IN NUMBER
6652: , x_return_status OUT NOCOPY VARCHAR2
6653: , x_msg_count OUT NOCOPY NUMBER
6676: WHERE dim_group_id = l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id;
6677: BEGIN
6678: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6679: FND_MSG_PUB.Initialize;
6680: x_return_status := FND_API.G_RET_STS_SUCCESS;
6681: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
6682: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
6683: FOR cn_bsc IN c_dim_group_id LOOP
6684: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6684: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6685: BSC_BIS_LOCKS_PUB.LOCK_KPI
6686: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
6687: , p_time_stamp => NULL
6688: , p_Full_Lock_Flag => FND_API.G_FALSE
6689: , x_return_status => x_return_status
6690: , x_msg_count => x_msg_count
6691: , x_msg_data => x_msg_data
6692: );
6689: , x_return_status => x_return_status
6690: , x_msg_count => x_msg_count
6691: , x_msg_data => x_msg_data
6692: );
6693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: FOR cd IN c_dim_level_id LOOP
6691: , x_msg_data => x_msg_data
6692: );
6693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: FOR cd IN c_dim_level_id LOOP
6698: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6699: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6696: END IF;
6697: FOR cd IN c_dim_level_id LOOP
6698: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6699: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6700: ( p_commit => FND_API.G_FALSE
6701: , p_Dim_Set_Rec => l_bsc_dimset_rec
6702: , x_return_status => x_return_status
6703: , x_msg_count => x_msg_count
6704: , x_msg_data => x_msg_data
6702: , x_return_status => x_return_status
6703: , x_msg_count => x_msg_count
6704: , x_msg_data => x_msg_data
6705: );
6706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6704: , x_msg_data => x_msg_data
6705: );
6706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6711: ( p_commit => FND_API.G_FALSE
6712: , p_Dim_Set_Rec => l_bsc_dimset_rec
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6711: ( p_commit => FND_API.G_FALSE
6712: , p_Dim_Set_Rec => l_bsc_dimset_rec
6713: , x_return_status => x_return_status
6714: , x_msg_count => x_msg_count
6715: , x_msg_data => x_msg_data
6713: , x_return_status => x_return_status
6714: , x_msg_count => x_msg_count
6715: , x_msg_data => x_msg_data
6716: );
6717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6718: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6720: END IF;
6721: END LOOP;
6715: , x_msg_data => x_msg_data
6716: );
6717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6718: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6720: END IF;
6721: END LOOP;
6722: END LOOP;
6723: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
6726: , x_return_status => x_return_status
6727: , x_msg_count => x_msg_count
6728: , x_msg_data => x_msg_data
6729: );
6730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6733: END IF;
6734: --for share KPIs
6728: , x_msg_data => x_msg_data
6729: );
6730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6733: END IF;
6734: --for share KPIs
6735: FOR cm IN c_kpi_ids LOOP
6736: l_bsc_dimset_rec.Bsc_Kpi_Id := cm.indicator;
6738: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6739: BSC_BIS_LOCKS_PUB.LOCK_KPI
6740: ( p_Kpi_Id => l_bsc_dimset_rec.Bsc_Kpi_Id
6741: , p_time_stamp => NULL
6742: , p_Full_Lock_Flag => FND_API.G_FALSE
6743: , x_return_status => x_return_status
6744: , x_msg_count => x_msg_count
6745: , x_msg_data => x_msg_data
6746: );
6743: , x_return_status => x_return_status
6744: , x_msg_count => x_msg_count
6745: , x_msg_data => x_msg_data
6746: );
6747: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6748: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: FOR cd IN c_dim_level_id LOOP
6745: , x_msg_data => x_msg_data
6746: );
6747: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6748: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: FOR cd IN c_dim_level_id LOOP
6752: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6753: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6750: END IF;
6751: FOR cd IN c_dim_level_id LOOP
6752: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6753: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6754: ( p_commit => FND_API.G_FALSE
6755: , p_Dim_Set_Rec => l_bsc_dimset_rec
6756: , x_return_status => x_return_status
6757: , x_msg_count => x_msg_count
6758: , x_msg_data => x_msg_data
6756: , x_return_status => x_return_status
6757: , x_msg_count => x_msg_count
6758: , x_msg_data => x_msg_data
6759: );
6760: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6758: , x_msg_data => x_msg_data
6759: );
6760: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6765: ( p_commit => FND_API.G_FALSE
6766: , p_Dim_Set_Rec => l_bsc_dimset_rec
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6765: ( p_commit => FND_API.G_FALSE
6766: , p_Dim_Set_Rec => l_bsc_dimset_rec
6767: , x_return_status => x_return_status
6768: , x_msg_count => x_msg_count
6769: , x_msg_data => x_msg_data
6767: , x_return_status => x_return_status
6768: , x_msg_count => x_msg_count
6769: , x_msg_data => x_msg_data
6770: );
6771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6772: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6774: END IF;
6775: END LOOP;
6769: , x_msg_data => x_msg_data
6770: );
6771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6772: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6774: END IF;
6775: END LOOP;
6776: END LOOP;
6777: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
6780: , x_return_status => x_return_status
6781: , x_msg_count => x_msg_count
6782: , x_msg_data => x_msg_data
6783: );
6784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6787: END IF;
6788: END LOOP;
6782: , x_msg_data => x_msg_data
6783: );
6784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6787: END IF;
6788: END LOOP;
6789: --create the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6790: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6787: END IF;
6788: END LOOP;
6789: --create the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6790: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6791: ( p_commit => FND_API.G_FALSE
6792: , p_kpi_id => p_kpi_id
6793: , p_dim_set_id => p_dim_set_id
6794: , x_return_status => x_return_status
6795: , x_msg_count => x_msg_count
6794: , x_return_status => x_return_status
6795: , x_msg_count => x_msg_count
6796: , x_msg_data => x_msg_data
6797: );
6798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6799: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6801: END IF;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6796: , x_msg_data => x_msg_data
6797: );
6798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6799: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6801: END IF;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6803: COMMIT;
6804: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6799: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6801: END IF;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6803: COMMIT;
6804: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6805: END IF;
6806: x_return_status := FND_API.G_RET_STS_SUCCESS;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6803: COMMIT;
6804: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6805: END IF;
6806: x_return_status := FND_API.G_RET_STS_SUCCESS;
6807: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6808: EXCEPTION
6809: WHEN FND_API.G_EXC_ERROR THEN
6810: IF (x_msg_data IS NULL) THEN
6805: END IF;
6806: x_return_status := FND_API.G_RET_STS_SUCCESS;
6807: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6808: EXCEPTION
6809: WHEN FND_API.G_EXC_ERROR THEN
6810: IF (x_msg_data IS NULL) THEN
6811: FND_MSG_PUB.Count_And_Get
6812: ( p_encoded => FND_API.G_FALSE
6813: , p_count => x_msg_count
6808: EXCEPTION
6809: WHEN FND_API.G_EXC_ERROR THEN
6810: IF (x_msg_data IS NULL) THEN
6811: FND_MSG_PUB.Count_And_Get
6812: ( p_encoded => FND_API.G_FALSE
6813: , p_count => x_msg_count
6814: , p_data => x_msg_data
6815: );
6816: END IF;
6813: , p_count => x_msg_count
6814: , p_data => x_msg_data
6815: );
6816: END IF;
6817: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6818: x_return_status := FND_API.G_RET_STS_ERROR;
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: IF (x_msg_data IS NULL) THEN
6821: FND_MSG_PUB.Count_And_Get
6814: , p_data => x_msg_data
6815: );
6816: END IF;
6817: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6818: x_return_status := FND_API.G_RET_STS_ERROR;
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: IF (x_msg_data IS NULL) THEN
6821: FND_MSG_PUB.Count_And_Get
6822: ( p_encoded => FND_API.G_FALSE
6815: );
6816: END IF;
6817: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6818: x_return_status := FND_API.G_RET_STS_ERROR;
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: IF (x_msg_data IS NULL) THEN
6821: FND_MSG_PUB.Count_And_Get
6822: ( p_encoded => FND_API.G_FALSE
6823: , p_count => x_msg_count
6818: x_return_status := FND_API.G_RET_STS_ERROR;
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: IF (x_msg_data IS NULL) THEN
6821: FND_MSG_PUB.Count_And_Get
6822: ( p_encoded => FND_API.G_FALSE
6823: , p_count => x_msg_count
6824: , p_data => x_msg_data
6825: );
6826: END IF;
6823: , p_count => x_msg_count
6824: , p_data => x_msg_data
6825: );
6826: END IF;
6827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6828: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6829: WHEN NO_DATA_FOUND THEN
6830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6831: IF (x_msg_data IS NOT NULL) THEN
6824: , p_data => x_msg_data
6825: );
6826: END IF;
6827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6828: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6829: WHEN NO_DATA_FOUND THEN
6830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6831: IF (x_msg_data IS NOT NULL) THEN
6832: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6826: END IF;
6827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6828: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6829: WHEN NO_DATA_FOUND THEN
6830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6831: IF (x_msg_data IS NOT NULL) THEN
6832: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6833: ELSE
6834: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6834: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6835: END IF;
6836: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6837: WHEN OTHERS THEN
6838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6839: IF (x_msg_data IS NOT NULL) THEN
6840: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6841: ELSE
6842: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6888: --raise exception for Structural Changes
6889: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_KPI_STRUCT_INVALID');
6890: FND_MESSAGE.SET_TOKEN('INDICATORS', l_kpi_names);
6891: FND_MSG_PUB.ADD;
6892: RAISE FND_API.G_EXC_ERROR;
6893: END IF;
6894: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6895: RETURN NULL;
6896: EXCEPTION
6893: END IF;
6894: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6895: RETURN NULL;
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: IF (l_Msg_Data IS NULL) THEN
6899: FND_MSG_PUB.Count_And_Get
6900: ( p_encoded => FND_API.G_FALSE
6901: , p_count => l_msg_count
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: IF (l_Msg_Data IS NULL) THEN
6899: FND_MSG_PUB.Count_And_Get
6900: ( p_encoded => FND_API.G_FALSE
6901: , p_count => l_msg_count
6902: , p_data => l_Msg_Data
6903: );
6904: END IF;
6901: , p_count => l_msg_count
6902: , p_data => l_Msg_Data
6903: );
6904: END IF;
6905: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6906: RETURN l_Msg_Data;
6907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6908: IF (l_Msg_Data IS NULL) THEN
6909: FND_MSG_PUB.Count_And_Get
6903: );
6904: END IF;
6905: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6906: RETURN l_Msg_Data;
6907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6908: IF (l_Msg_Data IS NULL) THEN
6909: FND_MSG_PUB.Count_And_Get
6910: ( p_encoded => FND_API.G_FALSE
6911: , p_count => l_msg_count
6906: RETURN l_Msg_Data;
6907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6908: IF (l_Msg_Data IS NULL) THEN
6909: FND_MSG_PUB.Count_And_Get
6910: ( p_encoded => FND_API.G_FALSE
6911: , p_count => l_msg_count
6912: , p_data => l_Msg_Data
6913: );
6914: END IF;
6911: , p_count => l_msg_count
6912: , p_data => l_Msg_Data
6913: );
6914: END IF;
6915: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6916: RETURN l_Msg_Data;
6917: WHEN OTHERS THEN
6918: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
6919: RETURN NULL;
7077: END IF;*/
7078: l_kpi_names := BSC_BIS_KPI_MEAS_PUB.get_KPIs(p_Kpi_ID, NULL);
7079: IF ((l_Struct_Flag) AND (l_kpi_names IS NOT NULL)) THEN
7080: l_Msg_Data := l_kpi_names;
7081: RAISE FND_API.G_EXC_ERROR;
7082: END IF;
7083: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets Function');
7084: RETURN NULL;
7085: EXCEPTION
7082: END IF;
7083: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets Function');
7084: RETURN NULL;
7085: EXCEPTION
7086: WHEN FND_API.G_EXC_ERROR THEN
7087: IF (l_Msg_Data IS NULL) THEN
7088: FND_MSG_PUB.Count_And_Get
7089: ( p_encoded => FND_API.G_FALSE
7090: , p_count => l_msg_count
7085: EXCEPTION
7086: WHEN FND_API.G_EXC_ERROR THEN
7087: IF (l_Msg_Data IS NULL) THEN
7088: FND_MSG_PUB.Count_And_Get
7089: ( p_encoded => FND_API.G_FALSE
7090: , p_count => l_msg_count
7091: , p_data => l_Msg_Data
7092: );
7093: END IF;
7090: , p_count => l_msg_count
7091: , p_data => l_Msg_Data
7092: );
7093: END IF;
7094: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7095: RETURN l_Msg_Data;
7096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7097: IF (l_Msg_Data IS NULL) THEN
7098: FND_MSG_PUB.Count_And_Get
7092: );
7093: END IF;
7094: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7095: RETURN l_Msg_Data;
7096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7097: IF (l_Msg_Data IS NULL) THEN
7098: FND_MSG_PUB.Count_And_Get
7099: ( p_encoded => FND_API.G_FALSE
7100: , p_count => l_msg_count
7095: RETURN l_Msg_Data;
7096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7097: IF (l_Msg_Data IS NULL) THEN
7098: FND_MSG_PUB.Count_And_Get
7099: ( p_encoded => FND_API.G_FALSE
7100: , p_count => l_msg_count
7101: , p_data => l_Msg_Data
7102: );
7103: END IF;
7100: , p_count => l_msg_count
7101: , p_data => l_Msg_Data
7102: );
7103: END IF;
7104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7105: RETURN l_Msg_Data;
7106: WHEN OTHERS THEN
7107: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
7108: RETURN NULL;
7211: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SPACE');
7212: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7213: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7214: FND_MSG_PUB.ADD;
7215: RAISE FND_API.G_EXC_ERROR;
7216: END IF;
7217:
7218: SELECT COUNT(DIM_SET_ID) INTO l_dim_set_count
7219: FROM BSC_KPI_DIM_SETS_VL
7223: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7224: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7225: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7226: FND_MSG_PUB.ADD;
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: --dbms_output.PUT_LINE('DIM SET COUNT :- '||l_dim_set_count );
7230: IF(l_dim_set_count = BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_DIMSET AND p_Dim_Set_ID IS NULL ) THEN
7231: --dbms_output.PUT_LINE('dimset IF LOOP' );
7232: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7233: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7234: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7235: FND_MSG_PUB.ADD;
7236: RAISE FND_API.G_EXC_ERROR;
7237: END IF;
7238:
7239: OPEN cr_dim_objs_in_dimset ;
7240: -- bug#3405498 meastmon 28-jan-2004: The following is not supported in 8i
7264: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7265: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7266: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7267: FND_MSG_PUB.ADD;
7268: RAISE FND_API.G_EXC_ERROR;
7269: END IF;
7270: IF(cr_dim_objs_in_dimset %ISOPEN) THEN
7271: CLOSE cr_dim_objs_in_dimset ;
7272: END IF;
7274: CLOSE cr_Old_Dimensions ;
7275: END IF;
7276: RETURN NULL;
7277: EXCEPTION
7278: WHEN FND_API.G_EXC_ERROR THEN
7279: IF (l_Msg_Data IS NULL) THEN
7280: FND_MSG_PUB.Count_And_Get
7281: ( p_encoded => FND_API.G_FALSE
7282: , p_count => l_msg_count
7277: EXCEPTION
7278: WHEN FND_API.G_EXC_ERROR THEN
7279: IF (l_Msg_Data IS NULL) THEN
7280: FND_MSG_PUB.Count_And_Get
7281: ( p_encoded => FND_API.G_FALSE
7282: , p_count => l_msg_count
7283: , p_data => l_Msg_Data
7284: );
7285: END IF;
7423: /*********************************************************************************
7424: API TO DELETE PMF/BSC MEASURES/ANALYSIS OPTIONS WITHIN AN INDICATOR
7425: *********************************************************************************/
7426: PROCEDURE Delete_KPI_Multi_Groups_Opts
7427: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
7428: , p_kpi_id IN NUMBER
7429: , p_data_source IN VARCHAR2
7430: , p_Option_0 IN NUMBER
7431: , p_Option_1 IN NUMBER
7470: BEGIN
7471: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7472: SAVEPOINT DeleteBSCKPIMulAnaOpts;
7473: FND_MSG_PUB.Initialize;
7474: x_return_status := FND_API.G_RET_STS_SUCCESS;
7475: IF (p_data_source IS NULL) THEN
7476: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7477: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
7478: FND_MSG_PUB.ADD;
7475: IF (p_data_source IS NULL) THEN
7476: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7477: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
7478: FND_MSG_PUB.ADD;
7479: RAISE FND_API.G_EXC_ERROR;
7480: END IF;
7481: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
7482: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
7483: FND_MSG_PUB.ADD;
7480: END IF;
7481: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
7482: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
7483: FND_MSG_PUB.ADD;
7484: RAISE FND_API.G_EXC_ERROR;
7485: END IF;
7486:
7487: l_series_delete := FALSE;
7488: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id;
7505: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
7506: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7507: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
7508: FND_MSG_PUB.ADD;
7509: RAISE FND_API.G_EXC_ERROR;
7510: END IF;
7511:
7512: SELECT COUNT(*) INTO l_count
7513: FROM BSC_KPIS_B
7515: IF (l_count = 0) THEN
7516: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
7517: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
7518: FND_MSG_PUB.ADD;
7519: RAISE FND_API.G_EXC_ERROR;
7520: END IF;
7521: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
7522: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7523: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
7521: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
7522: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7523: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
7524: FND_MSG_PUB.ADD;
7525: RAISE FND_API.G_EXC_ERROR;
7526: END IF;
7527: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
7528: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7529: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
7527: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
7528: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7529: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
7530: FND_MSG_PUB.ADD;
7531: RAISE FND_API.G_EXC_ERROR;
7532: END IF;
7533:
7534: SELECT share_flag INTO l_count
7535: FROM BSC_KPIS_B
7536: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
7537: IF (l_count = 2) THEN
7538: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
7539: FND_MSG_PUB.ADD;
7540: RAISE FND_API.G_EXC_ERROR;
7541: END IF;
7542: -- obtain dimension set id this option is using.
7543: SELECT dim_set_id INTO l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
7544: FROM BSC_KPI_ANALYSIS_OPTIONS_B
7554: , x_return_status => x_return_status
7555: , x_msg_count => x_msg_count
7556: , x_msg_data => x_msg_data
7557: );
7558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7559: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
7560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7561: END IF;
7562: --Determine number of distinct dataset_id before delete.
7556: , x_msg_data => x_msg_data
7557: );
7558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7559: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_KPI - Failed');
7560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7561: END IF;
7562: --Determine number of distinct dataset_id before delete.
7563: /*SELECT COUNT (DISTINCT dataset_id) INTO l_count
7564: FROM BSC_KPI_ANALYSIS_MEASURES_B
7593: l_Anal_Num_Tbl(2) := p_Option_2;
7594:
7595: IF (l_max_group_count > 1) THEN
7596: BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups
7597: ( p_commit => FND_API.G_FALSE
7598: , p_Kpi_id => p_kpi_id
7599: , p_Anal_Opt_Tbl => l_Anal_Opt_Tbl
7600: , p_max_group_count => l_max_group_count
7601: , p_Anal_Opt_Comb_Tbl => l_Anal_Num_Tbl
7603: , x_return_status => x_return_status
7604: , x_msg_count => x_msg_count
7605: , x_msg_data => x_msg_data
7606: );
7607: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7608: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7610: END IF;
7611: ELSE
7605: , x_msg_data => x_msg_data
7606: );
7607: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7608: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7610: END IF;
7611: ELSE
7612: l_Default_Delete := TRUE;
7613: END IF;
7619: , x_return_status => x_return_status
7620: , x_msg_count => x_msg_count
7621: , x_msg_data => x_msg_data
7622: );
7623: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7624: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7626: END IF;
7627: END IF;
7621: , x_msg_data => x_msg_data
7622: );
7623: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7624: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7626: END IF;
7627: END IF;
7628:
7629: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
7627: END IF;
7628:
7629: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
7630: BSC_KPI_PVT.Set_Default_Option
7631: ( p_commit => FND_API.G_FALSE
7632: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
7633: , x_return_status => x_return_status
7634: , x_msg_count => x_msg_count
7635: , x_msg_data => x_msg_data
7633: , x_return_status => x_return_status
7634: , x_msg_count => x_msg_count
7635: , x_msg_data => x_msg_data
7636: );
7637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7638: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PVT.Set_Default_Option');
7639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7640: END IF;
7641:
7635: , x_msg_data => x_msg_data
7636: );
7637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7638: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PVT.Set_Default_Option');
7639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7640: END IF;
7641:
7642: BSC_KPI_PUB.Update_Kpi_Time_Stamp
7643: ( p_commit => FND_API.G_FALSE
7639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7640: END IF;
7641:
7642: BSC_KPI_PUB.Update_Kpi_Time_Stamp
7643: ( p_commit => FND_API.G_FALSE
7644: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
7645: , x_return_status => x_return_status
7646: , x_msg_count => x_msg_count
7647: , x_msg_data => x_msg_data
7645: , x_return_status => x_return_status
7646: , x_msg_count => x_msg_count
7647: , x_msg_data => x_msg_data
7648: );
7649: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7650: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
7651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7652: END IF;
7653:
7647: , x_msg_data => x_msg_data
7648: );
7649: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7650: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
7651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7652: END IF;
7653:
7654: BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group
7655: ( p_commit => FND_API.G_FALSE
7651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7652: END IF;
7653:
7654: BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group
7655: ( p_commit => FND_API.G_FALSE
7656: , p_Kpi_Id => p_kpi_id
7657: , p_Anal_Opt_Tbl => l_Anal_Opt_Tbl
7658: , x_return_status => x_return_status
7659: , x_msg_count => x_msg_count
7658: , x_return_status => x_return_status
7659: , x_msg_count => x_msg_count
7660: , x_msg_data => x_msg_data
7661: );
7662: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7663: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7665: END IF;
7666:
7660: , x_msg_data => x_msg_data
7661: );
7662: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7663: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7665: END IF;
7666:
7667: /* SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
7668: FROM BSC_KPI_ANALYSIS_MEASURES_B
7677:
7678: FOR cd IN c_kpi_ids LOOP
7679: l_kpi_id := cd.indicator;
7680: BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group
7681: ( p_commit => FND_API.G_FALSE
7682: , p_Kpi_Id => l_kpi_id
7683: , p_Anal_Opt_Tbl => l_Anal_Opt_Tbl
7684: , x_return_status => x_return_status
7685: , x_msg_count => x_msg_count
7684: , x_return_status => x_return_status
7685: , x_msg_count => x_msg_count
7686: , x_msg_data => x_msg_data
7687: );
7688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7689: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7691: END IF;
7692:
7686: , x_msg_data => x_msg_data
7687: );
7688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7689: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7691: END IF;
7692:
7693: SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
7694: FROM BSC_KPI_ANALYSIS_MEASURES_B
7706: , x_return_status => x_return_status
7707: , x_msg_count => x_msg_count
7708: , x_msg_data => x_msg_data
7709: );
7710: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7711: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
7712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7713: END IF;
7714:
7708: , x_msg_data => x_msg_data
7709: );
7710: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7711: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
7712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7713: END IF;
7714:
7715: -- Added for Start-to-End KPI Enhancement to maintain SHORT_NAME
7716: -- This API will refresh short_names for Analysis Options belonging to Start-to-End KPIs
7716: -- This API will refresh short_names for Analysis Options belonging to Start-to-End KPIs
7717: -- Enhancement#3540302 and Bug#3691035
7718: BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names
7719: (
7720: p_Commit => FND_API.G_FALSE
7721: , p_Kpi_Id => p_kpi_id
7722: , x_Return_Status => x_return_status
7723: , x_Msg_Count => x_msg_count
7724: , x_Msg_Data => x_msg_data
7722: , x_Return_Status => x_return_status
7723: , x_Msg_Count => x_msg_count
7724: , x_Msg_Data => x_msg_data
7725: );
7726: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7728: END IF;
7729:
7730: IF (p_commit = FND_API.G_TRUE) THEN
7723: , x_Msg_Count => x_msg_count
7724: , x_Msg_Data => x_msg_data
7725: );
7726: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7728: END IF;
7729:
7730: IF (p_commit = FND_API.G_TRUE) THEN
7731: COMMIT;
7726: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7728: END IF;
7729:
7730: IF (p_commit = FND_API.G_TRUE) THEN
7731: COMMIT;
7732: END IF;
7733: x_return_status := FND_API.G_RET_STS_SUCCESS;
7734: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7729:
7730: IF (p_commit = FND_API.G_TRUE) THEN
7731: COMMIT;
7732: END IF;
7733: x_return_status := FND_API.G_RET_STS_SUCCESS;
7734: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7735: EXCEPTION
7736: WHEN FND_API.G_EXC_ERROR THEN
7737: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7732: END IF;
7733: x_return_status := FND_API.G_RET_STS_SUCCESS;
7734: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7735: EXCEPTION
7736: WHEN FND_API.G_EXC_ERROR THEN
7737: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7738: IF (x_msg_data IS NULL) THEN
7739: FND_MSG_PUB.Count_And_Get
7740: ( p_encoded => FND_API.G_FALSE
7736: WHEN FND_API.G_EXC_ERROR THEN
7737: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7738: IF (x_msg_data IS NULL) THEN
7739: FND_MSG_PUB.Count_And_Get
7740: ( p_encoded => FND_API.G_FALSE
7741: , p_count => x_msg_count
7742: , p_data => x_msg_data
7743: );
7744: END IF;
7741: , p_count => x_msg_count
7742: , p_data => x_msg_data
7743: );
7744: END IF;
7745: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7746: x_return_status := FND_API.G_RET_STS_ERROR;
7747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7748: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7749: IF (x_msg_data IS NULL) THEN
7742: , p_data => x_msg_data
7743: );
7744: END IF;
7745: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7746: x_return_status := FND_API.G_RET_STS_ERROR;
7747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7748: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7749: IF (x_msg_data IS NULL) THEN
7750: FND_MSG_PUB.Count_And_Get
7743: );
7744: END IF;
7745: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7746: x_return_status := FND_API.G_RET_STS_ERROR;
7747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7748: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7749: IF (x_msg_data IS NULL) THEN
7750: FND_MSG_PUB.Count_And_Get
7751: ( p_encoded => FND_API.G_FALSE
7747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7748: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7749: IF (x_msg_data IS NULL) THEN
7750: FND_MSG_PUB.Count_And_Get
7751: ( p_encoded => FND_API.G_FALSE
7752: , p_count => x_msg_count
7753: , p_data => x_msg_data
7754: );
7755: END IF;
7752: , p_count => x_msg_count
7753: , p_data => x_msg_data
7754: );
7755: END IF;
7756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7757: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7758: WHEN NO_DATA_FOUND THEN
7759: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7753: , p_data => x_msg_data
7754: );
7755: END IF;
7756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7757: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7758: WHEN NO_DATA_FOUND THEN
7759: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7761: IF (x_msg_data IS NOT NULL) THEN
7756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7757: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7758: WHEN NO_DATA_FOUND THEN
7759: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7761: IF (x_msg_data IS NOT NULL) THEN
7762: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7763: ELSE
7764: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7765: END IF;
7766: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7767: WHEN OTHERS THEN
7768: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7770: IF (x_msg_data IS NOT NULL) THEN
7771: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7772: ELSE
7773: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7904: , x_return_status => x_return_status
7905: , x_msg_count => x_msg_count
7906: , x_msg_data => x_msg_data
7907: );
7908: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7909: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7911: END IF;
7912:
7906: , x_msg_data => x_msg_data
7907: );
7908: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7909: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7911: END IF;
7912:
7913: --dbms_output.PUT_LINE('The no of dimension objects count is = '||l_DimObj_ViewBy_Tbl.COUNT);
7914:
7934: , x_Return_Status => x_return_status
7935: , x_Msg_Count => x_msg_count
7936: , x_Msg_Data => x_msg_data
7937: );
7938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7939: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7940: SELECT NAME
7941: INTO x_dimobj_name
7942: FROM BIS_LEVELS_VL
7940: SELECT NAME
7941: INTO x_dimobj_name
7942: FROM BIS_LEVELS_VL
7943: WHERE SHORT_NAME = l_dim_sht_name;
7944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7945: END IF;
7946: END IF;
7947: --dbms_output.PUT_LINE('x_return_status '||x_return_status);
7948: --dbms_output.PUT_LINE('x_msg_data '||x_msg_data);
7957: , x_Return_Status => x_return_status
7958: , x_Msg_Count => x_msg_count
7959: , x_Msg_Data => x_msg_data
7960: );
7961: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7962: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7963: SELECT NAME
7964: INTO x_dimobj_name
7965: FROM BIS_LEVELS_VL
7963: SELECT NAME
7964: INTO x_dimobj_name
7965: FROM BIS_LEVELS_VL
7966: WHERE SHORT_NAME = l_comma_shtnames;
7967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7968: END IF;
7969: END IF;
7970: --dbms_output.PUT_LINE('x_return_status '||x_return_status);
7971: --dbms_output.PUT_LINE('x_msg_data '|| x_msg_data);
7976: END LOOP;
7977:
7978:
7979: EXCEPTION
7980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7981: IF (x_msg_data IS NULL) THEN
7982: FND_MSG_PUB.Count_And_Get
7983: ( p_encoded => FND_API.G_FALSE
7984: , p_count => x_msg_count
7979: EXCEPTION
7980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7981: IF (x_msg_data IS NULL) THEN
7982: FND_MSG_PUB.Count_And_Get
7983: ( p_encoded => FND_API.G_FALSE
7984: , p_count => x_msg_count
7985: , p_data => x_msg_data
7986: );
7987: END IF;
7984: , p_count => x_msg_count
7985: , p_data => x_msg_data
7986: );
7987: END IF;
7988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7989: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7990: WHEN OTHERS THEN
7991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7992: IF (x_msg_data IS NOT NULL) THEN
7985: , p_data => x_msg_data
7986: );
7987: END IF;
7988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7989: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7990: WHEN OTHERS THEN
7991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7992: IF (x_msg_data IS NOT NULL) THEN
7993: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7987: END IF;
7988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7989: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7990: WHEN OTHERS THEN
7991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7992: IF (x_msg_data IS NOT NULL) THEN
7993: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7994: ELSE
7995: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
8038: , x_msg_count => l_msg_count
8039: , x_msg_data => l_msg_data
8040: );
8041:
8042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8043: RETURN 'N';
8044: END IF;
8045:
8046: FOR i IN 1..l_DimObj_ViewBy_Tbl.COUNT LOOP