234: IF (C_Party_Exists%NOTFOUND) THEN
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
237: THEN
238: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
239: FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
240: FND_MSG_PUB.ADD;
241: END IF;
242: END IF;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
237: THEN
238: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
239: FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
240: FND_MSG_PUB.ADD;
241: END IF;
242: END IF;
243: close C_Party_Exists;
302: l_return_status := FND_API.G_RET_STS_ERROR;
303:
304: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
305: THEN
306: FND_MESSAGE.Set_Name('AS', 'API_ROW_NOT_PROCESSED');
307: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
308: FND_MSG_PUB.ADD;
309: END IF;
310: END IF;
303:
304: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
305: THEN
306: FND_MESSAGE.Set_Name('AS', 'API_ROW_NOT_PROCESSED');
307: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
308: FND_MSG_PUB.ADD;
309: END IF;
310: END IF;
311:
396:
397: -- Debug Message
398: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
399: THEN
400: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: Start');
401: FND_MSG_PUB.Add;
402: END IF;
403:
404: -- Initialize API return status to success
415: IF FND_GLOBAL.User_Id IS NULL
416: THEN
417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
418: THEN
419: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
420: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
421: FND_MSG_PUB.ADD;
422: END IF;
423: RAISE FND_API.G_EXC_ERROR;
416: THEN
417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
418: THEN
419: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
420: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
421: FND_MSG_PUB.ADD;
422: END IF;
423: RAISE FND_API.G_EXC_ERROR;
424: END IF;
454: p_return_status := FND_API.G_RET_STS_ERROR;
455:
456: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
457: THEN
458: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
459: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID', FALSE);
460: FND_MSG_PUB.ADD;
461: END IF;
462: RAISE FND_API.G_EXC_ERROR;
455:
456: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
457: THEN
458: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
459: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID', FALSE);
460: FND_MSG_PUB.ADD;
461: END IF;
462: RAISE FND_API.G_EXC_ERROR;
463:
466: p_return_status := FND_API.G_RET_STS_ERROR;
467:
468: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
469: THEN
470: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
471: FND_MESSAGE.Set_Token('COLUMN', 'ADDRESS_ID', FALSE);
472: FND_MSG_PUB.ADD;
473: END IF;
474: RAISE FND_API.G_EXC_ERROR; */
467:
468: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
469: THEN
470: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
471: FND_MESSAGE.Set_Token('COLUMN', 'ADDRESS_ID', FALSE);
472: FND_MSG_PUB.ADD;
473: END IF;
474: RAISE FND_API.G_EXC_ERROR; */
475:
530: p_return_status := FND_API.G_RET_STS_ERROR;
531:
532: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
533: THEN
534: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
535: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
536: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
537: FND_MSG_PUB.ADD;
538: END IF;
531:
532: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
533: THEN
534: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
535: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
536: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
537: FND_MSG_PUB.ADD;
538: END IF;
539: RAISE FND_API.G_EXC_ERROR;
532: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
533: THEN
534: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
535: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
536: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
537: FND_MSG_PUB.ADD;
538: END IF;
539: RAISE FND_API.G_EXC_ERROR;
540: END IF;
571: END IF;
572:
573: IF (l_update_access_flag <> 'Y') THEN
574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
575: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
576: FND_MSG_PUB.ADD;
577: END IF;
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
604: END IF;
605:
606: IF (l_update_access_flag <> 'Y') THEN
607: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
608: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
609: FND_MSG_PUB.ADD;
610: END IF;
611: p_return_status := FND_API.G_RET_STS_ERROR;
612: RAISE FND_API.G_EXC_ERROR;
626: -- Progress Message
627: --
628: /* IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
629: THEN
630: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
631: FND_MESSAGE.Set_Token ('ROW', 'AS_INTEREST', TRUE);
632: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
633: FND_MSG_PUB.Add;
634: END IF;
627: --
628: /* IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
629: THEN
630: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
631: FND_MESSAGE.Set_Token ('ROW', 'AS_INTEREST', TRUE);
632: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
633: FND_MSG_PUB.Add;
634: END IF;
635: */
628: /* IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
629: THEN
630: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
631: FND_MESSAGE.Set_Token ('ROW', 'AS_INTEREST', TRUE);
632: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
633: FND_MSG_PUB.Add;
634: END IF;
635: */
636: -- Row savepoint
645:
646: -- Debug Message
647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
648: THEN
649: FND_MESSAGE.Set_Name('AS', 'Validating Record');
650: FND_MSG_PUB.Add;
651: END IF;
652:
653: Validate_Interest ( p_interest_use_code, p_interest_tbl(l_curr_row), l_return_status );
664: p_interest_tbl(l_curr_row).product_cat_set_id);
665: FETCH duplicate_cat_cur INTO l_count;
666: IF (duplicate_cat_cur%FOUND)
667: THEN
668: FND_MESSAGE.Set_Name('AS', 'AS_DUPLICATE_MAPPING');
669: FND_MSG_PUB.Add;
670: Close duplicate_cat_cur;
671: RAISE FND_API.G_EXC_ERROR;
672: END IF;
677:
678: -- Debug Message
679: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
680: THEN
681: FND_MESSAGE.Set_Name('AS', 'Inserting Record');
682: FND_MSG_PUB.Add;
683: END IF;
684:
685: -- Clear values for next insert
830: -- Success Message
831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
832: l_interests_inserted > 0
833: THEN
834: FND_MESSAGE.Set_Name('AS', 'API_ROWS_INSERTED');
835: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
836: FND_MESSAGE.Set_Token('NUMBER', to_char(l_interests_inserted), FALSE);
837: FND_MSG_PUB.Add;
838: END IF;
831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
832: l_interests_inserted > 0
833: THEN
834: FND_MESSAGE.Set_Name('AS', 'API_ROWS_INSERTED');
835: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
836: FND_MESSAGE.Set_Token('NUMBER', to_char(l_interests_inserted), FALSE);
837: FND_MSG_PUB.Add;
838: END IF;
839:
832: l_interests_inserted > 0
833: THEN
834: FND_MESSAGE.Set_Name('AS', 'API_ROWS_INSERTED');
835: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
836: FND_MESSAGE.Set_Token('NUMBER', to_char(l_interests_inserted), FALSE);
837: FND_MSG_PUB.Add;
838: END IF;
839:
840:
841: -- Success Message
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
843: l_return_status = FND_API.G_RET_STS_SUCCESS
844: THEN
845: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
846: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
847: FND_MSG_PUB.Add;
848: END IF;
849:
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
843: l_return_status = FND_API.G_RET_STS_SUCCESS
844: THEN
845: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
846: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
847: FND_MSG_PUB.Add;
848: END IF;
849:
850: -- Standard check of p_commit.
855:
856: -- Debug Message
857: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
858: THEN
859: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: End');
860: FND_MSG_PUB.Add;
861: END IF;
862:
863: -- Standard call to get message count and if count is 1, get message info.
1028:
1029: -- Debug Message
1030: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1031: THEN
1032: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: Start');
1033: FND_MSG_PUB.Add;
1034: END IF;
1035:
1036: -- Initialize API return status to success
1072: IF (p_interest_rec.customer_id is NULL or p_interest_rec.customer_id = FND_API.G_MISS_NUM) THEN
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074:
1075: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1076: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1077: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID', FALSE);
1078: FND_MSG_PUB.ADD;
1079: END IF;
1080: RAISE FND_API.G_EXC_ERROR;
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074:
1075: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1076: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1077: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID', FALSE);
1078: FND_MSG_PUB.ADD;
1079: END IF;
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125:
1126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1127: THEN
1128: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1129: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
1130: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
1131: FND_MSG_PUB.ADD;
1132: END IF;
1125:
1126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1127: THEN
1128: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1129: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
1130: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
1131: FND_MSG_PUB.ADD;
1132: END IF;
1133: RAISE FND_API.G_EXC_ERROR;
1126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1127: THEN
1128: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1129: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_USE_CODE', FALSE);
1130: FND_MESSAGE.Set_Token('VALUE', p_interest_use_code, FALSE);
1131: FND_MSG_PUB.ADD;
1132: END IF;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1165: END IF;
1166:
1167: IF (l_update_access_flag <> 'Y') THEN
1168: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1169: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1170: FND_MSG_PUB.ADD;
1171: END IF;
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1198: END IF;
1199:
1200: IF (l_update_access_flag <> 'Y') THEN
1201: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1202: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1203: FND_MSG_PUB.ADD;
1204: END IF;
1205: RAISE FND_API.G_EXC_ERROR;
1206: END IF;
1214:
1215: -- Debug Message
1216: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1217: THEN
1218: FND_MESSAGE.Set_Name('AS', 'Validating Record');
1219: FND_MSG_PUB.Add;
1220: END IF;
1221:
1222: Validate_Interest ( p_interest_use_code, p_interest_rec, l_return_status );
1234: p_interest_rec.product_cat_set_id);
1235: FETCH duplicate_cat_cur INTO l_count;
1236: IF (duplicate_cat_cur%FOUND)
1237: THEN
1238: FND_MESSAGE.Set_Name('AS', 'AS_DUPLICATE_MAPPING');
1239: FND_MSG_PUB.Add;
1240: Close duplicate_cat_cur;
1241: RAISE FND_API.G_EXC_ERROR;
1242: END IF;
1244:
1245: -- Debug Message
1246: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1247: THEN
1248: FND_MESSAGE.Set_Name('AS', 'Updating Record');
1249: FND_MSG_PUB.Add;
1250: END IF;
1251:
1252: -- lock rows before update
1259: or p_interest_rec.last_update_date = FND_API.G_MISS_DATE)
1260: then
1261: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1262: THEN
1263: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1264: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1265: FND_MSG_PUB.ADD;
1266: END IF;
1267: RAISE FND_API.G_EXC_ERROR;
1260: then
1261: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1262: THEN
1263: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1264: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1265: FND_MSG_PUB.ADD;
1266: END IF;
1267: RAISE FND_API.G_EXC_ERROR;
1268: end if;
1270: if (l_last_update_date <> p_interest_rec.last_update_date)
1271: then
1272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1273: THEN
1274: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1275: FND_MESSAGE.Set_Token('INFO', 'AS_INTERESTS', FALSE);
1276: FND_MSG_PUB.ADD;
1277: END IF;
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: then
1272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1273: THEN
1274: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1275: FND_MESSAGE.Set_Token('INFO', 'AS_INTERESTS', FALSE);
1276: FND_MSG_PUB.ADD;
1277: END IF;
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1279: else
1350: -- Success Message
1351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
1352: l_return_status = FND_API.G_RET_STS_SUCCESS
1353: THEN
1354: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
1355: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
1356: FND_MSG_PUB.Add;
1357: END IF;
1358:
1351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
1352: l_return_status = FND_API.G_RET_STS_SUCCESS
1353: THEN
1354: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
1355: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
1356: FND_MSG_PUB.Add;
1357: END IF;
1358:
1359: -- Standard check of p_commit.
1364:
1365: -- Debug Message
1366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1367: THEN
1368: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: End');
1369: FND_MSG_PUB.Add;
1370: END IF;
1371:
1372: -- Standard call to get message count and if count is 1, get message info.
1381: x_return_status := FND_API.G_RET_STS_ERROR ;
1382:
1383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1384: THEN
1385: FND_MESSAGE.Set_Name('AS', 'API_CANNOT_RESERVE_RECORD');
1386: FND_MESSAGE.Set_Token('INFO', 'UPDATE_INTEREST', FALSE);
1387: FND_MSG_PUB.Add;
1388: END IF;
1389:
1382:
1383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1384: THEN
1385: FND_MESSAGE.Set_Name('AS', 'API_CANNOT_RESERVE_RECORD');
1386: FND_MESSAGE.Set_Token('INFO', 'UPDATE_INTEREST', FALSE);
1387: FND_MSG_PUB.Add;
1388: END IF;
1389:
1390: WHEN FND_API.G_EXC_ERROR THEN
1489: IF FND_GLOBAL.User_Id IS NULL
1490: THEN
1491: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1492: THEN
1493: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
1494: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1495: FND_MSG_PUB.ADD;
1496: END IF;
1497: RAISE FND_API.G_EXC_ERROR;
1490: THEN
1491: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1492: THEN
1493: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
1494: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1495: FND_MSG_PUB.ADD;
1496: END IF;
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1520: if (p_interest_rec.interest_id is NULL)
1521: then
1522: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1523: THEN
1524: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1525: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_ID', FALSE);
1526: FND_MSG_PUB.ADD;
1527: END IF;
1528: end if;
1521: then
1522: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1523: THEN
1524: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1525: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_ID', FALSE);
1526: FND_MSG_PUB.ADD;
1527: END IF;
1528: end if;
1529:
1533: if (get_interest_info_csr%NOTFOUND)
1534: then
1535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1536: THEN
1537: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1538: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_ID', FALSE);
1539: fnd_message.set_token('VALUE', p_interest_rec.interest_id, FALSE);
1540: FND_MSG_PUB.ADD;
1541: END IF;
1534: then
1535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1536: THEN
1537: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1538: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_ID', FALSE);
1539: fnd_message.set_token('VALUE', p_interest_rec.interest_id, FALSE);
1540: FND_MSG_PUB.ADD;
1541: END IF;
1542: close get_interest_info_csr;
1535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1536: THEN
1537: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1538: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_ID', FALSE);
1539: fnd_message.set_token('VALUE', p_interest_rec.interest_id, FALSE);
1540: FND_MSG_PUB.ADD;
1541: END IF;
1542: close get_interest_info_csr;
1543: raise FND_API.G_EXC_ERROR;
1569: END IF;
1570:
1571: IF (l_update_access_flag <> 'Y') THEN
1572: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1573: FND_MESSAGE.Set_Name('AS', 'API_NO_DELETE_PRIVILEGE');
1574: FND_MSG_PUB.ADD;
1575: END IF;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1602: END IF;
1603:
1604: IF (l_update_access_flag <> 'Y') THEN
1605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1606: FND_MESSAGE.Set_Name('AS', 'API_NO_DELETE_PRIVILEGE');
1607: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
1608: FND_MSG_PUB.ADD;
1609: END IF;
1610: RAISE FND_API.G_EXC_ERROR;
1603:
1604: IF (l_update_access_flag <> 'Y') THEN
1605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1606: FND_MESSAGE.Set_Name('AS', 'API_NO_DELETE_PRIVILEGE');
1607: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
1608: FND_MSG_PUB.ADD;
1609: END IF;
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1728: l_return_status := FND_API.G_RET_STS_ERROR;
1729:
1730: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1731: THEN
1732: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1733: FND_MESSAGE.Set_Token('COLUMN', 'PRODUCT_CATEGORY_ID', FALSE);
1734: FND_MSG_PUB.ADD;
1735: END IF;
1736: ELSIF ((p_product_cat_set_id is NULL)
1729:
1730: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1731: THEN
1732: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1733: FND_MESSAGE.Set_Token('COLUMN', 'PRODUCT_CATEGORY_ID', FALSE);
1734: FND_MSG_PUB.ADD;
1735: END IF;
1736: ELSIF ((p_product_cat_set_id is NULL)
1737: or (p_product_cat_set_id = FND_API.G_MISS_NUM))
1739: l_return_status := FND_API.G_RET_STS_ERROR;
1740:
1741: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1742: THEN
1743: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1744: FND_MESSAGE.Set_Token('COLUMN', 'PRODUCT_CAT_SET_ID', FALSE);
1745: FND_MSG_PUB.ADD;
1746: END IF;
1747: ELSE
1740:
1741: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1742: THEN
1743: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1744: FND_MESSAGE.Set_Token('COLUMN', 'PRODUCT_CAT_SET_ID', FALSE);
1745: FND_MSG_PUB.ADD;
1746: END IF;
1747: ELSE
1748: -- Insure that all ids are valid
1807: l_return_status := FND_API.G_RET_STS_ERROR;
1808:
1809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1810: THEN
1811: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1812: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_TYPE_ID', FALSE);
1813: FND_MSG_PUB.ADD;
1814: END IF;
1815:
1808:
1809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1810: THEN
1811: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1812: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_TYPE_ID', FALSE);
1813: FND_MSG_PUB.ADD;
1814: END IF;
1815:
1816: ELSE
1885: IF (C_Int_Type_Exists%NOTFOUND)
1886: THEN
1887: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
1888: THEN
1889: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1890: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_TYPE', FALSE);
1891: FND_MESSAGE.Set_Token('VALUE', p_interest_type_id, FALSE);
1892: FND_MSG_PUB.Add;
1893: END IF;
1886: THEN
1887: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
1888: THEN
1889: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1890: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_TYPE', FALSE);
1891: FND_MESSAGE.Set_Token('VALUE', p_interest_type_id, FALSE);
1892: FND_MSG_PUB.Add;
1893: END IF;
1894:
1887: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
1888: THEN
1889: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1890: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_TYPE', FALSE);
1891: FND_MESSAGE.Set_Token('VALUE', p_interest_type_id, FALSE);
1892: FND_MSG_PUB.Add;
1893: END IF;
1894:
1895: l_return_status := FND_API.G_RET_STS_ERROR;
1907: IF (C_Prim_Int_Code_Exists%NOTFOUND)
1908: THEN
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_Msg_Lvl_Error)
1910: THEN
1911: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1912: FND_MESSAGE.Set_Token('COLUMN', 'PRIMARY_INTEREST_CODE', FALSE);
1913: FND_MESSAGE.Set_Token('VALUE', p_primary_interest_code_id, FALSE);
1914: FND_MSG_PUB.Add;
1915: END IF;
1908: THEN
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_Msg_Lvl_Error)
1910: THEN
1911: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1912: FND_MESSAGE.Set_Token('COLUMN', 'PRIMARY_INTEREST_CODE', FALSE);
1913: FND_MESSAGE.Set_Token('VALUE', p_primary_interest_code_id, FALSE);
1914: FND_MSG_PUB.Add;
1915: END IF;
1916:
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_Msg_Lvl_Error)
1910: THEN
1911: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1912: FND_MESSAGE.Set_Token('COLUMN', 'PRIMARY_INTEREST_CODE', FALSE);
1913: FND_MESSAGE.Set_Token('VALUE', p_primary_interest_code_id, FALSE);
1914: FND_MSG_PUB.Add;
1915: END IF;
1916:
1917: l_return_status := FND_API.G_RET_STS_ERROR;
1930: IF (C_Sec_Int_Code_Exists%NOTFOUND)
1931: THEN
1932: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1933: THEN
1934: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1935: FND_MESSAGE.Set_Token('COLUMN', 'SECONDARY_INTEREST_CODE', FALSE);
1936: FND_MESSAGE.Set_Token('VALUE', p_secondary_interest_code_id, FALSE);
1937: FND_MSG_PUB.ADD;
1938: END IF;
1931: THEN
1932: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1933: THEN
1934: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1935: FND_MESSAGE.Set_Token('COLUMN', 'SECONDARY_INTEREST_CODE', FALSE);
1936: FND_MESSAGE.Set_Token('VALUE', p_secondary_interest_code_id, FALSE);
1937: FND_MSG_PUB.ADD;
1938: END IF;
1939:
1932: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1933: THEN
1934: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1935: FND_MESSAGE.Set_Token('COLUMN', 'SECONDARY_INTEREST_CODE', FALSE);
1936: FND_MESSAGE.Set_Token('VALUE', p_secondary_interest_code_id, FALSE);
1937: FND_MSG_PUB.ADD;
1938: END IF;
1939:
1940: l_return_status := FND_API.G_RET_STS_ERROR;
1977: IF (C_Int_Status_Exists%NOTFOUND)
1978: THEN
1979: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1980: THEN
1981: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1982: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
1983: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1978: THEN
1979: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1980: THEN
1981: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1982: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
1983: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1986:
1979: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1980: THEN
1981: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1982: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
1983: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1986:
1987: l_return_status := FND_API.G_RET_STS_ERROR;
2025: IF (C_Int_Status_Exists%NOTFOUND)
2026: THEN
2027: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2028: THEN
2029: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
2030: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
2031: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
2032: FND_MSG_PUB.ADD;
2033: END IF;
2026: THEN
2027: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2028: THEN
2029: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
2030: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
2031: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
2032: FND_MSG_PUB.ADD;
2033: END IF;
2034:
2027: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2028: THEN
2029: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
2030: FND_MESSAGE.Set_Token('COLUMN', 'INTEREST_STATUS', FALSE);
2031: FND_MESSAGE.Set_Token('VALUE', p_interest_status_code, FALSE);
2032: FND_MSG_PUB.ADD;
2033: END IF;
2034:
2035: l_return_status := FND_API.G_RET_STS_ERROR;