592: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
593: debug_level => FND_LOG.LEVEL_ERROR,
594: module => G_DEBUG_MODULE || l_module);
595: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
604:
605: --SAVEPOINT Create_Card;
599:
600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
604:
605: --SAVEPOINT Create_Card;
606:
607: Card_Exists
728: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
729: debug_level => FND_LOG.LEVEL_ERROR,
730: module => G_DEBUG_MODULE || l_module);
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
733: p_data => x_msg_data
734: );
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: --ROLLBACK TO Create_Card;
737: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
738: debug_level => FND_LOG.LEVEL_UNEXPECTED,
739: module => G_DEBUG_MODULE || l_module);
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
741: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
742: p_data => x_msg_data
743: );
744: WHEN OTHERS THEN
745: --ROLLBACK TO Create_Card;
749:
750: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
751:
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
755: END IF;
756:
757: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
750: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
751:
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
755: END IF;
756:
757: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
758: p_data => x_msg_data
753: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
755: END IF;
756:
757: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
758: p_data => x_msg_data
759: );
760:
761: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
797: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
798: debug_level => FND_LOG.LEVEL_ERROR,
799: module => G_DEBUG_MODULE || l_module);
800: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
806: FND_MSG_PUB.initialize;
807: END IF;
808: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
809:
810: SAVEPOINT Update_Card;
804:
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
806: FND_MSG_PUB.initialize;
807: END IF;
808: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
809:
810: SAVEPOINT Update_Card;
811:
812: -- card cannot become info only once this flag is turned off
861: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
862: debug_level => FND_LOG.LEVEL_ERROR,
863: module => G_DEBUG_MODULE || l_module);
864: x_return_status := FND_API.G_RET_STS_ERROR ;
865: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
866: p_data => x_msg_data
867: );
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
869: ROLLBACK TO Update_Card;
870: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
871: debug_level => FND_LOG.LEVEL_UNEXPECTED,
872: module => G_DEBUG_MODULE || l_module);
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
874: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
875: p_data => x_msg_data
876: );
877: WHEN OTHERS THEN
878: ROLLBACK TO Update_Card;
882:
883: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
884:
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
887: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
888: END IF;
889:
890: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
883: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
884:
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
887: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
888: END IF;
889:
890: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
891: p_data => x_msg_data
886: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
887: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
888: END IF;
889:
890: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
891: p_data => x_msg_data
892: );
893:
894: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1071: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
1072: debug_level => FND_LOG.LEVEL_ERROR,
1073: module => G_DEBUG_MODULE || l_module);
1074: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1075: FND_MSG_PUB.Add;
1076: RAISE FND_API.G_EXC_ERROR;
1077: END IF;
1078:
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1076: RAISE FND_API.G_EXC_ERROR;
1077: END IF;
1078:
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1083:
1084: IF (lx_card_number IS NULL) THEN
1078:
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1083:
1084: IF (lx_card_number IS NULL) THEN
1085: x_response.Result_Code := G_RC_INVALID_CARD_NUMBER;
1086: iby_fndcpt_common_pub.Prepare_Result
1115: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1116: debug_level => FND_LOG.LEVEL_ERROR,
1117: module => G_DEBUG_MODULE || l_module);
1118: x_return_status := FND_API.G_RET_STS_ERROR ;
1119: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1120: p_data => x_msg_data
1121: );
1122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1123:
1124: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1125: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1126: module => G_DEBUG_MODULE || l_module);
1127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1128: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1129: p_data => x_msg_data
1130: );
1131: WHEN OTHERS THEN
1132:
1136:
1137: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1138:
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1142: END IF;
1143:
1144: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1137: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1138:
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1142: END IF;
1143:
1144: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1145: p_data => x_msg_data
1140: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1142: END IF;
1143:
1144: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1145: p_data => x_msg_data
1146: );
1147:
1148: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1192: iby_debug_pub.add(debug_msg => 'Incorrect API Version:=' || p_api_version,
1193: debug_level => FND_LOG.LEVEL_ERROR,
1194: module => G_DEBUG_MODULE || l_module);
1195: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1196: FND_MSG_PUB.Add;
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1201: FND_MSG_PUB.initialize;
1202: END IF;
1203: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1204:
1205: OPEN p_card(p_card_id);
1199:
1200: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1201: FND_MSG_PUB.initialize;
1202: END IF;
1203: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
1204:
1205: OPEN p_card(p_card_id);
1206: FETCH p_card INTO x_card_instrument.Owner_Id, x_card_instrument.Card_Holder_Name,
1207: x_card_instrument.Billing_Address_Id, x_card_instrument.Card_Number,
1228: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1229: debug_level => FND_LOG.LEVEL_ERROR,
1230: module => G_DEBUG_MODULE || l_module);
1231: x_return_status := FND_API.G_RET_STS_ERROR ;
1232: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1233: p_data => x_msg_data
1234: );
1235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1236:
1237: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1238: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1239: module => G_DEBUG_MODULE || l_module);
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1242: p_data => x_msg_data
1243: );
1244: WHEN OTHERS THEN
1245:
1249:
1250: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1251:
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1254: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1255: END IF;
1256:
1257: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1250: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1251:
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1254: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1255: END IF;
1256:
1257: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1258: p_data => x_msg_data
1253: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1254: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1255: END IF;
1256:
1257: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1258: p_data => x_msg_data
1259: );
1260:
1261: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,