[Home] [Help]
202: BEGIN
203: --When the action is insert or update
204: -- Check if API is called in debug mode. If yes, enable debug.
205: /*FND_MESSAGE.SET_NAME('AHL','i am in validate'|| p_Delete_flag);
206: FND_MSG_PUB.ADD;
207: */
208: l_delete_flag := nvl(p_delete_flag, 'N');
209:
210: AHL_DEBUG_PUB.enable_debug;
283: (p_document_id IS NOT NULL
284: AND l_source_party_id IS NULL))
285: THEN
286: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_PARTY_ID_NULL');
287: FND_MSG_PUB.ADD;
288: END IF;
289: --This condition checks for doc type code
290: IF ((p_document_id IS NULL AND
291: p_doc_type_code IS NULL)
293: (p_document_id IS NOT NULL
294: AND l_doc_type_code IS NULL))
295: THEN
296: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NULL');
297: FND_MSG_PUB.ADD;
298: END IF;
299: --This condition checks for document number
300: IF ((p_document_id IS NULL AND
301: p_document_no IS NULL)
303: (p_document_id IS NOT NULL
304: AND l_document_no IS NULL))
305: THEN
306: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_NO_NULL');
307: FND_MSG_PUB.ADD;
308: END IF;
309: --This condition checks for Subscriptions available flag
310: IF ((p_document_id IS NULL AND
311: p_subscribe_avail_flag IS NULL)
313: (p_document_id IS NOT NULL
314: AND l_subscribe_avail_flag IS NULL))
315: THEN
316: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_AVAIL_FLAG_NULL');
317: FND_MSG_PUB.ADD;
318: END IF;
319: --This condition checks for subscribe to flag
320: IF ((p_document_id IS NULL AND
321: p_subscribe_to_flag IS NULL)
323: (p_document_id IS NOT NULL
324: AND l_subscribe_to_flag IS NULL))
325: THEN
326: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_TO_FLAG_NULL');
327: FND_MSG_PUB.ADD;
328: END IF;
329: --Modified pjha 25-Jun-2002 for restricting Subscription available based on Subscribed To : Begin
330: /*
331: IF (l_subscribe_to_flag = 'Y' AND l_subscribe_avail_flag = 'N')
330: /*
331: IF (l_subscribe_to_flag = 'Y' AND l_subscribe_avail_flag = 'N')
332: THEN
333: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_AVAIL_FLAG_NO');
334: FND_MSG_PUB.ADD;
335: END IF;
336: --Modified pjha 25-Jun-2002 for restricting Subscription available based on Subscribed To : End
337:
338: --Added pjha 02-Jul-2002 for Restricting Subscription Avail to 'Yes' If supplier
343: FETCH check_sup_exists INTO l_dummy;
344: IF check_sup_exists%FOUND
345: THEN
346: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_EXISTS');
347: FND_MSG_PUB.ADD;
348: END IF;
349: CLOSE check_sup_exists;
350: END IF;
351: */
360: FETCH get_doc_type_code INTO l_dummy;
361: IF get_doc_type_code%NOTFOUND
362: THEN
363: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
364: FND_MSG_PUB.ADD;
365: END IF;
366: CLOSE get_doc_type_code;
367: END IF;
368: --Checks for sub type code in fnd lookups
374: FETCH get_doc_sub_type_code INTO l_dummy;
375: IF get_doc_sub_type_code%NOTFOUND
376: THEN
377: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
378: FND_MSG_PUB.ADD;
379: END IF;
380: CLOSE get_doc_sub_type_code;
381: -- Checks for sub_type_Code in ahl_document_subtypes
382: OPEN get_sub_type_exists(p_doc_type_code, p_doc_sub_type_code);
383: FETCH get_sub_type_exists INTO l_dummy;
384: IF get_sub_type_exists%NOTFOUND
385: THEN
386: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
387: FND_MSG_PUB.ADD;
388: END IF;
389:
390: CLOSE get_sub_type_exists;
391: END IF;
397: FETCH get_operator_code_hz INTO l_dummy;
398: IF get_operator_code_hz%NOTFOUND
399: THEN
400: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_CODE_NOT_EXIST');
401: FND_MSG_PUB.ADD;
402: END IF;
403: CLOSE get_operator_code_hz;
404:
405: END IF;
410: FETCH get_product_type_code INTO l_dummy;
411: IF get_product_type_code%NOTFOUND
412: THEN
413: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PRODTYPE_CODE_NOT_EXIST');
414: FND_MSG_PUB.ADD;
415: END IF;
416: CLOSE get_product_type_code;
417: END IF;
418: --Checks for Duplicate Record
421: OPEN dup_rec(l_source_party_id ,l_document_no);
422: FETCH dup_rec INTO l_dummy;
423: IF dup_rec%FOUND THEN
424: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_DUP_RECORD');
425: FND_MSG_PUB.ADD;
426: END IF;
427: CLOSE dup_rec;
428: END IF;
429:
487: END IF;
488: -- Standard call to check for call compatibility.
489: IF FND_API.to_boolean(p_init_msg_list)
490: THEN
491: FND_MSG_PUB.initialize;
492: END IF;
493: -- Initialize API return status to success
494: x_return_status := 'S';
495: -- Initialize message list if p_init_msg_list is set to TRUE.
519: p_delete_flag => p_x_document_tbl(i).delete_flag);
520:
521: END LOOP;
522: --Standard Call to count messages
523: l_msg_count := FND_MSG_PUB.count_msg;
524:
525: IF l_msg_count > 0 THEN
526: X_msg_count := l_msg_count;
527: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: OPEN unique_rec(p_x_document_tbl (i).document_no);
559: FETCH unique_rec INTO l_dummy;
560: IF unique_rec%FOUND THEN
561: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_DUP_RECORD');
562: FND_MSG_PUB.ADD;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: CLOSE unique_rec;
566: -- Get the sequence number
611: );
612: -- Assign the value for out parameter
613: p_x_document_tbl(i).document_id := l_document_id;
614:
615: l_msg_count := FND_MSG_PUB.count_msg;
616:
617: IF l_msg_count > 0 THEN
618: X_msg_count := l_msg_count;
619: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: x_msg_data => x_msg_data
666: );
667: END IF;
668: --Standard check for message count
669: l_msg_count := FND_MSG_PUB.count_msg;
670:
671: IF l_msg_count > 0 THEN
672: X_msg_count := l_msg_count;
673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: EXCEPTION
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO create_document;
686: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count,
689: p_data => x_msg_data);
690:
691: IF G_DEBUG='Y' THEN
700: END IF;
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO create_document;
703: X_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
705: p_count => x_msg_count,
706: p_data => X_msg_data);
707: -- Debug info.
708: IF G_DEBUG='Y' THEN
718: END IF;
719: WHEN OTHERS THEN
720: ROLLBACK TO create_document;
721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
723: THEN
724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
725: p_procedure_name => 'CREATE_DOCUMENT',
726: p_error_text => SUBSTR(SQLERRM,1,240));
720: ROLLBACK TO create_document;
721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
723: THEN
724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
725: p_procedure_name => 'CREATE_DOCUMENT',
726: p_error_text => SUBSTR(SQLERRM,1,240));
727: END IF;
728: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
725: p_procedure_name => 'CREATE_DOCUMENT',
726: p_error_text => SUBSTR(SQLERRM,1,240));
727: END IF;
728: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
729: p_count => x_msg_count,
730: p_data => X_msg_data);
731:
732: -- Debug info.
827: END IF;
828: -- Standard call to check for call compatibility.
829: IF FND_API.to_boolean(p_init_msg_list)
830: THEN
831: FND_MSG_PUB.initialize;
832: END IF;
833: -- Initialize API return status to success
834: x_return_status := 'S';
835: -- Initialize message list if p_init_msg_list is set to TRUE.
863:
864:
865: END LOOP;
866: --Standard check to count messages
867: l_msg_count := FND_MSG_PUB.count_msg;
868:
869: IF l_msg_count > 0 THEN
870: X_msg_count := l_msg_count;
871: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
964: -- updating same record...02/05/02
965: if (l_document_info.object_version_number <>p_x_document_tbl(i).object_version_number)
966: then
967: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
968: FND_MSG_PUB.ADD;
969: RAISE FND_API.G_EXC_ERROR;
970: end if;
971: -- The following conditions compare the new record value with old record
972: -- value, if its different then assign the new value else continue
1059: x_msg_data => x_msg_data
1060: );
1061: END IF;
1062: --Standard check for message count
1063: l_msg_count := FND_MSG_PUB.count_msg;
1064:
1065: IF l_msg_count > 0 THEN
1066: X_msg_count := l_msg_count;
1067: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: EXCEPTION
1086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1087: ROLLBACK TO modify_document;
1088: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1090: p_count => x_msg_count,
1091: p_data => x_msg_data);
1092:
1093: IF G_DEBUG='Y' THEN
1104:
1105: WHEN FND_API.G_EXC_ERROR THEN
1106: ROLLBACK TO modify_document;
1107: X_return_status := FND_API.G_RET_STS_ERROR;
1108: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1109: p_count => x_msg_count,
1110: p_data => X_msg_data);
1111: -- Debug info.
1112: IF G_DEBUG='Y' THEN
1122:
1123: WHEN OTHERS THEN
1124: ROLLBACK TO modify_document;
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1127: THEN
1128: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1129: p_procedure_name => 'MODIFY_DOCUMENT',
1130: p_error_text => SUBSTR(SQLERRM,1,240));
1124: ROLLBACK TO modify_document;
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1127: THEN
1128: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1129: p_procedure_name => 'MODIFY_DOCUMENT',
1130: p_error_text => SUBSTR(SQLERRM,1,240));
1131: END IF;
1132: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1128: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1129: p_procedure_name => 'MODIFY_DOCUMENT',
1130: p_error_text => SUBSTR(SQLERRM,1,240));
1131: END IF;
1132: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1133: p_count => x_msg_count,
1134: p_data => X_msg_data);
1135:
1136: -- Debug info.
1271: (p_supplier_document_id IS NOT NULL
1272: AND l_supplier_id IS NULL))
1273: THEN
1274: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_ID_NULL');
1275: FND_MSG_PUB.ADD;
1276: END IF;
1277: -- This condition checks for Document id Is Null
1278: IF ((p_supplier_document_id IS NULL AND
1279: p_document_id IS NULL)
1281: (p_supplier_document_id IS NOT NULL
1282: AND l_document_id IS NULL))
1283: THEN
1284: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1285: FND_MSG_PUB.ADD;
1286: END IF;
1287: -- This condition checks for existence of preference code in fnd lookups
1288: IF p_preference_code IS NOT NULL
1289: THEN
1291: FETCH get_preference_code INTO l_dummy;
1292: IF get_preference_code%NOTFOUND
1293: THEN
1294: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PREF_CODE_NOT_EXIST');
1295: FND_MSG_PUB.ADD;
1296: END IF;
1297: CLOSE get_preference_code;
1298: END IF;
1299: -- This condition checks for document record in ahl documents table
1303: FETCH Check_doc_info INTO l_dummy;
1304: IF Check_doc_info%NOTFOUND
1305: THEN
1306: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
1307: FND_MSG_PUB.ADD;
1308: END IF;
1309: CLOSE Check_doc_info;
1310: END IF;
1311: --Check for Duplicate Record
1330: CLOSE get_supplier_name_po;
1331: END IF;
1332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1333: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1334: FND_MSG_PUB.ADD;
1335: END IF;
1336: CLOSE dup_rec;
1337: END IF;
1338: END IF;
1411:
1412: -- Standard call to check for call compatibility.
1413: IF FND_API.to_boolean(p_init_msg_list)
1414: THEN
1415: FND_MSG_PUB.initialize;
1416: END IF;
1417: -- Initialize API return status to success
1418: x_return_status := 'S';
1419: -- Initialize message list if p_init_msg_list is set to TRUE.
1448: p_delete_flag => p_x_supplier_tbl(i).delete_flag
1449: );
1450: END LOOP;
1451: -- Standard call to get message count and if count is get message info.
1452: l_msg_count := FND_MSG_PUB.count_msg;
1453:
1454: IF l_msg_count > 0 THEN
1455: X_msg_count := l_msg_count;
1456: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1500: CLOSE get_supplier_name_po;
1501: END IF;
1502: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1503: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1504: FND_MSG_PUB.ADD;
1505:
1506: --AD RAISE FND_API.G_EXC_ERROR;
1507: --AD END IF;
1508: --ad CLOSE dup_rec;
1575: CLOSE dup_rec;--ad
1576:
1577: /*
1578: --{{adharia comment
1579: l_msg_count := FND_MSG_PUB.count_msg;
1580: IF l_msg_count > 0 THEN
1581: X_msg_count := l_msg_count;
1582: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1583: RAISE FND_API.G_EXC_ERROR;
1588: END LOOP;
1589: END IF;
1590:
1591: --{{adharia added
1592: l_msg_count := FND_MSG_PUB.count_msg;
1593: IF l_msg_count > 0 THEN
1594: X_msg_count := l_msg_count;
1595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: RAISE FND_API.G_EXC_ERROR;
1615: EXCEPTION
1616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1617: ROLLBACK TO create_supplier;
1618: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1620: p_count => x_msg_count,
1621: p_data => x_msg_data);
1622:
1623: IF G_DEBUG='Y' THEN
1633:
1634: WHEN FND_API.G_EXC_ERROR THEN
1635: ROLLBACK TO create_supplier;
1636: X_return_status := FND_API.G_RET_STS_ERROR;
1637: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1638: p_count => x_msg_count,
1639: p_data => X_msg_data);
1640: -- Debug info.
1641: IF G_DEBUG='Y' THEN
1650:
1651: WHEN OTHERS THEN
1652: ROLLBACK TO create_supplier;
1653: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1655: THEN
1656: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1657: p_procedure_name => 'CREATE_SUPPLIER',
1658: p_error_text => SUBSTR(SQLERRM,1,240));
1652: ROLLBACK TO create_supplier;
1653: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1655: THEN
1656: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1657: p_procedure_name => 'CREATE_SUPPLIER',
1658: p_error_text => SUBSTR(SQLERRM,1,240));
1659: END IF;
1660: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1656: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1657: p_procedure_name => 'CREATE_SUPPLIER',
1658: p_error_text => SUBSTR(SQLERRM,1,240));
1659: END IF;
1660: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1661: p_count => x_msg_count,
1662: p_data => X_msg_data);
1663:
1664: -- Debug info.
1768:
1769: -- Standard call to check for call compatibility.
1770: IF FND_API.to_boolean(p_init_msg_list)
1771: THEN
1772: FND_MSG_PUB.initialize;
1773: END IF;
1774: -- Initialize API return status to success
1775: x_return_status := 'S';
1776: -- Initialize message list if p_init_msg_list is set to TRUE.
1815: );
1816: END LOOP;
1817: --End of Validations
1818: -- Standard call to get message count
1819: l_msg_count := FND_MSG_PUB.count_msg;
1820: --ad
1821: IF G_DEBUG='Y' THEN
1822: IF G_DEBUG='Y' THEN
1823: AHL_DEBUG_PUB.debug( ' anand enter ahl_di_doc_index_pvt.Modify Supplier after validate sup '||l_msg_count,'+SUP+');
1843: -- updating same record...02/05/02
1844: IF l_supplier_info.object_version_number <>p_supplier_tbl(i).object_version_number
1845: THEN
1846: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1847: FND_MSG_PUB.ADD;
1848: --AD RAISE FND_API.G_EXC_ERROR;
1849: ELSE --AD
1850: -- The following conditions compare the new record value with old record
1851: -- value, if its different then assign the new value else continue
1940: END LOOP;
1941: END IF;
1942: --{{ADHARIA
1943:
1944: l_msg_count := FND_MSG_PUB.count_msg;
1945: --ad
1946: IF G_DEBUG='Y' THEN
1947: IF G_DEBUG='Y' THEN
1948: AHL_DEBUG_PUB.debug( ' anand enter ahl_di_doc_index_pvt.Modify Supplier after modify sup '||l_msg_count,'+SUP+');
1976: EXCEPTION
1977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1978: ROLLBACK TO modify_supplier;
1979: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1980: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1981: p_count => x_msg_count,
1982: p_data => x_msg_data);
1983:
1984: IF G_DEBUG='Y' THEN
1994:
1995: WHEN FND_API.G_EXC_ERROR THEN
1996: ROLLBACK TO modify_supplier;
1997: X_return_status := FND_API.G_RET_STS_ERROR;
1998: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1999: p_count => x_msg_count,
2000: p_data => X_msg_data);
2001: -- Debug info.
2002: IF G_DEBUG='Y' THEN
2014: ROLLBACK TO modify_supplier;
2015: X_return_status := FND_API.G_RET_STS_ERROR;
2016: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
2017: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2018: FND_MSG_PUB.ADD;
2019: -- Check if API is called in debug mode. If yes, disable debug.
2020: IF G_DEBUG='Y' THEN
2021: AHL_DEBUG_PUB.disable_debug;
2022:
2024:
2025: WHEN OTHERS THEN
2026: ROLLBACK TO modify_supplier;
2027: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2029: THEN
2030: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2031: p_procedure_name => 'MODIFY_SUPPLIER',
2032: p_error_text => SUBSTR(SQLERRM,1,240));
2026: ROLLBACK TO modify_supplier;
2027: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2029: THEN
2030: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2031: p_procedure_name => 'MODIFY_SUPPLIER',
2032: p_error_text => SUBSTR(SQLERRM,1,240));
2033: END IF;
2034: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2030: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2031: p_procedure_name => 'MODIFY_SUPPLIER',
2032: p_error_text => SUBSTR(SQLERRM,1,240));
2033: END IF;
2034: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2035: p_count => x_msg_count,
2036: p_data => X_msg_data);
2037:
2038: -- Debug info.
2136: END IF;
2137: -- Standard call to check for call compatibility.
2138: IF FND_API.to_boolean(p_init_msg_list)
2139: THEN
2140: FND_MSG_PUB.initialize;
2141: END IF;
2142: -- Initialize API return status to success
2143: x_return_status := 'S';
2144: -- Initialize message list if p_init_msg_list is set to TRUE.
2172: l_object_version_number;
2173: IF (get_supplier_rec_info%NOTFOUND)
2174: THEN
2175: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_REC_INVALID');
2176: FND_MSG_PUB.ADD;
2177: END IF;
2178: CLOSE get_supplier_rec_info;
2179: -- Check for version number
2180: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2179: -- Check for version number
2180: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2181: THEN
2182: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2183: FND_MSG_PUB.ADD;
2184: END IF;
2185: --Check for Subscriptions Record
2186: IF p_supplier_rec.supplier_document_id IS NOT NULL
2187: THEN
2205: CLOSE get_supplier_name_po;
2206: END IF;
2207: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2208: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2209: FND_MSG_PUB.ADD;
2210: END IF;
2211: CLOSE get_subc_rec;
2212: END IF;
2213: -- Delete the record from suppliers table
2214: DELETE FROM AHL_SUPPLIER_DOCUMENTS
2215: WHERE ROWID = l_rowid;
2216: --END IF;
2217: -- Standard call to get message count
2218: l_msg_count := FND_MSG_PUB.count_msg;
2219:
2220: IF l_msg_count > 0 THEN
2221: X_msg_count := l_msg_count;
2222: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: EXCEPTION
2242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2243: ROLLBACK TO delete_supplier;
2244: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2245: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2246: p_count => x_msg_count,
2247: p_data => x_msg_data);
2248:
2249: IF G_DEBUG='Y' THEN
2258:
2259: WHEN FND_API.G_EXC_ERROR THEN
2260: ROLLBACK TO delete_supplier;
2261: X_return_status := FND_API.G_RET_STS_ERROR;
2262: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2263: p_count => x_msg_count,
2264: p_data => X_msg_data);
2265: -- Debug info.
2266: IF G_DEBUG='Y' THEN
2275:
2276: WHEN OTHERS THEN
2277: ROLLBACK TO delete_supplier;
2278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2280: THEN
2281: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2282: p_procedure_name => 'DELETE_SUPPLIER',
2283: p_error_text => SUBSTR(SQLERRM,1,240));
2277: ROLLBACK TO delete_supplier;
2278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2280: THEN
2281: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2282: p_procedure_name => 'DELETE_SUPPLIER',
2283: p_error_text => SUBSTR(SQLERRM,1,240));
2284: END IF;
2285: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2281: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2282: p_procedure_name => 'DELETE_SUPPLIER',
2283: p_error_text => SUBSTR(SQLERRM,1,240));
2284: END IF;
2285: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2286: p_count => x_msg_count,
2287: p_data => X_msg_data);
2288:
2289: -- Debug info.
2382: (p_recipient_document_id IS NOT NULL
2383: AND l_recipient_party_id IS NULL))
2384: THEN
2385: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_PTY_ID_NULL');
2386: FND_MSG_PUB.ADD;
2387: END IF;
2388: --This condition checks for Document Id
2389: IF ((p_recipient_document_id IS NULL AND
2390: p_document_id IS NULL)
2392: (p_recipient_document_id IS NOT NULL
2393: AND l_document_id IS NULL))
2394: THEN
2395: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
2396: FND_MSG_PUB.ADD;
2397: END IF;
2398: -- This condition checks for existence of document record in ahl documents table
2399: IF p_document_id IS NOT NULL
2400: THEN
2402: FETCH Check_doc_info INTO l_dummy;
2403: IF Check_doc_info%NOTFOUND
2404: THEN
2405: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
2406: FND_MSG_PUB.ADD;
2407: END IF;
2408: CLOSE Check_doc_info;
2409: END IF;
2410: -- Check for Duplicate Record
2416: OPEN DUP_REC_NAME(l_recipient_party_id);
2417: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2418: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2419: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2420: FND_MSG_PUB.ADD;
2421: CLOSE DUP_REC_NAME;
2422: END IF;
2423: CLOSE dup_rec;
2424: END IF;
2484: END IF;
2485: -- Standard call to check for call compatibility.
2486: IF FND_API.to_boolean(p_init_msg_list)
2487: THEN
2488: FND_MSG_PUB.initialize;
2489: END IF;
2490: -- Initialize API return status to success
2491: x_return_status := 'S';
2492: -- Initialize message list if p_init_msg_list is set to TRUE.
2509: p_object_version_number => p_x_recipient_tbl(i).object_version_number,
2510: p_delete_flag => p_x_recipient_tbl(i).delete_flag);
2511: END LOOP;
2512: -- Standard call to get message count and if count is get message info.
2513: l_msg_count := FND_MSG_PUB.count_msg;
2514:
2515: IF l_msg_count > 0 THEN
2516: X_msg_count := l_msg_count;
2517: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2548: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2549: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2550: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2551: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2552: FND_MSG_PUB.ADD;
2553: CLOSE DUP_REC_NAME;
2554: --ad RAISE FND_API.G_EXC_ERROR;
2555: --ad END IF;
2556: --ad CLOSE dup_rec;
2617: );
2618: p_x_recipient_tbl(i).recipient_document_id := l_recipient_document_id;
2619: -- Standard check to count messages
2620: /*adharia
2621: l_msg_count := FND_MSG_PUB.count_msg;
2622:
2623: IF l_msg_count > 0 THEN
2624: X_msg_count := l_msg_count;
2625: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2631: END IF;
2632: END LOOP;
2633: END IF;
2634: --adharia
2635: l_msg_count := FND_MSG_PUB.count_msg;
2636:
2637: IF l_msg_count > 0 THEN
2638: X_msg_count := l_msg_count;
2639: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2659: EXCEPTION
2660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2661: ROLLBACK TO create_recipient;
2662: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2664: p_count => x_msg_count,
2665: p_data => x_msg_data);
2666:
2667: IF G_DEBUG='Y' THEN
2676:
2677: WHEN FND_API.G_EXC_ERROR THEN
2678: ROLLBACK TO create_recipient;
2679: X_return_status := FND_API.G_RET_STS_ERROR;
2680: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2681: p_count => x_msg_count,
2682: p_data => X_msg_data);
2683: -- Debug info.
2684: IF G_DEBUG='Y' THEN
2693:
2694: WHEN OTHERS THEN
2695: ROLLBACK TO create_recipient;
2696: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2697: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2698: THEN
2699: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2700: p_procedure_name => 'CREATE_RECIPIENT',
2701: p_error_text => SUBSTR(SQLERRM,1,240));
2695: ROLLBACK TO create_recipient;
2696: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2697: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2698: THEN
2699: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2700: p_procedure_name => 'CREATE_RECIPIENT',
2701: p_error_text => SUBSTR(SQLERRM,1,240));
2702: END IF;
2703: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2699: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2700: p_procedure_name => 'CREATE_RECIPIENT',
2701: p_error_text => SUBSTR(SQLERRM,1,240));
2702: END IF;
2703: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2704: p_count => x_msg_count,
2705: p_data => X_msg_data);
2706:
2707: -- Debug info.
2788: END IF;
2789: -- Standard call to check for call compatibility.
2790: IF FND_API.to_boolean(p_init_msg_list)
2791: THEN
2792: FND_MSG_PUB.initialize;
2793: END IF;
2794: -- Initialize API return status to success
2795: x_return_status := 'S';
2796: -- Initialize message list if p_init_msg_list is set to TRUE.
2814: p_delete_flag => p_recipient_tbl(i).delete_flag
2815: );
2816: END LOOP;
2817: --Standard call to count messages
2818: l_msg_count := FND_MSG_PUB.count_msg;
2819:
2820: IF l_msg_count > 0 THEN
2821: X_msg_count := l_msg_count;
2822: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2836:
2837: if (l_recipient_info.object_version_number <>p_recipient_tbl(i).object_version_number)
2838: then
2839: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2840: FND_MSG_PUB.ADD;
2841: --ad RAISE FND_API.G_EXC_ERROR;
2842: --ad end if;
2843: else --ad
2844:
2928: EXCEPTION
2929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2930: ROLLBACK TO modify_recipient;
2931: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2932: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2933: p_count => x_msg_count,
2934: p_data => x_msg_data);
2935: IF G_DEBUG='Y' THEN
2936: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2943:
2944: WHEN FND_API.G_EXC_ERROR THEN
2945: ROLLBACK TO modify_recipient;
2946: X_return_status := FND_API.G_RET_STS_ERROR;
2947: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2948: p_count => x_msg_count,
2949: p_data => X_msg_data);
2950: -- Debug info.
2951: IF G_DEBUG='Y' THEN
2961: WHEN DUP_VAL_ON_INDEX THEN
2962: ROLLBACK TO modify_recipient;
2963: X_return_status := FND_API.G_RET_STS_ERROR;
2964: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2965: FND_MSG_PUB.ADD;
2966: -- Check if API is called in debug mode. If yes, disable debug.
2967: IF G_DEBUG='Y' THEN
2968: AHL_DEBUG_PUB.disable_debug;
2969:
2970: END IF;
2971: WHEN OTHERS THEN
2972: ROLLBACK TO modify_recipient;
2973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2975: THEN
2976: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2977: p_procedure_name => 'MODIFY_RECIPIENT',
2978: p_error_text => SUBSTR(SQLERRM,1,240));
2972: ROLLBACK TO modify_recipient;
2973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2975: THEN
2976: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2977: p_procedure_name => 'MODIFY_RECIPIENT',
2978: p_error_text => SUBSTR(SQLERRM,1,240));
2979: END IF;
2980: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2976: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2977: p_procedure_name => 'MODIFY_RECIPIENT',
2978: p_error_text => SUBSTR(SQLERRM,1,240));
2979: END IF;
2980: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2981: p_count => x_msg_count,
2982: p_data => X_msg_data);
2983:
2984: -- Debug info.
3046: END IF;
3047: -- Standard call to check for call compatibility.
3048: IF FND_API.to_boolean(p_init_msg_list)
3049: THEN
3050: FND_MSG_PUB.initialize;
3051: END IF;
3052: -- Initialize API return status to success
3053: x_return_status := 'S';
3054: -- Initialize message list if p_init_msg_list is set to TRUE.
3069: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
3070: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
3071: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
3072: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
3073: FND_MSG_PUB.ADD;
3074: RAISE FND_API.G_EXC_ERROR;
3075: --Modified pjha 24-Jul-2002 for bug#2473425: End
3076: END IF;
3077: CLOSE get_recipient_rec_info;
3081: -- Check for version number
3082: IF (l_object_version_number <> p_recipient_rec.object_version_number)
3083: THEN
3084: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
3085: FND_MSG_PUB.ADD;
3086: END IF;
3087: */
3088:
3089: -- Delete the record from suppliers table
3109: EXCEPTION
3110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3111: ROLLBACK TO delete_recipient;
3112: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3113: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3114: p_count => x_msg_count,
3115: p_data => x_msg_data);
3116: IF G_DEBUG='Y' THEN
3117: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
3125:
3126: WHEN FND_API.G_EXC_ERROR THEN
3127: ROLLBACK TO delete_recipient;
3128: X_return_status := FND_API.G_RET_STS_ERROR;
3129: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3130: p_count => x_msg_count,
3131: p_data => X_msg_data);
3132: -- Debug info.
3133: IF G_DEBUG='Y' THEN
3142:
3143: WHEN OTHERS THEN
3144: ROLLBACK TO delete_recipient;
3145: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3147: THEN
3148: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3149: p_procedure_name => 'DELETE_RECIPIENT',
3150: p_error_text => SUBSTR(SQLERRM,1,240));
3144: ROLLBACK TO delete_recipient;
3145: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3147: THEN
3148: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3149: p_procedure_name => 'DELETE_RECIPIENT',
3150: p_error_text => SUBSTR(SQLERRM,1,240));
3151: END IF;
3152: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3148: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3149: p_procedure_name => 'DELETE_RECIPIENT',
3150: p_error_text => SUBSTR(SQLERRM,1,240));
3151: END IF;
3152: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3153: p_count => x_msg_count,
3154: p_data => X_msg_data);
3155:
3156: -- Debug info.