[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.
826: END IF;
827: -- Standard call to check for call compatibility.
828: IF FND_API.to_boolean(p_init_msg_list)
829: THEN
830: FND_MSG_PUB.initialize;
831: END IF;
832: -- Initialize API return status to success
833: x_return_status := 'S';
834: -- Initialize message list if p_init_msg_list is set to TRUE.
857: p_object_version_number => p_x_document_tbl(i).object_version_number,
858: p_delete_flag => p_x_document_tbl(i).delete_flag);
859: END LOOP;
860: --Standard check to count messages
861: l_msg_count := FND_MSG_PUB.count_msg;
862:
863: IF l_msg_count > 0 THEN
864: X_msg_count := l_msg_count;
865: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: -- updating same record...02/05/02
879: if (l_document_info.object_version_number <>p_x_document_tbl(i).object_version_number)
880: then
881: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
885: -- The following conditions compare the new record value with old record
886: -- value, if its different then assign the new value else continue
973: x_msg_data => x_msg_data
974: );
975: END IF;
976: --Standard check for message count
977: l_msg_count := FND_MSG_PUB.count_msg;
978:
979: IF l_msg_count > 0 THEN
980: X_msg_count := l_msg_count;
981: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: EXCEPTION
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO modify_document;
1002: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,
1005: p_data => x_msg_data);
1006:
1007: IF G_DEBUG='Y' THEN
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO modify_document;
1021: X_return_status := FND_API.G_RET_STS_ERROR;
1022: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1023: p_count => x_msg_count,
1024: p_data => X_msg_data);
1025: -- Debug info.
1026: IF G_DEBUG='Y' THEN
1036:
1037: WHEN OTHERS THEN
1038: ROLLBACK TO modify_document;
1039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1041: THEN
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1043: p_procedure_name => 'MODIFY_DOCUMENT',
1044: p_error_text => SUBSTR(SQLERRM,1,240));
1038: ROLLBACK TO modify_document;
1039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1041: THEN
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1043: p_procedure_name => 'MODIFY_DOCUMENT',
1044: p_error_text => SUBSTR(SQLERRM,1,240));
1045: END IF;
1046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1043: p_procedure_name => 'MODIFY_DOCUMENT',
1044: p_error_text => SUBSTR(SQLERRM,1,240));
1045: END IF;
1046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1047: p_count => x_msg_count,
1048: p_data => X_msg_data);
1049:
1050: -- Debug info.
1185: (p_supplier_document_id IS NOT NULL
1186: AND l_supplier_id IS NULL))
1187: THEN
1188: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_ID_NULL');
1189: FND_MSG_PUB.ADD;
1190: END IF;
1191: -- This condition checks for Document id Is Null
1192: IF ((p_supplier_document_id IS NULL AND
1193: p_document_id IS NULL)
1195: (p_supplier_document_id IS NOT NULL
1196: AND l_document_id IS NULL))
1197: THEN
1198: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1199: FND_MSG_PUB.ADD;
1200: END IF;
1201: -- This condition checks for existence of preference code in fnd lookups
1202: IF p_preference_code IS NOT NULL
1203: THEN
1205: FETCH get_preference_code INTO l_dummy;
1206: IF get_preference_code%NOTFOUND
1207: THEN
1208: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PREF_CODE_NOT_EXIST');
1209: FND_MSG_PUB.ADD;
1210: END IF;
1211: CLOSE get_preference_code;
1212: END IF;
1213: -- This condition checks for document record in ahl documents table
1217: FETCH Check_doc_info INTO l_dummy;
1218: IF Check_doc_info%NOTFOUND
1219: THEN
1220: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
1221: FND_MSG_PUB.ADD;
1222: END IF;
1223: CLOSE Check_doc_info;
1224: END IF;
1225: --Check for Duplicate Record
1244: CLOSE get_supplier_name_po;
1245: END IF;
1246: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1247: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1248: FND_MSG_PUB.ADD;
1249: END IF;
1250: CLOSE dup_rec;
1251: END IF;
1252: END IF;
1325:
1326: -- Standard call to check for call compatibility.
1327: IF FND_API.to_boolean(p_init_msg_list)
1328: THEN
1329: FND_MSG_PUB.initialize;
1330: END IF;
1331: -- Initialize API return status to success
1332: x_return_status := 'S';
1333: -- Initialize message list if p_init_msg_list is set to TRUE.
1362: p_delete_flag => p_x_supplier_tbl(i).delete_flag
1363: );
1364: END LOOP;
1365: -- Standard call to get message count and if count is get message info.
1366: l_msg_count := FND_MSG_PUB.count_msg;
1367:
1368: IF l_msg_count > 0 THEN
1369: X_msg_count := l_msg_count;
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: CLOSE get_supplier_name_po;
1415: END IF;
1416: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1417: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1418: FND_MSG_PUB.ADD;
1419:
1420: --AD RAISE FND_API.G_EXC_ERROR;
1421: --AD END IF;
1422: --ad CLOSE dup_rec;
1489: CLOSE dup_rec;--ad
1490:
1491: /*
1492: --{{adharia comment
1493: l_msg_count := FND_MSG_PUB.count_msg;
1494: IF l_msg_count > 0 THEN
1495: X_msg_count := l_msg_count;
1496: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1497: RAISE FND_API.G_EXC_ERROR;
1502: END LOOP;
1503: END IF;
1504:
1505: --{{adharia added
1506: l_msg_count := FND_MSG_PUB.count_msg;
1507: IF l_msg_count > 0 THEN
1508: X_msg_count := l_msg_count;
1509: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: RAISE FND_API.G_EXC_ERROR;
1529: EXCEPTION
1530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1531: ROLLBACK TO create_supplier;
1532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1534: p_count => x_msg_count,
1535: p_data => x_msg_data);
1536:
1537: IF G_DEBUG='Y' THEN
1547:
1548: WHEN FND_API.G_EXC_ERROR THEN
1549: ROLLBACK TO create_supplier;
1550: X_return_status := FND_API.G_RET_STS_ERROR;
1551: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1552: p_count => x_msg_count,
1553: p_data => X_msg_data);
1554: -- Debug info.
1555: IF G_DEBUG='Y' THEN
1564:
1565: WHEN OTHERS THEN
1566: ROLLBACK TO create_supplier;
1567: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1569: THEN
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1571: p_procedure_name => 'CREATE_SUPPLIER',
1572: p_error_text => SUBSTR(SQLERRM,1,240));
1566: ROLLBACK TO create_supplier;
1567: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1569: THEN
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1571: p_procedure_name => 'CREATE_SUPPLIER',
1572: p_error_text => SUBSTR(SQLERRM,1,240));
1573: END IF;
1574: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1571: p_procedure_name => 'CREATE_SUPPLIER',
1572: p_error_text => SUBSTR(SQLERRM,1,240));
1573: END IF;
1574: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1575: p_count => x_msg_count,
1576: p_data => X_msg_data);
1577:
1578: -- Debug info.
1682:
1683: -- Standard call to check for call compatibility.
1684: IF FND_API.to_boolean(p_init_msg_list)
1685: THEN
1686: FND_MSG_PUB.initialize;
1687: END IF;
1688: -- Initialize API return status to success
1689: x_return_status := 'S';
1690: -- Initialize message list if p_init_msg_list is set to TRUE.
1729: );
1730: END LOOP;
1731: --End of Validations
1732: -- Standard call to get message count
1733: l_msg_count := FND_MSG_PUB.count_msg;
1734: --ad
1735: IF G_DEBUG='Y' THEN
1736: IF G_DEBUG='Y' THEN
1737: AHL_DEBUG_PUB.debug( ' anand enter ahl_di_doc_index_pvt.Modify Supplier after validate sup '||l_msg_count,'+SUP+');
1757: -- updating same record...02/05/02
1758: IF l_supplier_info.object_version_number <>p_supplier_tbl(i).object_version_number
1759: THEN
1760: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1761: FND_MSG_PUB.ADD;
1762: --AD RAISE FND_API.G_EXC_ERROR;
1763: ELSE --AD
1764: -- The following conditions compare the new record value with old record
1765: -- value, if its different then assign the new value else continue
1854: END LOOP;
1855: END IF;
1856: --{{ADHARIA
1857:
1858: l_msg_count := FND_MSG_PUB.count_msg;
1859: --ad
1860: IF G_DEBUG='Y' THEN
1861: IF G_DEBUG='Y' THEN
1862: AHL_DEBUG_PUB.debug( ' anand enter ahl_di_doc_index_pvt.Modify Supplier after modify sup '||l_msg_count,'+SUP+');
1890: EXCEPTION
1891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1892: ROLLBACK TO modify_supplier;
1893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1896: p_data => x_msg_data);
1897:
1898: IF G_DEBUG='Y' THEN
1908:
1909: WHEN FND_API.G_EXC_ERROR THEN
1910: ROLLBACK TO modify_supplier;
1911: X_return_status := FND_API.G_RET_STS_ERROR;
1912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1913: p_count => x_msg_count,
1914: p_data => X_msg_data);
1915: -- Debug info.
1916: IF G_DEBUG='Y' THEN
1928: ROLLBACK TO modify_supplier;
1929: X_return_status := FND_API.G_RET_STS_ERROR;
1930: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1931: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1932: FND_MSG_PUB.ADD;
1933: -- Check if API is called in debug mode. If yes, disable debug.
1934: IF G_DEBUG='Y' THEN
1935: AHL_DEBUG_PUB.disable_debug;
1936:
1938:
1939: WHEN OTHERS THEN
1940: ROLLBACK TO modify_supplier;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1943: THEN
1944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1945: p_procedure_name => 'MODIFY_SUPPLIER',
1946: p_error_text => SUBSTR(SQLERRM,1,240));
1940: ROLLBACK TO modify_supplier;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1943: THEN
1944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1945: p_procedure_name => 'MODIFY_SUPPLIER',
1946: p_error_text => SUBSTR(SQLERRM,1,240));
1947: END IF;
1948: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1945: p_procedure_name => 'MODIFY_SUPPLIER',
1946: p_error_text => SUBSTR(SQLERRM,1,240));
1947: END IF;
1948: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1949: p_count => x_msg_count,
1950: p_data => X_msg_data);
1951:
1952: -- Debug info.
2050: END IF;
2051: -- Standard call to check for call compatibility.
2052: IF FND_API.to_boolean(p_init_msg_list)
2053: THEN
2054: FND_MSG_PUB.initialize;
2055: END IF;
2056: -- Initialize API return status to success
2057: x_return_status := 'S';
2058: -- Initialize message list if p_init_msg_list is set to TRUE.
2086: l_object_version_number;
2087: IF (get_supplier_rec_info%NOTFOUND)
2088: THEN
2089: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_REC_INVALID');
2090: FND_MSG_PUB.ADD;
2091: END IF;
2092: CLOSE get_supplier_rec_info;
2093: -- Check for version number
2094: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2093: -- Check for version number
2094: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2095: THEN
2096: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2097: FND_MSG_PUB.ADD;
2098: END IF;
2099: --Check for Subscriptions Record
2100: IF p_supplier_rec.supplier_document_id IS NOT NULL
2101: THEN
2119: CLOSE get_supplier_name_po;
2120: END IF;
2121: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2122: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2123: FND_MSG_PUB.ADD;
2124: END IF;
2125: CLOSE get_subc_rec;
2126: END IF;
2127: -- Delete the record from suppliers table
2128: DELETE FROM AHL_SUPPLIER_DOCUMENTS
2129: WHERE ROWID = l_rowid;
2130: --END IF;
2131: -- Standard call to get message count
2132: l_msg_count := FND_MSG_PUB.count_msg;
2133:
2134: IF l_msg_count > 0 THEN
2135: X_msg_count := l_msg_count;
2136: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: EXCEPTION
2156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2157: ROLLBACK TO delete_supplier;
2158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2160: p_count => x_msg_count,
2161: p_data => x_msg_data);
2162:
2163: IF G_DEBUG='Y' THEN
2172:
2173: WHEN FND_API.G_EXC_ERROR THEN
2174: ROLLBACK TO delete_supplier;
2175: X_return_status := FND_API.G_RET_STS_ERROR;
2176: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => X_msg_data);
2179: -- Debug info.
2180: IF G_DEBUG='Y' THEN
2189:
2190: WHEN OTHERS THEN
2191: ROLLBACK TO delete_supplier;
2192: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2194: THEN
2195: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2196: p_procedure_name => 'DELETE_SUPPLIER',
2197: p_error_text => SUBSTR(SQLERRM,1,240));
2191: ROLLBACK TO delete_supplier;
2192: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2194: THEN
2195: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2196: p_procedure_name => 'DELETE_SUPPLIER',
2197: p_error_text => SUBSTR(SQLERRM,1,240));
2198: END IF;
2199: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2195: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2196: p_procedure_name => 'DELETE_SUPPLIER',
2197: p_error_text => SUBSTR(SQLERRM,1,240));
2198: END IF;
2199: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2200: p_count => x_msg_count,
2201: p_data => X_msg_data);
2202:
2203: -- Debug info.
2296: (p_recipient_document_id IS NOT NULL
2297: AND l_recipient_party_id IS NULL))
2298: THEN
2299: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_PTY_ID_NULL');
2300: FND_MSG_PUB.ADD;
2301: END IF;
2302: --This condition checks for Document Id
2303: IF ((p_recipient_document_id IS NULL AND
2304: p_document_id IS NULL)
2306: (p_recipient_document_id IS NOT NULL
2307: AND l_document_id IS NULL))
2308: THEN
2309: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
2310: FND_MSG_PUB.ADD;
2311: END IF;
2312: -- This condition checks for existence of document record in ahl documents table
2313: IF p_document_id IS NOT NULL
2314: THEN
2316: FETCH Check_doc_info INTO l_dummy;
2317: IF Check_doc_info%NOTFOUND
2318: THEN
2319: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
2320: FND_MSG_PUB.ADD;
2321: END IF;
2322: CLOSE Check_doc_info;
2323: END IF;
2324: -- Check for Duplicate Record
2330: OPEN DUP_REC_NAME(l_recipient_party_id);
2331: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2333: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2334: FND_MSG_PUB.ADD;
2335: CLOSE DUP_REC_NAME;
2336: END IF;
2337: CLOSE dup_rec;
2338: END IF;
2398: END IF;
2399: -- Standard call to check for call compatibility.
2400: IF FND_API.to_boolean(p_init_msg_list)
2401: THEN
2402: FND_MSG_PUB.initialize;
2403: END IF;
2404: -- Initialize API return status to success
2405: x_return_status := 'S';
2406: -- Initialize message list if p_init_msg_list is set to TRUE.
2423: p_object_version_number => p_x_recipient_tbl(i).object_version_number,
2424: p_delete_flag => p_x_recipient_tbl(i).delete_flag);
2425: END LOOP;
2426: -- Standard call to get message count and if count is get message info.
2427: l_msg_count := FND_MSG_PUB.count_msg;
2428:
2429: IF l_msg_count > 0 THEN
2430: X_msg_count := l_msg_count;
2431: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2463: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2464: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2465: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2466: FND_MSG_PUB.ADD;
2467: CLOSE DUP_REC_NAME;
2468: --ad RAISE FND_API.G_EXC_ERROR;
2469: --ad END IF;
2470: --ad CLOSE dup_rec;
2531: );
2532: p_x_recipient_tbl(i).recipient_document_id := l_recipient_document_id;
2533: -- Standard check to count messages
2534: /*adharia
2535: l_msg_count := FND_MSG_PUB.count_msg;
2536:
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2545: END IF;
2546: END LOOP;
2547: END IF;
2548: --adharia
2549: l_msg_count := FND_MSG_PUB.count_msg;
2550:
2551: IF l_msg_count > 0 THEN
2552: X_msg_count := l_msg_count;
2553: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: EXCEPTION
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK TO create_recipient;
2576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2578: p_count => x_msg_count,
2579: p_data => x_msg_data);
2580:
2581: IF G_DEBUG='Y' THEN
2590:
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: ROLLBACK TO create_recipient;
2593: X_return_status := FND_API.G_RET_STS_ERROR;
2594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,
2596: p_data => X_msg_data);
2597: -- Debug info.
2598: IF G_DEBUG='Y' THEN
2607:
2608: WHEN OTHERS THEN
2609: ROLLBACK TO create_recipient;
2610: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2612: THEN
2613: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2614: p_procedure_name => 'CREATE_RECIPIENT',
2615: p_error_text => SUBSTR(SQLERRM,1,240));
2609: ROLLBACK TO create_recipient;
2610: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2612: THEN
2613: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2614: p_procedure_name => 'CREATE_RECIPIENT',
2615: p_error_text => SUBSTR(SQLERRM,1,240));
2616: END IF;
2617: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2613: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2614: p_procedure_name => 'CREATE_RECIPIENT',
2615: p_error_text => SUBSTR(SQLERRM,1,240));
2616: END IF;
2617: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2618: p_count => x_msg_count,
2619: p_data => X_msg_data);
2620:
2621: -- Debug info.
2702: END IF;
2703: -- Standard call to check for call compatibility.
2704: IF FND_API.to_boolean(p_init_msg_list)
2705: THEN
2706: FND_MSG_PUB.initialize;
2707: END IF;
2708: -- Initialize API return status to success
2709: x_return_status := 'S';
2710: -- Initialize message list if p_init_msg_list is set to TRUE.
2728: p_delete_flag => p_recipient_tbl(i).delete_flag
2729: );
2730: END LOOP;
2731: --Standard call to count messages
2732: l_msg_count := FND_MSG_PUB.count_msg;
2733:
2734: IF l_msg_count > 0 THEN
2735: X_msg_count := l_msg_count;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2750:
2751: if (l_recipient_info.object_version_number <>p_recipient_tbl(i).object_version_number)
2752: then
2753: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2754: FND_MSG_PUB.ADD;
2755: --ad RAISE FND_API.G_EXC_ERROR;
2756: --ad end if;
2757: else --ad
2758:
2842: EXCEPTION
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: ROLLBACK TO modify_recipient;
2845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2847: p_count => x_msg_count,
2848: p_data => x_msg_data);
2849: IF G_DEBUG='Y' THEN
2850: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2857:
2858: WHEN FND_API.G_EXC_ERROR THEN
2859: ROLLBACK TO modify_recipient;
2860: X_return_status := FND_API.G_RET_STS_ERROR;
2861: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2862: p_count => x_msg_count,
2863: p_data => X_msg_data);
2864: -- Debug info.
2865: IF G_DEBUG='Y' THEN
2875: WHEN DUP_VAL_ON_INDEX THEN
2876: ROLLBACK TO modify_recipient;
2877: X_return_status := FND_API.G_RET_STS_ERROR;
2878: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2879: FND_MSG_PUB.ADD;
2880: -- Check if API is called in debug mode. If yes, disable debug.
2881: IF G_DEBUG='Y' THEN
2882: AHL_DEBUG_PUB.disable_debug;
2883:
2884: END IF;
2885: WHEN OTHERS THEN
2886: ROLLBACK TO modify_recipient;
2887: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2889: THEN
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2891: p_procedure_name => 'MODIFY_RECIPIENT',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2886: ROLLBACK TO modify_recipient;
2887: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2889: THEN
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2891: p_procedure_name => 'MODIFY_RECIPIENT',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2893: END IF;
2894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2891: p_procedure_name => 'MODIFY_RECIPIENT',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2893: END IF;
2894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2895: p_count => x_msg_count,
2896: p_data => X_msg_data);
2897:
2898: -- Debug info.
2960: END IF;
2961: -- Standard call to check for call compatibility.
2962: IF FND_API.to_boolean(p_init_msg_list)
2963: THEN
2964: FND_MSG_PUB.initialize;
2965: END IF;
2966: -- Initialize API return status to success
2967: x_return_status := 'S';
2968: -- Initialize message list if p_init_msg_list is set to TRUE.
2983: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
2984: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
2985: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
2986: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
2987: FND_MSG_PUB.ADD;
2988: RAISE FND_API.G_EXC_ERROR;
2989: --Modified pjha 24-Jul-2002 for bug#2473425: End
2990: END IF;
2991: CLOSE get_recipient_rec_info;
2995: -- Check for version number
2996: IF (l_object_version_number <> p_recipient_rec.object_version_number)
2997: THEN
2998: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2999: FND_MSG_PUB.ADD;
3000: END IF;
3001: */
3002:
3003: -- Delete the record from suppliers table
3023: EXCEPTION
3024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3025: ROLLBACK TO delete_recipient;
3026: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3027: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3028: p_count => x_msg_count,
3029: p_data => x_msg_data);
3030: IF G_DEBUG='Y' THEN
3031: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
3039:
3040: WHEN FND_API.G_EXC_ERROR THEN
3041: ROLLBACK TO delete_recipient;
3042: X_return_status := FND_API.G_RET_STS_ERROR;
3043: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3044: p_count => x_msg_count,
3045: p_data => X_msg_data);
3046: -- Debug info.
3047: IF G_DEBUG='Y' THEN
3056:
3057: WHEN OTHERS THEN
3058: ROLLBACK TO delete_recipient;
3059: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3061: THEN
3062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3063: p_procedure_name => 'DELETE_RECIPIENT',
3064: p_error_text => SUBSTR(SQLERRM,1,240));
3058: ROLLBACK TO delete_recipient;
3059: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3061: THEN
3062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3063: p_procedure_name => 'DELETE_RECIPIENT',
3064: p_error_text => SUBSTR(SQLERRM,1,240));
3065: END IF;
3066: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3063: p_procedure_name => 'DELETE_RECIPIENT',
3064: p_error_text => SUBSTR(SQLERRM,1,240));
3065: END IF;
3066: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3067: p_count => x_msg_count,
3068: p_data => X_msg_data);
3069:
3070: -- Debug info.