[Home] [Help]
387: END IF;
388:
389: -- Initialize message list if p_init_msg_list is set to TRUE
390: IF FND_API.To_Boolean(p_init_msg_list) THEN
391: FND_MSG_PUB.Initialize;
392: END IF;
393:
394: -- Initialize API return status to success
395: x_return_status := FND_API.G_RET_STS_SUCCESS;
480: -- Validate Lines
481: Validate_PO_Lines(l_po_line_tbl, l_po_header.OSP_ORDER_ID);
482: --dbms_output.put_line('Validated Lines Table ');
483: -- Check Error Message stack.
484: x_msg_count := FND_MSG_PUB.count_msg;
485: IF x_msg_count > 0 THEN
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488: --dbms_output.put_line('no errors : going onto insert into po_headers_interface ');
533: --dbms_output.put_line('Concurrent Program called. Request Id = ' || l_request_id);
534: -- Check if request was submitted without error
535: IF (l_request_id = 0) THEN
536: -- Add Error Message generated by Concurrent Manager to Message List
537: FND_MSG_PUB.ADD;
538: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
540: END IF;
541: RAISE FND_API.G_EXC_ERROR;
558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
560: END IF;
561: -- Check Error Message stack.
562: x_msg_count := FND_MSG_PUB.count_msg;
563: IF x_msg_count > 0 THEN
564: RAISE FND_API.G_EXC_ERROR;
565: END IF;
566:
577: COMMIT WORK;
578: END IF;
579:
580: -- Standard call to get message count and if count is 1, get message info
581: FND_MSG_PUB.Count_And_Get
582: ( p_count => x_msg_count,
583: p_data => x_msg_data,
584: p_encoded => fnd_api.g_false
585: );
592: EXCEPTION
593: WHEN FND_API.G_EXC_ERROR THEN
594: ROLLBACK TO Create_Purchase_Order_pvt;
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
597: p_data => x_msg_data,
598: p_encoded => fnd_api.g_false);
599: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
600:
600:
601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
602: ROLLBACK TO Create_Purchase_Order_pvt;
603: x_return_status := FND_API.G_RET_STS_UNEXP_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 OTHERS THEN
610: ROLLBACK TO Create_Purchase_Order_pvt;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
614: p_procedure_name => 'Create_Purchase_Order',
615: p_error_text => SUBSTR(SQLERRM,1,240));
616: END IF;
609: WHEN OTHERS THEN
610: ROLLBACK TO Create_Purchase_Order_pvt;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
614: p_procedure_name => 'Create_Purchase_Order',
615: p_error_text => SUBSTR(SQLERRM,1,240));
616: END IF;
617: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
613: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
614: p_procedure_name => 'Create_Purchase_Order',
615: p_error_text => SUBSTR(SQLERRM,1,240));
616: END IF;
617: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
618: p_data => x_msg_data,
619: p_encoded => fnd_api.g_false);
620: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
621:
700: END IF;
701:
702: -- Initialize message list if p_init_msg_list is set to TRUE
703: IF FND_API.To_Boolean(p_init_msg_list) THEN
704: FND_MSG_PUB.Initialize;
705: END IF;
706:
707: -- Initialize API return status to success
708: x_return_status := FND_API.G_RET_STS_SUCCESS;
715: --dbms_output.put_line('Beginning Processing... ');
716: -- Validate OSP Order Id
717: IF (p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
718: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
719: FND_MSG_PUB.ADD;
720: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
722: END IF;
723: --dbms_output.put_line('OSP Order Id is null');
727: FETCH l_validate_osp_csr INTO l_po_header_id;
728: IF (l_validate_osp_csr%NOTFOUND) THEN
729: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
730: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
731: FND_MSG_PUB.ADD;
732: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
734: END IF;
735: CLOSE l_validate_osp_csr;
743: -- No need to throw an exception
744: /*
745: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_HDR_ASSCTD');
746: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
747: FND_MSG_PUB.ADD;
748: CLOSE l_validate_osp_csr;
749: RAISE FND_API.G_EXC_ERROR;
750: */
751: ELSE
762: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
763: END IF;
764: --dbms_output.put_line('Completed Processing. Checking for errors ');
765: -- Check Error Message stack.
766: x_msg_count := FND_MSG_PUB.count_msg;
767: IF x_msg_count > 0 THEN
768: RAISE FND_API.G_EXC_ERROR;
769: END IF;
770:
777: COMMIT WORK;
778: END IF;
779:
780: -- Standard call to get message count and if count is 1, get message info
781: FND_MSG_PUB.Count_And_Get
782: ( p_count => x_msg_count,
783: p_data => x_msg_data,
784: p_encoded => fnd_api.g_false
785: );
791: EXCEPTION
792: WHEN FND_API.G_EXC_ERROR THEN
793: ROLLBACK TO Associate_OSP_With_PO_pvt;
794: x_return_status := FND_API.G_RET_STS_ERROR;
795: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
796: p_data => x_msg_data,
797: p_encoded => fnd_api.g_false);
798:
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798:
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO Associate_OSP_With_PO_pvt;
801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
803: p_data => x_msg_data,
804: p_encoded => fnd_api.g_false);
805:
806: WHEN OTHERS THEN
805:
806: WHEN OTHERS THEN
807: ROLLBACK TO Associate_OSP_With_PO_pvt;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
810: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
811: p_procedure_name => 'Associate_OSP_With_PO',
812: p_error_text => SUBSTR(SQLERRM,1,240));
813: END IF;
806: WHEN OTHERS THEN
807: ROLLBACK TO Associate_OSP_With_PO_pvt;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
810: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
811: p_procedure_name => 'Associate_OSP_With_PO',
812: p_error_text => SUBSTR(SQLERRM,1,240));
813: END IF;
814: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
810: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
811: p_procedure_name => 'Associate_OSP_With_PO',
812: p_error_text => SUBSTR(SQLERRM,1,240));
813: END IF;
814: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
815: p_data => x_msg_data,
816: p_encoded => fnd_api.g_false);
817:
818: END Associate_OSP_With_PO;
888: END IF;
889:
890: -- Initialize message list if p_init_msg_list is set to TRUE
891: IF FND_API.To_Boolean(p_init_msg_list) THEN
892: FND_MSG_PUB.Initialize;
893: END IF;
894:
895: -- Initialize API return status to success
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Associated ' || l_temp_count || ' OSP Orders with POs');
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
921: END IF;
922: -- Check Error Message stack.
923: x_msg_count := FND_MSG_PUB.count_msg;
924: IF x_msg_count > 0 THEN
925: RAISE FND_API.G_EXC_ERROR;
926: END IF;
927:
933: COMMIT WORK;
934: END IF;
935:
936: -- Standard call to get message count and if count is 1, get message info
937: FND_MSG_PUB.Count_And_Get
938: ( p_count => x_msg_count,
939: p_data => x_msg_data,
940: p_encoded => fnd_api.g_false
941: );
947: EXCEPTION
948: WHEN FND_API.G_EXC_ERROR THEN
949: ROLLBACK TO Associate_All_OSP_POs_pvt;
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
952: p_data => x_msg_data,
953: p_encoded => fnd_api.g_false);
954:
955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954:
955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
956: ROLLBACK TO Associate_All_OSP_POs_pvt;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
958: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
959: p_data => x_msg_data,
960: p_encoded => fnd_api.g_false);
961:
962: WHEN OTHERS THEN
961:
962: WHEN OTHERS THEN
963: ROLLBACK TO Associate_All_OSP_POs_pvt;
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
966: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
967: p_procedure_name => 'Associate_All_OSP_POs',
968: p_error_text => SUBSTR(SQLERRM,1,240));
969: END IF;
962: WHEN OTHERS THEN
963: ROLLBACK TO Associate_All_OSP_POs_pvt;
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
966: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
967: p_procedure_name => 'Associate_All_OSP_POs',
968: p_error_text => SUBSTR(SQLERRM,1,240));
969: END IF;
970: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
966: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
967: p_procedure_name => 'Associate_All_OSP_POs',
968: p_error_text => SUBSTR(SQLERRM,1,240));
969: END IF;
970: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
971: p_data => x_msg_data,
972: p_encoded => fnd_api.g_false);
973:
974: END Associate_All_OSP_POs;
1041: END IF;
1042:
1043: -- Initialize message list if p_init_msg_list is set to TRUE
1044: IF FND_API.To_Boolean(p_init_msg_list) THEN
1045: FND_MSG_PUB.Initialize;
1046: END IF;
1047:
1048: -- Initialize API return status to success
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1172: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1173: END IF;
1174: -- End changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1175: -- Check Error Message stack.
1176: x_msg_count := FND_MSG_PUB.count_msg;
1177: IF x_msg_count > 0 THEN
1178: RAISE FND_API.G_EXC_ERROR; --Note that commit might already have taken place
1179: END IF;
1180:
1185: -- COMMIT WORK; --Note that commit might already have taken place
1186: -- END IF;
1187:
1188: -- Standard call to get message count and if count is 1, get message info
1189: FND_MSG_PUB.Count_And_Get
1190: ( p_count => x_msg_count,
1191: p_data => x_msg_data,
1192: p_encoded => fnd_api.g_false
1193: );
1201: -- No need to rollback: Individual procedures commit or rollback
1202: -- within themselves.
1203: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1206: p_data => x_msg_data,
1207: p_encoded => fnd_api.g_false);
1208: IF (p_concurrent_flag = 'Y') THEN
1209: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1216: -- No need to rollback: Individual procedures commit or rollback
1217: -- within themselves.
1218: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1221: p_data => x_msg_data,
1222: p_encoded => fnd_api.g_false);
1223: IF (p_concurrent_flag = 'Y') THEN
1224: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1231: -- No need to rollback: Individual procedures commit or rollback
1232: -- within themselves.
1233: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1236: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1237: p_procedure_name => 'PO_Synch_All_OSPs',
1238: p_error_text => SUBSTR(SQLERRM,1,240));
1239: END IF;
1232: -- within themselves.
1233: -- ROLLBACK TO PO_Synch_All_OSPs_pvt; --Note that commit might already have taken place
1234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1236: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1237: p_procedure_name => 'PO_Synch_All_OSPs',
1238: p_error_text => SUBSTR(SQLERRM,1,240));
1239: END IF;
1240: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1236: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1237: p_procedure_name => 'PO_Synch_All_OSPs',
1238: p_error_text => SUBSTR(SQLERRM,1,240));
1239: END IF;
1240: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1241: p_data => x_msg_data,
1242: p_encoded => fnd_api.g_false);
1243: IF (p_concurrent_flag = 'Y') THEN
1244: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1272:
1273: BEGIN
1274: IF (p_po_header_id IS NULL OR p_po_header_id = FND_API.G_MISS_NUM) THEN
1275: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_NULL');
1276: FND_MSG_PUB.ADD;
1277: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1278: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1279: END IF;
1280: RETURN 'N';
1284: IF (l_get_po_cstatus_csr%NOTFOUND) THEN
1285: --Modified by mpothuku on 16-Nov-06 for fixing the Bug 5673483
1286: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_INVALID');
1287: FND_MESSAGE.Set_Token('PO_ID', p_po_header_id);
1288: FND_MSG_PUB.ADD;
1289: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1291: END IF;
1292: --This would mean that the PO is deleted from PO forms and we may need to do a Synch
1394:
1395: -- OSP Order Id
1396: IF (p_po_header_rec.OSP_ORDER_ID IS NULL OR p_po_header_rec.OSP_ORDER_ID = FND_API.G_MISS_NUM) THEN
1397: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
1398: FND_MSG_PUB.ADD;
1399: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1401: END IF;
1402: ELSE
1404: FETCH l_validate_osp_csr INTO l_dummy;
1405: IF (l_validate_osp_csr%NOTFOUND) THEN
1406: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
1407: FND_MESSAGE.Set_Token('OSP_ID', p_po_header_rec.OSP_ORDER_ID);
1408: FND_MSG_PUB.ADD;
1409: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1411: END IF;
1412: END IF;
1415:
1416: -- Supplier
1417: IF (p_po_header_rec.VENDOR_ID IS NULL OR p_po_header_rec.VENDOR_ID = FND_API.G_MISS_NUM) THEN
1418: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPPLIER_ID_NULL');
1419: FND_MSG_PUB.ADD;
1420: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1422: END IF;
1423: ELSE
1425: FETCH l_validate_supplier_csr INTO l_dummy;
1426: IF (l_validate_supplier_csr%NOTFOUND) THEN
1427: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPP_INVALID');
1428: FND_MESSAGE.Set_Token('SUPP_ID', p_po_header_rec.VENDOR_ID);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1432: END IF;
1433: END IF;
1436:
1437: -- Supplier Site
1438: IF (p_po_header_rec.VENDOR_SITE_ID IS NULL OR p_po_header_rec.VENDOR_SITE_ID = FND_API.G_MISS_NUM) THEN
1439: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_ID_NULL');
1440: FND_MSG_PUB.ADD;
1441: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1443: END IF;
1444: ELSE
1446: FETCH l_validate_supp_site_csr INTO l_dummy;
1447: IF (l_validate_supp_site_csr%NOTFOUND) THEN
1448: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_INVALID');
1449: FND_MESSAGE.Set_Token('SS_ID', p_po_header_rec.VENDOR_SITE_ID);
1450: FND_MSG_PUB.ADD;
1451: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1453: END IF;
1454: END IF;
1462: FETCH l_validate_vendor_contact_csr INTO l_dummy;
1463: IF (l_validate_vendor_contact_csr%NOTFOUND) THEN
1464: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_VCONTACT_INVALID');
1465: FND_MESSAGE.Set_Token('V_CONTACT_ID', p_po_header_rec.VENDOR_CONTACT_ID);
1466: FND_MSG_PUB.ADD;
1467: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1468: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1469: END IF;
1470: END IF;
1474:
1475: -- Buyer
1476: IF (p_po_header_rec.BUYER_ID IS NULL OR p_po_header_rec.BUYER_ID = FND_API.G_MISS_NUM) THEN
1477: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_ID_NULL');
1478: FND_MSG_PUB.ADD;
1479: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1480: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1481: END IF;
1482: ELSE
1484: FETCH l_validate_buyer_csr INTO l_dummy;
1485: IF (l_validate_buyer_csr%NOTFOUND) THEN
1486: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_INVALID');
1487: FND_MESSAGE.Set_Token('BUYER_ID', p_po_header_rec.BUYER_ID);
1488: FND_MSG_PUB.ADD;
1489: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1490: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1491: END IF;
1492: END IF;
1537: l_org_id := MO_GLOBAL.get_current_org_id();
1538:
1539: IF (l_org_id IS NULL) THEN
1540: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
1541: FND_MSG_PUB.ADD;
1542: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1543: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
1544: END IF;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1548: --dbms_output.put_line('p_po_line_tbl.COUNT = ' || p_po_line_tbl.COUNT);
1549: -- Non zero count
1550: IF (p_po_line_tbl.COUNT = 0) THEN
1551: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NO_PO_LINES');
1552: FND_MSG_PUB.ADD;
1553: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1555: END IF;
1556: RETURN; -- Cannot do any further validation
1566: FETCH l_validate_item_csr INTO l_dummy;
1567: IF (l_validate_item_csr%NOTFOUND) THEN
1568: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ITEM_INVALID');
1569: FND_MESSAGE.Set_Token('ITEM', p_po_line_tbl(i).ITEM_ID);
1570: FND_MSG_PUB.ADD;
1571: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1572: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1573: END IF;
1574: END IF;
1576: ELSE
1577: -- One-time Item: Description is mandatory
1578: 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
1579: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_IDESC_NULL');
1580: FND_MSG_PUB.ADD;
1581: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1583: END IF;
1584: END IF;
1584: END IF;
1585: -- One-time Item: UOM is mandatory
1586: 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
1587: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_UOM_CODE_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;
1594:
1595: -- Quantity
1596: IF (p_po_line_tbl(i).QUANTITY IS NULL OR p_po_line_tbl(i).QUANTITY = FND_API.G_MISS_NUM) THEN
1597: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_NULL');
1598: FND_MSG_PUB.ADD;
1599: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1601: END IF;
1602: ELSE
1602: ELSE
1603: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1604: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
1605: FND_MESSAGE.Set_Token('QUANTITY', p_po_line_tbl(i).QUANTITY);
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: END IF;
1612:
1613: -- Need By Date
1614: 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
1615: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NEED_BY_DATE_NULL');
1616: FND_MSG_PUB.ADD;
1617: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1619: END IF;
1620: ELSE
1620: ELSE
1621: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1622: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
1623: FND_MESSAGE.Set_Token('NBDATE', p_po_line_tbl(i).NEED_BY_DATE);
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: END IF;
1630:
1631: -- Ship To Organization
1632: 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
1633: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_ORG_NULL');
1634: FND_MSG_PUB.ADD;
1635: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1637: END IF;
1638: END IF;
1644: -- Ship To Location
1645: /***
1646: 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
1647: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_LOC_NULL');
1648: FND_MSG_PUB.ADD;
1649: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1650: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1651: END IF;
1652: END IF;
1653: ***/
1654: -- Line Type
1655: 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
1656: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_NULL');
1657: FND_MSG_PUB.ADD;
1658: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1660: END IF;
1661: ELSE
1663: FETCH l_validate_line_type_csr INTO l_dummy;
1664: IF (l_validate_line_type_csr%NOTFOUND) THEN
1665: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_INVALID');
1666: FND_MESSAGE.Set_Token('LINE_TYPE_ID', p_po_line_tbl(i).PO_LINE_TYPE_ID);
1667: FND_MSG_PUB.ADD;
1668: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1670: END IF;
1671: END IF;
1758: END IF;
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_CURRENCY_NOT_SET');
1762: FND_MSG_PUB.ADD;
1763: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1765: END IF;
1766: RAISE;
2358:
2359: WHEN OTHERS THEN
2360: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2363: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2364: p_procedure_name => 'Handle_Cancelled_PO_Lines',
2365: p_error_text => SUBSTR(SQLERRM,1,240));
2366: END IF;
2359: WHEN OTHERS THEN
2360: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2363: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2364: p_procedure_name => 'Handle_Cancelled_PO_Lines',
2365: p_error_text => SUBSTR(SQLERRM,1,240));
2366: END IF;
2367:
2507:
2508: WHEN OTHERS THEN
2509: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2512: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2513: p_procedure_name => 'Handle_Deleted_PO_Lines',
2514: p_error_text => SUBSTR(SQLERRM,1,240));
2515: END IF;
2508: WHEN OTHERS THEN
2509: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2512: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2513: p_procedure_name => 'Handle_Deleted_PO_Lines',
2514: p_error_text => SUBSTR(SQLERRM,1,240));
2515: END IF;
2516:
2618:
2619: WHEN OTHERS THEN
2620: ROLLBACK TO Handle_Approved_POs_pvt;
2621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2622: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2623: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2624: p_procedure_name => 'Handle_Approved_POs',
2625: p_error_text => SUBSTR(SQLERRM,1,240));
2626: END IF;
2619: WHEN OTHERS THEN
2620: ROLLBACK TO Handle_Approved_POs_pvt;
2621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2622: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2623: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2624: p_procedure_name => 'Handle_Approved_POs',
2625: p_error_text => SUBSTR(SQLERRM,1,240));
2626: END IF;
2627:
2759:
2760: WHEN OTHERS THEN
2761: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2764: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2765: p_procedure_name => 'Handle_Deleted_PO_Headers',
2766: p_error_text => SUBSTR(SQLERRM,1,240));
2767: END IF;
2760: WHEN OTHERS THEN
2761: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2764: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2765: p_procedure_name => 'Handle_Deleted_PO_Headers',
2766: p_error_text => SUBSTR(SQLERRM,1,240));
2767: END IF;
2768:
2885:
2886: WHEN OTHERS THEN
2887: ROLLBACK TO Handle_Deleted_SOs_pvt;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2891: p_procedure_name => 'Handle_Deleted_Sales_Orders',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2893: END IF;
2886: WHEN OTHERS THEN
2887: ROLLBACK TO Handle_Deleted_SOs_pvt;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2891: p_procedure_name => 'Handle_Deleted_Sales_Orders',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2893: END IF;
2894:
2998: FETCH l_osp_line_dtls_csr INTO l_osp_line_dtls_rec;
2999: IF (l_osp_line_dtls_csr%NOTFOUND) THEN
3000: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_LINE_ID_INVALID');
3001: FND_MESSAGE.Set_Token('OSP_LINE_ID', p_osp_order_line_id);
3002: FND_MSG_PUB.ADD;
3003: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3004: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3005: END IF;
3006: CLOSE l_osp_line_dtls_csr;
3134: FETCH l_osp_dtls_csr INTO l_osp_dtls_rec;
3135: IF (l_osp_dtls_csr%NOTFOUND) THEN
3136: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
3137: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
3138: FND_MSG_PUB.ADD;
3139: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3140: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3141: END IF;
3142: CLOSE l_osp_dtls_csr;