18: IS
19: l_api_name CONSTANT VARCHAR2(30) := 'FV_IS_CCR';
20: l_api_version CONSTANT NUMBER := 1.0;
21: BEGIN
22: IF NOT FND_API.Compatible_API_Call (l_api_version,
23: p_api_version,
24: l_api_name,
25: G_PKG_NAME )
26: THEN
23: p_api_version,
24: l_api_name,
25: G_PKG_NAME )
26: THEN
27: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28: END IF;
29:
30: -- Initialize message list if p_init_msg_list is set to TRUE.
31: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
27: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28: END IF;
29:
30: -- Initialize message list if p_init_msg_list is set to TRUE.
31: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
32: FND_MSG_PUB.initialize;
33: END IF;
34: -- Initialize API return status to success
35:
32: FND_MSG_PUB.initialize;
33: END IF;
34: -- Initialize API return status to success
35:
36: x_return_status := FND_API.G_RET_STS_SUCCESS;
37:
38:
39: x_out_status := FND_API.G_FALSE;
40: IF(p_object_type = 'S') THEN
35:
36: x_return_status := FND_API.G_RET_STS_SUCCESS;
37:
38:
39: x_out_status := FND_API.G_FALSE;
40: IF(p_object_type = 'S') THEN
41: SELECT ccr_id
42: INTO x_ccr_id
43: FROM fv_ccr_vendors
59: INTO x_ccr_id
60: FROM fv_ccr_orgs fcorg
61: WHERE nvl(bank_account_id,-99) = p_object_id;
62: END IF;
63: x_out_status := FND_API.G_TRUE;
64:
65: FND_MSG_PUB.Count_And_Get
66: (
67: p_count => x_msg_count ,
69: );
70:
71: EXCEPTION
72: WHEN NO_DATA_FOUND THEN
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75:
76: WHEN TOO_MANY_ROWS THEN
77: x_error_code := 1;
74:
75:
76: WHEN TOO_MANY_ROWS THEN
77: x_error_code := 1;
78: x_out_status := FND_API.G_TRUE;
79: IF(p_object_type IN ('S','B')) THEN
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81: ELSE
82: x_return_status := FND_API.G_RET_STS_ERROR ;
76: WHEN TOO_MANY_ROWS THEN
77: x_error_code := 1;
78: x_out_status := FND_API.G_TRUE;
79: IF(p_object_type IN ('S','B')) THEN
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81: ELSE
82: x_return_status := FND_API.G_RET_STS_ERROR ;
83: END IF;
84:
78: x_out_status := FND_API.G_TRUE;
79: IF(p_object_type IN ('S','B')) THEN
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81: ELSE
82: x_return_status := FND_API.G_RET_STS_ERROR ;
83: END IF;
84:
85: FND_MESSAGE.SET_NAME('FV', 'FV_CCR_GRP_TOO_MANY_ROWS');
86: FND_MSG_PUB.ADD;
90: ( p_count => x_msg_count ,
91: p_data => x_msg_data
92: );
93:
94: WHEN FND_API.G_EXC_ERROR THEN
95:
96: x_return_status := FND_API.G_RET_STS_ERROR ;
97:
98: FND_MSG_PUB.Count_And_Get
92: );
93:
94: WHEN FND_API.G_EXC_ERROR THEN
95:
96: x_return_status := FND_API.G_RET_STS_ERROR ;
97:
98: FND_MSG_PUB.Count_And_Get
99: ( p_count => x_msg_count ,
100: p_data => x_msg_data
98: FND_MSG_PUB.Count_And_Get
99: ( p_count => x_msg_count ,
100: p_data => x_msg_data
101: );
102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
103:
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: FND_MSG_PUB.Count_And_Get
106: ( p_count => x_msg_count ,
100: p_data => x_msg_data
101: );
102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
103:
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: FND_MSG_PUB.Count_And_Get
106: ( p_count => x_msg_count ,
107: p_data => x_msg_data
108: );
108: );
109:
110: WHEN OTHERS THEN
111:
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
113: IF FND_MSG_PUB.Check_Msg_Level
114: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
115: THEN
116: FND_MSG_PUB.Add_Exc_Msg
144:
145:
146: BEGIN
147:
148: IF NOT FND_API.Compatible_API_Call (l_api_version,
149: p_api_version,
150: l_api_name,
151: G_PKG_NAME )
152: THEN
149: p_api_version,
150: l_api_name,
151: G_PKG_NAME )
152: THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- Initialize message list if p_init_msg_list is set to TRUE.
157: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- Initialize message list if p_init_msg_list is set to TRUE.
157: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
158: FND_MSG_PUB.initialize;
159: END IF;
160: -- Initialize API return status to success
161:
158: FND_MSG_PUB.initialize;
159: END IF;
160: -- Initialize API return status to success
161:
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163: SELECT fcv.ccr_status
164: INTO x_ccr_status
165: FROM fv_ccr_vendors fcv, fv_ccr_orgs fco
166: WHERE fcv.CCR_ID = fco.CCR_ID
184: p_count => x_msg_count ,
185: p_data => x_msg_data
186: );
187:
188: x_return_status := FND_API.G_RET_STS_ERROR ;
189: WHEN TOO_MANY_ROWS THEN
190: FND_MESSAGE.SET_NAME('FV', 'FV_CCR_GRP_TOO_MANY_ROWS');
191: FND_MSG_PUB.ADD;
192: x_error_code := 1;
189: WHEN TOO_MANY_ROWS THEN
190: FND_MESSAGE.SET_NAME('FV', 'FV_CCR_GRP_TOO_MANY_ROWS');
191: FND_MSG_PUB.ADD;
192: x_error_code := 1;
193: x_return_status := FND_API.G_RET_STS_ERROR ;
194: FND_MSG_PUB.Count_And_Get
195: ( p_count => x_msg_count ,
196: p_data => x_msg_data
197: );
194: FND_MSG_PUB.Count_And_Get
195: ( p_count => x_msg_count ,
196: p_data => x_msg_data
197: );
198: WHEN FND_API.G_EXC_ERROR THEN
199:
200: x_return_status := FND_API.G_RET_STS_ERROR ;
201: FND_MSG_PUB.Count_And_Get
202: ( p_count => x_msg_count ,
196: p_data => x_msg_data
197: );
198: WHEN FND_API.G_EXC_ERROR THEN
199:
200: x_return_status := FND_API.G_RET_STS_ERROR ;
201: FND_MSG_PUB.Count_And_Get
202: ( p_count => x_msg_count ,
203: p_data => x_msg_data
204: );
201: FND_MSG_PUB.Count_And_Get
202: ( p_count => x_msg_count ,
203: p_data => x_msg_data
204: );
205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
206:
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: FND_MSG_PUB.Count_And_Get
209: ( p_count => x_msg_count ,
203: p_data => x_msg_data
204: );
205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
206:
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: FND_MSG_PUB.Count_And_Get
209: ( p_count => x_msg_count ,
210: p_data => x_msg_data
211: );
210: p_data => x_msg_data
211: );
212: WHEN OTHERS THEN
213:
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
215: IF FND_MSG_PUB.Check_Msg_Level
216: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
217: THEN
218: FND_MSG_PUB.Add_Exc_Msg
243: l_error VARCHAR2(1024);
244: l_vendor_type po_vendors.vendor_type_lookup_code%TYPE;
245: BEGIN
246: -- Check for call compatibility.
247: IF NOT fnd_api.compatible_api_call
248: (
249: p_current_version_number => l_api_version,
250: p_caller_version_number => p_api_version,
251: p_api_name => l_api_name,
251: p_api_name => l_api_name,
252: p_pkg_name => g_pkg_name
253: )
254: THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
258: -- Initialize API message list if necessary.
259: -- Initialize message list if p_init_msg_list is set to TRUE.
256: END IF;
257:
258: -- Initialize API message list if necessary.
259: -- Initialize message list if p_init_msg_list is set to TRUE.
260: IF fnd_api.to_boolean(p_init_msg_list) THEN
261: fnd_msg_pub.initialize;
262: END IF;
263:
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
260: IF fnd_api.to_boolean(p_init_msg_list) THEN
261: fnd_msg_pub.initialize;
262: END IF;
263:
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265:
266: SELECT vendor_type_lookup_code
267: INTO l_vendor_type
268: FROM po_vendors
280: p_data => x_msg_data
281: );
282:
283: EXCEPTION
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: fnd_msg_pub.count_and_get
287: (
288: p_count => x_msg_count,
281: );
282:
283: EXCEPTION
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: fnd_msg_pub.count_and_get
287: (
288: p_count => x_msg_count,
289: p_data => x_msg_data
296: (
297: p_count => x_msg_count,
298: p_data => x_msg_data
299: );
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: WHEN FND_API.G_EXC_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_ERROR ;
303: fnd_msg_pub.count_and_get
304: (
297: p_count => x_msg_count,
298: p_data => x_msg_data
299: );
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: WHEN FND_API.G_EXC_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_ERROR ;
303: fnd_msg_pub.count_and_get
304: (
305: p_count => x_msg_count,
298: p_data => x_msg_data
299: );
300: x_return_status := FND_API.G_RET_STS_ERROR ;
301: WHEN FND_API.G_EXC_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_ERROR ;
303: fnd_msg_pub.count_and_get
304: (
305: p_count => x_msg_count,
306: p_data => x_msg_data
306: p_data => x_msg_data
307: );
308: WHEN OTHERS THEN
309: l_error := SQLERRM;
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: IF fnd_msg_pub.check_msg_level
312: (
313: p_message_level => fnd_msg_pub.g_msg_lvl_unexp_error
314: )
343: l_api_version CONSTANT NUMBER := 1.0;
344: l_bank_account_id NUMBER;
345: BEGIN
346: l_bank_account_id := null;
347: IF NOT FND_API.Compatible_API_Call (l_api_version,
348: p_api_version,
349: l_api_name,
350: G_PKG_NAME )
351: THEN
348: p_api_version,
349: l_api_name,
350: G_PKG_NAME )
351: THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: END IF;
354:
355: -- Initialize message list if p_init_msg_list is set to TRUE.
356: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: END IF;
354:
355: -- Initialize message list if p_init_msg_list is set to TRUE.
356: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
357: FND_MSG_PUB.initialize;
358: END IF;
359: -- Initialize API return status to success
360:
357: FND_MSG_PUB.initialize;
358: END IF;
359: -- Initialize API return status to success
360:
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363:
364: x_out_status := FND_API.G_FALSE;
365:
360:
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363:
364: x_out_status := FND_API.G_FALSE;
365:
366: SELECT bank_account_id
367: INTO l_bank_account_id
368: FROM fv_ccr_orgs
368: FROM fv_ccr_orgs
369: WHERE pay_site_id = p_vendor_site_id;
370:
371: if(l_bank_account_id IS NULL) THEN
372: x_out_status := FND_API.G_FALSE;
373: else
374: x_out_status := FND_API.G_TRUE;
375: end if;
376:
370:
371: if(l_bank_account_id IS NULL) THEN
372: x_out_status := FND_API.G_FALSE;
373: else
374: x_out_status := FND_API.G_TRUE;
375: end if;
376:
377:
378:
384: );
385:
386: EXCEPTION
387: WHEN NO_DATA_FOUND THEN
388: x_return_status := FND_API.G_RET_STS_ERROR;
389: x_error_code := 2;
390:
391:
392: WHEN TOO_MANY_ROWS THEN
390:
391:
392: WHEN TOO_MANY_ROWS THEN
393: x_error_code := 1;
394: x_return_status := FND_API.G_RET_STS_SUCCESS;
395: FND_MESSAGE.SET_NAME('FV', 'FV_CCR_GRP_TOO_MANY_ROWS');
396: FND_MSG_PUB.ADD;
397:
398:
400: ( p_count => x_msg_count ,
401: p_data => x_msg_data
402: );
403:
404: WHEN FND_API.G_EXC_ERROR THEN
405:
406: x_return_status := FND_API.G_RET_STS_ERROR ;
407:
408: FND_MSG_PUB.Count_And_Get
402: );
403:
404: WHEN FND_API.G_EXC_ERROR THEN
405:
406: x_return_status := FND_API.G_RET_STS_ERROR ;
407:
408: FND_MSG_PUB.Count_And_Get
409: ( p_count => x_msg_count ,
410: p_data => x_msg_data
408: FND_MSG_PUB.Count_And_Get
409: ( p_count => x_msg_count ,
410: p_data => x_msg_data
411: );
412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
413:
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
415: FND_MSG_PUB.Count_And_Get
416: ( p_count => x_msg_count ,
410: p_data => x_msg_data
411: );
412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
413:
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
415: FND_MSG_PUB.Count_And_Get
416: ( p_count => x_msg_count ,
417: p_data => x_msg_data
418: );
418: );
419:
420: WHEN OTHERS THEN
421:
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: IF FND_MSG_PUB.Check_Msg_Level
424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
425: THEN
426: FND_MSG_PUB.Add_Exc_Msg