85: p_default_values_api IN VARCHAR2,
86: p_enabled IN VARCHAR2,
87: p_drill_to_form_function IN VARCHAR2,
88: p_last_update_date IN DATE := SYSDATE,
89: p_hide IN VARCHAR2 := FND_API.G_FALSE
90: );
91: --
92: -- returns the record with the G_MISS_CHAR/G_MISS_NUM replaced
93: -- by null
189: x_dimension_level_rec.Last_Update_Date := BIS_UTILITIES_PVT.CheckMissDate(p_dimension_level_rec.Last_Update_Date);
190: x_dimension_level_rec.Last_Update_Login := BIS_UTILITIES_PVT.CheckMissNum(p_dimension_level_rec.Last_Update_Login);
191:
192: EXCEPTION
193: WHEN FND_API.G_EXC_ERROR THEN
194: RAISE
195: ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: RAISE;
192: EXCEPTION
193: WHEN FND_API.G_EXC_ERROR THEN
194: RAISE
195: ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: RAISE;
198: WHEN OTHERS THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200:
195: ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: RAISE;
198: WHEN OTHERS THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200:
201: END SetNULL;
202: --
203: PROCEDURE UpdateRecord
222: , x_return_status => l_return_status
223: , x_error_Tbl => x_error_Tbl
224: );
225:
226: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229:
230: -- apply changes
223: , x_error_Tbl => x_error_Tbl
224: );
225:
226: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229:
230: -- apply changes
231:
229:
230: -- apply changes
231:
232: -- Primary dimension starts
233: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_ID) = FND_API.G_TRUE) AND (p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
234: l_Dimension_Level_Rec.Dimension_ID := p_Dimension_Level_Rec.Dimension_ID;
235: END IF;
236: --
237: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_Short_Name) = FND_API.G_TRUE) AND(p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
233: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_ID) = FND_API.G_TRUE) AND (p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
234: l_Dimension_Level_Rec.Dimension_ID := p_Dimension_Level_Rec.Dimension_ID;
235: END IF;
236: --
237: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_Short_Name) = FND_API.G_TRUE) AND(p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
238: l_Dimension_Level_Rec.Dimension_Short_Name := p_Dimension_Level_Rec.Dimension_Short_Name ;
239: END IF;
240: --
241: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_Name) = FND_API.G_TRUE) AND (p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
237: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_Short_Name) = FND_API.G_TRUE) AND(p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
238: l_Dimension_Level_Rec.Dimension_Short_Name := p_Dimension_Level_Rec.Dimension_Short_Name ;
239: END IF;
240: --
241: IF( (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Dimension_Name) = FND_API.G_TRUE) AND (p_Dimension_Level_Rec.Primary_Dim = FND_API.G_TRUE) ) THEN
242: l_Dimension_Level_Rec.Dimension_Name := p_Dimension_Level_Rec.Dimension_Name;
243: END IF;
244: -- Primary dimension ends
245:
244: -- Primary dimension ends
245:
246: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
247: p_Dimension_Level_Rec.Dimension_Level_ID)
248: = FND_API.G_TRUE
249: ) THEN
250: l_Dimension_Level_Rec.Dimension_Level_ID
251: := p_Dimension_Level_Rec.Dimension_Level_ID;
252: END IF;
252: END IF;
253: --
254: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
255: p_Dimension_Level_Rec.Dimension_Level_Short_Name)
256: = FND_API.G_TRUE
257: ) THEN
258: l_Dimension_Level_Rec.Dimension_Level_Short_Name
259: := p_Dimension_Level_Rec.Dimension_Level_Short_Name ;
260: END IF;
260: END IF;
261: --
262: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
263: p_Dimension_Level_Rec.Dimension_Level_Name)
264: = FND_API.G_TRUE
265: ) THEN
266: l_Dimension_Level_Rec.Dimension_Level_Name
267: := p_Dimension_Level_Rec.Dimension_Level_Name;
268: END IF;
268: END IF;
269: --
270: -- jxyu added AND condition
271: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Description)
272: = FND_API.G_TRUE)
273: AND (p_Dimension_Level_Rec.Description IS NOT NULL) THEN
274: l_Dimension_Level_Rec.Description
275: := p_Dimension_Level_Rec.Description;
276: END IF;
275: := p_Dimension_Level_Rec.Description;
276: END IF;
277: --
278: -- jxyu added AND condition
279: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Level_Values_View_Name) = FND_API.G_TRUE)
280: AND (p_Dimension_Level_Rec.Level_Values_View_Name IS NOT NULL) THEN
281: l_Dimension_Level_Rec.Level_Values_View_Name
282: := p_Dimension_Level_Rec.Level_Values_View_Name;
283: END IF;
283: END IF;
284: --
285: -- jxyu added AND condition
286: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.where_Clause )
287: = FND_API.G_TRUE)
288: AND (p_Dimension_Level_Rec.where_Clause IS NOT NULL) THEN
289: l_Dimension_Level_Rec.where_Clause
290: := p_Dimension_Level_Rec.where_Clause;
291: END IF;
291: END IF;
292: --
293: --jxyu modified the condition
294: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.source )
295: = FND_API.G_TRUE)
296: AND (p_Dimension_Level_Rec.source IS NOT NULL) THEN
297: l_Dimension_Level_Rec.source
298: := p_Dimension_Level_Rec.source;
299: END IF;
301: --jxyu added for #2435226
302: -- Bug #3266561 -removed condition to default comparision to NULL when passed from UI;
303: l_Dimension_Level_Rec.Comparison_Label_Code := p_Dimension_Level_Rec.Comparison_Label_Code;
304:
305: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Attribute_Code ) = FND_API.G_TRUE)
306: AND (p_Dimension_Level_Rec.Attribute_Code IS NOT NULL) THEN
307: l_Dimension_Level_Rec.Attribute_Code
308: := p_Dimension_Level_Rec.Attribute_Code;
309: END IF;
307: l_Dimension_Level_Rec.Attribute_Code
308: := p_Dimension_Level_Rec.Attribute_Code;
309: END IF;
310:
311: IF(BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Application_ID) = FND_API.G_TRUE)
312: AND (p_Dimension_Level_Rec.Application_ID IS NOT NULL) THEN
313: l_Dimension_Level_Rec.Application_ID := p_Dimension_Level_Rec.Application_ID;
314: END IF;
315:
315:
316: -- Bug #3266561 -removed condition to default default_search to NULL when passed from UI;
317: l_Dimension_Level_Rec.default_search := p_Dimension_Level_Rec.Default_Search;
318:
319: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Long_Lov ) = FND_API.G_TRUE)
320: AND (p_Dimension_Level_Rec.Long_Lov IS NOT NULL) THEN
321: l_Dimension_Level_Rec.Long_Lov
322: := p_Dimension_Level_Rec.Long_Lov;
323: END IF;
324:
325: l_Dimension_Level_Rec.Master_Level := p_Dimension_Level_Rec.Master_Level;
326:
327:
328: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.View_Object_Name ) = FND_API.G_TRUE)
329: AND (p_Dimension_Level_Rec.View_Object_Name IS NOT NULL) THEN
330: l_Dimension_Level_Rec.View_Object_Name
331: := p_Dimension_Level_Rec.View_Object_Name;
332: END IF;
333:
334: -- Bug #3567463 -removed condition to default Default_Values_Api to NULL when passed from UI;
335: l_Dimension_Level_Rec.Default_Values_Api := p_Dimension_Level_Rec.Default_Values_Api;
336:
337: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Enabled ) = FND_API.G_TRUE)
338: AND (p_Dimension_Level_Rec.Enabled IS NOT NULL) THEN
339: l_Dimension_Level_Rec.Enabled
340: := p_Dimension_Level_Rec.Enabled;
341: END IF;
339: l_Dimension_Level_Rec.Enabled
340: := p_Dimension_Level_Rec.Enabled;
341: END IF;
342:
343: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Rec.Hide ) = FND_API.G_TRUE)
344: AND (p_Dimension_Level_Rec.Hide IS NOT NULL) THEN
345: l_Dimension_Level_Rec.Hide := p_Dimension_Level_Rec.Hide;
346: END IF;
347:
350: x_Dimension_Level_Rec := l_Dimension_Level_Rec;
351: --
352: --commented RAISE
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status:= FND_API.G_RET_STS_ERROR;
356: --RAISE;
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
351: --
352: --commented RAISE
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status:= FND_API.G_RET_STS_ERROR;
356: --RAISE;
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
359: --RAISE;
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status:= FND_API.G_RET_STS_ERROR;
356: --RAISE;
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
359: --RAISE;
360: WHEN OTHERS THEN
361: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status:= FND_API.G_RET_STS_ERROR;
356: --RAISE;
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
359: --RAISE;
360: WHEN OTHERS THEN
361: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
362: l_error_tbl := x_error_tbl;
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
359: --RAISE;
360: WHEN OTHERS THEN
361: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
362: l_error_tbl := x_error_tbl;
363: BIS_UTILITIES_PVT.Add_Error_Message
364: ( p_error_table => l_error_Tbl
365: , p_error_msg_id => SQLCODE
365: , p_error_msg_id => SQLCODE
366: , p_error_description => SQLERRM
367: , x_error_table => x_error_Tbl
368: );
369: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370:
371: END UpdateRecord;
372: --
373: --
460: where dimension_name = p_Dimension_Rec.dimension_name;
461:
462: BEGIN
463:
464: x_return_status := FND_API.G_RET_STS_SUCCESS;
465:
466: IF BIS_UTILITIES_PUB.Value_Not_Missing(
467: p_Dimension_Rec.dimension_id)
468: = FND_API.G_TRUE
464: x_return_status := FND_API.G_RET_STS_SUCCESS;
465:
466: IF BIS_UTILITIES_PUB.Value_Not_Missing(
467: p_Dimension_Rec.dimension_id)
468: = FND_API.G_TRUE
469: THEN
470:
471: for cr in cr_dim_id loop
472: l_flag := 1;
499: end loop;
500:
501: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
502: p_Dimension_Rec.dimension_short_name)
503: = FND_API.G_TRUE
504: THEN
505:
506: for cr in cr_dim_short_name loop
507: l_flag := 1;
532:
533: end loop;
534: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
535: p_Dimension_Rec.dimension_name)
536: = FND_API.G_TRUE
537: THEN
538:
539: for cr in cr_dim_name loop
540: l_flag := 1;
576: , p_error_table => l_error_tbl
577: , x_error_table => x_error_tbl
578: );
579:
580: RAISE FND_API.G_EXC_ERROR;
581: END IF;
582:
583: --added this check
584: IF l_flag = 0 then
591: , p_error_table => l_error_tbl
592: , x_error_table => x_error_tbl
593: );
594:
595: RAISE FND_API.G_EXC_ERROR;
596: END IF;
597:
598: --commented RAISE
599: EXCEPTION
597:
598: --commented RAISE
599: EXCEPTION
600: WHEN NO_DATA_FOUND THEN
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
598: --commented RAISE
599: EXCEPTION
600: WHEN NO_DATA_FOUND THEN
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
599: EXCEPTION
600: WHEN NO_DATA_FOUND THEN
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
600: WHEN NO_DATA_FOUND THEN
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: when others then
602: --RAISE FND_API.G_EXC_ERROR;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: when others then
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
603: when FND_API.G_EXC_ERROR then
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: when others then
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
611: l_error_tbl := x_error_tbl;
604: x_return_status := FND_API.G_RET_STS_ERROR ;
605: -- RAISE FND_API.G_EXC_ERROR;
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: when others then
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
611: l_error_tbl := x_error_tbl;
612: --added last two parameters
606: when FND_API.G_EXC_UNEXPECTED_ERROR then
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
608: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: when others then
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
611: l_error_tbl := x_error_tbl;
612: --added last two parameters
613: BIS_UTILITIES_PVT.Add_Error_Message
614: ( p_error_msg_id => SQLCODE
616: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Dimension_Levels'
617: , p_error_table => l_error_tbl
618: , x_error_table => x_error_tbl
619: );
620: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621:
622:
623: END Retrieve_Dimension_Levels;
624: --
712: where dimension_level_name = p_Dimension_level_Rec.dimension_level_name;
713:
714: BEGIN
715:
716: x_return_status := FND_API.G_RET_STS_SUCCESS;
717:
718: IF BIS_UTILITIES_PUB.Value_Not_Missing(
719: p_Dimension_level_Rec.dimension_level_id)
720: = FND_API.G_TRUE
716: x_return_status := FND_API.G_RET_STS_SUCCESS;
717:
718: IF BIS_UTILITIES_PUB.Value_Not_Missing(
719: p_Dimension_level_Rec.dimension_level_id)
720: = FND_API.G_TRUE
721: THEN
722: OPEN cr_lev_id;
723: FETCH cr_lev_id INTO
724: x_Dimension_level_Rec.dimension_id
743: , x_Dimension_level_Rec.drill_to_form_function
744: , x_Dimension_level_Rec.hide;
745: --
746: IF cr_lev_id%ROWCOUNT = 0 THEN
747: x_return_status := FND_API.G_RET_STS_ERROR;
748: END IF;
749: CLOSE cr_lev_id;
750:
751: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
749: CLOSE cr_lev_id;
750:
751: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
752: p_Dimension_level_Rec.dimension_level_short_name)
753: = FND_API.G_TRUE
754: THEN
755: OPEN cr_lev_short_name;
756: FETCH cr_lev_short_name INTO
757: x_Dimension_level_Rec.dimension_id
776: , x_Dimension_level_Rec.drill_to_form_function
777: , x_Dimension_level_Rec.hide;
778: --
779: IF cr_lev_short_name%ROWCOUNT = 0 THEN
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: END IF;
782: CLOSE cr_lev_short_name;
783:
784: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
782: CLOSE cr_lev_short_name;
783:
784: ELSIF BIS_UTILITIES_PUB.Value_Not_Missing(
785: p_Dimension_level_Rec.dimension_level_name)
786: = FND_API.G_TRUE
787: THEN
788: OPEN cr_lev_name;
789: FETCH cr_lev_name INTO
790: x_Dimension_level_Rec.dimension_id
809: , x_Dimension_level_Rec.drill_to_form_function
810: , x_Dimension_level_Rec.hide;
811: --
812: IF cr_lev_name%ROWCOUNT = 0 THEN
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: END IF;
815: CLOSE cr_lev_name;
816: ELSE
817: l_error_tbl := x_error_tbl;
823: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
824: , p_error_table => l_error_tbl
825: , x_error_table => x_error_tbl
826: );
827: RAISE FND_API.G_EXC_ERROR;
828: END IF;
829:
830: --added this check
831: IF x_return_status <> FND_API.G_RET_STS_SUCCESS then
827: RAISE FND_API.G_EXC_ERROR;
828: END IF;
829:
830: --added this check
831: IF x_return_status <> FND_API.G_RET_STS_SUCCESS then
832: l_error_tbl := x_error_tbl;
833: BIS_UTILITIES_PVT.Add_Error_Message
834: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_VALUE'
835: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
837: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
838: , p_error_table => l_error_tbl
839: , x_error_table => x_error_tbl
840: );
841: RAISE FND_API.G_EXC_ERROR;
842: END IF;
843:
844: --commented RAISE
845: EXCEPTION
843:
844: --commented RAISE
845: EXCEPTION
846: WHEN NO_DATA_FOUND THEN
847: x_return_status := FND_API.G_RET_STS_ERROR ;
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
844: --commented RAISE
845: EXCEPTION
846: WHEN NO_DATA_FOUND THEN
847: x_return_status := FND_API.G_RET_STS_ERROR ;
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
845: EXCEPTION
846: WHEN NO_DATA_FOUND THEN
847: x_return_status := FND_API.G_RET_STS_ERROR ;
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: WHEN NO_DATA_FOUND THEN
847: x_return_status := FND_API.G_RET_STS_ERROR ;
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: x_return_status := FND_API.G_RET_STS_ERROR ;
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: when others then
848: --RAISE FND_API.G_EXC_ERROR;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: when others then
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
849: when FND_API.G_EXC_ERROR then
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: when others then
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
857: l_error_tbl := x_error_tbl;
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851: --RAISE FND_API.G_EXC_ERROR;
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: when others then
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
857: l_error_tbl := x_error_tbl;
858: --added last two parameters
852: when FND_API.G_EXC_UNEXPECTED_ERROR then
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: when others then
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
857: l_error_tbl := x_error_tbl;
858: --added last two parameters
859: BIS_UTILITIES_PVT.Add_Error_Message
860: ( p_error_msg_id => SQLCODE
862: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Dimension_Level'
863: , p_error_table => l_error_tbl
864: , x_error_table => x_error_tbl
865: );
866: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867:
868:
869: END Retrieve_Dimension_Level;
870:
893: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
894:
895: BEGIN
896:
897: x_return_status := FND_API.G_RET_STS_SUCCESS;
898:
899: IF (p_all_dim_levels_tbl.COUNT = 0) THEN
900: RETURN;
901: END IF;
960: IF (c_dim_level_details%ISOPEN) THEN
961: CLOSE c_dim_level_details;
962: END IF;
963:
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
965: l_error_tbl := x_error_tbl;
966: BIS_UTILITIES_PVT.Add_Error_Message(
967: p_error_msg_id => SQLCODE
968: , p_error_description => SQLERRM
1064:
1065: --
1066: Procedure Create_Dimension_Level
1067: ( p_api_version IN NUMBER
1068: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1069: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1070: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1071: , x_return_status OUT NOCOPY VARCHAR2
1072: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1065: --
1066: Procedure Create_Dimension_Level
1067: ( p_api_version IN NUMBER
1068: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1069: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1070: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1071: , x_return_status OUT NOCOPY VARCHAR2
1072: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1073: )
1091:
1092: --commented RAISE
1093: EXCEPTION
1094: when others then
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1096: l_error_tbl := x_error_tbl;
1097: --added last two parameters
1098: BIS_UTILITIES_PVT.Add_Error_Message
1099: ( p_error_msg_id => SQLCODE
1101: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension_Level'
1102: , p_error_table => l_error_tbl
1103: , x_error_table => x_error_tbl
1104: );
1105: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106:
1107: END Create_Dimension_Level;
1108: --
1109: PROCEDURE Create_Dimension_Level
1107: END Create_Dimension_Level;
1108: --
1109: PROCEDURE Create_Dimension_Level
1110: ( p_api_version IN NUMBER
1111: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1112: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1113: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1114: , p_owner IN VARCHAR2
1115: , x_return_status OUT NOCOPY VARCHAR2
1108: --
1109: PROCEDURE Create_Dimension_Level
1110: ( p_api_version IN NUMBER
1111: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1112: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1113: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1114: , p_owner IN VARCHAR2
1115: , x_return_status OUT NOCOPY VARCHAR2
1116: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1128: PRAGMA EXCEPTION_INIT(DUPLICATE_DIMENSION_VALUE, -1);
1129:
1130: BEGIN
1131:
1132: x_return_status := FND_API.G_RET_STS_SUCCESS;
1133:
1134: SetNULL
1135: ( p_dimension_level_Rec => p_dimension_level_Rec
1136: , x_dimension_level_Rec => l_dimension_level_Rec
1135: ( p_dimension_level_Rec => p_dimension_level_Rec
1136: , x_dimension_level_Rec => l_dimension_level_Rec
1137: );
1138:
1139: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE )
1140: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE )
1141: THEN
1142:
1143: BIS_DIMENSION_PVT.Value_ID_Conversion
1136: , x_dimension_level_Rec => l_dimension_level_Rec
1137: );
1138:
1139: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE )
1140: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE )
1141: THEN
1142:
1143: BIS_DIMENSION_PVT.Value_ID_Conversion
1144: ( p_api_version
1160: , x_error_Tbl
1161: );
1162:
1163:
1164: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1165: l_error_tbl := x_error_tbl;
1166: BIS_UTILITIES_PVT.Add_Error_Message
1167: ( p_error_msg_name => 'BIS_NAME_SHORT_NAME_MISSING'
1168: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1171: , p_error_table => l_error_tbl
1172: , x_error_table => x_error_tbl
1173: );
1174:
1175: RAISE FND_API.G_EXC_ERROR;
1176:
1177: END IF;
1178:
1179: -- ankgoel: bug#3891748 - Created_By will take precedence over Owner.
1189: l_Dimension_Level_Rec.Last_Update_Login := fnd_global.LOGIN_ID;
1190: END IF;
1191:
1192: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.source)
1193: = FND_API.G_TRUE)
1194: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.source)
1195: = FND_API.G_TRUE)
1196: THEN
1197: l_Dimension_Level_Rec.source := FND_PROFILE.value('BIS_SOURCE');
1191:
1192: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.source)
1193: = FND_API.G_TRUE)
1194: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.source)
1195: = FND_API.G_TRUE)
1196: THEN
1197: l_Dimension_Level_Rec.source := FND_PROFILE.value('BIS_SOURCE');
1198: END IF;
1199:
1238: , p_hide => l_Dimension_Level_Rec.Hide
1239: , p_last_update_date => l_Dimension_Level_Rec.Last_Update_Date
1240: );
1241:
1242: if (p_commit = FND_API.G_TRUE) then
1243: COMMIT;
1244: end if;
1245:
1246: ELSE
1262:
1263: EXCEPTION
1264:
1265: WHEN DUPLICATE_DIMENSION_VALUE THEN
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1267: l_error_tbl := x_error_tbl;
1268: BIS_UTILITIES_PVT.Add_Error_Message
1269: ( p_error_msg_name => 'BIS_DIM_LEVEL_UNIQUENESS_ERROR'
1270: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1274: , x_error_table => x_error_tbl
1275: );
1276:
1277: WHEN NO_DATA_FOUND THEN
1278: x_return_status := FND_API.G_RET_STS_ERROR ;
1279:
1280: when FND_API.G_EXC_ERROR then
1281: x_return_status := FND_API.G_RET_STS_ERROR ;
1282:
1276:
1277: WHEN NO_DATA_FOUND THEN
1278: x_return_status := FND_API.G_RET_STS_ERROR ;
1279:
1280: when FND_API.G_EXC_ERROR then
1281: x_return_status := FND_API.G_RET_STS_ERROR ;
1282:
1283: when FND_API.G_EXC_UNEXPECTED_ERROR then
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1277: WHEN NO_DATA_FOUND THEN
1278: x_return_status := FND_API.G_RET_STS_ERROR ;
1279:
1280: when FND_API.G_EXC_ERROR then
1281: x_return_status := FND_API.G_RET_STS_ERROR ;
1282:
1283: when FND_API.G_EXC_UNEXPECTED_ERROR then
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1285:
1279:
1280: when FND_API.G_EXC_ERROR then
1281: x_return_status := FND_API.G_RET_STS_ERROR ;
1282:
1283: when FND_API.G_EXC_UNEXPECTED_ERROR then
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1285:
1286: when others then
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1280: when FND_API.G_EXC_ERROR then
1281: x_return_status := FND_API.G_RET_STS_ERROR ;
1282:
1283: when FND_API.G_EXC_UNEXPECTED_ERROR then
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1285:
1286: when others then
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: l_error_tbl := x_error_tbl;
1283: when FND_API.G_EXC_UNEXPECTED_ERROR then
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1285:
1286: when others then
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: l_error_tbl := x_error_tbl;
1289: BIS_UTILITIES_PVT.Add_Error_Message
1290: ( p_error_msg_id => SQLCODE
1291: , p_error_description => SQLERRM
1359: p_default_values_api IN VARCHAR2,
1360: p_enabled IN VARCHAR2,
1361: p_drill_to_form_function IN VARCHAR2,
1362: p_last_update_date IN DATE := SYSDATE,
1363: p_Hide IN VARCHAR2 := FND_API.G_FALSE
1364: )
1365: IS
1366:
1367: l_msg VARCHAR2(3000);
1414: , NVL(p_long_lov, 'F')
1415: , p_master_level
1416: , p_view_object_name
1417: , p_default_values_api
1418: , NVL(p_enabled, FND_API.G_TRUE)
1419: , p_drill_to_form_function
1420: , p_hide
1421: );
1422:
1483:
1484: --
1485: PROCEDURE Update_Dimension_Level
1486: ( p_api_version IN NUMBER
1487: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1488: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1489: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1490: , x_return_status OUT NOCOPY VARCHAR2
1491: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1484: --
1485: PROCEDURE Update_Dimension_Level
1486: ( p_api_version IN NUMBER
1487: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1488: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1489: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1490: , x_return_status OUT NOCOPY VARCHAR2
1491: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1492: )
1510:
1511: --commented RAISE
1512: EXCEPTION
1513: when others then
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1515: l_error_tbl := x_error_tbl;
1516: --added last two paramaters
1517: BIS_UTILITIES_PVT.Add_Error_Message
1518: ( p_error_msg_id => SQLCODE
1520: , p_error_proc_name => G_PKG_NAME||'.Update_Dimension_Level'
1521: , p_error_table => l_error_tbl
1522: , x_error_table => x_error_tbl
1523: );
1524: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525:
1526: END Update_Dimension_Level;
1527: --
1528: PROCEDURE Update_Dimension_Level
1526: END Update_Dimension_Level;
1527: --
1528: PROCEDURE Update_Dimension_Level
1529: ( p_api_version IN NUMBER
1530: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1531: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1532: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1533: , p_owner IN VARCHAR2
1534: , x_return_status OUT NOCOPY VARCHAR2
1527: --
1528: PROCEDURE Update_Dimension_Level
1529: ( p_api_version IN NUMBER
1530: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1531: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1532: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1533: , p_owner IN VARCHAR2
1534: , x_return_status OUT NOCOPY VARCHAR2
1535: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1546: PRAGMA EXCEPTION_INIT(DUPLICATE_DIMENSION_VALUE, -1);
1547:
1548: BEGIN
1549:
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: -- retrieve record from database and apply changes
1553: UpdateRecord
1554: ( p_Dimension_Level_Rec => p_Dimension_Level_Rec
1564: , x_return_status
1565: , x_error_Tbl
1566: );
1567:
1568: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1569: l_error_tbl := x_error_tbl;
1570: --added Error Msg--------
1571: BIS_UTILITIES_PVT.Add_Error_Message
1572: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
1575: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1576: , p_error_table => l_error_tbl
1577: , x_error_table => x_error_tbl
1578: );
1579: RAISE FND_API.G_EXC_ERROR;
1580: END IF;
1581:
1582: IF ((l_Dimension_Level_Rec.Enabled IS NULL) OR (l_Dimension_Level_Rec.Enabled = FND_API.G_FALSE)) THEN
1583: validate_disabling
1578: );
1579: RAISE FND_API.G_EXC_ERROR;
1580: END IF;
1581:
1582: IF ((l_Dimension_Level_Rec.Enabled IS NULL) OR (l_Dimension_Level_Rec.Enabled = FND_API.G_FALSE)) THEN
1583: validate_disabling
1584: (p_dim_level_id => l_Dimension_Level_Rec.dimension_level_id
1585: ,p_error_tbl => l_error_tbl
1586: ,x_return_status => x_return_status
1585: ,p_error_tbl => l_error_tbl
1586: ,x_return_status => x_return_status
1587: ,x_error_tbl => x_error_tbl
1588: );
1589: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1592: END IF;
1593:
1586: ,x_return_status => x_return_status
1587: ,x_error_tbl => x_error_tbl
1588: );
1589: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1592: END IF;
1593:
1594: l_user_id := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
1596:
1597: ----------------
1598: --Adding this for the source column
1599: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.source)
1600: = FND_API.G_TRUE)
1601: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.source)
1602: = FND_API.G_TRUE)
1603: THEN
1604: l_Dimension_Level_Rec.source := FND_PROFILE.value('BIS_SOURCE');
1598: --Adding this for the source column
1599: IF (BIS_UTILITIES_PUB.Value_Missing(l_Dimension_Level_Rec.source)
1600: = FND_API.G_TRUE)
1601: OR (BIS_UTILITIES_PUB.Value_NULL(l_Dimension_Level_Rec.source)
1602: = FND_API.G_TRUE)
1603: THEN
1604: l_Dimension_Level_Rec.source := FND_PROFILE.value('BIS_SOURCE');
1605: END IF;
1606: ------------------
1623: , LONG_LOV = NVL(l_Dimension_Level_Rec.Long_Lov, 'F')
1624: , MASTER_LEVEL = l_Dimension_Level_Rec.Master_Level
1625: , VIEW_OBJECT_NAME = l_Dimension_Level_Rec.View_Object_Name
1626: , DEFAULT_VALUES_API = l_Dimension_Level_Rec.Default_Values_Api
1627: , ENABLED = NVL(l_Dimension_Level_Rec.Enabled,FND_API.G_TRUE)
1628: , DRILL_TO_FORM_FUNCTION = l_Dimension_Level_Rec.Drill_To_Form_Function
1629: , HIDE_IN_DESIGN = l_Dimension_Level_Rec.Hide
1630: where Level_ID = l_Dimension_Level_Rec.Dimension_Level_Id;
1631:
1628: , DRILL_TO_FORM_FUNCTION = l_Dimension_Level_Rec.Drill_To_Form_Function
1629: , HIDE_IN_DESIGN = l_Dimension_Level_Rec.Hide
1630: where Level_ID = l_Dimension_Level_Rec.Dimension_Level_Id;
1631:
1632: if (p_commit = FND_API.G_TRUE) then
1633: COMMIT;
1634: end if;
1635:
1636: Translate_dimension_level
1646: --commented RAISE
1647: EXCEPTION
1648: --new exception
1649: WHEN DUPLICATE_DIMENSION_VALUE THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1651: l_error_tbl := x_error_tbl;
1652: BIS_UTILITIES_PVT.Add_Error_Message
1653: ( p_error_msg_name => 'BIS_DIM_LEVEL_UNIQUENESS_ERROR'
1654: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1657: , p_error_table => l_error_tbl
1658: , x_error_table => x_error_tbl
1659: );
1660: WHEN NO_DATA_FOUND THEN
1661: x_return_status := FND_API.G_RET_STS_ERROR ;
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1658: , x_error_table => x_error_tbl
1659: );
1660: WHEN NO_DATA_FOUND THEN
1661: x_return_status := FND_API.G_RET_STS_ERROR ;
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1659: );
1660: WHEN NO_DATA_FOUND THEN
1661: x_return_status := FND_API.G_RET_STS_ERROR ;
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1660: WHEN NO_DATA_FOUND THEN
1661: x_return_status := FND_API.G_RET_STS_ERROR ;
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1661: x_return_status := FND_API.G_RET_STS_ERROR ;
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: when others then
1662: --RAISE FND_API.G_EXC_ERROR;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: when others then
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1663: when FND_API.G_EXC_ERROR then
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: when others then
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1671: l_error_tbl := x_error_tbl;
1664: x_return_status := FND_API.G_RET_STS_ERROR ;
1665: --RAISE FND_API.G_EXC_ERROR;
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: when others then
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1671: l_error_tbl := x_error_tbl;
1672: --added last two parameters
1666: when FND_API.G_EXC_UNEXPECTED_ERROR then
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1668: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: when others then
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1671: l_error_tbl := x_error_tbl;
1672: --added last two parameters
1673: BIS_UTILITIES_PVT.Add_Error_Message
1674: ( p_error_msg_id => SQLCODE
1676: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension_Level'
1677: , p_error_table => l_error_tbl
1678: , x_error_table => x_error_tbl
1679: );
1680: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1681:
1682: END Update_Dimension_Level;
1683: --
1684: --
1684: --
1685: --
1686: Procedure Translate_Dimension_Level
1687: ( p_api_version IN NUMBER
1688: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1689: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1690: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1691: , x_return_status OUT NOCOPY VARCHAR2
1692: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1685: --
1686: Procedure Translate_Dimension_Level
1687: ( p_api_version IN NUMBER
1688: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1689: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1690: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1691: , x_return_status OUT NOCOPY VARCHAR2
1692: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1693: )
1711:
1712: --commented RAISE
1713: EXCEPTION
1714: when others then
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: l_error_tbl := x_error_tbl;
1717: --added last two paramaters
1718: BIS_UTILITIES_PVT.Add_Error_Message
1719: ( p_error_msg_id => SQLCODE
1721: , p_error_proc_name => G_PKG_NAME||'.Translate_Dimension_Level'
1722: , p_error_table => l_error_tbl
1723: , x_error_table => x_error_tbl
1724: );
1725: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1726:
1727: END Translate_Dimension_Level;
1728: --
1729: Procedure Translate_Dimension_Level
1727: END Translate_Dimension_Level;
1728: --
1729: Procedure Translate_Dimension_Level
1730: ( p_api_version IN NUMBER
1731: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1732: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1733: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1734: , p_owner IN VARCHAR2
1735: , x_return_status OUT NOCOPY VARCHAR2
1728: --
1729: Procedure Translate_Dimension_Level
1730: ( p_api_version IN NUMBER
1731: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1732: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1733: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1734: , p_owner IN VARCHAR2
1735: , x_return_status OUT NOCOPY VARCHAR2
1736: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1742: l_Dimension_Level_Rec BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type;
1743: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1744:
1745: BEGIN
1746: x_return_status := FND_API.G_RET_STS_SUCCESS;
1747:
1748: -- retrieve record from database and apply changes
1749: UpdateRecord
1750: ( p_Dimension_Level_Rec => p_Dimension_Level_Rec
1760: , x_return_status
1761: , x_error_Tbl
1762: );
1763:
1764: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: END IF;
1767: --
1768: l_user_id := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
1761: , x_error_Tbl
1762: );
1763:
1764: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: END IF;
1767: --
1768: l_user_id := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
1769: l_login_id := fnd_global.LOGIN_ID;
1779: , SOURCE_LANG = userenv('LANG')
1780: where LEVEL_ID = l_Dimension_Level_Rec.Dimension_Level_Id
1781: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
1782:
1783: if (p_commit = FND_API.G_TRUE) then
1784: COMMIT;
1785: end if;
1786:
1787: --commented RAISE
1786:
1787: --commented RAISE
1788: EXCEPTION
1789: WHEN NO_DATA_FOUND THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1787: --commented RAISE
1788: EXCEPTION
1789: WHEN NO_DATA_FOUND THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1788: EXCEPTION
1789: WHEN NO_DATA_FOUND THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1789: WHEN NO_DATA_FOUND THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: when others then
1791: --RAISE FND_API.G_EXC_ERROR;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: when others then
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1792: when FND_API.G_EXC_ERROR then
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: when others then
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1800: l_error_tbl := x_error_tbl;
1793: x_return_status := FND_API.G_RET_STS_ERROR ;
1794: --RAISE FND_API.G_EXC_ERROR;
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: when others then
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1800: l_error_tbl := x_error_tbl;
1801: --added last two parameters
1795: when FND_API.G_EXC_UNEXPECTED_ERROR then
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1797: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: when others then
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1800: l_error_tbl := x_error_tbl;
1801: --added last two parameters
1802: BIS_UTILITIES_PVT.Add_Error_Message
1803: ( p_error_msg_id => SQLCODE
1805: , p_error_proc_name => G_PKG_NAME||'.Translate_Dimension_Level'
1806: , p_error_table => l_error_tbl
1807: , x_error_table => x_error_tbl
1808: );
1809: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810:
1811: END Translate_Dimension_Level;
1812: --
1813: --
1822: is
1823: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1824: begin
1825:
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827: x_Dimension_Level_Rec := p_Dimension_Level_Rec;
1828:
1829: if (BIS_UTILITIES_PUB.Value_Missing
1830: (x_Dimension_Level_Rec.Dimension_level_id) = FND_API.G_TRUE
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827: x_Dimension_Level_Rec := p_Dimension_Level_Rec;
1828:
1829: if (BIS_UTILITIES_PUB.Value_Missing
1830: (x_Dimension_Level_Rec.Dimension_level_id) = FND_API.G_TRUE
1831: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1832: (x_Dimension_Level_Rec.Dimension_level_short_name) = FND_API.G_TRUE
1833: OR BIS_UTILITIES_PUB.Value_Not_Missing
1834: (x_Dimension_Level_Rec.Dimension_level_name) = FND_API.G_TRUE)
1828:
1829: if (BIS_UTILITIES_PUB.Value_Missing
1830: (x_Dimension_Level_Rec.Dimension_level_id) = FND_API.G_TRUE
1831: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1832: (x_Dimension_Level_Rec.Dimension_level_short_name) = FND_API.G_TRUE
1833: OR BIS_UTILITIES_PUB.Value_Not_Missing
1834: (x_Dimension_Level_Rec.Dimension_level_name) = FND_API.G_TRUE)
1835: ) then
1836: BIS_DIMENSION_LEVEL_PVT.Value_ID_Conversion
1830: (x_Dimension_Level_Rec.Dimension_level_id) = FND_API.G_TRUE
1831: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1832: (x_Dimension_Level_Rec.Dimension_level_short_name) = FND_API.G_TRUE
1833: OR BIS_UTILITIES_PUB.Value_Not_Missing
1834: (x_Dimension_Level_Rec.Dimension_level_name) = FND_API.G_TRUE)
1835: ) then
1836: BIS_DIMENSION_LEVEL_PVT.Value_ID_Conversion
1837: ( p_api_version
1838: , x_Dimension_Level_Rec.Dimension_Level_Short_Name
1843: );
1844: end if;
1845:
1846: if (BIS_UTILITIES_PUB.Value_Missing
1847: (x_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE
1848: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1849: (x_Dimension_Level_Rec.Dimension_short_name) = FND_API.G_TRUE
1850: OR BIS_UTILITIES_PUB.Value_Not_Missing
1851: (x_Dimension_Level_Rec.Dimension_name) = FND_API.G_TRUE)
1845:
1846: if (BIS_UTILITIES_PUB.Value_Missing
1847: (x_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE
1848: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1849: (x_Dimension_Level_Rec.Dimension_short_name) = FND_API.G_TRUE
1850: OR BIS_UTILITIES_PUB.Value_Not_Missing
1851: (x_Dimension_Level_Rec.Dimension_name) = FND_API.G_TRUE)
1852: ) then
1853: BIS_DIMENSION_PVT.Value_ID_Conversion
1847: (x_Dimension_Level_Rec.Dimension_id) = FND_API.G_TRUE
1848: AND ( BIS_UTILITIES_PUB.Value_Not_Missing
1849: (x_Dimension_Level_Rec.Dimension_short_name) = FND_API.G_TRUE
1850: OR BIS_UTILITIES_PUB.Value_Not_Missing
1851: (x_Dimension_Level_Rec.Dimension_name) = FND_API.G_TRUE)
1852: ) then
1853: BIS_DIMENSION_PVT.Value_ID_Conversion
1854: ( p_api_version
1855: , x_Dimension_Level_Rec.Dimension_Short_Name
1862:
1863: --commented RAISE
1864: EXCEPTION
1865: WHEN NO_DATA_FOUND THEN
1866: x_return_status := FND_API.G_RET_STS_ERROR ;
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1863: --commented RAISE
1864: EXCEPTION
1865: WHEN NO_DATA_FOUND THEN
1866: x_return_status := FND_API.G_RET_STS_ERROR ;
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1864: EXCEPTION
1865: WHEN NO_DATA_FOUND THEN
1866: x_return_status := FND_API.G_RET_STS_ERROR ;
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1865: WHEN NO_DATA_FOUND THEN
1866: x_return_status := FND_API.G_RET_STS_ERROR ;
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: x_return_status := FND_API.G_RET_STS_ERROR ;
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: when others then
1867: --RAISE FND_API.G_EXC_ERROR;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: when others then
1875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1868: when FND_API.G_EXC_ERROR then
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: when others then
1875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1876: l_error_tbl := x_error_tbl;
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: --RAISE FND_API.G_EXC_ERROR;
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: when others then
1875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1876: l_error_tbl := x_error_tbl;
1877: --added last two parameters
1871: when FND_API.G_EXC_UNEXPECTED_ERROR then
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: when others then
1875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1876: l_error_tbl := x_error_tbl;
1877: --added last two parameters
1878: BIS_UTILITIES_PVT.Add_Error_Message
1879: ( p_error_msg_id => SQLCODE
1881: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
1882: , p_error_table => l_error_tbl
1883: , x_error_table => x_error_tbl
1884: );
1885: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1886:
1887:
1888: end Value_ID_Conversion;
1889: --
1898: is
1899: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1900: begin
1901:
1902: x_return_status := FND_API.G_RET_STS_SUCCESS;
1903:
1904: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Short_Name)
1905: = FND_API.G_TRUE) then
1906: SELECT dimension_level_id into x_Dimension_Level_ID
1901:
1902: x_return_status := FND_API.G_RET_STS_SUCCESS;
1903:
1904: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Short_Name)
1905: = FND_API.G_TRUE) then
1906: SELECT dimension_level_id into x_Dimension_Level_ID
1907: FROM bisbv_dimension_levels
1908: WHERE dimension_level_short_name = p_Dimension_Level_Short_Name;
1909: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Name)
1906: SELECT dimension_level_id into x_Dimension_Level_ID
1907: FROM bisbv_dimension_levels
1908: WHERE dimension_level_short_name = p_Dimension_Level_Short_Name;
1909: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Level_Name)
1910: = FND_API.G_TRUE) then
1911: SELECT dimension_level_id into x_Dimension_Level_ID
1912: FROM bisbv_dimension_levels
1913: WHERE dimension_level_name = p_Dimension_Level_Name;
1914: else
1923: , p_error_table => l_error_tbl
1924: , x_error_table => x_error_tbl
1925: );
1926:
1927: RAISE FND_API.G_EXC_ERROR;
1928: end if;
1929:
1930: EXCEPTION
1931: WHEN NO_DATA_FOUND THEN
1928: end if;
1929:
1930: EXCEPTION
1931: WHEN NO_DATA_FOUND THEN
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: when FND_API.G_EXC_ERROR then
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1929:
1930: EXCEPTION
1931: WHEN NO_DATA_FOUND THEN
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: when FND_API.G_EXC_ERROR then
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: when others then
1930: EXCEPTION
1931: WHEN NO_DATA_FOUND THEN
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: when FND_API.G_EXC_ERROR then
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: when others then
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1931: WHEN NO_DATA_FOUND THEN
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: when FND_API.G_EXC_ERROR then
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: when others then
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1939: l_error_tbl := x_error_tbl;
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: when FND_API.G_EXC_ERROR then
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: when others then
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1939: l_error_tbl := x_error_tbl;
1940: BIS_UTILITIES_PVT.Add_Error_Message
1934: x_return_status := FND_API.G_RET_STS_ERROR ;
1935: when FND_API.G_EXC_UNEXPECTED_ERROR then
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: when others then
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1939: l_error_tbl := x_error_tbl;
1940: BIS_UTILITIES_PVT.Add_Error_Message
1941: ( p_error_msg_id => SQLCODE
1942: , p_error_description => SQLERRM
1949: --
1950: -- Validates Dimension_Level
1951: PROCEDURE Validate_Dimension_Level
1952: ( p_api_version IN NUMBER
1953: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1954: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
1955: , x_return_status OUT NOCOPY VARCHAR2
1956: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1957: )
1956: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1957: )
1958: IS
1959: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1960: l_error VARCHAR2(10) := FND_API.G_FALSE;
1961: l_error_tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1962: BEGIN
1963:
1964: BEGIN
1969: , x_return_status => x_return_status
1970: , x_error_Tbl => l_error_Tbl
1971: );
1972: EXCEPTION
1973: when FND_API.G_EXC_ERROR then
1974: l_error := FND_API.G_TRUE;
1975: l_error_tbl_p := x_error_tbl;
1976: BIS_UTILITIES_PVT.concatenateErrorTables( l_error_tbl_p
1977: , l_error_Tbl
1970: , x_error_Tbl => l_error_Tbl
1971: );
1972: EXCEPTION
1973: when FND_API.G_EXC_ERROR then
1974: l_error := FND_API.G_TRUE;
1975: l_error_tbl_p := x_error_tbl;
1976: BIS_UTILITIES_PVT.concatenateErrorTables( l_error_tbl_p
1977: , l_error_Tbl
1978: , x_error_tbl
1976: BIS_UTILITIES_PVT.concatenateErrorTables( l_error_tbl_p
1977: , l_error_Tbl
1978: , x_error_tbl
1979: );
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END;
1982:
1983: if (l_error = FND_API.G_TRUE) then
1984: RAISE FND_API.G_EXC_ERROR;
1979: );
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END;
1982:
1983: if (l_error = FND_API.G_TRUE) then
1984: RAISE FND_API.G_EXC_ERROR;
1985: end if;
1986:
1987: --commented RAISE
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END;
1982:
1983: if (l_error = FND_API.G_TRUE) then
1984: RAISE FND_API.G_EXC_ERROR;
1985: end if;
1986:
1987: --commented RAISE
1988: EXCEPTION
1986:
1987: --commented RAISE
1988: EXCEPTION
1989: WHEN NO_DATA_FOUND THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1987: --commented RAISE
1988: EXCEPTION
1989: WHEN NO_DATA_FOUND THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1988: EXCEPTION
1989: WHEN NO_DATA_FOUND THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1989: WHEN NO_DATA_FOUND THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: when others then
1991: --RAISE FND_API.G_EXC_ERROR;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: when others then
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1992: when FND_API.G_EXC_ERROR then
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: when others then
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2000: l_error_tbl_p := x_error_tbl;
1993: x_return_status := FND_API.G_RET_STS_ERROR ;
1994: -- RAISE FND_API.G_EXC_ERROR;
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: when others then
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2000: l_error_tbl_p := x_error_tbl;
2001: --added last two parameters
1995: when FND_API.G_EXC_UNEXPECTED_ERROR then
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: when others then
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2000: l_error_tbl_p := x_error_tbl;
2001: --added last two parameters
2002: BIS_UTILITIES_PVT.Add_Error_Message
2003: ( p_error_msg_id => SQLCODE
2005: , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension_Level'
2006: , p_error_table => l_error_tbl_p
2007: , x_error_table => x_error_tbl
2008: );
2009: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010:
2011: END Validate_Dimension_Level;
2012: --
2013: PROCEDURE Delete_Dimension_Level
2011: END Validate_Dimension_Level;
2012: --
2013: PROCEDURE Delete_Dimension_Level
2014: (
2015: p_commit IN VARCHAR2 := FND_API.G_FALSE
2016: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2017: , p_Dimension_Level_Rec IN BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type
2018: , x_return_status OUT NOCOPY VARCHAR2
2019: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2012: --
2013: PROCEDURE Delete_Dimension_Level
2014: (
2015: p_commit IN VARCHAR2 := FND_API.G_FALSE
2016: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2017: , p_Dimension_Level_Rec IN BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type
2018: , x_return_status OUT NOCOPY VARCHAR2
2019: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2020: ) IS
2047: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
2048: , p_error_table => l_error_tbl
2049: , x_error_table => x_error_tbl
2050: );
2051: RAISE FND_API.G_EXC_ERROR;
2052: END IF;
2053:
2054: IF(l_dim_level_id IS NOT NULL) THEN
2055: DELETE FROM bis_levels
2057:
2058: DELETE FROM bis_levels_tl
2059: WHERE level_id = l_dim_level_id;
2060: END IF;
2061: IF (p_commit = FND_API.G_TRUE) THEN
2062: COMMIT;
2063: END if;
2064: x_return_status := FND_API.G_RET_STS_SUCCESS;
2065: EXCEPTION
2060: END IF;
2061: IF (p_commit = FND_API.G_TRUE) THEN
2062: COMMIT;
2063: END if;
2064: x_return_status := FND_API.G_RET_STS_SUCCESS;
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF (cr_dim_short_name%ISOPEN) THEN
2062: COMMIT;
2063: END if;
2064: x_return_status := FND_API.G_RET_STS_SUCCESS;
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF (cr_dim_short_name%ISOPEN) THEN
2069: CLOSE cr_dim_short_name;
2070: END IF;
2063: END if;
2064: x_return_status := FND_API.G_RET_STS_SUCCESS;
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF (cr_dim_short_name%ISOPEN) THEN
2069: CLOSE cr_dim_short_name;
2070: END IF;
2071: ROLLBACK TO DeleteFromBISDimLevs;
2080: );
2081: IF (cr_dim_short_name%ISOPEN) THEN
2082: CLOSE cr_dim_short_name;
2083: END IF;
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: ROLLBACK TO DeleteFromBISDimLevs;
2086: END Delete_Dimension_Level;
2087: --
2088:
2089: --=============================================================================
2090:
2091: PROCEDURE Trans_DimObj_By_Given_Lang
2092: (
2093: p_commit IN VARCHAR2 := FND_API.G_FALSE
2094: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2095: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
2096: , x_return_status OUT NOCOPY VARCHAR2
2097: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2090:
2091: PROCEDURE Trans_DimObj_By_Given_Lang
2092: (
2093: p_commit IN VARCHAR2 := FND_API.G_FALSE
2094: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2095: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
2096: , x_return_status OUT NOCOPY VARCHAR2
2097: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2098: ) IS
2123: , LAST_UPDATE_LOGIN = l_login_id
2124: WHERE LEVEL_ID = l_dim_level_id
2125: AND LANGUAGE = p_Dimension_Level_Rec.Language;
2126:
2127: IF (p_commit = FND_API.G_TRUE) THEN
2128: COMMIT;
2129: END if;
2130: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131:
2126:
2127: IF (p_commit = FND_API.G_TRUE) THEN
2128: COMMIT;
2129: END if;
2130: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131:
2132: EXCEPTION
2133: WHEN NO_DATA_FOUND THEN
2134: x_return_status := FND_API.G_RET_STS_ERROR ;
2130: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131:
2132: EXCEPTION
2133: WHEN NO_DATA_FOUND THEN
2134: x_return_status := FND_API.G_RET_STS_ERROR ;
2135: ROLLBACK TO TransDimObjByLangPvt;
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: ROLLBACK TO TransDimObjByLangPvt;
2132: EXCEPTION
2133: WHEN NO_DATA_FOUND THEN
2134: x_return_status := FND_API.G_RET_STS_ERROR ;
2135: ROLLBACK TO TransDimObjByLangPvt;
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: ROLLBACK TO TransDimObjByLangPvt;
2139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2133: WHEN NO_DATA_FOUND THEN
2134: x_return_status := FND_API.G_RET_STS_ERROR ;
2135: ROLLBACK TO TransDimObjByLangPvt;
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: ROLLBACK TO TransDimObjByLangPvt;
2139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2141: ROLLBACK TO TransDimObjByLangPvt;
2135: ROLLBACK TO TransDimObjByLangPvt;
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: ROLLBACK TO TransDimObjByLangPvt;
2139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2141: ROLLBACK TO TransDimObjByLangPvt;
2142: WHEN OTHERS THEN
2143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: ROLLBACK TO TransDimObjByLangPvt;
2139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2141: ROLLBACK TO TransDimObjByLangPvt;
2142: WHEN OTHERS THEN
2143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2144: l_error_tbl := x_error_tbl;
2139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2141: ROLLBACK TO TransDimObjByLangPvt;
2142: WHEN OTHERS THEN
2143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2144: l_error_tbl := x_error_tbl;
2145: BIS_UTILITIES_PVT.Add_Error_Message
2146: ( p_error_msg_id => SQLCODE
2147: , p_error_description => SQLERRM
2443: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
2444: , p_error_table => p_error_tbl
2445: , x_error_table => x_error_tbl
2446: );
2447: RAISE FND_API.G_EXC_ERROR;
2448: END IF;
2449:
2450: -- check if this dimension level is assigned to a KPI
2451: IF ( IS_ASSIGNED_TO_KPI(p_dim_level_id => p_dim_level_id) ) THEN
2456: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
2457: , p_error_table => p_error_tbl
2458: , x_error_table => x_error_tbl
2459: );
2460: RAISE FND_API.G_EXC_ERROR;
2461: END IF;
2462:
2463: END IF;
2464: EXCEPTION
2461: END IF;
2462:
2463: END IF;
2464: EXCEPTION
2465: WHEN FND_API.G_EXC_ERROR THEN
2466: x_return_status := FND_API.G_RET_STS_ERROR ;
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2469: END validate_disabling;
2462:
2463: END IF;
2464: EXCEPTION
2465: WHEN FND_API.G_EXC_ERROR THEN
2466: x_return_status := FND_API.G_RET_STS_ERROR ;
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2469: END validate_disabling;
2470:
2464: EXCEPTION
2465: WHEN FND_API.G_EXC_ERROR THEN
2466: x_return_status := FND_API.G_RET_STS_ERROR ;
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2469: END validate_disabling;
2470:
2471: -- for the table handler , app_exception is needed. Otherwise it does not throws up in
2472: -- customization APIs