[Home] [Help]
170: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Payer_Instr_Assgn_Fail';
171: BEGIN
172:
173: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
174: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
175: END IF;
176:
177: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
178: iby_debug_pub.add('instr assignment id:=' || p_instr_assign_id,
174: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
175: END IF;
176:
177: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
178: iby_debug_pub.add('instr assignment id:=' || p_instr_assign_id,
179: G_LEVEL_STATEMENT,l_dbg_mod);
180: END IF;
181:
182: l_msg := 'IBY_INVALID_INSTR_ASSIGN';
190: FROM iby_pmt_instr_uses_all
191: WHERE (instrument_payment_use_id = p_instr_assign_id);
192:
193: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
194: iby_debug_pub.add('payer id:=' || l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
195: END IF;
196:
197: EXCEPTION
198: WHEN NO_DATA_FOUND THEN
196:
197: EXCEPTION
198: WHEN NO_DATA_FOUND THEN
199: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
200: iby_debug_pub.add('Exception: No Instrument found',G_LEVEL_EXCEPTION,l_dbg_mod);
201: END IF;
202: RETURN l_msg;
203: END;
204:
209: FROM iby_external_payers_all
210: WHERE (ext_payer_id = l_payer_id);
211:
212: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
213: iby_debug_pub.add('external payer count:=' || SQL%ROWCOUNT,G_LEVEL_STATEMENT,l_dbg_mod);
214: END IF;
215:
216: IF (SQL%ROWCOUNT < 1) THEN RETURN l_msg; END IF;
217:
216: IF (SQL%ROWCOUNT < 1) THEN RETURN l_msg; END IF;
217:
218: l_msg := 'IBY_INVALID_PARTY_CONTEXT';
219: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
220: iby_debug_pub.add('party id:=' || l_party_id,G_LEVEL_STATEMENT,l_dbg_mod);
221: END IF;
222: IF (l_party_id <> p_payer.Party_Id) THEN RETURN l_msg; END IF;
223:
224: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
221: END IF;
222: IF (l_party_id <> p_payer.Party_Id) THEN RETURN l_msg; END IF;
223:
224: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
225: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
226: END IF;
227:
228: RETURN null;
229: EXCEPTION
251: -- Bug: 7719030.
252: --Changing exception handling.
253: BEGIN
254: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
255: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
256: END IF;
257:
258:
259: SELECT instr_assignment_id, ext_payer_id
265: RETURN l_msg;
266: END;
267:
268: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
269: iby_debug_pub.add('checking instrument assignment',G_LEVEL_STATEMENT,l_dbg_mod);
270: END IF;
271: l_msg := Get_Payer_Instr_Assgn_Fail(l_instr_assign_id,p_payer);
272:
273: IF (NOT l_msg IS NULL) THEN RETURN l_msg; END IF;
272:
273: IF (NOT l_msg IS NULL) THEN RETURN l_msg; END IF;
274:
275: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
276: iby_debug_pub.add('EXIT',G_LEVEL_PROCEDURE,l_dbg_mod);
277: END IF;
278:
279: RETURN NULL;
280: EXCEPTION
295: FROM iby_sys_security_options;
296: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Extension_Encrypt_Mode';
297: BEGIN
298: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
299: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
300: END IF;
301:
302: IF (c_encrypt_mode%ISOPEN) THEN CLOSE c_encrypt_mode; END IF;
303:
305: FETCH c_encrypt_mode INTO l_mode;
306: CLOSE c_encrypt_mode;
307:
308: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
309: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
310: END IF;
311:
312: RETURN l_mode;
313: END Get_Extension_Encrypt_Mode;
323: l_tangible_id iby_trxn_summaries_all.tangibleid%TYPE;
324: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Tangible_Id';
325: BEGIN
326: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
327: iby_debug_pub.add('Enter with 4 params',G_LEVEL_PROCEDURE,l_dbg_mod);
328: END IF;
329:
330: l_tangible_id := p_app_short_name || '_' || p_order_id;
331:
336: l_tangible_id := l_tangible_id || '_' || p_trxn_ref2;
337: END IF;
338:
339: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
340: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
341: END IF;
342:
343: RETURN l_tangible_id;
344: END Get_Tangible_Id;
355: l_msg VARCHAR2(10);
356: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Tangible_Id(2)';
357: BEGIN
358: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
359: iby_debug_pub.add('Enter with 2 params',G_LEVEL_PROCEDURE,l_dbg_mod);
360: END IF;
361:
362: -- Bug# 8544953
363: -- This API returns customized PSON if the customer had implemented the custome code
363: -- This API returns customized PSON if the customer had implemented the custome code
364: IBY_PSON_CUSTOMIZER_PKG.Get_Custom_Tangible_Id(p_app_short_name, p_trxn_extn_id, l_cust_pson, l_msg);
365: IF( l_msg = IBY_PSON_CUSTOMIZER_PKG.G_CUST_PSON_YES ) THEN
366: l_tangible_id := l_cust_pson;
367: iby_debug_pub.add('Customized PSON :='||l_tangible_id,G_LEVEL_PROCEDURE,l_dbg_mod);
368: ELSE
369: --Bug# 8535868
370: --Removing '_' since this is not accepted by FDC
371: -- l_tangible_id := p_app_short_name || '_' || p_trxn_extn_id;
369: --Bug# 8535868
370: --Removing '_' since this is not accepted by FDC
371: -- l_tangible_id := p_app_short_name || '_' || p_trxn_extn_id;
372: l_tangible_id := p_app_short_name || p_trxn_extn_id;
373: iby_debug_pub.add('PSON:' ||l_tangible_id || ' was not customized',G_LEVEL_PROCEDURE,l_dbg_mod);
374: END IF;
375:
376: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
377: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
373: iby_debug_pub.add('PSON:' ||l_tangible_id || ' was not customized',G_LEVEL_PROCEDURE,l_dbg_mod);
374: END IF;
375:
376: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
377: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
378: END IF;
379: RETURN l_tangible_id;
380: END Get_Tangible_Id;
381: --End of Overloaded Function
396: l_cust_pson VARCHAR2(30);
397: l_msg VARCHAR2(10);
398: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Reauth_Tangible_Id';
399: BEGIN
400: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
401: --IBY_PSON_CUSTOMIZER_PKG.Get_Custom_Tangible_Id(p_app_short_name, p_trxn_extn_id, l_cust_pson, l_msg);
402: --IF( l_msg = IBY_PSON_CUSTOMIZER_PKG.G_CUST_PSON_YES ) THEN
403: -- l_tangible_id := l_cust_pson;
404: -- iby_debug_pub.add('Customized PSON :='||l_tangible_id,G_LEVEL_PROCEDURE,l_dbg_mod);
400: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
401: --IBY_PSON_CUSTOMIZER_PKG.Get_Custom_Tangible_Id(p_app_short_name, p_trxn_extn_id, l_cust_pson, l_msg);
402: --IF( l_msg = IBY_PSON_CUSTOMIZER_PKG.G_CUST_PSON_YES ) THEN
403: -- l_tangible_id := l_cust_pson;
404: -- iby_debug_pub.add('Customized PSON :='||l_tangible_id,G_LEVEL_PROCEDURE,l_dbg_mod);
405: --ELSE
406: --Bug# 8535868
407: --Removing '_' since this is not accepted by FDC
408: -- l_tangible_id := p_app_short_name || '_' || p_trxn_extn_id;
412: FROM iby_fndcpt_tx_extensions
413: WHERE trxn_extension_id = p_trxn_extn_id;
414:
415: IF(l_prev_pson IS NOT NULL) THEN
416: iby_debug_pub.add('PSON for earlier attempt: '||l_prev_pson,G_LEVEL_STATEMENT,l_dbg_mod);
417: IF (l_prev_pson = l_tangible_id) THEN -- first re-auth
418: iby_debug_pub.add('First time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
419: l_tangible_id := l_tangible_id||'R1';
420: ELSE
414:
415: IF(l_prev_pson IS NOT NULL) THEN
416: iby_debug_pub.add('PSON for earlier attempt: '||l_prev_pson,G_LEVEL_STATEMENT,l_dbg_mod);
417: IF (l_prev_pson = l_tangible_id) THEN -- first re-auth
418: iby_debug_pub.add('First time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
419: l_tangible_id := l_tangible_id||'R1';
420: ELSE
421: l_reauth_cnt := TO_NUMBER(LTRIM((SUBSTR(l_prev_pson, length(l_tangible_id)+1)),'R'));
422: iby_debug_pub.add((l_reauth_cnt +1)||'th time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
418: iby_debug_pub.add('First time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
419: l_tangible_id := l_tangible_id||'R1';
420: ELSE
421: l_reauth_cnt := TO_NUMBER(LTRIM((SUBSTR(l_prev_pson, length(l_tangible_id)+1)),'R'));
422: iby_debug_pub.add((l_reauth_cnt +1)||'th time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
423: l_tangible_id := l_tangible_id||'R'||(l_reauth_cnt+1);
424: END IF;
425: END IF;
426: iby_debug_pub.add('PSON:' ||l_tangible_id ,G_LEVEL_STATEMENT,l_dbg_mod);
422: iby_debug_pub.add((l_reauth_cnt +1)||'th time re-auth.',G_LEVEL_STATEMENT,l_dbg_mod);
423: l_tangible_id := l_tangible_id||'R'||(l_reauth_cnt+1);
424: END IF;
425: END IF;
426: iby_debug_pub.add('PSON:' ||l_tangible_id ,G_LEVEL_STATEMENT,l_dbg_mod);
427: --END IF;
428: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
429: RETURN l_tangible_id;
430: END Get_Reauth_Tangible_Id;
424: END IF;
425: END IF;
426: iby_debug_pub.add('PSON:' ||l_tangible_id ,G_LEVEL_STATEMENT,l_dbg_mod);
427: --END IF;
428: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
429: RETURN l_tangible_id;
430: END Get_Reauth_Tangible_Id;
431:
432: --
449:
450: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Internal_Payee';
451: BEGIN
452: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
453: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
454: END IF;
455:
456: IF (c_payeeid%ISOPEN) THEN CLOSE c_payeeid; END IF;
457:
462: END IF;
463: CLOSE c_payeeid;
464:
465: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
466: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
467: END IF;
468:
469: RETURN l_payeeid;
470: END Get_Internal_Payee;
483:
484: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Get_Tx_Extension_Copy_Count';
485: BEGIN
486: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
487: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
488: END IF;
489:
490: IF (c_xe_copies%ISOPEN) THEN CLOSE c_xe_copies; END IF;
491:
492: OPEN c_xe_copies(p_trxn_extension_id);
493: FETCH c_xe_copies INTO l_copy_count;
494: CLOSE c_xe_copies;
495: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
496: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
497: END IF;
498:
499:
500: RETURN NVL(l_copy_count,0);
520:
521: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Extension_Valid';
522: BEGIN
523: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
524: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
525: END IF;
526:
527:
528: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
525: END IF;
526:
527:
528: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
529: iby_debug_pub.add('validating xtension',G_LEVEL_STATEMENT,l_dbg_mod);
530: END IF;
531:
532: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
533: iby_debug_pub.add('Call -> IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs',
529: iby_debug_pub.add('validating xtension',G_LEVEL_STATEMENT,l_dbg_mod);
530: END IF;
531:
532: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
533: iby_debug_pub.add('Call -> IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs',
534: G_LEVEL_STATEMENT,l_dbg_mod);
535: END IF;
536: IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs
537: (1.0, FND_API.G_FALSE, l_return_status, l_msg_count, l_msg_data,
537: (1.0, FND_API.G_FALSE, l_return_status, l_msg_count, l_msg_data,
538: p_pmt_channel, l_channel_attribs, l_response);
539:
540: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
541: iby_debug_pub.add('Return from IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs',
542: G_LEVEL_STATEMENT,l_dbg_mod);
543: END IF;
544: IF (l_response.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
545: RETURN FALSE;
690: RETURN FALSE;
691: END IF;
692:
693: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
694: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
695: END IF;
696:
697: RETURN TRUE;
698: END Extension_Valid;
740:
741: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Payer_Channel_Valid';
742: BEGIN
743: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
744: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
745: END IF;
746:
747:
748: -- ENHANCEMENT:
761: FETCH c_trxn_channel INTO l_channel_instr;
762: CLOSE c_trxn_channel;
763:
764: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
765: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
766: END IF;
767:
768: IF (l_channel_instr<1) THEN
769: RETURN FALSE;
789:
790: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Channel_InstrAssignment_Appl';
791: BEGIN
792: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
793: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
794: END IF;
795:
796: IF (c_pmt_instr%ISOPEN) THEN CLOSE c_pmt_instr; END IF;
797:
799: FETCH c_pmt_instr INTO l_assign_appl;
800: CLOSE c_pmt_instr;
801:
802: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
803: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
804: END IF;
805:
806: RETURN l_assign_appl;
807: END Channel_InstrAssignment_Appl;
835:
836: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.InstrAssignment_Channel_Valid';
837: BEGIN
838: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
839: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
840: END IF;
841:
842: IF (c_channel_assign%ISOPEN) THEN CLOSE c_channel_assign; END IF;
843:
847:
848: l_assign_appl := Channel_InstrAssignment_Appl(p_channel);
849:
850: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
851: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
852: END IF;
853:
854: IF ((x_channel_instr = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_MANUAL)
855: AND (l_assign_id IS NULL))
923:
924: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Payer_InstrAssignment_Valid';
925: BEGIN
926: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
927: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
928: END IF;
929:
930: iby_debug_pub.add('p_instr_assign: ' || p_instr_assign, iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
931:
926: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
927: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
928: END IF;
929:
930: iby_debug_pub.add('p_instr_assign: ' || p_instr_assign, iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
931:
932: IF (c_instr_assigns%ISOPEN) THEN CLOSE c_instr_assigns; END IF;
933: IF (c_instr_extensions%ISOPEN) THEN CLOSE c_instr_extensions; END IF;
934:
934:
935: l_instr_req := Channel_InstrAssignment_Appl(p_channel_code);
936:
937: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
938: iby_debug_pub.add('instrument applicability:=' || l_instr_req,G_LEVEL_STATEMENT,l_dbg_mod);
939: END IF;
940:
941: IF ((l_instr_req = IBY_FNDCPT_SETUP_PUB.G_CHNNL_ATTRIB_USE_OPTIONAL)
942: AND (p_instr_assign IS NULL))
951: l_info_only, l_single_use;
952: CLOSE c_instr_assigns;
953:
954: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
955: iby_debug_pub.add('fetched assignment id:=' || l_assign_id,
956: G_LEVEL_STATEMENT,l_dbg_mod);
957: iby_debug_pub.add('info only:=' || l_info_only,
958: G_LEVEL_STATEMENT,l_dbg_mod);
959: iby_debug_pub.add('single use:=' || l_single_use,
953:
954: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
955: iby_debug_pub.add('fetched assignment id:=' || l_assign_id,
956: G_LEVEL_STATEMENT,l_dbg_mod);
957: iby_debug_pub.add('info only:=' || l_info_only,
958: G_LEVEL_STATEMENT,l_dbg_mod);
959: iby_debug_pub.add('single use:=' || l_single_use,
960: G_LEVEL_STATEMENT,l_dbg_mod);
961: END IF;
955: iby_debug_pub.add('fetched assignment id:=' || l_assign_id,
956: G_LEVEL_STATEMENT,l_dbg_mod);
957: iby_debug_pub.add('info only:=' || l_info_only,
958: G_LEVEL_STATEMENT,l_dbg_mod);
959: iby_debug_pub.add('single use:=' || l_single_use,
960: G_LEVEL_STATEMENT,l_dbg_mod);
961: END IF;
962: IF ((l_assign_id IS NULL) OR (l_info_only = 'Y')) THEN
963: RETURN FALSE;
972: FETCH c_instr_extensions INTO l_auth_flag;
973: CLOSE c_instr_extensions;
974:
975: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
976: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
977: END IF;
978:
979: RETURN (NVL(l_auth_flag,'N') = 'N');
980: END IF;
997: AND (authorization_status IN ( 'AUTH_SUCCESS', 'AUTH_PENDING' ));
998:
999: BEGIN
1000: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1001: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
1002: END IF;
1003:
1004: IF (c_operation%ISOPEN) THEN CLOSE c_operation; END IF;
1005:
1009: l_count := 0;
1010: END IF;
1011: CLOSE c_operation;
1012: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1013: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1014: END IF;
1015:
1016:
1017: RETURN (l_count > 0);
1057:
1058: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
1059: BEGIN
1060: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1061: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
1062: END IF;
1063:
1064: -- test_debug('Create_Transaction_Extension=> Enter..');
1065:
1068: l_module,
1069: G_PKG_NAME)
1070: THEN
1071: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1072: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
1073: debug_level => G_LEVEL_ERROR,
1074: module => G_DEBUG_MODULE || l_module);
1075: END IF;
1076: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1083: END IF;
1084: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1085:
1086: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1084: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1085:
1086: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1092: iby_debug_pub.add('p_instr_assignment: '|| p_instr_assignment,G_LEVEL_STATEMENT,l_dbg_mod);
1085:
1086: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1092: iby_debug_pub.add('p_instr_assignment: '|| p_instr_assignment,G_LEVEL_STATEMENT,l_dbg_mod);
1093: END IF;
1086: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1092: iby_debug_pub.add('p_instr_assignment: '|| p_instr_assignment,G_LEVEL_STATEMENT,l_dbg_mod);
1093: END IF;
1094: -- test_debug('Create_Transaction_Extension=> Checking Payer context..');
1087: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1092: iby_debug_pub.add('p_instr_assignment: '|| p_instr_assignment,G_LEVEL_STATEMENT,l_dbg_mod);
1093: END IF;
1094: -- test_debug('Create_Transaction_Extension=> Checking Payer context..');
1095:
1088: iby_debug_pub.add('p_payer.Party_Id: '|| p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1089: iby_debug_pub.add('p_payer.Org_Id: '|| p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1090: iby_debug_pub.add('p_payer.Cust_Account_Id: '|| p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1091: iby_debug_pub.add('p_payer.Account_Site_Id: '|| p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
1092: iby_debug_pub.add('p_instr_assignment: '|| p_instr_assignment,G_LEVEL_STATEMENT,l_dbg_mod);
1093: END IF;
1094: -- test_debug('Create_Transaction_Extension=> Checking Payer context..');
1095:
1096: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1095:
1096: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1097: l_payer_level,l_payer_id,l_payer_attribs);
1098:
1099: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
1100: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
1101:
1102: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1103: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1096: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1097: l_payer_level,l_payer_id,l_payer_attribs);
1098:
1099: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
1100: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
1101:
1102: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1103: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1104: ELSE
1113: -- )
1114: THEN
1115: -- test_debug('invalid order id');
1116: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1117: iby_debug_pub.add('invalid order id',G_LEVEL_ERROR,l_dbg_mod);
1118: END IF;
1119: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1120: iby_fndcpt_common_pub.Prepare_Result
1121: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1132: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1133: RETURN;
1134: END IF;
1135:
1136: iby_debug_pub.add('p_pmt_channel = '|| p_pmt_channel, iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
1137:
1138: --
1139: -- instrument assignment must be to an instrument of the same type
1140: -- as the payment channel's
1143: lx_channel_instr))
1144: THEN
1145: -- test_debug('instrument asssignment not valid for channel');
1146: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1147: iby_debug_pub.add('instrument asssignment not valid for channel',
1148: G_LEVEL_ERROR,l_dbg_mod);
1149: END IF;
1150: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1151: iby_fndcpt_common_pub.Prepare_Result
1162: p_instr_assignment,TRUE))
1163: THEN
1164: --test_debug('instrument asssignment not valid payer');
1165: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1166: iby_debug_pub.add('instrument asssignment not valid payer',
1167: G_LEVEL_ERROR,l_dbg_mod);
1168: END IF;
1169: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1170: iby_fndcpt_common_pub.Prepare_Result
1179:
1180: IF (NOT Extension_Valid(p_pmt_channel,p_trxn_attribs,FALSE,FALSE)) THEN
1181: --test_debug('invalid trxn extension attributes');
1182: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1183: iby_debug_pub.add('invalid trxn extension attributes',
1184: G_LEVEL_ERROR,l_dbg_mod);
1185: END IF;
1186: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1187: ELSE
1196:
1197: IF (lx_result.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
1198: --test_debug('could not set payer attributes');
1199: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1200: iby_debug_pub.add('could not set payer attributes',
1201: G_LEVEL_ERROR,l_dbg_mod);
1202: END IF;
1203: x_response := lx_result;
1204: RETURN;
1212: ) THEN
1213: -- Security code must be numeric
1214: IF('Y' <> IBY_UTILITY_PVT.isNumeric(l_sec_code)) THEN
1215: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1216: iby_debug_pub.add(debug_msg => 'Invalid CVV format',
1217: debug_level => G_LEVEL_ERROR,
1218: module => G_DEBUG_MODULE || l_module);
1219: END IF;
1220: FND_MESSAGE.SET_NAME('IBY', 'IBY_204900');
1224:
1225: -- Security code should be 3-4 digits
1226: IF((LENGTH(l_sec_code) > 4) OR (LENGTH(l_sec_code) < 3) ) THEN
1227: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1228: iby_debug_pub.add(debug_msg => 'Invalid CVV length',
1229: debug_level => G_LEVEL_ERROR,
1230: module => G_DEBUG_MODULE || l_module);
1231: END IF;
1232: FND_MESSAGE.SET_NAME('IBY', 'IBY_204901');
1254: ELSE
1255: -- test_debug('Unknown error occurred while cvv encryption !!');
1256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1258: iby_debug_pub.add(debug_msg => 'Unknown error occurred while cvv encryption !!',
1259: debug_level => G_LEVEL_ERROR,
1260: module => G_DEBUG_MODULE || l_module);
1261: END IF;
1262: FND_MESSAGE.SET_NAME('IBY', 'IBY_204902');
1318: COMMIT;
1319: END IF;
1320:
1321: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1322: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1323: END IF;
1324:
1325:
1326: EXCEPTION
1326: EXCEPTION
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1329:
1330: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1331: debug_level => G_LEVEL_ERROR,
1332: module => G_DEBUG_MODULE || l_module);
1333: x_return_status := FND_API.G_RET_STS_ERROR;
1334: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1335: p_data => x_msg_data
1336: );
1337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1338:
1339: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1340: debug_level => G_LEVEL_UNEXPECTED,
1341: module => G_DEBUG_MODULE || l_module);
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1343: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1344: p_data => x_msg_data
1345: );
1346: WHEN OTHERS THEN
1347:
1348: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1349: debug_level => G_LEVEL_UNEXPECTED,
1350: module => G_DEBUG_MODULE || l_module);
1351:
1352: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1432: p.cust_account_id,p.acct_site_use_id) = 'T');
1433:
1434: BEGIN
1435: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1436: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
1437: END IF;
1438:
1439: -- test_debug('update_extension called..');
1440:
1445: l_module,
1446: G_PKG_NAME)
1447: THEN
1448: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1449: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
1450: debug_level => G_LEVEL_ERROR,
1451: module => G_DEBUG_MODULE || l_module);
1452: END IF;
1453: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1460: END IF;
1461: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1462:
1463: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1464: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
1465: END IF;
1466: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1467: l_payer_level,l_payer_id,l_payer_attribs);
1468:
1486: > iby_bill_pkg.G_MAX_TANGIBLEID_LEN
1487: )
1488: THEN
1489: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1490: iby_debug_pub.add('invalid order id',G_LEVEL_ERROR,l_dbg_mod);
1491: END IF;
1492: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1493: iby_fndcpt_common_pub.Prepare_Result
1494: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1513: SELECT instrument_type into l_instrumenttype from iby_fndcpt_pmt_chnnls_b where
1514: payment_channel_code = l_pmt_channel;
1515:
1516: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1517: iby_debug_pub.add('l_pmt_channel: ' || l_pmt_channel,G_LEVEL_STATEMENT,l_dbg_mod);
1518: iby_debug_pub.add('l_instrumenttype: ' || l_instrumenttype,G_LEVEL_STATEMENT,l_dbg_mod);
1519: iby_debug_pub.add('l_seg_id_old: ' || l_seg_id_old,G_LEVEL_STATEMENT,l_dbg_mod);
1520: END IF;
1521:
1514: payment_channel_code = l_pmt_channel;
1515:
1516: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1517: iby_debug_pub.add('l_pmt_channel: ' || l_pmt_channel,G_LEVEL_STATEMENT,l_dbg_mod);
1518: iby_debug_pub.add('l_instrumenttype: ' || l_instrumenttype,G_LEVEL_STATEMENT,l_dbg_mod);
1519: iby_debug_pub.add('l_seg_id_old: ' || l_seg_id_old,G_LEVEL_STATEMENT,l_dbg_mod);
1520: END IF;
1521:
1522: IF (NOT Extension_Valid(l_pmt_channel,p_trxn_attribs,TRUE,FALSE)) THEN
1515:
1516: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1517: iby_debug_pub.add('l_pmt_channel: ' || l_pmt_channel,G_LEVEL_STATEMENT,l_dbg_mod);
1518: iby_debug_pub.add('l_instrumenttype: ' || l_instrumenttype,G_LEVEL_STATEMENT,l_dbg_mod);
1519: iby_debug_pub.add('l_seg_id_old: ' || l_seg_id_old,G_LEVEL_STATEMENT,l_dbg_mod);
1520: END IF;
1521:
1522: IF (NOT Extension_Valid(l_pmt_channel,p_trxn_attribs,TRUE,FALSE)) THEN
1523: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1520: END IF;
1521:
1522: IF (NOT Extension_Valid(l_pmt_channel,p_trxn_attribs,TRUE,FALSE)) THEN
1523: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1524: iby_debug_pub.add('invalid extension attributes',G_LEVEL_ERROR,l_dbg_mod);
1525: END IF;
1526: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1527: --
1528: -- make sure no operations already performed on the extension;
1539: --
1540:
1541: ELSIF ( Extension_Operation_Exists(p_entity_id) AND l_instrumenttype <> BA_INSTR_TYPE) THEN
1542: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1543: iby_debug_pub.add('operations exist for extension; cannot update',
1544: G_LEVEL_ERROR,l_dbg_mod);
1545: END IF;
1546: x_response.Result_Code := G_RC_EXTENSION_IMMUTABLE;
1547: ELSE
1551: IF (NOT Payer_Channel_Valid(p_payer,l_payer_level,
1552: p_payer_equivalency,l_pmt_channel))
1553: THEN
1554: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1555: iby_debug_pub.add('invalid payment channel for payer',G_LEVEL_ERROR,l_dbg_mod);
1556: END IF;
1557: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_CHNNL;
1558: iby_fndcpt_common_pub.Prepare_Result
1559: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
1569: l_pmt_channel,
1570: l_instr_assign,FALSE))
1571: THEN
1572: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1573: iby_debug_pub.add('invalid payment channel for instrument or payer',
1574: G_LEVEL_ERROR,l_dbg_mod);
1575: END IF;
1576: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1577: iby_fndcpt_common_pub.Prepare_Result
1592: (p_trxn_attribs.Instrument_security_Code = 'XXXX'))
1593: ) THEN
1594: IF('Y' <> IBY_UTILITY_PVT.isNumeric(l_sec_code)) THEN
1595: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1596: iby_debug_pub.add(debug_msg => 'Invalid CVV format',
1597: debug_level => G_LEVEL_ERROR,
1598: module => G_DEBUG_MODULE || l_module);
1599: END IF;
1600: FND_MESSAGE.SET_NAME('IBY', 'IBY_204900');
1604:
1605: -- Security code should be 3-4 digits
1606: IF((LENGTH(l_sec_code) > 4) OR (LENGTH(l_sec_code) < 3) ) THEN
1607: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1608: iby_debug_pub.add(debug_msg => 'Invalid CVV length',
1609: debug_level => G_LEVEL_ERROR,
1610: module => G_DEBUG_MODULE || l_module);
1611: END IF;
1612: FND_MESSAGE.SET_NAME('IBY', 'IBY_204901');
1636: ELSE
1637: -- test_debug('Unknown error occurred while cvv encryption !!');
1638: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1639: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1640: iby_debug_pub.add(debug_msg => 'Unknown error occurred while cvv encryption !!',
1641: debug_level => G_LEVEL_ERROR,
1642: module => G_DEBUG_MODULE || l_module);
1643: END IF;
1644: FND_MESSAGE.SET_NAME('IBY', 'IBY_204902');
1651: END IF;
1652:
1653: ELSE
1654: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1655: iby_debug_pub.add(debug_msg => 'Skipping the Security Code validation !!',
1656: debug_level => G_LEVEL_ERROR,
1657: module => G_DEBUG_MODULE || l_module);
1658: END IF;
1659: l_segment_id := null;
1738: object_version_number = object_version_number + 1
1739: WHERE (trxn_extension_id = p_entity_id);
1740:
1741: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1742: iby_debug_pub.add('updating extension',G_LEVEL_STATEMENT,l_dbg_mod);
1743: END IF;
1744: IF (NOT p_trxn_attribs.Instrument_Security_Code IS NULL) AND
1745: (p_trxn_attribs.Instrument_Security_Code <> FND_API.G_MISS_CHAR)
1746: THEN
1743: END IF;
1744: IF (NOT p_trxn_attribs.Instrument_Security_Code IS NULL) AND
1745: (p_trxn_attribs.Instrument_Security_Code <> FND_API.G_MISS_CHAR)
1746: THEN
1747: iby_debug_pub.add('deleting l_seg_id_old',G_LEVEL_STATEMENT,l_dbg_mod);
1748: DELETE FROM iby_security_segments
1749: WHERE (sec_segment_id = l_seg_id_old);
1750: END IF;
1751:
1763: iby_fndcpt_common_pub.Prepare_Result
1764: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1765:
1766: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1767: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1768: END IF;
1769:
1770: EXCEPTION
1771:
1770: EXCEPTION
1771:
1772: WHEN FND_API.G_EXC_ERROR THEN
1773:
1774: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1775: debug_level => G_LEVEL_ERROR,
1776: module => G_DEBUG_MODULE || l_module);
1777: x_return_status := FND_API.G_RET_STS_ERROR;
1778: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1779: p_data => x_msg_data
1780: );
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1782:
1783: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1784: debug_level => G_LEVEL_UNEXPECTED,
1785: module => G_DEBUG_MODULE || l_module);
1786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1787: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1788: p_data => x_msg_data
1789: );
1790: WHEN OTHERS THEN
1791:
1792: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1793: debug_level => G_LEVEL_UNEXPECTED,
1794: module => G_DEBUG_MODULE || l_module);
1795:
1796: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1842: WHERE trxn_extension_id = ci_extension_id;
1843:
1844: BEGIN
1845: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1846: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
1847: END IF;
1848:
1849: IF (c_extension%ISOPEN) THEN
1850: CLOSE c_extension;
1855: l_module,
1856: G_PKG_NAME)
1857: THEN
1858: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1859: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
1860: debug_level => G_LEVEL_ERROR,
1861: module => G_DEBUG_MODULE || l_module);
1862: END IF;
1863: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1870: END IF;
1871: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1872:
1873: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1874: iby_debug_pub.add('checking payer contxt',G_LEVEL_STATEMENT,l_dbg_mod);
1875: END IF;
1876: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1877: l_payer_level,l_payer_id,l_payer_attribs);
1878:
1891:
1892: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1893: IF (c_extension%NOTFOUND) THEN
1894: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1895: iby_debug_pub.add('could not find extension',G_LEVEL_ERROR,l_dbg_mod);
1896: END IF;
1897: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1898: ELSE
1899: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1904: iby_fndcpt_common_pub.Prepare_Result
1905: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1906:
1907: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1908: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1909: END IF;
1910: EXCEPTION
1911:
1912: WHEN FND_API.G_EXC_ERROR THEN
1911:
1912: WHEN FND_API.G_EXC_ERROR THEN
1913:
1914: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1915: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1916: debug_level => G_LEVEL_EXCEPTION,
1917: module => G_DEBUG_MODULE || l_module);
1918: END IF;
1919: x_return_status := FND_API.G_RET_STS_ERROR;
1922: );
1923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1924:
1925: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1926: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1927: debug_level => G_LEVEL_UNEXPECTED,
1928: module => G_DEBUG_MODULE || l_module);
1929: END IF;
1930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1933: );
1934: WHEN OTHERS THEN
1935:
1936: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1937: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1938: debug_level => G_LEVEL_UNEXPECTED,
1939: module => G_DEBUG_MODULE || l_module);
1940: END IF;
1941:
1950: p_data => x_msg_data
1951: );
1952:
1953: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1954: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1955: debug_level => G_LEVEL_EXCEPTION,
1956: module => G_DEBUG_MODULE || l_module);
1957: iby_debug_pub.add(debug_msg => 'Exit Exception',
1958: debug_level => G_LEVEL_EXCEPTION,
1953: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1954: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1955: debug_level => G_LEVEL_EXCEPTION,
1956: module => G_DEBUG_MODULE || l_module);
1957: iby_debug_pub.add(debug_msg => 'Exit Exception',
1958: debug_level => G_LEVEL_EXCEPTION,
1959: module => G_DEBUG_MODULE || l_module);
1960: END IF;
1961:
2011: p.cust_account_id,p.acct_site_use_id) = 'T');
2012:
2013: BEGIN
2014: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2015: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
2016: END IF;
2017:
2018: IF (c_extension%ISOPEN) THEN
2019: CLOSE c_extension;
2024: l_module,
2025: G_PKG_NAME)
2026: THEN
2027: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2028: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
2029: debug_level => G_LEVEL_ERROR,
2030: module => G_DEBUG_MODULE || l_module);
2031: END IF;
2032: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2039: END IF;
2040: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
2041:
2042: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2043: iby_debug_pub.add('checking payer contxt',G_LEVEL_STATEMENT,l_dbg_mod);
2044: END IF;
2045: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2046: l_payer_level,l_payer_id,l_payer_attribs);
2047:
2059: IF ( Extension_Operation_Exists(p_entity_id)
2060: OR (l_copy_count>0) )
2061: THEN
2062: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2063: iby_debug_pub.add('extension copied or operation done; cannot delete',
2064: G_LEVEL_ERROR,l_dbg_mod);
2065: END IF;
2066: x_response.Result_Code := G_RC_EXTENSION_IMMUTABLE;
2067: ELSE
2088: iby_fndcpt_common_pub.Prepare_Result
2089: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2090:
2091: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2092: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
2093: END IF;
2094: EXCEPTION
2095:
2096: WHEN FND_API.G_EXC_ERROR THEN
2095:
2096: WHEN FND_API.G_EXC_ERROR THEN
2097: ROLLBACK TO Delete_Transaction_Extension;
2098: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2099: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
2100: debug_level => G_LEVEL_EXCEPTION,
2101: module => G_DEBUG_MODULE || l_module);
2102: END IF;
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2106: );
2107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2108: ROLLBACK TO Delete_Transaction_Extension;
2109: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2110: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
2111: debug_level => G_LEVEL_UNEXPECTED,
2112: module => G_DEBUG_MODULE || l_module);
2113: END IF;
2114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2118:
2119: WHEN OTHERS THEN
2120: ROLLBACK TO Delete_Transaction_Extension;
2121: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2122: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2123: debug_level => G_LEVEL_UNEXPECTED,
2124: module => G_DEBUG_MODULE || l_module);
2125: END IF;
2126:
2135: p_data => x_msg_data
2136: );
2137:
2138: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2139: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2140: debug_level => G_LEVEL_EXCEPTION,
2141: module => G_DEBUG_MODULE || l_module);
2142: iby_debug_pub.add(debug_msg => 'Exit Exception',
2143: debug_level => G_LEVEL_EXCEPTION,
2138: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2139: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2140: debug_level => G_LEVEL_EXCEPTION,
2141: module => G_DEBUG_MODULE || l_module);
2142: iby_debug_pub.add(debug_msg => 'Exit Exception',
2143: debug_level => G_LEVEL_EXCEPTION,
2144: module => G_DEBUG_MODULE || l_module);
2145: END IF;
2146:
2277: AND (up.sys_eft_profile_code = sp.sys_eft_profile_code(+));
2278:
2279: BEGIN
2280: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2281: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
2282: END IF;
2283:
2284: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
2285: IF (c_auths%ISOPEN) THEN CLOSE c_auths; END IF;
2289: l_module,
2290: G_PKG_NAME)
2291: THEN
2292: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2293: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
2294: debug_level => G_LEVEL_ERROR,
2295: module => G_DEBUG_MODULE || l_module);
2296: END IF;
2297: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2308:
2309: l_extension := p_trxn_attribs;
2310:
2311: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2312: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2309: l_extension := p_trxn_attribs;
2310:
2311: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2312: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2317: iby_debug_pub.add('org type =' || p_payer.Org_Type,G_LEVEL_STATEMENT,l_dbg_mod);
2310:
2311: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2312: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2317: iby_debug_pub.add('org type =' || p_payer.Org_Type,G_LEVEL_STATEMENT,l_dbg_mod);
2318: END IF;
2311: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2312: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2317: iby_debug_pub.add('org type =' || p_payer.Org_Type,G_LEVEL_STATEMENT,l_dbg_mod);
2318: END IF;
2319:
2312: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2317: iby_debug_pub.add('org type =' || p_payer.Org_Type,G_LEVEL_STATEMENT,l_dbg_mod);
2318: END IF;
2319:
2320: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2313: iby_debug_pub.add('party id =' || p_payer.Party_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2314: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2315: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2316: iby_debug_pub.add('org id =' || p_payer.Org_Id,G_LEVEL_STATEMENT,l_dbg_mod);
2317: iby_debug_pub.add('org type =' || p_payer.Org_Type,G_LEVEL_STATEMENT,l_dbg_mod);
2318: END IF;
2319:
2320: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2321: l_payer_level,l_payer_id,l_payer_attribs);
2319:
2320: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2321: l_payer_level,l_payer_id,l_payer_attribs);
2322:
2323: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2324: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2325:
2326:
2327: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2320: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2321: l_payer_level,l_payer_id,l_payer_attribs);
2322:
2323: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2324: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2325:
2326:
2327: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2328: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2335: > iby_bill_pkg.G_MAX_TANGIBLEID_LEN
2336: )
2337: THEN
2338: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2339: iby_debug_pub.add('order id invalid',G_LEVEL_ERROR,l_dbg_mod);
2340: END IF;
2341: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
2342: iby_fndcpt_common_pub.Prepare_Result
2343: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2346:
2347: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2348: l_payer_level,l_payer_id,l_payer_attribs);
2349:
2350: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2351:
2352: -- create external payer if necessary
2353: IF (l_payer_id IS NULL) THEN
2354: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2351:
2352: -- create external payer if necessary
2353: IF (l_payer_id IS NULL) THEN
2354: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2355: iby_debug_pub.add('setting payer attribs',G_LEVEL_STATEMENT,l_dbg_mod);
2356: END IF;
2357: IBY_FNDCPT_SETUP_PUB.Set_Payer_Attributes
2358: (1.0, FND_API.G_FALSE, FND_API.G_FALSE,
2359: x_return_status, x_msg_count, x_msg_data,
2369: l_val_instr := (NOT p_trxn_attribs.Copy_Instr_Assign_Id IS NULL);
2370:
2371: FOR i IN p_entities.FIRST..p_entities.LAST LOOP
2372: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2373: iby_debug_pub.add('trxn entity id:=' || p_entities(i),
2374: G_LEVEL_STATEMENT,l_dbg_mod);
2375: iby_debug_pub.add('copy instr assignment:=' || p_trxn_attribs.Copy_Instr_Assign_Id,
2376: G_LEVEL_STATEMENT,l_dbg_mod);
2377: END IF;
2371: FOR i IN p_entities.FIRST..p_entities.LAST LOOP
2372: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2373: iby_debug_pub.add('trxn entity id:=' || p_entities(i),
2374: G_LEVEL_STATEMENT,l_dbg_mod);
2375: iby_debug_pub.add('copy instr assignment:=' || p_trxn_attribs.Copy_Instr_Assign_Id,
2376: G_LEVEL_STATEMENT,l_dbg_mod);
2377: END IF;
2378:
2379: OPEN c_extension(p_entities(i), p_payer, l_payer_level,
2401: l_pmt_channel := NVL(l_pmt_channel,lc_pmt_channel);
2402: l_instr_assign_id := NVL(l_instr_assign_id,lc_instr_assign_id);
2403:
2404: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2405: iby_debug_pub.add('l_pmt_channel:=' || l_pmt_channel, G_LEVEL_STATEMENT,l_dbg_mod);
2406: iby_debug_pub.add('l_instr_assign_id:=' || l_instr_assign_id, G_LEVEL_STATEMENT,l_dbg_mod);
2407: END IF;
2408:
2409: -- validate new instrument assignment here as payment channel
2402: l_instr_assign_id := NVL(l_instr_assign_id,lc_instr_assign_id);
2403:
2404: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2405: iby_debug_pub.add('l_pmt_channel:=' || l_pmt_channel, G_LEVEL_STATEMENT,l_dbg_mod);
2406: iby_debug_pub.add('l_instr_assign_id:=' || l_instr_assign_id, G_LEVEL_STATEMENT,l_dbg_mod);
2407: END IF;
2408:
2409: -- validate new instrument assignment here as payment channel
2410: -- is required
2411: -- Begin Bug# 9974102
2412: IF (l_val_instr) THEN
2413: --IF (NOT Payer_InstrAssignment_Valid(p_payer,l_payer_level, p_payer_equivalency, l_pmt_channel, p_trxn_attribs.Copy_Instr_Assign_Id, TRUE ) ) THEN
2414: --IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2415: --iby_debug_pub.add('payer instr assignment invalid ' || p_trxn_attribs.Copy_Instr_Assign_Id || ' for channel ' || l_pmt_channel, G_LEVEL_ERROR,l_dbg_mod);
2416: --END IF;
2417: --x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
2418: --iby_fndcpt_common_pub.Prepare_Result (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2419: --RETURN;
2419: --RETURN;
2420: --END IF;
2421: --l_instr_assign_id := p_trxn_attribs.Copy_Instr_Assign_Id;
2422: --l_val_instr := FALSE;
2423: iby_debug_pub.add('Check for valid instr assignment:', G_LEVEL_STATEMENT,l_dbg_mod);
2424:
2425: SELECT COUNT(*) INTO l_count FROM iby_pmt_instr_uses_all
2426: WHERE instrument_payment_use_id = l_instr_assign_id AND
2427: NVL(end_date, sysdate + 10) > sysdate;
2425: SELECT COUNT(*) INTO l_count FROM iby_pmt_instr_uses_all
2426: WHERE instrument_payment_use_id = l_instr_assign_id AND
2427: NVL(end_date, sysdate + 10) > sysdate;
2428:
2429: iby_debug_pub.add('Count of Instr Assignmentid:'|| l_count, G_LEVEL_STATEMENT,l_dbg_mod);
2430:
2431: IF(l_count <=0) THEN
2432: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2433: iby_debug_pub.add('payer instr assignment invalid ' || l_instr_assign_id || ' for channel ' || l_pmt_channel, G_LEVEL_ERROR,l_dbg_mod);
2429: iby_debug_pub.add('Count of Instr Assignmentid:'|| l_count, G_LEVEL_STATEMENT,l_dbg_mod);
2430:
2431: IF(l_count <=0) THEN
2432: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2433: iby_debug_pub.add('payer instr assignment invalid ' || l_instr_assign_id || ' for channel ' || l_pmt_channel, G_LEVEL_ERROR,l_dbg_mod);
2434: END IF;
2435: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
2436: iby_fndcpt_common_pub.Prepare_Result (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2437: RETURN;
2443: -- End
2444:
2445: IF (l_x_not_found) THEN
2446: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2447: iby_debug_pub.add('extension invalid for payer, or non-existant',
2448: G_LEVEL_ERROR,l_dbg_mod);
2449: END IF;
2450: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
2451: iby_fndcpt_common_pub.Prepare_Result
2456: --OR (l_instr_assign_id<>lc_instr_assign_id)
2457: )
2458: THEN
2459: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2460: iby_debug_pub.add('incompatible pmt chanenel ' || l_pmt_channel,
2461: G_LEVEL_ERROR,l_dbg_mod);
2462: END IF;
2463: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2464: iby_fndcpt_common_pub.Prepare_Result
2482: (l_extension.Instrument_Security_Code = 'XXX') OR
2483: (l_extension.Instrument_Security_Code = 'XXXX'))
2484: THEN
2485: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2486: iby_debug_pub.add('l_extension.Instrument_Security_Code is NULL, XXX or XXXX. Inherit the segmentid.',
2487: G_LEVEL_STATEMENT,l_dbg_mod);
2488: END IF;
2489: l_segment_id := lc_instr_code_sec_segment_id;
2490: ELSE
2489: l_segment_id := lc_instr_code_sec_segment_id;
2490: ELSE
2491: -- New CVV value passed. Need to encrypt it if encryption
2492: -- is turned ON
2493: iby_debug_pub.add('New CVV passed for the copied extension.',
2494: G_LEVEL_ERROR,l_dbg_mod);
2495: IF ('IMMEDIATE' = IBY_CREDITCARD_PKG.Get_CC_Encrypt_Mode()) THEN
2496: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2497: iby_debug_pub.add('Encryption is IMMEDIATE.',G_LEVEL_STATEMENT,l_dbg_mod);
2493: iby_debug_pub.add('New CVV passed for the copied extension.',
2494: G_LEVEL_ERROR,l_dbg_mod);
2495: IF ('IMMEDIATE' = IBY_CREDITCARD_PKG.Get_CC_Encrypt_Mode()) THEN
2496: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2497: iby_debug_pub.add('Encryption is IMMEDIATE.',G_LEVEL_STATEMENT,l_dbg_mod);
2498: END IF;
2499: -- Make an HTTP call out to the middle tier
2500: IBY_PAYMENT_ADAPTER_PUB.OraSecureExtension
2501: (FND_API.G_FALSE,
2508:
2509: lc_sec_code_len := length(p_trxn_attribs.Instrument_Security_Code);
2510: IF (NOT (l_resp_rec.Segment_ID IS NULL)) THEN
2511: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2512: iby_debug_pub.add('encryption successful!!',
2513: G_LEVEL_STATEMENT,l_dbg_mod);
2514: END IF;
2515: l_segment_id := l_resp_rec.Segment_ID;
2516: lc_encrypted := 'Y';
2517: l_extension.Instrument_Security_Code :=
2518: LPAD('X',LENGTH(p_trxn_attribs.Instrument_Security_Code),'X');
2519: ELSE
2520: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2521: iby_debug_pub.add('Unknown error occurred while cvv encryption !!',
2522: G_LEVEL_ERROR,l_dbg_mod);
2523: END IF;
2524: l_segment_id := null;
2525: lc_encrypted := 'N';
2526: l_sec_code := null;
2527: END IF;
2528: ELSE
2529: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2530: iby_debug_pub.add('Encryption mode is not IMMEDIATE. Clear text CVV would be stored',
2531: G_LEVEL_STATEMENT,l_dbg_mod);
2532: END IF;
2533: l_segment_id := null;
2534: l_encrypted := 'N';
2560: CLOSE c_auths;
2561:
2562: IF (l_persist_auth = 'Y') THEN
2563: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2564: iby_debug_pub.add('persistent auth; cannot do 1-to-many copy',
2565: G_LEVEL_ERROR,l_dbg_mod);
2566: END IF;
2567: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2568: iby_fndcpt_common_pub.Prepare_Result
2665: COMMIT;
2666: END IF;
2667:
2668: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2669: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
2670: END IF;
2671: EXCEPTION
2672:
2673: WHEN FND_API.G_EXC_ERROR THEN
2672:
2673: WHEN FND_API.G_EXC_ERROR THEN
2674: ROLLBACK TO Copy_Txn_Extension_Merge;
2675: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2676: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
2677: debug_level => G_LEVEL_ERROR,
2678: module => G_DEBUG_MODULE || l_module);
2679: END IF;
2680: x_return_status := FND_API.G_RET_STS_ERROR;
2683: );
2684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2685: ROLLBACK TO Copy_Txn_Extension_Merge;
2686: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2687: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
2688: debug_level => G_LEVEL_UNEXPECTED,
2689: module => G_DEBUG_MODULE || l_module);
2690: END IF;
2691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2696: WHEN OTHERS THEN
2697: ROLLBACK TO Copy_Txn_Extension_Merge;
2698:
2699: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2700: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2701: debug_level => G_LEVEL_UNEXPECTED,
2702: module => G_DEBUG_MODULE || l_module);
2703: END IF;
2704:
2713: p_data => x_msg_data
2714: );
2715:
2716: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2717: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2718: debug_level => G_LEVEL_STATEMENT,
2719: module => G_DEBUG_MODULE || l_module);
2720: iby_debug_pub.add(debug_msg => 'Exit Exception',
2721: debug_level => G_LEVEL_STATEMENT,
2716: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2717: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2718: debug_level => G_LEVEL_STATEMENT,
2719: module => G_DEBUG_MODULE || l_module);
2720: iby_debug_pub.add(debug_msg => 'Exit Exception',
2721: debug_level => G_LEVEL_STATEMENT,
2722: module => G_DEBUG_MODULE || l_module);
2723: END IF;
2724:
2744: l_module CONSTANT VARCHAR2(30) := 'Secure_Wipe_Segment';
2745: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
2746: BEGIN
2747: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2748: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
2749: END IF;
2750: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2751: iby_debug_pub.add('p_segment_id = '|| p_segment_id,G_LEVEL_STATEMENT,l_dbg_mod);
2752: END IF;
2747: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2748: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
2749: END IF;
2750: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2751: iby_debug_pub.add('p_segment_id = '|| p_segment_id,G_LEVEL_STATEMENT,l_dbg_mod);
2752: END IF;
2753: IF (p_segment_id IS NOT NULL) THEN
2754: SELECT trunc(DBMS_RANDOM.VALUE(1000,9999)) INTO l_random_val FROM dual;
2755:
2753: IF (p_segment_id IS NOT NULL) THEN
2754: SELECT trunc(DBMS_RANDOM.VALUE(1000,9999)) INTO l_random_val FROM dual;
2755:
2756: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2757: iby_debug_pub.add('Updating the security code with random value.',
2758: G_LEVEL_STATEMENT,l_dbg_mod);
2759: END IF;
2760: UPDATE iby_security_segments
2761: SET segment_cipher_text = RAWTOHEX(fnd_crypto.randombytes(32))
2772:
2773: COMMIT;
2774: END IF;
2775: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2776: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
2777: END IF;
2778:
2779: END Secure_Wipe_Segment;
2780:
2939: CONNECT BY PRIOR source_trxn_extension_id = copy_trxn_extension_id;
2940:
2941: BEGIN
2942: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2943: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_module);
2944: END IF;
2945:
2946: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
2947: IF (c_auth%ISOPEN) THEN CLOSE c_auth; END IF;
2953: l_module,
2954: G_PKG_NAME)
2955: THEN
2956: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2957: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
2958: debug_level => G_LEVEL_ERROR,
2959: module => G_DEBUG_MODULE || l_module);
2960: END IF;
2961: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2968: END IF;
2969: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
2970:
2971: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2972: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2969: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
2970:
2971: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2972: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2977: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2970:
2971: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2972: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2977: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2978: END IF;
2971: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2972: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2977: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2978: END IF;
2979: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2972: iby_debug_pub.add('checking payer context',G_LEVEL_STATEMENT,l_dbg_mod);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2977: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2978: END IF;
2979: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2980: l_payer_level,l_payer_id,l_payer_attribs);
2973: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2974: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2975: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2976: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2977: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2978: END IF;
2979: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2980: l_payer_level,l_payer_id,l_payer_attribs);
2981:
2978: END IF;
2979: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2980: l_payer_level,l_payer_id,l_payer_attribs);
2981:
2982: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2983: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2984:
2985: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2986: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2979: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2980: l_payer_level,l_payer_id,l_payer_attribs);
2981:
2982: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2983: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2984:
2985: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2986: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2987: ELSE
3001: l_ext_not_found := c_extension%NOTFOUND;
3002: CLOSE c_extension;
3003:
3004: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3005: iby_debug_pub.add('channel code:=' || l_pmt_trxn.payment_channel_code,
3006: G_LEVEL_STATEMENT,l_dbg_mod);
3007: iby_debug_pub.add('instrument type:=' || l_pmt_instr.pmtinstr_type,
3008: G_LEVEL_STATEMENT,l_dbg_mod);
3009: END IF;
3003:
3004: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3005: iby_debug_pub.add('channel code:=' || l_pmt_trxn.payment_channel_code,
3006: G_LEVEL_STATEMENT,l_dbg_mod);
3007: iby_debug_pub.add('instrument type:=' || l_pmt_instr.pmtinstr_type,
3008: G_LEVEL_STATEMENT,l_dbg_mod);
3009: END IF;
3010: IF (NOT l_ext_not_found) THEN
3011:
3024: RETURN;
3025: -- cannot do operations on a trxn entity already copied
3026: ELSIF (l_copy_count>0) THEN
3027: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3028: iby_debug_pub.add('extension has been copied ' || l_copy_count
3029: || ' times; cannot auth',G_LEVEL_ERROR,l_dbg_mod);
3030: END IF;
3031: x_response.Result_Code := G_RC_EXTENSION_IMMUTABLE;
3032: iby_fndcpt_common_pub.Prepare_Result
3076: FETCH c_instr_extensions INTO l_instr_auth_flag;
3077: CLOSE c_instr_extensions;
3078: IF (NVL(l_instr_auth_flag,'N') = 'Y') THEN
3079: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3080: iby_debug_pub.add('single use instrument cannot be reused',G_LEVEL_ERROR,l_dbg_mod);
3081: END IF;
3082: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTRUMENT;
3083: iby_fndcpt_common_pub.Prepare_Result
3084: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3090: --If the result code is fully reversed then re-generate the tangibleid for Re-auth
3091: OPEN c_auth(p_trxn_entity_id);
3092: FETCH c_auth INTO l_trxn_id, l_auth_result, l_pson;
3093: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3094: iby_debug_pub.add('p_trxn_entity_id:' || p_trxn_entity_id,G_LEVEL_ERROR,l_dbg_mod);
3095: iby_debug_pub.add('l_trxn_id:' || l_trxn_id,G_LEVEL_ERROR,l_dbg_mod);
3096: iby_debug_pub.add('l_auth_result:'||l_auth_result,G_LEVEL_ERROR,l_dbg_mod);
3097: iby_debug_pub.add('l_pson:' || l_pson,G_LEVEL_ERROR,l_dbg_mod);
3098: END IF;
3091: OPEN c_auth(p_trxn_entity_id);
3092: FETCH c_auth INTO l_trxn_id, l_auth_result, l_pson;
3093: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3094: iby_debug_pub.add('p_trxn_entity_id:' || p_trxn_entity_id,G_LEVEL_ERROR,l_dbg_mod);
3095: iby_debug_pub.add('l_trxn_id:' || l_trxn_id,G_LEVEL_ERROR,l_dbg_mod);
3096: iby_debug_pub.add('l_auth_result:'||l_auth_result,G_LEVEL_ERROR,l_dbg_mod);
3097: iby_debug_pub.add('l_pson:' || l_pson,G_LEVEL_ERROR,l_dbg_mod);
3098: END IF;
3099: IF (l_auth_result IN ('AUTH_SUCCESS', 'AUTH_PENDING')) THEN
3092: FETCH c_auth INTO l_trxn_id, l_auth_result, l_pson;
3093: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3094: iby_debug_pub.add('p_trxn_entity_id:' || p_trxn_entity_id,G_LEVEL_ERROR,l_dbg_mod);
3095: iby_debug_pub.add('l_trxn_id:' || l_trxn_id,G_LEVEL_ERROR,l_dbg_mod);
3096: iby_debug_pub.add('l_auth_result:'||l_auth_result,G_LEVEL_ERROR,l_dbg_mod);
3097: iby_debug_pub.add('l_pson:' || l_pson,G_LEVEL_ERROR,l_dbg_mod);
3098: END IF;
3099: IF (l_auth_result IN ('AUTH_SUCCESS', 'AUTH_PENDING')) THEN
3100: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3093: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3094: iby_debug_pub.add('p_trxn_entity_id:' || p_trxn_entity_id,G_LEVEL_ERROR,l_dbg_mod);
3095: iby_debug_pub.add('l_trxn_id:' || l_trxn_id,G_LEVEL_ERROR,l_dbg_mod);
3096: iby_debug_pub.add('l_auth_result:'||l_auth_result,G_LEVEL_ERROR,l_dbg_mod);
3097: iby_debug_pub.add('l_pson:' || l_pson,G_LEVEL_ERROR,l_dbg_mod);
3098: END IF;
3099: IF (l_auth_result IN ('AUTH_SUCCESS', 'AUTH_PENDING')) THEN
3100: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3101: iby_debug_pub.add('Extension already authorized',G_LEVEL_ERROR,l_dbg_mod);
3097: iby_debug_pub.add('l_pson:' || l_pson,G_LEVEL_ERROR,l_dbg_mod);
3098: END IF;
3099: IF (l_auth_result IN ('AUTH_SUCCESS', 'AUTH_PENDING')) THEN
3100: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3101: iby_debug_pub.add('Extension already authorized',G_LEVEL_ERROR,l_dbg_mod);
3102: END IF;
3103: x_response.Result_Code := G_RC_DUPLICATE_AUTHORIZATION;
3104: ELSE
3105: IF(l_auth_result = 'FULLY_REVERSED') THEN
3105: IF(l_auth_result = 'FULLY_REVERSED') THEN
3106: l_tangible.Tangible_Id :=
3107: Get_Reauth_Tangible_Id(l_app_short_name,p_trxn_entity_id);
3108: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3109: iby_debug_pub.add('Re-auth Tangible_Id:' || l_tangible.Tangible_Id,G_LEVEL_ERROR,l_dbg_mod);
3110: END IF;
3111: l_pmt_trxn.Trxn_ID := l_trxn_id;
3112: ELSE
3113: l_tangible.Tangible_Id := NVL(l_pson, get_tangible_id(l_app_short_name,p_trxn_entity_id));
3111: l_pmt_trxn.Trxn_ID := l_trxn_id;
3112: ELSE
3113: l_tangible.Tangible_Id := NVL(l_pson, get_tangible_id(l_app_short_name,p_trxn_entity_id));
3114: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3115: iby_debug_pub.add('Other than full reversal case:' || l_tangible.Tangible_Id,G_LEVEL_ERROR,l_dbg_mod);
3116: END IF;
3117: END IF;
3118: --Bug# 16353469 (End)
3119: IF (p_auth_attribs.RiskEval_Enable_Flag = 'Y') THEN
3126: IF (l_rec_mth_id IS NULL)
3127: THEN
3128: Begin
3129: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3130: iby_debug_pub.add('fetching the rec method id from AR',G_LEVEL_STATEMENT,l_dbg_mod);
3131: END IF;
3132: select RECEIPT_METHOD_ID
3133: into l_rec_mth_id
3134: from ar_cash_receipts_all
3133: into l_rec_mth_id
3134: from ar_cash_receipts_all
3135: where payment_trxn_extension_id = p_trxn_entity_id;
3136: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3137: iby_debug_pub.add('fetched method id '||l_rec_mth_id ,G_LEVEL_STATEMENT,l_dbg_mod);
3138: END IF;
3139: Exception
3140: When Others then
3141: l_rec_mth_id := NULL;
3146:
3147: l_pmt_trxn.Receipt_Method_Id := l_rec_mth_id;
3148:
3149: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3150: iby_debug_pub.add('send auth',G_LEVEL_STATEMENT,l_dbg_mod);
3151: END IF;
3152: IBY_PAYMENT_ADAPTER_PUB.OraPmtReq
3153: (1.0,
3154: p_init_msg_list,
3166: l_reqresp
3167: );
3168:
3169: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3170: iby_debug_pub.add('status :=' || l_return_status,
3171: G_LEVEL_STATEMENT,l_dbg_mod);
3172: iby_debug_pub.add('auth status :=' ||
3173: to_char(l_reqresp.Response.Status),
3174: G_LEVEL_STATEMENT,l_dbg_mod);
3168:
3169: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3170: iby_debug_pub.add('status :=' || l_return_status,
3171: G_LEVEL_STATEMENT,l_dbg_mod);
3172: iby_debug_pub.add('auth status :=' ||
3173: to_char(l_reqresp.Response.Status),
3174: G_LEVEL_STATEMENT,l_dbg_mod);
3175: iby_debug_pub.add('auth engine code :=' ||
3176: to_char(l_reqresp.Response.ErrCode),
3171: G_LEVEL_STATEMENT,l_dbg_mod);
3172: iby_debug_pub.add('auth status :=' ||
3173: to_char(l_reqresp.Response.Status),
3174: G_LEVEL_STATEMENT,l_dbg_mod);
3175: iby_debug_pub.add('auth engine code :=' ||
3176: to_char(l_reqresp.Response.ErrCode),
3177: G_LEVEL_STATEMENT,l_dbg_mod);
3178: iby_debug_pub.add('auth engine msg :=' ||
3179: to_char(l_reqresp.Response.ErrMessage),
3174: G_LEVEL_STATEMENT,l_dbg_mod);
3175: iby_debug_pub.add('auth engine code :=' ||
3176: to_char(l_reqresp.Response.ErrCode),
3177: G_LEVEL_STATEMENT,l_dbg_mod);
3178: iby_debug_pub.add('auth engine msg :=' ||
3179: to_char(l_reqresp.Response.ErrMessage),
3180: G_LEVEL_STATEMENT,l_dbg_mod);
3181:
3182: iby_debug_pub.add('payment system code :=' ||
3178: iby_debug_pub.add('auth engine msg :=' ||
3179: to_char(l_reqresp.Response.ErrMessage),
3180: G_LEVEL_STATEMENT,l_dbg_mod);
3181:
3182: iby_debug_pub.add('payment system code :=' ||
3183: to_char(l_reqresp.BEPErrCode),
3184: G_LEVEL_STATEMENT,l_dbg_mod);
3185: iby_debug_pub.add('payment system msg :=' ||
3186: to_char(l_reqresp.BEPErrMessage),
3181:
3182: iby_debug_pub.add('payment system code :=' ||
3183: to_char(l_reqresp.BEPErrCode),
3184: G_LEVEL_STATEMENT,l_dbg_mod);
3185: iby_debug_pub.add('payment system msg :=' ||
3186: to_char(l_reqresp.BEPErrMessage),
3187: G_LEVEL_STATEMENT,l_dbg_mod);
3188:
3189: iby_debug_pub.add('trxn id :=' ||
3185: iby_debug_pub.add('payment system msg :=' ||
3186: to_char(l_reqresp.BEPErrMessage),
3187: G_LEVEL_STATEMENT,l_dbg_mod);
3188:
3189: iby_debug_pub.add('trxn id :=' ||
3190: to_char(l_reqresp.Trxn_ID),
3191: G_LEVEL_STATEMENT,l_dbg_mod);
3192: END IF;
3193: IF (p_auth_attribs.RiskEval_Enable_Flag = 'Y') THEN
3228: CONNECT BY PRIOR source_trxn_extension_id = copy_trxn_extension_id
3229: );
3230:
3231: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3232: iby_debug_pub.add('No. of source extensions updated= :'||SQL%ROWCOUNT,
3233: G_LEVEL_STATEMENT,l_dbg_mod);
3234: END IF;
3235:
3236: -- As per PABP guidelines, the cvv value should be consumed
3238: -- then update with null and issue another commit.
3239: -- This is handled through the below procedure call.
3240: IF (l_code_segment_id IS NOT NULL) THEN
3241: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3242: iby_debug_pub.add('Call to Securely_Wipe_Segment.',
3243: G_LEVEL_STATEMENT,l_dbg_mod);
3244: END IF;
3245: Secure_Wipe_Segment(l_code_segment_id);
3246: FOR extn_rec IN c_source_extns(p_trxn_entity_id) LOOP
3260: SET dirdeb_instruction_code = l_payer_attribs.DirectDebit_BankInstruction
3261: WHERE transactionid = l_reqresp.Trxn_Id;
3262:
3263: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3264: iby_debug_pub.add('Set DirectDebit_BankInstruction for trxn',
3265: G_LEVEL_STATEMENT,l_dbg_mod);
3266: END IF;
3267:
3268: EXCEPTION
3267:
3268: EXCEPTION
3269: WHEN OTHERS THEN
3270: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3271: iby_debug_pub.add('Unable to retrieve/set payer attribs for trxn',
3272: G_LEVEL_EXCEPTION,l_dbg_mod);
3273: END IF;
3274: END;
3275:
3275:
3276: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
3277: -- IBY_FNDCPT_TX_EXTENSIONS table
3278: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3279: iby_debug_pub.add( 'Stamping the PSON on the extension as '||
3280: l_tangible.Tangible_Id,
3281: G_LEVEL_STATEMENT,l_dbg_mod);
3282: END IF;
3283:
3287:
3288: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
3289: -- on the corresponding record in iby_trxn_summaries_all
3290: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3291: iby_debug_pub.add( 'Stamping '||p_trxn_entity_id ||' as the initiator_extension_id'
3292: ||'on the auth record', G_LEVEL_STATEMENT,l_dbg_mod);
3293: END IF;
3294: UPDATE iby_trxn_summaries_all
3295: SET initiator_extension_id = p_trxn_entity_id
3296: WHERE transactionid = l_reqresp.Trxn_Id
3297: AND reqtype = 'ORAPMTREQ';
3298:
3299: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3300: iby_debug_pub.add('creating extension operation record for=' ||
3301: p_trxn_entity_id,G_LEVEL_STATEMENT,l_dbg_mod);
3302: END IF;
3303:
3304: -- check to see if the operation is already recorded
3308: l_op_count := NVL(l_op_count,0);
3309:
3310: IF ( l_op_count > 0 ) THEN
3311: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3312: iby_debug_pub.add( 'operation already recorded',G_LEVEL_STATEMENT,l_dbg_mod);
3313: END IF;
3314: ELSE
3315: INSERT INTO iby_fndcpt_tx_operations
3316: (trxn_extension_id, transactionid,
3338: START WITH copy_trxn_extension_id = p_trxn_entity_id
3339: CONNECT BY PRIOR source_trxn_extension_id = copy_trxn_extension_id;
3340:
3341: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3342: iby_debug_pub.add('back-propogated rows:='||SQL%ROWCOUNT,G_LEVEL_STATEMENT,l_dbg_mod);
3343: END IF;
3344:
3345: --
3346: -- forward propogate the authorization
3357: START WITH source_trxn_extension_id = p_trxn_entity_id
3358: CONNECT BY source_trxn_extension_id = PRIOR copy_trxn_extension_id;
3359:
3360: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3361: iby_debug_pub.add('forward-propogated rows:='||SQL%ROWCOUNT,G_LEVEL_STATEMENT,l_dbg_mod);
3362: END IF;
3363:
3364: END IF;
3365:
3381:
3382: /* Bug 11903662*/
3383: IF (l_single_use = 'Y') THEN
3384: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3385: iby_debug_pub.add('Single Use Flag is True for the Credit Card Updating Marking Active Flag to N',G_LEVEL_STATEMENT,l_dbg_mod);
3386: END IF;
3387: UPDATE iby_creditcard SET active_flag = 'N' where instrid = l_pmt_instr.PmtInstr_Id;
3388: END IF;
3389: ELSE
3407: --displayed previously.
3408: l_reqresp.Response.ErrMessage :=
3409: l_reqresp.BEPErrMessage || ' (' ||
3410: l_reqresp.BEPErrCode || ')';
3411: iby_debug_pub.add('Response Message from BEPErrMessage: '||l_reqresp.Response.ErrMessage,G_LEVEL_STATEMENT,l_dbg_mod);
3412: ELSIF( (NOT l_reqresp.Response.ErrMessage IS NULL)
3413: OR (NOT l_reqresp.Response.ErrCode IS NULL) )
3414: THEN
3415: --UnCommenting this for Bug: 10240644
3415: --UnCommenting this for Bug: 10240644
3416: l_reqresp.Response.ErrMessage :=
3417: l_reqresp.Response.ErrMessage || ' (' ||
3418: l_reqresp.Response.ErrCode || ')';
3419: iby_debug_pub.add('Response Message from engine: '||l_reqresp.Response.ErrMessage,G_LEVEL_STATEMENT,l_dbg_mod);
3420: --End of Bug:10240644.
3421: ELSE
3422: l_reqresp.Response.ErrMessage := FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_FALSE) || ' (' ||
3423: FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_TRUE) || ')';
3421: ELSE
3422: l_reqresp.Response.ErrMessage := FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_FALSE) || ' (' ||
3423: FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_TRUE) || ')';
3424: l_reqresp.Response.ErrCode := FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_TRUE);
3425: iby_debug_pub.add('Response Message from FND Stack: '||l_reqresp.Response.ErrMessage,G_LEVEL_STATEMENT,l_dbg_mod);
3426: END IF;
3427:
3428: iby_fndcpt_common_pub.Prepare_Result(
3429: iby_payment_adapter_pub.G_INTERFACE_CODE,
3437:
3438: --Commenting this for Bug: 9380078
3439: -- Need to pass the bepmessages to the source products.
3440: -- x_response.Result_Code := 'COMMUNICATION_ERROR';
3441: iby_debug_pub.add('*** assigning messages to the response object',
3442: G_LEVEL_STATEMENT,l_dbg_mod);
3443:
3444: x_response.Result_Code := substr(to_char(l_reqresp.Response.ErrCode),0,30);
3445: x_response.Result_Category := substr(l_reqresp.BEPErrMessage,0,30);
3444: x_response.Result_Code := substr(to_char(l_reqresp.Response.ErrCode),0,30);
3445: x_response.Result_Category := substr(l_reqresp.BEPErrMessage,0,30);
3446: x_response.Result_Message := to_char(l_reqresp.Response.ErrMessage);
3447:
3448: iby_debug_pub.add('x_response.Result_Code :=' || x_response.Result_Code ,
3449: G_LEVEL_STATEMENT,l_dbg_mod);
3450:
3451: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
3452: G_LEVEL_STATEMENT,l_dbg_mod);
3447:
3448: iby_debug_pub.add('x_response.Result_Code :=' || x_response.Result_Code ,
3449: G_LEVEL_STATEMENT,l_dbg_mod);
3450:
3451: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
3452: G_LEVEL_STATEMENT,l_dbg_mod);
3453:
3454: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
3455: G_LEVEL_STATEMENT,l_dbg_mod);
3450:
3451: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
3452: G_LEVEL_STATEMENT,l_dbg_mod);
3453:
3454: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
3455: G_LEVEL_STATEMENT,l_dbg_mod);
3456:
3457: iby_debug_pub.add('*** assigned messages to the response object',
3458: G_LEVEL_STATEMENT,l_dbg_mod);
3453:
3454: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
3455: G_LEVEL_STATEMENT,l_dbg_mod);
3456:
3457: iby_debug_pub.add('*** assigned messages to the response object',
3458: G_LEVEL_STATEMENT,l_dbg_mod);
3459:
3460: RETURN;
3461: END IF;
3465: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
3466:
3467: l_fail_msg := Get_Extension_Auth_Fail(p_trxn_entity_id,p_payer);
3468: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3469: iby_debug_pub.add('fail msg code:=' || l_fail_msg,G_LEVEL_ERROR,l_dbg_mod);
3470: END IF;
3471: IF (NOT l_fail_msg IS NULL) THEN
3472: FND_MESSAGE.SET_NAME('IBY',l_fail_msg);
3473: l_fail_msg := FND_MESSAGE.GET();
3485: iby_fndcpt_common_pub.Prepare_Result
3486: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3487:
3488: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3489: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3490: END IF;
3491: EXCEPTION
3492:
3493: WHEN FND_API.G_EXC_ERROR THEN
3492:
3493: WHEN FND_API.G_EXC_ERROR THEN
3494:
3495: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3496: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
3497: debug_level => G_LEVEL_EXCEPTION,
3498: module => G_DEBUG_MODULE || l_module);
3499: END IF;
3500: x_return_status := FND_API.G_RET_STS_ERROR;
3503: );
3504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505:
3506: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3507: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
3508: debug_level => G_LEVEL_UNEXPECTED,
3509: module => G_DEBUG_MODULE || l_module);
3510: END IF;
3511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3515:
3516: WHEN OTHERS THEN
3517:
3518: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3519: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
3520: debug_level => G_LEVEL_UNEXPECTED,
3521: module => G_DEBUG_MODULE || l_module);
3522: END IF;
3523:
3565: DECODE(authorization_result_code, 'AUTH_SUCCESS',10,
3566: 'AUTH_PENDING',5, 0) DESC;
3567: BEGIN
3568: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3569: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_module);
3570: END IF;
3571:
3572:
3573: IF (c_auth%ISOPEN) THEN CLOSE c_auth; END IF;
3577: l_module,
3578: G_PKG_NAME)
3579: THEN
3580: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3581: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
3582: debug_level => G_LEVEL_ERROR,
3583: module => G_DEBUG_MODULE || l_module);
3584: END IF;
3585: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3607: iby_fndcpt_common_pub.Prepare_Result
3608: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3609:
3610: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3611: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3612: END IF;
3613:
3614: EXCEPTION
3615:
3615:
3616: WHEN FND_API.G_EXC_ERROR THEN
3617:
3618: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3619: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
3620: debug_level => G_LEVEL_EXCEPTION,
3621: module => G_DEBUG_MODULE || l_module);
3622: END IF;
3623: x_return_status := FND_API.G_RET_STS_ERROR;
3626: );
3627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3628:
3629: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3630: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
3631: debug_level => G_LEVEL_UNEXPECTED,
3632: module => G_DEBUG_MODULE || l_module);
3633: END IF;
3634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3638:
3639: WHEN OTHERS THEN
3640:
3641: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3642: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
3643: debug_level => G_LEVEL_UNEXPECTED,
3644: module => G_DEBUG_MODULE || l_module);
3645: END IF;
3646:
3674: l_module CONSTANT VARCHAR2(30) := 'Cancel_Authorization';
3675: l_prev_msg_count NUMBER;
3676: BEGIN
3677: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3678: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_module);
3679: END IF;
3680:
3681:
3682: IF NOT FND_API.Compatible_API_Call (l_api_version,
3683: p_api_version,
3684: l_module,
3685: G_PKG_NAME)
3686: THEN
3687: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
3688: debug_level => G_LEVEL_ERROR,
3689: module => G_DEBUG_MODULE || l_module);
3690: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3691: FND_MSG_PUB.Add;
3702: iby_fndcpt_common_pub.Prepare_Result
3703: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3704:
3705: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3706: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3707: END IF;
3708:
3709: EXCEPTION
3710:
3710:
3711: WHEN FND_API.G_EXC_ERROR THEN
3712:
3713: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3714: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
3715: debug_level => G_LEVEL_ERROR,
3716: module => G_DEBUG_MODULE || l_module);
3717: END IF;
3718: x_return_status := FND_API.G_RET_STS_ERROR;
3720: p_data => x_msg_data
3721: );
3722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3723: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3724: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
3725: debug_level => G_LEVEL_UNEXPECTED,
3726: module => G_DEBUG_MODULE || l_module);
3727: END IF;
3728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3732:
3733: WHEN OTHERS THEN
3734:
3735: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3736: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
3737: debug_level => G_LEVEL_UNEXPECTED,
3738: module => G_DEBUG_MODULE || l_module);
3739: END IF;
3740:
3864:
3865: BEGIN
3866:
3867: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3868: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
3869: END IF;
3870:
3871:
3872: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
3879: l_module,
3880: G_PKG_NAME)
3881: THEN
3882: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3883: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
3884: debug_level => G_LEVEL_ERROR,
3885: module => G_DEBUG_MODULE || l_module);
3886: END IF;
3887: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3898: l_payer_level,l_payer_id,l_payer_attribs);
3899:
3900: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
3901: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3902: iby_debug_pub.add('invalid payer',G_LEVEL_ERROR,l_dbg_mod);
3903: END IF;
3904: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3905: ELSE
3906: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3903: END IF;
3904: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3905: ELSE
3906: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3907: iby_debug_pub.add('Create Settlemnet- Valid Payer',G_LEVEL_STATEMENT,l_dbg_mod);
3908: END IF;
3909: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,p_payer_equivalency);
3910: FETCH c_extension INTO l_pmt_instr.PmtInstr_Type,
3911: l_pmt_instr.PmtInstr_Id, l_ecapp_id, l_app_short_name,
3917: l_pmt_trxn.payment_channel_code;
3918: CLOSE c_extension;
3919:
3920: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3921: iby_debug_pub.add('retrieveing extn attrs rows' || SQL%ROWCOUNT,G_LEVEL_STATEMENT,l_dbg_mod);
3922: END IF;
3923:
3924:
3925: IF (l_ecapp_id IS NULL) THEN
3923:
3924:
3925: IF (l_ecapp_id IS NULL) THEN
3926: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3927: iby_debug_pub.add('Create Settlemnet. l_ecapp_id is null ',G_LEVEL_STATEMENT,l_dbg_mod);
3928: END IF;
3929: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
3930: ELSE
3931: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3928: END IF;
3929: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
3930: ELSE
3931: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3932: iby_debug_pub.add('Create Settlemnet. l_ecapp_id is not null. l_pmt_instr.PmtInstr_Type ' || l_pmt_instr.PmtInstr_Type,G_LEVEL_STATEMENT,l_dbg_mod);
3933: END IF;
3934: IF (l_pmt_instr.PmtInstr_Type = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
3935: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3936: iby_debug_pub.add('Create Settlemnet. Entered Bank Account flow. p_trxn_entity_id ' || p_trxn_entity_id,G_LEVEL_STATEMENT,l_dbg_mod);
3932: iby_debug_pub.add('Create Settlemnet. l_ecapp_id is not null. l_pmt_instr.PmtInstr_Type ' || l_pmt_instr.PmtInstr_Type,G_LEVEL_STATEMENT,l_dbg_mod);
3933: END IF;
3934: IF (l_pmt_instr.PmtInstr_Type = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
3935: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3936: iby_debug_pub.add('Create Settlemnet. Entered Bank Account flow. p_trxn_entity_id ' || p_trxn_entity_id,G_LEVEL_STATEMENT,l_dbg_mod);
3937: END IF;
3938: OPEN C_PAYEE(p_trxn_entity_id);
3939: FETCH C_PAYEE INTO l_payee.Payee_Id, l_pmt_trxn.org_id, l_pmt_trxn.org_type;
3940: IF C_PAYEE%NOTFOUND THEN
3939: FETCH C_PAYEE INTO l_payee.Payee_Id, l_pmt_trxn.org_id, l_pmt_trxn.org_type;
3940: IF C_PAYEE%NOTFOUND THEN
3941: CLOSE C_PAYEE;
3942: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3943: iby_debug_pub.add('Invalid Payee ',G_LEVEL_STATEMENT,l_dbg_mod);
3944: END IF;
3945: x_response.Result_Code := G_RC_INVALID_PAYEE;
3946:
3947: iby_fndcpt_common_pub.Prepare_Result
3950:
3951: END IF;
3952: CLOSE C_PAYEE;
3953: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3954: iby_debug_pub.add('Payee id ' || l_payee.Payee_Id || ' org id ' || l_pmt_trxn.org_id || ' org type ' || l_pmt_trxn.org_type ,G_LEVEL_STATEMENT,l_dbg_mod);
3955: END IF;
3956:
3957:
3958: l_pmt_trxn.Auth_Type := IBY_PAYMENT_ADAPTER_PUB.G_AUTHTYPE_AUTHONLY;
3978: l_pmt_trxn.Trxn_Extension_Id := p_trxn_entity_id;
3979: END IF;
3980:
3981: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3982: iby_debug_pub.add('calling IBY_PAYMENT_ADAPTER_PUB.oraPmtReq ',G_LEVEL_STATEMENT,l_dbg_mod);
3983: END IF;
3984: IBY_PAYMENT_ADAPTER_PUB.OraPmtReq
3985: (1.0, p_init_msg_list, FND_API.G_FALSE, FND_API.G_VALID_LEVEL_FULL,
3986: l_ecapp_id, l_payee, l_payer, l_pmt_instr,
3992: l_reqresp
3993: );
3994:
3995: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3996: iby_debug_pub.add('status :=' || lx_return_status,
3997: G_LEVEL_STATEMENT,l_dbg_mod);
3998: iby_debug_pub.add('auth status :=' ||
3999: to_char(l_reqresp.Response.Status),
4000: G_LEVEL_STATEMENT,l_dbg_mod);
3994:
3995: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3996: iby_debug_pub.add('status :=' || lx_return_status,
3997: G_LEVEL_STATEMENT,l_dbg_mod);
3998: iby_debug_pub.add('auth status :=' ||
3999: to_char(l_reqresp.Response.Status),
4000: G_LEVEL_STATEMENT,l_dbg_mod);
4001: iby_debug_pub.add('auth engine code :=' ||
4002: to_char(l_reqresp.Response.ErrCode),
3997: G_LEVEL_STATEMENT,l_dbg_mod);
3998: iby_debug_pub.add('auth status :=' ||
3999: to_char(l_reqresp.Response.Status),
4000: G_LEVEL_STATEMENT,l_dbg_mod);
4001: iby_debug_pub.add('auth engine code :=' ||
4002: to_char(l_reqresp.Response.ErrCode),
4003: G_LEVEL_STATEMENT,l_dbg_mod);
4004: iby_debug_pub.add('auth engine msg :=' ||
4005: to_char(l_reqresp.Response.ErrMessage),
4000: G_LEVEL_STATEMENT,l_dbg_mod);
4001: iby_debug_pub.add('auth engine code :=' ||
4002: to_char(l_reqresp.Response.ErrCode),
4003: G_LEVEL_STATEMENT,l_dbg_mod);
4004: iby_debug_pub.add('auth engine msg :=' ||
4005: to_char(l_reqresp.Response.ErrMessage),
4006: G_LEVEL_STATEMENT,l_dbg_mod);
4007:
4008: iby_debug_pub.add('payment system code :=' ||
4004: iby_debug_pub.add('auth engine msg :=' ||
4005: to_char(l_reqresp.Response.ErrMessage),
4006: G_LEVEL_STATEMENT,l_dbg_mod);
4007:
4008: iby_debug_pub.add('payment system code :=' ||
4009: to_char(l_reqresp.BEPErrCode),
4010: G_LEVEL_STATEMENT,l_dbg_mod);
4011: iby_debug_pub.add('payment system msg :=' ||
4012: to_char(l_reqresp.BEPErrMessage),
4007:
4008: iby_debug_pub.add('payment system code :=' ||
4009: to_char(l_reqresp.BEPErrCode),
4010: G_LEVEL_STATEMENT,l_dbg_mod);
4011: iby_debug_pub.add('payment system msg :=' ||
4012: to_char(l_reqresp.BEPErrMessage),
4013: G_LEVEL_STATEMENT,l_dbg_mod);
4014:
4015: iby_debug_pub.add('trxn id :=' ||
4011: iby_debug_pub.add('payment system msg :=' ||
4012: to_char(l_reqresp.BEPErrMessage),
4013: G_LEVEL_STATEMENT,l_dbg_mod);
4014:
4015: iby_debug_pub.add('trxn id :=' ||
4016: to_char(l_reqresp.Trxn_ID),
4017: G_LEVEL_STATEMENT,l_dbg_mod);
4018:
4019: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
4017: G_LEVEL_STATEMENT,l_dbg_mod);
4018:
4019: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
4020: -- IBY_FNDCPT_TX_EXTENSIONS table
4021: iby_debug_pub.add( 'Stamping the PSON on the extension as '||
4022: l_tangible.Tangible_Id,
4023: G_LEVEL_STATEMENT,l_dbg_mod);
4024: END IF;
4025:
4029:
4030: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
4031: -- on the corresponding record in iby_trxn_summaries_all
4032: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4033: iby_debug_pub.add( 'Stamping '||p_trxn_entity_id ||' as the initiator_extension_id'
4034: ||'on the auth record', G_LEVEL_STATEMENT,l_dbg_mod);
4035: END IF;
4036:
4037: UPDATE iby_trxn_summaries_all
4081: CLOSE c_operation_count;
4082:
4083: IF (NVL(l_op_count,0) = 0) THEN
4084: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4085: iby_debug_pub.add('inserting into iby_fndcpt_tx_operations.',
4086: G_LEVEL_STATEMENT,l_dbg_mod);
4087: END IF;
4088: INSERT INTO iby_fndcpt_tx_operations
4089: (trxn_extension_id, transactionid,
4111: START WITH copy_trxn_extension_id = p_trxn_entity_id
4112: CONNECT BY PRIOR source_trxn_extension_id = copy_trxn_extension_id;
4113:
4114: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4115: iby_debug_pub.add('back-propogated rows:='||SQL%ROWCOUNT,
4116: G_LEVEL_STATEMENT,l_dbg_mod);
4117: END IF;
4118:
4119: --
4131: START WITH source_trxn_extension_id = p_trxn_entity_id
4132: CONNECT BY source_trxn_extension_id = PRIOR copy_trxn_extension_id;
4133:
4134: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4135: iby_debug_pub.add('forward-propogated rows:='||SQL%ROWCOUNT,G_LEVEL_STATEMENT,l_dbg_mod);
4136: END IF;
4137: END IF;
4138: ELSE
4139: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4136: END IF;
4137: END IF;
4138: ELSE
4139: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4140: iby_debug_pub.add('not bank account settlement ',G_LEVEL_STATEMENT,l_dbg_mod);
4141: END IF;
4142:
4143: OPEN c_auth(p_trxn_entity_id);
4144: FETCH c_auth INTO l_transactionid;
4146: IF (l_transactionid IS NULL) THEN
4147: x_response.Result_Code := G_RC_INVALID_AUTHORIZATION;
4148: ELSE
4149: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4150: iby_debug_pub.add('calling capture',G_LEVEL_STATEMENT,l_dbg_mod);
4151: END IF;
4152: l_capture_trxn.PmtMode := 'ONLINE';
4153: l_capture_trxn.Trxn_Id := l_transactionid;
4154: l_capture_trxn.Price := p_amount.Value;
4154: l_capture_trxn.Price := p_amount.Value;
4155: l_capture_trxn.Currency := p_amount.Currency_Code;
4156:
4157: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4158: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,l_dbg_mod);
4159: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,l_dbg_mod);
4160: END IF;
4161: l_capture_trxn.Settlement_Date := p_receipt_attribs.Settlement_Date;
4162:
4155: l_capture_trxn.Currency := p_amount.Currency_Code;
4156:
4157: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4158: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,l_dbg_mod);
4159: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,l_dbg_mod);
4160: END IF;
4161: l_capture_trxn.Settlement_Date := p_receipt_attribs.Settlement_Date;
4162:
4163: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4160: END IF;
4161: l_capture_trxn.Settlement_Date := p_receipt_attribs.Settlement_Date;
4162:
4163: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4164: iby_debug_pub.add('Create Settlement- calling OraPmtCapture ' ,G_LEVEL_STATEMENT,l_dbg_mod);
4165: END IF;
4166: IBY_PAYMENT_ADAPTER_PUB.OraPmtCapture
4167: (1.0, p_init_msg_list, FND_API.G_FALSE, FND_API.G_VALID_LEVEL_FULL,
4168: l_ecapp_id, l_capture_trxn,
4169: lx_return_status, lx_msg_count, lx_msg_data, lx_capresp
4170: );
4171:
4172: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4173: iby_debug_pub.add('status :=' || lx_return_status,
4174: G_LEVEL_STATEMENT,l_dbg_mod);
4175: iby_debug_pub.add('capture status :=' ||
4176: to_char(lx_capresp.Response.Status),
4177: G_LEVEL_STATEMENT,l_dbg_mod);
4171:
4172: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4173: iby_debug_pub.add('status :=' || lx_return_status,
4174: G_LEVEL_STATEMENT,l_dbg_mod);
4175: iby_debug_pub.add('capture status :=' ||
4176: to_char(lx_capresp.Response.Status),
4177: G_LEVEL_STATEMENT,l_dbg_mod);
4178: iby_debug_pub.add('engine code :=' ||
4179: to_char(lx_capresp.Response.ErrCode),
4174: G_LEVEL_STATEMENT,l_dbg_mod);
4175: iby_debug_pub.add('capture status :=' ||
4176: to_char(lx_capresp.Response.Status),
4177: G_LEVEL_STATEMENT,l_dbg_mod);
4178: iby_debug_pub.add('engine code :=' ||
4179: to_char(lx_capresp.Response.ErrCode),
4180: G_LEVEL_STATEMENT,l_dbg_mod);
4181: iby_debug_pub.add('engine msg :=' ||
4182: to_char(lx_capresp.Response.ErrMessage),
4177: G_LEVEL_STATEMENT,l_dbg_mod);
4178: iby_debug_pub.add('engine code :=' ||
4179: to_char(lx_capresp.Response.ErrCode),
4180: G_LEVEL_STATEMENT,l_dbg_mod);
4181: iby_debug_pub.add('engine msg :=' ||
4182: to_char(lx_capresp.Response.ErrMessage),
4183: G_LEVEL_STATEMENT,l_dbg_mod);
4184:
4185: iby_debug_pub.add('payment system code :=' ||
4181: iby_debug_pub.add('engine msg :=' ||
4182: to_char(lx_capresp.Response.ErrMessage),
4183: G_LEVEL_STATEMENT,l_dbg_mod);
4184:
4185: iby_debug_pub.add('payment system code :=' ||
4186: to_char(lx_capresp.BEPErrCode),
4187: G_LEVEL_STATEMENT,l_dbg_mod);
4188: iby_debug_pub.add('payment system msg :=' ||
4189: to_char(lx_capresp.BEPErrMessage),
4184:
4185: iby_debug_pub.add('payment system code :=' ||
4186: to_char(lx_capresp.BEPErrCode),
4187: G_LEVEL_STATEMENT,l_dbg_mod);
4188: iby_debug_pub.add('payment system msg :=' ||
4189: to_char(lx_capresp.BEPErrMessage),
4190: G_LEVEL_STATEMENT,l_dbg_mod);
4191:
4192: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
4190: G_LEVEL_STATEMENT,l_dbg_mod);
4191:
4192: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
4193: -- on the corresponding record in iby_trxn_summaries_all
4194: iby_debug_pub.add( 'Stamping '||p_trxn_entity_id ||' as the initiator_extension_id'
4195: ||'on the capture record', G_LEVEL_STATEMENT,l_dbg_mod);
4196: END IF;
4197:
4198: UPDATE iby_trxn_summaries_all
4243: iby_fndcpt_common_pub.Prepare_Result
4244: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
4245:
4246: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4247: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
4248: END IF;
4249:
4250:
4251: EXCEPTION
4252:
4253: WHEN FND_API.G_EXC_ERROR THEN
4254:
4255: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4256: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
4257: debug_level => G_LEVEL_EXCEPTION,
4258: module => G_DEBUG_MODULE || l_module);
4259: END IF;
4260: x_return_status := FND_API.G_RET_STS_ERROR;
4262: p_data => x_msg_data
4263: );
4264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4265: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4266: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
4267: debug_level => G_LEVEL_UNEXPECTED,
4268: module => G_DEBUG_MODULE || l_module);
4269: END IF;
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4274:
4275: WHEN OTHERS THEN
4276:
4277: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4278: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
4279: debug_level => G_LEVEL_UNEXPECTED,
4280: module => G_DEBUG_MODULE || l_module);
4281: END IF;
4282: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
4313: l_module CONSTANT VARCHAR2(30) := 'Create_Settlement(2)';
4314: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
4315: BEGIN
4316: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4317: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
4318: END IF;
4319:
4320: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4321: iby_debug_pub.add( 'Overloaded API invoked. ReceiptAttribs_rec_type will be defaulted to Null',
4317: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
4318: END IF;
4319:
4320: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4321: iby_debug_pub.add( 'Overloaded API invoked. ReceiptAttribs_rec_type will be defaulted to Null',
4322: G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
4323: END IF;
4324:
4325: p_receipt_attribs.Settlement_Date := NULL;
4339: p_receipt_attribs,
4340: x_response
4341: );
4342: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4343: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
4344: END IF;
4345:
4346: END Create_Settlement;
4347:
4490: AND I.CARD_ISSUER_CODE=ci_issuer;
4491:
4492: BEGIN
4493:
4494: --iby_debug_pub.add('ENTER',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
4495: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4496: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
4497: END IF;
4498:
4492: BEGIN
4493:
4494: --iby_debug_pub.add('ENTER',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
4495: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4496: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
4497: END IF;
4498:
4499: -- Close the cursors if open due to previous error
4500: IF (l_orders_cursor%ISOPEN) THEN CLOSE l_orders_cursor; END IF;
4858: current_trxn_ext_id := l_settlement_trxn_rec.PAYMENT_TRXN_EXTENSION_ID;
4859: print_debuginfo(l_module_name, 'Transaction Extension Id : '||
4860: current_trxn_ext_id);
4861: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4862: iby_debug_pub.add('processing extensionid: '|| current_trxn_ext_id,
4863: G_LEVEL_STATEMENT,l_module_name);
4864: iby_debug_pub.add('Factored flag: '|| l_settlement_trxn_rec.auth_factored_flag,
4865: G_LEVEL_STATEMENT,l_module_name);
4866: END IF;
4860: current_trxn_ext_id);
4861: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4862: iby_debug_pub.add('processing extensionid: '|| current_trxn_ext_id,
4863: G_LEVEL_STATEMENT,l_module_name);
4864: iby_debug_pub.add('Factored flag: '|| l_settlement_trxn_rec.auth_factored_flag,
4865: G_LEVEL_STATEMENT,l_module_name);
4866: END IF;
4867:
4868: /*
4992: OPEN c_setup(l_settlement_trxn_rec.auth_bepid,
4993: l_settlement_trxn_rec.auth_instrsubtype);
4994: FETCH c_setup INTO l_cap_ex_auth_bep,l_cap_ex_auth_issuer;
4995: CLOSE c_setup;
4996: iby_debug_pub.add('l_cap_ex_auth_bep: '||l_cap_ex_auth_bep, G_LEVEL_STATEMENT,l_dbg_mod);
4997: iby_debug_pub.add('l_cap_ex_auth_issuer: '||l_cap_ex_auth_issuer, G_LEVEL_STATEMENT,l_dbg_mod);
4998:
4999: -- Transaction Extension Id Check
5000: IF(current_trxn_ext_id is NULL) THEN
4993: l_settlement_trxn_rec.auth_instrsubtype);
4994: FETCH c_setup INTO l_cap_ex_auth_bep,l_cap_ex_auth_issuer;
4995: CLOSE c_setup;
4996: iby_debug_pub.add('l_cap_ex_auth_bep: '||l_cap_ex_auth_bep, G_LEVEL_STATEMENT,l_dbg_mod);
4997: iby_debug_pub.add('l_cap_ex_auth_issuer: '||l_cap_ex_auth_issuer, G_LEVEL_STATEMENT,l_dbg_mod);
4998:
4999: -- Transaction Extension Id Check
5000: IF(current_trxn_ext_id is NULL) THEN
5001: x_responses(l).Result.Result_Code := G_RC_INVALID_EXTENSION_ID;
5026: --
5027: ELSIF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5028: (l_settlement_trxn_rec.auth_amount < l_settlement_trxn_rec.SETTLEMENT_AMOUNT) AND
5029: (l_cap_ex_auth_bep = 'N')) THEN
5030: iby_debug_pub.add('capture amount > auth amount. Payment system does not allow!',
5031: G_LEVEL_STATEMENT,l_dbg_mod);
5032: x_responses(l).Result.Result_Code := G_RC_CAPT_EX_AUTH_UNSUP_PS;
5033: ELSIF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5034: (l_settlement_trxn_rec.auth_amount < l_settlement_trxn_rec.SETTLEMENT_AMOUNT) AND
5032: x_responses(l).Result.Result_Code := G_RC_CAPT_EX_AUTH_UNSUP_PS;
5033: ELSIF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5034: (l_settlement_trxn_rec.auth_amount < l_settlement_trxn_rec.SETTLEMENT_AMOUNT) AND
5035: (l_cap_ex_auth_issuer = 'N')) THEN
5036: iby_debug_pub.add('capture amount > auth amount. Card issuer does not allow!',
5037: G_LEVEL_STATEMENT,l_dbg_mod);
5038: x_responses(l).Result.Result_Code := G_RC_CAPT_EX_AUTH_UNSUP_CB;
5039: ELSE
5040: -- Map to transaction table
5114: * Initiate a partial reversal for those settlements which have auth amt > sttlement amt.
5115: * and the BEP and Card Issuer expect a partial reversal to be fired.
5116: */
5117: BEGIN
5118: iby_debug_pub.add('Authorized amount = '|| l_settlement_trxn_rec.auth_amount, G_LEVEL_STATEMENT,l_module_name);
5119: iby_debug_pub.add('Settlement amount = '|| l_settlement_trxn_rec.SETTLEMENT_AMOUNT, G_LEVEL_STATEMENT,l_module_name);
5120: IF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5121: (l_settlement_trxn_rec.auth_amount > l_settlement_trxn_rec.SETTLEMENT_AMOUNT )
5122: ) THEN
5115: * and the BEP and Card Issuer expect a partial reversal to be fired.
5116: */
5117: BEGIN
5118: iby_debug_pub.add('Authorized amount = '|| l_settlement_trxn_rec.auth_amount, G_LEVEL_STATEMENT,l_module_name);
5119: iby_debug_pub.add('Settlement amount = '|| l_settlement_trxn_rec.SETTLEMENT_AMOUNT, G_LEVEL_STATEMENT,l_module_name);
5120: IF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5121: (l_settlement_trxn_rec.auth_amount > l_settlement_trxn_rec.SETTLEMENT_AMOUNT )
5122: ) THEN
5123: iby_debug_pub.add('settlement amt < auth amt for transactionid: '|| l_settlement_trxn_rec.auth_transactionid,
5119: iby_debug_pub.add('Settlement amount = '|| l_settlement_trxn_rec.SETTLEMENT_AMOUNT, G_LEVEL_STATEMENT,l_module_name);
5120: IF ((l_settlement_trxn_rec.auth_instrtype IN (CC_INSTR_TYPE, PC_INSTR_TYPE)) AND
5121: (l_settlement_trxn_rec.auth_amount > l_settlement_trxn_rec.SETTLEMENT_AMOUNT )
5122: ) THEN
5123: iby_debug_pub.add('settlement amt < auth amt for transactionid: '|| l_settlement_trxn_rec.auth_transactionid,
5124: G_LEVEL_STATEMENT,l_module_name);
5125:
5126: SELECT DECODE(b.auth_reversal_flag, 'M', DECODE(i.auth_reversal_flag,'M','Y','N'), 'N')
5127: INTO l_rev_allowed
5128: FROM iby_bepinfo b, iby_creditcard_issuers_b i
5129: WHERE b.bepid = l_settlement_trxn_rec.auth_bepid
5130: AND i.card_issuer_code = l_settlement_trxn_rec.auth_instrsubtype;
5131:
5132: iby_debug_pub.add('l_rev_allowed = '|| l_rev_allowed, G_LEVEL_STATEMENT,l_module_name);
5133:
5134: IF (l_rev_allowed = 'Y') THEN
5135: iby_debug_pub.add('initiating partial reversel.', G_LEVEL_STATEMENT,l_module_name);
5136: l_rev_trxn.Trxn_ID := l_settlement_trxn_rec.auth_transactionid;
5131:
5132: iby_debug_pub.add('l_rev_allowed = '|| l_rev_allowed, G_LEVEL_STATEMENT,l_module_name);
5133:
5134: IF (l_rev_allowed = 'Y') THEN
5135: iby_debug_pub.add('initiating partial reversel.', G_LEVEL_STATEMENT,l_module_name);
5136: l_rev_trxn.Trxn_ID := l_settlement_trxn_rec.auth_transactionid;
5137: l_rev_trxn.PmtMode := 'ONLINE';
5138: l_rev_trxn.Rev_Type := IBY_PAYMENT_ADAPTER_PUB.G_REV_TYPE_PARTIAL;
5139: l_rev_trxn.Revised_Amt := l_settlement_trxn_rec.SETTLEMENT_AMOUNT;
5156: l_rev_trxn, lx_return_status, lx_msg_count,
5157: lx_msg_data, lx_rev_resp
5158: );
5159: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5160: iby_debug_pub.add('status :=' || lx_return_status,
5161: G_LEVEL_STATEMENT,l_dbg_mod);
5162: iby_debug_pub.add('Rev status :=' ||
5163: to_char(lx_rev_resp.ReqResp.Response.Status),
5164: G_LEVEL_STATEMENT,l_dbg_mod);
5158: );
5159: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5160: iby_debug_pub.add('status :=' || lx_return_status,
5161: G_LEVEL_STATEMENT,l_dbg_mod);
5162: iby_debug_pub.add('Rev status :=' ||
5163: to_char(lx_rev_resp.ReqResp.Response.Status),
5164: G_LEVEL_STATEMENT,l_dbg_mod);
5165: iby_debug_pub.add('rev engine code :=' ||
5166: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
5161: G_LEVEL_STATEMENT,l_dbg_mod);
5162: iby_debug_pub.add('Rev status :=' ||
5163: to_char(lx_rev_resp.ReqResp.Response.Status),
5164: G_LEVEL_STATEMENT,l_dbg_mod);
5165: iby_debug_pub.add('rev engine code :=' ||
5166: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
5167: G_LEVEL_STATEMENT,l_dbg_mod);
5168: iby_debug_pub.add('Rev engine msg :=' ||
5169: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
5164: G_LEVEL_STATEMENT,l_dbg_mod);
5165: iby_debug_pub.add('rev engine code :=' ||
5166: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
5167: G_LEVEL_STATEMENT,l_dbg_mod);
5168: iby_debug_pub.add('Rev engine msg :=' ||
5169: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
5170: G_LEVEL_STATEMENT,l_dbg_mod);
5171: iby_debug_pub.add('payment system code :=' ||
5172: to_char(lx_rev_resp.ReqResp.BEPErrCode),
5167: G_LEVEL_STATEMENT,l_dbg_mod);
5168: iby_debug_pub.add('Rev engine msg :=' ||
5169: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
5170: G_LEVEL_STATEMENT,l_dbg_mod);
5171: iby_debug_pub.add('payment system code :=' ||
5172: to_char(lx_rev_resp.ReqResp.BEPErrCode),
5173: G_LEVEL_STATEMENT,l_dbg_mod);
5174: iby_debug_pub.add('payment system msg :=' ||
5175: to_char(lx_rev_resp.ReqResp.BEPErrMessage),
5170: G_LEVEL_STATEMENT,l_dbg_mod);
5171: iby_debug_pub.add('payment system code :=' ||
5172: to_char(lx_rev_resp.ReqResp.BEPErrCode),
5173: G_LEVEL_STATEMENT,l_dbg_mod);
5174: iby_debug_pub.add('payment system msg :=' ||
5175: to_char(lx_rev_resp.ReqResp.BEPErrMessage),
5176: G_LEVEL_STATEMENT,l_dbg_mod);
5177: END IF;
5178:
5199: END IF ;
5200: END IF ;
5201: EXCEPTION
5202: WHEN OTHERS THEN
5203: iby_debug_pub.add('partial reversal failed with exception: '|| SQLERRM ,
5204: G_LEVEL_STATEMENT,l_module_name);
5205: END ;
5206: l_pson_Tab(indx).extension_id := l_settlement_trxn_rec.PAYMENT_TRXN_EXTENSION_ID;
5207: l_pson_Tab(indx).tangibleid := l_Trxn_Tab(indx).TANGIBLEID;
5462:
5463: FOR i IN 0..(l_pson_Tab.COUNT-1) LOOP --index starts from 0 and ends at (COUNT-1)
5464:
5465: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5466: iby_debug_pub.add('updating extension '|| l_pson_Tab(i).extension_id
5467: ||' with PSON '||l_pson_Tab(i).tangibleid, G_LEVEL_STATEMENT,l_module_name);
5468: END IF;
5469: UPDATE iby_fndcpt_tx_extensions
5470: SET payment_system_order_number = l_pson_Tab(i).tangibleid,
5471: object_version_number = object_version_number + 1
5472: WHERE trxn_extension_id = l_pson_Tab(i).extension_id;
5473: END LOOP;
5474: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5475: iby_debug_pub.add('updating extension complete..'
5476: , G_LEVEL_STATEMENT,l_module_name);
5477: END IF;
5478: END IF;
5479:
5575: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || 'Create_Settlements(1)';
5576:
5577: l_rev_responses ReversalResult_tbl_type;
5578: BEGIN
5579: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
5580: Create_Settlements (
5581: p_api_version,
5582: p_init_msg_list,
5583: p_calling_app_id,
5683: WHERE (trxn_extension_id = ci_extension_id)
5684: ORDER BY settlement_id DESC;
5685: BEGIN
5686: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5687: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
5688: END IF;
5689:
5690: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
5691: IF (c_settlement%ISOPEN) THEN CLOSE c_settlement; END IF;
5695: l_module,
5696: G_PKG_NAME)
5697: THEN
5698: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5699: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
5700: debug_level => G_LEVEL_ERROR,
5701: module => G_DEBUG_MODULE || l_module);
5702: END IF;
5703: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
5709: FND_MSG_PUB.initialize;
5710: END IF;
5711: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
5712:
5713: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5714: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5715: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5716: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5717: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5710: END IF;
5711: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
5712:
5713: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5714: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5715: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5716: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5717: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5718:
5711: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
5712:
5713: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5714: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5715: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5716: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5717: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5718:
5719: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
5712:
5713: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5714: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5715: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5716: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5717: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5718:
5719: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
5720: l_payer_level,l_payer_id,l_payer_attribs);
5713: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5714: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5715: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5716: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5717: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
5718:
5719: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
5720: l_payer_level,l_payer_id,l_payer_attribs);
5721:
5718:
5719: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
5720: l_payer_level,l_payer_id,l_payer_attribs);
5721:
5722: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
5723: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
5724:
5725: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
5726: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
5719: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
5720: l_payer_level,l_payer_id,l_payer_attribs);
5721:
5722: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
5723: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
5724:
5725: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
5726: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
5727: ELSE
5752: --l_tangible.Tangible_Id :=
5753: -- Get_Tangible_Id(l_app_short_name,l_order_id,l_trxn_ref1,l_trxn_ref2);
5754:
5755: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5756: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5757: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5758: END IF;
5759: l_tangible.Tangible_Amount := p_amount.Value;
5760: l_tangible.Currency_Code := p_amount.Currency_Code;
5753: -- Get_Tangible_Id(l_app_short_name,l_order_id,l_trxn_ref1,l_trxn_ref2);
5754:
5755: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5756: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5757: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5758: END IF;
5759: l_tangible.Tangible_Amount := p_amount.Value;
5760: l_tangible.Currency_Code := p_amount.Currency_Code;
5761: l_credit_trxn.PmtMode := 'ONLINE';
5764:
5765: --Bug 14310273: 2ND RMA CM DOES NOT USE PAYMENT ROUTING RULES FOR CC PYT
5766: BEGIN
5767: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5768: iby_debug_pub.add('fetching the rec method id from AR',G_LEVEL_STATEMENT,l_dbg_mod);
5769: END IF;
5770: SELECT RECEIPT_METHOD_ID
5771: INTO l_rec_mth_id
5772: FROM ar_cash_receipts_all
5771: INTO l_rec_mth_id
5772: FROM ar_cash_receipts_all
5773: WHERE payment_trxn_extension_id = p_trxn_entity_id;
5774: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5775: iby_debug_pub.add('fetched method id '||l_rec_mth_id ,G_LEVEL_STATEMENT,l_dbg_mod);
5776: END IF;
5777: EXCEPTION
5778: WHEN OTHERS THEN
5779: l_rec_mth_id := NULL;
5817:
5818: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
5819: -- IBY_FNDCPT_TX_EXTENSIONS table
5820: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5821: iby_debug_pub.add( 'Stamping the PSON on the extension as '||
5822: l_tangible.Tangible_Id,
5823: G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5824: END IF;
5825: UPDATE iby_fndcpt_tx_extensions
5828:
5829: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
5830: -- on the corresponding record in iby_trxn_summaries_all
5831: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5832: iby_debug_pub.add( 'Stamping '||p_trxn_entity_id ||' as the initiator_extension_id'
5833: ||'on the credit record', G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5834: END IF;
5835: UPDATE iby_trxn_summaries_all
5836: SET initiator_extension_id = p_trxn_entity_id
5847: NVL(lx_creditresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
5848: END IF;
5849: ELSE
5850: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5851: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5852: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5853: END IF;
5854: l_return_trxn.Currency := p_amount.Currency_Code;
5855: l_return_trxn.Price := p_amount.Value;
5848: END IF;
5849: ELSE
5850: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5851: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5852: iby_debug_pub.add('Settlement_Due_Date passed as: '||p_receipt_attribs.Settlement_Due_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5853: END IF;
5854: l_return_trxn.Currency := p_amount.Currency_Code;
5855: l_return_trxn.Price := p_amount.Value;
5856: l_return_trxn.PmtMode := 'ONLINE';
5867:
5868: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
5869: -- IBY_FNDCPT_TX_EXTENSIONS table
5870: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5871: iby_debug_pub.add( 'Stamping the PSON on the extension as '||
5872: l_return_pson,
5873: G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5874: END IF;
5875: UPDATE iby_fndcpt_tx_extensions
5878:
5879: -- Fix for bug# 7530578. Stamp the initiator transaction extension id
5880: -- on the corresponding record in iby_trxn_summaries_all
5881: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5882: iby_debug_pub.add( 'Stamping '||p_trxn_entity_id ||' as the initiator_extension_id'
5883: ||'on the return record', G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5884: END IF;
5885: UPDATE iby_trxn_summaries_all
5886: SET initiator_extension_id = p_trxn_entity_id
5916: x_response.Result_Code := lx_returnresp.Response.ErrCode;
5917: x_response.Result_Message := lx_returnresp.Response.ErrMessage;
5918: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5919:
5920: iby_debug_pub.add('x_response.Result_Code :=' || x_response.Result_Code ,
5921: G_LEVEL_STATEMENT,l_dbg_mod);
5922:
5923: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
5924: G_LEVEL_STATEMENT,l_dbg_mod);
5919:
5920: iby_debug_pub.add('x_response.Result_Code :=' || x_response.Result_Code ,
5921: G_LEVEL_STATEMENT,l_dbg_mod);
5922:
5923: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
5924: G_LEVEL_STATEMENT,l_dbg_mod);
5925:
5926: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
5927: G_LEVEL_STATEMENT,l_dbg_mod);
5922:
5923: iby_debug_pub.add('x_response.Result_Category :=' || x_response.Result_Category,
5924: G_LEVEL_STATEMENT,l_dbg_mod);
5925:
5926: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
5927: G_LEVEL_STATEMENT,l_dbg_mod);
5928:
5929: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
5930: END IF;
5925:
5926: iby_debug_pub.add('x_response.Result_Message :=' || x_response.Result_Message,
5927: G_LEVEL_STATEMENT,l_dbg_mod);
5928:
5929: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
5930: END IF;
5931:
5932: EXCEPTION
5933:
5933:
5934: WHEN FND_API.G_EXC_ERROR THEN
5935:
5936: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5937: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
5938: debug_level => G_LEVEL_ERROR,
5939: module => G_DEBUG_MODULE || l_module);
5940: END IF;
5941: x_return_status := FND_API.G_RET_STS_ERROR;
5944: );
5945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5946:
5947: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5948: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
5949: debug_level => G_LEVEL_UNEXPECTED,
5950: module => G_DEBUG_MODULE || l_module);
5951: END IF;
5952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5956:
5957: WHEN OTHERS THEN
5958:
5959: IF( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5960: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
5961: debug_level => G_LEVEL_UNEXPECTED,
5962: module => G_DEBUG_MODULE || l_module);
5963: END IF;
5964:
5995: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
5996:
5997: BEGIN
5998: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5999: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6000: END IF;
6001:
6002: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6003: iby_debug_pub.add( 'Overloaded API invoked. ReceiptAttribs_rec_type will be defaulted to Null',
5999: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6000: END IF;
6001:
6002: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6003: iby_debug_pub.add( 'Overloaded API invoked. ReceiptAttribs_rec_type will be defaulted to Null',
6004: G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
6005: END IF;
6006: p_receipt_attribs.Settlement_Date := NULL;
6007: p_receipt_attribs.Settlement_Due_Date := NULL;
6021: p_receipt_attribs,
6022: x_response
6023: );
6024: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6025: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6026: END IF;
6027:
6028: END Create_Return;
6029:
6168: AND status IN (0,100,111,11);
6169:
6170: BEGIN
6171: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6172: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6173: END IF;
6174:
6175: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
6176: IF (c_auth%ISOPEN) THEN CLOSE c_auth; END IF;
6181: l_module,
6182: G_PKG_NAME)
6183: THEN
6184: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6185: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
6186: debug_level => G_LEVEL_ERROR,
6187: module => G_DEBUG_MODULE || l_module);
6188: END IF;
6189: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
6195: FND_MSG_PUB.initialize;
6196: END IF;
6197: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
6198:
6199: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6200: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6201: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6202: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6203: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6196: END IF;
6197: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
6198:
6199: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6200: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6201: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6202: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6203: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6204:
6197: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
6198:
6199: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6200: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6201: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6202: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6203: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6204:
6205: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
6198:
6199: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6200: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6201: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6202: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6203: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6204:
6205: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
6206: l_payer_level,l_payer_id,l_payer_attribs);
6199: iby_debug_pub.add('party id =' || p_payer.Party_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6200: iby_debug_pub.add('account id =' || p_payer.Cust_Account_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6201: iby_debug_pub.add('account site use id =' || p_payer.Account_Site_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6202: iby_debug_pub.add('org id =' || p_payer.Org_Id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6203: iby_debug_pub.add('org type =' || p_payer.Org_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6204:
6205: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
6206: l_payer_level,l_payer_id,l_payer_attribs);
6207:
6204:
6205: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
6206: l_payer_level,l_payer_id,l_payer_attribs);
6207:
6208: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
6209: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
6210:
6211: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN --1
6212: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
6205: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
6206: l_payer_level,l_payer_id,l_payer_attribs);
6207:
6208: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
6209: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
6210:
6211: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN --1
6212: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
6213: ELSE --1
6222: IF (l_instrtype IS NULL ) THEN --2
6223: x_reversal_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
6224: ELSIF (l_instrtype <> CC_INSTR_TYPE) THEN --2
6225: x_reversal_response.Result_Code := G_RC_INVALID_INSTRUMENT_TYPE;
6226: iby_debug_pub.add('l_instrtype =' || l_instrtype,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6227: ELSE --2
6228: OPEN c_auth(p_trxn_entity_id);
6229: FETCH c_auth INTO l_trxn_id, l_auth_status, l_auth_amt, l_auth_curr,
6230: l_bep_auth_rev, l_card_auth_rev, l_pson, l_payee.Payee_ID,
6238: x_reversal_response.Result_Code := G_RC_INVALID_AUTHORIZATION;
6239: ELSE --3
6240: IF (NVL(l_bep_auth_rev, 'U') = 'U') THEN
6241: x_reversal_response.Result_Code := G_RC_REVERSAL_UNSUP_PMT_SYS;
6242: iby_debug_pub.add('Reversal unsupported by payment system',G_LEVEL_STATEMENT,l_dbg_mod);
6243: iby_fndcpt_common_pub.Prepare_Result
6244: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6245: RETURN;
6246: END IF;
6245: RETURN;
6246: END IF;
6247: IF (NVL(l_card_auth_rev, 'U') = 'U') THEN
6248: x_reversal_response.Result_Code := G_RC_REVERSAL_UNSUP_CARD_BRAND;
6249: iby_debug_pub.add('Reversal unsupported by card brand',G_LEVEL_STATEMENT,l_dbg_mod);
6250: iby_fndcpt_common_pub.Prepare_Result
6251: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6252: RETURN;
6253: END IF ;
6251: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6252: RETURN;
6253: END IF ;
6254:
6255: iby_debug_pub.add('Auth transactionid: ' || l_trxn_id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6256:
6257: OPEN c_settlement(l_trxn_id);
6258: FETCH c_settlement INTO l_settled;
6259: CLOSE c_settlement;
6258: FETCH c_settlement INTO l_settled;
6259: CLOSE c_settlement;
6260: IF(l_settled IS NOT NULL ) THEN --4
6261: x_reversal_response.Result_Code := G_RC_SETTLEMENT_EXISTS;
6262: iby_debug_pub.add('Settlement Exists!!',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6263: ELSE --4
6264: -- If re-auth has been requested bu the revised amount is the same
6265: -- then no need to initiate a reversal. return success
6266: IF(NVL(p_rev_attribs.Reauth_flag, 'N') = 'Y') THEN --5
6263: ELSE --4
6264: -- If re-auth has been requested bu the revised amount is the same
6265: -- then no need to initiate a reversal. return success
6266: IF(NVL(p_rev_attribs.Reauth_flag, 'N') = 'Y') THEN --5
6267: iby_debug_pub.add('p_rev_attribs.Revised_amount.Value = '|| p_rev_attribs.Revised_amount.Value,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6268: iby_debug_pub.add('p_rev_attribs.Revised_amount.Currency_Code = '|| p_rev_attribs.Revised_amount.Currency_Code,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6269: IF (p_rev_attribs.Revised_amount.Value IS NULL) THEN --6
6270: x_reversal_response.Result_Code := G_RC_INVALID_AMOUNT;
6271: ELSIF (p_rev_attribs.Revised_amount.Currency_Code IS NULL ) THEN --6
6264: -- If re-auth has been requested bu the revised amount is the same
6265: -- then no need to initiate a reversal. return success
6266: IF(NVL(p_rev_attribs.Reauth_flag, 'N') = 'Y') THEN --5
6267: iby_debug_pub.add('p_rev_attribs.Revised_amount.Value = '|| p_rev_attribs.Revised_amount.Value,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6268: iby_debug_pub.add('p_rev_attribs.Revised_amount.Currency_Code = '|| p_rev_attribs.Revised_amount.Currency_Code,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6269: IF (p_rev_attribs.Revised_amount.Value IS NULL) THEN --6
6270: x_reversal_response.Result_Code := G_RC_INVALID_AMOUNT;
6271: ELSIF (p_rev_attribs.Revised_amount.Currency_Code IS NULL ) THEN --6
6272: x_reversal_response.Result_Code := G_RC_INVALID_CURRENCY;
6271: ELSIF (p_rev_attribs.Revised_amount.Currency_Code IS NULL ) THEN --6
6272: x_reversal_response.Result_Code := G_RC_INVALID_CURRENCY;
6273: ELSIF (p_rev_attribs.Revised_amount.Value = l_auth_amt AND p_rev_attribs.Revised_amount.Currency_Code = l_auth_curr) THEN --6
6274: -- x_reversal_response.Result_Code := G_RC_REVERSAL_SUCCESS;
6275: iby_debug_pub.add('Re-auth amount is same as the original auth amt. Returning success..'
6276: ,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6277: x_reauth_response.Result_Code := G_RC_AUTH_SUCCESS;
6278: iby_fndcpt_common_pub.Prepare_Result
6279: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reauth_response);
6272: x_reversal_response.Result_Code := G_RC_INVALID_CURRENCY;
6273: ELSIF (p_rev_attribs.Revised_amount.Value = l_auth_amt AND p_rev_attribs.Revised_amount.Currency_Code = l_auth_curr) THEN --6
6274: -- x_reversal_response.Result_Code := G_RC_REVERSAL_SUCCESS;
6275: iby_debug_pub.add('Re-auth amount is same as the original auth amt. Returning success..'
6276: ,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6277: x_reauth_response.Result_Code := G_RC_AUTH_SUCCESS;
6278: iby_fndcpt_common_pub.Prepare_Result
6279: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reauth_response);
6280: RETURN;
6298: l_rev_trxn, lx_return_status, lx_msg_count,
6299: lx_msg_data, lx_rev_resp
6300: );
6301: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6302: iby_debug_pub.add('status :=' || lx_return_status,
6303: G_LEVEL_STATEMENT,l_dbg_mod);
6304: iby_debug_pub.add('Rev status :=' ||
6305: to_char(lx_rev_resp.ReqResp.Response.Status),
6306: G_LEVEL_STATEMENT,l_dbg_mod);
6300: );
6301: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6302: iby_debug_pub.add('status :=' || lx_return_status,
6303: G_LEVEL_STATEMENT,l_dbg_mod);
6304: iby_debug_pub.add('Rev status :=' ||
6305: to_char(lx_rev_resp.ReqResp.Response.Status),
6306: G_LEVEL_STATEMENT,l_dbg_mod);
6307: iby_debug_pub.add('rev engine code :=' ||
6308: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
6303: G_LEVEL_STATEMENT,l_dbg_mod);
6304: iby_debug_pub.add('Rev status :=' ||
6305: to_char(lx_rev_resp.ReqResp.Response.Status),
6306: G_LEVEL_STATEMENT,l_dbg_mod);
6307: iby_debug_pub.add('rev engine code :=' ||
6308: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
6309: G_LEVEL_STATEMENT,l_dbg_mod);
6310: iby_debug_pub.add('Rev engine msg :=' ||
6311: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
6306: G_LEVEL_STATEMENT,l_dbg_mod);
6307: iby_debug_pub.add('rev engine code :=' ||
6308: to_char(lx_rev_resp.ReqResp.Response.ErrCode),
6309: G_LEVEL_STATEMENT,l_dbg_mod);
6310: iby_debug_pub.add('Rev engine msg :=' ||
6311: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
6312: G_LEVEL_STATEMENT,l_dbg_mod);
6313:
6314: iby_debug_pub.add('payment system code :=' ||
6310: iby_debug_pub.add('Rev engine msg :=' ||
6311: to_char(lx_rev_resp.ReqResp.Response.ErrMessage),
6312: G_LEVEL_STATEMENT,l_dbg_mod);
6313:
6314: iby_debug_pub.add('payment system code :=' ||
6315: to_char(lx_rev_resp.ReqResp.BEPErrCode),
6316: G_LEVEL_STATEMENT,l_dbg_mod);
6317: iby_debug_pub.add('payment system msg :=' ||
6318: to_char(lx_rev_resp.ReqResp.BEPErrMessage),
6313:
6314: iby_debug_pub.add('payment system code :=' ||
6315: to_char(lx_rev_resp.ReqResp.BEPErrCode),
6316: G_LEVEL_STATEMENT,l_dbg_mod);
6317: iby_debug_pub.add('payment system msg :=' ||
6318: to_char(lx_rev_resp.ReqResp.BEPErrMessage),
6319: G_LEVEL_STATEMENT,l_dbg_mod);
6320: END IF;
6321:
6340: iby_fndcpt_common_pub.Prepare_Result
6341: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6342:
6343: IF(NVL(p_rev_attribs.Reauth_flag, 'N') = 'Y' AND lx_rev_resp.ReqResp.Response.Status = 0) THEN --9
6344: iby_debug_pub.add('Re-auth requested.',G_LEVEL_STATEMENT,l_dbg_mod);
6345: l_payer.Party_Id := p_payer.Party_Id;
6346: l_pmt_instr.PmtInstr_Type := CC_INSTR_TYPE;
6347: l_tangible.Tangible_Id :=
6348: Get_Reauth_Tangible_Id(l_app_short_name,p_trxn_entity_id);
6345: l_payer.Party_Id := p_payer.Party_Id;
6346: l_pmt_instr.PmtInstr_Type := CC_INSTR_TYPE;
6347: l_tangible.Tangible_Id :=
6348: Get_Reauth_Tangible_Id(l_app_short_name,p_trxn_entity_id);
6349: iby_debug_pub.add('PSON for Re-auth: '|| l_tangible.Tangible_Id,G_LEVEL_STATEMENT,l_dbg_mod);
6350: l_tangible.Tangible_Amount := p_rev_attribs.Revised_amount.Value;
6351: l_tangible.Currency_Code := p_rev_attribs.Revised_amount.Currency_Code;
6352:
6353: l_pmt_trxn.Trxn_ID := l_trxn_id;
6393: l_reqresp
6394: );
6395:
6396: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN --10
6397: iby_debug_pub.add('status :=' || lx_return_status,
6398: G_LEVEL_STATEMENT,l_dbg_mod);
6399: iby_debug_pub.add('auth status :=' ||
6400: to_char(l_reqresp.Response.Status),
6401: G_LEVEL_STATEMENT,l_dbg_mod);
6395:
6396: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN --10
6397: iby_debug_pub.add('status :=' || lx_return_status,
6398: G_LEVEL_STATEMENT,l_dbg_mod);
6399: iby_debug_pub.add('auth status :=' ||
6400: to_char(l_reqresp.Response.Status),
6401: G_LEVEL_STATEMENT,l_dbg_mod);
6402: iby_debug_pub.add('auth engine code :=' ||
6403: to_char(l_reqresp.Response.ErrCode),
6398: G_LEVEL_STATEMENT,l_dbg_mod);
6399: iby_debug_pub.add('auth status :=' ||
6400: to_char(l_reqresp.Response.Status),
6401: G_LEVEL_STATEMENT,l_dbg_mod);
6402: iby_debug_pub.add('auth engine code :=' ||
6403: to_char(l_reqresp.Response.ErrCode),
6404: G_LEVEL_STATEMENT,l_dbg_mod);
6405: iby_debug_pub.add('auth engine msg :=' ||
6406: to_char(l_reqresp.Response.ErrMessage),
6401: G_LEVEL_STATEMENT,l_dbg_mod);
6402: iby_debug_pub.add('auth engine code :=' ||
6403: to_char(l_reqresp.Response.ErrCode),
6404: G_LEVEL_STATEMENT,l_dbg_mod);
6405: iby_debug_pub.add('auth engine msg :=' ||
6406: to_char(l_reqresp.Response.ErrMessage),
6407: G_LEVEL_STATEMENT,l_dbg_mod);
6408:
6409: iby_debug_pub.add('payment system code :=' ||
6405: iby_debug_pub.add('auth engine msg :=' ||
6406: to_char(l_reqresp.Response.ErrMessage),
6407: G_LEVEL_STATEMENT,l_dbg_mod);
6408:
6409: iby_debug_pub.add('payment system code :=' ||
6410: to_char(l_reqresp.BEPErrCode),
6411: G_LEVEL_STATEMENT,l_dbg_mod);
6412: iby_debug_pub.add('payment system msg :=' ||
6413: to_char(l_reqresp.BEPErrMessage),
6408:
6409: iby_debug_pub.add('payment system code :=' ||
6410: to_char(l_reqresp.BEPErrCode),
6411: G_LEVEL_STATEMENT,l_dbg_mod);
6412: iby_debug_pub.add('payment system msg :=' ||
6413: to_char(l_reqresp.BEPErrMessage),
6414: G_LEVEL_STATEMENT,l_dbg_mod);
6415:
6416: iby_debug_pub.add('trxn id :=' ||
6412: iby_debug_pub.add('payment system msg :=' ||
6413: to_char(l_reqresp.BEPErrMessage),
6414: G_LEVEL_STATEMENT,l_dbg_mod);
6415:
6416: iby_debug_pub.add('trxn id :=' ||
6417: to_char(l_reqresp.Trxn_ID),
6418: G_LEVEL_STATEMENT,l_dbg_mod);
6419: END IF; --10
6420:
6497:
6498: --Commenting this for Bug: 9380078
6499: -- Need to pass the bepmessages to the source products.
6500: -- x_response.Result_Code := 'COMMUNICATION_ERROR';
6501: iby_debug_pub.add('*** assigning messages to the response object',
6502: G_LEVEL_STATEMENT,l_dbg_mod);
6503:
6504: x_reauth_response.Result_Code := to_char(l_reqresp.Response.ErrCode);
6505: x_reauth_response.Result_Category := l_reqresp.BEPErrMessage;
6504: x_reauth_response.Result_Code := to_char(l_reqresp.Response.ErrCode);
6505: x_reauth_response.Result_Category := l_reqresp.BEPErrMessage;
6506: x_reauth_response.Result_Message := to_char(l_reqresp.Response.ErrMessage);
6507:
6508: iby_debug_pub.add('x_response.Result_Code :=' || x_reauth_response.Result_Code ,
6509: G_LEVEL_STATEMENT,l_dbg_mod);
6510:
6511: iby_debug_pub.add('x_response.Result_Category :=' || x_reauth_response.Result_Category,
6512: G_LEVEL_STATEMENT,l_dbg_mod);
6507:
6508: iby_debug_pub.add('x_response.Result_Code :=' || x_reauth_response.Result_Code ,
6509: G_LEVEL_STATEMENT,l_dbg_mod);
6510:
6511: iby_debug_pub.add('x_response.Result_Category :=' || x_reauth_response.Result_Category,
6512: G_LEVEL_STATEMENT,l_dbg_mod);
6513:
6514: iby_debug_pub.add('x_response.Result_Message :=' || x_reauth_response.Result_Message,
6515: G_LEVEL_STATEMENT,l_dbg_mod);
6510:
6511: iby_debug_pub.add('x_response.Result_Category :=' || x_reauth_response.Result_Category,
6512: G_LEVEL_STATEMENT,l_dbg_mod);
6513:
6514: iby_debug_pub.add('x_response.Result_Message :=' || x_reauth_response.Result_Message,
6515: G_LEVEL_STATEMENT,l_dbg_mod);
6516:
6517: iby_debug_pub.add('*** assigned messages to the response object',
6518: G_LEVEL_STATEMENT,l_dbg_mod);
6513:
6514: iby_debug_pub.add('x_response.Result_Message :=' || x_reauth_response.Result_Message,
6515: G_LEVEL_STATEMENT,l_dbg_mod);
6516:
6517: iby_debug_pub.add('*** assigned messages to the response object',
6518: G_LEVEL_STATEMENT,l_dbg_mod);
6519: RETURN;
6520: END IF ; --12
6521: iby_fndcpt_common_pub.Prepare_Result
6528: END IF ; --2
6529: END IF ; --1
6530: iby_fndcpt_common_pub.Prepare_Result
6531: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6532: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
6533:
6534: EXCEPTION
6535:
6536: WHEN FND_API.G_EXC_ERROR THEN
6535:
6536: WHEN FND_API.G_EXC_ERROR THEN
6537:
6538: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6539: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
6540: debug_level => G_LEVEL_EXCEPTION,
6541: module => G_DEBUG_MODULE || l_module);
6542: END IF;
6543: x_return_status := FND_API.G_RET_STS_ERROR;
6546: );
6547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6548:
6549: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6550: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
6551: debug_level => G_LEVEL_UNEXPECTED,
6552: module => G_DEBUG_MODULE || l_module);
6553: END IF;
6554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6558:
6559: WHEN OTHERS THEN
6560:
6561: IF( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6562: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
6563: debug_level => G_LEVEL_UNEXPECTED,
6564: module => G_DEBUG_MODULE || l_module);
6565: END IF;
6566:
6600: BEGIN
6601: l_mode := Get_Extension_Encrypt_Mode;
6602:
6603: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6604: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6605: END IF;
6606:
6607: IF (l_mode = iby_security_pkg.G_ENCRYPT_MODE_NONE) THEN
6608: RETURN;
6644: IF FND_API.To_Boolean(p_commit) THEN
6645: COMMIT;
6646: END IF;
6647: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6648: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6649: END IF;
6650: END Encrypt_Extensions;
6651:
6652: PROCEDURE Encrypt_Security_Code
6665: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
6666:
6667: BEGIN
6668: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6669: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6670: END IF;
6671:
6672: -- test_debug('Inside Encrypt_Security_Code.. ');
6673: l_mode := Get_Extension_Encrypt_Mode;
6691: IF FND_API.To_Boolean(p_commit) THEN
6692: COMMIT;
6693: END IF;
6694: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6695: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6696: END IF;
6697:
6698: END Encrypt_Security_Code;
6699:
6720: AND (s.sec_subkey_id = k.sec_subkey_id(+));
6721:
6722: BEGIN
6723: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6724: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6725: END IF;
6726:
6727: l_mode := Get_Extension_Encrypt_Mode;
6728: IF (NOT (l_mode = iby_security_pkg.G_ENCRYPT_MODE_NONE)) THEN
6757: IF FND_API.To_Boolean(p_commit) THEN
6758: COMMIT;
6759: END IF;
6760: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6761: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6762: END IF;
6763:
6764: END Decrypt_Extensions;
6765:
6779: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
6780:
6781: BEGIN
6782: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6783: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6784: END IF;
6785:
6786: l_subkey :=
6787: IBY_SECURITY_PKG.Get_Sys_Subkey(p_sys_sec_key,p_subkey_cipher);
6794:
6795: l_sec_code := IBY_SECURITY_PKG.Decode_Number(l_sec_code,p_sec_code_len,TRUE);
6796:
6797: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6798: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6799: END IF;
6800:
6801: RETURN l_sec_code;
6802: END Get_Security_Code;
6828: AND (s.sec_subkey_id = k.sec_subkey_id(+));
6829:
6830: BEGIN
6831: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6832: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6833: END IF;
6834:
6835: IF (c_extension%ISOPEN) THEN CLOSE c_extension; END IF;
6836:
6851: RETURN Get_Security_Code(p_sys_sec_key,l_subkey_cipher,
6852: l_segment_cipher,l_sec_code_len);
6853: END IF;
6854: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6855: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6856: END IF;
6857:
6858: END Get_Security_Code;
6859:
6880: AND (s.sec_subkey_id = k.sec_subkey_id);
6881:
6882: BEGIN
6883: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6884: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
6885: END IF;
6886:
6887: IF (c_segment%ISOPEN) THEN CLOSE c_segment; END IF;
6888:
6896: raise_application_error(-20000, lx_err_code, FALSE);
6897: RETURN NULL;
6898: END IF;
6899: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6900: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
6901: END IF;
6902:
6903: RETURN Get_Security_Code(p_sys_sec_key,l_subkey_cipher,
6904: l_segment_cipher,p_sec_code_len);