53: -- End of comments
54:
55: PROCEDURE Get_Appl_Delivery_Channels (
56: p_api_version IN NUMBER,
57: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
58: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
59: x_return_status OUT NOCOPY VARCHAR2,
60: x_msg_count OUT NOCOPY NUMBER,
61: x_msg_data OUT NOCOPY VARCHAR2,
92: print_debuginfo(l_module_name,'Application_id : '|| p_trxn_attributes_rec.application_id);
93: print_debuginfo(l_module_name,'First party LE id : '|| p_trxn_attributes_rec.payer_legal_entity_id);
94:
95: -- Standard call to check for call compatibility.
96: IF NOT FND_API.Compatible_API_Call(l_api_version,
97: p_api_version,
98: l_api_name,
99: G_PKG_NAME) THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: IF NOT FND_API.Compatible_API_Call(l_api_version,
97: p_api_version,
98: l_api_name,
99: G_PKG_NAME) THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: END IF;
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104: IF FND_API.to_Boolean(p_init_msg_list) THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: END IF;
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104: IF FND_API.to_Boolean(p_init_msg_list) THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: -- Initialize API return status to success
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: -- Initialize API return status to success
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
112: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
113: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
112: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
113: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
114: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity Id');
115: FND_MSG_PUB.Add;
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
120: FETCH payer_country_csr INTO l_payer_country;
124: print_debuginfo(l_module_name,'Error: First party legal entity country not populated.');
125: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
126: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity country');
127: FND_MSG_PUB.Add;
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: OPEN delivery_channels_csr(l_payer_country);
132: FETCH delivery_channels_csr BULK COLLECT INTO l_delivery_channels_tbl;
146:
147: print_debuginfo(l_module_name, 'RETURN');
148:
149: EXCEPTION
150: WHEN FND_API.G_EXC_ERROR THEN
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
153: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
154: print_debuginfo(l_module_name,'SQLerr is :'
147: print_debuginfo(l_module_name, 'RETURN');
148:
149: EXCEPTION
150: WHEN FND_API.G_EXC_ERROR THEN
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
153: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
154: print_debuginfo(l_module_name,'SQLerr is :'
155: || substr(SQLERRM, 1, 150));
152: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
153: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
154: print_debuginfo(l_module_name,'SQLerr is :'
155: || substr(SQLERRM, 1, 150));
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
159: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
160: print_debuginfo(l_module_name,'SQLerr is :'
153: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
154: print_debuginfo(l_module_name,'SQLerr is :'
155: || substr(SQLERRM, 1, 150));
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
159: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
160: print_debuginfo(l_module_name,'SQLerr is :'
161: || substr(SQLERRM, 1, 150));
159: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
160: print_debuginfo(l_module_name,'SQLerr is :'
161: || substr(SQLERRM, 1, 150));
162: WHEN OTHERS THEN
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164:
165: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
166: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
167: END IF;
193: -- End of comments
194:
195: PROCEDURE Get_Applicable_Payee_BankAccts (
196: p_api_version IN NUMBER,
197: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
198: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
199: x_return_status OUT NOCOPY VARCHAR2,
200: x_msg_count OUT NOCOPY NUMBER,
201: x_msg_data OUT NOCOPY VARCHAR2,
264: print_debuginfo(l_module_name,'Payment Amount : '|| p_trxn_attributes_rec.payment_amount);
265: print_debuginfo(l_module_name,'Account Usage : '|| p_trxn_attributes_rec.payment_function);
266:
267: -- Standard call to check for call compatibility.
268: IF NOT FND_API.Compatible_API_Call(l_api_version,
269: p_api_version,
270: l_api_name,
271: G_PKG_NAME) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: IF NOT FND_API.Compatible_API_Call(l_api_version,
269: p_api_version,
270: l_api_name,
271: G_PKG_NAME) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276: IF FND_API.to_Boolean(p_init_msg_list) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276: IF FND_API.to_Boolean(p_init_msg_list) THEN
277: FND_MSG_PUB.initialize;
278: END IF;
279:
280: -- Initialize API return status to success
277: FND_MSG_PUB.initialize;
278: END IF;
279:
280: -- Initialize API return status to success
281: x_return_status := FND_API.G_RET_STS_SUCCESS;
282:
283: -- Check for mandatory params
284: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
285: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
285: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
286: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
287: FND_MESSAGE.SET_TOKEN('PARAM', 'Payee Party Id');
288: FND_MSG_PUB.Add;
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291:
292: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
293: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
293: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
294: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
295: FND_MESSAGE.SET_TOKEN('PARAM', 'Payment Currency');
296: FND_MSG_PUB.Add;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
301: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
301: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
302: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
303: FND_MESSAGE.SET_TOKEN('PARAM', 'Account Usage');
304: FND_MSG_PUB.Add;
305: RAISE FND_API.G_EXC_ERROR;
306: END IF;
307:
308: -- Start of API body.
309: OPEN payee_bankacct_csr(p_trxn_attributes_rec.Payee_Party_Id,
331:
332: print_debuginfo(l_module_name, 'RETURN');
333:
334: EXCEPTION
335: WHEN FND_API.G_EXC_ERROR THEN
336: x_return_status := FND_API.G_RET_STS_ERROR;
337: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
338: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
339: print_debuginfo(l_module_name,'SQLerr is :'
332: print_debuginfo(l_module_name, 'RETURN');
333:
334: EXCEPTION
335: WHEN FND_API.G_EXC_ERROR THEN
336: x_return_status := FND_API.G_RET_STS_ERROR;
337: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
338: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
339: print_debuginfo(l_module_name,'SQLerr is :'
340: || substr(SQLERRM, 1, 150));
337: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
338: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
339: print_debuginfo(l_module_name,'SQLerr is :'
340: || substr(SQLERRM, 1, 150));
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
344: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
345: print_debuginfo(l_module_name,'SQLerr is :'
338: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
339: print_debuginfo(l_module_name,'SQLerr is :'
340: || substr(SQLERRM, 1, 150));
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
344: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
345: print_debuginfo(l_module_name,'SQLerr is :'
346: || substr(SQLERRM, 1, 150));
344: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
345: print_debuginfo(l_module_name,'SQLerr is :'
346: || substr(SQLERRM, 1, 150));
347: WHEN OTHERS THEN
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349:
350: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
351: THEN
352: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
380: -- this procedure to get the appliable payment formats is supposed to be rarely used.
381:
382: PROCEDURE Get_Applicable_Payment_Formats(
383: p_api_version IN NUMBER,
384: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE ,
385: x_return_status OUT NOCOPY VARCHAR2 ,
386: x_msg_count OUT NOCOPY NUMBER ,
387: x_msg_data OUT NOCOPY VARCHAR2 ,
388: x_payment_formats_tbl OUT NOCOPY Payment_Format_Tab_Type
417:
418: print_debuginfo(l_module_name, 'ENTER');
419:
420: -- Standard call to check for call compatibility.
421: IF NOT FND_API.Compatible_API_Call(l_api_version,
422: p_api_version,
423: l_api_name,
424: G_PKG_NAME) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: IF NOT FND_API.Compatible_API_Call(l_api_version,
422: p_api_version,
423: l_api_name,
424: G_PKG_NAME) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427:
428: -- Initialize message list if p_init_msg_list is set to TRUE.
429: IF FND_API.to_Boolean(p_init_msg_list) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427:
428: -- Initialize message list if p_init_msg_list is set to TRUE.
429: IF FND_API.to_Boolean(p_init_msg_list) THEN
430: FND_MSG_PUB.initialize;
431: END IF;
432:
433: -- Initialize API return status to success
430: FND_MSG_PUB.initialize;
431: END IF;
432:
433: -- Initialize API return status to success
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435:
436: -- Start of API body.
437:
438: OPEN payment_formats_csr();
453:
454: print_debuginfo(l_module_name, 'RETURN');
455:
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
460: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
461: print_debuginfo(l_module_name,'SQLerr is :'
454: print_debuginfo(l_module_name, 'RETURN');
455:
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
460: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
461: print_debuginfo(l_module_name,'SQLerr is :'
462: || substr(SQLERRM, 1, 150));
459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
460: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
461: print_debuginfo(l_module_name,'SQLerr is :'
462: || substr(SQLERRM, 1, 150));
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
466: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
467: print_debuginfo(l_module_name,'SQLerr is :'
460: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
461: print_debuginfo(l_module_name,'SQLerr is :'
462: || substr(SQLERRM, 1, 150));
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
466: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
467: print_debuginfo(l_module_name,'SQLerr is :'
468: || substr(SQLERRM, 1, 150));
466: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
467: print_debuginfo(l_module_name,'SQLerr is :'
468: || substr(SQLERRM, 1, 150));
469: WHEN OTHERS THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
473: THEN
474: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
501: -- End of comments
502:
503: PROCEDURE Get_Applicable_Payment_Methods(
504: p_api_version IN NUMBER,
505: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
506: p_ignore_payee_prefer IN VARCHAR2,
507: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
508: x_return_status OUT NOCOPY VARCHAR2,
509: x_msg_count OUT NOCOPY NUMBER,
662: print_debuginfo(l_module_name,'Payment Amount : '|| p_trxn_attributes_rec.payment_amount);
663: print_debuginfo(l_module_name,'Account Usage : '|| p_trxn_attributes_rec.payment_function);
664:
665: -- Standard call to check for call compatibility.
666: IF NOT FND_API.Compatible_API_Call(l_api_version,
667: p_api_version,
668: l_api_name,
669: G_PKG_NAME) THEN
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
666: IF NOT FND_API.Compatible_API_Call(l_api_version,
667: p_api_version,
668: l_api_name,
669: G_PKG_NAME) THEN
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: END IF;
672:
673: -- Initialize message list if p_init_msg_list is set to TRUE.
674: IF FND_API.to_Boolean(p_init_msg_list) THEN
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: END IF;
672:
673: -- Initialize message list if p_init_msg_list is set to TRUE.
674: IF FND_API.to_Boolean(p_init_msg_list) THEN
675: FND_MSG_PUB.initialize;
676: END IF;
677:
678: -- Initialize API return status to success
675: FND_MSG_PUB.initialize;
676: END IF;
677:
678: -- Initialize API return status to success
679: x_return_status := FND_API.G_RET_STS_SUCCESS;
680:
681: -- Check for mandatory params
682: IF (p_trxn_attributes_rec.application_id IS NULL) THEN
683: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Application Id'' missing.');
683: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Application Id'' missing.');
684: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
685: FND_MESSAGE.SET_TOKEN('PARAM', 'Application Id');
686: FND_MSG_PUB.Add;
687: RAISE FND_API.G_EXC_ERROR;
688: END IF;
689:
690: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
691: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
691: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
692: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
693: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity Id');
694: FND_MSG_PUB.Add;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
699: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
699: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
700: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
701: FND_MESSAGE.SET_TOKEN('PARAM', 'Payee Party Id');
702: FND_MSG_PUB.Add;
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
706: IF (p_trxn_attributes_rec.pay_proc_trxn_type_code IS NULL) THEN
707: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Transaction Type Id'' missing.');
707: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Transaction Type Id'' missing.');
708: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
709: FND_MESSAGE.SET_TOKEN('PARAM', 'Transaction Type Id');
710: FND_MSG_PUB.Add;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
715: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
715: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
716: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
717: FND_MESSAGE.SET_TOKEN('PARAM', 'Payment Currency');
718: FND_MSG_PUB.Add;
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
721:
722: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
723: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
723: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
724: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
725: FND_MESSAGE.SET_TOKEN('PARAM', 'Account Usage');
726: FND_MSG_PUB.Add;
727: RAISE FND_API.G_EXC_ERROR;
728: END IF;
729:
730: -- Fetch Accounting Currency and 1st part Payer country
731: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NOT NULL) THEN
870: print_debuginfo(l_module_name,'Error: No Payment Methods Applicable');
871:
872: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_METHODS');
873: FND_MSG_PUB.Add;
874: raise FND_API.G_EXC_ERROR;
875: ELSE
876: print_debuginfo(l_module_name,'Applicable Payment Methods Count : '|| l_pmtmthd_table.COUNT);
877: x_payment_methods_tbl := l_pmtmthd_table;
878: END IF;
883:
884: print_debuginfo(l_module_name, 'RETURN');
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
890: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
891: print_debuginfo(l_module_name,'SQLerr is :'
884: print_debuginfo(l_module_name, 'RETURN');
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
890: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
891: print_debuginfo(l_module_name,'SQLerr is :'
892: || substr(SQLERRM, 1, 150));
889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
890: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
891: print_debuginfo(l_module_name,'SQLerr is :'
892: || substr(SQLERRM, 1, 150));
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
896: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
897: print_debuginfo(l_module_name,'SQLerr is :'
890: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
891: print_debuginfo(l_module_name,'SQLerr is :'
892: || substr(SQLERRM, 1, 150));
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
896: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
897: print_debuginfo(l_module_name,'SQLerr is :'
898: || substr(SQLERRM, 1, 150));
896: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
897: print_debuginfo(l_module_name,'SQLerr is :'
898: || substr(SQLERRM, 1, 150));
899: WHEN OTHERS THEN
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901:
902: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
903: THEN
904: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
933: -- End of comments
934:
935: PROCEDURE Get_Applicable_Pmt_Profiles(
936: p_api_version IN NUMBER,
937: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
938: p_ppp_drivers_rec IN PPP_Drivers_Rec_Type,
939: x_return_status OUT NOCOPY VARCHAR2,
940: x_msg_count OUT NOCOPY NUMBER,
941: x_msg_data OUT NOCOPY VARCHAR2,
1070: || ' combination ...'
1071: );
1072:
1073: -- Standard call to check for call compatibility.
1074: IF NOT FND_API.Compatible_API_Call(
1075: l_api_version,
1076: p_api_version,
1077: l_api_name,
1078: G_PKG_NAME) THEN
1075: l_api_version,
1076: p_api_version,
1077: l_api_name,
1078: G_PKG_NAME) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: END IF;
1081:
1082: -- Initialize message list if p_init_msg_list is set to TRUE.
1083: IF FND_API.to_Boolean(p_init_msg_list) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: END IF;
1081:
1082: -- Initialize message list if p_init_msg_list is set to TRUE.
1083: IF FND_API.to_Boolean(p_init_msg_list) THEN
1084: FND_MSG_PUB.initialize;
1085: END IF;
1086:
1087: -- Initialize API return status to success
1084: FND_MSG_PUB.initialize;
1085: END IF;
1086:
1087: -- Initialize API return status to success
1088: x_return_status := FND_API.G_RET_STS_SUCCESS;
1089:
1090: --
1091: -- Pick up all payment profiles that match the given profile drivers.
1092: --
1103: print_debuginfo(l_module_name,'Error: No applicable payment profiles '
1104: || 'were found.');
1105: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_PROFILES');
1106: FND_MSG_PUB.Add;
1107: raise FND_API.G_EXC_ERROR;
1108: ELSE
1109: print_debuginfo(l_module_name, 'Count of applicable payment profiles: '
1110: || l_pmt_profs_tab.COUNT);
1111: x_payment_profiles_tbl := l_pmt_profs_tab;
1120: print_debuginfo(l_module_name, 'RETURN');
1121:
1122: EXCEPTION
1123:
1124: WHEN FND_API.G_EXC_ERROR THEN
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1127: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1128: || 'during call to API ');
1121:
1122: EXCEPTION
1123:
1124: WHEN FND_API.G_EXC_ERROR THEN
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1127: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1128: || 'during call to API ');
1129: print_debuginfo(l_module_name, 'SQLerr is :'
1128: || 'during call to API ');
1129: print_debuginfo(l_module_name, 'SQLerr is :'
1130: || substr(SQLERRM, 1, 150));
1131:
1132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1135: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1136: || 'call to API ');
1129: print_debuginfo(l_module_name, 'SQLerr is :'
1130: || substr(SQLERRM, 1, 150));
1131:
1132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1135: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1136: || 'call to API ');
1137: print_debuginfo(l_module_name,'SQLerr is :'
1137: print_debuginfo(l_module_name,'SQLerr is :'
1138: || substr(SQLERRM, 1, 150));
1139:
1140: WHEN OTHERS THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142:
1143: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1144: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1145: END IF;
1184:
1185: PROCEDURE Get_Pmt_Profiles_Intersect(
1186: p_api_version IN NUMBER,
1187: p_init_msg_list IN VARCHAR2 DEFAULT
1188: FND_API.G_FALSE,
1189: p_ppp_drivers_tab IN PPP_Drivers_Tab_Type,
1190: x_return_status OUT NOCOPY VARCHAR2,
1191: x_msg_count OUT NOCOPY NUMBER,
1192: x_msg_data OUT NOCOPY VARCHAR2,
1211:
1212: print_debuginfo(l_module_name, 'ENTER');
1213:
1214: -- Standard call to check for call compatibility.
1215: IF NOT FND_API.Compatible_API_Call(
1216: l_api_version,
1217: p_api_version,
1218: l_api_name,
1219: G_PKG_NAME) THEN
1216: l_api_version,
1217: p_api_version,
1218: l_api_name,
1219: G_PKG_NAME) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean(p_init_msg_list) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean(p_init_msg_list) THEN
1225: FND_MSG_PUB.initialize;
1226: END IF;
1227:
1228: -- Initialize API return status to success
1225: FND_MSG_PUB.initialize;
1226: END IF;
1227:
1228: -- Initialize API return status to success
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230:
1231: --
1232: -- If no driver sets are given, do nothing
1233: --
1256: x_msg_data,
1257: l_prof_tab
1258: );
1259:
1260: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1261:
1262: /*
1263: * Add the returned list of payment profiles into
1264: * our list of payment profile tables.
1271: * We cannot proceed because the API call to get payment
1272: * profiles for a particular set of payment profile
1273: * drivers has failed. Raise an exception.
1274: */
1275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1276:
1277: END IF;
1278:
1279:
1460: print_debuginfo(l_module_name, 'RETURN');
1461:
1462: EXCEPTION
1463:
1464: WHEN FND_API.G_EXC_ERROR THEN
1465: x_return_status := FND_API.G_RET_STS_ERROR;
1466: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1467: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1468: || 'during call to API ');
1461:
1462: EXCEPTION
1463:
1464: WHEN FND_API.G_EXC_ERROR THEN
1465: x_return_status := FND_API.G_RET_STS_ERROR;
1466: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1467: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1468: || 'during call to API ');
1469: print_debuginfo(l_module_name, 'SQLerr is :'
1468: || 'during call to API ');
1469: print_debuginfo(l_module_name, 'SQLerr is :'
1470: || substr(SQLERRM, 1, 150));
1471:
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1474: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1475: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1476: || 'call to API ');
1469: print_debuginfo(l_module_name, 'SQLerr is :'
1470: || substr(SQLERRM, 1, 150));
1471:
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1474: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1475: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1476: || 'call to API ');
1477: print_debuginfo(l_module_name,'SQLerr is :'
1477: print_debuginfo(l_module_name,'SQLerr is :'
1478: || substr(SQLERRM, 1, 150));
1479:
1480: WHEN OTHERS THEN
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1482:
1483: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1484: THEN
1485:
1515: -- End of comments
1516:
1517: PROCEDURE Get_Applicable_Payment_Reasons(
1518: p_api_version IN NUMBER,
1519: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE ,
1520: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
1521: x_return_status OUT NOCOPY VARCHAR2 ,
1522: x_msg_count OUT NOCOPY NUMBER ,
1523: x_msg_data OUT NOCOPY VARCHAR2 ,
1551: BEGIN
1552: print_debuginfo(l_module_name,'ENTER');
1553:
1554: -- Standard call to check for call compatibility.
1555: IF NOT FND_API.Compatible_API_Call(l_api_version,
1556: p_api_version,
1557: l_api_name,
1558: G_PKG_NAME) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: IF NOT FND_API.Compatible_API_Call(l_api_version,
1556: p_api_version,
1557: l_api_name,
1558: G_PKG_NAME) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561:
1562: -- Initialize message list if p_init_msg_list is set to TRUE
1563: IF FND_API.to_Boolean(p_init_msg_list) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561:
1562: -- Initialize message list if p_init_msg_list is set to TRUE
1563: IF FND_API.to_Boolean(p_init_msg_list) THEN
1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success
1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success
1568: x_return_status := FND_API.G_RET_STS_SUCCESS;
1569:
1570: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
1571: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
1572: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
1571: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
1572: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
1573: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity Id');
1574: FND_MSG_PUB.Add;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF;
1577:
1578: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
1579: FETCH payer_country_csr INTO l_payer_country;
1583: print_debuginfo(l_module_name,'Error: First party country Not populated.');
1584: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
1585: FND_MESSAGE.SET_TOKEN('PARAM', 'First party country');
1586: FND_MSG_PUB.Add;
1587: RAISE FND_API.G_EXC_ERROR;
1588: END IF;
1589:
1590: OPEN payment_reason_csr(l_payer_country);
1591: FETCH payment_reason_csr BULK COLLECT INTO l_payment_reason_tbl;
1605:
1606: print_debuginfo(l_module_name, 'RETURN');
1607:
1608: EXCEPTION
1609: WHEN FND_API.G_EXC_ERROR THEN
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1612: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1613: print_debuginfo(l_module_name,'SQLerr is :'
1606: print_debuginfo(l_module_name, 'RETURN');
1607:
1608: EXCEPTION
1609: WHEN FND_API.G_EXC_ERROR THEN
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1612: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1613: print_debuginfo(l_module_name,'SQLerr is :'
1614: || substr(SQLERRM, 1, 150));
1611: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1612: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1613: print_debuginfo(l_module_name,'SQLerr is :'
1614: || substr(SQLERRM, 1, 150));
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1617: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1618: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1619: print_debuginfo(l_module_name,'SQLerr is :'
1612: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1613: print_debuginfo(l_module_name,'SQLerr is :'
1614: || substr(SQLERRM, 1, 150));
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1617: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1618: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1619: print_debuginfo(l_module_name,'SQLerr is :'
1620: || substr(SQLERRM, 1, 150));
1618: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1619: print_debuginfo(l_module_name,'SQLerr is :'
1620: || substr(SQLERRM, 1, 150));
1621: WHEN OTHERS THEN
1622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1623:
1624: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1625: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1626: END IF;
1652: -- End of comments
1653:
1654: PROCEDURE Get_Default_Payment_Attributes(
1655: p_api_version IN NUMBER,
1656: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
1657: p_ignore_payee_pref IN VARCHAR2,
1658: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
1659: x_return_status OUT NOCOPY VARCHAR2,
1660: x_msg_count OUT NOCOPY NUMBER,
1991: print_debuginfo(l_module_name,'Payment Amount : '|| p_trxn_attributes_rec.payment_amount);
1992: print_debuginfo(l_module_name,'Payment Function : '|| p_trxn_attributes_rec.payment_function);
1993:
1994: -- Standard call to check for call compatibility.
1995: IF NOT FND_API.Compatible_API_Call (l_api_version,
1996: p_api_version,
1997: l_api_name,
1998: G_PKG_NAME)
1999: THEN
1996: p_api_version,
1997: l_api_name,
1998: G_PKG_NAME)
1999: THEN
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001: END IF;
2002:
2003: -- Initialize message list if p_init_msg_list is set to TRUE.
2004: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001: END IF;
2002:
2003: -- Initialize message list if p_init_msg_list is set to TRUE.
2004: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2005: FND_MSG_PUB.initialize;
2006: END IF;
2007:
2008: -- Initialize API return status to success
2005: FND_MSG_PUB.initialize;
2006: END IF;
2007:
2008: -- Initialize API return status to success
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2010:
2011:
2012: /*
2013: * Fix for bug 5682499:
2297:
2298: print_debuginfo(l_module_name, 'RETURN');
2299:
2300: EXCEPTION
2301: WHEN FND_API.G_EXC_ERROR THEN
2302: x_return_status := FND_API.G_RET_STS_ERROR ;
2303: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2304: print_debuginfo(l_module_name,'SQLerr is :'
2305: || substr(SQLERRM, 1, 150));
2298: print_debuginfo(l_module_name, 'RETURN');
2299:
2300: EXCEPTION
2301: WHEN FND_API.G_EXC_ERROR THEN
2302: x_return_status := FND_API.G_RET_STS_ERROR ;
2303: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2304: print_debuginfo(l_module_name,'SQLerr is :'
2305: || substr(SQLERRM, 1, 150));
2306: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2305: || substr(SQLERRM, 1, 150));
2306: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2308:
2309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2311: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2312: print_debuginfo(l_module_name,'SQLerr is :'
2313: || substr(SQLERRM, 1, 150));
2306: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2308:
2309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2311: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2312: print_debuginfo(l_module_name,'SQLerr is :'
2313: || substr(SQLERRM, 1, 150));
2314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2315: p_data => x_msg_data);
2316:
2317: WHEN OTHERS THEN
2318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2319: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2320: print_debuginfo(l_module_name,'SQLerr is :'
2321: || substr(SQLERRM, 1, 150));
2322: IF (FND_MSG_PUB.Check_Msg_Level
2349: -- End of comments
2350:
2351: PROCEDURE Get_Default_Payee_Bank_Acc(
2352: p_api_version IN NUMBER,
2353: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
2354: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
2355: x_return_status OUT NOCOPY VARCHAR2,
2356: x_msg_count OUT NOCOPY NUMBER,
2357: x_msg_data OUT NOCOPY VARCHAR2,
2419: print_debuginfo(l_module_name,'Payment Currency : '|| p_trxn_attributes_rec.payment_currency);
2420: print_debuginfo(l_module_name,'Payment Function : '|| p_trxn_attributes_rec.payment_function);
2421:
2422: -- Standard call to check for call compatibility.
2423: IF NOT FND_API.Compatible_API_Call (l_api_version,
2424: p_api_version,
2425: l_api_name,
2426: G_PKG_NAME)
2427: THEN
2424: p_api_version,
2425: l_api_name,
2426: G_PKG_NAME)
2427: THEN
2428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2430:
2431: -- Initialize message list if p_init_msg_list is set to TRUE.
2432: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2430:
2431: -- Initialize message list if p_init_msg_list is set to TRUE.
2432: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2433: FND_MSG_PUB.initialize;
2434: END IF;
2435:
2436: -- Initialize API return status to success
2433: FND_MSG_PUB.initialize;
2434: END IF;
2435:
2436: -- Initialize API return status to success
2437: x_return_status := FND_API.G_RET_STS_SUCCESS;
2438:
2439: -- Start of API body
2440: OPEN payee_bankaccount_cur(p_trxn_attributes_rec.Payee_Party_Id,
2441: p_trxn_attributes_rec.Payee_Party_Site_Id,
2455:
2456: print_debuginfo(l_module_name, 'RETURN');
2457:
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: x_return_status := FND_API.G_RET_STS_ERROR ;
2461: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2462: print_debuginfo(l_module_name,'SQLerr is :'
2463: || substr(SQLERRM, 1, 150));
2456: print_debuginfo(l_module_name, 'RETURN');
2457:
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: x_return_status := FND_API.G_RET_STS_ERROR ;
2461: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2462: print_debuginfo(l_module_name,'SQLerr is :'
2463: || substr(SQLERRM, 1, 150));
2464: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2463: || substr(SQLERRM, 1, 150));
2464: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2465: p_data => x_msg_data);
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2469: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2470: print_debuginfo(l_module_name,'SQLerr is :'
2471: || substr(SQLERRM, 1, 150));
2464: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2465: p_data => x_msg_data);
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2469: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2470: print_debuginfo(l_module_name,'SQLerr is :'
2471: || substr(SQLERRM, 1, 150));
2472: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2472: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2473: p_data => x_msg_data);
2474:
2475: WHEN OTHERS THEN
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2477: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2478: print_debuginfo(l_module_name,'SQLerr is :'
2479: || substr(SQLERRM, 1, 150));
2480: IF (FND_MSG_PUB.Check_Msg_Level
2509: -- End of comments
2510:
2511: PROCEDURE Get_Payment_Field_Properties (
2512: p_api_version IN NUMBER,
2513: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
2514: p_payment_method_id IN
2515: IBY_PAYMENT_METHODS_VL.payment_method_code%TYPE,
2516: x_return_status OUT NOCOPY VARCHAR2,
2517: x_msg_count OUT NOCOPY NUMBER,
2550: print_debuginfo(l_module_name, 'ENTER');
2551: print_debuginfo(l_module_name,'Payment Method Id : '|| p_payment_method_id);
2552:
2553: -- Standard call to check for call compatibility.
2554: IF NOT FND_API.Compatible_API_Call (l_api_version,
2555: p_api_version,
2556: l_api_name,
2557: G_PKG_NAME) THEN
2558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2554: IF NOT FND_API.Compatible_API_Call (l_api_version,
2555: p_api_version,
2556: l_api_name,
2557: G_PKG_NAME) THEN
2558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2559: END IF;
2560:
2561: -- Initialize message list if p_init_msg_list is set to TRUE.
2562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2559: END IF;
2560:
2561: -- Initialize message list if p_init_msg_list is set to TRUE.
2562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2563: FND_MSG_PUB.initialize;
2564: END IF;
2565:
2566: -- Initialize API return status to success
2563: FND_MSG_PUB.initialize;
2564: END IF;
2565:
2566: -- Initialize API return status to success
2567: x_return_status := FND_API.G_RET_STS_SUCCESS;
2568: -- print_debuginfo(l_module_name,'Before fetch');
2569: OPEN pmt_field_prop_csr(p_payment_method_id);
2570: FETCH pmt_field_prop_csr INTO l_Payment_Field_Properties;
2571:
2574: print_debuginfo(l_module_name,'Error: Payment Method is inactive.');
2575: FND_MESSAGE.set_name('IBY', 'IBY_INACTIVE_ATTRIBUTE');
2576: FND_MESSAGE.SET_TOKEN('PARAM', 'Payment Method');
2577: FND_MSG_PUB.Add;
2578: RAISE FND_API.G_EXC_ERROR;
2579: ELSE
2580: x_Payment_Field_Properties := l_Payment_Field_Properties;
2581: END IF;
2582:
2589: p_data => x_msg_data);
2590:
2591: print_debuginfo(l_module_name, 'RETURN');
2592: EXCEPTION
2593: WHEN FND_API.G_EXC_ERROR THEN
2594: x_return_status := FND_API.G_RET_STS_ERROR ;
2595: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2596: print_debuginfo(l_module_name,'SQLerr is :'
2597: || substr(SQLERRM, 1, 150));
2590:
2591: print_debuginfo(l_module_name, 'RETURN');
2592: EXCEPTION
2593: WHEN FND_API.G_EXC_ERROR THEN
2594: x_return_status := FND_API.G_RET_STS_ERROR ;
2595: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2596: print_debuginfo(l_module_name,'SQLerr is :'
2597: || substr(SQLERRM, 1, 150));
2598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2597: || substr(SQLERRM, 1, 150));
2598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2599: p_data => x_msg_data);
2600:
2601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2603: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2604: print_debuginfo(l_module_name,'SQLerr is :'
2605: || substr(SQLERRM, 1, 150));
2598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2599: p_data => x_msg_data);
2600:
2601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2603: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2604: print_debuginfo(l_module_name,'SQLerr is :'
2605: || substr(SQLERRM, 1, 150));
2606: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2606: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2607: p_data => x_msg_data);
2608:
2609: WHEN OTHERS THEN
2610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2611: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2612: print_debuginfo(l_module_name,'SQLerr is :'
2613: || substr(SQLERRM, 1, 150));
2614: IF (FND_MSG_PUB.Check_Msg_Level
2645: -- End of comments
2646:
2647: PROCEDURE Validate_Documents(
2648: p_api_version IN NUMBER,
2649: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
2650: p_document_id IN IBY_DOCS_PAYABLE_ALL.document_payable_id%TYPE,
2651: x_return_status OUT NOCOPY VARCHAR2,
2652: x_msg_count OUT NOCOPY NUMBER,
2653: x_msg_data OUT NOCOPY VARCHAR2
2663:
2664: print_debuginfo(l_module_name, 'ENTER');
2665:
2666: -- Standard call to check for call compatibility.
2667: IF NOT FND_API.Compatible_API_Call (l_api_version,
2668: p_api_version,
2669: l_api_name,
2670: G_PKG_NAME)
2671: THEN
2668: p_api_version,
2669: l_api_name,
2670: G_PKG_NAME)
2671: THEN
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: -- Initialize message list if p_init_msg_list is set to TRUE.
2676: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: -- Initialize message list if p_init_msg_list is set to TRUE.
2676: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2677: FND_MSG_PUB.initialize;
2678: END IF;
2679:
2680: -- Initialize API return status to success
2677: FND_MSG_PUB.initialize;
2678: END IF;
2679:
2680: -- Initialize API return status to success
2681: x_return_status := FND_API.G_RET_STS_SUCCESS;
2682:
2683: -- Start of API body.
2684:
2685: IBY_VALIDATIONSETS_PUB.performOnlineValidations(p_document_id,l_return_status);
2684:
2685: IBY_VALIDATIONSETS_PUB.performOnlineValidations(p_document_id,l_return_status);
2686:
2687: IF (l_return_status = -1) THEN
2688: x_return_status := FND_API.G_RET_STS_ERROR;
2689: ELSE
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: END IF;
2692:
2686:
2687: IF (l_return_status = -1) THEN
2688: x_return_status := FND_API.G_RET_STS_ERROR;
2689: ELSE
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: END IF;
2692:
2693: -- End of API body.
2694:
2698:
2699: print_debuginfo(l_module_name, 'RETURN');
2700:
2701: EXCEPTION
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: x_return_status := FND_API.G_RET_STS_ERROR ;
2704: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2705: print_debuginfo(l_module_name,'SQLerr is :'
2706: || substr(SQLERRM, 1, 150));
2699: print_debuginfo(l_module_name, 'RETURN');
2700:
2701: EXCEPTION
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: x_return_status := FND_API.G_RET_STS_ERROR ;
2704: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2705: print_debuginfo(l_module_name,'SQLerr is :'
2706: || substr(SQLERRM, 1, 150));
2707: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2706: || substr(SQLERRM, 1, 150));
2707: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2708: p_data => x_msg_data);
2709:
2710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2712: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2713: print_debuginfo(l_module_name,'SQLerr is :'
2714: || substr(SQLERRM, 1, 150));
2707: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2708: p_data => x_msg_data);
2709:
2710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2712: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2713: print_debuginfo(l_module_name,'SQLerr is :'
2714: || substr(SQLERRM, 1, 150));
2715: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2715: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2716: p_data => x_msg_data);
2717:
2718: WHEN OTHERS THEN
2719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2720: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2721: print_debuginfo(l_module_name,'SQLerr is :'
2722: || substr(SQLERRM, 1, 150));
2723: IF (FND_MSG_PUB.Check_Msg_Level