38: l_rec Application_Rec_Type;
39:
40: BEGIN
41:
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43:
44: for cr in app_cursor LOOP
45:
46: l_rec.Application_ID := cr.Application_ID;
53: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
54:
55: EXCEPTION
56: WHEN NO_DATA_FOUND THEN
57: x_return_status := FND_API.G_RET_STS_ERROR ;
58: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
59: RAISE FND_API.G_EXC_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
55: EXCEPTION
56: WHEN NO_DATA_FOUND THEN
57: x_return_status := FND_API.G_RET_STS_ERROR ;
58: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
59: RAISE FND_API.G_EXC_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
56: WHEN NO_DATA_FOUND THEN
57: x_return_status := FND_API.G_RET_STS_ERROR ;
58: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
59: RAISE FND_API.G_EXC_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
57: x_return_status := FND_API.G_RET_STS_ERROR ;
58: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
59: RAISE FND_API.G_EXC_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
59: RAISE FND_API.G_EXC_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: when FND_API.G_EXC_ERROR then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
61: x_return_status := FND_API.G_RET_STS_ERROR ;
62: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63: RAISE FND_API.G_EXC_ERROR;
64: when FND_API.G_EXC_UNEXPECTED_ERROR then
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
71: BIS_UTILITIES_PVT.Add_Error_Message
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: when others then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
71: BIS_UTILITIES_PVT.Add_Error_Message
72: ( p_error_msg_id => SQLCODE
73: , p_error_description => SQLERRM
72: ( p_error_msg_id => SQLCODE
73: , p_error_description => SQLERRM
74: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
75: );
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77:
78: END Retrieve_Applications;
79: --
80: -- Validates measure
93: from fnd_application_vl
94: where Application_id = p_Application_Rec.Application_id;
95:
96: begin
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: if (p_Application_Rec.Application_id <>
100: BIS_Application_PVT.G_NO_APPLICATION_ID) then
101: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Rec.Application_id)
98:
99: if (p_Application_Rec.Application_id <>
100: BIS_Application_PVT.G_NO_APPLICATION_ID) then
101: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Rec.Application_id)
102: =FND_API.G_TRUE) then
103: open chk_application;
104: fetch chk_application into l_dummy;
105: if (chk_application%NOTFOUND) then
106: close chk_application;
111: , p_error_proc_name => G_PKG_NAME||'.Validate_Application'
112: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
113: );
114:
115: RAISE FND_API.G_EXC_ERROR;
116: end if;
117: close chk_application;
118: end if;
119: end if;
119: end if;
120:
121: EXCEPTION
122: WHEN NO_DATA_FOUND THEN
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
121: EXCEPTION
122: WHEN NO_DATA_FOUND THEN
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
122: WHEN NO_DATA_FOUND THEN
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
125: RAISE FND_API.G_EXC_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
126: when FND_API.G_EXC_ERROR then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: when others then
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: when others then
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
129: RAISE FND_API.G_EXC_ERROR;
130: when FND_API.G_EXC_UNEXPECTED_ERROR then
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: when others then
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
136: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
137: BIS_UTILITIES_PVT.Add_Error_Message
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: when others then
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
136: IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
137: BIS_UTILITIES_PVT.Add_Error_Message
138: ( p_error_msg_id => SQLCODE
139: , p_error_description => SQLERRM
138: ( p_error_msg_id => SQLCODE
139: , p_error_description => SQLERRM
140: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
141: );
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143:
144: END Validate_Application;
145: --
146: --
155: IS
156:
157: BEGIN
158:
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160: x_Application_Rec := p_Application_Rec;
161:
162: BIS_Application_PVT.Value_ID_Conversion
163: ( p_api_version
169: );
170:
171: EXCEPTION
172: WHEN NO_DATA_FOUND THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
170:
171: EXCEPTION
172: WHEN NO_DATA_FOUND THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
171: EXCEPTION
172: WHEN NO_DATA_FOUND THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172: WHEN NO_DATA_FOUND THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: when others then
174: RAISE FND_API.G_EXC_ERROR;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: when others then
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
175: when FND_API.G_EXC_ERROR then
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: when others then
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183: BIS_UTILITIES_PVT.Add_Error_Message
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: RAISE FND_API.G_EXC_ERROR;
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: when others then
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183: BIS_UTILITIES_PVT.Add_Error_Message
184: ( p_error_msg_id => SQLCODE
178: when FND_API.G_EXC_UNEXPECTED_ERROR then
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: when others then
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183: BIS_UTILITIES_PVT.Add_Error_Message
184: ( p_error_msg_id => SQLCODE
185: , p_error_description => SQLERRM
186: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
184: ( p_error_msg_id => SQLCODE
185: , p_error_description => SQLERRM
186: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
187: );
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189:
190: END Value_ID_Conversion;
191: --
192: PROCEDURE Value_ID_Conversion
199: )
200: IS
201:
202: BEGIN
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Short_Name)
206: = FND_API.G_TRUE) then
207: SELECT Application_id into x_Application_ID
202: BEGIN
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Short_Name)
206: = FND_API.G_TRUE) then
207: SELECT Application_id into x_Application_ID
208: FROM fnd_application_vl
209: WHERE Application_short_name = p_Application_Short_Name;
210: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Name)
207: SELECT Application_id into x_Application_ID
208: FROM fnd_application_vl
209: WHERE Application_short_name = p_Application_Short_Name;
210: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Name)
211: = FND_API.G_TRUE) then
212: SELECT Application_id into x_Application_ID
213: FROM fnd_application_vl
214: WHERE Application_name = p_Application_Name;
215: else
213: FROM fnd_application_vl
214: WHERE Application_name = p_Application_Name;
215: else
216: -- POLPULATE ERROR TABLE
217: RAISE FND_API.G_EXC_ERROR;
218: end if;
219:
220: EXCEPTION
221: WHEN NO_DATA_FOUND THEN
218: end if;
219:
220: EXCEPTION
221: WHEN NO_DATA_FOUND THEN
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
219:
220: EXCEPTION
221: WHEN NO_DATA_FOUND THEN
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
220: EXCEPTION
221: WHEN NO_DATA_FOUND THEN
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
221: WHEN NO_DATA_FOUND THEN
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: x_return_status := FND_API.G_RET_STS_ERROR ;
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: when others then
223: RAISE FND_API.G_EXC_ERROR;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: when others then
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: when FND_API.G_EXC_ERROR then
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: when others then
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232: BIS_UTILITIES_PVT.Add_Error_Message
225: x_return_status := FND_API.G_RET_STS_ERROR ;
226: RAISE FND_API.G_EXC_ERROR;
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: when others then
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232: BIS_UTILITIES_PVT.Add_Error_Message
233: ( p_error_msg_id => SQLCODE
227: when FND_API.G_EXC_UNEXPECTED_ERROR then
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: when others then
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232: BIS_UTILITIES_PVT.Add_Error_Message
233: ( p_error_msg_id => SQLCODE
234: , p_error_description => SQLERRM
235: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
233: ( p_error_msg_id => SQLCODE
234: , p_error_description => SQLERRM
235: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
236: );
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238:
239: END Value_ID_Conversion;
240: --
241: END BIS_Application_PVT;