27: -- creates one Measure, with the dimensions sequenced in the order
28: -- they are passed in
29: PROCEDURE Create_Measure_Security
30: ( p_api_version IN NUMBER
31: , p_commit IN VARCHAR2 := FND_API.G_FALSE
32: ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
33: , x_return_status OUT NOCOPY VARCHAR2
34: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
35: )
37: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
38: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
39: begin
40:
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
43: , p_Measure_Security_Rec
44: , l_Measure_Security_Rec
45: , x_return_status
45: , x_return_status
46: , x_error_Tbl
47: );
48: --added this
49: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
50: l_error_tbl := x_error_Tbl;
51: BIS_UTILITIES_PVT.Add_Error_Message
52: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
53: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
55: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
56: , p_error_table => l_error_tbl
57: , x_error_table => x_error_tbl
58: );
59: RAISE FND_API.G_EXC_ERROR;
60: END IF;
61:
62: BIS_MEASURE_SECURITY_PVT.Create_Measure_Security
63: ( p_api_version => p_api_version
68: );
69:
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := FND_API.G_RET_STS_ERROR ;
73: when FND_API.G_EXC_ERROR then
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
69:
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := FND_API.G_RET_STS_ERROR ;
73: when FND_API.G_EXC_ERROR then
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77: when others then
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := FND_API.G_RET_STS_ERROR ;
73: when FND_API.G_EXC_ERROR then
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77: when others then
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := FND_API.G_RET_STS_ERROR ;
73: when FND_API.G_EXC_ERROR then
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77: when others then
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: l_error_tbl := x_error_Tbl;
72: x_return_status := FND_API.G_RET_STS_ERROR ;
73: when FND_API.G_EXC_ERROR then
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77: when others then
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: l_error_tbl := x_error_Tbl;
80: BIS_UTILITIES_PVT.Add_Error_Message
74: x_return_status := FND_API.G_RET_STS_ERROR ;
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77: when others then
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: l_error_tbl := x_error_Tbl;
80: BIS_UTILITIES_PVT.Add_Error_Message
81: ( p_error_msg_id => SQLCODE
82: , p_error_description => SQLERRM
101: l_Target_Level_Rec BIS_Target_Level_PUB.Target_Level_Rec_Type;
102: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
103: l_meas_rec_p BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
104: begin
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106: /*
107: BIS_Target_Level_PVT.Value_ID_Conversion( p_api_version
108: , p_Target_Level_Rec
109: , l_Target_Level_Rec
122: , x_error_Tbl
123: );
124:
125: --added this
126: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
127: l_error_tbl := x_error_Tbl;
128: BIS_UTILITIES_PVT.Add_Error_Message
129: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
130: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
132: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
133: , p_error_table => l_error_tbl
134: , x_error_table => x_error_tbl
135: );
136: RAISE FND_API.G_EXC_ERROR;
137: END IF;
138:
139: --added the assignment
140: --passing in l_Target_Level_Rec
151:
152:
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: when FND_API.G_EXC_ERROR then
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
152:
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: when FND_API.G_EXC_ERROR then
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: when others then
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: when FND_API.G_EXC_ERROR then
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: when others then
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
154: WHEN NO_DATA_FOUND THEN
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: when FND_API.G_EXC_ERROR then
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: when others then
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: l_error_tbl := x_error_Tbl;
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: when FND_API.G_EXC_ERROR then
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: when others then
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: l_error_tbl := x_error_Tbl;
163: BIS_UTILITIES_PVT.Add_Error_Message
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: when FND_API.G_EXC_UNEXPECTED_ERROR then
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160: when others then
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: l_error_tbl := x_error_Tbl;
163: BIS_UTILITIES_PVT.Add_Error_Message
164: ( p_error_msg_id => SQLCODE
165: , p_error_description => SQLERRM
183: is
184: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
185: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
186: begin
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
189: , p_Measure_Security_Rec
190: , l_Measure_Security_Rec
191: , x_return_status
191: , x_return_status
192: , x_error_Tbl
193: );
194: --added this
195: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
196: l_error_tbl := x_error_Tbl;
197: BIS_UTILITIES_PVT.Add_Error_Message
198: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
199: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
201: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
202: , p_error_table => l_error_tbl
203: , x_error_table => x_error_tbl
204: );
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207:
208:
209: BIS_MEASURE_SECURITY_PVT.Retrieve_Measure_Security
216:
217:
218: EXCEPTION
219: WHEN NO_DATA_FOUND THEN
220: x_return_status := FND_API.G_RET_STS_ERROR ;
221: when FND_API.G_EXC_ERROR then
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
217:
218: EXCEPTION
219: WHEN NO_DATA_FOUND THEN
220: x_return_status := FND_API.G_RET_STS_ERROR ;
221: when FND_API.G_EXC_ERROR then
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225: when others then
218: EXCEPTION
219: WHEN NO_DATA_FOUND THEN
220: x_return_status := FND_API.G_RET_STS_ERROR ;
221: when FND_API.G_EXC_ERROR then
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225: when others then
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
219: WHEN NO_DATA_FOUND THEN
220: x_return_status := FND_API.G_RET_STS_ERROR ;
221: when FND_API.G_EXC_ERROR then
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225: when others then
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: l_error_tbl := x_error_Tbl;
220: x_return_status := FND_API.G_RET_STS_ERROR ;
221: when FND_API.G_EXC_ERROR then
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225: when others then
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: l_error_tbl := x_error_Tbl;
228: BIS_UTILITIES_PVT.Add_Error_Message
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225: when others then
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: l_error_tbl := x_error_Tbl;
228: BIS_UTILITIES_PVT.Add_Error_Message
229: ( p_error_msg_id => SQLCODE
230: , p_error_description => SQLERRM
241: -- 1) no Measure levels or targets exist
242: -- 2) no users have selected to see actuals for the Measure
243: PROCEDURE Update_Measure_Security
244: ( p_api_version IN NUMBER
245: , p_commit IN VARCHAR2 := FND_API.G_FALSE
246: ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
247: , x_return_status OUT NOCOPY VARCHAR2
248: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
249: )
250: is
251: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
252: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
253: begin
254: x_return_status := FND_API.G_RET_STS_SUCCESS;
255: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
256: , p_Measure_Security_Rec
257: , l_Measure_Security_Rec
258: , x_return_status
258: , x_return_status
259: , x_error_Tbl
260: );
261: --added this
262: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
263: l_error_tbl := x_error_Tbl;
264: BIS_UTILITIES_PVT.Add_Error_Message
265: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
266: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
268: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
269: , p_error_table => l_error_tbl
270: , x_error_table => x_error_tbl
271: );
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
274:
275: BIS_MEASURE_SECURITY_PVT.Update_Measure_Security
276: ( p_api_version => p_api_version
282:
283:
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
283:
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
284: EXCEPTION
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
285: WHEN NO_DATA_FOUND THEN
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_Tbl;
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: when FND_API.G_EXC_ERROR then
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_Tbl;
294: BIS_UTILITIES_PVT.Add_Error_Message
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: when FND_API.G_EXC_UNEXPECTED_ERROR then
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: when others then
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293: l_error_tbl := x_error_Tbl;
294: BIS_UTILITIES_PVT.Add_Error_Message
295: ( p_error_msg_id => SQLCODE
296: , p_error_description => SQLERRM
308: -- 2) the Measure access has not been granted to a resonsibility
309: -- 3) no users have selected to see actuals for the Measure
310: PROCEDURE Delete_Measure_Security
311: ( p_api_version IN NUMBER
312: , p_commit IN VARCHAR2 := FND_API.G_FALSE
313: ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
314: , x_return_status OUT NOCOPY VARCHAR2
315: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
316: )
317: is
318: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
319: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
320: begin
321: x_return_status := FND_API.G_RET_STS_SUCCESS;
322: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
323: , p_Measure_Security_Rec
324: , l_Measure_Security_Rec
325: , x_return_status
325: , x_return_status
326: , x_error_Tbl
327: );
328: --added this
329: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
330: l_error_tbl := x_error_Tbl;
331: BIS_UTILITIES_PVT.Add_Error_Message
332: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
333: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
335: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
336: , p_error_table => l_error_tbl
337: , x_error_table => x_error_tbl
338: );
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: BIS_MEASURE_SECURITY_PVT.Delete_Measure_Security
343: ( p_api_version => p_api_version
349:
350:
351: EXCEPTION
352: WHEN NO_DATA_FOUND THEN
353: x_return_status := FND_API.G_RET_STS_ERROR ;
354: when FND_API.G_EXC_ERROR then
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
350:
351: EXCEPTION
352: WHEN NO_DATA_FOUND THEN
353: x_return_status := FND_API.G_RET_STS_ERROR ;
354: when FND_API.G_EXC_ERROR then
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: when others then
351: EXCEPTION
352: WHEN NO_DATA_FOUND THEN
353: x_return_status := FND_API.G_RET_STS_ERROR ;
354: when FND_API.G_EXC_ERROR then
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: when others then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352: WHEN NO_DATA_FOUND THEN
353: x_return_status := FND_API.G_RET_STS_ERROR ;
354: when FND_API.G_EXC_ERROR then
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: when others then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: l_error_tbl := x_error_Tbl;
353: x_return_status := FND_API.G_RET_STS_ERROR ;
354: when FND_API.G_EXC_ERROR then
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: when others then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: l_error_tbl := x_error_Tbl;
361: BIS_UTILITIES_PVT.Add_Error_Message
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: when FND_API.G_EXC_UNEXPECTED_ERROR then
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: when others then
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: l_error_tbl := x_error_Tbl;
361: BIS_UTILITIES_PVT.Add_Error_Message
362: ( p_error_msg_id => SQLCODE
363: , p_error_description => SQLERRM
378: is
379: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
380: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
381: begin
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
384: , p_Measure_Security_Rec
385: , l_Measure_Security_Rec
386: , x_return_status
386: , x_return_status
387: , x_error_Tbl
388: );
389: --added this
390: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
391: l_error_tbl := x_error_Tbl;
392: BIS_UTILITIES_PVT.Add_Error_Message
393: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
394: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
396: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
397: , p_error_table => l_error_tbl
398: , x_error_table => x_error_tbl
399: );
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402:
403: BIS_MEASURE_SECURITY_PVT.Validate_Measure_Security
404: ( p_api_version => p_api_version
410: --
411:
412: EXCEPTION
413: WHEN NO_DATA_FOUND THEN
414: x_return_status := FND_API.G_RET_STS_ERROR ;
415: when FND_API.G_EXC_ERROR then
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
411:
412: EXCEPTION
413: WHEN NO_DATA_FOUND THEN
414: x_return_status := FND_API.G_RET_STS_ERROR ;
415: when FND_API.G_EXC_ERROR then
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419: when others then
412: EXCEPTION
413: WHEN NO_DATA_FOUND THEN
414: x_return_status := FND_API.G_RET_STS_ERROR ;
415: when FND_API.G_EXC_ERROR then
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419: when others then
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
413: WHEN NO_DATA_FOUND THEN
414: x_return_status := FND_API.G_RET_STS_ERROR ;
415: when FND_API.G_EXC_ERROR then
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419: when others then
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
421: l_error_tbl := x_error_Tbl;
414: x_return_status := FND_API.G_RET_STS_ERROR ;
415: when FND_API.G_EXC_ERROR then
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419: when others then
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
421: l_error_tbl := x_error_Tbl;
422: BIS_UTILITIES_PVT.Add_Error_Message
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: when FND_API.G_EXC_UNEXPECTED_ERROR then
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419: when others then
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
421: l_error_tbl := x_error_Tbl;
422: BIS_UTILITIES_PVT.Add_Error_Message
423: ( p_error_msg_id => SQLCODE
424: , p_error_description => SQLERRM
441: is
442: l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
443: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
444: begin
445: x_return_status := FND_API.G_RET_STS_SUCCESS;
446: BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
447: , p_Measure_Security_Rec
448: , l_Measure_Security_Rec
449: , x_return_status
449: , x_return_status
450: , x_error_Tbl
451: );
452: --added this
453: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
454: l_error_tbl := x_error_Tbl;
455: BIS_UTILITIES_PVT.Add_Error_Message
456: ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
457: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
459: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
460: , p_error_table => l_error_tbl
461: , x_error_table => x_error_tbl
462: );
463: RAISE FND_API.G_EXC_ERROR;
464: END IF;
465:
466: BIS_MEASURE_SECURITY_PVT.Validate_Measure_Security
467: ( p_api_version => p_api_version
474: --
475:
476: EXCEPTION
477: WHEN NO_DATA_FOUND THEN
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: when FND_API.G_EXC_ERROR then
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
475:
476: EXCEPTION
477: WHEN NO_DATA_FOUND THEN
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: when FND_API.G_EXC_ERROR then
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: when others then
476: EXCEPTION
477: WHEN NO_DATA_FOUND THEN
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: when FND_API.G_EXC_ERROR then
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: when others then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
477: WHEN NO_DATA_FOUND THEN
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: when FND_API.G_EXC_ERROR then
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: when others then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: l_error_tbl := x_error_Tbl;
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: when FND_API.G_EXC_ERROR then
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: when others then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: l_error_tbl := x_error_Tbl;
486: BIS_UTILITIES_PVT.Add_Error_Message
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_UNEXPECTED_ERROR then
482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: when others then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: l_error_tbl := x_error_Tbl;
486: BIS_UTILITIES_PVT.Add_Error_Message
487: ( p_error_msg_id => SQLCODE
488: , p_error_description => SQLERRM
496: --
497: -- new API to delete the responsibilities attached to the target levels
498: -- pertaining to the measure specified by the measure short name
499: PROCEDURE Delete_TargetLevel_Resp
500: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
501: , p_measure_short_name IN VARCHAR2
502: , x_return_status OUT NOCOPY VARCHAR2
503: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
504: )
504: )
505: IS
506: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
507: BEGIN
508: x_return_status := FND_API.G_RET_STS_SUCCESS;
509: BIS_MEASURE_SECURITY_PVT.Delete_TargetLevel_Resp
510: ( p_commit => p_commit
511: , p_measure_short_name => p_measure_short_name
512: , x_return_status => x_return_status
514: );
515:
516: EXCEPTION
517: WHEN NO_DATA_FOUND THEN
518: x_return_status := FND_API.G_RET_STS_ERROR ;
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
515:
516: EXCEPTION
517: WHEN NO_DATA_FOUND THEN
518: x_return_status := FND_API.G_RET_STS_ERROR ;
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: WHEN OTHERS THEN
516: EXCEPTION
517: WHEN NO_DATA_FOUND THEN
518: x_return_status := FND_API.G_RET_STS_ERROR ;
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: WHEN OTHERS THEN
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
517: WHEN NO_DATA_FOUND THEN
518: x_return_status := FND_API.G_RET_STS_ERROR ;
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: WHEN OTHERS THEN
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: l_error_tbl := x_error_Tbl;
518: x_return_status := FND_API.G_RET_STS_ERROR ;
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: WHEN OTHERS THEN
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: l_error_tbl := x_error_Tbl;
526: BIS_UTILITIES_PVT.Add_Error_Message
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: WHEN OTHERS THEN
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: l_error_tbl := x_error_Tbl;
526: BIS_UTILITIES_PVT.Add_Error_Message
527: ( p_error_msg_id => SQLCODE
528: , p_error_description => SQLERRM