43: l_Form_Func_Extn_Rec BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type;
44: BEGIN
45: SAVEPOINT CreateFormFuncSP_Pvt;
46: FND_MSG_PUB.Initialize;
47: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
48: IF( p_Commit IS NULL) THEN
49: l_Commit := FND_API.G_FALSE;
50: ELSE
51: l_Commit := p_Commit;
45: SAVEPOINT CreateFormFuncSP_Pvt;
46: FND_MSG_PUB.Initialize;
47: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
48: IF( p_Commit IS NULL) THEN
49: l_Commit := FND_API.G_FALSE;
50: ELSE
51: l_Commit := p_Commit;
52: END IF;
53: --dbms_output.put_line('i am calling validate from create ');
120: WHERE T.OBJECT_NAME = l_Form_Func_Extn_Rec.Object_Name
121: AND T.LANGUAGE = L.LANGUAGE_CODE
122: );
123:
124: IF (l_Commit = FND_API.G_TRUE) THEN
125: COMMIT;
126: END IF;
127:
128: EXCEPTION
125: COMMIT;
126: END IF;
127:
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: ROLLBACK TO CreateFormFuncSP_Pvt;
131: IF (x_msg_data IS NULL) THEN
132: FND_MSG_PUB.Count_And_Get
133: ( p_encoded => FND_API.G_FALSE
129: WHEN FND_API.G_EXC_ERROR THEN
130: ROLLBACK TO CreateFormFuncSP_Pvt;
131: IF (x_msg_data IS NULL) THEN
132: FND_MSG_PUB.Count_And_Get
133: ( p_encoded => FND_API.G_FALSE
134: , p_count => x_msg_count
135: , p_data => x_msg_data
136: );
137: END IF;
134: , p_count => x_msg_count
135: , p_data => x_msg_data
136: );
137: END IF;
138: x_return_status := FND_API.G_RET_STS_ERROR;
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140: ROLLBACK TO CreateFormFuncSP_Pvt;
141: IF (x_msg_data IS NULL) THEN
142: FND_MSG_PUB.Count_And_Get
135: , p_data => x_msg_data
136: );
137: END IF;
138: x_return_status := FND_API.G_RET_STS_ERROR;
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140: ROLLBACK TO CreateFormFuncSP_Pvt;
141: IF (x_msg_data IS NULL) THEN
142: FND_MSG_PUB.Count_And_Get
143: ( p_encoded => FND_API.G_FALSE
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140: ROLLBACK TO CreateFormFuncSP_Pvt;
141: IF (x_msg_data IS NULL) THEN
142: FND_MSG_PUB.Count_And_Get
143: ( p_encoded => FND_API.G_FALSE
144: , p_count => x_msg_count
145: , p_data => x_msg_data
146: );
147: END IF;
144: , p_count => x_msg_count
145: , p_data => x_msg_data
146: );
147: END IF;
148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149: WHEN NO_DATA_FOUND THEN
150: ROLLBACK TO CreateFormFuncSP_Pvt;
151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
152: IF (x_msg_data IS NOT NULL) THEN
147: END IF;
148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149: WHEN NO_DATA_FOUND THEN
150: ROLLBACK TO CreateFormFuncSP_Pvt;
151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
152: IF (x_msg_data IS NOT NULL) THEN
153: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Create_Form_Func_Extension ';
154: ELSE
155: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Form_Func_Extension ';
155: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Form_Func_Extension ';
156: END IF;
157: WHEN OTHERS THEN
158: ROLLBACK TO CreateFormFuncSP_Pvt;
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160: IF (x_msg_data IS NOT NULL) THEN
161: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Create_Form_Func_Extension ';
162: ELSE
163: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Form_Func_Extension ';
186: l_Form_Func_Extn_Rec BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type;
187: BEGIN
188: SAVEPOINT UpdateFormFuncSP;
189: FND_MSG_PUB.Initialize;
190: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
191: IF( p_Commit IS NULL) THEN
192: l_Commit := FND_API.G_FALSE;
193: ELSE
194: l_Commit := p_Commit;
188: SAVEPOINT UpdateFormFuncSP;
189: FND_MSG_PUB.Initialize;
190: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
191: IF( p_Commit IS NULL) THEN
192: l_Commit := FND_API.G_FALSE;
193: ELSE
194: l_Commit := p_Commit;
195: END IF;
196:
200: , x_Return_Status => x_Return_Status
201: , x_Msg_Count => x_Msg_Count
202: , x_Msg_Data => x_Msg_Data
203: );
204: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207:
208: IF(p_Form_Func_Extn_Rec.Application_Id IS NOT NULL) THEN
201: , x_Msg_Count => x_Msg_Count
202: , x_Msg_Data => x_Msg_Data
203: );
204: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207:
208: IF(p_Form_Func_Extn_Rec.Application_Id IS NOT NULL) THEN
209: l_Form_Func_Extn_Rec.Application_Id := p_Form_Func_Extn_Rec.Application_Id;
247: , x_Return_Status => x_Return_Status
248: , x_Msg_Count => x_Msg_Count
249: , x_Msg_Data => x_Msg_Data
250: );
251: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (l_Commit = FND_API.G_TRUE) THEN
255: COMMIT;
248: , x_Msg_Count => x_Msg_Count
249: , x_Msg_Data => x_Msg_Data
250: );
251: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (l_Commit = FND_API.G_TRUE) THEN
255: COMMIT;
256: END IF;
250: );
251: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (l_Commit = FND_API.G_TRUE) THEN
255: COMMIT;
256: END IF;
257:
258: EXCEPTION
255: COMMIT;
256: END IF;
257:
258: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK TO UpdateFormFuncSP;
261: IF (x_msg_data IS NULL) THEN
262: FND_MSG_PUB.Count_And_Get
263: ( p_encoded => FND_API.G_FALSE
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK TO UpdateFormFuncSP;
261: IF (x_msg_data IS NULL) THEN
262: FND_MSG_PUB.Count_And_Get
263: ( p_encoded => FND_API.G_FALSE
264: , p_count => x_msg_count
265: , p_data => x_msg_data
266: );
267: END IF;
264: , p_count => x_msg_count
265: , p_data => x_msg_data
266: );
267: END IF;
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO UpdateFormFuncSP;
271: IF (x_msg_data IS NULL) THEN
272: FND_MSG_PUB.Count_And_Get
265: , p_data => x_msg_data
266: );
267: END IF;
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO UpdateFormFuncSP;
271: IF (x_msg_data IS NULL) THEN
272: FND_MSG_PUB.Count_And_Get
273: ( p_encoded => FND_API.G_FALSE
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO UpdateFormFuncSP;
271: IF (x_msg_data IS NULL) THEN
272: FND_MSG_PUB.Count_And_Get
273: ( p_encoded => FND_API.G_FALSE
274: , p_count => x_msg_count
275: , p_data => x_msg_data
276: );
277: END IF;
274: , p_count => x_msg_count
275: , p_data => x_msg_data
276: );
277: END IF;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: WHEN NO_DATA_FOUND THEN
280: ROLLBACK TO UpdateFormFuncSP;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: IF (x_msg_data IS NOT NULL) THEN
277: END IF;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: WHEN NO_DATA_FOUND THEN
280: ROLLBACK TO UpdateFormFuncSP;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: IF (x_msg_data IS NOT NULL) THEN
283: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension ';
284: ELSE
285: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension ';
285: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension ';
286: END IF;
287: WHEN OTHERS THEN
288: ROLLBACK TO UpdateFormFuncSP;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: IF (x_msg_data IS NOT NULL) THEN
291: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension ';
292: ELSE
293: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension ';
316: l_valid_func_ext_rec BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type;
317: BEGIN
318: SAVEPOINT TransalteFormFuncSP;
319: FND_MSG_PUB.Initialize;
320: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
321: IF( p_Commit IS NULL) THEN
322: l_Commit := FND_API.G_FALSE;
323: ELSE
324: l_Commit := p_Commit;
318: SAVEPOINT TransalteFormFuncSP;
319: FND_MSG_PUB.Initialize;
320: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
321: IF( p_Commit IS NULL) THEN
322: l_Commit := FND_API.G_FALSE;
323: ELSE
324: l_Commit := p_Commit;
325: END IF;
326: --dbms_output.put_line('calling validate from trans');
332: , x_Return_Status => x_Return_Status
333: , x_Msg_Count => x_Msg_Count
334: , x_Msg_Data => x_Msg_Data
335: );
336: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339:
340: IF ( p_Form_Func_Extn_Rec.Name IS NULL ) THEN
333: , x_Msg_Count => x_Msg_Count
334: , x_Msg_Data => x_Msg_Data
335: );
336: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339:
340: IF ( p_Form_Func_Extn_Rec.Name IS NULL ) THEN
341: l_Form_Func_Extn_Rec.Name := NULL;
380: WHERE OBJECT_NAME = l_Form_Func_Extn_Rec.Object_Name
381: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG);
382: ----dbms_output.put_line('after updating BIS_FORM_FUNCTION_EXTENSION_TL in tras');
383:
384: IF (l_Commit = FND_API.G_TRUE) THEN
385: COMMIT;
386: END IF;
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
384: IF (l_Commit = FND_API.G_TRUE) THEN
385: COMMIT;
386: END IF;
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: ROLLBACK TO TransalteFormFuncSP;
390: IF (x_msg_data IS NULL) THEN
391: FND_MSG_PUB.Count_And_Get
392: ( p_encoded => FND_API.G_FALSE
388: WHEN FND_API.G_EXC_ERROR THEN
389: ROLLBACK TO TransalteFormFuncSP;
390: IF (x_msg_data IS NULL) THEN
391: FND_MSG_PUB.Count_And_Get
392: ( p_encoded => FND_API.G_FALSE
393: , p_count => x_msg_count
394: , p_data => x_msg_data
395: );
396: END IF;
393: , p_count => x_msg_count
394: , p_data => x_msg_data
395: );
396: END IF;
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO TransalteFormFuncSP;
400: IF (x_msg_data IS NULL) THEN
401: FND_MSG_PUB.Count_And_Get
394: , p_data => x_msg_data
395: );
396: END IF;
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO TransalteFormFuncSP;
400: IF (x_msg_data IS NULL) THEN
401: FND_MSG_PUB.Count_And_Get
402: ( p_encoded => FND_API.G_FALSE
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO TransalteFormFuncSP;
400: IF (x_msg_data IS NULL) THEN
401: FND_MSG_PUB.Count_And_Get
402: ( p_encoded => FND_API.G_FALSE
403: , p_count => x_msg_count
404: , p_data => x_msg_data
405: );
406: END IF;
403: , p_count => x_msg_count
404: , p_data => x_msg_data
405: );
406: END IF;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: WHEN NO_DATA_FOUND THEN
409: ROLLBACK TO TransalteFormFuncSP;
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: IF (x_msg_data IS NOT NULL) THEN
406: END IF;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: WHEN NO_DATA_FOUND THEN
409: ROLLBACK TO TransalteFormFuncSP;
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: IF (x_msg_data IS NOT NULL) THEN
412: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Translate_Form_Func_Extension ';
413: ELSE
414: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Form_Func_Extension ';
414: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Form_Func_Extension ';
415: END IF;
416: WHEN OTHERS THEN
417: ROLLBACK TO TransalteFormFuncSP;
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: IF (x_msg_data IS NOT NULL) THEN
420: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Translate_Form_Func_Extension ';
421: ELSE
422: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Form_Func_Extension ';
441: )IS
442:
443: BEGIN
444: FND_MSG_PUB.Initialize;
445: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
446:
447: ----dbms_output.put_line('before retrieve');
448:
449: SELECT F.OBJECT_TYPE
471: FROM BIS_FORM_FUNCTION_EXTENSION_VL F
472: WHERE F.OBJECT_NAME = trim(p_Form_Func_Extn_Rec.Object_Name);
473: ----dbms_output.put_line('after retrieve');
474: EXCEPTION
475: WHEN FND_API.G_EXC_ERROR THEN
476: IF (x_msg_data IS NULL) THEN
477: FND_MSG_PUB.Count_And_Get
478: ( p_encoded => FND_API.G_FALSE
479: , p_count => x_msg_count
474: EXCEPTION
475: WHEN FND_API.G_EXC_ERROR THEN
476: IF (x_msg_data IS NULL) THEN
477: FND_MSG_PUB.Count_And_Get
478: ( p_encoded => FND_API.G_FALSE
479: , p_count => x_msg_count
480: , p_data => x_msg_data
481: );
482: END IF;
479: , p_count => x_msg_count
480: , p_data => x_msg_data
481: );
482: END IF;
483: x_return_status := FND_API.G_RET_STS_ERROR;
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: IF (x_msg_data IS NULL) THEN
486: FND_MSG_PUB.Count_And_Get
487: ( p_encoded => FND_API.G_FALSE
480: , p_data => x_msg_data
481: );
482: END IF;
483: x_return_status := FND_API.G_RET_STS_ERROR;
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: IF (x_msg_data IS NULL) THEN
486: FND_MSG_PUB.Count_And_Get
487: ( p_encoded => FND_API.G_FALSE
488: , p_count => x_msg_count
483: x_return_status := FND_API.G_RET_STS_ERROR;
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: IF (x_msg_data IS NULL) THEN
486: FND_MSG_PUB.Count_And_Get
487: ( p_encoded => FND_API.G_FALSE
488: , p_count => x_msg_count
489: , p_data => x_msg_data
490: );
491: END IF;
488: , p_count => x_msg_count
489: , p_data => x_msg_data
490: );
491: END IF;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: WHEN NO_DATA_FOUND THEN
494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495: IF (x_msg_data IS NOT NULL) THEN
496: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
490: );
491: END IF;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: WHEN NO_DATA_FOUND THEN
494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495: IF (x_msg_data IS NOT NULL) THEN
496: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
497: ELSE
498: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
497: ELSE
498: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
499: END IF;
500: WHEN OTHERS THEN
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: IF (x_msg_data IS NOT NULL) THEN
503: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
504: ELSE
505: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Form_Func_Extension ';
523: )IS
524: BEGIN
525: SAVEPOINT DeleteFormFuncSP_Pvt;
526: FND_MSG_PUB.Initialize;
527: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
528: -- Delete from base table
529: DELETE FROM BIS_FORM_FUNCTION_EXTENSION
530: WHERE OBJECT_NAME = TRIM(p_Form_Func_Extn_Rec.Object_Name);
531:
531:
532: DELETE FROM BIS_FORM_FUNCTION_EXTENSION_TL
533: WHERE OBJECT_NAME = TRIM(p_Form_Func_Extn_Rec.Object_Name);
534:
535: IF (p_Commit = FND_API.G_TRUE) THEN
536: COMMIT;
537: END IF;
538:
539: EXCEPTION
536: COMMIT;
537: END IF;
538:
539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: ROLLBACK TO DeleteFormFuncSP_Pvt;
542: IF (x_msg_data IS NULL) THEN
543: FND_MSG_PUB.Count_And_Get
544: ( p_encoded => FND_API.G_FALSE
540: WHEN FND_API.G_EXC_ERROR THEN
541: ROLLBACK TO DeleteFormFuncSP_Pvt;
542: IF (x_msg_data IS NULL) THEN
543: FND_MSG_PUB.Count_And_Get
544: ( p_encoded => FND_API.G_FALSE
545: , p_count => x_msg_count
546: , p_data => x_msg_data
547: );
548: END IF;
545: , p_count => x_msg_count
546: , p_data => x_msg_data
547: );
548: END IF;
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO DeleteFormFuncSP_Pvt;
552: IF (x_msg_data IS NULL) THEN
553: FND_MSG_PUB.Count_And_Get
546: , p_data => x_msg_data
547: );
548: END IF;
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO DeleteFormFuncSP_Pvt;
552: IF (x_msg_data IS NULL) THEN
553: FND_MSG_PUB.Count_And_Get
554: ( p_encoded => FND_API.G_FALSE
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO DeleteFormFuncSP_Pvt;
552: IF (x_msg_data IS NULL) THEN
553: FND_MSG_PUB.Count_And_Get
554: ( p_encoded => FND_API.G_FALSE
555: , p_count => x_msg_count
556: , p_data => x_msg_data
557: );
558: END IF;
555: , p_count => x_msg_count
556: , p_data => x_msg_data
557: );
558: END IF;
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: WHEN NO_DATA_FOUND THEN
561: ROLLBACK TO DeleteFormFuncSP_Pvt;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: IF (x_msg_data IS NOT NULL) THEN
558: END IF;
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: WHEN NO_DATA_FOUND THEN
561: ROLLBACK TO DeleteFormFuncSP_Pvt;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: IF (x_msg_data IS NOT NULL) THEN
564: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension ';
565: ELSE
566: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension ';
566: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension ';
567: END IF;
568: WHEN OTHERS THEN
569: ROLLBACK TO DeleteFormFuncSP_Pvt;
570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
571: IF (x_msg_data IS NOT NULL) THEN
572: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension ';
573: ELSE
574: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension ';
590: BEGIN
591: SAVEPOINT CreateMeasExtnSP;
592: FND_MSG_PUB.Initialize;
593:
594: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
595: l_Meas_Extn_Rec := p_Meas_Extn_Rec;
596:
597: l_Count := 0;
598:
664: WHERE T.MEASURE_SHORT_NAME = l_Meas_Extn_Rec.Measure_Short_Name
665: AND T.LANGUAGE = L.LANGUAGE_CODE
666: );
667: -- Commit if required
668: IF (p_Commit = FND_API.G_TRUE) THEN
669: COMMIT;
670: END IF;
671:
672: EXCEPTION
669: COMMIT;
670: END IF;
671:
672: EXCEPTION
673: WHEN FND_API.G_EXC_ERROR THEN
674: ROLLBACK TO CreateMeasExtnSP;
675: IF (x_msg_data IS NULL) THEN
676: FND_MSG_PUB.Count_And_Get
677: ( p_encoded => FND_API.G_FALSE
673: WHEN FND_API.G_EXC_ERROR THEN
674: ROLLBACK TO CreateMeasExtnSP;
675: IF (x_msg_data IS NULL) THEN
676: FND_MSG_PUB.Count_And_Get
677: ( p_encoded => FND_API.G_FALSE
678: , p_count => x_msg_count
679: , p_data => x_msg_data
680: );
681: END IF;
678: , p_count => x_msg_count
679: , p_data => x_msg_data
680: );
681: END IF;
682: x_return_status := FND_API.G_RET_STS_ERROR;
683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
684: ROLLBACK TO CreateMeasExtnSP;
685: IF (x_msg_data IS NULL) THEN
686: FND_MSG_PUB.Count_And_Get
679: , p_data => x_msg_data
680: );
681: END IF;
682: x_return_status := FND_API.G_RET_STS_ERROR;
683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
684: ROLLBACK TO CreateMeasExtnSP;
685: IF (x_msg_data IS NULL) THEN
686: FND_MSG_PUB.Count_And_Get
687: ( p_encoded => FND_API.G_FALSE
683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
684: ROLLBACK TO CreateMeasExtnSP;
685: IF (x_msg_data IS NULL) THEN
686: FND_MSG_PUB.Count_And_Get
687: ( p_encoded => FND_API.G_FALSE
688: , p_count => x_msg_count
689: , p_data => x_msg_data
690: );
691: END IF;
688: , p_count => x_msg_count
689: , p_data => x_msg_data
690: );
691: END IF;
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: WHEN NO_DATA_FOUND THEN
694: ROLLBACK TO CreateMeasExtnSP;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: IF (x_msg_data IS NOT NULL) THEN
691: END IF;
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: WHEN NO_DATA_FOUND THEN
694: ROLLBACK TO CreateMeasExtnSP;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: IF (x_msg_data IS NOT NULL) THEN
697: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Create_Measure_Extension ';
698: ELSE
699: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Measure_Extension ';
699: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Measure_Extension ';
700: END IF;
701: WHEN OTHERS THEN
702: ROLLBACK TO CreateMeasExtnSP;
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: IF (x_msg_data IS NOT NULL) THEN
705: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Create_Measure_Extension ';
706: ELSE
707: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Create_Measure_Extension ';
734: WHERE B.MEASURE_SHORT_NAME = TRIM(p_Meas_Extn_Rec.Measure_Short_Name);
735:
736: BEGIN
737: FND_MSG_PUB.Initialize;
738: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
739:
740: l_Flag := FALSE;
741:
742: FOR cME IN cMeasurExtension LOOP
752: l_Flag := TRUE;
753: END LOOP;
754:
755: IF(l_Flag = FALSE) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: IF (x_msg_data IS NULL) THEN
762: FND_MSG_PUB.Count_And_Get
763: ( p_encoded => FND_API.G_FALSE
764: , p_count => x_msg_count
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: IF (x_msg_data IS NULL) THEN
762: FND_MSG_PUB.Count_And_Get
763: ( p_encoded => FND_API.G_FALSE
764: , p_count => x_msg_count
765: , p_data => x_msg_data
766: );
767: END IF;
764: , p_count => x_msg_count
765: , p_data => x_msg_data
766: );
767: END IF;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: IF (x_msg_data IS NULL) THEN
771: FND_MSG_PUB.Count_And_Get
772: ( p_encoded => FND_API.G_FALSE
765: , p_data => x_msg_data
766: );
767: END IF;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: IF (x_msg_data IS NULL) THEN
771: FND_MSG_PUB.Count_And_Get
772: ( p_encoded => FND_API.G_FALSE
773: , p_count => x_msg_count
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: IF (x_msg_data IS NULL) THEN
771: FND_MSG_PUB.Count_And_Get
772: ( p_encoded => FND_API.G_FALSE
773: , p_count => x_msg_count
774: , p_data => x_msg_data
775: );
776: END IF;
773: , p_count => x_msg_count
774: , p_data => x_msg_data
775: );
776: END IF;
777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
778: WHEN NO_DATA_FOUND THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: IF (x_msg_data IS NOT NULL) THEN
781: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
775: );
776: END IF;
777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
778: WHEN NO_DATA_FOUND THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: IF (x_msg_data IS NOT NULL) THEN
781: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
782: ELSE
783: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
782: ELSE
783: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
784: END IF;
785: WHEN OTHERS THEN
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787: IF (x_msg_data IS NOT NULL) THEN
788: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
789: ELSE
790: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Retrieve_Measure_Extension ';
804:
805: SAVEPOINT TranslateMeasExtnSP;
806: FND_MSG_PUB.Initialize;
807:
808: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
809:
810: ------dbms_output.put_line ('l_Meas_Extn_Rec.Measure_Short_Name - ' || l_Meas_Extn_Rec.Measure_Short_Name);
811:
812:
816: ,x_Return_Status => x_Return_Status
817: ,x_Msg_Count => x_Msg_Count
818: ,x_Msg_Data => x_Msg_Data
819: );
820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823:
824: -- rpenneru bug#4153331
817: ,x_Msg_Count => x_Msg_Count
818: ,x_Msg_Data => x_Msg_Data
819: );
820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823:
824: -- rpenneru bug#4153331
825: -- Translate_Measures_Extension will be called from BISPMFLD.lct (Uploading Measures)
870: B.MEASURE_SHORT_NAME = l_Meas_Extn_Rec.Measure_Short_Name
871: AND USERENV('LANG') IN (B.LANGUAGE, B.SOURCE_LANG);
872:
873: -- Commit if required
874: IF (p_Commit = FND_API.G_TRUE) THEN
875: COMMIT;
876: END IF;
877:
878: EXCEPTION
875: COMMIT;
876: END IF;
877:
878: EXCEPTION
879: WHEN FND_API.G_EXC_ERROR THEN
880: ROLLBACK TO TranslateMeasExtnSP;
881: IF (x_msg_data IS NULL) THEN
882: FND_MSG_PUB.Count_And_Get
883: ( p_encoded => FND_API.G_FALSE
879: WHEN FND_API.G_EXC_ERROR THEN
880: ROLLBACK TO TranslateMeasExtnSP;
881: IF (x_msg_data IS NULL) THEN
882: FND_MSG_PUB.Count_And_Get
883: ( p_encoded => FND_API.G_FALSE
884: , p_count => x_msg_count
885: , p_data => x_msg_data
886: );
887: END IF;
884: , p_count => x_msg_count
885: , p_data => x_msg_data
886: );
887: END IF;
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890: ROLLBACK TO TranslateMeasExtnSP;
891: IF (x_msg_data IS NULL) THEN
892: FND_MSG_PUB.Count_And_Get
885: , p_data => x_msg_data
886: );
887: END IF;
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890: ROLLBACK TO TranslateMeasExtnSP;
891: IF (x_msg_data IS NULL) THEN
892: FND_MSG_PUB.Count_And_Get
893: ( p_encoded => FND_API.G_FALSE
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890: ROLLBACK TO TranslateMeasExtnSP;
891: IF (x_msg_data IS NULL) THEN
892: FND_MSG_PUB.Count_And_Get
893: ( p_encoded => FND_API.G_FALSE
894: , p_count => x_msg_count
895: , p_data => x_msg_data
896: );
897: END IF;
894: , p_count => x_msg_count
895: , p_data => x_msg_data
896: );
897: END IF;
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: WHEN NO_DATA_FOUND THEN
900: ROLLBACK TO TranslateMeasExtnSP;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: IF (x_msg_data IS NOT NULL) THEN
897: END IF;
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: WHEN NO_DATA_FOUND THEN
900: ROLLBACK TO TranslateMeasExtnSP;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: IF (x_msg_data IS NOT NULL) THEN
903: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Translate_Measure_Extension ';
904: ELSE
905: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Measure_Extension ';
905: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Measure_Extension ';
906: END IF;
907: WHEN OTHERS THEN
908: ROLLBACK TO TranslateMeasExtnSP;
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: IF (x_msg_data IS NOT NULL) THEN
911: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Translate_Measure_Extension ';
912: ELSE
913: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Translate_Measure_Extension ';
929: BEGIN
930: SAVEPOINT UpdateMeasExtnSP;
931: FND_MSG_PUB.Initialize;
932:
933: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
934:
935: -- Since there is no base table, a direct transalation
936: -- should suffice.
937:
941: ,x_Return_Status => x_Return_Status
942: ,x_Msg_Count => x_Msg_Count
943: ,x_Msg_Data => x_Msg_Data
944: );
945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: IF((p_Meas_Extn_Rec.Functional_Area_Id IS NOT NULL)
942: ,x_Msg_Count => x_Msg_Count
943: ,x_Msg_Data => x_Msg_Data
944: );
945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: IF((p_Meas_Extn_Rec.Functional_Area_Id IS NOT NULL)
950: AND (p_Meas_Extn_Rec.Functional_Area_Id <> l_Meas_Extn_Rec.Functional_Area_Id)) THEN
986: ,x_Return_Status => x_Return_Status
987: ,x_Msg_Count => x_Msg_Count
988: ,x_Msg_Data => x_Msg_Data
989: );
990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993: -- Commit if required
994: IF (p_Commit = FND_API.G_TRUE) THEN
987: ,x_Msg_Count => x_Msg_Count
988: ,x_Msg_Data => x_Msg_Data
989: );
990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993: -- Commit if required
994: IF (p_Commit = FND_API.G_TRUE) THEN
995: COMMIT;
990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993: -- Commit if required
994: IF (p_Commit = FND_API.G_TRUE) THEN
995: COMMIT;
996: END IF;
997:
998: EXCEPTION
995: COMMIT;
996: END IF;
997:
998: EXCEPTION
999: WHEN FND_API.G_EXC_ERROR THEN
1000: ROLLBACK TO UpdateMeasExtnSP;
1001: IF (x_msg_data IS NULL) THEN
1002: FND_MSG_PUB.Count_And_Get
1003: ( p_encoded => FND_API.G_FALSE
999: WHEN FND_API.G_EXC_ERROR THEN
1000: ROLLBACK TO UpdateMeasExtnSP;
1001: IF (x_msg_data IS NULL) THEN
1002: FND_MSG_PUB.Count_And_Get
1003: ( p_encoded => FND_API.G_FALSE
1004: , p_count => x_msg_count
1005: , p_data => x_msg_data
1006: );
1007: END IF;
1004: , p_count => x_msg_count
1005: , p_data => x_msg_data
1006: );
1007: END IF;
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: ROLLBACK TO UpdateMeasExtnSP;
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1005: , p_data => x_msg_data
1006: );
1007: END IF;
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: ROLLBACK TO UpdateMeasExtnSP;
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => FND_API.G_FALSE
1009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: ROLLBACK TO UpdateMeasExtnSP;
1011: IF (x_msg_data IS NULL) THEN
1012: FND_MSG_PUB.Count_And_Get
1013: ( p_encoded => FND_API.G_FALSE
1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: END IF;
1014: , p_count => x_msg_count
1015: , p_data => x_msg_data
1016: );
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: WHEN NO_DATA_FOUND THEN
1020: ROLLBACK TO UpdateMeasExtnSP;
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1022: IF (x_msg_data IS NOT NULL) THEN
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: WHEN NO_DATA_FOUND THEN
1020: ROLLBACK TO UpdateMeasExtnSP;
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1022: IF (x_msg_data IS NOT NULL) THEN
1023: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension ';
1024: ELSE
1025: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension ';
1025: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension ';
1026: END IF;
1027: WHEN OTHERS THEN
1028: ROLLBACK TO UpdateMeasExtnSP;
1029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1030: IF (x_msg_data IS NOT NULL) THEN
1031: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension ';
1032: ELSE
1033: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension ';
1051:
1052: BEGIN
1053: SAVEPOINT DeleteMeasExtnSP;
1054: FND_MSG_PUB.Initialize;
1055: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1056:
1057: DELETE FROM BIS_MEASURES_EXTENSION
1058: WHERE MEASURE_SHORT_NAME = TRIM(p_Meas_Extn_Rec.Measure_Short_Name);
1059:
1061: WHERE MEASURE_SHORT_NAME = TRIM(p_Meas_Extn_Rec.Measure_Short_Name);
1062:
1063:
1064: -- Commit if required
1065: IF (p_Commit = FND_API.G_TRUE) THEN
1066: COMMIT;
1067: END IF;
1068:
1069: EXCEPTION
1066: COMMIT;
1067: END IF;
1068:
1069: EXCEPTION
1070: WHEN FND_API.G_EXC_ERROR THEN
1071: ROLLBACK TO DeleteMeasExtnSP;
1072: IF (x_msg_data IS NULL) THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1070: WHEN FND_API.G_EXC_ERROR THEN
1071: ROLLBACK TO DeleteMeasExtnSP;
1072: IF (x_msg_data IS NULL) THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078: END IF;
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078: END IF;
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: ROLLBACK TO DeleteMeasExtnSP;
1082: IF (x_msg_data IS NULL) THEN
1083: FND_MSG_PUB.Count_And_Get
1076: , p_data => x_msg_data
1077: );
1078: END IF;
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: ROLLBACK TO DeleteMeasExtnSP;
1082: IF (x_msg_data IS NULL) THEN
1083: FND_MSG_PUB.Count_And_Get
1084: ( p_encoded => FND_API.G_FALSE
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: ROLLBACK TO DeleteMeasExtnSP;
1082: IF (x_msg_data IS NULL) THEN
1083: FND_MSG_PUB.Count_And_Get
1084: ( p_encoded => FND_API.G_FALSE
1085: , p_count => x_msg_count
1086: , p_data => x_msg_data
1087: );
1088: END IF;
1085: , p_count => x_msg_count
1086: , p_data => x_msg_data
1087: );
1088: END IF;
1089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1090: WHEN NO_DATA_FOUND THEN
1091: ROLLBACK TO DeleteMeasExtnSP;
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1093: IF (x_msg_data IS NOT NULL) THEN
1088: END IF;
1089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1090: WHEN NO_DATA_FOUND THEN
1091: ROLLBACK TO DeleteMeasExtnSP;
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1093: IF (x_msg_data IS NOT NULL) THEN
1094: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension ';
1095: ELSE
1096: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension ';
1096: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension ';
1097: END IF;
1098: WHEN OTHERS THEN
1099: ROLLBACK TO DeleteMeasExtnSP;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: IF (x_msg_data IS NOT NULL) THEN
1102: x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension ';
1103: ELSE
1104: x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension ';