83: -- End of comments
84:
85: PROCEDURE Get_Appl_Delivery_Channels (
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
88: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
89: x_return_status OUT NOCOPY VARCHAR2,
90: x_msg_count OUT NOCOPY NUMBER,
91: x_msg_data OUT NOCOPY VARCHAR2,
124: print_debuginfo(l_module_name,'First party LE id : '|| p_trxn_attributes_rec.payer_legal_entity_id);
125:
126: END IF;
127: -- Standard call to check for call compatibility.
128: IF NOT FND_API.Compatible_API_Call(l_api_version,
129: p_api_version,
130: l_api_name,
131: G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: IF NOT FND_API.Compatible_API_Call(l_api_version,
129: p_api_version,
130: l_api_name,
131: G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean(p_init_msg_list) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean(p_init_msg_list) THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142:
143: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
144: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
145: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
146: END IF;
147: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
148: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
149: FND_MSG_PUB.Add;
150: RAISE FND_API.G_EXC_ERROR;
151: END IF;
152:
153: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
154: FETCH payer_country_csr INTO l_payer_country;
160: END IF;
161: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
162: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity country');
163: FND_MSG_PUB.Add;
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166:
167: OPEN delivery_channels_csr(l_payer_country);
168: FETCH delivery_channels_csr BULK COLLECT INTO l_delivery_channels_tbl;
188: print_debuginfo(l_module_name, 'RETURN');
189:
190: END IF;
191: EXCEPTION
192: WHEN FND_API.G_EXC_ERROR THEN
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
195: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
196: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
189:
190: END IF;
191: EXCEPTION
192: WHEN FND_API.G_EXC_ERROR THEN
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
195: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
196: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
197: print_debuginfo(l_module_name,'SQLerr is :'
196: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
197: print_debuginfo(l_module_name,'SQLerr is :'
198: || substr(SQLERRM, 1, 150));
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
203: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
204: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
197: print_debuginfo(l_module_name,'SQLerr is :'
198: || substr(SQLERRM, 1, 150));
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
203: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
204: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
205: print_debuginfo(l_module_name,'SQLerr is :'
205: print_debuginfo(l_module_name,'SQLerr is :'
206: || substr(SQLERRM, 1, 150));
207: END IF;
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210:
211: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
212: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
213: END IF;
241: -- End of comments
242:
243: PROCEDURE Get_Applicable_Payee_BankAccts (
244: p_api_version IN NUMBER,
245: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
246: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
247: x_return_status OUT NOCOPY VARCHAR2,
248: x_msg_count OUT NOCOPY NUMBER,
249: x_msg_data OUT NOCOPY VARCHAR2,
314: print_debuginfo(l_module_name,'Account Usage : '|| p_trxn_attributes_rec.payment_function);
315:
316: END IF;
317: -- Standard call to check for call compatibility.
318: IF NOT FND_API.Compatible_API_Call(l_api_version,
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME) THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: IF NOT FND_API.Compatible_API_Call(l_api_version,
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME) THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: END IF;
324:
325: -- Initialize message list if p_init_msg_list is set to TRUE.
326: IF FND_API.to_Boolean(p_init_msg_list) THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: END IF;
324:
325: -- Initialize message list if p_init_msg_list is set to TRUE.
326: IF FND_API.to_Boolean(p_init_msg_list) THEN
327: FND_MSG_PUB.initialize;
328: END IF;
329:
330: -- Initialize API return status to success
327: FND_MSG_PUB.initialize;
328: END IF;
329:
330: -- Initialize API return status to success
331: x_return_status := FND_API.G_RET_STS_SUCCESS;
332:
333: -- Check for mandatory params
334: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
335: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
337: END IF;
338: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
339: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
340: FND_MSG_PUB.Add;
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343:
344: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
345: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
347: END IF;
348: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
349: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
350: FND_MSG_PUB.Add;
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
355: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
357: END IF;
358: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
359: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
364: -- Start of API body.
365: OPEN payee_bankacct_csr(p_trxn_attributes_rec.Payee_Party_Id,
393: print_debuginfo(l_module_name, 'RETURN');
394:
395: END IF;
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
400: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
401: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
394:
395: END IF;
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
400: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
401: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
402: print_debuginfo(l_module_name,'SQLerr is :'
401: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
402: print_debuginfo(l_module_name,'SQLerr is :'
403: || substr(SQLERRM, 1, 150));
404: END IF;
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
409: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
402: print_debuginfo(l_module_name,'SQLerr is :'
403: || substr(SQLERRM, 1, 150));
404: END IF;
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
409: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
410: print_debuginfo(l_module_name,'SQLerr is :'
410: print_debuginfo(l_module_name,'SQLerr is :'
411: || substr(SQLERRM, 1, 150));
412: END IF;
413: WHEN OTHERS THEN
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415:
416: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
417: THEN
418: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
448: -- this procedure to get the appliable payment formats is supposed to be rarely used.
449:
450: PROCEDURE Get_Applicable_Payment_Formats(
451: p_api_version IN NUMBER,
452: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE ,
453: x_return_status OUT NOCOPY VARCHAR2 ,
454: x_msg_count OUT NOCOPY NUMBER ,
455: x_msg_data OUT NOCOPY VARCHAR2 ,
456: x_payment_formats_tbl OUT NOCOPY Payment_Format_Tab_Type
487: print_debuginfo(l_module_name, 'ENTER');
488:
489: END IF;
490: -- Standard call to check for call compatibility.
491: IF NOT FND_API.Compatible_API_Call(l_api_version,
492: p_api_version,
493: l_api_name,
494: G_PKG_NAME) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: IF NOT FND_API.Compatible_API_Call(l_api_version,
492: p_api_version,
493: l_api_name,
494: G_PKG_NAME) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: END IF;
497:
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean(p_init_msg_list) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: END IF;
497:
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean(p_init_msg_list) THEN
500: FND_MSG_PUB.initialize;
501: END IF;
502:
503: -- Initialize API return status to success
500: FND_MSG_PUB.initialize;
501: END IF;
502:
503: -- Initialize API return status to success
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505:
506: -- Start of API body.
507:
508: OPEN payment_formats_csr();
529: print_debuginfo(l_module_name, 'RETURN');
530:
531: END IF;
532: EXCEPTION
533: WHEN FND_API.G_EXC_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
536: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
537: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
530:
531: END IF;
532: EXCEPTION
533: WHEN FND_API.G_EXC_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
536: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
537: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
538: print_debuginfo(l_module_name,'SQLerr is :'
537: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
538: print_debuginfo(l_module_name,'SQLerr is :'
539: || substr(SQLERRM, 1, 150));
540: END IF;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
545: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
538: print_debuginfo(l_module_name,'SQLerr is :'
539: || substr(SQLERRM, 1, 150));
540: END IF;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
545: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
546: print_debuginfo(l_module_name,'SQLerr is :'
546: print_debuginfo(l_module_name,'SQLerr is :'
547: || substr(SQLERRM, 1, 150));
548: END IF;
549: WHEN OTHERS THEN
550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
551:
552: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
553: THEN
554: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
583: -- End of comments
584:
585: PROCEDURE Get_Applicable_Payment_Methods(
586: p_api_version IN NUMBER,
587: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
588: p_ignore_payee_prefer IN VARCHAR2,
589: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
590: x_return_status OUT NOCOPY VARCHAR2,
591: x_msg_count OUT NOCOPY NUMBER,
745: print_debuginfo(l_module_name,'Account Usage : '|| p_trxn_attributes_rec.payment_function);
746:
747: END IF;
748: -- Standard call to check for call compatibility.
749: IF NOT FND_API.Compatible_API_Call(l_api_version,
750: p_api_version,
751: l_api_name,
752: G_PKG_NAME) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: IF NOT FND_API.Compatible_API_Call(l_api_version,
750: p_api_version,
751: l_api_name,
752: G_PKG_NAME) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean(p_init_msg_list) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean(p_init_msg_list) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763:
764: -- Check for mandatory params
765: IF (p_trxn_attributes_rec.application_id IS NULL) THEN
766: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
768: END IF;
769: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
770: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_APP_ID'));
771: FND_MSG_PUB.Add;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
776: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
778: END IF;
779: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
780: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
781: FND_MSG_PUB.Add;
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784:
785: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
786: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
788: END IF;
789: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
790: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
791: FND_MSG_PUB.Add;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794:
795: IF (p_trxn_attributes_rec.pay_proc_trxn_type_code IS NULL) THEN
796: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
798: END IF;
799: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
800: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_TRANS_TYPE_ID'));
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
806: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
808: END IF;
809: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
810: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
811: FND_MSG_PUB.Add;
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
815: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
816: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
818: END IF;
819: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
820: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF;
824:
825: -- Fetch Accounting Currency and 1st part Payer country
826: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NOT NULL) THEN
989:
990: END IF;
991: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_METHODS');
992: FND_MSG_PUB.Add;
993: raise FND_API.G_EXC_ERROR;
994: ELSE
995: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
996: print_debuginfo(l_module_name,'Applicable Payment Methods Count : '|| l_pmtmthd_table.COUNT);
997: END IF;
1006: print_debuginfo(l_module_name, 'RETURN');
1007:
1008: END IF;
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR THEN
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1013: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1014: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1007:
1008: END IF;
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR THEN
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1013: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1014: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1015: print_debuginfo(l_module_name,'SQLerr is :'
1014: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1015: print_debuginfo(l_module_name,'SQLerr is :'
1016: || substr(SQLERRM, 1, 150));
1017: END IF;
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1021: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1022: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
1015: print_debuginfo(l_module_name,'SQLerr is :'
1016: || substr(SQLERRM, 1, 150));
1017: END IF;
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1021: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1022: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
1023: print_debuginfo(l_module_name,'SQLerr is :'
1023: print_debuginfo(l_module_name,'SQLerr is :'
1024: || substr(SQLERRM, 1, 150));
1025: END IF;
1026: WHEN OTHERS THEN
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1030: THEN
1031: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1062: -- End of comments
1063:
1064: PROCEDURE Get_Applicable_Pmt_Profiles(
1065: p_api_version IN NUMBER,
1066: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1067: p_ppp_drivers_rec IN PPP_Drivers_Rec_Type,
1068: x_return_status OUT NOCOPY VARCHAR2,
1069: x_msg_count OUT NOCOPY NUMBER,
1070: x_msg_data OUT NOCOPY VARCHAR2,
1201: );
1202:
1203: END IF;
1204: -- Standard call to check for call compatibility.
1205: IF NOT FND_API.Compatible_API_Call(
1206: l_api_version,
1207: p_api_version,
1208: l_api_name,
1209: G_PKG_NAME) THEN
1206: l_api_version,
1207: p_api_version,
1208: l_api_name,
1209: G_PKG_NAME) THEN
1210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1211: END IF;
1212:
1213: -- Initialize message list if p_init_msg_list is set to TRUE.
1214: IF FND_API.to_Boolean(p_init_msg_list) THEN
1210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1211: END IF;
1212:
1213: -- Initialize message list if p_init_msg_list is set to TRUE.
1214: IF FND_API.to_Boolean(p_init_msg_list) THEN
1215: FND_MSG_PUB.initialize;
1216: END IF;
1217:
1218: -- Initialize API return status to success
1215: FND_MSG_PUB.initialize;
1216: END IF;
1217:
1218: -- Initialize API return status to success
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1220:
1221: --
1222: -- Pick up all payment profiles that match the given profile drivers.
1223: --
1236: || 'were found.');
1237: END IF;
1238: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_PROFILES');
1239: FND_MSG_PUB.Add;
1240: raise FND_API.G_EXC_ERROR;
1241: ELSE
1242: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1243: print_debuginfo(l_module_name, 'Count of applicable payment profiles: '
1244: || l_pmt_profs_tab.COUNT);
1257:
1258: END IF;
1259: EXCEPTION
1260:
1261: WHEN FND_API.G_EXC_ERROR THEN
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1264: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1258: END IF;
1259: EXCEPTION
1260:
1261: WHEN FND_API.G_EXC_ERROR THEN
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1264: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1266: || 'during call to API ');
1267: print_debuginfo(l_module_name, 'SQLerr is :'
1268: || substr(SQLERRM, 1, 150));
1269:
1270: END IF;
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1274: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1275: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1268: || substr(SQLERRM, 1, 150));
1269:
1270: END IF;
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1274: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1275: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1276: || 'call to API ');
1278: || substr(SQLERRM, 1, 150));
1279:
1280: END IF;
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283:
1284: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1285: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1286: END IF;
1327:
1328: PROCEDURE Get_Pmt_Profiles_Intersect(
1329: p_api_version IN NUMBER,
1330: p_init_msg_list IN VARCHAR2 DEFAULT
1331: FND_API.G_FALSE,
1332: p_ppp_drivers_tab IN PPP_Drivers_Tab_Type,
1333: x_return_status OUT NOCOPY VARCHAR2,
1334: x_msg_count OUT NOCOPY NUMBER,
1335: x_msg_data OUT NOCOPY VARCHAR2,
1356: print_debuginfo(l_module_name, 'ENTER');
1357:
1358: END IF;
1359: -- Standard call to check for call compatibility.
1360: IF NOT FND_API.Compatible_API_Call(
1361: l_api_version,
1362: p_api_version,
1363: l_api_name,
1364: G_PKG_NAME) THEN
1361: l_api_version,
1362: p_api_version,
1363: l_api_name,
1364: G_PKG_NAME) THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367:
1368: -- Initialize message list if p_init_msg_list is set to TRUE.
1369: IF FND_API.to_Boolean(p_init_msg_list) THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367:
1368: -- Initialize message list if p_init_msg_list is set to TRUE.
1369: IF FND_API.to_Boolean(p_init_msg_list) THEN
1370: FND_MSG_PUB.initialize;
1371: END IF;
1372:
1373: -- Initialize API return status to success
1370: FND_MSG_PUB.initialize;
1371: END IF;
1372:
1373: -- Initialize API return status to success
1374: x_return_status := FND_API.G_RET_STS_SUCCESS;
1375:
1376: --
1377: -- If no driver sets are given, do nothing
1378: --
1403: x_msg_data,
1404: l_prof_tab
1405: );
1406:
1407: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1408:
1409: /*
1410: * Add the returned list of payment profiles into
1411: * our list of payment profile tables.
1418: * We cannot proceed because the API call to get payment
1419: * profiles for a particular set of payment profile
1420: * drivers has failed. Raise an exception.
1421: */
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423:
1424: END IF;
1425:
1426:
1635:
1636: END IF;
1637: EXCEPTION
1638:
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1642: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1643: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1636: END IF;
1637: EXCEPTION
1638:
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1642: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1643: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1644: || 'during call to API ');
1645: print_debuginfo(l_module_name, 'SQLerr is :'
1646: || substr(SQLERRM, 1, 150));
1647:
1648: END IF;
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1652: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1653: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1646: || substr(SQLERRM, 1, 150));
1647:
1648: END IF;
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1652: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1653: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1654: || 'call to API ');
1656: || substr(SQLERRM, 1, 150));
1657:
1658: END IF;
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661:
1662: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1663: THEN
1664:
1696: -- End of comments
1697:
1698: PROCEDURE Get_Applicable_Payment_Reasons(
1699: p_api_version IN NUMBER,
1700: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE ,
1701: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
1702: x_return_status OUT NOCOPY VARCHAR2 ,
1703: x_msg_count OUT NOCOPY NUMBER ,
1704: x_msg_data OUT NOCOPY VARCHAR2 ,
1734: print_debuginfo(l_module_name,'ENTER');
1735:
1736: END IF;
1737: -- Standard call to check for call compatibility.
1738: IF NOT FND_API.Compatible_API_Call(l_api_version,
1739: p_api_version,
1740: l_api_name,
1741: G_PKG_NAME) THEN
1742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1738: IF NOT FND_API.Compatible_API_Call(l_api_version,
1739: p_api_version,
1740: l_api_name,
1741: G_PKG_NAME) THEN
1742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1743: END IF;
1744:
1745: -- Initialize message list if p_init_msg_list is set to TRUE
1746: IF FND_API.to_Boolean(p_init_msg_list) THEN
1742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1743: END IF;
1744:
1745: -- Initialize message list if p_init_msg_list is set to TRUE
1746: IF FND_API.to_Boolean(p_init_msg_list) THEN
1747: FND_MSG_PUB.initialize;
1748: END IF;
1749:
1750: -- Initialize API return status to success
1747: FND_MSG_PUB.initialize;
1748: END IF;
1749:
1750: -- Initialize API return status to success
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752:
1753: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
1754: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1755: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
1756: END IF;
1757: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
1758: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
1759: FND_MSG_PUB.Add;
1760: RAISE FND_API.G_EXC_ERROR;
1761: END IF;
1762:
1763: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
1764: FETCH payer_country_csr INTO l_payer_country;
1770: END IF;
1771: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
1772: FND_MESSAGE.SET_TOKEN('PARAM', 'First party country');
1773: FND_MSG_PUB.Add;
1774: RAISE FND_API.G_EXC_ERROR;
1775: END IF;
1776:
1777: OPEN payment_reason_csr(l_payer_country);
1778: FETCH payment_reason_csr BULK COLLECT INTO l_payment_reason_tbl;
1798: print_debuginfo(l_module_name, 'RETURN');
1799:
1800: END IF;
1801: EXCEPTION
1802: WHEN FND_API.G_EXC_ERROR THEN
1803: x_return_status := FND_API.G_RET_STS_ERROR;
1804: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1806: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1799:
1800: END IF;
1801: EXCEPTION
1802: WHEN FND_API.G_EXC_ERROR THEN
1803: x_return_status := FND_API.G_RET_STS_ERROR;
1804: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1806: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1807: print_debuginfo(l_module_name,'SQLerr is :'
1806: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1807: print_debuginfo(l_module_name,'SQLerr is :'
1808: || substr(SQLERRM, 1, 150));
1809: END IF;
1810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1813: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1814: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1807: print_debuginfo(l_module_name,'SQLerr is :'
1808: || substr(SQLERRM, 1, 150));
1809: END IF;
1810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1813: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1814: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1815: print_debuginfo(l_module_name,'SQLerr is :'
1815: print_debuginfo(l_module_name,'SQLerr is :'
1816: || substr(SQLERRM, 1, 150));
1817: END IF;
1818: WHEN OTHERS THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820:
1821: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1822: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1823: END IF;
1851: -- End of comments
1852:
1853: PROCEDURE Get_Default_Payment_Attributes(
1854: p_api_version IN NUMBER,
1855: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
1856: p_ignore_payee_pref IN VARCHAR2,
1857: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
1858: x_return_status OUT NOCOPY VARCHAR2,
1859: x_msg_count OUT NOCOPY NUMBER,
2196: print_debuginfo(l_module_name,'Payment Function : '|| p_trxn_attributes_rec.payment_function);
2197:
2198: END IF;
2199: -- Standard call to check for call compatibility.
2200: IF NOT FND_API.Compatible_API_Call (l_api_version,
2201: p_api_version,
2202: l_api_name,
2203: G_PKG_NAME)
2204: THEN
2201: p_api_version,
2202: l_api_name,
2203: G_PKG_NAME)
2204: THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207:
2208: -- Initialize message list if p_init_msg_list is set to TRUE.
2209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207:
2208: -- Initialize message list if p_init_msg_list is set to TRUE.
2209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2210: FND_MSG_PUB.initialize;
2211: END IF;
2212:
2213: -- Initialize API return status to success
2210: FND_MSG_PUB.initialize;
2211: END IF;
2212:
2213: -- Initialize API return status to success
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215:
2216:
2217: /*
2218: * Fix for bug 5682499:
2561: print_debuginfo(l_module_name, 'RETURN');
2562:
2563: END IF;
2564: EXCEPTION
2565: WHEN FND_API.G_EXC_ERROR THEN
2566: x_return_status := FND_API.G_RET_STS_ERROR ;
2567: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2568: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2569: print_debuginfo(l_module_name,'SQLerr is :'
2562:
2563: END IF;
2564: EXCEPTION
2565: WHEN FND_API.G_EXC_ERROR THEN
2566: x_return_status := FND_API.G_RET_STS_ERROR ;
2567: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2568: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2569: print_debuginfo(l_module_name,'SQLerr is :'
2570: || substr(SQLERRM, 1, 150));
2571: END IF;
2572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2573: p_data => x_msg_data);
2574:
2575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2577: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2578: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2579: print_debuginfo(l_module_name,'SQLerr is :'
2572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2573: p_data => x_msg_data);
2574:
2575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2577: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2578: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2579: print_debuginfo(l_module_name,'SQLerr is :'
2580: || substr(SQLERRM, 1, 150));
2582: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2583: p_data => x_msg_data);
2584:
2585: WHEN OTHERS THEN
2586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2587: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2588: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2589: print_debuginfo(l_module_name,'SQLerr is :'
2590: || substr(SQLERRM, 1, 150));
2619: -- End of comments
2620:
2621: PROCEDURE Get_Default_Payee_Bank_Acc(
2622: p_api_version IN NUMBER,
2623: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
2624: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
2625: x_return_status OUT NOCOPY VARCHAR2,
2626: x_msg_count OUT NOCOPY NUMBER,
2627: x_msg_data OUT NOCOPY VARCHAR2,
2699: print_debuginfo(l_module_name,'Payment Function : '|| p_trxn_attributes_rec.payment_function);
2700:
2701: END IF;
2702: -- Standard call to check for call compatibility.
2703: IF NOT FND_API.Compatible_API_Call (l_api_version,
2704: p_api_version,
2705: l_api_name,
2706: G_PKG_NAME)
2707: THEN
2704: p_api_version,
2705: l_api_name,
2706: G_PKG_NAME)
2707: THEN
2708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2709: END IF;
2710:
2711: -- Initialize message list if p_init_msg_list is set to TRUE.
2712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2709: END IF;
2710:
2711: -- Initialize message list if p_init_msg_list is set to TRUE.
2712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2713: FND_MSG_PUB.initialize;
2714: END IF;
2715:
2716: -- Initialize API return status to success
2713: FND_MSG_PUB.initialize;
2714: END IF;
2715:
2716: -- Initialize API return status to success
2717: x_return_status := FND_API.G_RET_STS_SUCCESS;
2718:
2719: l_key := p_trxn_attributes_rec.Payee_Party_Id ||'$'|| p_trxn_attributes_rec.Payee_Party_Site_Id ||'$'|| p_trxn_attributes_rec.Supplier_Site_Id ||'$'|| p_trxn_attributes_rec.Payer_Org_Id ||'$'|| p_trxn_attributes_rec.Payer_Org_Type;
2720: l_key := l_key ||'$'|| p_trxn_attributes_rec.Payment_Currency ||'$'|| p_trxn_attributes_rec.Payment_Function;
2721: -- Start of API body.
2787: print_debuginfo(l_module_name, 'RETURN');
2788:
2789: END IF;
2790: EXCEPTION
2791: WHEN FND_API.G_EXC_ERROR THEN
2792: x_return_status := FND_API.G_RET_STS_ERROR ;
2793: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2794: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2795: print_debuginfo(l_module_name,'SQLerr is :'
2788:
2789: END IF;
2790: EXCEPTION
2791: WHEN FND_API.G_EXC_ERROR THEN
2792: x_return_status := FND_API.G_RET_STS_ERROR ;
2793: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2794: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2795: print_debuginfo(l_module_name,'SQLerr is :'
2796: || substr(SQLERRM, 1, 150));
2797: END IF;
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2799: p_data => x_msg_data);
2800:
2801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2803: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2804: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2805: print_debuginfo(l_module_name,'SQLerr is :'
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2799: p_data => x_msg_data);
2800:
2801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2803: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2804: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2805: print_debuginfo(l_module_name,'SQLerr is :'
2806: || substr(SQLERRM, 1, 150));
2808: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2809: p_data => x_msg_data);
2810:
2811: WHEN OTHERS THEN
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2813: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2814: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2815: print_debuginfo(l_module_name,'SQLerr is :'
2816: || substr(SQLERRM, 1, 150));
2847: -- End of comments
2848:
2849: PROCEDURE Get_Payment_Field_Properties (
2850: p_api_version IN NUMBER,
2851: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
2852: p_payment_method_id IN
2853: IBY_PAYMENT_METHODS_VL.payment_method_code%TYPE,
2854: x_return_status OUT NOCOPY VARCHAR2,
2855: x_msg_count OUT NOCOPY NUMBER,
2890: print_debuginfo(l_module_name,'Payment Method Id : '|| p_payment_method_id);
2891:
2892: END IF;
2893: -- Standard call to check for call compatibility.
2894: IF NOT FND_API.Compatible_API_Call (l_api_version,
2895: p_api_version,
2896: l_api_name,
2897: G_PKG_NAME) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2894: IF NOT FND_API.Compatible_API_Call (l_api_version,
2895: p_api_version,
2896: l_api_name,
2897: G_PKG_NAME) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2899: END IF;
2900:
2901: -- Initialize message list if p_init_msg_list is set to TRUE.
2902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2899: END IF;
2900:
2901: -- Initialize message list if p_init_msg_list is set to TRUE.
2902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2903: FND_MSG_PUB.initialize;
2904: END IF;
2905:
2906: -- Initialize API return status to success
2903: FND_MSG_PUB.initialize;
2904: END IF;
2905:
2906: -- Initialize API return status to success
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908: -- print_debuginfo(l_module_name,'Before fetch');
2909: OPEN pmt_field_prop_csr(p_payment_method_id);
2910: FETCH pmt_field_prop_csr INTO l_Payment_Field_Properties;
2911:
2916: END IF;
2917: FND_MESSAGE.set_name('IBY', 'IBY_INACTIVE_ATTRIBUTE');
2918: FND_MESSAGE.SET_TOKEN('PARAM', 'Payment Method');
2919: FND_MSG_PUB.Add;
2920: RAISE FND_API.G_EXC_ERROR;
2921: ELSE
2922: x_Payment_Field_Properties := l_Payment_Field_Properties;
2923: END IF;
2924:
2933: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2934: print_debuginfo(l_module_name, 'RETURN');
2935: END IF;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_ERROR THEN
2938: x_return_status := FND_API.G_RET_STS_ERROR ;
2939: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2940: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2941: print_debuginfo(l_module_name,'SQLerr is :'
2934: print_debuginfo(l_module_name, 'RETURN');
2935: END IF;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_ERROR THEN
2938: x_return_status := FND_API.G_RET_STS_ERROR ;
2939: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2940: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2941: print_debuginfo(l_module_name,'SQLerr is :'
2942: || substr(SQLERRM, 1, 150));
2943: END IF;
2944: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2945: p_data => x_msg_data);
2946:
2947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2949: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2950: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2951: print_debuginfo(l_module_name,'SQLerr is :'
2944: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2945: p_data => x_msg_data);
2946:
2947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2949: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2950: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2951: print_debuginfo(l_module_name,'SQLerr is :'
2952: || substr(SQLERRM, 1, 150));
2954: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2955: p_data => x_msg_data);
2956:
2957: WHEN OTHERS THEN
2958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2959: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2960: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2961: print_debuginfo(l_module_name,'SQLerr is :'
2962: || substr(SQLERRM, 1, 150));
2995: -- End of comments
2996:
2997: PROCEDURE Validate_Documents(
2998: p_api_version IN NUMBER,
2999: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
3000: p_document_id IN IBY_DOCS_PAYABLE_ALL.document_payable_id%TYPE,
3001: x_return_status OUT NOCOPY VARCHAR2,
3002: x_msg_count OUT NOCOPY NUMBER,
3003: x_msg_data OUT NOCOPY VARCHAR2
3015: print_debuginfo(l_module_name, 'ENTER');
3016:
3017: END IF;
3018: -- Standard call to check for call compatibility.
3019: IF NOT FND_API.Compatible_API_Call (l_api_version,
3020: p_api_version,
3021: l_api_name,
3022: G_PKG_NAME)
3023: THEN
3020: p_api_version,
3021: l_api_name,
3022: G_PKG_NAME)
3023: THEN
3024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3025: END IF;
3026:
3027: -- Initialize message list if p_init_msg_list is set to TRUE.
3028: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3025: END IF;
3026:
3027: -- Initialize message list if p_init_msg_list is set to TRUE.
3028: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3029: FND_MSG_PUB.initialize;
3030: END IF;
3031:
3032: -- Initialize API return status to success
3029: FND_MSG_PUB.initialize;
3030: END IF;
3031:
3032: -- Initialize API return status to success
3033: x_return_status := FND_API.G_RET_STS_SUCCESS;
3034:
3035: -- Start of API body.
3036:
3037: IBY_VALIDATIONSETS_PUB.performOnlineValidations(p_document_id,l_return_status);
3036:
3037: IBY_VALIDATIONSETS_PUB.performOnlineValidations(p_document_id,l_return_status);
3038:
3039: IF (l_return_status = -1) THEN
3040: x_return_status := FND_API.G_RET_STS_ERROR;
3041: ELSE
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043: END IF;
3044:
3038:
3039: IF (l_return_status = -1) THEN
3040: x_return_status := FND_API.G_RET_STS_ERROR;
3041: ELSE
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043: END IF;
3044:
3045: -- End of API body.
3046:
3052: print_debuginfo(l_module_name, 'RETURN');
3053:
3054: END IF;
3055: EXCEPTION
3056: WHEN FND_API.G_EXC_ERROR THEN
3057: x_return_status := FND_API.G_RET_STS_ERROR ;
3058: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3059: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3060: print_debuginfo(l_module_name,'SQLerr is :'
3053:
3054: END IF;
3055: EXCEPTION
3056: WHEN FND_API.G_EXC_ERROR THEN
3057: x_return_status := FND_API.G_RET_STS_ERROR ;
3058: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3059: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3060: print_debuginfo(l_module_name,'SQLerr is :'
3061: || substr(SQLERRM, 1, 150));
3062: END IF;
3063: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3064: p_data => x_msg_data);
3065:
3066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3068: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3069: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3070: print_debuginfo(l_module_name,'SQLerr is :'
3063: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3064: p_data => x_msg_data);
3065:
3066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3068: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3069: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3070: print_debuginfo(l_module_name,'SQLerr is :'
3071: || substr(SQLERRM, 1, 150));
3073: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3076: WHEN OTHERS THEN
3077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3078: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3079: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3080: print_debuginfo(l_module_name,'SQLerr is :'
3081: || substr(SQLERRM, 1, 150));
3526: -- End of comments
3527:
3528: PROCEDURE Get_Applicable_Payee_Acc_list (
3529: p_api_version IN NUMBER,
3530: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
3531: p_trxn_attributes_rec IN Trxn_Attributes_Rec_Type,
3532: x_return_status OUT NOCOPY VARCHAR2,
3533: x_msg_count OUT NOCOPY NUMBER,
3534: x_msg_data OUT NOCOPY VARCHAR2,
3605: print_debuginfo(l_module_name,'Account Usage : '|| p_trxn_attributes_rec.payment_function);
3606:
3607: END IF;
3608: -- Standard call to check for call compatibility.
3609: IF NOT FND_API.Compatible_API_Call(l_api_version,
3610: p_api_version,
3611: l_api_name,
3612: G_PKG_NAME) THEN
3613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3609: IF NOT FND_API.Compatible_API_Call(l_api_version,
3610: p_api_version,
3611: l_api_name,
3612: G_PKG_NAME) THEN
3613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3614: END IF;
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean(p_init_msg_list) THEN
3613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3614: END IF;
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean(p_init_msg_list) THEN
3618: FND_MSG_PUB.initialize;
3619: END IF;
3620:
3621: -- Initialize API return status to success
3618: FND_MSG_PUB.initialize;
3619: END IF;
3620:
3621: -- Initialize API return status to success
3622: x_return_status := FND_API.G_RET_STS_SUCCESS;
3623:
3624: -- Check for mandatory params
3625: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
3626: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3628: END IF;
3629: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3630: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
3631: FND_MSG_PUB.Add;
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3634:
3635: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
3636: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3638: END IF;
3639: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3640: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
3641: FND_MSG_PUB.Add;
3642: RAISE FND_API.G_EXC_ERROR;
3643: END IF;
3644:
3645: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
3646: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3648: END IF;
3649: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3650: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
3651: FND_MSG_PUB.Add;
3652: RAISE FND_API.G_EXC_ERROR;
3653: END IF;
3654:
3655: -- Start of API body.
3656: OPEN payee_bankacct_csr(p_trxn_attributes_rec.Payee_Party_Id,
3684: print_debuginfo(l_module_name, 'RETURN');
3685:
3686: END IF;
3687: EXCEPTION
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: x_return_status := FND_API.G_RET_STS_ERROR;
3690: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3691: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3692: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3685:
3686: END IF;
3687: EXCEPTION
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: x_return_status := FND_API.G_RET_STS_ERROR;
3690: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3691: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3692: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3693: print_debuginfo(l_module_name,'SQLerr is :'
3692: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3693: print_debuginfo(l_module_name,'SQLerr is :'
3694: || substr(SQLERRM, 1, 150));
3695: END IF;
3696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3699: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3700: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3693: print_debuginfo(l_module_name,'SQLerr is :'
3694: || substr(SQLERRM, 1, 150));
3695: END IF;
3696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3699: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3700: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3701: print_debuginfo(l_module_name,'SQLerr is :'
3701: print_debuginfo(l_module_name,'SQLerr is :'
3702: || substr(SQLERRM, 1, 150));
3703: END IF;
3704: WHEN OTHERS THEN
3705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3706:
3707: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
3708: THEN
3709: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);