17: REM | HISTORY |
18: REM | 28-NOV-98 irchen Creation
19: REM | 23-JAN-03 mahrao For having different local variables for IN and OUT
20: REM | parameters.
21: REM | 30-JAN-03 sugopal FND_API.G_MISS_xxx should not be used in |
22: REM | initialization or declaration (bug#2774644) |
23: REM | 28-JUN-04 ankgoel Removed Retrieve_Measure_Notify_Resps for |
24: REM | bug#3634587 |
25: REM +=======================================================================+
31: --
32: -- creates one Indicator Level
33: PROCEDURE Create_Target_Level
34: ( p_api_version IN NUMBER
35: , p_commit IN VARCHAR2 := FND_API.G_FALSE
36: , p_Target_Level_Rec IN BIS_Target_Level_PUB.Target_Level_Rec_Type
37: , x_return_status OUT NOCOPY VARCHAR2
38: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
39: )
61:
62:
63: EXCEPTION
64: WHEN NO_DATA_FOUND THEN
65: x_return_status := FND_API.G_RET_STS_ERROR ;
66: when FND_API.G_EXC_ERROR then
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
62:
63: EXCEPTION
64: WHEN NO_DATA_FOUND THEN
65: x_return_status := FND_API.G_RET_STS_ERROR ;
66: when FND_API.G_EXC_ERROR then
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: when others then
63: EXCEPTION
64: WHEN NO_DATA_FOUND THEN
65: x_return_status := FND_API.G_RET_STS_ERROR ;
66: when FND_API.G_EXC_ERROR then
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: when others then
71: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
64: WHEN NO_DATA_FOUND THEN
65: x_return_status := FND_API.G_RET_STS_ERROR ;
66: when FND_API.G_EXC_ERROR then
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: when others then
71: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
72: l_error_tbl := x_error_Tbl;
65: x_return_status := FND_API.G_RET_STS_ERROR ;
66: when FND_API.G_EXC_ERROR then
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: when others then
71: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
72: l_error_tbl := x_error_Tbl;
73: BIS_UTILITIES_PVT.Add_Error_Message
67: x_return_status := FND_API.G_RET_STS_ERROR ;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: when others then
71: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
72: l_error_tbl := x_error_Tbl;
73: BIS_UTILITIES_PVT.Add_Error_Message
74: ( p_error_msg_id => SQLCODE
75: , p_error_description => SQLERRM
85: -- If information about the dimensions are not required, set all_info to
86: -- FALSE
87: PROCEDURE Retrieve_Target_Levels
88: ( p_api_version IN NUMBER
89: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
90: , p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
91: , x_Target_Level_tbl OUT NOCOPY BIS_Target_Level_PUB.Target_Level_Tbl_Type
92: , x_return_status OUT NOCOPY VARCHAR2
93: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
100:
101: l_measure_rec := p_measure_rec;
102:
103: if (BIS_UTILITIES_PUB.Value_Missing
104: (l_Measure_Rec.Measure_id) = FND_API.G_TRUE
105: OR BIS_UTILITIES_PUB.Value_NULL(l_Measure_Rec.Measure_id)
106: = FND_API.G_TRUE) then
107: BIS_MEASURE_PVT.Value_ID_Conversion
108: ( p_api_version => p_api_version
102:
103: if (BIS_UTILITIES_PUB.Value_Missing
104: (l_Measure_Rec.Measure_id) = FND_API.G_TRUE
105: OR BIS_UTILITIES_PUB.Value_NULL(l_Measure_Rec.Measure_id)
106: = FND_API.G_TRUE) then
107: BIS_MEASURE_PVT.Value_ID_Conversion
108: ( p_api_version => p_api_version
109: , p_Measure_Short_Name => l_Measure_Rec.Measure_Short_Name
110: , p_Measure_Name => l_Measure_Rec.Measure_Name
134: END IF;
135: --
136: EXCEPTION
137: WHEN NO_DATA_FOUND THEN
138: x_return_status := FND_API.G_RET_STS_ERROR ;
139: when FND_API.G_EXC_ERROR then
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135: --
136: EXCEPTION
137: WHEN NO_DATA_FOUND THEN
138: x_return_status := FND_API.G_RET_STS_ERROR ;
139: when FND_API.G_EXC_ERROR then
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: when others then
136: EXCEPTION
137: WHEN NO_DATA_FOUND THEN
138: x_return_status := FND_API.G_RET_STS_ERROR ;
139: when FND_API.G_EXC_ERROR then
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: when others then
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
137: WHEN NO_DATA_FOUND THEN
138: x_return_status := FND_API.G_RET_STS_ERROR ;
139: when FND_API.G_EXC_ERROR then
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: when others then
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: l_error_tbl := x_error_Tbl;
138: x_return_status := FND_API.G_RET_STS_ERROR ;
139: when FND_API.G_EXC_ERROR then
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: when others then
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: l_error_tbl := x_error_Tbl;
146: BIS_UTILITIES_PVT.Add_Error_Message
140: x_return_status := FND_API.G_RET_STS_ERROR ;
141: when FND_API.G_EXC_UNEXPECTED_ERROR then
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: when others then
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: l_error_tbl := x_error_Tbl;
146: BIS_UTILITIES_PVT.Add_Error_Message
147: ( p_error_msg_id => SQLCODE
148: , p_error_description => SQLERRM
158: -- If information about the dimension are not required, set all_info to FALSE.
159: PROCEDURE Retrieve_Target_Level
160: ( p_api_version IN NUMBER
161: , p_Target_Level_Rec IN BIS_Target_Level_PUB.Target_Level_Rec_Type
162: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
163: , x_Target_Level_Rec IN OUT NOCOPY BIS_Target_Level_PUB.Target_Level_Rec_Type
164: , x_return_status OUT NOCOPY VARCHAR2
165: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
166: )
202: );
203:
204:
205: --For the time being
206: if(x_return_status = FND_API.G_RET_STS_SUCCESS) then
207:
208: --Put the values back in Org/Time level stuff for product teams using this API
209: l_target_level_rec_p := x_target_level_rec;
210: BIS_UTILITIES_PVT.resequence_dim_levels(l_target_level_rec_p,
215:
216:
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: when FND_API.G_EXC_ERROR then
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
216:
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: when FND_API.G_EXC_ERROR then
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when others then
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: when FND_API.G_EXC_ERROR then
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when others then
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
218: WHEN NO_DATA_FOUND THEN
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: when FND_API.G_EXC_ERROR then
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when others then
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
226: l_error_tbl := x_error_Tbl;
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: when FND_API.G_EXC_ERROR then
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when others then
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
226: l_error_tbl := x_error_Tbl;
227: BIS_UTILITIES_PVT.Add_Error_Message
221: x_return_status := FND_API.G_RET_STS_ERROR ;
222: when FND_API.G_EXC_UNEXPECTED_ERROR then
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when others then
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
226: l_error_tbl := x_error_Tbl;
227: BIS_UTILITIES_PVT.Add_Error_Message
228: ( p_error_msg_id => SQLCODE
229: , p_error_description => SQLERRM
237: --
238: -- Update_Target_Levels
239: PROCEDURE Update_Target_Level
240: ( p_api_version IN NUMBER
241: , p_commit IN VARCHAR2 := FND_API.G_FALSE
242: , p_Target_Level_Rec IN BIS_Target_Level_PUB.Target_Level_Rec_Type
243: , x_return_status OUT NOCOPY VARCHAR2
244: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
245: )
266: );
267:
268: EXCEPTION
269: WHEN NO_DATA_FOUND THEN
270: x_return_status := FND_API.G_RET_STS_ERROR ;
271: when FND_API.G_EXC_ERROR then
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
267:
268: EXCEPTION
269: WHEN NO_DATA_FOUND THEN
270: x_return_status := FND_API.G_RET_STS_ERROR ;
271: when FND_API.G_EXC_ERROR then
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275: when others then
268: EXCEPTION
269: WHEN NO_DATA_FOUND THEN
270: x_return_status := FND_API.G_RET_STS_ERROR ;
271: when FND_API.G_EXC_ERROR then
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275: when others then
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
269: WHEN NO_DATA_FOUND THEN
270: x_return_status := FND_API.G_RET_STS_ERROR ;
271: when FND_API.G_EXC_ERROR then
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275: when others then
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
277: l_error_tbl := x_error_Tbl;
270: x_return_status := FND_API.G_RET_STS_ERROR ;
271: when FND_API.G_EXC_ERROR then
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275: when others then
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
277: l_error_tbl := x_error_Tbl;
278: BIS_UTILITIES_PVT.Add_Error_Message
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273: when FND_API.G_EXC_UNEXPECTED_ERROR then
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275: when others then
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
277: l_error_tbl := x_error_Tbl;
278: BIS_UTILITIES_PVT.Add_Error_Message
279: ( p_error_msg_id => SQLCODE
280: , p_error_description => SQLERRM
288: --
289: -- deletes one Target_Level
290: PROCEDURE Delete_Target_Level
291: ( p_api_version IN NUMBER
292: , p_commit IN VARCHAR2 := FND_API.G_FALSE
293: , p_Target_Level_Rec IN BIS_Target_Level_PUB.Target_Level_Rec_Type
294: , x_return_status OUT NOCOPY VARCHAR2
295: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
296: )
298: l_Target_Level_Rec BIS_Target_Level_PUB.Target_Level_Rec_Type;
299: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
300: BEGIN
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: l_target_level_rec := p_target_level_rec;
305:
306: if ( BIS_UTILITIES_PUB.Value_Missing
303:
304: l_target_level_rec := p_target_level_rec;
305:
306: if ( BIS_UTILITIES_PUB.Value_Missing
307: (p_Target_Level_Rec.Target_Level_id) = FND_API.G_TRUE
308: OR BIS_UTILITIES_PUB.Value_NULL
309: (p_Target_Level_Rec.Target_Level_id) = FND_API.G_TRUE) then
310: BIS_Target_Level_PVT.Value_ID_Conversion
311: ( p_api_version
305:
306: if ( BIS_UTILITIES_PUB.Value_Missing
307: (p_Target_Level_Rec.Target_Level_id) = FND_API.G_TRUE
308: OR BIS_UTILITIES_PUB.Value_NULL
309: (p_Target_Level_Rec.Target_Level_id) = FND_API.G_TRUE) then
310: BIS_Target_Level_PVT.Value_ID_Conversion
311: ( p_api_version
312: , p_Target_Level_Rec.Target_Level_Short_Name
313: , p_Target_Level_Rec.Target_Level_Name
327:
328:
329: EXCEPTION
330: WHEN NO_DATA_FOUND THEN
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: when FND_API.G_EXC_ERROR then
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
328:
329: EXCEPTION
330: WHEN NO_DATA_FOUND THEN
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: when FND_API.G_EXC_ERROR then
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: when others then
329: EXCEPTION
330: WHEN NO_DATA_FOUND THEN
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: when FND_API.G_EXC_ERROR then
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: when others then
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
330: WHEN NO_DATA_FOUND THEN
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: when FND_API.G_EXC_ERROR then
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: when others then
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: l_error_tbl := x_error_Tbl;
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: when FND_API.G_EXC_ERROR then
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: when others then
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: l_error_tbl := x_error_Tbl;
339: BIS_UTILITIES_PVT.Add_Error_Message
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334: when FND_API.G_EXC_UNEXPECTED_ERROR then
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: when others then
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: l_error_tbl := x_error_Tbl;
339: BIS_UTILITIES_PVT.Add_Error_Message
340: ( p_error_msg_id => SQLCODE
341: , p_error_description => SQLERRM
375: );
376:
377: EXCEPTION
378: WHEN NO_DATA_FOUND THEN
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: when FND_API.G_EXC_ERROR then
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
376:
377: EXCEPTION
378: WHEN NO_DATA_FOUND THEN
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: when FND_API.G_EXC_ERROR then
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: when others then
377: EXCEPTION
378: WHEN NO_DATA_FOUND THEN
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: when FND_API.G_EXC_ERROR then
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: when others then
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
378: WHEN NO_DATA_FOUND THEN
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: when FND_API.G_EXC_ERROR then
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: when others then
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
386: l_error_tbl := x_error_Tbl;
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: when FND_API.G_EXC_ERROR then
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: when others then
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
386: l_error_tbl := x_error_Tbl;
387: BIS_UTILITIES_PVT.Add_Error_Message
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: when FND_API.G_EXC_UNEXPECTED_ERROR then
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: when others then
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
386: l_error_tbl := x_error_Tbl;
387: BIS_UTILITIES_PVT.Add_Error_Message
388: ( p_error_msg_id => SQLCODE
389: , p_error_description => SQLERRM
403: )
404: is
405: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
406: BEGIN
407: x_return_status := FND_API.G_RET_STS_SUCCESS;
408:
409: select user_id into x_user_id
410: from fnd_user where user_name = p_user_name
411: and start_date <= sysdate
413:
414:
415: EXCEPTION
416: WHEN NO_DATA_FOUND THEN
417: x_return_status := FND_API.G_RET_STS_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
414:
415: EXCEPTION
416: WHEN NO_DATA_FOUND THEN
417: x_return_status := FND_API.G_RET_STS_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422: when others then
415: EXCEPTION
416: WHEN NO_DATA_FOUND THEN
417: x_return_status := FND_API.G_RET_STS_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422: when others then
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
416: WHEN NO_DATA_FOUND THEN
417: x_return_status := FND_API.G_RET_STS_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422: when others then
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
424: l_error_tbl := x_error_Tbl;
417: x_return_status := FND_API.G_RET_STS_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422: when others then
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
424: l_error_tbl := x_error_Tbl;
425: BIS_UTILITIES_PVT.Add_Error_Message
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422: when others then
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
424: l_error_tbl := x_error_Tbl;
425: BIS_UTILITIES_PVT.Add_Error_Message
426: ( p_error_msg_id => SQLCODE
427: , p_error_description => SQLERRM
435: Procedure Retrieve_User_Target_Levels
436: ( p_api_version IN NUMBER
437: , p_user_id IN NUMBER
438: , p_user_name IN VARCHAR2 := BIS_UTILITIES_PUB.G_NULL_CHAR
439: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
440: , x_Target_Level_Tbl OUT NOCOPY BIS_Target_LEVEL_PUB.Target_Level_Tbl_Type
441: , x_return_status OUT NOCOPY VARCHAR2
442: , x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
443: )
444: IS
445: l_user_id number := p_user_id;
446: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
447: BEGIN
448: x_return_status := FND_API.G_RET_STS_SUCCESS ;
449:
450: --checked for null also
451: if (BIS_UTILITIES_PUB.Value_Missing(l_user_id) = FND_API.G_TRUE
452: OR BIS_UTILITIES_PUB.Value_NULL(l_user_id)
447: BEGIN
448: x_return_status := FND_API.G_RET_STS_SUCCESS ;
449:
450: --checked for null also
451: if (BIS_UTILITIES_PUB.Value_Missing(l_user_id) = FND_API.G_TRUE
452: OR BIS_UTILITIES_PUB.Value_NULL(l_user_id)
453: = FND_API.G_TRUE)
454: then
455:
449:
450: --checked for null also
451: if (BIS_UTILITIES_PUB.Value_Missing(l_user_id) = FND_API.G_TRUE
452: OR BIS_UTILITIES_PUB.Value_NULL(l_user_id)
453: = FND_API.G_TRUE)
454: then
455:
456: Get_User_Id( p_api_version => 1.0
457: , p_user_name => p_user_name
476:
477:
478: EXCEPTION
479: WHEN NO_DATA_FOUND THEN
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_ERROR then
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
477:
478: EXCEPTION
479: WHEN NO_DATA_FOUND THEN
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_ERROR then
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: when others then
478: EXCEPTION
479: WHEN NO_DATA_FOUND THEN
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_ERROR then
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: when others then
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
479: WHEN NO_DATA_FOUND THEN
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_ERROR then
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: when others then
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
487: l_error_tbl := x_error_Tbl;
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: when FND_API.G_EXC_ERROR then
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: when others then
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
487: l_error_tbl := x_error_Tbl;
488: BIS_UTILITIES_PVT.Add_Error_Message
482: x_return_status := FND_API.G_RET_STS_ERROR ;
483: when FND_API.G_EXC_UNEXPECTED_ERROR then
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: when others then
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
487: l_error_tbl := x_error_Tbl;
488: BIS_UTILITIES_PVT.Add_Error_Message
489: ( p_error_msg_id => SQLCODE
490: , p_error_description => SQLERRM
497:
498: --
499: Procedure Translate_Target_Level
500: ( p_api_version IN NUMBER
501: , p_commit IN VARCHAR2 := FND_API.G_FALSE
502: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
503: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
504: , p_owner IN VARCHAR2
505: , x_return_status OUT NOCOPY VARCHAR2
498: --
499: Procedure Translate_Target_Level
500: ( p_api_version IN NUMBER
501: , p_commit IN VARCHAR2 := FND_API.G_FALSE
502: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
503: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
504: , p_owner IN VARCHAR2
505: , x_return_status OUT NOCOPY VARCHAR2
506: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
518: , x_error_Tbl => x_error_tbl
519: );
520:
521: --added last two parameters
522: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
523: l_error_tbl := x_error_Tbl;
524: BIS_UTILITIES_PVT.Add_Error_Message
525: ( p_error_msg_name => 'BIS_INVALID_TAR_LEVEL_ID'
526: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
528: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
529: , p_error_table => l_error_tbl
530: , x_error_table => x_error_tbl
531: );
532: RAISE FND_API.G_EXC_ERROR;
533: end if;
534:
535: BIS_TARGET_LEVEL_PVT.Translate_Target_Level
536: ( p_api_version => p_api_version
543: );
544:
545: EXCEPTION
546: WHEN NO_DATA_FOUND THEN
547: x_return_status := FND_API.G_RET_STS_ERROR ;
548: when FND_API.G_EXC_ERROR then
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544:
545: EXCEPTION
546: WHEN NO_DATA_FOUND THEN
547: x_return_status := FND_API.G_RET_STS_ERROR ;
548: when FND_API.G_EXC_ERROR then
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: when others then
545: EXCEPTION
546: WHEN NO_DATA_FOUND THEN
547: x_return_status := FND_API.G_RET_STS_ERROR ;
548: when FND_API.G_EXC_ERROR then
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: when others then
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: WHEN NO_DATA_FOUND THEN
547: x_return_status := FND_API.G_RET_STS_ERROR ;
548: when FND_API.G_EXC_ERROR then
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: when others then
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
554: l_error_tbl := x_error_Tbl;
547: x_return_status := FND_API.G_RET_STS_ERROR ;
548: when FND_API.G_EXC_ERROR then
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: when others then
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
554: l_error_tbl := x_error_Tbl;
555: BIS_UTILITIES_PVT.Add_Error_Message
549: x_return_status := FND_API.G_RET_STS_ERROR ;
550: when FND_API.G_EXC_UNEXPECTED_ERROR then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: when others then
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
554: l_error_tbl := x_error_Tbl;
555: BIS_UTILITIES_PVT.Add_Error_Message
556: ( p_error_msg_id => SQLCODE
557: , p_error_description => SQLERRM
563: END Translate_Target_Level ;
564: --
565: Procedure Load_Target_Level
566: ( p_api_version IN NUMBER
567: , p_commit IN VARCHAR2 := FND_API.G_FALSE
568: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
569: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
570: , p_owner IN VARCHAR2
571: , p_up_loaded IN VARCHAR2 := FND_API.G_FALSE
564: --
565: Procedure Load_Target_Level
566: ( p_api_version IN NUMBER
567: , p_commit IN VARCHAR2 := FND_API.G_FALSE
568: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
569: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
570: , p_owner IN VARCHAR2
571: , p_up_loaded IN VARCHAR2 := FND_API.G_FALSE
572: , x_return_status OUT NOCOPY VARCHAR2
567: , p_commit IN VARCHAR2 := FND_API.G_FALSE
568: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
569: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
570: , p_owner IN VARCHAR2
571: , p_up_loaded IN VARCHAR2 := FND_API.G_FALSE
572: , x_return_status OUT NOCOPY VARCHAR2
573: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
574: )
575: IS
597: , x_return_msg => l_return_msg
598: ); -- BIS_UTILITIES_PUB.put_line(p_text => ' ok 2 x_return_status = ' || x_return_status ) ;
599:
600: IF ( l_return_status <> 'S' ) THEN -- 2486702
601: RAISE FND_API.G_EXC_ERROR;
602: END IF;
603:
604: BIS_TARGET_LEVEL_PVT.Update_Target_Level
605: ( p_api_version => p_api_version
611: , x_return_status => x_return_status
612: , x_error_Tbl => x_error_Tbl
613: );
614:
615: IF x_return_status = FND_API.G_RET_STS_ERROR then
616:
617: BIS_TARGET_LEVEL_PVT.Create_Target_Level
618: ( p_api_version => p_api_version
619: , p_commit => p_commit
626: END IF;
627:
628: EXCEPTION
629: WHEN NO_DATA_FOUND THEN
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: when FND_API.G_EXC_ERROR then
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627:
628: EXCEPTION
629: WHEN NO_DATA_FOUND THEN
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: when FND_API.G_EXC_ERROR then
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
635: when others then
628: EXCEPTION
629: WHEN NO_DATA_FOUND THEN
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: when FND_API.G_EXC_ERROR then
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
635: when others then
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
629: WHEN NO_DATA_FOUND THEN
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: when FND_API.G_EXC_ERROR then
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
635: when others then
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637: l_error_tbl := x_error_Tbl;
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: when FND_API.G_EXC_ERROR then
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
635: when others then
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637: l_error_tbl := x_error_Tbl;
638: BIS_UTILITIES_PVT.Add_Error_Message
632: x_return_status := FND_API.G_RET_STS_ERROR ;
633: when FND_API.G_EXC_UNEXPECTED_ERROR then
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
635: when others then
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637: l_error_tbl := x_error_Tbl;
638: BIS_UTILITIES_PVT.Add_Error_Message
639: ( p_error_msg_id => SQLCODE
640: , p_error_description => SQLERRM
681: );
682:
683: EXCEPTION
684: WHEN NO_DATA_FOUND THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: when FND_API.G_EXC_ERROR then
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682:
683: EXCEPTION
684: WHEN NO_DATA_FOUND THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: when FND_API.G_EXC_ERROR then
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: when others then
683: EXCEPTION
684: WHEN NO_DATA_FOUND THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: when FND_API.G_EXC_ERROR then
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: when others then
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
684: WHEN NO_DATA_FOUND THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: when FND_API.G_EXC_ERROR then
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: when others then
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
692: l_error_tbl := x_error_Tbl;
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: when FND_API.G_EXC_ERROR then
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: when others then
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
692: l_error_tbl := x_error_Tbl;
693: BIS_UTILITIES_PVT.Add_Error_Message
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: when FND_API.G_EXC_UNEXPECTED_ERROR then
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: when others then
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
692: l_error_tbl := x_error_Tbl;
693: BIS_UTILITIES_PVT.Add_Error_Message
694: ( p_error_msg_id => SQLCODE
695: , p_error_description => SQLERRM
710: ,p_tl_new_short_name => p_tl_new_short_name
711: ,x_return_status => x_return_status);
712: EXCEPTION
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
715: END updt_tl_attributes;
716:
717: --
718: --