[Home] [Help]
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_INSTRREG_PUB';
6:
7: g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
8: -- Owner Type is actually 'PAYER' but it has been kept as 'USER'
9: -- as the java API uses it as the hardcoded value.
10: -- Bug 4298732
11: -- g_owner_type CONSTANT VARCHAR2(10) := 'USER';
244:
245: PROCEDURE OraInstrAdd
246: (
247: p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
249: p_commit IN VARCHAR2 := FND_API.G_TRUE,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: p_pmtInstrRec IN PmtInstr_rec_type,
252: x_return_status OUT NOCOPY VARCHAR2,
245: PROCEDURE OraInstrAdd
246: (
247: p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
249: p_commit IN VARCHAR2 := FND_API.G_TRUE,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: p_pmtInstrRec IN PmtInstr_rec_type,
252: x_return_status OUT NOCOPY VARCHAR2,
253: x_msg_count OUT NOCOPY NUMBER,
246: (
247: p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
249: p_commit IN VARCHAR2 := FND_API.G_TRUE,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: p_pmtInstrRec IN PmtInstr_rec_type,
252: x_return_status OUT NOCOPY VARCHAR2,
253: x_msg_count OUT NOCOPY NUMBER,
254: x_msg_data OUT NOCOPY VARCHAR2,
293: BEGIN
294: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
295:
296: -- Standard call to check for call compatibility.
297: IF NOT FND_API.Compatible_API_Call ( l_api_version,
298: p_api_version,
299: l_api_name,
300: G_PKG_NAME )
301: THEN
300: G_PKG_NAME )
301: THEN
302: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
303: FND_MSG_PUB.Add;
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: -- Initialize message list if p_init_msg_list is set to TRUE.
308: IF FND_API.to_Boolean( p_init_msg_list ) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: -- Initialize message list if p_init_msg_list is set to TRUE.
308: IF FND_API.to_Boolean( p_init_msg_list ) THEN
309: FND_MSG_PUB.initialize;
310: END IF;
311:
312: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
312: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
313: IF (p_validation_level <> g_validation_level) THEN
314: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
315: FND_MSG_PUB.Add;
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318:
319: -- Initialize API return status to success
320: x_return_status := FND_API.G_RET_STS_SUCCESS;
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318:
319: -- Initialize API return status to success
320: x_return_status := FND_API.G_RET_STS_SUCCESS;
321:
322: -- START OF BODY OF API
323:
324: -- Checks whether the instrument type passed is valid or not
327: ( l_instrument_type <> C_INSTRTYPE_PURCHASECARD ) AND
328: ( l_instrument_type <> C_INSTRTYPE_BANKACCT ) ) THEN
329: FND_MESSAGE.SET_NAME('IBY', 'IBY_20487');
330: FND_MSG_PUB.Add;
331: RAISE FND_API.G_EXC_ERROR;
332: -- Returns message 'Invalid instrument type passed'.
333: END IF;
334:
335: -- Check whether Instrid is passed. It should not be passed for 'Add'.
337: ( p_pmtInstrRec.PurchaseCardInstr.Instr_Id is not NULL ) OR
338: ( p_pmtInstrRec.BankAcctInstr.Instr_Id is not NULL ) ) THEN
339: FND_MESSAGE.SET_NAME('IBY', 'IBY_20488');
340: FND_MSG_PUB.Add;
341: RAISE FND_API.G_EXC_ERROR;
342: --Returns message 'INSTR_ID should not be passed'
343: END IF;
344:
345: IF( l_instrument_type = C_INSTRTYPE_PURCHASECARD ) THEN
346: -- Purchase Subtype is mandatory.
347: IF( p_pmtInstrRec.PurchaseCardInstr.PC_SubType is NULL ) THEN
348: FND_MESSAGE.SET_NAME('IBY', 'IBY_20483');
349: FND_MSG_PUB.Add;
350: RAISE FND_API.G_EXC_ERROR;
351: -- Returns message 'Mandatory field(s) missing'
352: END IF;
353:
354: END IF;
490: G_DEBUG_MODULE || l_api_name);
491:
492: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
493: FND_MSG_PUB.Add;
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497: --Raising Exception to handle Servlet related errors.
498: IF (l_values.COUNT = 0 ) THEN
500: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
501:
502: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
503: FND_MSG_PUB.Add;
504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
505: END IF;
506:
507: FOR i IN 1..l_names.COUNT LOOP
508: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
527:
528: END LOOP;
529:
530: IF (x_return_status = 0) THEN
531: x_return_status := FND_API.G_RET_STS_SUCCESS;
532: -- op completed successfully
533: FND_MESSAGE.SET_NAME('IBY','IBY_204170');
534: FND_MSG_PUB.ADD;
535: ELSE
532: -- op completed successfully
533: FND_MESSAGE.SET_NAME('IBY','IBY_204170');
534: FND_MSG_PUB.ADD;
535: ELSE
536: x_return_status := FND_API.G_RET_STS_ERROR;
537: END IF;
538:
539: FND_MSG_PUB.Count_And_Get
540: (
546: EXCEPTION
547:
548: -- Catch for version mismatch and
549: -- if the validation level is not full.
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551:
552:
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: x_msg_count := 1;
549: -- if the validation level is not full.
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551:
552:
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: x_msg_count := 1;
555: x_msg_data := FND_MSG_PUB.GET(
556: p_encoded => FND_API.g_false,
557: P_MSG_INDEX => FND_MSG_PUB.Count_msg
552:
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: x_msg_count := 1;
555: x_msg_data := FND_MSG_PUB.GET(
556: p_encoded => FND_API.g_false,
557: P_MSG_INDEX => FND_MSG_PUB.Count_msg
558: );
559:
560: -- Catch for all the known errors
558: );
559:
560: -- Catch for all the known errors
561: -- thrown from this procedure only.
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: x_msg_count := 1;
566: x_msg_data := FND_MSG_PUB.GET(
560: -- Catch for all the known errors
561: -- thrown from this procedure only.
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: x_msg_count := 1;
566: x_msg_data := FND_MSG_PUB.GET(
567: p_encoded => FND_API.g_false,
568: P_MSG_INDEX => FND_MSG_PUB.Count_msg
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: x_msg_count := 1;
566: x_msg_data := FND_MSG_PUB.GET(
567: p_encoded => FND_API.g_false,
568: P_MSG_INDEX => FND_MSG_PUB.Count_msg
569: );
570:
571: -- Catch for all the known errors
574: -- this exception is raised as long as the SQLCODE is -20000.
575: WHEN ERROR_FROM_SUBPROC THEN
576: --dbms_output.put_line('ERROR: ERROR_FROM_SUBPROC during call to API ');
577: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
578: x_return_status := FND_API.G_RET_STS_ERROR;
579: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
580: FND_MSG_PUB.Count_And_Get
581: ( p_count => x_msg_count,
582: p_data => x_msg_data
584:
585: WHEN OTHERS THEN
586: --dbms_output.put_line('ERROR: Exception occured during call to API ' );
587: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: FND_MSG_PUB.Count_And_Get
590: ( p_count => x_msg_count,
591: p_data => x_msg_data
592: );
620: -------------------------------------------------------------------------------
621:
622:
623: PROCEDURE OraInstrMod (p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_TRUE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_payer_id IN VARCHAR2,
628: p_pmtInstrRec IN PmtInstr_rec_type,
621:
622:
623: PROCEDURE OraInstrMod (p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_TRUE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_payer_id IN VARCHAR2,
628: p_pmtInstrRec IN PmtInstr_rec_type,
629: x_return_status OUT NOCOPY VARCHAR2,
622:
623: PROCEDURE OraInstrMod (p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_TRUE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_payer_id IN VARCHAR2,
628: p_pmtInstrRec IN PmtInstr_rec_type,
629: x_return_status OUT NOCOPY VARCHAR2,
630: x_msg_count OUT NOCOPY NUMBER,
647:
648: BEGIN
649:
650: -- Standard call to check for call compatibility.
651: IF NOT FND_API.Compatible_API_Call ( l_api_version,
652: p_api_version,
653: l_api_name,
654: G_PKG_NAME )
655: THEN
654: G_PKG_NAME )
655: THEN
656: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
657: FND_MSG_PUB.Add;
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
661: -- Initialize message list if p_init_msg_list is set to TRUE.
662: IF FND_API.to_Boolean( p_init_msg_list ) THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
661: -- Initialize message list if p_init_msg_list is set to TRUE.
662: IF FND_API.to_Boolean( p_init_msg_list ) THEN
663: FND_MSG_PUB.initialize;
664: END IF;
665:
666: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
666: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
667: IF (p_validation_level <> g_validation_level) THEN
668: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
669: FND_MSG_PUB.Add;
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: END IF;
672:
673: -- Initialize API return status to success
674: x_return_status := FND_API.G_RET_STS_SUCCESS;
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: END IF;
672:
673: -- Initialize API return status to success
674: x_return_status := FND_API.G_RET_STS_SUCCESS;
675:
676: -- START OF BODY OF API
677:
678: -- check whether the payer_id is missing.
678: -- check whether the payer_id is missing.
679: IF( TRIM( p_payer_id ) is NULL ) THEN
680: FND_MESSAGE.SET_NAME('IBY', 'IBY_20486');
681: FND_MSG_PUB.Add;
682: RAISE FND_API.G_EXC_ERROR;
683: -- Returns message 'PAYER_ID is mandatory'
684: END IF;
685:
686: -- Checks whether the instrument type passed is valid or not
689: ( l_instrument_type <> C_INSTRTYPE_PURCHASECARD ) AND
690: ( l_instrument_type <> C_INSTRTYPE_BANKACCT ) ) THEN
691: FND_MESSAGE.SET_NAME('IBY', 'IBY_20487');
692: FND_MSG_PUB.Add;
693: RAISE FND_API.G_EXC_ERROR;
694: -- Returns message 'Invalid instrument type passed'.
695: END IF;
696:
697: -- Check whether card number is passed for type Credit card.
701: IF( (p_pmtInstrRec.CreditCardInstr.CC_Num is not NULL) OR
702: (p_pmtInstrRec.CreditCardInstr.CC_Type is not NULL) ) THEN
703: FND_MESSAGE.SET_NAME('IBY', 'IBY_20489');
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: -- Returns message 'Neither Card number nor Card Type should be passed'
707: END IF;
708:
709: -- Check whether mandatory/not desirable is passed for type Purchase card.
713: IF( (p_pmtInstrRec.PurchaseCardInstr.PC_Num is not NULL) OR
714: (p_pmtInstrRec.PurchaseCardInstr.PC_Type is not NULL) ) THEN
715: FND_MESSAGE.SET_NAME('IBY', 'IBY_20489');
716: FND_MSG_PUB.Add;
717: RAISE FND_API.G_EXC_ERROR;
718: -- Returns message 'Neither Card number nor Card Type should be passed'
719: END IF;
720:
721: -- Subtype is mandatory.
721: -- Subtype is mandatory.
722: IF( p_pmtInstrRec.PurchaseCardInstr.PC_SubType is NULL ) THEN
723: FND_MESSAGE.SET_NAME('IBY', 'IBY_20483');
724: FND_MSG_PUB.Add;
725: RAISE FND_API.G_EXC_ERROR;
726: -- Returns message 'Mandatory field(s) missing'
727: END IF;
728:
729: -- Bank_Id and BankAcct_Num may NOT be modified for type Bank Account.
733: IF( ( p_pmtInstrRec.BankAcctInstr.Bank_Id is not NULL ) OR
734: ( p_pmtInstrRec.BankAcctInstr.BankAcct_Num is not NULL ) ) THEN
735: FND_MESSAGE.SET_NAME('IBY', 'IBY_20490');
736: FND_MSG_PUB.Add;
737: RAISE FND_API.G_EXC_ERROR;
738: -- Returns message 'Neither Bank Id nor Bank Account Number should be passed'
739: END IF;
740:
741: END IF;
761:
762: */
763: ELSIF( l_instrument_type = C_INSTRTYPE_PURCHASECARD ) THEN
764: IBY_CREDITCARD_PKG.Update_Card
765: (FND_API.G_FALSE,
766: p_pmtInstrRec.PurchaseCardInstr.Instr_Id,
767: p_pmtInstrRec.PurchaseCardInstr.Owner_Id,
768: p_pmtInstrRec.PurchaseCardInstr.PC_HolderName,
769: p_pmtInstrRec.PurchaseCardInstr.Billing_Address_Id,
815: x_result.Result_Code
816: );
817: ELSIF( l_instrument_type = C_INSTRTYPE_CREDITCARD ) THEN
818: IBY_CREDITCARD_PKG.Update_Card
819: (FND_API.G_FALSE,
820: p_pmtInstrRec.CreditCardInstr.Instr_Id,
821: p_pmtInstrRec.CreditCardInstr.Owner_Id,
822: p_pmtInstrRec.CreditCardInstr.CC_HolderName,
823: p_pmtInstrRec.CreditCardInstr.Billing_Address_Id,
877: -- Returns message 'operation completed successfully.'
878: FND_MESSAGE.SET_NAME('IBY', 'IBY_204170' );
879: FND_MSG_PUB.Add;
880: x_msg_data := FND_MSG_PUB.GET(
881: p_encoded => FND_API.g_false,
882: P_MSG_INDEX => FND_MSG_PUB.Count_msg
883: );
884:
885: EXCEPTION
885: EXCEPTION
886:
887: -- Catch for version mismatch and
888: -- if the validation level is not full.
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890:
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: x_msg_count := 1;
893: x_msg_data := FND_MSG_PUB.GET(
887: -- Catch for version mismatch and
888: -- if the validation level is not full.
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890:
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: x_msg_count := 1;
893: x_msg_data := FND_MSG_PUB.GET(
894: p_encoded => FND_API.g_false,
895: P_MSG_INDEX => FND_MSG_PUB.Count_msg
890:
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: x_msg_count := 1;
893: x_msg_data := FND_MSG_PUB.GET(
894: p_encoded => FND_API.g_false,
895: P_MSG_INDEX => FND_MSG_PUB.Count_msg
896: );
897:
898: -- Catch for all the known errors
896: );
897:
898: -- Catch for all the known errors
899: -- thrown from this procedure only.
900: WHEN FND_API.G_EXC_ERROR THEN
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: x_msg_count := 1;
904: x_msg_data := FND_MSG_PUB.GET(
898: -- Catch for all the known errors
899: -- thrown from this procedure only.
900: WHEN FND_API.G_EXC_ERROR THEN
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: x_msg_count := 1;
904: x_msg_data := FND_MSG_PUB.GET(
905: p_encoded => FND_API.g_false,
906: P_MSG_INDEX => FND_MSG_PUB.Count_msg
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: x_msg_count := 1;
904: x_msg_data := FND_MSG_PUB.GET(
905: p_encoded => FND_API.g_false,
906: P_MSG_INDEX => FND_MSG_PUB.Count_msg
907: );
908:
909: -- Catch for all the known errors
911: -- Whenever there is an error in the procedures that are called,
912: -- this exception is raised as long as the SQLCODE is -20000.
913: WHEN ERROR_FROM_SUBPROC THEN
914:
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count,
919: p_data => x_msg_data
920: );
921:
922: WHEN OTHERS THEN
923:
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925: FND_MSG_PUB.Count_And_Get
926: ( p_count => x_msg_count,
927: p_data => x_msg_data
928: );
957: -------------------------------------------------------------------------------
958:
959:
960: PROCEDURE OraInstrDel ( p_api_version IN NUMBER,
961: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
962: p_commit IN VARCHAR2 := FND_API.G_TRUE,
963: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
964: p_payer_id IN VARCHAR2,
965: p_instr_id IN NUMBER,
958:
959:
960: PROCEDURE OraInstrDel ( p_api_version IN NUMBER,
961: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
962: p_commit IN VARCHAR2 := FND_API.G_TRUE,
963: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
964: p_payer_id IN VARCHAR2,
965: p_instr_id IN NUMBER,
966: x_return_status OUT NOCOPY VARCHAR2,
959:
960: PROCEDURE OraInstrDel ( p_api_version IN NUMBER,
961: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
962: p_commit IN VARCHAR2 := FND_API.G_TRUE,
963: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
964: p_payer_id IN VARCHAR2,
965: p_instr_id IN NUMBER,
966: x_return_status OUT NOCOPY VARCHAR2,
967: x_msg_count OUT NOCOPY NUMBER,
980:
981: BEGIN
982:
983: -- Standard call to check for call compatibility.
984: IF NOT FND_API.Compatible_API_Call ( l_api_version,
985: p_api_version,
986: l_api_name,
987: G_PKG_NAME )
988: THEN
987: G_PKG_NAME )
988: THEN
989: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
990: FND_MSG_PUB.Add;
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: -- Initialize message list if p_init_msg_list is set to TRUE.
995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: -- Initialize message list if p_init_msg_list is set to TRUE.
995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
996: FND_MSG_PUB.initialize;
997: END IF;
998:
999: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
999: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1000: IF (p_validation_level <> g_validation_level) THEN
1001: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1002: FND_MSG_PUB.Add;
1003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: END IF;
1005:
1006: -- Initialize API return status to success
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: END IF;
1005:
1006: -- Initialize API return status to success
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008:
1009: -- START OF BODY OF API
1010:
1011: -- check whether the payer_id is missing.
1011: -- check whether the payer_id is missing.
1012: IF( TRIM( p_payer_id ) is NULL ) THEN
1013: FND_MESSAGE.SET_NAME('IBY', 'IBY_20486');
1014: FND_MSG_PUB.Add;
1015: RAISE FND_API.G_EXC_ERROR;
1016: -- Returns message 'PAYER_ID is mandatory'
1017: END IF;
1018:
1019: -- check whether the instr_id is missing.
1019: -- check whether the instr_id is missing.
1020: IF( p_instr_id is NULL ) THEN
1021: FND_MESSAGE.SET_NAME('IBY', 'IBY_20483');
1022: FND_MSG_PUB.Add;
1023: RAISE FND_API.G_EXC_ERROR;
1024: -- Returns message 'Mandatory field(s) missing'
1025: END IF;
1026:
1027: -- Call the procedure that will delete the instrument.
1038: -- Returns message 'operation completed successfully.'
1039: FND_MESSAGE.SET_NAME('IBY', 'IBY_204170' );
1040: FND_MSG_PUB.Add;
1041: x_msg_data := FND_MSG_PUB.GET(
1042: p_encoded => FND_API.g_false,
1043: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1044: );
1045:
1046: EXCEPTION
1046: EXCEPTION
1047:
1048: -- Catch for version mismatch and
1049: -- if the validation level is not full.
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051:
1052: x_return_status := FND_API.G_RET_STS_ERROR;
1053: x_msg_count := 1;
1054: x_msg_data := FND_MSG_PUB.GET(
1048: -- Catch for version mismatch and
1049: -- if the validation level is not full.
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051:
1052: x_return_status := FND_API.G_RET_STS_ERROR;
1053: x_msg_count := 1;
1054: x_msg_data := FND_MSG_PUB.GET(
1055: p_encoded => FND_API.g_false,
1056: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1051:
1052: x_return_status := FND_API.G_RET_STS_ERROR;
1053: x_msg_count := 1;
1054: x_msg_data := FND_MSG_PUB.GET(
1055: p_encoded => FND_API.g_false,
1056: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1057: );
1058:
1059: -- Catch for all the known errors
1057: );
1058:
1059: -- Catch for all the known errors
1060: -- thrown from this procedure only.
1061: WHEN FND_API.G_EXC_ERROR THEN
1062:
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: x_msg_count := 1;
1065: x_msg_data := FND_MSG_PUB.GET(
1059: -- Catch for all the known errors
1060: -- thrown from this procedure only.
1061: WHEN FND_API.G_EXC_ERROR THEN
1062:
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: x_msg_count := 1;
1065: x_msg_data := FND_MSG_PUB.GET(
1066: p_encoded => FND_API.g_false,
1067: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1062:
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: x_msg_count := 1;
1065: x_msg_data := FND_MSG_PUB.GET(
1066: p_encoded => FND_API.g_false,
1067: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1068: );
1069:
1070: -- Catch for all the known errors
1072: -- Whenever there is an error in the procedures that are called,
1073: -- this exception is raised as long as the SQLCODE is -20000.
1074: WHEN ERROR_FROM_SUBPROC THEN
1075:
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
1078: FND_MSG_PUB.Count_And_Get
1079: ( p_count => x_msg_count,
1080: p_data => x_msg_data
1081: );
1082:
1083: WHEN OTHERS THEN
1084:
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086: FND_MSG_PUB.Count_And_Get
1087: ( p_count => x_msg_count,
1088: p_data => x_msg_data
1089: );
1119: -- End of comments
1120: -------------------------------------------------------------------------------
1121:
1122: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1124: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: p_payer_id IN VARCHAR2,
1127: x_return_status OUT NOCOPY VARCHAR2,
1120: -------------------------------------------------------------------------------
1121:
1122: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1124: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: p_payer_id IN VARCHAR2,
1127: x_return_status OUT NOCOPY VARCHAR2,
1128: x_msg_count OUT NOCOPY NUMBER,
1121:
1122: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1123: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1124: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1125: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1126: p_payer_id IN VARCHAR2,
1127: x_return_status OUT NOCOPY VARCHAR2,
1128: x_msg_count OUT NOCOPY NUMBER,
1129: x_msg_data OUT NOCOPY VARCHAR2,
1139: END OraInstrInq;
1140:
1141:
1142: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_payer_id IN VARCHAR2,
1147: p_sys_sec_key IN VARCHAR2,
1140:
1141:
1142: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_payer_id IN VARCHAR2,
1147: p_sys_sec_key IN VARCHAR2,
1148: x_return_status OUT NOCOPY VARCHAR2,
1141:
1142: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_payer_id IN VARCHAR2,
1147: p_sys_sec_key IN VARCHAR2,
1148: x_return_status OUT NOCOPY VARCHAR2,
1149: x_msg_count OUT NOCOPY NUMBER,
1160:
1161: BEGIN
1162:
1163: -- Standard call to check for call compatibility.
1164: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1165: p_api_version,
1166: l_api_name,
1167: G_PKG_NAME )
1168: THEN
1167: G_PKG_NAME )
1168: THEN
1169: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1170: FND_MSG_PUB.Add;
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173:
1174: -- Initialize message list if p_init_msg_list is set to TRUE.
1175: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173:
1174: -- Initialize message list if p_init_msg_list is set to TRUE.
1175: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1176: FND_MSG_PUB.initialize;
1177: END IF;
1178:
1179: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1179: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1180: IF (p_validation_level <> g_validation_level) THEN
1181: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1182: FND_MSG_PUB.Add;
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1187: x_return_status := FND_API.G_RET_STS_SUCCESS;
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1187: x_return_status := FND_API.G_RET_STS_SUCCESS;
1188:
1189: -- START OF BODY OF API
1190:
1191: -- check whether the payer_id is missing.
1191: -- check whether the payer_id is missing.
1192: IF( TRIM( p_payer_id ) is NULL ) THEN
1193: FND_MESSAGE.SET_NAME('IBY', 'IBY_20486');
1194: FND_MSG_PUB.Add;
1195: RAISE FND_API.G_EXC_ERROR;
1196: -- Returns message 'PAYER_ID is mandatory'
1197: END IF;
1198:
1199: -- Check whether the payer exists.If not,
1206: -- If nothing is found throw an error.
1207: IF( l_count = 0 ) THEN
1208: FND_MESSAGE.SET_NAME('IBY', 'IBY_20491');
1209: FND_MSG_PUB.Add;
1210: RAISE FND_API.G_EXC_ERROR;
1211: -- Returns message 'PAYER_ID does not exist'
1212: END IF;
1213:
1214: -- Call the utility procedure that will do the job
1236: END IF;
1237:
1238: FND_MSG_PUB.Add;
1239: x_msg_data := FND_MSG_PUB.GET(
1240: p_encoded => FND_API.g_false,
1241: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1242: );
1243:
1244: EXCEPTION
1244: EXCEPTION
1245:
1246: -- Catch for version mismatch and
1247: -- if the validation level is not full.
1248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1249:
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: x_msg_count := 1;
1252: x_msg_data := FND_MSG_PUB.GET(
1246: -- Catch for version mismatch and
1247: -- if the validation level is not full.
1248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1249:
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: x_msg_count := 1;
1252: x_msg_data := FND_MSG_PUB.GET(
1253: p_encoded => FND_API.g_false,
1254: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1249:
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: x_msg_count := 1;
1252: x_msg_data := FND_MSG_PUB.GET(
1253: p_encoded => FND_API.g_false,
1254: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1255: );
1256:
1257: -- Catch for all the known errors
1255: );
1256:
1257: -- Catch for all the known errors
1258: -- thrown from this procedure only.
1259: WHEN FND_API.G_EXC_ERROR THEN
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: x_msg_count := 1;
1263: x_msg_data := FND_MSG_PUB.GET(
1257: -- Catch for all the known errors
1258: -- thrown from this procedure only.
1259: WHEN FND_API.G_EXC_ERROR THEN
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: x_msg_count := 1;
1263: x_msg_data := FND_MSG_PUB.GET(
1264: p_encoded => FND_API.g_false,
1265: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: x_msg_count := 1;
1263: x_msg_data := FND_MSG_PUB.GET(
1264: p_encoded => FND_API.g_false,
1265: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1266: );
1267:
1268: WHEN OTHERS THEN
1266: );
1267:
1268: WHEN OTHERS THEN
1269:
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
1272: FND_MSG_PUB.Count_And_Get
1273: ( p_count => x_msg_count,
1274: p_data => x_msg_data
1303: -- End of comments
1304: -------------------------------------------------------------------------------
1305:
1306: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1308: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1310: p_payer_id IN VARCHAR2,
1311: p_instr_id IN NUMBER,
1304: -------------------------------------------------------------------------------
1305:
1306: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1308: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1310: p_payer_id IN VARCHAR2,
1311: p_instr_id IN NUMBER,
1312: x_return_status OUT NOCOPY VARCHAR2,
1305:
1306: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1307: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1308: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1309: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1310: p_payer_id IN VARCHAR2,
1311: p_instr_id IN NUMBER,
1312: x_return_status OUT NOCOPY VARCHAR2,
1313: x_msg_count OUT NOCOPY NUMBER,
1321: END OraInstrInq;
1322:
1323:
1324: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1326: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1328: p_payer_id IN VARCHAR2,
1329: p_instr_id IN NUMBER,
1322:
1323:
1324: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1326: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1328: p_payer_id IN VARCHAR2,
1329: p_instr_id IN NUMBER,
1330: p_sys_sec_key IN VARCHAR2,
1323:
1324: PROCEDURE OraInstrInq ( p_api_version IN NUMBER,
1325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1326: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1328: p_payer_id IN VARCHAR2,
1329: p_instr_id IN NUMBER,
1330: p_sys_sec_key IN VARCHAR2,
1331: x_return_status OUT NOCOPY VARCHAR2,
1345:
1346: BEGIN
1347:
1348: -- Standard call to check for call compatibility.
1349: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1350: p_api_version,
1351: l_api_name,
1352: G_PKG_NAME )
1353: THEN
1352: G_PKG_NAME )
1353: THEN
1354: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1355: FND_MSG_PUB.Add;
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: -- Initialize message list if p_init_msg_list is set to TRUE.
1360: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: -- Initialize message list if p_init_msg_list is set to TRUE.
1360: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1364: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1364: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1365: IF (p_validation_level <> g_validation_level) THEN
1366: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1367: FND_MSG_PUB.Add;
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: -- Initialize API return status to success
1372: x_return_status := FND_API.G_RET_STS_SUCCESS;
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: -- Initialize API return status to success
1372: x_return_status := FND_API.G_RET_STS_SUCCESS;
1373:
1374: -- START OF BODY OF API
1375:
1376: -- Initialize the instrument type
1379: -- check whether the payer_id is missing.
1380: IF( TRIM( p_payer_id ) is NULL ) THEN
1381: FND_MESSAGE.SET_NAME('IBY', 'IBY_20486');
1382: FND_MSG_PUB.Add;
1383: RAISE FND_API.G_EXC_ERROR;
1384: -- Returns message 'PAYER_ID is mandatory'
1385: END IF;
1386:
1387: -- check whether the instr_id is missing.
1387: -- check whether the instr_id is missing.
1388: IF( p_instr_id is NULL ) THEN
1389: FND_MESSAGE.SET_NAME('IBY', 'IBY_20483');
1390: FND_MSG_PUB.Add;
1391: RAISE FND_API.G_EXC_ERROR;
1392: -- Returns message 'Mandatory field(s) missing'
1393: END IF;
1394:
1395: -- Check whether the payer exists.
1402: -- Throw an exception when payer not found.
1403: IF( l_count = 0 ) THEN
1404: FND_MESSAGE.SET_NAME('IBY', 'IBY_20491');
1405: FND_MSG_PUB.Add;
1406: RAISE FND_API.G_EXC_ERROR;
1407: -- Returns message 'PAYER_ID does not exist'
1408: END IF;
1409:
1410: -- Check whether the instrument exists.
1417: -- Throw an exception.
1418: IF( l_count = 0 ) THEN
1419: FND_MESSAGE.SET_NAME('IBY', 'IBY_20492');
1420: FND_MSG_PUB.Add;
1421: RAISE FND_API.G_EXC_ERROR;
1422: -- Returns message 'Instrument does not exist'
1423: END IF;
1424:
1425: -- Check whether the payer holds the instrument.
1433: -- Throw an exception when nothing is found.
1434: IF( l_count = 0 ) THEN
1435: FND_MESSAGE.SET_NAME('IBY', 'IBY_20511');
1436: FND_MSG_PUB.Add;
1437: RAISE FND_API.G_EXC_ERROR;
1438: -- Returns message 'User does not hold instr'
1439: END IF;
1440:
1441: -- Call the utility procedure that will do the job
1465: -- Returns message 'operation completed successfully.'
1466: FND_MESSAGE.SET_NAME('IBY', 'IBY_204170' );
1467: FND_MSG_PUB.Add;
1468: x_msg_data := FND_MSG_PUB.GET(
1469: p_encoded => FND_API.g_false,
1470: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1471: );
1472:
1473: EXCEPTION
1473: EXCEPTION
1474:
1475: -- Catch for version mismatch and
1476: -- if the validation level is not full.
1477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1478:
1479: x_return_status := FND_API.G_RET_STS_ERROR;
1480: x_msg_count := 1;
1481: x_msg_data := FND_MSG_PUB.GET(
1475: -- Catch for version mismatch and
1476: -- if the validation level is not full.
1477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1478:
1479: x_return_status := FND_API.G_RET_STS_ERROR;
1480: x_msg_count := 1;
1481: x_msg_data := FND_MSG_PUB.GET(
1482: p_encoded => FND_API.g_false,
1483: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1478:
1479: x_return_status := FND_API.G_RET_STS_ERROR;
1480: x_msg_count := 1;
1481: x_msg_data := FND_MSG_PUB.GET(
1482: p_encoded => FND_API.g_false,
1483: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1484: );
1485:
1486: -- Catch for all the known errors
1484: );
1485:
1486: -- Catch for all the known errors
1487: -- thrown from this procedure only.
1488: WHEN FND_API.G_EXC_ERROR THEN
1489:
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: x_msg_count := 1;
1492: x_msg_data := FND_MSG_PUB.GET(
1486: -- Catch for all the known errors
1487: -- thrown from this procedure only.
1488: WHEN FND_API.G_EXC_ERROR THEN
1489:
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: x_msg_count := 1;
1492: x_msg_data := FND_MSG_PUB.GET(
1493: p_encoded => FND_API.g_false,
1494: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1489:
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: x_msg_count := 1;
1492: x_msg_data := FND_MSG_PUB.GET(
1493: p_encoded => FND_API.g_false,
1494: P_MSG_INDEX => FND_MSG_PUB.Count_msg
1495: );
1496:
1497: WHEN OTHERS THEN
1495: );
1496:
1497: WHEN OTHERS THEN
1498:
1499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1500: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
1501: FND_MSG_PUB.Count_And_Get
1502: ( p_count => x_msg_count,
1503: p_data => x_msg_data
1562: module => G_DEBUG_MODULE || '.SecureCardInfo');
1563:
1564: -- test_debug('SecureCardInfo=> Enter');
1565: -- Initialize API return status to success
1566: x_return_status := FND_API.G_RET_STS_SUCCESS;
1567:
1568: -- START OF BODY OF API
1569:
1570: IF (p_cardExpiryDate IS NULL
1622: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1623: module => G_DEBUG_MODULE || '.SecureCardInfo');
1624: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1625: FND_MSG_PUB.Add;
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628:
1629: --Raising Exception to handle Servlet related errors.
1630: IF (l_names.COUNT = 0) THEN
1633: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1634: module => G_DEBUG_MODULE || '.SecureCardInfo');
1635: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1636: FND_MSG_PUB.Add;
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639:
1640: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1641: them to the output record: x_reqresp_rec.
1684: --dbms_output.put_line('after successfully mapping results');
1685:
1686: -- Standard check of p_commit.
1687: /*
1688: IF FND_API.To_Boolean( p_commit ) THEN
1689: COMMIT WORK;
1690: END IF;
1691: */
1692:
1708: --test_debug('Exit*******');
1709:
1710: EXCEPTION
1711:
1712: WHEN FND_API.G_EXC_ERROR THEN
1713:
1714: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1715: debug_level => FND_LOG.LEVEL_ERROR,
1716: module => G_DEBUG_MODULE || '.SecureCardInfo');
1714: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1715: debug_level => FND_LOG.LEVEL_ERROR,
1716: module => G_DEBUG_MODULE || '.SecureCardInfo');
1717: --ROLLBACK TO OraPmtReq_PUB;
1718: x_return_status := FND_API.G_RET_STS_ERROR ;
1719: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1720: p_data => x_msg_data
1721: );
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1718: x_return_status := FND_API.G_RET_STS_ERROR ;
1719: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1720: p_data => x_msg_data
1721: );
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723:
1724: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1725: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1726: module => G_DEBUG_MODULE || '.SecureCardInfo');
1724: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1725: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1726: module => G_DEBUG_MODULE || '.SecureCardInfo');
1727: --ROLLBACK TO OraPmtReq_PUB;
1728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1729: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1730: p_data => x_msg_data
1731: );
1732: WHEN OTHERS THEN
1733:
1734: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1735: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1736: module => G_DEBUG_MODULE || '.SecureCardInfo');
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1738: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1739: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1740: END IF;
1741: