[Home] [Help]
383:
384: -- Standard start of API savepoint
385: SAVEPOINT Create_Purchase_Order_pvt;
386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
389: END IF;
390:
391: -- Standard call to check for call compatibility
384: -- Standard start of API savepoint
385: SAVEPOINT Create_Purchase_Order_pvt;
386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
389: END IF;
390:
391: -- Standard call to check for call compatibility
392: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
454: l_po_line_tbl(l_temp_num).TASK_ID;
455: EXIT WHEN l_osp_line_dtls_csr%NOTFOUND;
456:
457: -- Added by mpothuku on 10-oct-2007 to fix bug 6431740
458: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
460: ' Fetching from l_osp_line_dtls_csr. l_temp_num = ' || l_temp_num ||
461: ', OSP_LINE_ID = ' || l_po_line_tbl(l_temp_num).OSP_LINE_ID ||
462: ', WIP_ENTITY_ID = ' || l_po_line_tbl(l_temp_num).WIP_ENTITY_ID ||
455: EXIT WHEN l_osp_line_dtls_csr%NOTFOUND;
456:
457: -- Added by mpothuku on 10-oct-2007 to fix bug 6431740
458: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
460: ' Fetching from l_osp_line_dtls_csr. l_temp_num = ' || l_temp_num ||
461: ', OSP_LINE_ID = ' || l_po_line_tbl(l_temp_num).OSP_LINE_ID ||
462: ', WIP_ENTITY_ID = ' || l_po_line_tbl(l_temp_num).WIP_ENTITY_ID ||
463: ', PROJECT_ID = ' || l_po_line_tbl(l_temp_num).PROJECT_ID ||
534: -- Launch Concurrent Program to create PO
535: --dbms_output.put_line('About to call Concurrent program ');
536: Call_PDOI_Program(p_batch_id => l_batch_id,
537: x_request_id => l_request_id);
538: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program Request Submitted. Request Id = ' || l_request_id);
540: END IF;
541: --dbms_output.put_line('Concurrent Program called. Request Id = ' || l_request_id);
542: -- Check if request was submitted without error
535: --dbms_output.put_line('About to call Concurrent program ');
536: Call_PDOI_Program(p_batch_id => l_batch_id,
537: x_request_id => l_request_id);
538: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program Request Submitted. Request Id = ' || l_request_id);
540: END IF;
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
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;
550: END IF;
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;
550: END IF;
551:
562: x_request_id := l_request_id;
563: x_interface_header_id := l_intf_hdr_id;
564:
565: --dbms_output.put_line('Completed Processing ');
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;
563: x_interface_header_id := l_intf_hdr_id;
564:
565: --dbms_output.put_line('Completed Processing ');
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
591: p_data => x_msg_data,
592: p_encoded => fnd_api.g_false
593: );
594:
595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
597: END IF;
598:
599: --dbms_output.put_line('About to return from procedure ');
592: p_encoded => fnd_api.g_false
593: );
594:
595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
597: END IF;
598:
599: --dbms_output.put_line('About to return from procedure ');
600: EXCEPTION
693: l_po_header_id NUMBER;
694:
695: BEGIN
696:
697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
699: END IF;
700:
701: -- Standard start of API savepoint
694:
695: BEGIN
696:
697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
699: END IF;
700:
701: -- Standard start of API savepoint
702: SAVEPOINT Associate_OSP_With_PO_pvt;
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');
732: RAISE FND_API.G_EXC_ERROR;
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');
732: RAISE FND_API.G_EXC_ERROR;
733: ELSE
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;
744: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
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;
744: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
745: RAISE FND_API.G_EXC_ERROR;
743: CLOSE l_validate_osp_csr;
744: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_po_header_id IS NOT NULL) THEN
747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
749: END IF;
750: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
751: -- No need to throw an exception
744: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_po_header_id IS NOT NULL) THEN
747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
749: END IF;
750: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
751: -- No need to throw an exception
752: /*
765: END IF;
766: CLOSE l_validate_osp_csr;
767: END IF;
768:
769: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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.
766: CLOSE l_validate_osp_csr;
767: END IF;
768:
769: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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;
778:
779: -- Standard check of p_commit
780: IF FND_API.TO_BOOLEAN(p_commit) THEN
781: --dbms_output.put_line('About to commit');
782: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
783: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit');
784: END IF;
785: COMMIT WORK;
786: END IF;
779: -- Standard check of p_commit
780: IF FND_API.TO_BOOLEAN(p_commit) THEN
781: --dbms_output.put_line('About to commit');
782: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
783: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit');
784: END IF;
785: COMMIT WORK;
786: END IF;
787:
791: p_data => x_msg_data,
792: p_encoded => fnd_api.g_false
793: );
794:
795: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
796: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
797: END IF;
798: --dbms_output.put_line('About to return ');
799: EXCEPTION
792: p_encoded => fnd_api.g_false
793: );
794:
795: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
796: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
797: END IF;
798: --dbms_output.put_line('About to return ');
799: EXCEPTION
800: WHEN FND_API.G_EXC_ERROR THEN
881: l_po_header_id NUMBER;
882: l_temp_count NUMBER := 0;
883:
884: BEGIN
885: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
886: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
887: END IF;
888:
889: -- Standard start of API savepoint
882: l_temp_count NUMBER := 0;
883:
884: BEGIN
885: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
886: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
887: END IF;
888:
889: -- Standard start of API savepoint
890: SAVEPOINT Associate_All_OSP_POs_pvt;
914: FETCH l_get_osps_csr INTO l_osp_order_id;
915: EXIT WHEN l_get_osps_csr%NOTFOUND;
916: Associate_OSP_PO(p_osp_order_id => l_osp_order_id,
917: x_po_header_id => l_po_header_id);
918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Associated OSP Order with Id ' || l_osp_order_id || ' to PO with Id ' || l_po_header_id);
920: END IF;
921: l_temp_count := l_temp_count + 1;
922: END LOOP;
915: EXIT WHEN l_get_osps_csr%NOTFOUND;
916: Associate_OSP_PO(p_osp_order_id => l_osp_order_id,
917: x_po_header_id => l_po_header_id);
918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Associated OSP Order with Id ' || l_osp_order_id || ' to PO with Id ' || l_po_header_id);
920: END IF;
921: l_temp_count := l_temp_count + 1;
922: END LOOP;
923: --Added by jaramana on 7-JAN-2008
922: END LOOP;
923: --Added by jaramana on 7-JAN-2008
924: CLOSE l_get_osps_csr;
925: --jaramana End
926: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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.
923: --Added by jaramana on 7-JAN-2008
924: CLOSE l_get_osps_csr;
925: --jaramana End
926: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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;
924: CLOSE l_get_osps_csr;
925: --jaramana End
926: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
934: END IF;
935:
936: -- Standard check of p_commit
937: IF FND_API.TO_BOOLEAN(p_commit) THEN
938: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
939: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
940: END IF;
941: COMMIT WORK;
942: END IF;
935:
936: -- Standard check of p_commit
937: IF FND_API.TO_BOOLEAN(p_commit) THEN
938: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
939: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
940: END IF;
941: COMMIT WORK;
942: END IF;
943:
947: p_data => x_msg_data,
948: p_encoded => fnd_api.g_false
949: );
950:
951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
952: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
953: END IF;
954:
955: EXCEPTION
948: p_encoded => fnd_api.g_false
949: );
950:
951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
952: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
953: END IF;
954:
955: EXCEPTION
956: WHEN FND_API.G_EXC_ERROR THEN
1032: l_api_name CONSTANT VARCHAR2(30) := 'PO_Synch_All_OSPs';
1033: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.PO_Synch_All_OSPs';
1034:
1035: BEGIN
1036: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1037: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. Operating Unit = ' || MO_GLOBAL.get_current_org_id());
1038: END IF;
1039:
1040: -- No need of a Savepoint: Individual procedures commit or rollback
1033: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.PO_Synch_All_OSPs';
1034:
1035: BEGIN
1036: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1037: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. Operating Unit = ' || MO_GLOBAL.get_current_org_id());
1038: END IF;
1039:
1040: -- No need of a Savepoint: Individual procedures commit or rollback
1041: -- within themselves.
1075: IF (p_concurrent_flag = 'Y') THEN
1076: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1077: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1078: END IF;
1079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1080: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1081: END IF;
1082:
1083: /** The following calls to the Handle_Deleted_PO_Headers and Handle_Deleted_Sales_Orders
1076: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1077: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1078: END IF;
1079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1080: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1081: END IF;
1082:
1083: /** The following calls to the Handle_Deleted_PO_Headers and Handle_Deleted_Sales_Orders
1084: * procedures were added by jaramana on March 31, 2006 to implement the ER 5074660
1089: IF (p_concurrent_flag = 'Y') THEN
1090: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1091: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1092: END IF;
1093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1095: END IF;
1096:
1097: -- Handle Deleted Sales Orders
1090: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1091: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1092: END IF;
1093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1095: END IF;
1096:
1097: -- Handle Deleted Sales Orders
1098: HANDLE_DELETED_SALES_ORDERS(p_commit => p_commit, --Commit this independent of other operations
1100: IF (p_concurrent_flag = 'Y') THEN
1101: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1102: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1103: END IF;
1104: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1106: END IF;
1107:
1108: -- Handle Canceled POs
1101: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1102: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1103: END IF;
1104: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1106: END IF;
1107:
1108: -- Handle Canceled POs
1109: HANDLE_CANCELLED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1111: IF (p_concurrent_flag = 'Y') THEN
1112: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1113: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1114: END IF;
1115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1117: END IF;
1118:
1119: -- Handle Deleted PO Lines
1112: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1113: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1114: END IF;
1115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1117: END IF;
1118:
1119: -- Handle Deleted PO Lines
1120: HANDLE_DELETED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1122: IF (p_concurrent_flag = 'Y') THEN
1123: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1124: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1125: END IF;
1126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1127: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1128: END IF;
1129:
1130: -- Handle Approved POs
1123: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1124: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1125: END IF;
1126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1127: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1128: END IF;
1129:
1130: -- Handle Approved POs
1131: HANDLE_APPROVED_POs(p_commit => p_commit, --Commit this independent of other operations
1133: IF (p_concurrent_flag = 'Y') THEN
1134: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1135: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1136: END IF;
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1139: END IF;
1140:
1141: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1134: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1135: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1136: END IF;
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1139: END IF;
1140:
1141: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1139: END IF;
1140:
1141: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Purchase Orders. About to start processing Requisitions.');
1144: END IF;
1145: IF (p_concurrent_flag = 'Y') THEN
1146: fnd_file.put_line(fnd_file.log, 'Completed PO Synch Process. About to start processing Requisitions by calling AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions.');
1139: END IF;
1140:
1141: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Purchase Orders. About to start processing Requisitions.');
1144: END IF;
1145: IF (p_concurrent_flag = 'Y') THEN
1146: fnd_file.put_line(fnd_file.log, 'Completed PO Synch Process. About to start processing Requisitions by calling AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions.');
1147: END IF;
1159: IF (p_concurrent_flag = 'Y') THEN
1160: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1161: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1162: END IF;
1163: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1165: END IF;
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1161: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1162: END IF;
1163: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1165: END IF;
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1163: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1165: END IF;
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1169: END IF;
1170: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1171: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
1164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions, Return Status = ' || x_return_status);
1165: END IF;
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1169: END IF;
1170: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1171: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
1172: ELSE
1172: ELSE
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- Rollback and return error
1174: END IF;
1175: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1177: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Requisitions. About to check for errors.');
1178: END IF;
1179: IF (p_concurrent_flag = 'Y') THEN
1180: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- Rollback and return error
1174: END IF;
1175: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1177: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Requisitions. About to check for errors.');
1178: END IF;
1179: IF (p_concurrent_flag = 'Y') THEN
1180: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1181: END IF;
1199: p_data => x_msg_data,
1200: p_encoded => fnd_api.g_false
1201: );
1202:
1203: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1205: END IF;
1206:
1207: EXCEPTION
1200: p_encoded => fnd_api.g_false
1201: );
1202:
1203: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1205: END IF;
1206:
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
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);
1218: END IF;
1219: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Execution Exception: ' || x_msg_data);
1221: END IF;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1216: IF (p_concurrent_flag = 'Y') THEN
1217: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1218: END IF;
1219: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Execution Exception: ' || x_msg_data);
1221: END IF;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: -- No need to rollback: Individual procedures commit or rollback
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);
1233: END IF;
1234: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1235: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unexpected Exception: ' || x_msg_data);
1236: END IF;
1237:
1238: WHEN OTHERS THEN
1231: IF (p_concurrent_flag = 'Y') THEN
1232: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1233: END IF;
1234: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1235: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unexpected Exception: ' || x_msg_data);
1236: END IF;
1237:
1238: WHEN OTHERS THEN
1239: -- No need to rollback: Individual procedures commit or rollback
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);
1253: END IF;
1254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unknown Exception: ' || x_msg_data);
1256: END IF;
1257:
1258: END PO_Synch_All_OSPs;
1251: IF (p_concurrent_flag = 'Y') THEN
1252: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1253: END IF;
1254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unknown Exception: ' || x_msg_data);
1256: END IF;
1257:
1258: END PO_Synch_All_OSPs;
1259: --------------------------------------
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';
1289: END IF;
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';
1289: END IF;
1290: OPEN l_get_po_cstatus_csr(p_po_header_id);
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
1301: CLOSE l_get_po_cstatus_csr;
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
1301: CLOSE l_get_po_cstatus_csr;
1302: RETURN 'N';
1395: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Validate_PO_Header';
1396:
1397: BEGIN
1398:
1399: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1401: END IF;
1402:
1403: -- OSP Order Id
1396:
1397: BEGIN
1398:
1399: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1401: END IF;
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
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
1411: OPEN l_validate_osp_csr(p_po_header_rec.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
1411: OPEN l_validate_osp_csr(p_po_header_rec.OSP_ORDER_ID);
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;
1421: CLOSE l_validate_osp_csr;
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;
1421: CLOSE l_validate_osp_csr;
1422: END IF;
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
1432: OPEN l_validate_supplier_csr(p_po_header_rec.VENDOR_ID);
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
1432: OPEN l_validate_supplier_csr(p_po_header_rec.VENDOR_ID);
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;
1442: CLOSE l_validate_supplier_csr;
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;
1442: CLOSE l_validate_supplier_csr;
1443: END IF;
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
1453: OPEN l_validate_supp_site_csr(p_po_header_rec.VENDOR_SITE_ID, p_po_header_rec.VENDOR_ID);
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
1453: OPEN l_validate_supp_site_csr(p_po_header_rec.VENDOR_SITE_ID, p_po_header_rec.VENDOR_ID);
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;
1463: CLOSE l_validate_supp_site_csr;
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;
1463: CLOSE l_validate_supp_site_csr;
1464: END IF;
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;
1479: CLOSE l_validate_vendor_contact_csr;
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;
1479: CLOSE l_validate_vendor_contact_csr;
1480: END IF;
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
1491: OPEN l_validate_buyer_csr(p_po_header_rec.BUYER_ID);
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
1491: OPEN l_validate_buyer_csr(p_po_header_rec.BUYER_ID);
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;
1501: CLOSE l_validate_buyer_csr;
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;
1501: CLOSE l_validate_buyer_csr;
1502: END IF;
1500: END IF;
1501: CLOSE l_validate_buyer_csr;
1502: END IF;
1503:
1504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1506: END IF;
1507:
1508: END Validate_PO_Header;
1501: CLOSE l_validate_buyer_csr;
1502: END IF;
1503:
1504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1506: END IF;
1507:
1508: END Validate_PO_Header;
1509:
1536: l_org_id NUMBER := NULL;
1537: l_dummy VARCHAR2(1);
1538:
1539: BEGIN
1540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1541: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1542: END IF;
1543:
1544: -- Get the current Org
1537: l_dummy VARCHAR2(1);
1538:
1539: BEGIN
1540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1541: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1542: END IF;
1543:
1544: -- Get the current Org
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;
1554: END IF;
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;
1554: END IF;
1555:
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
1565: END IF;
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
1565: END IF;
1566:
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;
1583: CLOSE l_validate_item_csr;
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;
1583: CLOSE l_validate_item_csr;
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;
1593: -- One-time Item: UOM 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;
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
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;
1601: END IF;
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;
1601: 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
1611: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
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
1611: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1612: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
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;
1619: END IF;
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;
1619: 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
1629: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
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
1629: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1630: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
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;
1637: END IF;
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;
1637: 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;
1647:
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;
1647:
1648: -- Commented out by jaramana on May 27, 2005 for Inventory Service Orders.
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: ***/
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
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
1670: OPEN l_validate_line_type_csr(p_po_line_tbl(i).PO_LINE_TYPE_ID);
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
1670: OPEN l_validate_line_type_csr(p_po_line_tbl(i).PO_LINE_TYPE_ID);
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;
1680: CLOSE l_validate_line_type_csr;
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;
1680: CLOSE l_validate_line_type_csr;
1681: END IF;
1680: CLOSE l_validate_line_type_csr;
1681: END IF;
1682:
1683: END LOOP;
1684: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1685: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1686: END IF;
1687: END Validate_PO_Lines;
1688:
1681: END IF;
1682:
1683: END LOOP;
1684: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1685: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1686: END IF;
1687: END Validate_PO_Lines;
1688:
1689: ----------------------------------------
1711:
1712: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Header';
1713:
1714: BEGIN
1715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1717: END IF;
1718: -- Get Batch Id
1719: /*
1712: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Header';
1713:
1714: BEGIN
1715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1717: END IF;
1718: -- Get Batch Id
1719: /*
1720: SELECT NVL(MAX(batch_id), 0) + 1 INTO l_batch_id FROM po_headers_interface;
1745: SELECT invoice_currency_code INTO l_temp_v FROM po_vendor_sites
1746: WHERE vendor_site_id = p_po_header_rec.vendor_site_id AND
1747: vendor_id = p_po_header_rec.vendor_id;
1748: IF(l_temp_v IS NULL) THEN
1749: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not get currency for Supplier ' || p_po_header_rec.vendor_id || ' Trying at Site ' || p_po_header_rec.vendor_site_id);
1751: END IF;
1752: -- If not check if available at vendor level
1753: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1746: WHERE vendor_site_id = p_po_header_rec.vendor_site_id AND
1747: vendor_id = p_po_header_rec.vendor_id;
1748: IF(l_temp_v IS NULL) THEN
1749: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not get currency for Supplier ' || p_po_header_rec.vendor_id || ' Trying at Site ' || p_po_header_rec.vendor_site_id);
1751: END IF;
1752: -- If not check if available at vendor level
1753: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1754: WHERE vendor_id = p_po_header_rec.vendor_id;
1752: -- If not check if available at vendor level
1753: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1754: WHERE vendor_id = p_po_header_rec.vendor_id;
1755: IF(l_temp_v IS NULL) THEN
1756: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not get currency for Supplier ' || p_po_header_rec.vendor_id || ' and Site ' || p_po_header_rec.vendor_site_id || ', Trying from set of Books.');
1758: END IF;
1759: -- If not, get currency from set_of_books and set l_currency_code
1760: SELECT GSB.currency_code INTO l_currency_code
1753: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1754: WHERE vendor_id = p_po_header_rec.vendor_id;
1755: IF(l_temp_v IS NULL) THEN
1756: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not get currency for Supplier ' || p_po_header_rec.vendor_id || ' and Site ' || p_po_header_rec.vendor_site_id || ', Trying from set of Books.');
1758: END IF;
1759: -- If not, get currency from set_of_books and set l_currency_code
1760: SELECT GSB.currency_code INTO l_currency_code
1761: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1759: -- If not, get currency from set_of_books and set l_currency_code
1760: SELECT GSB.currency_code INTO l_currency_code
1761: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1762: WHERE FSP.set_of_books_id = GSB.set_of_books_id;
1763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got currency from Set Of Books: ' || l_currency_code);
1765: END IF;
1766: END IF;
1767: END IF;
1760: SELECT GSB.currency_code INTO l_currency_code
1761: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1762: WHERE FSP.set_of_books_id = GSB.set_of_books_id;
1763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got currency from Set Of Books: ' || l_currency_code);
1765: END IF;
1766: END IF;
1767: END IF;
1768: EXCEPTION
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;
1776: END;
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;
1776: END;
1777:
1823: -- Set Output parameters
1824: x_intf_header_id := l_intf_hdr_id;
1825: x_batch_id := l_batch_id;
1826:
1827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1828: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1829: END IF;
1830:
1831: END Insert_PO_Header;
1824: x_intf_header_id := l_intf_hdr_id;
1825: x_batch_id := l_batch_id;
1826:
1827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1828: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1829: END IF;
1830:
1831: END Insert_PO_Header;
1832:
1884: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Lines';
1885:
1886: BEGIN
1887:
1888: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1889: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1890: END IF;
1891:
1892: -- Get the current Org to get Item Price
1885:
1886: BEGIN
1887:
1888: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1889: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1890: END IF;
1891:
1892: -- Get the current Org to get Item Price
1893: l_org_id := MO_GLOBAL.get_current_org_id();
1967: END IF;
1968:
1969: --Fix for the Bug 6436184
1970: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1971: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_task_completion_date : '|| to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
1974: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1975: END IF;
1968:
1969: --Fix for the Bug 6436184
1970: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1971: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_task_completion_date : '|| to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
1974: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1975: END IF;
1976: --mpothuku End
1969: --Fix for the Bug 6436184
1970: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1971: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_task_completion_date : '|| to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
1974: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1975: END IF;
1976: --mpothuku End
1977:
1970: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1971: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_task_completion_date : '|| to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
1974: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1975: END IF;
1976: --mpothuku End
1977:
1978: INSERT INTO PO_DISTRIBUTIONS_INTERFACE (
2015: ,l_task_completion_date
2016: ,l_charge_acct_id
2017: );
2018: --Added by mpothuku on 10-oct-2007 to fix bug 6431740
2019: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2021: ' Inserting into PO_DISTRIBUTIONS_INTERFACE. INTERFACE_HEADER_ID = ' || p_intf_header_id ||
2022: ', INTERFACE_LINE_ID = ' || l_intf_line_id ||
2023: ', WIP_ENTITY_ID = ' || p_po_line_tbl(i).wip_entity_id ||
2016: ,l_charge_acct_id
2017: );
2018: --Added by mpothuku on 10-oct-2007 to fix bug 6431740
2019: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2021: ' Inserting into PO_DISTRIBUTIONS_INTERFACE. INTERFACE_HEADER_ID = ' || p_intf_header_id ||
2022: ', INTERFACE_LINE_ID = ' || l_intf_line_id ||
2023: ', WIP_ENTITY_ID = ' || p_po_line_tbl(i).wip_entity_id ||
2024: ', PROJECT_ID = ' || p_po_line_tbl(i).project_id ||
2028: ', EXPENDITURE_ITEM_DATE = ' || to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
2029: END IF;
2030: END IF;
2031: END LOOP;
2032: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2033: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2034: END IF;
2035: END Insert_PO_Lines;
2036:
2029: END IF;
2030: END IF;
2031: END LOOP;
2032: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2033: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2034: END IF;
2035: END Insert_PO_Lines;
2036:
2037: ----------------------------------------
2084: argument96=>'',argument97=>'',argument98=>'',argument99=>'',argument100=>''
2085: --Changes by jrotich end
2086: );
2087:
2088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2089: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Request Submitted. Request Id = ' || x_request_id);
2090: END IF;
2091: END Call_PDOI_Program;
2092:
2085: --Changes by jrotich end
2086: );
2087:
2088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2089: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Request Submitted. Request Id = ' || x_request_id);
2090: END IF;
2091: END Call_PDOI_Program;
2092:
2093: ----------------------------------------
2164: l_message VARCHAR2(1000);
2165: l_retval BOOLEAN;
2166:
2167: BEGIN
2168: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2170: END IF;
2171:
2172: OPEN l_get_po_hdr_csr(p_osp_order_id);
2165: l_retval BOOLEAN;
2166:
2167: BEGIN
2168: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2170: END IF;
2171:
2172: OPEN l_get_po_hdr_csr(p_osp_order_id);
2173: FETCH l_get_po_hdr_csr INTO x_po_header_id;
2197: Set_PO_Line_Id(p_osp_order_line_id => l_osp_order_line_id,
2198: p_po_line_id => l_po_line_id);
2199: ELSE
2200: --dbms_output.put_line('OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line.');
2201: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line');
2203: END IF;
2204: END IF;
2205: CLOSE l_get_po_line_csr;
2198: p_po_line_id => l_po_line_id);
2199: ELSE
2200: --dbms_output.put_line('OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line.');
2201: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line');
2203: END IF;
2204: END IF;
2205: CLOSE l_get_po_line_csr;
2206: END LOOP;
2229: -- but the PO Header is not set
2230: IF ((l_retval = TRUE) AND (l_dev_phase = 'COMPLETE')) THEN
2231: -- Abnormal Termination
2232: --dbms_output.put_line('Concurrent Program has completed. Setting Status to SUBMISSION_FAILED.');
2233: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program with Request Id ' || l_request_id || ' has terminated. dev_status = ' || l_dev_status || ', message = ' || l_message);
2235: END IF;
2236: -- Set the Status of OSP Order to Submission Failed
2237: Set_Submission_Failed(p_osp_order_id);
2230: IF ((l_retval = TRUE) AND (l_dev_phase = 'COMPLETE')) THEN
2231: -- Abnormal Termination
2232: --dbms_output.put_line('Concurrent Program has completed. Setting Status to SUBMISSION_FAILED.');
2233: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program with Request Id ' || l_request_id || ' has terminated. dev_status = ' || l_dev_status || ', message = ' || l_message);
2235: END IF;
2236: -- Set the Status of OSP Order to Submission Failed
2237: Set_Submission_Failed(p_osp_order_id);
2238: END IF;
2239: END IF;
2240: END IF;
2241: CLOSE l_get_po_hdr_csr;
2242: --dbms_output.put_line('About to exit Associate_OSP_PO ');
2243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2245: END IF;
2246: END Associate_OSP_PO;
2247:
2240: END IF;
2241: CLOSE l_get_po_hdr_csr;
2242: --dbms_output.put_line('About to exit Associate_OSP_PO ');
2243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2245: END IF;
2246: END Associate_OSP_PO;
2247:
2248: ----------------------------------------
2286: l_osp_obj_ver_num NUMBER;
2287: l_ol_obj_ver_num NUMBER;
2288:
2289: BEGIN
2290: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2292: END IF;
2293: -- Standard start of API savepoint
2294: SAVEPOINT Handle_Cancelled_PO_Lines_pvt;
2287: l_ol_obj_ver_num NUMBER;
2288:
2289: BEGIN
2290: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2292: END IF;
2293: -- Standard start of API savepoint
2294: SAVEPOINT Handle_Cancelled_PO_Lines_pvt;
2295:
2306: EXIT WHEN l_get_cancelled_po_lines_csr%NOTFOUND;
2307: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2308: IF (l_prev_osp_order_id <> -1) THEN
2309: -- Cancel all OSP Lines pertaining to the previous OSP Order
2310: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2312: END IF;
2313: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2314: p_init_msg_list => FND_API.G_FALSE,
2307: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2308: IF (l_prev_osp_order_id <> -1) THEN
2309: -- Cancel all OSP Lines pertaining to the previous OSP Order
2310: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2312: END IF;
2313: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2314: p_init_msg_list => FND_API.G_FALSE,
2315: p_commit => FND_API.G_FALSE,
2319: x_return_status => l_return_status,
2320: x_msg_count => l_msg_count,
2321: x_msg_data => l_msg_data);
2322: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2323: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2325: END IF;
2326: l_commit_flag := false;
2327: END IF;
2320: x_msg_count => l_msg_count,
2321: x_msg_data => l_msg_data);
2322: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2323: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2325: END IF;
2326: l_commit_flag := false;
2327: END IF;
2328: -- Delete table used by prior call
2347: END LOOP;
2348: CLOSE l_get_cancelled_po_lines_csr;
2349: IF (l_prev_osp_order_id <> -1) THEN
2350: -- Save the Last Cancellation
2351: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2353: END IF;
2354: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2355: p_init_msg_list => FND_API.G_FALSE,
2348: CLOSE l_get_cancelled_po_lines_csr;
2349: IF (l_prev_osp_order_id <> -1) THEN
2350: -- Save the Last Cancellation
2351: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2353: END IF;
2354: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2355: p_init_msg_list => FND_API.G_FALSE,
2356: p_commit => FND_API.G_FALSE,
2360: x_return_status => l_return_status,
2361: x_msg_count => l_msg_count,
2362: x_msg_data => l_msg_data);
2363: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2364: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2366: END IF;
2367: l_commit_flag := false;
2368: END IF;
2361: x_msg_count => l_msg_count,
2362: x_msg_data => l_msg_data);
2363: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2364: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2366: END IF;
2367: l_commit_flag := false;
2368: END IF;
2369: END IF;
2371: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2372: END IF;
2373: -- No errors in current procedure: Check only passed in flag
2374: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2375: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2377: END IF;
2378: COMMIT WORK;
2379: END IF;
2372: END IF;
2373: -- No errors in current procedure: Check only passed in flag
2374: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2375: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2377: END IF;
2378: COMMIT WORK;
2379: END IF;
2380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2377: END IF;
2378: COMMIT WORK;
2379: END IF;
2380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2382: END IF;
2383: EXCEPTION
2384: WHEN FND_API.G_EXC_ERROR THEN
2377: END IF;
2378: COMMIT WORK;
2379: END IF;
2380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2382: END IF;
2383: EXCEPTION
2384: WHEN FND_API.G_EXC_ERROR THEN
2385: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2436: l_osp_obj_ver_num NUMBER;
2437: l_ol_obj_ver_num NUMBER;
2438:
2439: BEGIN
2440: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2441: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2442: END IF;
2443: -- Standard start of API savepoint
2444: SAVEPOINT Handle_Deleted_PO_Lines_pvt;
2437: l_ol_obj_ver_num NUMBER;
2438:
2439: BEGIN
2440: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2441: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2442: END IF;
2443: -- Standard start of API savepoint
2444: SAVEPOINT Handle_Deleted_PO_Lines_pvt;
2445:
2455: EXIT WHEN l_get_deleted_po_lines_csr%NOTFOUND;
2456: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2457: IF (l_prev_osp_order_id <> -1) THEN
2458: -- PO Delete all OSP Lines pertaining to the previous OSP Order
2459: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2460: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2461: END IF;
2462: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2463: p_init_msg_list => FND_API.G_FALSE,
2456: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2457: IF (l_prev_osp_order_id <> -1) THEN
2458: -- PO Delete all OSP Lines pertaining to the previous OSP Order
2459: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2460: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2461: END IF;
2462: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2463: p_init_msg_list => FND_API.G_FALSE,
2464: p_commit => FND_API.G_FALSE,
2468: x_return_status => l_return_status,
2469: x_msg_count => l_msg_count,
2470: x_msg_data => l_msg_data);
2471: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2474: END IF;
2475: l_commit_flag := false;
2476: END IF;
2469: x_msg_count => l_msg_count,
2470: x_msg_data => l_msg_data);
2471: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2474: END IF;
2475: l_commit_flag := false;
2476: END IF;
2477: -- Delete table used by prior call
2495: END LOOP;
2496: CLOSE l_get_deleted_po_lines_csr;
2497: IF (l_prev_osp_order_id <> -1) THEN
2498: -- Save the Last Deletion
2499: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2500: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2501: END IF;
2502: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2503: p_init_msg_list => FND_API.G_FALSE,
2496: CLOSE l_get_deleted_po_lines_csr;
2497: IF (l_prev_osp_order_id <> -1) THEN
2498: -- Save the Last Deletion
2499: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2500: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2501: END IF;
2502: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2503: p_init_msg_list => FND_API.G_FALSE,
2504: p_commit => FND_API.G_FALSE,
2508: x_return_status => l_return_status,
2509: x_msg_count => l_msg_count,
2510: x_msg_data => l_msg_data);
2511: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2512: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2514: END IF;
2515: l_commit_flag := false;
2516: END IF;
2509: x_msg_count => l_msg_count,
2510: x_msg_data => l_msg_data);
2511: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2512: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2514: END IF;
2515: l_commit_flag := false;
2516: END IF;
2517: END IF;
2520: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2521: END IF;
2522: -- No errors in current procedure: Check only passed in flag
2523: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2526: END IF;
2527: COMMIT WORK;
2528: END IF;
2521: END IF;
2522: -- No errors in current procedure: Check only passed in flag
2523: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2526: END IF;
2527: COMMIT WORK;
2528: END IF;
2529: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2526: END IF;
2527: COMMIT WORK;
2528: END IF;
2529: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2531: END IF;
2532: EXCEPTION
2533: WHEN FND_API.G_EXC_ERROR THEN
2526: END IF;
2527: COMMIT WORK;
2528: END IF;
2529: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2531: END IF;
2532: EXCEPTION
2533: WHEN FND_API.G_EXC_ERROR THEN
2534: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2581:
2582: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2583:
2584: BEGIN
2585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2586: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2587: END IF;
2588: -- Standard start of API savepoint
2589: SAVEPOINT Handle_Approved_POs_pvt;
2582: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2583:
2584: BEGIN
2585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2586: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2587: END IF;
2588: -- Standard start of API savepoint
2589: SAVEPOINT Handle_Approved_POs_pvt;
2590:
2600: IF (l_oe_header_id IS NOT NULL) THEN
2601: l_temp_num := l_temp_num + 1; -- One based index
2602: -- Populate the table with this Shipment Id
2603: l_shipment_IDs_Tbl(l_temp_num) := l_oe_header_id;
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Booking Shipment with Id: ' || l_oe_header_id);
2606: END IF;
2607: END IF;
2608: END LOOP;
2601: l_temp_num := l_temp_num + 1; -- One based index
2602: -- Populate the table with this Shipment Id
2603: l_shipment_IDs_Tbl(l_temp_num) := l_oe_header_id;
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Booking Shipment with Id: ' || l_oe_header_id);
2606: END IF;
2607: END IF;
2608: END LOOP;
2609: CLOSE l_get_approved_POs_csr;
2606: END IF;
2607: END IF;
2608: END LOOP;
2609: CLOSE l_get_approved_POs_csr;
2610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2611: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Number of Approvals to be submitted: ' || l_temp_num);
2612: END IF;
2613: IF (l_temp_num > 0) THEN
2614: -- Call Shipment API. This API will not throw an error or
2607: END IF;
2608: END LOOP;
2609: CLOSE l_get_approved_POs_csr;
2610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2611: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Number of Approvals to be submitted: ' || l_temp_num);
2612: END IF;
2613: IF (l_temp_num > 0) THEN
2614: -- Call Shipment API. This API will not throw an error or
2615: -- re-book if the shipment is already booked
2624: END IF;
2625:
2626: x_return_status := l_return_status;
2627: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2628: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2630: END IF;
2631: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2632: END IF;
2625:
2626: x_return_status := l_return_status;
2627: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2628: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2630: END IF;
2631: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2632: END IF;
2633: -- No errors in current procedure: Check only passed in flag
2631: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2632: END IF;
2633: -- No errors in current procedure: Check only passed in flag
2634: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2637: END IF;
2638: COMMIT WORK;
2639: END IF;
2632: END IF;
2633: -- No errors in current procedure: Check only passed in flag
2634: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2637: END IF;
2638: COMMIT WORK;
2639: END IF;
2640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2637: END IF;
2638: COMMIT WORK;
2639: END IF;
2640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2641: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2642: END IF;
2643: EXCEPTION
2644: WHEN FND_API.G_EXC_ERROR THEN
2637: END IF;
2638: COMMIT WORK;
2639: END IF;
2640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2641: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2642: END IF;
2643: EXCEPTION
2644: WHEN FND_API.G_EXC_ERROR THEN
2645: ROLLBACK TO Handle_Approved_POs_pvt;
2710: l_osp_details_rec get_po_deleted_osps_csr%ROWTYPE;
2711: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2712:
2713: BEGIN
2714: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2716: END IF;
2717: -- Standard start of API savepoint
2718: SAVEPOINT Handle_Deleted_PO_Headers_pvt;
2711: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2712:
2713: BEGIN
2714: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2716: END IF;
2717: -- Standard start of API savepoint
2718: SAVEPOINT Handle_Deleted_PO_Headers_pvt;
2719:
2724: LOOP
2725: FETCH get_po_deleted_osps_csr into l_osp_details_rec;
2726: EXIT WHEN get_po_deleted_osps_csr%NOTFOUND;
2727: l_temp_num := l_temp_num + 1;
2728: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2729: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing PO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2730: END IF;
2731: -- Get the Line Details
2732: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2725: FETCH get_po_deleted_osps_csr into l_osp_details_rec;
2726: EXIT WHEN get_po_deleted_osps_csr%NOTFOUND;
2727: l_temp_num := l_temp_num + 1;
2728: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2729: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing PO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2730: END IF;
2731: -- Get the Line Details
2732: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2733: LOOP
2735: EXIT WHEN get_osp_line_dtls_csr%NOTFOUND;
2736: IF (l_osp_line_details_rec.status_code IS NULL) THEN
2737: IF (l_osp_line_details_rec.po_line_id IS NOT NULL) THEN
2738: -- Reset the value of PO_LINE_ID and increment OVN (status_code is already null)
2739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Updating OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2741: END IF;
2742: Set_PO_Line_ID(p_osp_order_line_id => l_osp_line_details_rec.osp_order_line_id,
2743: p_po_line_id => null);
2736: IF (l_osp_line_details_rec.status_code IS NULL) THEN
2737: IF (l_osp_line_details_rec.po_line_id IS NOT NULL) THEN
2738: -- Reset the value of PO_LINE_ID and increment OVN (status_code is already null)
2739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Updating OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2741: END IF;
2742: Set_PO_Line_ID(p_osp_order_line_id => l_osp_line_details_rec.osp_order_line_id,
2743: p_po_line_id => null);
2744: END IF;
2743: p_po_line_id => null);
2744: END IF;
2745: ELSE
2746: -- Physically delete this line (PO_DELETED or PO_CANCELLED)
2747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2749: END IF;
2750: DELETE FROM ahl_osp_order_lines
2751: WHERE osp_order_line_id = l_osp_line_details_rec.osp_order_line_id;
2744: END IF;
2745: ELSE
2746: -- Physically delete this line (PO_DELETED or PO_CANCELLED)
2747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2749: END IF;
2750: DELETE FROM ahl_osp_order_lines
2751: WHERE osp_order_line_id = l_osp_line_details_rec.osp_order_line_id;
2752: END IF;
2767: where osp_order_id = l_osp_details_rec.osp_order_id;
2768: END LOOP;
2769: CLOSE get_po_deleted_osps_csr;
2770:
2771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2773: END IF;
2774:
2775: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2768: END LOOP;
2769: CLOSE get_po_deleted_osps_csr;
2770:
2771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2773: END IF;
2774:
2775: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2773: END IF;
2774:
2775: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2778: END IF;
2779: COMMIT WORK;
2780: END IF;
2773: END IF;
2774:
2775: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2778: END IF;
2779: COMMIT WORK;
2780: END IF;
2781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2778: END IF;
2779: COMMIT WORK;
2780: END IF;
2781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2783: END IF;
2784: EXCEPTION
2785: WHEN FND_API.G_EXC_ERROR THEN
2778: END IF;
2779: COMMIT WORK;
2780: END IF;
2781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2783: END IF;
2784: EXCEPTION
2785: WHEN FND_API.G_EXC_ERROR THEN
2786: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2847: l_osp_details_rec get_so_deleted_osps_csr%ROWTYPE;
2848: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2849:
2850: BEGIN
2851: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2853: END IF;
2854: -- Standard start of API savepoint
2855: SAVEPOINT Handle_Deleted_SOs_pvt;
2848: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2849:
2850: BEGIN
2851: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2853: END IF;
2854: -- Standard start of API savepoint
2855: SAVEPOINT Handle_Deleted_SOs_pvt;
2856:
2862: LOOP
2863: FETCH get_so_deleted_osps_csr into l_osp_details_rec;
2864: EXIT WHEN get_so_deleted_osps_csr%NOTFOUND;
2865: l_temp_num := l_temp_num + 1;
2866: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing SO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2868: END IF;
2869: -- Get the Details of lines that have a ship or a return line
2870: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2863: FETCH get_so_deleted_osps_csr into l_osp_details_rec;
2864: EXIT WHEN get_so_deleted_osps_csr%NOTFOUND;
2865: l_temp_num := l_temp_num + 1;
2866: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing SO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2868: END IF;
2869: -- Get the Details of lines that have a ship or a return line
2870: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2871: LOOP
2892: where osp_order_id = l_osp_details_rec.osp_order_id;
2893: END LOOP;
2894: CLOSE get_so_deleted_osps_csr;
2895:
2896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed SO Deletion for ' || l_temp_num || ' OSP Orders');
2898: END IF;
2899:
2900: -- No errors in current procedure: Check only passed in flag
2893: END LOOP;
2894: CLOSE get_so_deleted_osps_csr;
2895:
2896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed SO Deletion for ' || l_temp_num || ' OSP Orders');
2898: END IF;
2899:
2900: -- No errors in current procedure: Check only passed in flag
2901: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2898: END IF;
2899:
2900: -- No errors in current procedure: Check only passed in flag
2901: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2902: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2903: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2904: END IF;
2905: COMMIT WORK;
2906: END IF;
2899:
2900: -- No errors in current procedure: Check only passed in flag
2901: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2902: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2903: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2904: END IF;
2905: COMMIT WORK;
2906: END IF;
2907: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2903: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2904: END IF;
2905: COMMIT WORK;
2906: END IF;
2907: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2909: END IF;
2910: EXCEPTION
2911: WHEN FND_API.G_EXC_ERROR THEN
2904: END IF;
2905: COMMIT WORK;
2906: END IF;
2907: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2909: END IF;
2910: EXCEPTION
2911: WHEN FND_API.G_EXC_ERROR THEN
2912: ROLLBACK TO Handle_Deleted_SOs_pvt;
3022: l_osp_line_dtls_rec l_osp_line_dtls_csr%ROWTYPE;
3023: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Set_PO_Line_ID';
3024:
3025: BEGIN
3026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3028: END IF;
3029: -- Retrieve the current record
3030: OPEN l_osp_line_dtls_csr(p_osp_order_line_id);
3023: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Set_PO_Line_ID';
3024:
3025: BEGIN
3026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3028: END IF;
3029: -- Retrieve the current record
3030: OPEN l_osp_line_dtls_csr(p_osp_order_line_id);
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;
3040: RAISE FND_API.G_EXC_ERROR;
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;
3040: RAISE FND_API.G_EXC_ERROR;
3041: END IF;
3093: P_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3094: P_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3095: P_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3096:
3097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3099: END IF;
3100: END Set_PO_Line_ID;
3101:
3094: P_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3095: P_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3096:
3097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3099: END IF;
3100: END Set_PO_Line_ID;
3101:
3102: ----------------------------------------
3158: l_osp_dtls_rec l_osp_dtls_csr%ROWTYPE;
3159: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Update_OSP_Order';
3160:
3161: BEGIN
3162: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3163: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3164: END IF;
3165: -- Retrieve the current record
3166: OPEN l_osp_dtls_csr(p_osp_order_id);
3159: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Update_OSP_Order';
3160:
3161: BEGIN
3162: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3163: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3164: END IF;
3165: -- Retrieve the current record
3166: OPEN l_osp_dtls_csr(p_osp_order_id);
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;
3176: RAISE FND_API.G_EXC_ERROR;
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;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3237: X_PO_REQ_HEADER_ID => l_osp_dtls_rec.PO_REQ_HEADER_ID, -- Added by jaramana on January 7, 2008 for the Requisition ER 6034236
3238: X_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3239: X_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3240: X_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3243: END IF;
3244: END Update_OSP_Order;
3245:
3238: X_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3239: X_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3240: X_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3243: END IF;
3244: END Update_OSP_Order;
3245:
3246: ----------------------------------------
3271: BEGIN
3272: OPEN l_get_org_price_csr;
3273: FETCH l_get_org_price_csr INTO l_price;
3274: CLOSE l_get_org_price_csr;
3275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_line_id: ' || p_osp_line_id || ', Price: ' || l_price);
3277: END IF;
3278: RETURN l_price;
3279: END Get_Item_Price;
3272: OPEN l_get_org_price_csr;
3273: FETCH l_get_org_price_csr INTO l_price;
3274: CLOSE l_get_org_price_csr;
3275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_line_id: ' || p_osp_line_id || ', Price: ' || l_price);
3277: END IF;
3278: RETURN l_price;
3279: END Get_Item_Price;
3280:
3302: l_charge_acct_id NUMBER := null;
3303: l_item_account_set BOOLEAN := FALSE;
3304:
3305: BEGIN
3306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3309: END IF;
3310:
3303: l_item_account_set BOOLEAN := FALSE;
3304:
3305: BEGIN
3306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3309: END IF;
3310:
3311: IF(p_item_id is NULL) THEN
3304:
3305: BEGIN
3306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3309: END IF;
3310:
3311: IF(p_item_id is NULL) THEN
3312: --It is a one-time item
3314: ELSE
3315: --Item is present, retrieve the item's expense account.
3316: OPEN get_exp_acct_item_csr(p_inv_org_id, p_item_id);
3317: FETCH get_exp_acct_item_csr INTO l_charge_acct_id;
3318: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from item: '|| l_charge_acct_id);
3320: END IF;
3321: CLOSE get_exp_acct_item_csr;
3322: IF(l_charge_acct_id is not NULL) THEN
3315: --Item is present, retrieve the item's expense account.
3316: OPEN get_exp_acct_item_csr(p_inv_org_id, p_item_id);
3317: FETCH get_exp_acct_item_csr INTO l_charge_acct_id;
3318: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from item: '|| l_charge_acct_id);
3320: END IF;
3321: CLOSE get_exp_acct_item_csr;
3322: IF(l_charge_acct_id is not NULL) THEN
3323: l_item_account_set := TRUE;
3331: IF (l_item_account_set = FALSE) THEN
3332: --Retrieve the Org's Material Account Id
3333: OPEN get_mtl_acct_org_csr(p_inv_org_id);
3334: FETCH get_mtl_acct_org_csr INTO l_charge_acct_id;
3335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from Org: '|| l_charge_acct_id);
3337: END IF;
3338: CLOSE get_mtl_acct_org_csr;
3339: END IF;
3332: --Retrieve the Org's Material Account Id
3333: OPEN get_mtl_acct_org_csr(p_inv_org_id);
3334: FETCH get_mtl_acct_org_csr INTO l_charge_acct_id;
3335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from Org: '|| l_charge_acct_id);
3337: END IF;
3338: CLOSE get_mtl_acct_org_csr;
3339: END IF;
3340:
3337: END IF;
3338: CLOSE get_mtl_acct_org_csr;
3339: END IF;
3340:
3341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id: '|| l_charge_acct_id);
3343: END IF;
3344:
3345: RETURN l_charge_acct_id;
3338: CLOSE get_mtl_acct_org_csr;
3339: END IF;
3340:
3341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id: '|| l_charge_acct_id);
3343: END IF;
3344:
3345: RETURN l_charge_acct_id;
3346:
3407:
3408: l_manual_po_number := l_manual_po_number || l_osp_order_number;
3409: EXCEPTION
3410: WHEN OTHERS THEN
3411: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
3413: 'l_manual_po_number exceeded PO_HEADERS_INTERFACE.DOCUMENT_NUM%TYPE precision.');
3414: END IF;
3415:
3408: l_manual_po_number := l_manual_po_number || l_osp_order_number;
3409: EXCEPTION
3410: WHEN OTHERS THEN
3411: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
3413: 'l_manual_po_number exceeded PO_HEADERS_INTERFACE.DOCUMENT_NUM%TYPE precision.');
3414: END IF;
3415:
3416: CLOSE chk_manual_PO_Numbering;
3421: END;
3422: END IF;
3423: CLOSE chk_manual_PO_Numbering;
3424:
3425: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
3427: 'l_manual_po_number to be returned => '||l_manual_po_number);
3428: END IF;
3429:
3422: END IF;
3423: CLOSE chk_manual_PO_Numbering;
3424:
3425: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
3427: 'l_manual_po_number to be returned => '||l_manual_po_number);
3428: END IF;
3429:
3430: RETURN l_manual_po_number;