[Home] [Help]
375:
376: -- Standard start of API savepoint
377: SAVEPOINT Create_Purchase_Order_pvt;
378:
379: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
381: END IF;
382:
383: -- Standard call to check for call compatibility
376: -- Standard start of API savepoint
377: SAVEPOINT Create_Purchase_Order_pvt;
378:
379: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
381: END IF;
382:
383: -- Standard call to check for call compatibility
384: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
446: l_po_line_tbl(l_temp_num).TASK_ID;
447: EXIT WHEN l_osp_line_dtls_csr%NOTFOUND;
448:
449: -- Added by mpothuku on 10-oct-2007 to fix bug 6431740
450: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
452: ' Fetching from l_osp_line_dtls_csr. l_temp_num = ' || l_temp_num ||
453: ', OSP_LINE_ID = ' || l_po_line_tbl(l_temp_num).OSP_LINE_ID ||
454: ', WIP_ENTITY_ID = ' || l_po_line_tbl(l_temp_num).WIP_ENTITY_ID ||
447: EXIT WHEN l_osp_line_dtls_csr%NOTFOUND;
448:
449: -- Added by mpothuku on 10-oct-2007 to fix bug 6431740
450: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
452: ' Fetching from l_osp_line_dtls_csr. l_temp_num = ' || l_temp_num ||
453: ', OSP_LINE_ID = ' || l_po_line_tbl(l_temp_num).OSP_LINE_ID ||
454: ', WIP_ENTITY_ID = ' || l_po_line_tbl(l_temp_num).WIP_ENTITY_ID ||
455: ', PROJECT_ID = ' || l_po_line_tbl(l_temp_num).PROJECT_ID ||
526: -- Launch Concurrent Program to create PO
527: --dbms_output.put_line('About to call Concurrent program ');
528: Call_PDOI_Program(p_batch_id => l_batch_id,
529: x_request_id => l_request_id);
530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program Request Submitted. Request Id = ' || l_request_id);
532: END IF;
533: --dbms_output.put_line('Concurrent Program called. Request Id = ' || l_request_id);
534: -- Check if request was submitted without error
527: --dbms_output.put_line('About to call Concurrent program ');
528: Call_PDOI_Program(p_batch_id => l_batch_id,
529: x_request_id => l_request_id);
530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Concurrent Program Request Submitted. Request Id = ' || l_request_id);
532: END IF;
533: --dbms_output.put_line('Concurrent Program called. Request Id = ' || l_request_id);
534: -- Check if request was submitted without error
535: IF (l_request_id = 0) THEN
534: -- Check if request was submitted without error
535: IF (l_request_id = 0) THEN
536: -- Add Error Message generated by Concurrent Manager to Message List
537: FND_MSG_PUB.ADD;
538: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
540: END IF;
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
535: IF (l_request_id = 0) THEN
536: -- Add Error Message generated by Concurrent Manager to Message List
537: FND_MSG_PUB.ADD;
538: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
540: END IF;
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543:
554: x_request_id := l_request_id;
555: x_interface_header_id := l_intf_hdr_id;
556:
557: --dbms_output.put_line('Completed Processing ');
558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
560: END IF;
561: -- Check Error Message stack.
562: x_msg_count := FND_MSG_PUB.count_msg;
555: x_interface_header_id := l_intf_hdr_id;
556:
557: --dbms_output.put_line('Completed Processing ');
558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
560: END IF;
561: -- Check Error Message stack.
562: x_msg_count := FND_MSG_PUB.count_msg;
563: IF x_msg_count > 0 THEN
583: p_data => x_msg_data,
584: p_encoded => fnd_api.g_false
585: );
586:
587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
588: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
589: END IF;
590:
591: --dbms_output.put_line('About to return from procedure ');
584: p_encoded => fnd_api.g_false
585: );
586:
587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
588: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
589: END IF;
590:
591: --dbms_output.put_line('About to return from procedure ');
592: EXCEPTION
685: l_po_header_id NUMBER;
686:
687: BEGIN
688:
689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
691: END IF;
692:
693: -- Standard start of API savepoint
686:
687: BEGIN
688:
689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
691: END IF;
692:
693: -- Standard start of API savepoint
694: SAVEPOINT Associate_OSP_With_PO_pvt;
716: -- Validate OSP Order Id
717: IF (p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
718: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
719: FND_MSG_PUB.ADD;
720: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
722: END IF;
723: --dbms_output.put_line('OSP Order Id is null');
724: RAISE FND_API.G_EXC_ERROR;
717: IF (p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
718: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
719: FND_MSG_PUB.ADD;
720: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
722: END IF;
723: --dbms_output.put_line('OSP Order Id is null');
724: RAISE FND_API.G_EXC_ERROR;
725: ELSE
728: IF (l_validate_osp_csr%NOTFOUND) THEN
729: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
730: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
731: FND_MSG_PUB.ADD;
732: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
734: END IF;
735: CLOSE l_validate_osp_csr;
736: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
729: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
730: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
731: FND_MSG_PUB.ADD;
732: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
734: END IF;
735: CLOSE l_validate_osp_csr;
736: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
737: RAISE FND_API.G_EXC_ERROR;
735: CLOSE l_validate_osp_csr;
736: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
737: RAISE FND_API.G_EXC_ERROR;
738: ELSIF (l_po_header_id IS NOT NULL) THEN
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: 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);
741: END IF;
742: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
743: -- No need to throw an exception
736: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is invalid');
737: RAISE FND_API.G_EXC_ERROR;
738: ELSIF (l_po_header_id IS NOT NULL) THEN
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: 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);
741: END IF;
742: --dbms_output.put_line('OSP Order Id ' || p_osp_order_id || ' is already associated with PO ' || l_po_header_id);
743: -- No need to throw an exception
744: /*
757: END IF;
758: CLOSE l_validate_osp_csr;
759: END IF;
760:
761: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
763: END IF;
764: --dbms_output.put_line('Completed Processing. Checking for errors ');
765: -- Check Error Message stack.
758: CLOSE l_validate_osp_csr;
759: END IF;
760:
761: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
763: END IF;
764: --dbms_output.put_line('Completed Processing. Checking for errors ');
765: -- Check Error Message stack.
766: x_msg_count := FND_MSG_PUB.count_msg;
770:
771: -- Standard check of p_commit
772: IF FND_API.TO_BOOLEAN(p_commit) THEN
773: --dbms_output.put_line('About to commit');
774: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
775: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit');
776: END IF;
777: COMMIT WORK;
778: END IF;
771: -- Standard check of p_commit
772: IF FND_API.TO_BOOLEAN(p_commit) THEN
773: --dbms_output.put_line('About to commit');
774: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
775: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit');
776: END IF;
777: COMMIT WORK;
778: END IF;
779:
783: p_data => x_msg_data,
784: p_encoded => fnd_api.g_false
785: );
786:
787: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
788: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
789: END IF;
790: --dbms_output.put_line('About to return ');
791: EXCEPTION
784: p_encoded => fnd_api.g_false
785: );
786:
787: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
788: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
789: END IF;
790: --dbms_output.put_line('About to return ');
791: EXCEPTION
792: WHEN FND_API.G_EXC_ERROR THEN
873: l_po_header_id NUMBER;
874: l_temp_count NUMBER := 0;
875:
876: BEGIN
877: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
878: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
879: END IF;
880:
881: -- Standard start of API savepoint
874: l_temp_count NUMBER := 0;
875:
876: BEGIN
877: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
878: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
879: END IF;
880:
881: -- Standard start of API savepoint
882: SAVEPOINT Associate_All_OSP_POs_pvt;
906: FETCH l_get_osps_csr INTO l_osp_order_id;
907: EXIT WHEN l_get_osps_csr%NOTFOUND;
908: Associate_OSP_PO(p_osp_order_id => l_osp_order_id,
909: x_po_header_id => l_po_header_id);
910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: 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);
912: END IF;
913: l_temp_count := l_temp_count + 1;
914: END LOOP;
907: EXIT WHEN l_get_osps_csr%NOTFOUND;
908: Associate_OSP_PO(p_osp_order_id => l_osp_order_id,
909: x_po_header_id => l_po_header_id);
910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: 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);
912: END IF;
913: l_temp_count := l_temp_count + 1;
914: END LOOP;
915: --Added by jaramana on 7-JAN-2008
914: END LOOP;
915: --Added by jaramana on 7-JAN-2008
916: CLOSE l_get_osps_csr;
917: --jaramana End
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 ' || l_temp_count || ' OSP Orders with POs');
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
921: END IF;
922: -- Check Error Message stack.
915: --Added by jaramana on 7-JAN-2008
916: CLOSE l_get_osps_csr;
917: --jaramana End
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 ' || l_temp_count || ' OSP Orders with POs');
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
921: END IF;
922: -- Check Error Message stack.
923: x_msg_count := FND_MSG_PUB.count_msg;
916: CLOSE l_get_osps_csr;
917: --jaramana End
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 ' || l_temp_count || ' OSP Orders with POs');
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing. Checking for errors');
921: END IF;
922: -- Check Error Message stack.
923: x_msg_count := FND_MSG_PUB.count_msg;
924: IF x_msg_count > 0 THEN
926: END IF;
927:
928: -- Standard check of p_commit
929: IF FND_API.TO_BOOLEAN(p_commit) THEN
930: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
932: END IF;
933: COMMIT WORK;
934: END IF;
927:
928: -- Standard check of p_commit
929: IF FND_API.TO_BOOLEAN(p_commit) THEN
930: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
932: END IF;
933: COMMIT WORK;
934: END IF;
935:
939: p_data => x_msg_data,
940: p_encoded => fnd_api.g_false
941: );
942:
943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
945: END IF;
946:
947: EXCEPTION
940: p_encoded => fnd_api.g_false
941: );
942:
943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
945: END IF;
946:
947: EXCEPTION
948: WHEN FND_API.G_EXC_ERROR THEN
1024: l_api_name CONSTANT VARCHAR2(30) := 'PO_Synch_All_OSPs';
1025: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.PO_Synch_All_OSPs';
1026:
1027: BEGIN
1028: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. Operating Unit = ' || MO_GLOBAL.get_current_org_id());
1030: END IF;
1031:
1032: -- No need of a Savepoint: Individual procedures commit or rollback
1025: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.PO_Synch_All_OSPs';
1026:
1027: BEGIN
1028: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. Operating Unit = ' || MO_GLOBAL.get_current_org_id());
1030: END IF;
1031:
1032: -- No need of a Savepoint: Individual procedures commit or rollback
1033: -- within themselves.
1067: IF (p_concurrent_flag = 'Y') THEN
1068: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1069: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1070: END IF;
1071: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1072: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1073: END IF;
1074:
1075: /** The following calls to the Handle_Deleted_PO_Headers and Handle_Deleted_Sales_Orders
1068: fnd_file.put_line(fnd_file.log, 'Completed Associating OSPs with POs');
1069: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1070: END IF;
1071: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1072: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Associating OSPs with POs, Return Status = ' || x_return_status);
1073: END IF;
1074:
1075: /** The following calls to the Handle_Deleted_PO_Headers and Handle_Deleted_Sales_Orders
1076: * procedures were added by jaramana on March 31, 2006 to implement the ER 5074660
1081: IF (p_concurrent_flag = 'Y') THEN
1082: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1083: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1084: END IF;
1085: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1087: END IF;
1088:
1089: -- Handle Deleted Sales Orders
1082: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Headers');
1083: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1084: END IF;
1085: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Headers, Return Status = ' || x_return_status);
1087: END IF;
1088:
1089: -- Handle Deleted Sales Orders
1090: HANDLE_DELETED_SALES_ORDERS(p_commit => p_commit, --Commit this independent of other operations
1092: IF (p_concurrent_flag = 'Y') THEN
1093: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1094: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1095: END IF;
1096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1098: END IF;
1099:
1100: -- Handle Canceled POs
1093: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted Sales Orders');
1094: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1095: END IF;
1096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted Sales Orders, Return Status = ' || x_return_status);
1098: END IF;
1099:
1100: -- Handle Canceled POs
1101: HANDLE_CANCELLED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1103: IF (p_concurrent_flag = 'Y') THEN
1104: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1105: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1106: END IF;
1107: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1108: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1109: END IF;
1110:
1111: -- Handle Deleted PO Lines
1104: fnd_file.put_line(fnd_file.log, 'Completed Handling Cancelled PO Lines');
1105: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1106: END IF;
1107: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1108: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Cancelled PO Lines, Return Status = ' || x_return_status);
1109: END IF;
1110:
1111: -- Handle Deleted PO Lines
1112: HANDLE_DELETED_PO_LINES(p_commit => p_commit, --Commit this independent of other operations
1114: IF (p_concurrent_flag = 'Y') THEN
1115: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1116: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1117: END IF;
1118: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1120: END IF;
1121:
1122: -- Handle Approved POs
1115: fnd_file.put_line(fnd_file.log, 'Completed Handling Deleted PO Lines');
1116: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1117: END IF;
1118: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Deleted PO Lines, Return Status = ' || x_return_status);
1120: END IF;
1121:
1122: -- Handle Approved POs
1123: HANDLE_APPROVED_POs(p_commit => p_commit, --Commit this independent of other operations
1125: IF (p_concurrent_flag = 'Y') THEN
1126: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1127: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1128: END IF;
1129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1131: END IF;
1132:
1133: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1126: fnd_file.put_line(fnd_file.log, 'Completed Handling Approved POs');
1127: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1128: END IF;
1129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1131: END IF;
1132:
1133: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1134: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Handling Approved POs, Return Status = ' || x_return_status);
1131: END IF;
1132:
1133: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1134: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1135: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Purchase Orders. About to start processing Requisitions.');
1136: END IF;
1137: IF (p_concurrent_flag = 'Y') THEN
1138: 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.');
1131: END IF;
1132:
1133: -- Begin Changes by jaramana on January 7, 2008 for the Requisition ER 6034236
1134: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1135: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Purchase Orders. About to start processing Requisitions.');
1136: END IF;
1137: IF (p_concurrent_flag = 'Y') THEN
1138: 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;
1151: IF (p_concurrent_flag = 'Y') THEN
1152: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1153: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1154: END IF;
1155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: 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);
1157: END IF;
1158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1152: fnd_file.put_line(fnd_file.log, 'Completed processing Requisitions.');
1153: fnd_file.put_line(fnd_file.log, 'Return Status = ' || x_return_status);
1154: END IF;
1155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: 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);
1157: END IF;
1158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: 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);
1157: END IF;
1158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1161: END IF;
1162: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1163: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
1156: 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);
1157: END IF;
1158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_PO_REQ_PVT.PO_Synch_All_Requisitions Did not succeed');
1161: END IF;
1162: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1163: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
1164: ELSE
1164: ELSE
1165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- Rollback and return error
1166: END IF;
1167: END IF;
1168: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Requisitions. About to check for errors.');
1170: END IF;
1171: IF (p_concurrent_flag = 'Y') THEN
1172: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- Rollback and return error
1166: END IF;
1167: END IF;
1168: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Requisitions. About to check for errors.');
1170: END IF;
1171: IF (p_concurrent_flag = 'Y') THEN
1172: fnd_file.put_line(fnd_file.log, 'Completed Requisition Synch Process. Checking for errors');
1173: END IF;
1191: p_data => x_msg_data,
1192: p_encoded => fnd_api.g_false
1193: );
1194:
1195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1197: END IF;
1198:
1199: EXCEPTION
1192: p_encoded => fnd_api.g_false
1193: );
1194:
1195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1197: END IF;
1198:
1199: EXCEPTION
1200: WHEN FND_API.G_EXC_ERROR THEN
1207: p_encoded => fnd_api.g_false);
1208: IF (p_concurrent_flag = 'Y') THEN
1209: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1210: END IF;
1211: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1212: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Execution Exception: ' || x_msg_data);
1213: END IF;
1214:
1215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: IF (p_concurrent_flag = 'Y') THEN
1209: fnd_file.put_line(fnd_file.log, 'Caught Execution Exception: ' || x_msg_data);
1210: END IF;
1211: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1212: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Execution Exception: ' || x_msg_data);
1213: END IF;
1214:
1215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1216: -- No need to rollback: Individual procedures commit or rollback
1222: p_encoded => fnd_api.g_false);
1223: IF (p_concurrent_flag = 'Y') THEN
1224: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1225: END IF;
1226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1227: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unexpected Exception: ' || x_msg_data);
1228: END IF;
1229:
1230: WHEN OTHERS THEN
1223: IF (p_concurrent_flag = 'Y') THEN
1224: fnd_file.put_line(fnd_file.log, 'Caught Unexpected Exception: ' || x_msg_data);
1225: END IF;
1226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1227: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unexpected Exception: ' || x_msg_data);
1228: END IF;
1229:
1230: WHEN OTHERS THEN
1231: -- No need to rollback: Individual procedures commit or rollback
1242: p_encoded => fnd_api.g_false);
1243: IF (p_concurrent_flag = 'Y') THEN
1244: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1245: END IF;
1246: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unknown Exception: ' || x_msg_data);
1248: END IF;
1249:
1250: END PO_Synch_All_OSPs;
1243: IF (p_concurrent_flag = 'Y') THEN
1244: fnd_file.put_line(fnd_file.log, 'Caught Unknown Exception: ' || x_msg_data);
1245: END IF;
1246: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Caught Unknown Exception: ' || x_msg_data);
1248: END IF;
1249:
1250: END PO_Synch_All_OSPs;
1251: --------------------------------------
1273: BEGIN
1274: IF (p_po_header_id IS NULL OR p_po_header_id = FND_API.G_MISS_NUM) THEN
1275: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_NULL');
1276: FND_MSG_PUB.ADD;
1277: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1278: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1279: END IF;
1280: RETURN 'N';
1281: END IF;
1274: IF (p_po_header_id IS NULL OR p_po_header_id = FND_API.G_MISS_NUM) THEN
1275: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_NULL');
1276: FND_MSG_PUB.ADD;
1277: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1278: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1279: END IF;
1280: RETURN 'N';
1281: END IF;
1282: OPEN l_get_po_cstatus_csr(p_po_header_id);
1285: --Modified by mpothuku on 16-Nov-06 for fixing the Bug 5673483
1286: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_INVALID');
1287: FND_MESSAGE.Set_Token('PO_ID', p_po_header_id);
1288: FND_MSG_PUB.ADD;
1289: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1291: END IF;
1292: --This would mean that the PO is deleted from PO forms and we may need to do a Synch
1293: CLOSE l_get_po_cstatus_csr;
1286: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_PO_ID_INVALID');
1287: FND_MESSAGE.Set_Token('PO_ID', p_po_header_id);
1288: FND_MSG_PUB.ADD;
1289: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1291: END IF;
1292: --This would mean that the PO is deleted from PO forms and we may need to do a Synch
1293: CLOSE l_get_po_cstatus_csr;
1294: RETURN 'N';
1387: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Validate_PO_Header';
1388:
1389: BEGIN
1390:
1391: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1392: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1393: END IF;
1394:
1395: -- OSP Order Id
1388:
1389: BEGIN
1390:
1391: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1392: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1393: END IF;
1394:
1395: -- OSP Order Id
1396: IF (p_po_header_rec.OSP_ORDER_ID IS NULL OR p_po_header_rec.OSP_ORDER_ID = FND_API.G_MISS_NUM) THEN
1395: -- OSP Order Id
1396: IF (p_po_header_rec.OSP_ORDER_ID IS NULL OR p_po_header_rec.OSP_ORDER_ID = FND_API.G_MISS_NUM) THEN
1397: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
1398: FND_MSG_PUB.ADD;
1399: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1401: END IF;
1402: ELSE
1403: OPEN l_validate_osp_csr(p_po_header_rec.OSP_ORDER_ID);
1396: IF (p_po_header_rec.OSP_ORDER_ID IS NULL OR p_po_header_rec.OSP_ORDER_ID = FND_API.G_MISS_NUM) THEN
1397: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_NULL');
1398: FND_MSG_PUB.ADD;
1399: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1401: END IF;
1402: ELSE
1403: OPEN l_validate_osp_csr(p_po_header_rec.OSP_ORDER_ID);
1404: FETCH l_validate_osp_csr INTO l_dummy;
1405: IF (l_validate_osp_csr%NOTFOUND) THEN
1406: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
1407: FND_MESSAGE.Set_Token('OSP_ID', p_po_header_rec.OSP_ORDER_ID);
1408: FND_MSG_PUB.ADD;
1409: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1411: END IF;
1412: END IF;
1413: CLOSE l_validate_osp_csr;
1406: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
1407: FND_MESSAGE.Set_Token('OSP_ID', p_po_header_rec.OSP_ORDER_ID);
1408: FND_MSG_PUB.ADD;
1409: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1410: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1411: END IF;
1412: END IF;
1413: CLOSE l_validate_osp_csr;
1414: END IF;
1416: -- Supplier
1417: IF (p_po_header_rec.VENDOR_ID IS NULL OR p_po_header_rec.VENDOR_ID = FND_API.G_MISS_NUM) THEN
1418: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPPLIER_ID_NULL');
1419: FND_MSG_PUB.ADD;
1420: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1422: END IF;
1423: ELSE
1424: OPEN l_validate_supplier_csr(p_po_header_rec.VENDOR_ID);
1417: IF (p_po_header_rec.VENDOR_ID IS NULL OR p_po_header_rec.VENDOR_ID = FND_API.G_MISS_NUM) THEN
1418: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPPLIER_ID_NULL');
1419: FND_MSG_PUB.ADD;
1420: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1422: END IF;
1423: ELSE
1424: OPEN l_validate_supplier_csr(p_po_header_rec.VENDOR_ID);
1425: FETCH l_validate_supplier_csr INTO l_dummy;
1426: IF (l_validate_supplier_csr%NOTFOUND) THEN
1427: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPP_INVALID');
1428: FND_MESSAGE.Set_Token('SUPP_ID', p_po_header_rec.VENDOR_ID);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1432: END IF;
1433: END IF;
1434: CLOSE l_validate_supplier_csr;
1427: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SUPP_INVALID');
1428: FND_MESSAGE.Set_Token('SUPP_ID', p_po_header_rec.VENDOR_ID);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1432: END IF;
1433: END IF;
1434: CLOSE l_validate_supplier_csr;
1435: END IF;
1437: -- Supplier Site
1438: IF (p_po_header_rec.VENDOR_SITE_ID IS NULL OR p_po_header_rec.VENDOR_SITE_ID = FND_API.G_MISS_NUM) THEN
1439: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_ID_NULL');
1440: FND_MSG_PUB.ADD;
1441: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1443: END IF;
1444: ELSE
1445: OPEN l_validate_supp_site_csr(p_po_header_rec.VENDOR_SITE_ID, p_po_header_rec.VENDOR_ID);
1438: IF (p_po_header_rec.VENDOR_SITE_ID IS NULL OR p_po_header_rec.VENDOR_SITE_ID = FND_API.G_MISS_NUM) THEN
1439: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_ID_NULL');
1440: FND_MSG_PUB.ADD;
1441: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1443: END IF;
1444: ELSE
1445: OPEN l_validate_supp_site_csr(p_po_header_rec.VENDOR_SITE_ID, p_po_header_rec.VENDOR_ID);
1446: FETCH l_validate_supp_site_csr INTO l_dummy;
1447: IF (l_validate_supp_site_csr%NOTFOUND) THEN
1448: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_INVALID');
1449: FND_MESSAGE.Set_Token('SS_ID', p_po_header_rec.VENDOR_SITE_ID);
1450: FND_MSG_PUB.ADD;
1451: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1453: END IF;
1454: END IF;
1455: CLOSE l_validate_supp_site_csr;
1448: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SSITE_INVALID');
1449: FND_MESSAGE.Set_Token('SS_ID', p_po_header_rec.VENDOR_SITE_ID);
1450: FND_MSG_PUB.ADD;
1451: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1453: END IF;
1454: END IF;
1455: CLOSE l_validate_supp_site_csr;
1456: END IF;
1463: IF (l_validate_vendor_contact_csr%NOTFOUND) THEN
1464: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_VCONTACT_INVALID');
1465: FND_MESSAGE.Set_Token('V_CONTACT_ID', p_po_header_rec.VENDOR_CONTACT_ID);
1466: FND_MSG_PUB.ADD;
1467: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1468: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1469: END IF;
1470: END IF;
1471: CLOSE l_validate_vendor_contact_csr;
1464: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_VCONTACT_INVALID');
1465: FND_MESSAGE.Set_Token('V_CONTACT_ID', p_po_header_rec.VENDOR_CONTACT_ID);
1466: FND_MSG_PUB.ADD;
1467: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1468: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1469: END IF;
1470: END IF;
1471: CLOSE l_validate_vendor_contact_csr;
1472: END IF;
1475: -- Buyer
1476: IF (p_po_header_rec.BUYER_ID IS NULL OR p_po_header_rec.BUYER_ID = FND_API.G_MISS_NUM) THEN
1477: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_ID_NULL');
1478: FND_MSG_PUB.ADD;
1479: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1480: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1481: END IF;
1482: ELSE
1483: OPEN l_validate_buyer_csr(p_po_header_rec.BUYER_ID);
1476: IF (p_po_header_rec.BUYER_ID IS NULL OR p_po_header_rec.BUYER_ID = FND_API.G_MISS_NUM) THEN
1477: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_ID_NULL');
1478: FND_MSG_PUB.ADD;
1479: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1480: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1481: END IF;
1482: ELSE
1483: OPEN l_validate_buyer_csr(p_po_header_rec.BUYER_ID);
1484: FETCH l_validate_buyer_csr INTO l_dummy;
1485: IF (l_validate_buyer_csr%NOTFOUND) THEN
1486: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_INVALID');
1487: FND_MESSAGE.Set_Token('BUYER_ID', p_po_header_rec.BUYER_ID);
1488: FND_MSG_PUB.ADD;
1489: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1490: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1491: END IF;
1492: END IF;
1493: CLOSE l_validate_buyer_csr;
1486: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_BUYER_INVALID');
1487: FND_MESSAGE.Set_Token('BUYER_ID', p_po_header_rec.BUYER_ID);
1488: FND_MSG_PUB.ADD;
1489: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1490: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1491: END IF;
1492: END IF;
1493: CLOSE l_validate_buyer_csr;
1494: END IF;
1492: END IF;
1493: CLOSE l_validate_buyer_csr;
1494: END IF;
1495:
1496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1498: END IF;
1499:
1500: END Validate_PO_Header;
1493: CLOSE l_validate_buyer_csr;
1494: END IF;
1495:
1496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1498: END IF;
1499:
1500: END Validate_PO_Header;
1501:
1528: l_org_id NUMBER := NULL;
1529: l_dummy VARCHAR2(1);
1530:
1531: BEGIN
1532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1533: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1534: END IF;
1535:
1536: -- Get the current Org
1529: l_dummy VARCHAR2(1);
1530:
1531: BEGIN
1532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1533: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1534: END IF;
1535:
1536: -- Get the current Org
1537: l_org_id := MO_GLOBAL.get_current_org_id();
1538:
1539: IF (l_org_id IS NULL) THEN
1540: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
1541: FND_MSG_PUB.ADD;
1542: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1543: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
1544: END IF;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: END IF;
1539: IF (l_org_id IS NULL) THEN
1540: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
1541: FND_MSG_PUB.ADD;
1542: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1543: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
1544: END IF;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: END IF;
1547:
1549: -- Non zero count
1550: IF (p_po_line_tbl.COUNT = 0) THEN
1551: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NO_PO_LINES');
1552: FND_MSG_PUB.ADD;
1553: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1555: END IF;
1556: RETURN; -- Cannot do any further validation
1557: END IF;
1550: IF (p_po_line_tbl.COUNT = 0) THEN
1551: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NO_PO_LINES');
1552: FND_MSG_PUB.ADD;
1553: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1555: END IF;
1556: RETURN; -- Cannot do any further validation
1557: END IF;
1558:
1567: IF (l_validate_item_csr%NOTFOUND) THEN
1568: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ITEM_INVALID');
1569: FND_MESSAGE.Set_Token('ITEM', p_po_line_tbl(i).ITEM_ID);
1570: FND_MSG_PUB.ADD;
1571: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1572: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1573: END IF;
1574: END IF;
1575: CLOSE l_validate_item_csr;
1568: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ITEM_INVALID');
1569: FND_MESSAGE.Set_Token('ITEM', p_po_line_tbl(i).ITEM_ID);
1570: FND_MSG_PUB.ADD;
1571: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1572: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1573: END IF;
1574: END IF;
1575: CLOSE l_validate_item_csr;
1576: ELSE
1577: -- One-time Item: Description is mandatory
1578: IF (TRIM(p_po_line_tbl(i).ITEM_DESCRIPTION) IS NULL OR p_po_line_tbl(i).ITEM_DESCRIPTION = FND_API.G_MISS_CHAR) THEN
1579: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_IDESC_NULL');
1580: FND_MSG_PUB.ADD;
1581: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1583: END IF;
1584: END IF;
1585: -- One-time Item: UOM is mandatory
1578: IF (TRIM(p_po_line_tbl(i).ITEM_DESCRIPTION) IS NULL OR p_po_line_tbl(i).ITEM_DESCRIPTION = FND_API.G_MISS_CHAR) THEN
1579: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_IDESC_NULL');
1580: FND_MSG_PUB.ADD;
1581: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1583: END IF;
1584: END IF;
1585: -- One-time Item: UOM is mandatory
1586: IF (TRIM(p_po_line_tbl(i).UOM_CODE) IS NULL OR p_po_line_tbl(i).UOM_CODE = FND_API.G_MISS_CHAR) THEN
1585: -- One-time Item: UOM is mandatory
1586: IF (TRIM(p_po_line_tbl(i).UOM_CODE) IS NULL OR p_po_line_tbl(i).UOM_CODE = FND_API.G_MISS_CHAR) THEN
1587: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_UOM_CODE_NULL');
1588: FND_MSG_PUB.ADD;
1589: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1590: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1591: END IF;
1592: END IF;
1593: END IF;
1586: IF (TRIM(p_po_line_tbl(i).UOM_CODE) IS NULL OR p_po_line_tbl(i).UOM_CODE = FND_API.G_MISS_CHAR) THEN
1587: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_UOM_CODE_NULL');
1588: FND_MSG_PUB.ADD;
1589: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1590: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1591: END IF;
1592: END IF;
1593: END IF;
1594:
1595: -- Quantity
1596: IF (p_po_line_tbl(i).QUANTITY IS NULL OR p_po_line_tbl(i).QUANTITY = FND_API.G_MISS_NUM) THEN
1597: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_NULL');
1598: FND_MSG_PUB.ADD;
1599: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1601: END IF;
1602: ELSE
1603: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1596: IF (p_po_line_tbl(i).QUANTITY IS NULL OR p_po_line_tbl(i).QUANTITY = FND_API.G_MISS_NUM) THEN
1597: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_NULL');
1598: FND_MSG_PUB.ADD;
1599: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1601: END IF;
1602: ELSE
1603: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1604: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
1603: IF (p_po_line_tbl(i).QUANTITY <= 0) THEN
1604: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
1605: FND_MESSAGE.Set_Token('QUANTITY', p_po_line_tbl(i).QUANTITY);
1606: FND_MSG_PUB.ADD;
1607: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1609: END IF;
1610: END IF;
1611: END IF;
1604: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_QUANTITY_INVALID');
1605: FND_MESSAGE.Set_Token('QUANTITY', p_po_line_tbl(i).QUANTITY);
1606: FND_MSG_PUB.ADD;
1607: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1609: END IF;
1610: END IF;
1611: END IF;
1612:
1613: -- Need By Date
1614: IF (p_po_line_tbl(i).NEED_BY_DATE IS NULL OR p_po_line_tbl(i).NEED_BY_DATE = FND_API.G_MISS_DATE) THEN
1615: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NEED_BY_DATE_NULL');
1616: FND_MSG_PUB.ADD;
1617: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1619: END IF;
1620: ELSE
1621: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1614: IF (p_po_line_tbl(i).NEED_BY_DATE IS NULL OR p_po_line_tbl(i).NEED_BY_DATE = FND_API.G_MISS_DATE) THEN
1615: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NEED_BY_DATE_NULL');
1616: FND_MSG_PUB.ADD;
1617: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1619: END IF;
1620: ELSE
1621: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1622: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
1621: IF (TRUNC(p_po_line_tbl(i).NEED_BY_DATE) < TRUNC(SYSDATE)) THEN
1622: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
1623: FND_MESSAGE.Set_Token('NBDATE', p_po_line_tbl(i).NEED_BY_DATE);
1624: FND_MSG_PUB.ADD;
1625: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1626: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1627: END IF;
1628: END IF;
1629: END IF;
1622: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_NBDATE_INVALID');
1623: FND_MESSAGE.Set_Token('NBDATE', p_po_line_tbl(i).NEED_BY_DATE);
1624: FND_MSG_PUB.ADD;
1625: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1626: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1627: END IF;
1628: END IF;
1629: END IF;
1630:
1631: -- Ship To Organization
1632: IF (p_po_line_tbl(i).SHIP_TO_ORG_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_ORG_ID = FND_API.G_MISS_NUM) THEN
1633: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_ORG_NULL');
1634: FND_MSG_PUB.ADD;
1635: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1637: END IF;
1638: END IF;
1639:
1632: IF (p_po_line_tbl(i).SHIP_TO_ORG_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_ORG_ID = FND_API.G_MISS_NUM) THEN
1633: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_ORG_NULL');
1634: FND_MSG_PUB.ADD;
1635: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1637: END IF;
1638: END IF;
1639:
1640: -- Commented out by jaramana on May 27, 2005 for Inventory Service Orders.
1645: /***
1646: IF (p_po_line_tbl(i).SHIP_TO_LOC_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_LOC_ID = FND_API.G_MISS_NUM) THEN
1647: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_LOC_NULL');
1648: FND_MSG_PUB.ADD;
1649: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1650: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1651: END IF;
1652: END IF;
1653: ***/
1646: IF (p_po_line_tbl(i).SHIP_TO_LOC_ID IS NULL OR p_po_line_tbl(i).SHIP_TO_LOC_ID = FND_API.G_MISS_NUM) THEN
1647: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_SHIP_TO_LOC_NULL');
1648: FND_MSG_PUB.ADD;
1649: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1650: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1651: END IF;
1652: END IF;
1653: ***/
1654: -- Line Type
1654: -- Line Type
1655: IF (p_po_line_tbl(i).PO_LINE_TYPE_ID IS NULL OR p_po_line_tbl(i).PO_LINE_TYPE_ID = FND_API.G_MISS_NUM) THEN
1656: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_NULL');
1657: FND_MSG_PUB.ADD;
1658: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1660: END IF;
1661: ELSE
1662: OPEN l_validate_line_type_csr(p_po_line_tbl(i).PO_LINE_TYPE_ID);
1655: IF (p_po_line_tbl(i).PO_LINE_TYPE_ID IS NULL OR p_po_line_tbl(i).PO_LINE_TYPE_ID = FND_API.G_MISS_NUM) THEN
1656: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_NULL');
1657: FND_MSG_PUB.ADD;
1658: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1660: END IF;
1661: ELSE
1662: OPEN l_validate_line_type_csr(p_po_line_tbl(i).PO_LINE_TYPE_ID);
1663: FETCH l_validate_line_type_csr INTO l_dummy;
1664: IF (l_validate_line_type_csr%NOTFOUND) THEN
1665: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_INVALID');
1666: FND_MESSAGE.Set_Token('LINE_TYPE_ID', p_po_line_tbl(i).PO_LINE_TYPE_ID);
1667: FND_MSG_PUB.ADD;
1668: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1670: END IF;
1671: END IF;
1672: CLOSE l_validate_line_type_csr;
1665: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_LN_TYPE_ID_INVALID');
1666: FND_MESSAGE.Set_Token('LINE_TYPE_ID', p_po_line_tbl(i).PO_LINE_TYPE_ID);
1667: FND_MSG_PUB.ADD;
1668: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1670: END IF;
1671: END IF;
1672: CLOSE l_validate_line_type_csr;
1673: END IF;
1672: CLOSE l_validate_line_type_csr;
1673: END IF;
1674:
1675: END LOOP;
1676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1678: END IF;
1679: END Validate_PO_Lines;
1680:
1673: END IF;
1674:
1675: END LOOP;
1676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1678: END IF;
1679: END Validate_PO_Lines;
1680:
1681: ----------------------------------------
1702:
1703: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Header';
1704:
1705: BEGIN
1706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1708: END IF;
1709: -- Get Batch Id
1710: /*
1703: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Header';
1704:
1705: BEGIN
1706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1708: END IF;
1709: -- Get Batch Id
1710: /*
1711: SELECT NVL(MAX(batch_id), 0) + 1 INTO l_batch_id FROM po_headers_interface;
1736: SELECT invoice_currency_code INTO l_temp_v FROM po_vendor_sites
1737: WHERE vendor_site_id = p_po_header_rec.vendor_site_id AND
1738: vendor_id = p_po_header_rec.vendor_id;
1739: IF(l_temp_v IS NULL) THEN
1740: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1741: 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);
1742: END IF;
1743: -- If not check if available at vendor level
1744: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1737: WHERE vendor_site_id = p_po_header_rec.vendor_site_id AND
1738: vendor_id = p_po_header_rec.vendor_id;
1739: IF(l_temp_v IS NULL) THEN
1740: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1741: 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);
1742: END IF;
1743: -- If not check if available at vendor level
1744: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1745: WHERE vendor_id = p_po_header_rec.vendor_id;
1743: -- If not check if available at vendor level
1744: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1745: WHERE vendor_id = p_po_header_rec.vendor_id;
1746: IF(l_temp_v IS NULL) THEN
1747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1748: 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.');
1749: END IF;
1750: -- If not, get currency from set_of_books and set l_currency_code
1751: SELECT GSB.currency_code INTO l_currency_code
1744: SELECT invoice_currency_code INTO l_temp_v FROM po_vendors
1745: WHERE vendor_id = p_po_header_rec.vendor_id;
1746: IF(l_temp_v IS NULL) THEN
1747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1748: 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.');
1749: END IF;
1750: -- If not, get currency from set_of_books and set l_currency_code
1751: SELECT GSB.currency_code INTO l_currency_code
1752: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1750: -- If not, get currency from set_of_books and set l_currency_code
1751: SELECT GSB.currency_code INTO l_currency_code
1752: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1753: WHERE FSP.set_of_books_id = GSB.set_of_books_id;
1754: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1755: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got currency from Set Of Books: ' || l_currency_code);
1756: END IF;
1757: END IF;
1758: END IF;
1751: SELECT GSB.currency_code INTO l_currency_code
1752: FROM FINANCIALS_SYSTEM_PARAMETERS FSP, GL_SETS_OF_BOOKS GSB
1753: WHERE FSP.set_of_books_id = GSB.set_of_books_id;
1754: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1755: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got currency from Set Of Books: ' || l_currency_code);
1756: END IF;
1757: END IF;
1758: END IF;
1759: EXCEPTION
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_CURRENCY_NOT_SET');
1762: FND_MSG_PUB.ADD;
1763: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1765: END IF;
1766: RAISE;
1767: END;
1760: WHEN OTHERS THEN
1761: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_CURRENCY_NOT_SET');
1762: FND_MSG_PUB.ADD;
1763: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
1765: END IF;
1766: RAISE;
1767: END;
1768:
1809: -- Set Output parameters
1810: x_intf_header_id := l_intf_hdr_id;
1811: x_batch_id := l_batch_id;
1812:
1813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1815: END IF;
1816:
1817: END Insert_PO_Header;
1810: x_intf_header_id := l_intf_hdr_id;
1811: x_batch_id := l_batch_id;
1812:
1813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1815: END IF;
1816:
1817: END Insert_PO_Header;
1818:
1870: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Insert_PO_Lines';
1871:
1872: BEGIN
1873:
1874: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1875: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1876: END IF;
1877:
1878: -- Get the current Org to get Item Price
1871:
1872: BEGIN
1873:
1874: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1875: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1876: END IF;
1877:
1878: -- Get the current Org to get Item Price
1879: l_org_id := MO_GLOBAL.get_current_org_id();
1953: END IF;
1954:
1955: --Fix for the Bug 6436184
1956: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1959: 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'));
1960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1961: END IF;
1954:
1955: --Fix for the Bug 6436184
1956: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1959: 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'));
1960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1961: END IF;
1962: --mpothuku End
1955: --Fix for the Bug 6436184
1956: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1959: 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'));
1960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1961: END IF;
1962: --mpothuku End
1963:
1956: l_charge_acct_id := get_charge_account_id(p_po_line_tbl(i).SHIP_TO_ORG_ID, p_po_line_tbl(i).ITEM_ID);
1957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id before inserting: '|| l_charge_acct_id);
1959: 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'));
1960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_expenditure_item_type : '|| l_expenditure_item_type);
1961: END IF;
1962: --mpothuku End
1963:
1964: INSERT INTO PO_DISTRIBUTIONS_INTERFACE (
2001: ,l_task_completion_date
2002: ,l_charge_acct_id
2003: );
2004: --Added by mpothuku on 10-oct-2007 to fix bug 6431740
2005: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2006: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2007: ' Inserting into PO_DISTRIBUTIONS_INTERFACE. INTERFACE_HEADER_ID = ' || p_intf_header_id ||
2008: ', INTERFACE_LINE_ID = ' || l_intf_line_id ||
2009: ', WIP_ENTITY_ID = ' || p_po_line_tbl(i).wip_entity_id ||
2002: ,l_charge_acct_id
2003: );
2004: --Added by mpothuku on 10-oct-2007 to fix bug 6431740
2005: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2006: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2007: ' Inserting into PO_DISTRIBUTIONS_INTERFACE. INTERFACE_HEADER_ID = ' || p_intf_header_id ||
2008: ', INTERFACE_LINE_ID = ' || l_intf_line_id ||
2009: ', WIP_ENTITY_ID = ' || p_po_line_tbl(i).wip_entity_id ||
2010: ', PROJECT_ID = ' || p_po_line_tbl(i).project_id ||
2014: ', EXPENDITURE_ITEM_DATE = ' || to_char(l_task_completion_date, 'DD-MON-YYYY HH24:MI:SS'));
2015: END IF;
2016: END IF;
2017: END LOOP;
2018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2020: END IF;
2021: END Insert_PO_Lines;
2022:
2015: END IF;
2016: END IF;
2017: END LOOP;
2018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2020: END IF;
2021: END Insert_PO_Lines;
2022:
2023: ----------------------------------------
2050: argument9 => NULL, --Org Id
2051: argument10 => NULL --global agreement flag
2052: );
2053:
2054: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Request Submitted. Request Id = ' || x_request_id);
2056: END IF;
2057: END Call_PDOI_Program;
2058:
2051: argument10 => NULL --global agreement flag
2052: );
2053:
2054: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Request Submitted. Request Id = ' || x_request_id);
2056: END IF;
2057: END Call_PDOI_Program;
2058:
2059: ----------------------------------------
2131: l_message VARCHAR2(1000);
2132: l_retval BOOLEAN;
2133:
2134: BEGIN
2135: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2136: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2137: END IF;
2138:
2139: OPEN l_get_po_hdr_csr(p_osp_order_id);
2132: l_retval BOOLEAN;
2133:
2134: BEGIN
2135: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2136: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2137: END IF;
2138:
2139: OPEN l_get_po_hdr_csr(p_osp_order_id);
2140: FETCH l_get_po_hdr_csr INTO x_po_header_id;
2164: Set_PO_Line_Id(p_osp_order_line_id => l_osp_order_line_id,
2165: p_po_line_id => l_po_line_id);
2166: ELSE
2167: --dbms_output.put_line('OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line.');
2168: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: 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');
2170: END IF;
2171: END IF;
2172: CLOSE l_get_po_line_csr;
2165: p_po_line_id => l_po_line_id);
2166: ELSE
2167: --dbms_output.put_line('OSP Line Id ' || l_osp_order_line_id || ' is not yet associated with a PO Line.');
2168: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: 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');
2170: END IF;
2171: END IF;
2172: CLOSE l_get_po_line_csr;
2173: END LOOP;
2196: -- but the PO Header is not set
2197: IF ((l_retval = TRUE) AND (l_dev_phase = 'COMPLETE')) THEN
2198: -- Abnormal Termination
2199: --dbms_output.put_line('Concurrent Program has completed. Setting Status to SUBMISSION_FAILED.');
2200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: 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);
2202: END IF;
2203: -- Set the Status of OSP Order to Submission Failed
2204: Set_Submission_Failed(p_osp_order_id);
2197: IF ((l_retval = TRUE) AND (l_dev_phase = 'COMPLETE')) THEN
2198: -- Abnormal Termination
2199: --dbms_output.put_line('Concurrent Program has completed. Setting Status to SUBMISSION_FAILED.');
2200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: 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);
2202: END IF;
2203: -- Set the Status of OSP Order to Submission Failed
2204: Set_Submission_Failed(p_osp_order_id);
2205: END IF;
2206: END IF;
2207: END IF;
2208: CLOSE l_get_po_hdr_csr;
2209: --dbms_output.put_line('About to exit Associate_OSP_PO ');
2210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2212: END IF;
2213: END Associate_OSP_PO;
2214:
2207: END IF;
2208: CLOSE l_get_po_hdr_csr;
2209: --dbms_output.put_line('About to exit Associate_OSP_PO ');
2210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2212: END IF;
2213: END Associate_OSP_PO;
2214:
2215: ----------------------------------------
2253: l_osp_obj_ver_num NUMBER;
2254: l_ol_obj_ver_num NUMBER;
2255:
2256: BEGIN
2257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2259: END IF;
2260: -- Standard start of API savepoint
2261: SAVEPOINT Handle_Cancelled_PO_Lines_pvt;
2254: l_ol_obj_ver_num NUMBER;
2255:
2256: BEGIN
2257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2259: END IF;
2260: -- Standard start of API savepoint
2261: SAVEPOINT Handle_Cancelled_PO_Lines_pvt;
2262:
2273: EXIT WHEN l_get_cancelled_po_lines_csr%NOTFOUND;
2274: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2275: IF (l_prev_osp_order_id <> -1) THEN
2276: -- Cancel all OSP Lines pertaining to the previous OSP Order
2277: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2278: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2279: END IF;
2280: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2281: p_init_msg_list => FND_API.G_FALSE,
2274: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2275: IF (l_prev_osp_order_id <> -1) THEN
2276: -- Cancel all OSP Lines pertaining to the previous OSP Order
2277: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2278: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2279: END IF;
2280: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2281: p_init_msg_list => FND_API.G_FALSE,
2282: p_commit => FND_API.G_FALSE,
2286: x_return_status => l_return_status,
2287: x_msg_count => l_msg_count,
2288: x_msg_data => l_msg_data);
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2291: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2292: END IF;
2293: l_commit_flag := false;
2294: END IF;
2287: x_msg_count => l_msg_count,
2288: x_msg_data => l_msg_data);
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2291: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2292: END IF;
2293: l_commit_flag := false;
2294: END IF;
2295: -- Delete table used by prior call
2314: END LOOP;
2315: CLOSE l_get_cancelled_po_lines_csr;
2316: IF (l_prev_osp_order_id <> -1) THEN
2317: -- Save the Last Cancellation
2318: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2319: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2320: END IF;
2321: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2322: p_init_msg_list => FND_API.G_FALSE,
2315: CLOSE l_get_cancelled_po_lines_csr;
2316: IF (l_prev_osp_order_id <> -1) THEN
2317: -- Save the Last Cancellation
2318: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2319: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Cancelling OSP Line for Order ' || l_prev_osp_order_id);
2320: END IF;
2321: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2322: p_init_msg_list => FND_API.G_FALSE,
2323: p_commit => FND_API.G_FALSE,
2327: x_return_status => l_return_status,
2328: x_msg_count => l_msg_count,
2329: x_msg_data => l_msg_data);
2330: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2333: END IF;
2334: l_commit_flag := false;
2335: END IF;
2328: x_msg_count => l_msg_count,
2329: x_msg_data => l_msg_data);
2330: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Cancelling OSP Line for OSP Order ' || l_prev_osp_order_id);
2333: END IF;
2334: l_commit_flag := false;
2335: END IF;
2336: END IF;
2338: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2339: END IF;
2340: -- No errors in current procedure: Check only passed in flag
2341: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2342: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2344: END IF;
2345: COMMIT WORK;
2346: END IF;
2339: END IF;
2340: -- No errors in current procedure: Check only passed in flag
2341: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2342: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2344: END IF;
2345: COMMIT WORK;
2346: END IF;
2347: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2344: END IF;
2345: COMMIT WORK;
2346: END IF;
2347: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2348: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2349: END IF;
2350: EXCEPTION
2351: WHEN FND_API.G_EXC_ERROR THEN
2344: END IF;
2345: COMMIT WORK;
2346: END IF;
2347: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2348: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2349: END IF;
2350: EXCEPTION
2351: WHEN FND_API.G_EXC_ERROR THEN
2352: ROLLBACK TO Handle_Cancelled_PO_Lines_pvt;
2403: l_osp_obj_ver_num NUMBER;
2404: l_ol_obj_ver_num NUMBER;
2405:
2406: BEGIN
2407: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2408: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2409: END IF;
2410: -- Standard start of API savepoint
2411: SAVEPOINT Handle_Deleted_PO_Lines_pvt;
2404: l_ol_obj_ver_num NUMBER;
2405:
2406: BEGIN
2407: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2408: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2409: END IF;
2410: -- Standard start of API savepoint
2411: SAVEPOINT Handle_Deleted_PO_Lines_pvt;
2412:
2422: EXIT WHEN l_get_deleted_po_lines_csr%NOTFOUND;
2423: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2424: IF (l_prev_osp_order_id <> -1) THEN
2425: -- PO Delete all OSP Lines pertaining to the previous OSP Order
2426: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2428: END IF;
2429: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2430: p_init_msg_list => FND_API.G_FALSE,
2423: IF (l_osp_order_id <> l_prev_osp_order_id) THEN
2424: IF (l_prev_osp_order_id <> -1) THEN
2425: -- PO Delete all OSP Lines pertaining to the previous OSP Order
2426: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2428: END IF;
2429: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2430: p_init_msg_list => FND_API.G_FALSE,
2431: p_commit => FND_API.G_FALSE,
2435: x_return_status => l_return_status,
2436: x_msg_count => l_msg_count,
2437: x_msg_data => l_msg_data);
2438: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2439: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2440: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2441: END IF;
2442: l_commit_flag := false;
2443: END IF;
2436: x_msg_count => l_msg_count,
2437: x_msg_data => l_msg_data);
2438: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2439: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2440: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2441: END IF;
2442: l_commit_flag := false;
2443: END IF;
2444: -- Delete table used by prior call
2462: END LOOP;
2463: CLOSE l_get_deleted_po_lines_csr;
2464: IF (l_prev_osp_order_id <> -1) THEN
2465: -- Save the Last Deletion
2466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2468: END IF;
2469: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2470: p_init_msg_list => FND_API.G_FALSE,
2463: CLOSE l_get_deleted_po_lines_csr;
2464: IF (l_prev_osp_order_id <> -1) THEN
2465: -- Save the Last Deletion
2466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line for Order ' || l_prev_osp_order_id);
2468: END IF;
2469: AHL_OSP_ORDERS_PVT.process_osp_order(p_api_version => 1.0,
2470: p_init_msg_list => FND_API.G_FALSE,
2471: p_commit => FND_API.G_FALSE,
2475: x_return_status => l_return_status,
2476: x_msg_count => l_msg_count,
2477: x_msg_data => l_msg_data);
2478: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2481: END IF;
2482: l_commit_flag := false;
2483: END IF;
2476: x_msg_count => l_msg_count,
2477: x_msg_data => l_msg_data);
2478: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error while Deleting OSP Line for OSP Order ' || l_prev_osp_order_id);
2481: END IF;
2482: l_commit_flag := false;
2483: END IF;
2484: END IF;
2487: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2488: END IF;
2489: -- No errors in current procedure: Check only passed in flag
2490: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2491: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2492: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2493: END IF;
2494: COMMIT WORK;
2495: END IF;
2488: END IF;
2489: -- No errors in current procedure: Check only passed in flag
2490: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2491: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2492: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2493: END IF;
2494: COMMIT WORK;
2495: END IF;
2496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2492: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2493: END IF;
2494: COMMIT WORK;
2495: END IF;
2496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2498: END IF;
2499: EXCEPTION
2500: WHEN FND_API.G_EXC_ERROR THEN
2493: END IF;
2494: COMMIT WORK;
2495: END IF;
2496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2498: END IF;
2499: EXCEPTION
2500: WHEN FND_API.G_EXC_ERROR THEN
2501: ROLLBACK TO Handle_Deleted_PO_Lines_pvt;
2548:
2549: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2550:
2551: BEGIN
2552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2553: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2554: END IF;
2555: -- Standard start of API savepoint
2556: SAVEPOINT Handle_Approved_POs_pvt;
2549: l_shipment_IDs_Tbl AHL_OSP_SHIPMENT_PUB.Ship_ID_Tbl_Type;
2550:
2551: BEGIN
2552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2553: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2554: END IF;
2555: -- Standard start of API savepoint
2556: SAVEPOINT Handle_Approved_POs_pvt;
2557:
2567: IF (l_oe_header_id IS NOT NULL) THEN
2568: l_temp_num := l_temp_num + 1; -- One based index
2569: -- Populate the table with this Shipment Id
2570: l_shipment_IDs_Tbl(l_temp_num) := l_oe_header_id;
2571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Booking Shipment with Id: ' || l_oe_header_id);
2573: END IF;
2574: END IF;
2575: END LOOP;
2568: l_temp_num := l_temp_num + 1; -- One based index
2569: -- Populate the table with this Shipment Id
2570: l_shipment_IDs_Tbl(l_temp_num) := l_oe_header_id;
2571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Booking Shipment with Id: ' || l_oe_header_id);
2573: END IF;
2574: END IF;
2575: END LOOP;
2576: CLOSE l_get_approved_POs_csr;
2573: END IF;
2574: END IF;
2575: END LOOP;
2576: CLOSE l_get_approved_POs_csr;
2577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Number of Approvals to be submitted: ' || l_temp_num);
2579: END IF;
2580: IF (l_temp_num > 0) THEN
2581: -- Call Shipment API. This API will not throw an error or
2574: END IF;
2575: END LOOP;
2576: CLOSE l_get_approved_POs_csr;
2577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Number of Approvals to be submitted: ' || l_temp_num);
2579: END IF;
2580: IF (l_temp_num > 0) THEN
2581: -- Call Shipment API. This API will not throw an error or
2582: -- re-book if the shipment is already booked
2591: END IF;
2592:
2593: x_return_status := l_return_status;
2594: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2596: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2597: END IF;
2598: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2599: END IF;
2592:
2593: x_return_status := l_return_status;
2594: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2596: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Did not succeed');
2597: END IF;
2598: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2599: END IF;
2600: -- No errors in current procedure: Check only passed in flag
2598: RAISE FND_API.G_EXC_ERROR; -- Rollback and return error
2599: END IF;
2600: -- No errors in current procedure: Check only passed in flag
2601: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2604: END IF;
2605: COMMIT WORK;
2606: END IF;
2599: END IF;
2600: -- No errors in current procedure: Check only passed in flag
2601: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2604: END IF;
2605: COMMIT WORK;
2606: END IF;
2607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AHL_OSP_SHIPMENT_PUB.Book_Order Succeeded. About to COMMIT work.');
2604: END IF;
2605: COMMIT WORK;
2606: END IF;
2607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2608: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2609: END IF;
2610: EXCEPTION
2611: WHEN FND_API.G_EXC_ERROR THEN
2604: END IF;
2605: COMMIT WORK;
2606: END IF;
2607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2608: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2609: END IF;
2610: EXCEPTION
2611: WHEN FND_API.G_EXC_ERROR THEN
2612: ROLLBACK TO Handle_Approved_POs_pvt;
2677: l_osp_details_rec get_po_deleted_osps_csr%ROWTYPE;
2678: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2679:
2680: BEGIN
2681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2683: END IF;
2684: -- Standard start of API savepoint
2685: SAVEPOINT Handle_Deleted_PO_Headers_pvt;
2678: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2679:
2680: BEGIN
2681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2683: END IF;
2684: -- Standard start of API savepoint
2685: SAVEPOINT Handle_Deleted_PO_Headers_pvt;
2686:
2691: LOOP
2692: FETCH get_po_deleted_osps_csr into l_osp_details_rec;
2693: EXIT WHEN get_po_deleted_osps_csr%NOTFOUND;
2694: l_temp_num := l_temp_num + 1;
2695: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing PO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2697: END IF;
2698: -- Get the Line Details
2699: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2692: FETCH get_po_deleted_osps_csr into l_osp_details_rec;
2693: EXIT WHEN get_po_deleted_osps_csr%NOTFOUND;
2694: l_temp_num := l_temp_num + 1;
2695: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing PO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2697: END IF;
2698: -- Get the Line Details
2699: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2700: LOOP
2702: EXIT WHEN get_osp_line_dtls_csr%NOTFOUND;
2703: IF (l_osp_line_details_rec.status_code IS NULL) THEN
2704: IF (l_osp_line_details_rec.po_line_id IS NOT NULL) THEN
2705: -- Reset the value of PO_LINE_ID and increment OVN (status_code is already null)
2706: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Updating OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2708: END IF;
2709: Set_PO_Line_ID(p_osp_order_line_id => l_osp_line_details_rec.osp_order_line_id,
2710: p_po_line_id => null);
2703: IF (l_osp_line_details_rec.status_code IS NULL) THEN
2704: IF (l_osp_line_details_rec.po_line_id IS NOT NULL) THEN
2705: -- Reset the value of PO_LINE_ID and increment OVN (status_code is already null)
2706: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Updating OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2708: END IF;
2709: Set_PO_Line_ID(p_osp_order_line_id => l_osp_line_details_rec.osp_order_line_id,
2710: p_po_line_id => null);
2711: END IF;
2710: p_po_line_id => null);
2711: END IF;
2712: ELSE
2713: -- Physically delete this line (PO_DELETED or PO_CANCELLED)
2714: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2716: END IF;
2717: DELETE FROM ahl_osp_order_lines
2718: WHERE osp_order_line_id = l_osp_line_details_rec.osp_order_line_id;
2711: END IF;
2712: ELSE
2713: -- Physically delete this line (PO_DELETED or PO_CANCELLED)
2714: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Deleting OSP Line with Id ' || l_osp_line_details_rec.osp_order_line_id);
2716: END IF;
2717: DELETE FROM ahl_osp_order_lines
2718: WHERE osp_order_line_id = l_osp_line_details_rec.osp_order_line_id;
2719: END IF;
2734: where osp_order_id = l_osp_details_rec.osp_order_id;
2735: END LOOP;
2736: CLOSE get_po_deleted_osps_csr;
2737:
2738: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2740: END IF;
2741:
2742: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2735: END LOOP;
2736: CLOSE get_po_deleted_osps_csr;
2737:
2738: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2740: END IF;
2741:
2742: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2739: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed PO Deletion for ' || l_temp_num || ' OSP Orders');
2740: END IF;
2741:
2742: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2745: END IF;
2746: COMMIT WORK;
2747: END IF;
2740: END IF;
2741:
2742: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2745: END IF;
2746: COMMIT WORK;
2747: END IF;
2748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2745: END IF;
2746: COMMIT WORK;
2747: END IF;
2748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2750: END IF;
2751: EXCEPTION
2752: WHEN FND_API.G_EXC_ERROR THEN
2745: END IF;
2746: COMMIT WORK;
2747: END IF;
2748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2750: END IF;
2751: EXCEPTION
2752: WHEN FND_API.G_EXC_ERROR THEN
2753: ROLLBACK TO Handle_Deleted_PO_Headers_pvt;
2814: l_osp_details_rec get_so_deleted_osps_csr%ROWTYPE;
2815: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2816:
2817: BEGIN
2818: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2820: END IF;
2821: -- Standard start of API savepoint
2822: SAVEPOINT Handle_Deleted_SOs_pvt;
2815: l_osp_line_details_rec get_osp_line_dtls_csr%ROWTYPE;
2816:
2817: BEGIN
2818: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2820: END IF;
2821: -- Standard start of API savepoint
2822: SAVEPOINT Handle_Deleted_SOs_pvt;
2823:
2829: LOOP
2830: FETCH get_so_deleted_osps_csr into l_osp_details_rec;
2831: EXIT WHEN get_so_deleted_osps_csr%NOTFOUND;
2832: l_temp_num := l_temp_num + 1;
2833: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2834: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing SO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2835: END IF;
2836: -- Get the Details of lines that have a ship or a return line
2837: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2830: FETCH get_so_deleted_osps_csr into l_osp_details_rec;
2831: EXIT WHEN get_so_deleted_osps_csr%NOTFOUND;
2832: l_temp_num := l_temp_num + 1;
2833: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2834: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing SO Deletion for OSP Order ' || l_osp_details_rec.osp_order_id);
2835: END IF;
2836: -- Get the Details of lines that have a ship or a return line
2837: OPEN get_osp_line_dtls_csr(c_osp_order_id => l_osp_details_rec.osp_order_id);
2838: LOOP
2859: where osp_order_id = l_osp_details_rec.osp_order_id;
2860: END LOOP;
2861: CLOSE get_so_deleted_osps_csr;
2862:
2863: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed SO Deletion for ' || l_temp_num || ' OSP Orders');
2865: END IF;
2866:
2867: -- No errors in current procedure: Check only passed in flag
2860: END LOOP;
2861: CLOSE get_so_deleted_osps_csr;
2862:
2863: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processed SO Deletion for ' || l_temp_num || ' OSP Orders');
2865: END IF;
2866:
2867: -- No errors in current procedure: Check only passed in flag
2868: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2865: END IF;
2866:
2867: -- No errors in current procedure: Check only passed in flag
2868: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2871: END IF;
2872: COMMIT WORK;
2873: END IF;
2866:
2867: -- No errors in current procedure: Check only passed in flag
2868: IF (FND_API.TO_BOOLEAN(p_commit)) THEN
2869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2871: END IF;
2872: COMMIT WORK;
2873: END IF;
2874: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to COMMIT work.');
2871: END IF;
2872: COMMIT WORK;
2873: END IF;
2874: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2875: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2876: END IF;
2877: EXCEPTION
2878: WHEN FND_API.G_EXC_ERROR THEN
2871: END IF;
2872: COMMIT WORK;
2873: END IF;
2874: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2875: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2876: END IF;
2877: EXCEPTION
2878: WHEN FND_API.G_EXC_ERROR THEN
2879: ROLLBACK TO Handle_Deleted_SOs_pvt;
2989: l_osp_line_dtls_rec l_osp_line_dtls_csr%ROWTYPE;
2990: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Set_PO_Line_ID';
2991:
2992: BEGIN
2993: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2994: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2995: END IF;
2996: -- Retrieve the current record
2997: OPEN l_osp_line_dtls_csr(p_osp_order_line_id);
2990: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Set_PO_Line_ID';
2991:
2992: BEGIN
2993: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2994: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2995: END IF;
2996: -- Retrieve the current record
2997: OPEN l_osp_line_dtls_csr(p_osp_order_line_id);
2998: FETCH l_osp_line_dtls_csr INTO l_osp_line_dtls_rec;
2999: IF (l_osp_line_dtls_csr%NOTFOUND) THEN
3000: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_LINE_ID_INVALID');
3001: FND_MESSAGE.Set_Token('OSP_LINE_ID', p_osp_order_line_id);
3002: FND_MSG_PUB.ADD;
3003: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3004: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3005: END IF;
3006: CLOSE l_osp_line_dtls_csr;
3007: RAISE FND_API.G_EXC_ERROR;
3000: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_LINE_ID_INVALID');
3001: FND_MESSAGE.Set_Token('OSP_LINE_ID', p_osp_order_line_id);
3002: FND_MSG_PUB.ADD;
3003: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3004: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3005: END IF;
3006: CLOSE l_osp_line_dtls_csr;
3007: RAISE FND_API.G_EXC_ERROR;
3008: END IF;
3060: P_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3061: P_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3062: P_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3063:
3064: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3065: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3066: END IF;
3067: END Set_PO_Line_ID;
3068:
3061: P_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3062: P_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3063:
3064: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3065: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3066: END IF;
3067: END Set_PO_Line_ID;
3068:
3069: ----------------------------------------
3125: l_osp_dtls_rec l_osp_dtls_csr%ROWTYPE;
3126: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Update_OSP_Order';
3127:
3128: BEGIN
3129: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3131: END IF;
3132: -- Retrieve the current record
3133: OPEN l_osp_dtls_csr(p_osp_order_id);
3126: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Update_OSP_Order';
3127:
3128: BEGIN
3129: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3131: END IF;
3132: -- Retrieve the current record
3133: OPEN l_osp_dtls_csr(p_osp_order_id);
3134: FETCH l_osp_dtls_csr INTO l_osp_dtls_rec;
3135: IF (l_osp_dtls_csr%NOTFOUND) THEN
3136: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
3137: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
3138: FND_MSG_PUB.ADD;
3139: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3140: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3141: END IF;
3142: CLOSE l_osp_dtls_csr;
3143: RAISE FND_API.G_EXC_ERROR;
3136: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_OSP_ID_INVALID');
3137: FND_MESSAGE.Set_Token('OSP_ID', p_osp_order_id);
3138: FND_MSG_PUB.ADD;
3139: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3140: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
3141: END IF;
3142: CLOSE l_osp_dtls_csr;
3143: RAISE FND_API.G_EXC_ERROR;
3144: END IF;
3204: 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
3205: X_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3206: X_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3207: X_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3210: END IF;
3211: END Update_OSP_Order;
3212:
3205: X_LAST_UPDATE_DATE => TRUNC(sysdate), -- Updated
3206: X_LAST_UPDATED_BY => fnd_global.user_id, -- Updated
3207: X_LAST_UPDATE_LOGIN => fnd_global.login_id); -- Updated
3208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3210: END IF;
3211: END Update_OSP_Order;
3212:
3213: ----------------------------------------
3238: BEGIN
3239: OPEN l_get_org_price_csr;
3240: FETCH l_get_org_price_csr INTO l_price;
3241: CLOSE l_get_org_price_csr;
3242: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_line_id: ' || p_osp_line_id || ', Price: ' || l_price);
3244: END IF;
3245: RETURN l_price;
3246: END Get_Item_Price;
3239: OPEN l_get_org_price_csr;
3240: FETCH l_get_org_price_csr INTO l_price;
3241: CLOSE l_get_org_price_csr;
3242: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_line_id: ' || p_osp_line_id || ', Price: ' || l_price);
3244: END IF;
3245: RETURN l_price;
3246: END Get_Item_Price;
3247:
3269: l_charge_acct_id NUMBER := null;
3270: l_item_account_set BOOLEAN := FALSE;
3271:
3272: BEGIN
3273: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3276: END IF;
3277:
3270: l_item_account_set BOOLEAN := FALSE;
3271:
3272: BEGIN
3273: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3276: END IF;
3277:
3278: IF(p_item_id is NULL) THEN
3271:
3272: BEGIN
3273: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_inv_org_id: '|| p_inv_org_id);
3275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_id: '|| p_item_id);
3276: END IF;
3277:
3278: IF(p_item_id is NULL) THEN
3279: --It is a one-time item
3281: ELSE
3282: --Item is present, retrieve the item's expense account.
3283: OPEN get_exp_acct_item_csr(p_inv_org_id, p_item_id);
3284: FETCH get_exp_acct_item_csr INTO l_charge_acct_id;
3285: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3286: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from item: '|| l_charge_acct_id);
3287: END IF;
3288: CLOSE get_exp_acct_item_csr;
3289: IF(l_charge_acct_id is not NULL) THEN
3282: --Item is present, retrieve the item's expense account.
3283: OPEN get_exp_acct_item_csr(p_inv_org_id, p_item_id);
3284: FETCH get_exp_acct_item_csr INTO l_charge_acct_id;
3285: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3286: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from item: '|| l_charge_acct_id);
3287: END IF;
3288: CLOSE get_exp_acct_item_csr;
3289: IF(l_charge_acct_id is not NULL) THEN
3290: l_item_account_set := TRUE;
3298: IF (l_item_account_set = FALSE) THEN
3299: --Retrieve the Org's Material Account Id
3300: OPEN get_mtl_acct_org_csr(p_inv_org_id);
3301: FETCH get_mtl_acct_org_csr INTO l_charge_acct_id;
3302: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3303: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from Org: '|| l_charge_acct_id);
3304: END IF;
3305: CLOSE get_mtl_acct_org_csr;
3306: END IF;
3299: --Retrieve the Org's Material Account Id
3300: OPEN get_mtl_acct_org_csr(p_inv_org_id);
3301: FETCH get_mtl_acct_org_csr INTO l_charge_acct_id;
3302: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3303: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id from Org: '|| l_charge_acct_id);
3304: END IF;
3305: CLOSE get_mtl_acct_org_csr;
3306: END IF;
3307:
3304: END IF;
3305: CLOSE get_mtl_acct_org_csr;
3306: END IF;
3307:
3308: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3309: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id: '|| l_charge_acct_id);
3310: END IF;
3311:
3312: RETURN l_charge_acct_id;
3305: CLOSE get_mtl_acct_org_csr;
3306: END IF;
3307:
3308: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3309: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_charge_acct_id: '|| l_charge_acct_id);
3310: END IF;
3311:
3312: RETURN l_charge_acct_id;
3313: