[Home] [Help]
395: END IF;
396:
397: -- Initialize message list if p_init_msg_list is set to TRUE
398: IF FND_API.To_Boolean(p_init_msg_list) THEN
399: FND_MSG_PUB.Initialize;
400: END IF;
401:
402: -- Initialize API return status to success
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
488: -- Validate Lines
489: Validate_PO_Lines(l_po_line_tbl, l_po_header.OSP_ORDER_ID);
490: --dbms_output.put_line('Validated Lines Table ');
491: -- Check Error Message stack.
492: x_msg_count := FND_MSG_PUB.count_msg;
493: IF x_msg_count > 0 THEN
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
496: --dbms_output.put_line('no errors : going onto insert into po_headers_interface ');
541: --dbms_output.put_line('Concurrent Program called. Request Id = ' || l_request_id);
542: -- Check if request was submitted without error
543: IF (l_request_id = 0) THEN
544: -- Add Error Message generated by Concurrent Manager to Message List
545: FND_MSG_PUB.ADD;
546: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
548: END IF;
549: RAISE FND_API.G_EXC_ERROR;
566: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
568: END IF;
569: -- Check Error Message stack.
570: x_msg_count := FND_MSG_PUB.count_msg;
571: IF x_msg_count > 0 THEN
572: RAISE FND_API.G_EXC_ERROR;
573: END IF;
574:
585: COMMIT WORK;
586: END IF;
587:
588: -- Standard call to get message count and if count is 1, get message info
589: FND_MSG_PUB.Count_And_Get
590: ( p_count => x_msg_count,
591: p_data => x_msg_data,
592: p_encoded => fnd_api.g_false
593: );
600: EXCEPTION
601: WHEN FND_API.G_EXC_ERROR THEN
602: ROLLBACK TO Create_Purchase_Order_pvt;
603: x_return_status := FND_API.G_RET_STS_ERROR;
604: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
605: p_data => x_msg_data,
606: p_encoded => fnd_api.g_false);
607: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
608:
608:
609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
610: ROLLBACK TO Create_Purchase_Order_pvt;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
613: p_data => x_msg_data,
614: p_encoded => fnd_api.g_false);
615: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
616:
616:
617: WHEN OTHERS THEN
618: ROLLBACK TO Create_Purchase_Order_pvt;
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
621: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
622: p_procedure_name => 'Create_Purchase_Order',
623: p_error_text => SUBSTR(SQLERRM,1,240));
624: END IF;
617: WHEN OTHERS THEN
618: ROLLBACK TO Create_Purchase_Order_pvt;
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
621: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
622: p_procedure_name => 'Create_Purchase_Order',
623: p_error_text => SUBSTR(SQLERRM,1,240));
624: END IF;
625: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
621: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
622: p_procedure_name => 'Create_Purchase_Order',
623: p_error_text => SUBSTR(SQLERRM,1,240));
624: END IF;
625: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
626: p_data => x_msg_data,
627: p_encoded => fnd_api.g_false);
628: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
629:
708: END IF;
709:
710: -- Initialize message list if p_init_msg_list is set to TRUE
711: IF FND_API.To_Boolean(p_init_msg_list) THEN
712: FND_MSG_PUB.Initialize;
713: END IF;
714:
715: -- Initialize API return status to success
716: x_return_status := FND_API.G_RET_STS_SUCCESS;
723: --dbms_output.put_line('Beginning Processing... ');
724: -- Validate OSP Order Id
725: IF (p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
726: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
727: FND_MSG_PUB.ADD;
728: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
729: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
730: END IF;
731: --dbms_output.put_line('OSP Order Id is null');
735: FETCH l_validate_osp_csr INTO l_po_header_id;
736: IF (l_validate_osp_csr%NOTFOUND) THEN
737: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
738: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
739: FND_MSG_PUB.ADD;
740: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
741: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
742: END IF;
743: CLOSE l_validate_osp_csr;
751: -- No need to throw an exception
752: /*
753: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_HDR_ASSCTD');
754: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
755: FND_MSG_PUB.ADD;
756: CLOSE l_validate_osp_csr;
757: RAISE FND_API.G_EXC_ERROR;
758: */
759: ELSE
770: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
771: END IF;
772: --dbms_output.put_line('Completed Processing. Checking for errors ');
773: -- Check Error Message stack.
774: x_msg_count := FND_MSG_PUB.count_msg;
775: IF x_msg_count > 0 THEN
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
785: COMMIT WORK;
786: END IF;
787:
788: -- Standard call to get message count and if count is 1, get message info
789: FND_MSG_PUB.Count_And_Get
790: ( p_count => x_msg_count,
791: p_data => x_msg_data,
792: p_encoded => fnd_api.g_false
793: );
799: EXCEPTION
800: WHEN FND_API.G_EXC_ERROR THEN
801: ROLLBACK TO Associate_OSP_With_PO_pvt;
802: x_return_status := FND_API.G_RET_STS_ERROR;
803: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
804: p_data => x_msg_data,
805: p_encoded => fnd_api.g_false);
806:
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806:
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
808: ROLLBACK TO Associate_OSP_With_PO_pvt;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
811: p_data => x_msg_data,
812: p_encoded => fnd_api.g_false);
813:
814: WHEN OTHERS THEN
813:
814: WHEN OTHERS THEN
815: ROLLBACK TO Associate_OSP_With_PO_pvt;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
818: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
819: p_procedure_name => 'Associate_OSP_With_PO',
820: p_error_text => SUBSTR(SQLERRM,1,240));
821: END IF;
814: WHEN OTHERS THEN
815: ROLLBACK TO Associate_OSP_With_PO_pvt;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
818: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
819: p_procedure_name => 'Associate_OSP_With_PO',
820: p_error_text => SUBSTR(SQLERRM,1,240));
821: END IF;
822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
818: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
819: p_procedure_name => 'Associate_OSP_With_PO',
820: p_error_text => SUBSTR(SQLERRM,1,240));
821: END IF;
822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
823: p_data => x_msg_data,
824: p_encoded => fnd_api.g_false);
825:
826: END Associate_OSP_With_PO;
896: END IF;
897:
898: -- Initialize message list if p_init_msg_list is set to TRUE
899: IF FND_API.To_Boolean(p_init_msg_list) THEN
900: FND_MSG_PUB.Initialize;
901: END IF;
902:
903: -- Initialize API return status to success
904: x_return_status := FND_API.G_RET_STS_SUCCESS;
927: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Associated ' || l_temp_count || ' OSP Orders with POs');
928: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
929: END IF;
930: -- Check Error Message stack.
931: x_msg_count := FND_MSG_PUB.count_msg;
932: IF x_msg_count > 0 THEN
933: RAISE FND_API.G_EXC_ERROR;
934: END IF;
935:
941: COMMIT WORK;
942: END IF;
943:
944: -- Standard call to get message count and if count is 1, get message info
945: FND_MSG_PUB.Count_And_Get
946: ( p_count => x_msg_count,
947: p_data => x_msg_data,
948: p_encoded => fnd_api.g_false
949: );
955: EXCEPTION
956: WHEN FND_API.G_EXC_ERROR THEN
957: ROLLBACK TO Associate_All_OSP_POs_pvt;
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
960: p_data => x_msg_data,
961: p_encoded => fnd_api.g_false);
962:
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
962:
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
964: ROLLBACK TO Associate_All_OSP_POs_pvt;
965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
967: p_data => x_msg_data,
968: p_encoded => fnd_api.g_false);
969:
970: WHEN OTHERS THEN
969:
970: WHEN OTHERS THEN
971: ROLLBACK TO Associate_All_OSP_POs_pvt;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
974: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
975: p_procedure_name => 'Associate_All_OSP_POs',
976: p_error_text => SUBSTR(SQLERRM,1,240));
977: END IF;
970: WHEN OTHERS THEN
971: ROLLBACK TO Associate_All_OSP_POs_pvt;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
974: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
975: p_procedure_name => 'Associate_All_OSP_POs',
976: p_error_text => SUBSTR(SQLERRM,1,240));
977: END IF;
978: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
974: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
975: p_procedure_name => 'Associate_All_OSP_POs',
976: p_error_text => SUBSTR(SQLERRM,1,240));
977: END IF;
978: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
979: p_data => x_msg_data,
980: p_encoded => fnd_api.g_false);
981:
982: END Associate_All_OSP_POs;
1049: END IF;
1050:
1051: -- Initialize message list if p_init_msg_list is set to TRUE
1052: IF FND_API.To_Boolean(p_init_msg_list) THEN
1053: FND_MSG_PUB.Initialize;
1054: END IF;
1055:
1056: -- Initialize API return status to success
1057: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1181: END IF;
1182: -- End changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1183: -- Check Error Message stack.
1184: x_msg_count := FND_MSG_PUB.count_msg;
1185: IF x_msg_count > 0 THEN
1186: RAISE FND_API.G_EXC_ERROR; --Note that commit might already have taken place
1187: END IF;
1188:
1193: -- COMMIT WORK; --Note that commit might already have taken place
1194: -- END IF;
1195:
1196: -- Standard call to get message count and if count is 1, get message info
1197: FND_MSG_PUB.Count_And_Get
1198: ( p_count => x_msg_count,
1199: p_data => x_msg_data,
1200: p_encoded => fnd_api.g_false
1201: );
1209: -- No need to rollback: Individual procedures commit or rollback
1210: -- within themselves.
1211: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1212: x_return_status := FND_API.G_RET_STS_ERROR;
1213: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1214: p_data => x_msg_data,
1215: p_encoded => fnd_api.g_false);
1216: IF (p_concurrent_flag = 'Y') THEN
1217: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1224: -- No need to rollback: Individual procedures commit or rollback
1225: -- within themselves.
1226: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1229: p_data => x_msg_data,
1230: p_encoded => fnd_api.g_false);
1231: IF (p_concurrent_flag = 'Y') THEN
1232: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1239: -- No need to rollback: Individual procedures commit or rollback
1240: -- within themselves.
1241: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1244: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1245: p_procedure_name => 'PO_Synch_All_OSPs',
1246: p_error_text => SUBSTR(SQLERRM,1,240));
1247: END IF;
1240: -- within themselves.
1241: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1244: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1245: p_procedure_name => 'PO_Synch_All_OSPs',
1246: p_error_text => SUBSTR(SQLERRM,1,240));
1247: END IF;
1248: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1244: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1245: p_procedure_name => 'PO_Synch_All_OSPs',
1246: p_error_text => SUBSTR(SQLERRM,1,240));
1247: END IF;
1248: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1249: p_data => x_msg_data,
1250: p_encoded => fnd_api.g_false);
1251: IF (p_concurrent_flag = 'Y') THEN
1252: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1280:
1281: BEGIN
1282: IF (p_po_header_id IS NULL OR p_po_header_id = FND_API.G_MISS_NUM) THEN
1283: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_NULL');
1284: FND_MSG_PUB.ADD;
1285: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1286: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1287: END IF;
1288: RETURN 'N';
1292: IF (l_get_po_cstatus_csr%NOTFOUND) THEN
1293: --Modified by mpothuku on 16-Nov-06 for fixing the Bug 5673483
1294: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_INVALID');
1295: FND_MESSAGE.Set_Token('PO_ID', p_po_header_id);
1296: FND_MSG_PUB.ADD;
1297: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1299: END IF;
1300: --This would mean that the PO is deleted from PO forms and we may need to do a Synch
1402:
1403: -- OSP Order Id
1404: IF (p_po_header_rec.OSP_ORDER_ID IS NULL OR p_po_header_rec.OSP_ORDER_ID = FND_API.G_MISS_NUM) THEN
1405: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
1406: FND_MSG_PUB.ADD;
1407: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1408: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1409: END IF;
1410: ELSE
1412: FETCH l_validate_osp_csr INTO l_dummy;
1413: IF (l_validate_osp_csr%NOTFOUND) THEN
1414: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
1415: FND_MESSAGE.Set_Token('OSP_ID', p_po_header_rec.OSP_ORDER_ID);
1416: FND_MSG_PUB.ADD;
1417: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1418: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1419: END IF;
1420: END IF;
1423:
1424: -- Supplier
1425: IF (p_po_header_rec.VENDOR_ID IS NULL OR p_po_header_rec.VENDOR_ID = FND_API.G_MISS_NUM) THEN
1426: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPPLIER_ID_NULL');
1427: FND_MSG_PUB.ADD;
1428: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1429: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1430: END IF;
1431: ELSE
1433: FETCH l_validate_supplier_csr INTO l_dummy;
1434: IF (l_validate_supplier_csr%NOTFOUND) THEN
1435: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPP_INVALID');
1436: FND_MESSAGE.Set_Token('SUPP_ID', p_po_header_rec.VENDOR_ID);
1437: FND_MSG_PUB.ADD;
1438: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1439: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1440: END IF;
1441: END IF;
1444:
1445: -- Supplier Site
1446: IF (p_po_header_rec.VENDOR_SITE_ID IS NULL OR p_po_header_rec.VENDOR_SITE_ID = FND_API.G_MISS_NUM) THEN
1447: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_ID_NULL');
1448: FND_MSG_PUB.ADD;
1449: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1450: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1451: END IF;
1452: ELSE
1454: FETCH l_validate_supp_site_csr INTO l_dummy;
1455: IF (l_validate_supp_site_csr%NOTFOUND) THEN
1456: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_INVALID');
1457: FND_MESSAGE.Set_Token('SS_ID', p_po_header_rec.VENDOR_SITE_ID);
1458: FND_MSG_PUB.ADD;
1459: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1460: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1461: END IF;
1462: END IF;
1470: FETCH l_validate_vendor_contact_csr INTO l_dummy;
1471: IF (l_validate_vendor_contact_csr%NOTFOUND) THEN
1472: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_VCONTACT_INVALID');
1473: FND_MESSAGE.Set_Token('V_CONTACT_ID', p_po_header_rec.VENDOR_CONTACT_ID);
1474: FND_MSG_PUB.ADD;
1475: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1476: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1477: END IF;
1478: END IF;
1482:
1483: -- Buyer
1484: IF (p_po_header_rec.BUYER_ID IS NULL OR p_po_header_rec.BUYER_ID = FND_API.G_MISS_NUM) THEN
1485: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_ID_NULL');
1486: FND_MSG_PUB.ADD;
1487: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1489: END IF;
1490: ELSE
1492: FETCH l_validate_buyer_csr INTO l_dummy;
1493: IF (l_validate_buyer_csr%NOTFOUND) THEN
1494: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_INVALID');
1495: FND_MESSAGE.Set_Token('BUYER_ID', p_po_header_rec.BUYER_ID);
1496: FND_MSG_PUB.ADD;
1497: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1498: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1499: END IF;
1500: END IF;
1545: l_org_id := MO_GLOBAL.get_current_org_id();
1546:
1547: IF (l_org_id IS NULL) THEN
1548: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
1549: FND_MSG_PUB.ADD;
1550: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1551: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
1552: END IF;
1553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: --dbms_output.put_line('p_po_line_tbl.COUNT = ' || p_po_line_tbl.COUNT);
1557: -- Non zero count
1558: IF (p_po_line_tbl.COUNT = 0) THEN
1559: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NO_PO_LINES');
1560: FND_MSG_PUB.ADD;
1561: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1562: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1563: END IF;
1564: RETURN; -- Cannot do any further validation
1574: FETCH l_validate_item_csr INTO l_dummy;
1575: IF (l_validate_item_csr%NOTFOUND) THEN
1576: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ITEM_INVALID');
1577: FND_MESSAGE.Set_Token('ITEM', p_po_line_tbl(i).ITEM_ID);
1578: FND_MSG_PUB.ADD;
1579: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1580: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1581: END IF;
1582: END IF;
1584: ELSE
1585: -- One-time Item: Description is mandatory
1586: IF (TRIM(p_po_line_tbl(i).ITEM_DESCRIPTION) IS NULL OR p_po_line_tbl(i).ITEM_DESCRIPTION = FND_API.G_MISS_CHAR) THEN
1587: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_IDESC_NULL');
1588: FND_MSG_PUB.ADD;
1589: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1590: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1591: END IF;
1592: END IF;
1592: END IF;
1593: -- One-time Item: UOM is mandatory
1594: IF (TRIM(p_po_line_tbl(i).UOM_CODE) IS NULL OR p_po_line_tbl(i).UOM_CODE = FND_API.G_MISS_CHAR) THEN
1595: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_UOM_CODE_NULL');
1596: FND_MSG_PUB.ADD;
1597: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1599: END IF;
1600: END IF;
1602:
1603: -- Quantity
1604: IF (p_po_line_tbl(i).QUANTITY IS NULL OR p_po_line_tbl(i).QUANTITY = FND_API.G_MISS_NUM) THEN
1605: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_NULL');
1606: FND_MSG_PUB.ADD;
1607: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1609: END IF;
1610: ELSE
1610: ELSE
1611: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1612: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
1613: FND_MESSAGE.Set_Token('QUANTITY', p_po_line_tbl(i).QUANTITY);
1614: FND_MSG_PUB.ADD;
1615: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1616: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1617: END IF;
1618: END IF;
1620:
1621: -- Need By Date
1622: IF (p_po_line_tbl(i).NEED_BY_DATE IS NULL OR p_po_line_tbl(i).NEED_BY_DATE = FND_API.G_MISS_DATE) THEN
1623: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NEED_BY_DATE_NULL');
1624: FND_MSG_PUB.ADD;
1625: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1626: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1627: END IF;
1628: ELSE
1628: ELSE
1629: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1630: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
1631: FND_MESSAGE.Set_Token('NBDATE', p_po_line_tbl(i).NEED_BY_DATE);
1632: FND_MSG_PUB.ADD;
1633: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1634: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1635: END IF;
1636: END IF;
1638:
1639: -- Ship To Organization
1640: IF (p_po_line_tbl(i).SHIP_TO_ORG_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_ORG_ID = FND_API.G_MISS_NUM) THEN
1641: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_ORG_NULL');
1642: FND_MSG_PUB.ADD;
1643: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1644: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1645: END IF;
1646: END IF;
1652: -- Ship To Location
1653: /***
1654: IF (p_po_line_tbl(i).SHIP_TO_LOC_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_LOC_ID = FND_API.G_MISS_NUM) THEN
1655: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_LOC_NULL');
1656: FND_MSG_PUB.ADD;
1657: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1658: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1659: END IF;
1660: END IF;
1661: ***/
1662: -- Line Type
1663: IF (p_po_line_tbl(i).PO_LINE_TYPE_ID IS NULL OR p_po_line_tbl(i).PO_LINE_TYPE_ID = FND_API.G_MISS_NUM) THEN
1664: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_NULL');
1665: FND_MSG_PUB.ADD;
1666: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1668: END IF;
1669: ELSE
1671: FETCH l_validate_line_type_csr INTO l_dummy;
1672: IF (l_validate_line_type_csr%NOTFOUND) THEN
1673: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_INVALID');
1674: FND_MESSAGE.Set_Token('LINE_TYPE_ID', p_po_line_tbl(i).PO_LINE_TYPE_ID);
1675: FND_MSG_PUB.ADD;
1676: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1678: END IF;
1679: END IF;
1767: END IF;
1768: EXCEPTION
1769: WHEN OTHERS THEN
1770: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_CURRENCY_NOT_SET');
1771: FND_MSG_PUB.ADD;
1772: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1773: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1774: END IF;
1775: RAISE;
2391:
2392: WHEN OTHERS THEN
2393: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2397: p_procedure_name => 'Handle_Cancelled_PO_Lines',
2398: p_error_text => SUBSTR(SQLERRM,1,240));
2399: END IF;
2392: WHEN OTHERS THEN
2393: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2397: p_procedure_name => 'Handle_Cancelled_PO_Lines',
2398: p_error_text => SUBSTR(SQLERRM,1,240));
2399: END IF;
2400:
2540:
2541: WHEN OTHERS THEN
2542: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2545: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2546: p_procedure_name => 'Handle_Deleted_PO_Lines',
2547: p_error_text => SUBSTR(SQLERRM,1,240));
2548: END IF;
2541: WHEN OTHERS THEN
2542: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2545: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2546: p_procedure_name => 'Handle_Deleted_PO_Lines',
2547: p_error_text => SUBSTR(SQLERRM,1,240));
2548: END IF;
2549:
2651:
2652: WHEN OTHERS THEN
2653: ROLLBACK TO Handle_Approved_POs_pvt;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2656: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2657: p_procedure_name => 'Handle_Approved_POs',
2658: p_error_text => SUBSTR(SQLERRM,1,240));
2659: END IF;
2652: WHEN OTHERS THEN
2653: ROLLBACK TO Handle_Approved_POs_pvt;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2656: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2657: p_procedure_name => 'Handle_Approved_POs',
2658: p_error_text => SUBSTR(SQLERRM,1,240));
2659: END IF;
2660:
2792:
2793: WHEN OTHERS THEN
2794: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2797: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2798: p_procedure_name => 'Handle_Deleted_PO_Headers',
2799: p_error_text => SUBSTR(SQLERRM,1,240));
2800: END IF;
2793: WHEN OTHERS THEN
2794: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2797: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2798: p_procedure_name => 'Handle_Deleted_PO_Headers',
2799: p_error_text => SUBSTR(SQLERRM,1,240));
2800: END IF;
2801:
2918:
2919: WHEN OTHERS THEN
2920: ROLLBACK TO Handle_Deleted_SOs_pvt;
2921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2923: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2924: p_procedure_name => 'Handle_Deleted_Sales_Orders',
2925: p_error_text => SUBSTR(SQLERRM,1,240));
2926: END IF;
2919: WHEN OTHERS THEN
2920: ROLLBACK TO Handle_Deleted_SOs_pvt;
2921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2923: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2924: p_procedure_name => 'Handle_Deleted_Sales_Orders',
2925: p_error_text => SUBSTR(SQLERRM,1,240));
2926: END IF;
2927:
3031: FETCH l_osp_line_dtls_csr INTO l_osp_line_dtls_rec;
3032: IF (l_osp_line_dtls_csr%NOTFOUND) THEN
3033: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_LINE_ID_INVALID');
3034: FND_MESSAGE.Set_Token('OSP_LINE_ID', p_osp_order_line_id);
3035: FND_MSG_PUB.ADD;
3036: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3037: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3038: END IF;
3039: CLOSE l_osp_line_dtls_csr;
3167: FETCH l_osp_dtls_csr INTO l_osp_dtls_rec;
3168: IF (l_osp_dtls_csr%NOTFOUND) THEN
3169: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
3170: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
3171: FND_MSG_PUB.ADD;
3172: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3173: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3174: END IF;
3175: CLOSE l_osp_dtls_csr;
3415:
3416: CLOSE chk_manual_PO_Numbering;
3417:
3418: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_FIGURE_LENGTH_INVALID'); -- Entered value for Figure exceeded the limit
3419: FND_MSG_PUB.ADD;
3420: RAISE;
3421: END;
3422: END IF;
3423: CLOSE chk_manual_PO_Numbering;