45: g_source varchar2(10);
46: g_invalid_level varchar2(50);
47:
48: procedure Bsc_Pmf_Ui_Api(
49: p_commit IN varchar2 := FND_API.G_TRUE
50: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
51: ,p_Bsc_Pmf_Dim_Tbl IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Tbl_Type
52: ,p_Dim_Count IN number
53: ,x_bad_level OUT NOCOPY varchar2
81: if p_Bsc_Pmf_Ui_Rec.Kpi_Id is null then
82: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
83: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Pmf_Ui_Rec.Kpi_Id);
84: FND_MSG_PUB.ADD;
85: RAISE FND_API.G_EXC_ERROR;
86: end if;
87:
88: g_Bsc_Pmf_Ui_Rec.Kpi_Id := p_Bsc_Pmf_Ui_Rec.Kpi_Id;
89: g_Bsc_Pmf_Ui_Rec.Kpi_Group_Id := p_Bsc_Pmf_Ui_Rec.Kpi_Group_Id;
138: ,x_msg_count
139: ,x_msg_data);
140:
141: EXCEPTION
142: WHEN FND_API.G_EXC_ERROR THEN
143: rollback;
144: -- if the error is and invalid level we won't raise, we need to pass value of invalid
145: -- level, else raise.
146: if(g_invalid_level is not null) then
144: -- if the error is and invalid level we won't raise, we need to pass value of invalid
145: -- level, else raise.
146: if(g_invalid_level is not null) then
147: x_bad_level := g_invalid_level;
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
150: ,p_data => x_msg_data);
151: else
152: x_bad_level := null;
149: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
150: ,p_data => x_msg_data);
151: else
152: x_bad_level := null;
153: x_return_status := FND_API.G_RET_STS_ERROR;
154: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
155: ,p_data => x_msg_data);
156: raise;
157: end if;
154: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
155: ,p_data => x_msg_data);
156: raise;
157: end if;
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159: rollback;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
162: ,p_data => x_msg_data);
156: raise;
157: end if;
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159: rollback;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
162: ,p_data => x_msg_data);
163: raise;
164: WHEN NO_DATA_FOUND THEN
162: ,p_data => x_msg_data);
163: raise;
164: WHEN NO_DATA_FOUND THEN
165: rollback;
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
168: ,p_data => x_msg_data);
169: raise;
170: WHEN OTHERS THEN
168: ,p_data => x_msg_data);
169: raise;
170: WHEN OTHERS THEN
171: rollback;
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
174: ,p_data => x_msg_data);
175: raise;
176:
179: /************************************************************************************
180: ************************************************************************************/
181:
182: procedure Get_Measure_Long_Name(
183: p_commit IN varchar2 := FND_API.G_TRUE
184: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
185: ,x_return_status OUT NOCOPY varchar2
186: ,x_msg_count OUT NOCOPY number
187: ,x_msg_data OUT NOCOPY varchar2
192: if p_Bsc_Pmf_Ui_Rec.Measure_Short_Name is null then
193: FND_MESSAGE.SET_NAME('BSC','BSC_NO_SHORT_NAME');
194: FND_MESSAGE.SET_TOKEN('BSC_SHORT_NAME', p_Bsc_Pmf_Ui_Rec.Measure_Short_Name);
195: FND_MSG_PUB.ADD;
196: RAISE FND_API.G_EXC_ERROR;
197: end if;
198:
199: g_Bsc_Pmf_Ui_Rec.Measure_Short_Name := p_Bsc_Pmf_Ui_Rec.Measure_Short_Name;
200:
208: g_Bsc_Dataset_Rec.Bsc_Measure_Long_Name := g_Bsc_Pmf_Ui_Rec.Option_Name;
209:
210:
211: EXCEPTION
212: WHEN FND_API.G_EXC_ERROR THEN
213: rollback;
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
216: ,p_data => x_msg_data);
210:
211: EXCEPTION
212: WHEN FND_API.G_EXC_ERROR THEN
213: rollback;
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
216: ,p_data => x_msg_data);
217: raise;
218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
216: ,p_data => x_msg_data);
217: raise;
218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
219: rollback;
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
222: ,p_data => x_msg_data);
216: ,p_data => x_msg_data);
217: raise;
218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
219: rollback;
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
222: ,p_data => x_msg_data);
223: raise;
224: WHEN NO_DATA_FOUND THEN
222: ,p_data => x_msg_data);
223: raise;
224: WHEN NO_DATA_FOUND THEN
225: rollback;
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
228: ,p_data => x_msg_data);
229: raise;
230: WHEN OTHERS THEN
228: ,p_data => x_msg_data);
229: raise;
230: WHEN OTHERS THEN
231: rollback;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
234: ,p_data => x_msg_data);
235: raise;
236:
239: /************************************************************************************
240: ************************************************************************************/
241:
242: procedure Get_Dimension_Long_Name(
243: p_commit IN varchar2 := FND_API.G_TRUE
244: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
245: ,x_return_status OUT NOCOPY varchar2
246: ,x_msg_count OUT NOCOPY number
247: ,x_msg_data OUT NOCOPY varchar2
257:
258:
259:
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: rollback;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
265: ,p_data => x_msg_data);
259:
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: rollback;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
265: ,p_data => x_msg_data);
266: raise;
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
265: ,p_data => x_msg_data);
266: raise;
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: rollback;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
271: ,p_data => x_msg_data);
265: ,p_data => x_msg_data);
266: raise;
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: rollback;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
271: ,p_data => x_msg_data);
272: raise;
273: WHEN NO_DATA_FOUND THEN
271: ,p_data => x_msg_data);
272: raise;
273: WHEN NO_DATA_FOUND THEN
274: rollback;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
277: ,p_data => x_msg_data);
278: raise;
279: WHEN OTHERS THEN
277: ,p_data => x_msg_data);
278: raise;
279: WHEN OTHERS THEN
280: rollback;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
283: ,p_data => x_msg_data);
284: raise;
285:
289: ************************************************************************************/
290:
291: /*
292: procedure Get_Dimension_Level_Name(
293: p_commit IN varchar2 := FND_API.G_TRUE
294: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
295: ,x_return_status OUT NOCOPY varchar2
296: ,x_msg_count OUT NOCOPY number
297: ,x_msg_data OUT NOCOPY varchar2
301:
302: g_Bsc_Pmf_Ui_Rec.Dimension_Short_Name := p_Bsc_Pmf_Ui_Rec.Dimension_Short_Name;
303:
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: rollback;
307: x_return_status := FND_API.G_RET_STS_ERROR;
308: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
309: ,p_data => x_msg_data);
303:
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: rollback;
307: x_return_status := FND_API.G_RET_STS_ERROR;
308: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
309: ,p_data => x_msg_data);
310: raise;
311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307: x_return_status := FND_API.G_RET_STS_ERROR;
308: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
309: ,p_data => x_msg_data);
310: raise;
311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
312: rollback;
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
315: ,p_data => x_msg_data);
309: ,p_data => x_msg_data);
310: raise;
311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
312: rollback;
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
315: ,p_data => x_msg_data);
316: raise;
317: WHEN NO_DATA_FOUND THEN
315: ,p_data => x_msg_data);
316: raise;
317: WHEN NO_DATA_FOUND THEN
318: rollback;
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
321: ,p_data => x_msg_data);
322: raise;
323: WHEN OTHERS THEN
321: ,p_data => x_msg_data);
322: raise;
323: WHEN OTHERS THEN
324: rollback;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
327: ,p_data => x_msg_data);
328: raise;
329:
333: /************************************************************************************
334: ************************************************************************************/
335:
336: procedure Modify_Passed_Parameters(
337: p_commit IN varchar2 := FND_API.G_TRUE
338: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
339: ,p_Bsc_Pmf_Dim_Tbl IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Tbl_Type
340: ,p_Dim_Count IN number
341: ,x_return_status OUT NOCOPY varchar2
490: -- If execution has come this far then clear out NOCOPY g_invalid_level variable.
491: g_invalid_level := null;
492:
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: rollback;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
498: ,p_data => x_msg_data);
492:
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: rollback;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
498: ,p_data => x_msg_data);
499: raise;
500: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
498: ,p_data => x_msg_data);
499: raise;
500: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
501: rollback;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
504: ,p_data => x_msg_data);
498: ,p_data => x_msg_data);
499: raise;
500: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
501: rollback;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
504: ,p_data => x_msg_data);
505: raise;
506: WHEN NO_DATA_FOUND THEN
504: ,p_data => x_msg_data);
505: raise;
506: WHEN NO_DATA_FOUND THEN
507: rollback;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
510: ,p_data => x_msg_data);
511: raise;
512: WHEN OTHERS THEN
514: if g_invalid_level is not null then
515: FND_MESSAGE.SET_NAME('BSC','BSC_UNAVAILABLE_LEVEL');
516: FND_MESSAGE.SET_TOKEN('BSC_LEVEL', g_invalid_level);
517: FND_MSG_PUB.ADD;
518: RAISE FND_API.G_EXC_ERROR;
519: else
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
522: ,p_data => x_msg_data);
516: FND_MESSAGE.SET_TOKEN('BSC_LEVEL', g_invalid_level);
517: FND_MSG_PUB.ADD;
518: RAISE FND_API.G_EXC_ERROR;
519: else
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
522: ,p_data => x_msg_data);
523: raise;
524: end if;
528: /************************************************************************************
529: ************************************************************************************/
530:
531: procedure Create_Bsc_Dimension(
532: p_commit IN varchar2 := FND_API.G_TRUE
533: ,p_Bsc_Pmf_Dim_Tbl IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Tbl_Type
534: ,p_Dim_Count IN number
535: ,x_return_status OUT NOCOPY varchar2
536: ,x_msg_count OUT NOCOPY number
585: -- g_Bsc_Dim_Rec.Bsc_Kpi_Id := g_Bsc_Pmf_Ui_Rec.Kpi_Id;
586: g_Bsc_Dim_Rec.Bsc_Language := 'US';
587: g_Bsc_Dim_Rec.Bsc_Source_Language := 'US';
588:
589: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level( FND_API.G_TRUE
590: ,g_Bsc_Dim_Rec
591: ,x_return_status
592: ,x_msg_count
593: ,x_msg_data);
605: where SHORT_NAME = g_Bsc_Pmf_Dim_Tbl(i).Dimension_Level_Short_Name;
606:
607:
608: -- Create a Dimension Group for all Dimension Level.
609: BSC_DIMENSION_GROUPS_PUB.Create_Dimension_Group( FND_API.G_TRUE
610: ,g_Bsc_Dim_Group_Rec
611: ,x_return_status
612: ,x_msg_count
613: ,x_msg_data);
615:
616: end loop;
617:
618: EXCEPTION
619: WHEN FND_API.G_EXC_ERROR THEN
620: rollback;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
623: ,p_data => x_msg_data);
617:
618: EXCEPTION
619: WHEN FND_API.G_EXC_ERROR THEN
620: rollback;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
623: ,p_data => x_msg_data);
624: raise;
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
623: ,p_data => x_msg_data);
624: raise;
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: rollback;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
629: ,p_data => x_msg_data);
623: ,p_data => x_msg_data);
624: raise;
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: rollback;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
629: ,p_data => x_msg_data);
630: raise;
631: WHEN NO_DATA_FOUND THEN
629: ,p_data => x_msg_data);
630: raise;
631: WHEN NO_DATA_FOUND THEN
632: rollback;
633: x_return_status := FND_API.G_RET_STS_ERROR;
634: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
635: ,p_data => x_msg_data);
636: raise;
637: WHEN OTHERS THEN
635: ,p_data => x_msg_data);
636: raise;
637: WHEN OTHERS THEN
638: rollback;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
640: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
641: ,p_data => x_msg_data);
642: raise;
643:
645:
646: /************************************************************************************
647: ************************************************************************************/
648: procedure Update_Bsc_Dataset(
649: p_commit IN VARCHAR2 := FND_API.G_TRUE
650: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
651: ,x_return_status OUT NOCOPY VARCHAR2
652: ,x_msg_count OUT NOCOPY NUMBER
653: ,x_msg_data OUT NOCOPY VARCHAR2
714: );
715:
716: END LOOP;
717: CLOSE c_language;
718: IF (p_commit = FND_API.G_TRUE) THEN
719: COMMIT;
720: END if;
721: END IF;
722:
720: END if;
721: END IF;
722:
723: EXCEPTION
724: WHEN FND_API.G_EXC_ERROR THEN
725: IF (c_language%ISOPEN) THEN
726: CLOSE c_language;
727: END IF;
728: rollback;
725: IF (c_language%ISOPEN) THEN
726: CLOSE c_language;
727: END IF;
728: rollback;
729: x_return_status := FND_API.G_RET_STS_ERROR;
730: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
731: ,p_data => x_msg_data);
732: raise;
733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: x_return_status := FND_API.G_RET_STS_ERROR;
730: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
731: ,p_data => x_msg_data);
732: raise;
733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
734: IF (c_language%ISOPEN) THEN
735: CLOSE c_language;
736: END IF;
737:
735: CLOSE c_language;
736: END IF;
737:
738: rollback;
739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
741: ,p_data => x_msg_data);
742: raise;
743: WHEN NO_DATA_FOUND THEN
745: CLOSE c_language;
746: END IF;
747:
748: rollback;
749: x_return_status := FND_API.G_RET_STS_ERROR;
750: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
751: ,p_data => x_msg_data);
752: raise;
753: WHEN OTHERS THEN
754: IF (c_language%ISOPEN) THEN
755: CLOSE c_language;
756: END IF;
757: rollback;
758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
760: ,p_data => x_msg_data);
761: raise;
762:
764: /***************************************************************************************/
765:
766:
767: procedure Create_Bsc_Dataset(
768: p_commit IN varchar2 := FND_API.G_TRUE
769: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
770: ,x_return_status OUT NOCOPY varchar2
771: ,x_msg_count OUT NOCOPY number
772: ,x_msg_data OUT NOCOPY varchar2
798: end if;
799: g_Bsc_Dataset_Rec.Bsc_Dataset_Format_Id := l_bsc_format_id;
800: --end 2677766
801:
802: BSC_DATASETS_PUB.Create_Measures( FND_API.G_TRUE
803: ,g_Bsc_Dataset_Rec
804: ,x_return_status
805: ,x_msg_count
806: ,x_msg_data);
807: commit;
808:
809:
810: EXCEPTION
811: WHEN FND_API.G_EXC_ERROR THEN
812: rollback;
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
815: ,p_data => x_msg_data);
809:
810: EXCEPTION
811: WHEN FND_API.G_EXC_ERROR THEN
812: rollback;
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
815: ,p_data => x_msg_data);
816: raise;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
815: ,p_data => x_msg_data);
816: raise;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: rollback;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
821: ,p_data => x_msg_data);
815: ,p_data => x_msg_data);
816: raise;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: rollback;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
821: ,p_data => x_msg_data);
822: raise;
823: WHEN NO_DATA_FOUND THEN
821: ,p_data => x_msg_data);
822: raise;
823: WHEN NO_DATA_FOUND THEN
824: rollback;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
827: ,p_data => x_msg_data);
828: raise;
829: WHEN OTHERS THEN
827: ,p_data => x_msg_data);
828: raise;
829: WHEN OTHERS THEN
830: rollback;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
833: ,p_data => x_msg_data);
834: raise;
835:
838: /************************************************************************************
839: ************************************************************************************/
840:
841: procedure Create_Bsc_Dimension_Set(
842: p_commit IN varchar2 := FND_API.G_TRUE
843: ,p_Bsc_Pmf_Ui_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Rec_Type
844: ,p_Bsc_Pmf_Dim_Tbl IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Tbl_Type
845: ,p_Dim_Count IN number
846: ,x_return_status OUT NOCOPY varchar2
892: where upper(name) = upper(g_Bsc_Dim_Group_Rec.Bsc_Dim_Level_Group_Name);
893:
894:
895: -- Call the BSC API to Populate Dimension sets.
896: BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset( FND_API.G_TRUE
897: ,g_Bsc_Dimset_Rec
898: ,x_return_status
899: ,x_msg_count
900: ,x_msg_data);
923: ,x_msg_count
924: ,x_msg_data);
925:
926: EXCEPTION
927: WHEN FND_API.G_EXC_ERROR THEN
928: rollback;
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
931: ,p_data => x_msg_data);
925:
926: EXCEPTION
927: WHEN FND_API.G_EXC_ERROR THEN
928: rollback;
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
931: ,p_data => x_msg_data);
932: raise;
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
931: ,p_data => x_msg_data);
932: raise;
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: rollback;
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
937: ,p_data => x_msg_data);
931: ,p_data => x_msg_data);
932: raise;
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: rollback;
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
937: ,p_data => x_msg_data);
938: raise;
939: WHEN NO_DATA_FOUND THEN
937: ,p_data => x_msg_data);
938: raise;
939: WHEN NO_DATA_FOUND THEN
940: rollback;
941: x_return_status := FND_API.G_RET_STS_ERROR;
942: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
943: ,p_data => x_msg_data);
944: raise;
945: WHEN OTHERS THEN
943: ,p_data => x_msg_data);
944: raise;
945: WHEN OTHERS THEN
946: rollback;
947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
948: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
949: ,p_data => x_msg_data);
950: raise;
951:
954: /************************************************************************************
955: ************************************************************************************/
956:
957: procedure Create_Bsc_Analysis_Option(
958: p_commit IN varchar2 := FND_API.G_TRUE
959: ,x_return_status OUT NOCOPY varchar2
960: ,x_msg_count OUT NOCOPY number
961: ,x_msg_data OUT NOCOPY varchar2
962: ) is
1012: if l_count = -1 then
1013: -- If we've come this far then we need to update the default Option.
1014: g_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := 0;
1015: g_Bsc_Anal_Opt_Rec.Bsc_Option_Group0 := 0;
1016: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options( FND_API.G_TRUE
1017: ,g_Bsc_Anal_Opt_Rec
1018: ,x_return_status
1019: ,x_msg_count
1020: ,x_msg_data);
1023: BSC_DESIGNER_PVT.Deflt_RefreshKpi(g_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
1024:
1025: else
1026: -- Call procedure to create Analysis Option.
1027: BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options( FND_API.G_TRUE
1028: ,g_Bsc_Anal_Opt_Rec
1029: ,x_return_status
1030: ,x_msg_count
1031: ,x_msg_data);
1031: ,x_msg_data);
1032: end if;
1033: else
1034: -- Call procedure to create Analysis Option.
1035: BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options( FND_API.G_TRUE
1036: ,g_Bsc_Anal_Opt_Rec
1037: ,x_return_status
1038: ,x_msg_count
1039: ,x_msg_data);
1042:
1043: else
1044:
1045: -- Call procedure to create Analysis Option.
1046: BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options( FND_API.G_TRUE
1047: ,g_Bsc_Anal_Opt_Rec
1048: ,x_return_status
1049: ,x_msg_count
1050: ,x_msg_data);
1050: ,x_msg_data);
1051: end if;
1052:
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: rollback;
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1058: ,p_data => x_msg_data);
1052:
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: rollback;
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1058: ,p_data => x_msg_data);
1059: raise;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1058: ,p_data => x_msg_data);
1059: raise;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: rollback;
1062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1063: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1064: ,p_data => x_msg_data);
1058: ,p_data => x_msg_data);
1059: raise;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: rollback;
1062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1063: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1064: ,p_data => x_msg_data);
1065: raise;
1066: WHEN NO_DATA_FOUND THEN
1064: ,p_data => x_msg_data);
1065: raise;
1066: WHEN NO_DATA_FOUND THEN
1067: rollback;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1070: ,p_data => x_msg_data);
1071: raise;
1072: WHEN OTHERS THEN
1070: ,p_data => x_msg_data);
1071: raise;
1072: WHEN OTHERS THEN
1073: rollback;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1076: ,p_data => x_msg_data);
1077: raise;
1078:
1081: /************************************************************************************
1082: ************************************************************************************/
1083:
1084: procedure Import_PMF_Dim_Level(
1085: p_commit IN varchar2 := FND_API.G_TRUE
1086: ,p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
1087: ,x_return_status OUT NOCOPY varchar2
1088: ,x_msg_count OUT NOCOPY number
1089: ,x_msg_data OUT NOCOPY varchar2
1141: v_Bsc_Dim_Rec.Bsc_Source_Language := 'US';
1142:
1143: --DBMS_OUTPUT.PUT_LINE(' Import_Dim_Level Flag 2 x_return_status = ' || x_return_status );
1144:
1145: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level( FND_API.G_TRUE
1146: ,v_Bsc_Dim_Rec
1147: ,x_return_status
1148: ,x_msg_count
1149: ,x_msg_data);
1167: -- Create a Dimension Group for the Dimension Level.
1168:
1169: --DBMS_OUTPUT.PUT_LINE(' Import_Dim_Level - Flag 5 - Create Dimension Group - x_return_status = ' || x_return_status );
1170:
1171: BSC_DIMENSION_GROUPS_PUB.Create_Dimension_Group( FND_API.G_TRUE
1172: ,v_Bsc_Dim_Group_Rec
1173: ,x_return_status
1174: ,x_msg_count
1175: ,x_msg_data);
1177: --DBMS_OUTPUT.PUT_LINE('End Import_Dim_Level ');
1178:
1179:
1180: EXCEPTION
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: rollback;
1183: x_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1185: ,p_data => x_msg_data);
1179:
1180: EXCEPTION
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: rollback;
1183: x_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1185: ,p_data => x_msg_data);
1186: raise;
1187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1183: x_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1185: ,p_data => x_msg_data);
1186: raise;
1187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1188: rollback;
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1190: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1191: ,p_data => x_msg_data);
1185: ,p_data => x_msg_data);
1186: raise;
1187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1188: rollback;
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1190: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1191: ,p_data => x_msg_data);
1192: raise;
1193: WHEN NO_DATA_FOUND THEN
1191: ,p_data => x_msg_data);
1192: raise;
1193: WHEN NO_DATA_FOUND THEN
1194: rollback;
1195: x_return_status := FND_API.G_RET_STS_ERROR;
1196: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1197: ,p_data => x_msg_data);
1198: raise;
1199: WHEN OTHERS THEN
1197: ,p_data => x_msg_data);
1198: raise;
1199: WHEN OTHERS THEN
1200: rollback;
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1203: ,p_data => x_msg_data);
1204: raise;
1205:
1208: /************************************************************************************
1209: ************************************************************************************/
1210:
1211: procedure Populate_Bsc_Pmf_Dim_Rec(
1212: p_commit IN varchar2 := FND_API.G_TRUE
1213: ,p_Dim_Level_Short_Name IN varchar2
1214: ,x_Bsc_Pmf_Dim_Rec OUT NOCOPY BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
1215: ,x_return_status OUT NOCOPY varchar2
1216: ,x_msg_count OUT NOCOPY number
1325: IF (NOT BSC_UTILITY.is_Table_View_Exists(x_Bsc_Pmf_Dim_Rec.Dimension_Level_View_Name)) THEN
1326: FND_MESSAGE.SET_NAME('BSC','BSC_PMF_LEVEL_NOT_EXISTS');
1327: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_NAME', x_Bsc_Pmf_Dim_Rec.Dimension_Level_View_Name);
1328: FND_MSG_PUB.ADD;
1329: RAISE FND_API.G_EXC_ERROR;
1330: END IF;
1331: -- Included to fixed bug 2382059
1332:
1333: -- The 'order by' added to fix bug 2406866
1351: --DBMS_OUTPUT.PUT_LINE('End Populate_Bsc_Pmf_Dim_Rec ');
1352:
1353:
1354: EXCEPTION
1355: WHEN FND_API.G_EXC_ERROR THEN
1356: rollback;
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1359: ,p_data => x_msg_data);
1353:
1354: EXCEPTION
1355: WHEN FND_API.G_EXC_ERROR THEN
1356: rollback;
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1359: ,p_data => x_msg_data);
1360: raise;
1361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1359: ,p_data => x_msg_data);
1360: raise;
1361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1362: rollback;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1365: ,p_data => x_msg_data);
1359: ,p_data => x_msg_data);
1360: raise;
1361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1362: rollback;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1365: ,p_data => x_msg_data);
1366:
1367: raise;
1366:
1367: raise;
1368: WHEN NO_DATA_FOUND THEN
1369: rollback;
1370: x_return_status := FND_API.G_RET_STS_ERROR;
1371: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1372: ,p_data => x_msg_data);
1373: raise;
1374: WHEN OTHERS THEN
1372: ,p_data => x_msg_data);
1373: raise;
1374: WHEN OTHERS THEN
1375: rollback;
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1378: ,p_data => x_msg_data);
1379: raise;
1380:
1658:
1659: --DBMS_OUTPUT.PUT_LINE('End BSC_PMF_UI_API_PUB.Get_DimLevel_Viewby');
1660:
1661: EXCEPTION
1662: WHEN FND_API.G_EXC_ERROR THEN
1663: rollback;
1664: x_return_status := FND_API.G_RET_STS_ERROR;
1665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1666: ,p_data => x_msg_data);
1660:
1661: EXCEPTION
1662: WHEN FND_API.G_EXC_ERROR THEN
1663: rollback;
1664: x_return_status := FND_API.G_RET_STS_ERROR;
1665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1666: ,p_data => x_msg_data);
1667: raise;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1664: x_return_status := FND_API.G_RET_STS_ERROR;
1665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1666: ,p_data => x_msg_data);
1667: raise;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: rollback;
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1671: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1672: ,p_data => x_msg_data);
1666: ,p_data => x_msg_data);
1667: raise;
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: rollback;
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1671: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1672: ,p_data => x_msg_data);
1673:
1674: raise;
1673:
1674: raise;
1675: WHEN NO_DATA_FOUND THEN
1676: rollback;
1677: x_return_status := FND_API.G_RET_STS_ERROR;
1678: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1679: ,p_data => x_msg_data);
1680: raise;
1681: WHEN OTHERS THEN
1679: ,p_data => x_msg_data);
1680: raise;
1681: WHEN OTHERS THEN
1682: rollback;
1683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1684: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1685: ,p_data => x_msg_data);
1686: raise;
1687: