[Home] [Help]
298: p_api_version,
299: l_api_name,
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:
310: END IF;
311:
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:
325: l_instrument_type := p_pmtInstrRec.InstrumentType;
326: IF( ( l_instrument_type <> C_INSTRTYPE_CREDITCARD ) AND
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;
335: -- Check whether Instrid is passed. It should not be passed for 'Add'.
336: IF( ( p_pmtInstrRec.CreditCardInstr.Instr_Id is not NULL ) OR
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;
488: iby_debug_pub.add('Unpack status error',
489: FND_LOG.LEVEL_UNEXPECTED,
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:
498: IF (l_values.COUNT = 0 ) THEN
499: iby_debug_pub.add('Names count=0',
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:
519: -- simply copy the mesg returned verbatim;
520: -- this is done rather than reconstructing via 'OapfCode'
521: -- as msg tokens will not otherwise be filled
522: --
523: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
524: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT', l_values(i));
525: FND_MSG_PUB.ADD;
526: END IF;
527:
520: -- this is done rather than reconstructing via 'OapfCode'
521: -- as msg tokens will not otherwise be filled
522: --
523: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
524: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT', l_values(i));
525: FND_MSG_PUB.ADD;
526: END IF;
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
536: x_return_status := FND_API.G_RET_STS_ERROR;
537: END IF;
652: p_api_version,
653: l_api_name,
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:
664: END IF;
665:
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:
676: -- START OF BODY OF API
677:
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;
687: l_instrument_type := p_pmtInstrRec.InstrumentType;
688: IF( ( l_instrument_type <> C_INSTRTYPE_CREDITCARD ) AND
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;
699:
700: -- Card number should NOT be passed as it is an existing instrument.
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;
711:
712: -- Card number should NOT be passed as it is an existing instrument.
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;
719: END IF;
720:
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;
731:
732: -- Bank Id and BankAcct_Num should NOT be passed as it is an existing instrument.
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;
874: -- Return success when everything is fine.
875: x_msg_count := 1;
876:
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
985: p_api_version,
986: l_api_name,
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:
997: END IF;
998:
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:
1009: -- START OF BODY OF API
1010:
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;
1017: END IF;
1018:
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;
1035: -- Return success when everything is fine.
1036: x_msg_count := 1;
1037:
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
1165: p_api_version,
1166: l_api_name,
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:
1177: END IF;
1178:
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:
1189: -- START OF BODY OF API
1190:
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;
1204: AND activestatus = 1;
1205:
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;
1228: IF( x_creditcard_tbl.count = 0 AND
1229: x_purchasecard_tbl.count = 0 AND
1230: x_bankacct_tbl.count = 0 ) THEN
1231: -- Returns message 'No records found matching the given criteria.'
1232: FND_MESSAGE.SET_NAME('IBY', 'IBY_204041' );
1233: ELSE
1234: -- Returns message 'operation completed successfully.'
1235: FND_MESSAGE.SET_NAME('IBY', 'IBY_204170' );
1236: END IF;
1231: -- Returns message 'No records found matching the given criteria.'
1232: FND_MESSAGE.SET_NAME('IBY', 'IBY_204041' );
1233: ELSE
1234: -- Returns message 'operation completed successfully.'
1235: FND_MESSAGE.SET_NAME('IBY', 'IBY_204170' );
1236: END IF;
1237:
1238: FND_MSG_PUB.Add;
1239: x_msg_data := FND_MSG_PUB.GET(
1350: p_api_version,
1351: l_api_name,
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:
1362: END IF;
1363:
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:
1377: x_pmtInstrRec.InstrumentType := C_INSTRTYPE_UNREG;
1378:
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;
1385: END IF;
1386:
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;
1400: AND activestatus = 1;
1401:
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;
1415: AND activestatus = 1;
1416:
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;
1431: AND activestatus = 1;
1432:
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;
1462: -- Return success when everything is fine.
1463: x_msg_count := 1;
1464:
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
1620: --test_debug('unpack error !!');
1621: iby_debug_pub.add(debug_msg => 'Unpack status error; HTML resp. invalid!',
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:
1631: --test_debug('response count is 0 !!');
1632: iby_debug_pub.add(debug_msg => 'HTML response names count=0',
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: