[Home] [Help]
164:
165: -- Standard call to check for call compatibility.
166: IF FND_API.to_boolean(l_init_msg_list)
167: THEN
168: FND_MSG_PUB.initialize;
169: END IF;
170: -- Initialize API return status to success
171: x_return_status := 'S';
172: -- Initialize message list if p_init_msg_list is set to TRUE.
203: THEN
204: l_document_tbl(i).source_party_id := l_source_party_id;
205: ELSE
206: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_ID_NOT_EXISTS');
207: FND_MSG_PUB.ADD;
208: END IF;
209: CLOSE for_party_name;
210: ELSE
211: --Both Party Id and Name are missing
209: CLOSE for_party_name;
210: ELSE
211: --Both Party Id and Name are missing
212: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_PARTY_ID_NULL');
213: FND_MSG_PUB.ADD;
214: END IF;
215: --Check for If ID present
216: ELSIF (p_x_document_tbl(i).source_party_id IS NOT NULL AND
217: p_x_document_tbl(i).source_party_id <> FND_API.G_MISS_NUM)
222: THEN
223: l_document_tbl(i).source_party_id := p_x_document_tbl(i).source_party_id;
224: ELSE
225: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_ID_INVALID');
226: FND_MSG_PUB.ADD;
227: END IF;
228: CLOSE for_party_id;
229: END IF;
230:
250:
251: IF get_operator_name_hz%ROWCOUNT = 0
252: THEN
253: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_CODE_NOT_EXIST');
254: FND_MSG_PUB.ADD;
255: ELSIF get_operator_name_hz%ROWCOUNT > 1
256: THEN
257: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_USE_LOV');
258: FND_MSG_PUB.ADD;
254: FND_MSG_PUB.ADD;
255: ELSIF get_operator_name_hz%ROWCOUNT > 1
256: THEN
257: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_USE_LOV');
258: FND_MSG_PUB.ADD;
259: END IF;
260: CLOSE get_operator_name_hz;
261: END IF;
262:
277:
278: IF nvl(l_return_status, 'X') <> 'S'
279: THEN
280: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PRODTYPE_CODE_NOT_EXIST');
281: FND_MSG_PUB.ADD;
282: END IF;
283:
284: --ID presntes
285: ELSIF p_x_document_tbl(i).product_type_code IS NOT NULL AND
305:
306: IF nvl(l_return_status, 'X') <> 'S'
307: THEN
308: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
309: FND_MSG_PUB.ADD;
310: END IF;
311: END IF;
312: -- Id presents
313: IF p_x_document_tbl(i).doc_type_code IS NOT NULL AND
315: THEN
316: l_document_tbl(i).doc_type_code := p_x_document_tbl(i).doc_type_code;
317: ELSE
318: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
319: FND_MSG_PUB.ADD;
320: END IF;
321:
322: --For Doc Sub Type Code, meaning presents
323: IF p_x_document_tbl(i).doc_sub_type_desc IS NOT NULL AND
334:
335: IF nvl(l_return_status, 'X') <> 'S'
336: THEN
337: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
338: FND_MSG_PUB.ADD;
339: END IF;
340: END IF;
341: --Id presents
342: IF p_x_document_tbl(i).doc_sub_type_code IS NOT NULL AND
376: l_document_tbl(i).delete_flag := p_x_document_tbl(i).delete_flag;
377: l_document_tbl(i).object_version_number := p_x_document_tbl(i).object_version_number;
378:
379: --Standard check to count messages
380: l_msg_count := FND_MSG_PUB.count_msg;
381:
382: IF l_msg_count > 0 THEN
383: X_msg_count := l_msg_count;
384: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
417: l_supplier_tbl(i).supplier_id := l_supplier_id;
418: ELSE
419: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
420: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
421: FND_MSG_PUB.ADD;
422: END IF;
423: CLOSE for_party_name;
424: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('I','S')
425: THEN
430: l_supplier_tbl(i).supplier_id := l_supplier_id;
431: ELSE
432: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
433: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
434: FND_MSG_PUB.ADD;
435: END IF;
436: CLOSE for_vendor_id;
437: END IF;
438: --Id presents
443: ELSE
444: --Both Supplier Id and Name are missing
445: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
446: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
447: FND_MSG_PUB.ADD;
448: END IF;
449: END IF;
450: -- For Preference Code, meaning presents
451: IF p_x_supplier_tbl(i).preference_desc IS NOT NULL AND
462:
463: IF nvl(l_return_status, 'X') <> 'S'
464: THEN
465: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_PREF_TYPE');
466: FND_MSG_PUB.ADD;
467: END IF;
468: END IF;
469: -- Pref Code presents
470: IF p_x_supplier_tbl(i).preference_code IS NOT NULL AND
498: l_supplier_tbl(i).object_version_number := p_x_supplier_tbl(i).object_version_number;
499: --Standard check to count messages
500: --{{adharia
501: /*
502: l_msg_count := FND_MSG_PUB.count_msg;
503:
504: IF l_msg_count > 0 THEN
505: X_msg_count := l_msg_count;
506: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
542: l_recipient_tbl(i).recipient_party_id := l_recipient_id;
543: ELSE
544: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_ID_NOT_EXIST');
545: FND_MESSAGE.SET_TOKEN('RECPNAME',p_x_recipient_tbl(i).recipient_party_number);
546: FND_MSG_PUB.ADD;
547: END IF;
548: CLOSE for_party_name;
549: --ID presents
550: ELSIF (p_x_recipient_tbl(i).recipient_party_id IS NOT NULL) AND
554: ELSE
555: --Both Recipient Id and Name are missing
556: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_ID_NOT_EXIST');
557: FND_MESSAGE.SET_TOKEN('RECPNAME',p_x_recipient_tbl(i).recipient_party_number);
558: FND_MSG_PUB.ADD;
559: END IF;
560: END IF;
561: l_recipient_tbl(i).recipient_document_id := p_x_recipient_tbl(i).recipient_document_id;
562: l_recipient_tbl(i).document_id := p_x_recipient_tbl(i).document_id;
580: l_recipient_tbl(i).object_version_number := p_x_recipient_tbl(i).object_version_number;
581: --Standard check to count messages
582: --{{adharia
583: /*
584: l_msg_count := FND_MSG_PUB.count_msg;
585:
586: IF l_msg_count > 0 THEN
587: X_msg_count := l_msg_count;
588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
623: THEN
624: l_subscription_tbl(i).requested_by_party_id := l_requested_by_party_id;
625: ELSE
626: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NOT_EXISTS');
627: FND_MSG_PUB.ADD;
628: END IF;
629: CLOSE for_party_name;
630:
631: -- Party Id is present
638: THEN
639: l_subscription_tbl(i).requested_by_party_id := l_requested_by_party_id;
640: ELSE
641: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NOT_EXISTS');
642: FND_MSG_PUB.ADD;
643: END IF;
644: CLOSE for_party_id;
645: ELSE
646: --Both Party Id and Name are missing
644: CLOSE for_party_id;
645: ELSE
646: --Both Party Id and Name are missing
647: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NULL');
648: FND_MSG_PUB.ADD;
649: END IF;
650: --For Subscribed from party id
651: -- If subscribed from Party Name is available
652: IF (p_x_subscription_tbl(i).subscribed_frm_pty_name IS NOT NULL) AND
693:
694: IF nvl(l_return_status, 'X') <> 'S'
695: THEN
696: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
697: FND_MSG_PUB.ADD;
698: END IF;
699: END IF;
700: -- If id is present
701: IF p_x_subscription_tbl(i).media_type_code IS NOT NULL AND
721:
722: IF nvl(l_return_status, 'X') <> 'S'
723: THEN
724: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBTYP_CODE_NOT_EXISTS');
725: FND_MSG_PUB.ADD;
726: END IF;
727: END IF;
728: -- Code Presents
729: IF p_x_subscription_tbl(i).subscription_type_code IS NOT NULL AND
749:
750: IF nvl(l_return_status, 'X') <> 'S'
751: THEN
752: FND_MESSAGE.SET_NAME('AHL','AHL_DI_FREQCY_CODE_NOT_EXISTS');
753: FND_MSG_PUB.ADD;
754: END IF;
755: END IF;
756: -- Frequency Code present
757: IF p_x_subscription_tbl(i).frequency_code IS NOT NULL AND
778:
779: IF nvl(l_return_status, 'X') <> 'S'
780: THEN
781: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NOT_EXISTS');
782: FND_MSG_PUB.ADD;
783: END IF;
784: END IF;
785: -- If Status Code is Avialable
786: IF p_x_subscription_tbl(i).status_code IS NOT NULL AND
789: l_subscription_tbl(i).status_code := p_x_subscription_tbl(i).status_code;
790: -- If both are missing
791: ELSE
792: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NULL');
793: FND_MSG_PUB.ADD;
794: END IF;
795:
796: l_subscription_tbl(i).document_id := p_x_subscription_tbl(i).document_id;
797: l_subscription_tbl(i).quantity := p_x_subscription_tbl(i).quantity;
819: l_subscription_tbl(i).source_lang := p_x_subscription_tbl(i).source_lang;
820: l_subscription_tbl(i).language := p_x_subscription_tbl(i).language;
821: l_subscription_tbl(i).comments := p_x_subscription_tbl(i).comments;
822: --Standard check to count messages
823: l_msg_count := FND_MSG_PUB.count_msg;
824: --
825: IF l_msg_count > 0 THEN
826: X_msg_count := l_msg_count;
827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
855: THEN
856: l_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
857: ELSE
858: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
859: FND_MSG_PUB.ADD;
860: END IF;
861: CLOSE for_party_name;
862: --If Party Id is present
863: ELSIF (p_x_doc_rev_tbl(i).approved_by_party_id IS NOT NULL) AND
869: THEN
870: l_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
871: ELSE
872: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
873: FND_MSG_PUB.ADD;
874: END IF;
875: CLOSE for_party_id;
876: ELSE
877: --Both Party Id and Name are missing
893:
894: IF nvl(l_return_status, 'X') <> 'S'
895: THEN
896: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
897: FND_MSG_PUB.ADD;
898: END IF;
899: END IF;
900: -- If Code is present
901: IF (p_x_doc_rev_tbl(i).revision_type_code IS NOT NULL AND
921:
922: IF nvl(l_return_status, 'X') <> 'S'
923: THEN
924: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
925: FND_MSG_PUB.ADD;
926: END IF;
927: END IF;
928: -- If ID presnt
929: IF p_x_doc_rev_tbl(i).media_type_code IS NOT NULL AND
949:
950: IF nvl(l_return_status, 'X') <> 'S'
951: THEN
952: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
953: FND_MSG_PUB.ADD;
954: END IF;
955: END IF;
956: -- If Revision status code presents
957: IF p_x_doc_rev_tbl(i).revision_status_code IS NOT NULL AND
997: l_revision_tbl(i).attribute15 := p_x_doc_rev_tbl(i).attribute15;
998: l_revision_tbl(i).delete_flag := p_x_doc_rev_tbl(i).delete_flag;
999: l_revision_tbl(i).object_version_number := p_x_doc_rev_tbl(i).object_version_number;
1000:
1001: l_msg_count := FND_MSG_PUB.count_msg;
1002:
1003: IF l_msg_count > 0 THEN
1004: X_msg_count := l_msg_count;
1005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1064: X_MSG_DATA => l_msg_data );
1065:
1066: /*
1067: --Standard check to count messages
1068: l_msg_count := FND_MSG_PUB.count_msg;
1069: */
1070: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_PRE');
1071:
1072: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1085: /*---------------------------------------------------------*/
1086:
1087: -- Call the Private API
1088: --{{adharia
1089: l_msg_count := FND_MSG_PUB.count_msg;
1090:
1091: IF l_msg_count > 0 THEN
1092: X_msg_count := l_msg_count;
1093: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1114: x_msg_count => l_msg_count,
1115: x_msg_data => l_msg_data);
1116:
1117: --Standard check to count messages
1118: l_msg_count := FND_MSG_PUB.count_msg;
1119:
1120:
1121: IF l_msg_count > 0 THEN
1122: X_msg_count := l_msg_count;
1232: EXCEPTION
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: ROLLBACK TO create_document;
1235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1238: p_data => x_msg_data);
1239: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1240: AHL_DEBUG_PUB.log_app_messages (
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_document;
1249: X_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => X_msg_data);
1253: -- Debug info.
1254: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1261:
1262: WHEN OTHERS THEN
1263: ROLLBACK TO create_document;
1264: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1266: THEN
1267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PUB',
1268: p_procedure_name => 'CREATE_DOCUMENT',
1269: p_error_text => SUBSTR(SQLERRM,1,240));
1263: ROLLBACK TO create_document;
1264: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1266: THEN
1267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PUB',
1268: p_procedure_name => 'CREATE_DOCUMENT',
1269: p_error_text => SUBSTR(SQLERRM,1,240));
1270: END IF;
1271: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PUB',
1268: p_procedure_name => 'CREATE_DOCUMENT',
1269: p_error_text => SUBSTR(SQLERRM,1,240));
1270: END IF;
1271: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1272: p_count => x_msg_count,
1273: p_data => X_msg_data);
1274:
1275: -- Debug info.
1443: END IF;
1444: -- Standard call to check for call compatibility.
1445: IF FND_API.to_boolean(l_init_msg_list)
1446: THEN
1447: FND_MSG_PUB.initialize;
1448: END IF;
1449: -- Initialize API return status to success
1450: x_return_status := 'S';
1451: -- Initialize message list if p_init_msg_list is set to TRUE.
1494: THEN
1495: l_document_tbl(i).source_party_id := l_source_party_id;
1496: ELSE
1497: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_ID_NOT_EXISTS');
1498: FND_MSG_PUB.ADD;
1499: END IF;
1500: CLOSE for_party_name;
1501: ELSE
1502: --Both Party Id and Name are missing
1500: CLOSE for_party_name;
1501: ELSE
1502: --Both Party Id and Name are missing
1503: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_PARTY_ID_NULL');
1504: FND_MSG_PUB.ADD;
1505: END IF;
1506:
1507: --Check for If ID present
1508: ELSIF (p_x_document_tbl(i).source_party_id IS NOT NULL AND
1519: CLOSE for_party_id;
1520: ELSE
1521: --Both Party Id and Name are missing
1522: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_PARTY_ID_NULL');
1523: FND_MSG_PUB.ADD;
1524: END IF;
1525: --For Operator Code, Meaning presnts
1526: IF p_x_document_tbl(i).operator_name IS NOT NULL AND
1527: p_x_document_tbl(i).operator_name <> FND_API.G_MISS_CHAR
1544:
1545: IF get_operator_name_hz%ROWCOUNT = 0
1546: THEN
1547: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_CODE_NOT_EXIST');
1548: FND_MSG_PUB.ADD;
1549: ELSIF get_operator_name_hz%ROWCOUNT > 1
1550: THEN
1551: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_USE_LOV');
1552: FND_MSG_PUB.ADD;
1548: FND_MSG_PUB.ADD;
1549: ELSIF get_operator_name_hz%ROWCOUNT > 1
1550: THEN
1551: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_USE_LOV');
1552: FND_MSG_PUB.ADD;
1553: END IF;
1554: CLOSE get_operator_name_hz;
1555: END IF;
1556:
1571:
1572: IF nvl(l_return_status, 'X') <> 'S'
1573: THEN
1574: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PRODTYPE_CODE_NOT_EXIST');
1575: FND_MSG_PUB.ADD;
1576: END IF;
1577:
1578: --ID presntes
1579: ELSIF p_x_document_tbl(i).product_type_code IS NOT NULL AND
1599:
1600: IF nvl(l_return_status, 'X') <> 'S'
1601: THEN
1602: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
1603: FND_MSG_PUB.ADD;
1604: END IF;
1605: END IF;
1606: -- Id presents
1607: IF p_x_document_tbl(i).doc_type_code IS NOT NULL AND
1609: THEN
1610: l_document_tbl(i).doc_type_code := p_x_document_tbl(i).doc_type_code;
1611: ELSE
1612: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
1613: FND_MSG_PUB.ADD;
1614: END IF;
1615:
1616: --For Doc Sub Type Code, meaning presents
1617: IF p_x_document_tbl(i).doc_sub_type_desc IS NOT NULL AND
1628:
1629: IF nvl(l_return_status, 'X') <> 'S'
1630: THEN
1631: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
1632: FND_MSG_PUB.ADD;
1633: END IF;
1634: END IF;
1635: --Id presents
1636: IF p_x_document_tbl(i).doc_sub_type_code IS NOT NULL AND
1647: OPEN check_sub_exists(p_x_document_tbl(i).document_id);
1648: FETCH check_sub_exists INTO l_operator_code;
1649: IF check_sub_exists%FOUND THEN
1650: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_AVAIL_FLAG_NO');
1651: FND_MSG_PUB.ADD;
1652: ELSE
1653: p_x_document_tbl(i).subscribe_to_flag := 'N';
1654: END IF;
1655: CLOSE check_sub_exists;
1658: FETCH check_sup_exists INTO l_operator_code;
1659: IF check_sup_exists%FOUND
1660: THEN
1661: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_EXISTS');
1662: FND_MSG_PUB.ADD;
1663: END IF;
1664: CLOSE check_sup_exists;
1665: END IF;
1666: --Added pjha: 08-Jul-2002 for Restricting Subscription Avail to 'Yes' If supplier or subscription
1692: l_document_tbl(i).delete_flag := p_x_document_tbl(i).delete_flag;
1693: l_document_tbl(i).object_version_number := p_x_document_tbl(i).object_version_number;
1694:
1695: --Standard check for count messages
1696: l_msg_count := FND_MSG_PUB.count_msg;
1697: IF l_msg_count > 0 THEN
1698: X_msg_count := l_msg_count;
1699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1700: THEN
1732: l_supplier_tbl(i).supplier_id := l_supplier_id;
1733: ELSE
1734: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
1735: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
1736: FND_MSG_PUB.ADD;
1737: END IF;
1738: CLOSE for_party_name;
1739: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('I','S')
1740: THEN
1745: l_supplier_tbl(i).supplier_id := l_supplier_id;
1746: ELSE
1747: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
1748: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
1749: FND_MSG_PUB.ADD;
1750: END IF;
1751: CLOSE for_vendor_id;
1752: END IF;
1753: --Id presents
1759: IF p_x_supplier_tbl(i).delete_flag <> 'Y' THEN
1760: --Both Supplier Id and Name are missing
1761: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
1762: FND_MESSAGE.SET_TOKEN('SUPNAME',p_x_supplier_tbl(i).supplier_number);
1763: FND_MSG_PUB.ADD;
1764: ELSE
1765: l_supplier_tbl(i).supplier_id := p_x_supplier_tbl(i).supplier_id;
1766: END IF;
1767: END IF;
1781:
1782: IF nvl(l_return_status, 'X') <> 'S'
1783: THEN
1784: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_PREF_TYPE');
1785: FND_MSG_PUB.ADD;
1786: END IF;
1787: END IF;
1788: -- Pref Code presents
1789: IF p_x_supplier_tbl(i).preference_code IS NOT NULL AND
1798: --if a Subscription exists that Subscribes from the particular Supplier, this Supplier cannot be deleted :prithwi
1799: IF p_x_supplier_tbl(i).delete_flag = 'Y' THEN
1800: if p_x_supplier_tbl(i).document_id IS NULL then
1801: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_DOC_ID_NULL');
1802: FND_MSG_PUB.ADD;
1803: end if;
1804: OPEN for_subcr_validate(l_supplier_tbl(i).supplier_id, p_x_supplier_tbl(i).document_id );
1805: FETCH for_subcr_validate INTO l_subscription_id;
1806: IF for_subcr_validate%FOUND
1823: CLOSE for_supplier_name_po;
1824: END IF;
1825:
1826: FND_MESSAGE.SET_TOKEN('SUPP',l_supplier_name);
1827: FND_MSG_PUB.ADD;
1828: END IF;
1829: CLOSE for_subcr_validate;
1830:
1831: END IF;
1851: l_supplier_tbl(i).delete_flag := p_x_supplier_tbl(i).delete_flag;
1852: l_supplier_tbl(i).object_version_number := p_x_supplier_tbl(i).object_version_number;
1853: --Standard check for count messages
1854: /*--{{adharia
1855: l_msg_count := FND_MSG_PUB.count_msg;
1856:
1857: IF l_msg_count > 0 THEN
1858: X_msg_count := l_msg_count;
1859: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1896: l_recipient_tbl(i).recipient_party_id := l_recipient_id;
1897: ELSE
1898: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_ID_NOT_EXIST');
1899: FND_MESSAGE.SET_TOKEN('RECPNAME',p_x_recipient_tbl(i).recipient_party_number);
1900: FND_MSG_PUB.ADD;
1901: END IF;
1902: CLOSE for_party_name;
1903: --ID presents
1904: ELSIF (p_x_recipient_tbl(i).recipient_party_id IS NOT NULL) AND
1934: l_recipient_tbl(i).object_version_number := p_x_recipient_tbl(i).object_version_number;
1935: --Standard check for count messages
1936: /*
1937: --{{adharia
1938: l_msg_count := FND_MSG_PUB.count_msg;
1939:
1940: IF l_msg_count > 0 THEN
1941: X_msg_count := l_msg_count;
1942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2026:
2027:
2028: -- Call the Private API
2029: --{{adharia
2030: l_msg_count := FND_MSG_PUB.count_msg;
2031: IF l_msg_count > 0 THEN
2032: X_msg_count := l_msg_count;
2033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2034: THEN
2055: x_msg_count => l_msg_count,
2056: x_msg_data => l_msg_data
2057: );
2058: --Standard check for count messages
2059: l_msg_count := FND_MSG_PUB.count_msg;
2060:
2061: IF l_msg_count > 0 THEN
2062: X_msg_count := l_msg_count;
2063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2151: EXCEPTION
2152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2153: ROLLBACK TO modify_document;
2154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2156: p_count => x_msg_count,
2157: p_data => x_msg_data);
2158: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
2159: AHL_DEBUG_PUB.log_app_messages (
2166:
2167: WHEN FND_API.G_EXC_ERROR THEN
2168: ROLLBACK TO modify_document;
2169: X_return_status := FND_API.G_RET_STS_ERROR;
2170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2171: p_count => x_msg_count,
2172: p_data => X_msg_data);
2173:
2174: -- Debug info.
2182:
2183: WHEN OTHERS THEN
2184: ROLLBACK TO modify_document;
2185: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2187: THEN
2188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOCUMENTS_PUB',
2189: p_procedure_name => 'MODIFY_DOCUMENT',
2190: p_error_text => SUBSTR(SQLERRM,1,240));
2184: ROLLBACK TO modify_document;
2185: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2187: THEN
2188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOCUMENTS_PUB',
2189: p_procedure_name => 'MODIFY_DOCUMENT',
2190: p_error_text => SUBSTR(SQLERRM,1,240));
2191: END IF;
2192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOCUMENTS_PUB',
2189: p_procedure_name => 'MODIFY_DOCUMENT',
2190: p_error_text => SUBSTR(SQLERRM,1,240));
2191: END IF;
2192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2193: p_count => x_msg_count,
2194: p_data => X_msg_data);
2195: -- Debug info.
2196: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN