[Home] [Help]
337: l_count NUMBER;
338: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_header_val_to_id';
339: BEGIN
340: --dbms_output.put_line('Entering : convert_order_header_val_to_id');
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
343: END IF;
344: IF (p_x_osp_order_rec.operation_flag IS NOT NULL AND p_x_osp_order_rec.operation_flag NOT IN(G_OP_CREATE, G_OP_UPDATE, G_OP_DELETE)) THEN
345: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INVOP');
338: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_header_val_to_id';
339: BEGIN
340: --dbms_output.put_line('Entering : convert_order_header_val_to_id');
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
343: END IF;
344: IF (p_x_osp_order_rec.operation_flag IS NOT NULL AND p_x_osp_order_rec.operation_flag NOT IN(G_OP_CREATE, G_OP_UPDATE, G_OP_DELETE)) THEN
345: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INVOP');
346: FND_MSG_PUB.ADD;
585: IF FND_MSG_PUB.count_msg > 0 THEN
586: RAISE FND_API.G_EXC_ERROR;
587: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
591: END IF;
592: --dbms_output.put_line('Exiting : convert_order_header_val_to_id');
593: END convert_order_header_val_to_id;
586: RAISE FND_API.G_EXC_ERROR;
587: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
591: END IF;
592: --dbms_output.put_line('Exiting : convert_order_header_val_to_id');
593: END convert_order_header_val_to_id;
594:
609: AND TRUNC(nvl(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
610: l_exist VARCHAR2(1);
611: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor';
612: BEGIN
613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
615: END IF;
616: IF(p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
617: OPEN val_vendor_id_csr(p_vendor_id);
610: l_exist VARCHAR2(1);
611: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor';
612: BEGIN
613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
615: END IF;
616: IF(p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
617: OPEN val_vendor_id_csr(p_vendor_id);
618: FETCH val_vendor_id_csr INTO l_exist;
630: FND_MSG_PUB.ADD;
631: END IF;
632: CLOSE get_vendor_cert;
633: END IF;
634: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
636: END IF;
637: END validate_vendor;
638:
631: END IF;
632: CLOSE get_vendor_cert;
633: END IF;
634: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
636: END IF;
637: END validate_vendor;
638:
639: -------------------------------------------------------------------------------------------------------------
654: AND TRUNC(nvl(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
655: l_exist VARCHAR2(1);
656: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site';
657: BEGIN
658: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
660: END IF;
661: IF (p_vendor_id IS NULL OR p_vendor_id = FND_API.G_MISS_NUM) THEN
662: IF(p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
655: l_exist VARCHAR2(1);
656: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site';
657: BEGIN
658: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
660: END IF;
661: IF (p_vendor_id IS NULL OR p_vendor_id = FND_API.G_MISS_NUM) THEN
662: IF(p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
663: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_VEND_ID_NLL');
683: END IF;
684: CLOSE get_vendor_cert;
685: END IF;
686: END IF;
687: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
689: END IF;
690: END validate_vendor_site;
691:
684: CLOSE get_vendor_cert;
685: END IF;
686: END IF;
687: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
689: END IF;
690: END validate_vendor_site;
691:
692: -------------------------------------------------------------------------------------------------------------
698: where party_id = p_customer_id and party_type = 'ORGANIZATION';
699: l_exist VARCHAR2(1);
700: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_customer';
701: BEGIN
702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
704: END IF;
705: IF(p_customer_id IS NOT NULL AND p_customer_id <> FND_API.G_MISS_NUM) THEN
706: OPEN val_customer_id_csr(p_customer_id);
699: l_exist VARCHAR2(1);
700: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_customer';
701: BEGIN
702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
704: END IF;
705: IF(p_customer_id IS NOT NULL AND p_customer_id <> FND_API.G_MISS_NUM) THEN
706: OPEN val_customer_id_csr(p_customer_id);
707: FETCH val_customer_id_csr INTO l_exist;
711: FND_MSG_PUB.ADD;
712: END IF;
713: CLOSE val_customer_id_csr;
714: END IF;
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
717: END IF;
718: END validate_customer;
719:
712: END IF;
713: CLOSE val_customer_id_csr;
714: END IF;
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
717: END IF;
718: END validate_customer;
719:
720: -------------------------------------------------------------------------------------------------------------
726: WHERE buyer_id = p_po_agent_id;
727: l_exist VARCHAR2(1);
728: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_buyer';
729: BEGIN
730: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
732: END IF;
733: IF(p_po_agent_id IS NOT NULL AND p_po_agent_id <> FND_API.G_MISS_NUM) THEN
734: OPEN val_po_agent_id_csr(p_po_agent_id);
727: l_exist VARCHAR2(1);
728: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_buyer';
729: BEGIN
730: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
732: END IF;
733: IF(p_po_agent_id IS NOT NULL AND p_po_agent_id <> FND_API.G_MISS_NUM) THEN
734: OPEN val_po_agent_id_csr(p_po_agent_id);
735: FETCH val_po_agent_id_csr INTO l_exist;
739: FND_MSG_PUB.ADD;
740: END IF;
741: CLOSE val_po_agent_id_csr;
742: END IF;
743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
745: END IF;
746: END validate_buyer;
747:
740: END IF;
741: CLOSE val_po_agent_id_csr;
742: END IF;
743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
745: END IF;
746: END validate_buyer;
747:
748: -------------------------------------------------------------------------------------------------------------
764: l_buy_or_sell VARCHAR2(1);
765: l_object_code VARCHAR2(30);
766: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_contract';
767: BEGIN
768: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
770: END IF;
771: IF(p_order_type_code = G_OSP_ORDER_TYPE_BORROW) THEN
772: l_buy_or_sell := 'B';
765: l_object_code VARCHAR2(30);
766: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_contract';
767: BEGIN
768: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
770: END IF;
771: IF(p_order_type_code = G_OSP_ORDER_TYPE_BORROW) THEN
772: l_buy_or_sell := 'B';
773: l_object_code := 'OKX_VENDOR';
796: END IF;
797: CLOSE val_contract_id_csr;
798: END IF;
799: END IF;
800: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
802: END IF;
803: END validate_contract;
804:
797: CLOSE val_contract_id_csr;
798: END IF;
799: END IF;
800: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
802: END IF;
803: END validate_contract;
804:
805: -------------------------------------------------------------------------------------------------------------
814: AND interface_source_code = G_APP_NAME;
815: l_exist VARCHAR2(1);
816: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_header';
817: BEGIN
818: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
820: END IF;
821: IF(p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
822: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_HEADER_INV');
815: l_exist VARCHAR2(1);
816: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_header';
817: BEGIN
818: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
820: END IF;
821: IF(p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
822: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_HEADER_INV');
823: FND_MSG_PUB.ADD;
832: FND_MSG_PUB.ADD;
833: END IF;
834: CLOSE val_po_header_id_csr;
835: END IF;
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
838: END IF;
839: END validate_po_header;
840:
833: END IF;
834: CLOSE val_po_header_id_csr;
835: END IF;
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
838: END IF;
839: END validate_po_header;
840:
841: --------------------------------------------------------------------------------------------------------------
882: l_del_cancel_so_lines_tbl del_cancel_so_lines_tbl_type;
883: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_header';
884: BEGIN
885: --dbms_output.put_line('Entering : validate_order_header');
886: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
888: END IF;
889: l_operating_unit_id := mo_global.get_current_org_id();
890: IF (l_operating_unit_id IS NULL) THEN
883: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_header';
884: BEGIN
885: --dbms_output.put_line('Entering : validate_order_header');
886: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
888: END IF;
889: l_operating_unit_id := mo_global.get_current_org_id();
890: IF (l_operating_unit_id IS NULL) THEN
891: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
898: -- Note added by jaramana on January 8, 2008 for the Requisition ER 6034236
899: -- Note that p_x_osp_order_rec.operation_flag will never be NULL in the call to this API. As an operation_flag of NULL
900: -- means, there need to be no change in the osp_order_header, hence no validation is necessary.
901: IF(p_x_osp_order_rec.operation_flag IS NULL OR p_x_osp_order_rec.operation_flag <> G_OP_CREATE) THEN
902: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'operation is not create, it is:'||p_x_osp_order_rec.operation_flag);
904: END IF;
905: IF(p_x_osp_order_rec.osp_order_id IS NULL OR p_x_osp_order_rec.object_version_number IS NULL) THEN
906: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_OBJ_MISS');
899: -- Note that p_x_osp_order_rec.operation_flag will never be NULL in the call to this API. As an operation_flag of NULL
900: -- means, there need to be no change in the osp_order_header, hence no validation is necessary.
901: IF(p_x_osp_order_rec.operation_flag IS NULL OR p_x_osp_order_rec.operation_flag <> G_OP_CREATE) THEN
902: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'operation is not create, it is:'||p_x_osp_order_rec.operation_flag);
904: END IF;
905: IF(p_x_osp_order_rec.osp_order_id IS NULL OR p_x_osp_order_rec.object_version_number IS NULL) THEN
906: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_OBJ_MISS');
907: FND_MSG_PUB.ADD;
915: l_osp_order_rec.contract_id, l_osp_order_rec.contract_terms, l_osp_order_rec.operating_unit_id,
916: l_osp_order_rec.po_synch_flag, l_osp_order_rec.status_code, l_osp_order_rec.po_batch_id, l_osp_order_rec.po_request_id,
917: l_osp_order_rec.po_agent_id, l_osp_order_rec.po_interface_header_id, l_osp_order_rec.po_req_header_id, l_osp_order_rec.description, l_osp_order_rec.vendor_contact_id;
918: -- jaramana End
919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_order_id='||p_x_osp_order_rec.osp_order_id|| 'ovn='||p_x_osp_order_rec.object_version_number);
921: END IF;
922: -- if record not found, raise error and declare that record has been modified.
923: IF (osp_order_csr%NOTFOUND) THEN
916: l_osp_order_rec.po_synch_flag, l_osp_order_rec.status_code, l_osp_order_rec.po_batch_id, l_osp_order_rec.po_request_id,
917: l_osp_order_rec.po_agent_id, l_osp_order_rec.po_interface_header_id, l_osp_order_rec.po_req_header_id, l_osp_order_rec.description, l_osp_order_rec.vendor_contact_id;
918: -- jaramana End
919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_order_id='||p_x_osp_order_rec.osp_order_id|| 'ovn='||p_x_osp_order_rec.object_version_number);
921: END IF;
922: -- if record not found, raise error and declare that record has been modified.
923: IF (osp_order_csr%NOTFOUND) THEN
924: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
959: --item exchange enhancement
960: --only service/exchange ordertype conversion are allowed
961: IF(p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)
962: AND l_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
963: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'Set conversion Flag to Yes');
965: END IF;
966: -- Commented out by jaramana on January 8, 2008 for the Requisition ER 6034236
967: -- g_order_conversion_flag := G_YES_FLAG;
960: --only service/exchange ordertype conversion are allowed
961: IF(p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)
962: AND l_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
963: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'Set conversion Flag to Yes');
965: END IF;
966: -- Commented out by jaramana on January 8, 2008 for the Requisition ER 6034236
967: -- g_order_conversion_flag := G_YES_FLAG;
968: -- jaramana End
1029: --and the rest of them are being validated in the create_osp_order_header API
1030: /*
1031: ELSE -- mode is create and following processing is same for all type of orders
1032:
1033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.create', 'operation is create');
1035: END IF;
1036: IF(p_x_osp_order_rec.osp_order_id IS NOT NULL AND p_x_osp_order_rec.osp_order_id <> FND_API.G_MISS_NUM) THEN
1037: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_NNLL');
1030: /*
1031: ELSE -- mode is create and following processing is same for all type of orders
1032:
1033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.create', 'operation is create');
1035: END IF;
1036: IF(p_x_osp_order_rec.osp_order_id IS NOT NULL AND p_x_osp_order_rec.osp_order_id <> FND_API.G_MISS_NUM) THEN
1037: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_NNLL');
1038: FND_MSG_PUB.ADD;
1108: -- forcing null column rules
1109: ----------------------------
1110: -- add item exchange enhancement to if condition
1111: IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE))THEN
1112: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Service or Exchange');
1114: END IF;
1115: -- contract_id and customer_id must be null for SERVICE or EXCHANGE
1116: IF(p_x_osp_order_rec.contract_id IS NOT NULL AND p_x_osp_order_rec.contract_id <> FND_API.G_MISS_NUM) THEN
1109: ----------------------------
1110: -- add item exchange enhancement to if condition
1111: IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE))THEN
1112: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Service or Exchange');
1114: END IF;
1115: -- contract_id and customer_id must be null for SERVICE or EXCHANGE
1116: IF(p_x_osp_order_rec.contract_id IS NOT NULL AND p_x_osp_order_rec.contract_id <> FND_API.G_MISS_NUM) THEN
1117: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INV_CTRCT');
1127: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INV_CO');
1128: FND_MSG_PUB.ADD;
1129: END IF;
1130: ELSIF (p_x_osp_order_rec.order_type_code IN( G_OSP_ORDER_TYPE_LOAN,G_OSP_ORDER_TYPE_BORROW) ) THEN
1131: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Loan or Borrow');
1133: END IF;
1134: -- po_agent_id,vendor_id(FOR LOAN only) and vendor_site_id must be null.
1135: IF(p_x_osp_order_rec.po_agent_id IS NOT NULL AND p_x_osp_order_rec.po_agent_id <> FND_API.G_MISS_NUM) THEN
1128: FND_MSG_PUB.ADD;
1129: END IF;
1130: ELSIF (p_x_osp_order_rec.order_type_code IN( G_OSP_ORDER_TYPE_LOAN,G_OSP_ORDER_TYPE_BORROW) ) THEN
1131: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Loan or Borrow');
1133: END IF;
1134: -- po_agent_id,vendor_id(FOR LOAN only) and vendor_site_id must be null.
1135: IF(p_x_osp_order_rec.po_agent_id IS NOT NULL AND p_x_osp_order_rec.po_agent_id <> FND_API.G_MISS_NUM) THEN
1136: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_BUYER_ID_INV');
1191: -- Hence commenting out the following validations.
1192:
1193: /*
1194: IF(p_x_osp_order_rec.operation_flag = G_OP_CREATE) THEN
1195: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type.oper', 'Update Order type is Service or Exchange Operation is Create');
1197: END IF;
1198: --dbms_output.put_line('validate single_instance_flag');
1199: --set single_instance_flag
1192:
1193: /*
1194: IF(p_x_osp_order_rec.operation_flag = G_OP_CREATE) THEN
1195: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type.oper', 'Update Order type is Service or Exchange Operation is Create');
1197: END IF;
1198: --dbms_output.put_line('validate single_instance_flag');
1199: --set single_instance_flag
1200: IF(p_x_osp_order_rec.single_instance_flag IS NULL OR p_x_osp_order_rec.single_instance_flag = FND_API.G_MISS_CHAR)THEN
1235: END IF;
1236: */
1237: -- jaramana End
1238: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update', 'Update Order type is Service or Exchange Operation is Update ');
1241: END IF;
1242: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1243: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1236: */
1237: -- jaramana End
1238: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update', 'Update Order type is Service or Exchange Operation is Update ');
1241: END IF;
1242: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1243: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1244: -- jaramana End
1241: END IF;
1242: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1243: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1244: -- jaramana End
1245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1246: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1247: || 'g_old_status_code' || g_old_status_code);
1248: END IF;
1249: -- po_header_id should be null.
1242: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1243: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1244: -- jaramana End
1245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1246: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1247: || 'g_old_status_code' || g_old_status_code);
1248: END IF;
1249: -- po_header_id should be null.
1250: IF(p_x_osp_order_rec.po_header_id IS NOT NULL AND p_x_osp_order_rec.po_header_id <> FND_API.G_MISS_NUM) THEN
1370: -- End addition by jaramana on January 9, 2008
1371: ELSIF (g_old_status_code = G_OSP_SUBMITTED_STATUS) THEN
1372: -- status_code should be null,'SUBMITTED', 'SUBMISSION_FAILED' or 'PO_CREATED'
1373: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_SUBMITTED_STATUS) THEN
1374: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1376: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1377: END IF;
1378: -- po_header_id should be null.
1371: ELSIF (g_old_status_code = G_OSP_SUBMITTED_STATUS) THEN
1372: -- status_code should be null,'SUBMITTED', 'SUBMISSION_FAILED' or 'PO_CREATED'
1373: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_SUBMITTED_STATUS) THEN
1374: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1376: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1377: END IF;
1378: -- po_header_id should be null.
1379: IF(p_x_osp_order_rec.po_header_id IS NOT NULL AND p_x_osp_order_rec.po_header_id <> FND_API.G_MISS_NUM) THEN
1472: END IF;
1473: -- set status_code for lines
1474: g_order_status_for_update := G_OSP_SUB_FAILED_STATUS;
1475: ELSIF (p_x_osp_order_rec.status_code = G_OSP_PO_CREATED_STATUS) THEN
1476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1478: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1479: END IF;
1480: -- po_header_id should be not be null.
1473: -- set status_code for lines
1474: g_order_status_for_update := G_OSP_SUB_FAILED_STATUS;
1475: ELSIF (p_x_osp_order_rec.status_code = G_OSP_PO_CREATED_STATUS) THEN
1476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1478: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1479: END IF;
1480: -- po_header_id should be not be null.
1481: IF(p_x_osp_order_rec.po_header_id IS NULL OR p_x_osp_order_rec.po_header_id = FND_API.G_MISS_NUM) THEN
1518: FND_MSG_PUB.ADD;
1519: END IF;
1520:
1521: ELSIF (g_old_status_code = G_OSP_PO_CREATED_STATUS) THEN
1522: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1523: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1524: || 'g_old_status_code: ' || g_old_status_code);
1525: END IF;
1526: -- status_code should be null, 'PO_CREATED' or 'CLOSED'
1519: END IF;
1520:
1521: ELSIF (g_old_status_code = G_OSP_PO_CREATED_STATUS) THEN
1522: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1523: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1524: || 'g_old_status_code: ' || g_old_status_code);
1525: END IF;
1526: -- status_code should be null, 'PO_CREATED' or 'CLOSED'
1527: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code IN( G_OSP_PO_CREATED_STATUS,G_OSP_CLOSED_STATUS)) THEN
1594: END IF;
1595: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
1596: ELSIF (g_old_status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1597: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1598: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'||
1600: 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1601: END IF;
1602: -- po_header_id should be null.
1595: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
1596: ELSIF (g_old_status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1597: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1598: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'||
1600: 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1601: END IF;
1602: -- po_header_id should be null.
1603: IF(p_x_osp_order_rec.po_header_id IS NOT NULL AND p_x_osp_order_rec.po_header_id <> FND_API.G_MISS_NUM) THEN
1641: FND_MSG_PUB.ADD;
1642: END IF;
1643:
1644: ELSIF (g_old_status_code = G_OSP_REQ_CREATED_STATUS) THEN
1645: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1647: || 'g_old_status_code: ' || g_old_status_code);
1648: END IF;
1649: -- status_code should be null, 'REQ_CREATED' or 'CLOSED'
1642: END IF;
1643:
1644: ELSIF (g_old_status_code = G_OSP_REQ_CREATED_STATUS) THEN
1645: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1647: || 'g_old_status_code: ' || g_old_status_code);
1648: END IF;
1649: -- status_code should be null, 'REQ_CREATED' or 'CLOSED'
1650: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code IN( G_OSP_REQ_CREATED_STATUS,G_OSP_CLOSED_STATUS)) THEN
1698: END IF; --IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1699: END IF; --IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
1700: -- validate Loan order header
1701: ELSIF (p_x_osp_order_rec.order_type_code = G_OSP_ORDER_TYPE_LOAN) THEN
1702: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.loan', 'Update order type is Loan');
1704: END IF;
1705: -- single_instance_flag can not be other than null, GMISS or G_NO_FLAG.
1706: IF(p_x_osp_order_rec.single_instance_flag IS NULL OR p_x_osp_order_rec.single_instance_flag = FND_API.G_MISS_CHAR
1699: END IF; --IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
1700: -- validate Loan order header
1701: ELSIF (p_x_osp_order_rec.order_type_code = G_OSP_ORDER_TYPE_LOAN) THEN
1702: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.loan', 'Update order type is Loan');
1704: END IF;
1705: -- single_instance_flag can not be other than null, GMISS or G_NO_FLAG.
1706: IF(p_x_osp_order_rec.single_instance_flag IS NULL OR p_x_osp_order_rec.single_instance_flag = FND_API.G_MISS_CHAR
1707: OR p_x_osp_order_rec.single_instance_flag = G_NO_FLAG )THEN
1944: IF FND_MSG_PUB.count_msg > 0 THEN
1945: RAISE FND_API.G_EXC_ERROR;
1946: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1947: END IF;
1948: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1949: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1950: END IF;
1951: --dbms_output.put_line('Exiting : validate_order_header');
1952: END validate_order_header;
1945: RAISE FND_API.G_EXC_ERROR;
1946: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1947: END IF;
1948: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1949: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1950: END IF;
1951: --dbms_output.put_line('Exiting : validate_order_header');
1952: END validate_order_header;
1953:
1973: AND object_version_number= p_object_version_number;
1974: l_osp_order_rec osp_order_rec_type;
1975: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_header';
1976: BEGIN
1977: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
1979: END IF;
1980: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1981: OPEN osp_order_csr(p_x_osp_order_rec.osp_order_id, p_x_osp_order_rec.object_version_number);
1974: l_osp_order_rec osp_order_rec_type;
1975: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_header';
1976: BEGIN
1977: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
1979: END IF;
1980: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1981: OPEN osp_order_csr(p_x_osp_order_rec.osp_order_id, p_x_osp_order_rec.object_version_number);
1982: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added the PO_REQ_HEADER_ID in the rec below)
1992: l_osp_order_rec.attribute9, l_osp_order_rec.attribute10, l_osp_order_rec.attribute11,
1993: l_osp_order_rec.attribute12, l_osp_order_rec.attribute13, l_osp_order_rec.attribute14,
1994: l_osp_order_rec.attribute15, l_osp_order_rec.vendor_contact_id;
1995: -- jaramana End
1996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_order_id='||p_x_osp_order_rec.osp_order_id|| 'ovn='||p_x_osp_order_rec.object_version_number);
1998: END IF;
1999: IF (osp_order_csr%NOTFOUND) THEN
2000: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
1993: l_osp_order_rec.attribute12, l_osp_order_rec.attribute13, l_osp_order_rec.attribute14,
1994: l_osp_order_rec.attribute15, l_osp_order_rec.vendor_contact_id;
1995: -- jaramana End
1996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_order_id='||p_x_osp_order_rec.osp_order_id|| 'ovn='||p_x_osp_order_rec.object_version_number);
1998: END IF;
1999: IF (osp_order_csr%NOTFOUND) THEN
2000: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
2001: FND_MSG_PUB.ADD;
2070: p_x_osp_order_rec.status_code := l_osp_order_rec.status_code;
2071: ELSIF(p_x_osp_order_rec.status_code = FND_API.G_MISS_CHAR) THEN
2072: p_x_osp_order_rec.status_code := null;
2073: END IF;
2074: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2075: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2076: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2077: 'request_id='||p_x_osp_order_rec.po_request_id||
2078: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2071: ELSIF(p_x_osp_order_rec.status_code = FND_API.G_MISS_CHAR) THEN
2072: p_x_osp_order_rec.status_code := null;
2073: END IF;
2074: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2075: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2076: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2077: 'request_id='||p_x_osp_order_rec.po_request_id||
2078: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2079: END IF;
2314: IF FND_MSG_PUB.count_msg > 0 THEN
2315: RAISE FND_API.G_EXC_ERROR;
2316: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2319: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2320: END IF;
2321: --dbms_output.put_line('Exiting : default_unchanged_order_header');
2322: END default_unchanged_order_header;
2315: RAISE FND_API.G_EXC_ERROR;
2316: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2319: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2320: END IF;
2321: --dbms_output.put_line('Exiting : default_unchanged_order_header');
2322: END default_unchanged_order_header;
2323:
2354:
2355: l_exist VARCHAR2(1);
2356: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_workorder';
2357: BEGIN
2358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2360: END IF;
2361: IF(p_workorder_id IS NOT NULL) THEN
2362: OPEN val_workorder_id_csr(p_workorder_id);
2355: l_exist VARCHAR2(1);
2356: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_workorder';
2357: BEGIN
2358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2360: END IF;
2361: IF(p_workorder_id IS NOT NULL) THEN
2362: OPEN val_workorder_id_csr(p_workorder_id);
2363: FETCH val_workorder_id_csr INTO l_exist;
2367: FND_MSG_PUB.ADD;
2368: END IF;
2369: CLOSE val_workorder_id_csr;
2370: END IF;
2371: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2373: END IF;
2374: END validate_workorder;
2375:
2368: END IF;
2369: CLOSE val_workorder_id_csr;
2370: END IF;
2371: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2373: END IF;
2374: END validate_workorder;
2375:
2376: /*
2411: mtl.inventory_org_id = wo.organization_id;
2412: l_exist VARCHAR2(1);
2413: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item';
2414: BEGIN
2415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2417: END IF;
2418: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2419: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2412: l_exist VARCHAR2(1);
2413: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item';
2414: BEGIN
2415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2417: END IF;
2418: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2419: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2420: FETCH val_service_item_id_inv_csr INTO l_exist;
2472: END IF;
2473: CLOSE val_service_item_id_nll_csr;
2474: END IF;
2475: END IF;
2476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2478: END IF;
2479: END validate_service_item;
2480:
2473: CLOSE val_service_item_id_nll_csr;
2474: END IF;
2475: END IF;
2476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2478: END IF;
2479: END validate_service_item;
2480:
2481: --------------------------------------------------------------------------------------------------------------
2489: AND MTL.DESCRIPTION = p_service_item_description;
2490: l_exist VARCHAR2(1);
2491: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_desc';
2492: BEGIN
2493: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2495: END IF;
2496: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2497: OPEN val_service_item_desc_csr(p_service_item_id , p_service_item_description);
2490: l_exist VARCHAR2(1);
2491: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_desc';
2492: BEGIN
2493: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2495: END IF;
2496: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2497: OPEN val_service_item_desc_csr(p_service_item_id , p_service_item_description);
2498: FETCH val_service_item_desc_csr INTO l_exist;
2504: --dbms_output.put_line('Invalid service item description');
2505: END IF;
2506: CLOSE val_service_item_desc_csr;
2507: END IF;
2508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2510: END IF;
2511: END validate_service_item_desc;
2512:
2505: END IF;
2506: CLOSE val_service_item_desc_csr;
2507: END IF;
2508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2510: END IF;
2511: END validate_service_item_desc;
2512:
2513: --------------------------------------------------------------------------------------------------------------
2555: l_exist VARCHAR2(1);
2556: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.val_svc_item_vs_wo_svc_item';
2557:
2558: BEGIN
2559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2561: END IF;
2562: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2563:
2556: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.val_svc_item_vs_wo_svc_item';
2557:
2558: BEGIN
2559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2561: END IF;
2562: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2563:
2564: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2615: END IF;
2616: CLOSE val_service_item_id_nll_csr;
2617: END IF;
2618:
2619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2620: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2621: END IF;
2622: END val_svc_item_vs_wo_svc_item;
2623:
2616: CLOSE val_service_item_id_nll_csr;
2617: END IF;
2618:
2619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2620: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2621: END IF;
2622: END val_svc_item_vs_wo_svc_item;
2623:
2624: --------------------------------------------------------------------------------------------------------------
2639: WHERE uom_code = p_service_item_uom_code;
2640: l_exist VARCHAR2(1);
2641: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_uom';
2642: BEGIN
2643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure'
2645: || '- Service Item Id: ' || p_service_item_id || 'uom_code' || p_service_item_uom_code );
2646: END IF;
2647: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2640: l_exist VARCHAR2(1);
2641: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_uom';
2642: BEGIN
2643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure'
2645: || '- Service Item Id: ' || p_service_item_id || 'uom_code' || p_service_item_uom_code );
2646: END IF;
2647: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2648: IF(p_service_item_uom_code IS NOT NULL AND p_service_item_uom_code <> FND_API.G_MISS_CHAR) THEN
2668: END IF;
2669: CLOSE val_uom_code_csr;
2670: END IF;
2671: END IF;
2672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2673: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2674: END IF;
2675: END validate_service_item_uom;
2676:
2669: CLOSE val_uom_code_csr;
2670: END IF;
2671: END IF;
2672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2673: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2674: END IF;
2675: END validate_service_item_uom;
2676:
2677: --------------------------------------------------------------------------------------------------------------
2685: NVL(OUTSIDE_OPERATION_FLAG, G_NO_FLAG) = G_NO_FLAG;
2686: l_exist VARCHAR2(1);
2687: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line_type';
2688: BEGIN
2689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2691: END IF;
2692: IF(p_po_line_type_id IS NOT NULL AND p_po_line_type_id <> FND_API.G_MISS_NUM) THEN
2693: OPEN val_po_line_type_id_csr(p_po_line_type_id);
2686: l_exist VARCHAR2(1);
2687: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line_type';
2688: BEGIN
2689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2691: END IF;
2692: IF(p_po_line_type_id IS NOT NULL AND p_po_line_type_id <> FND_API.G_MISS_NUM) THEN
2693: OPEN val_po_line_type_id_csr(p_po_line_type_id);
2694: FETCH val_po_line_type_id_csr INTO l_exist;
2698: FND_MSG_PUB.ADD;
2699: END IF;
2700: CLOSE val_po_line_type_id_csr;
2701: END IF;
2702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2704: END IF;
2705: END validate_po_line_type;
2706:
2699: END IF;
2700: CLOSE val_po_line_type_id_csr;
2701: END IF;
2702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2704: END IF;
2705: END validate_po_line_type;
2706:
2707: --------------------------------------------------------------------------------------------------------------
2723: -- jaramana End
2724: l_exist VARCHAR2(1);
2725: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line';
2726: BEGIN
2727: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2728: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2729: END IF;
2730: IF(p_po_line_id IS NOT NULL AND p_po_line_id <> FND_API.G_MISS_NUM) THEN
2731: OPEN val_po_line_id_csr(p_po_line_id, p_osp_order_id);
2724: l_exist VARCHAR2(1);
2725: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line';
2726: BEGIN
2727: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2728: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2729: END IF;
2730: IF(p_po_line_id IS NOT NULL AND p_po_line_id <> FND_API.G_MISS_NUM) THEN
2731: OPEN val_po_line_id_csr(p_po_line_id, p_osp_order_id);
2732: FETCH val_po_line_id_csr INTO l_exist;
2736: FND_MSG_PUB.ADD;
2737: END IF;
2738: CLOSE val_po_line_id_csr;
2739: END IF;
2740: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2741: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2742: END IF;
2743: END validate_po_line;
2744:
2737: END IF;
2738: CLOSE val_po_line_id_csr;
2739: END IF;
2740: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2741: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2742: END IF;
2743: END validate_po_line;
2744:
2745: -------------------------------------------------------------------------------------------------------------
2756: ) ;
2757: l_exist VARCHAR2(1);
2758: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_exchange_instance_id';
2759: BEGIN
2760: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2761: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2762: END IF;
2763: IF(p_exchange_instance_id IS NOT NULL AND p_exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2764: OPEN val_instance_id_csr(p_exchange_instance_id);
2757: l_exist VARCHAR2(1);
2758: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_exchange_instance_id';
2759: BEGIN
2760: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2761: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2762: END IF;
2763: IF(p_exchange_instance_id IS NOT NULL AND p_exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2764: OPEN val_instance_id_csr(p_exchange_instance_id);
2765: FETCH val_instance_id_csr INTO l_exist;
2768: FND_MESSAGE.Set_Token('EXCHANGE_INSTANCE_ID', p_exchange_instance_id);
2769: FND_MSG_PUB.ADD;
2770: END IF;
2771: END IF;
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2774: END IF;
2775: END validate_exchange_instance_id;
2776:
2769: FND_MSG_PUB.ADD;
2770: END IF;
2771: END IF;
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2774: END IF;
2775: END validate_exchange_instance_id;
2776:
2777:
2844: l_new_ovn NUMBER;
2845: l_old_ovn NUMBER;
2846: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_order_status_change';
2847: BEGIN
2848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2850: 'osp_order_id='||p_x_osp_order_rec.osp_order_id||
2851: 'status='||p_x_osp_order_rec.status_code||
2852: 'ovn='||p_x_osp_order_rec.object_version_number);
2845: l_old_ovn NUMBER;
2846: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_order_status_change';
2847: BEGIN
2848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2850: 'osp_order_id='||p_x_osp_order_rec.osp_order_id||
2851: 'status='||p_x_osp_order_rec.status_code||
2852: 'ovn='||p_x_osp_order_rec.object_version_number);
2853: END IF;
2959: p_x_osp_order_rec.object_version_number := l_new_ovn;
2960: p_x_osp_order_rec.po_request_id := l_request_id;
2961: p_x_osp_order_rec.po_interface_header_id := l_interface_header_id;
2962: p_x_osp_order_rec.po_batch_id := l_batch_id;
2963: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2965: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2966: 'request_id='||p_x_osp_order_rec.po_request_id||
2967: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2960: p_x_osp_order_rec.po_request_id := l_request_id;
2961: p_x_osp_order_rec.po_interface_header_id := l_interface_header_id;
2962: p_x_osp_order_rec.po_batch_id := l_batch_id;
2963: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2965: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2966: 'request_id='||p_x_osp_order_rec.po_request_id||
2967: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2968: END IF;
2990: ELSE
2991: p_x_osp_order_rec.object_version_number := l_new_ovn;
2992: p_x_osp_order_rec.po_request_id := l_request_id;
2993: p_x_osp_order_rec.po_batch_id := l_batch_id;
2994: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2996: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2997: 'request_id='||p_x_osp_order_rec.po_request_id);
2998: END IF;
2991: p_x_osp_order_rec.object_version_number := l_new_ovn;
2992: p_x_osp_order_rec.po_request_id := l_request_id;
2993: p_x_osp_order_rec.po_batch_id := l_batch_id;
2994: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2996: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2997: 'request_id='||p_x_osp_order_rec.po_request_id);
2998: END IF;
2999: END IF;
3144: END IF;
3145: IF FND_MSG_PUB.count_msg > 0 THEN
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3149: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3150: END IF;
3151: END process_order_status_change;
3152:
3145: IF FND_MSG_PUB.count_msg > 0 THEN
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3149: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3150: END IF;
3151: END process_order_status_change;
3152:
3153: --------------------------------------------------------------------------------------------------------------
3178: l_index NUMBER := 1;
3179: l_unique_flag BOOLEAN := TRUE;
3180: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.delete_cancel_so';
3181: BEGIN
3182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3184: END IF;
3185: IF(p_oe_header_id IS NOT NULL) THEN
3186: -- CALL SO to delete/cancel SO
3179: l_unique_flag BOOLEAN := TRUE;
3180: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.delete_cancel_so';
3181: BEGIN
3182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3184: END IF;
3185: IF(p_oe_header_id IS NOT NULL) THEN
3186: -- CALL SO to delete/cancel SO
3187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3184: END IF;
3185: IF(p_oe_header_id IS NOT NULL) THEN
3186: -- CALL SO to delete/cancel SO
3187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order with p_oe_header_id = ' || p_oe_header_id);
3189: END IF;
3190: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3191: p_api_version => 1.0,
3184: END IF;
3185: IF(p_oe_header_id IS NOT NULL) THEN
3186: -- CALL SO to delete/cancel SO
3187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order with p_oe_header_id = ' || p_oe_header_id);
3189: END IF;
3190: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3191: p_api_version => 1.0,
3192: p_oe_header_id => p_oe_header_id,
3228: OPEN line_already_shipped_csr(p_del_cancel_so_lines_tbl(i).oe_ship_line_id);
3229: FETCH line_already_shipped_csr INTO l_exist;
3230: IF (line_already_shipped_csr%NOTFOUND) THEN
3231: -- Line not yet shipped: Include for deletion
3232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipment line with id ' || p_del_cancel_so_lines_tbl(i).oe_ship_line_id || ' included for deletion/cancellation.');
3234: END IF;
3235: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_ship_line_id;
3236: l_index := l_index + 1;
3229: FETCH line_already_shipped_csr INTO l_exist;
3230: IF (line_already_shipped_csr%NOTFOUND) THEN
3231: -- Line not yet shipped: Include for deletion
3232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipment line with id ' || p_del_cancel_so_lines_tbl(i).oe_ship_line_id || ' included for deletion/cancellation.');
3234: END IF;
3235: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_ship_line_id;
3236: l_index := l_index + 1;
3237: END IF;
3263: OPEN line_already_shipped_csr(p_del_cancel_so_lines_tbl(i).oe_return_line_id);
3264: FETCH line_already_shipped_csr INTO l_exist;
3265: IF (line_already_shipped_csr%NOTFOUND) THEN
3266: -- Line not yet shipped: Include for deletion
3267: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3268: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Shipment line with id ' || p_del_cancel_so_lines_tbl(i).oe_return_line_id || ' included for deletion/cancellation.');
3269: END IF;
3270: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_return_line_id;
3271: l_index := l_index + 1;
3264: FETCH line_already_shipped_csr INTO l_exist;
3265: IF (line_already_shipped_csr%NOTFOUND) THEN
3266: -- Line not yet shipped: Include for deletion
3267: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3268: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Shipment line with id ' || p_del_cancel_so_lines_tbl(i).oe_return_line_id || ' included for deletion/cancellation.');
3269: END IF;
3270: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_return_line_id;
3271: l_index := l_index + 1;
3272: END IF;
3278: END LOOP;
3279: -- CALL SO API with consolidated list of line IDs
3280: IF(l_Ship_ID_Tbl.COUNT > 0) THEN
3281: -- CALL SO to delete/cancel SO
3282: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3283: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order with l_Ship_ID_Tbl.COUNT = ' || l_Ship_ID_Tbl.COUNT);
3284: END IF;
3285: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3286: p_api_version => 1.0,
3279: -- CALL SO API with consolidated list of line IDs
3280: IF(l_Ship_ID_Tbl.COUNT > 0) THEN
3281: -- CALL SO to delete/cancel SO
3282: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3283: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order with l_Ship_ID_Tbl.COUNT = ' || l_Ship_ID_Tbl.COUNT);
3284: END IF;
3285: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3286: p_api_version => 1.0,
3287: p_oe_header_id => NULL,
3300: IF FND_MSG_PUB.count_msg > 0 THEN
3301: RAISE FND_API.G_EXC_ERROR;
3302: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: END IF;
3304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3306: END IF;
3307: END delete_cancel_so;
3308:
3301: RAISE FND_API.G_EXC_ERROR;
3302: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: END IF;
3304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3306: END IF;
3307: END delete_cancel_so;
3308:
3309: -----------------------------------------------------------------------------------------------------
3323: l_exist VARCHAR(1);
3324: l_status_code VARCHAR(30);
3325: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CAN_CONVERT_ORDER';
3326: BEGIN
3327: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function');
3329: END IF;
3330: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3331: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3324: l_status_code VARCHAR(30);
3325: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CAN_CONVERT_ORDER';
3326: BEGIN
3327: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function');
3329: END IF;
3330: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3331: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3332: FND_MSG_PUB.ADD;
3329: END IF;
3330: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3331: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3332: FND_MSG_PUB.ADD;
3333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert from Order Type is not Service or Exchange');
3335: END IF;
3336: return false;
3337: END IF;
3330: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3331: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3332: FND_MSG_PUB.ADD;
3333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert from Order Type is not Service or Exchange');
3335: END IF;
3336: return false;
3337: END IF;
3338: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3337: END IF;
3338: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3339: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_TO_TYPE');
3340: FND_MSG_PUB.ADD;
3341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert to an order that is not of type Service or Exchange');
3343: END IF;
3344: return false;
3345: END IF;
3338: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3339: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_TO_TYPE');
3340: FND_MSG_PUB.ADD;
3341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert to an order that is not of type Service or Exchange');
3343: END IF;
3344: return false;
3345: END IF;
3346: -- check if the order is closed
3360: FETCH order_has_ship_return_csr INTO l_exist;
3361: IF( order_has_ship_return_csr %FOUND) THEN
3362: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_HAS_RET_LINE');
3363: FND_MSG_PUB.ADD;
3364: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'can_convert: Cannot Convert. Order has shipment return line');
3366: END IF;
3367: CLOSE order_has_ship_return_csr;
3368: return false;
3361: IF( order_has_ship_return_csr %FOUND) THEN
3362: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_HAS_RET_LINE');
3363: FND_MSG_PUB.ADD;
3364: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'can_convert: Cannot Convert. Order has shipment return line');
3366: END IF;
3367: CLOSE order_has_ship_return_csr;
3368: return false;
3369: END IF;
3383: AND vendor_id = p_vendor_id;
3384: l_exist VARCHAR(1);
3385: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_id_exist_in_PO';
3386: BEGIN
3387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3388: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3389: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_id: ' || p_vendor_id);
3390: END IF;
3391: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3384: l_exist VARCHAR(1);
3385: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_id_exist_in_PO';
3386: BEGIN
3387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3388: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3389: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_id: ' || p_vendor_id);
3390: END IF;
3391: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3392: AND p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
3411: AND vendor_site_id = p_vendor_site_id;
3412: l_exist VARCHAR(1);
3413: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_site_id_exist_in_PO';
3414: BEGIN
3415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3417: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_site_id: ' || p_vendor_site_id);
3418: END IF;
3419: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3412: l_exist VARCHAR(1);
3413: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_site_id_exist_in_PO';
3414: BEGIN
3415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3417: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_site_id: ' || p_vendor_site_id);
3418: END IF;
3419: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3420: AND p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
3495: IF FND_API.to_boolean(p_init_msg_list) THEN
3496: FND_MSG_PUB.initialize;
3497: END IF;
3498:
3499: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3500: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3501: G_LOG_PREFIX||l_api_name, --module
3502: 'The main API Begin: and header operation_flag='||p_x_osp_order_rec.operation_flag); --message_text
3503: END IF;
3496: FND_MSG_PUB.initialize;
3497: END IF;
3498:
3499: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3500: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3501: G_LOG_PREFIX||l_api_name, --module
3502: 'The main API Begin: and header operation_flag='||p_x_osp_order_rec.operation_flag); --message_text
3503: END IF;
3504:
3542: END IF;
3543: END IF;
3544:
3545: IF (p_x_osp_order_rec.operation_flag IS NULL) THEN
3546: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3547: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3548: G_LOG_PREFIX||l_api_name, --module
3549: 'Within API: No change to OSP header, just for lines');
3550: END IF;
3543: END IF;
3544:
3545: IF (p_x_osp_order_rec.operation_flag IS NULL) THEN
3546: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3547: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3548: G_LOG_PREFIX||l_api_name, --module
3549: 'Within API: No change to OSP header, just for lines');
3550: END IF;
3551: --No change to the header record and only to the line records
3593: x_return_status => l_return_status,
3594: x_msg_count => l_msg_count,
3595: x_msg_data => l_msg_data);
3596:
3597: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3598: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3599: G_LOG_PREFIX||l_api_name,
3600: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3601: l_return_status);
3594: x_msg_count => l_msg_count,
3595: x_msg_data => l_msg_data);
3596:
3597: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3598: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3599: G_LOG_PREFIX||l_api_name,
3600: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3601: l_return_status);
3602: END IF;
3637: p_x_osp_order_line_rec => p_x_osp_order_lines_tbl(i),
3638: x_warranty_entl_tbl => l_entl_rec_tbl,
3639: x_call_process_entl => l_call_process_entl);
3640:
3641: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3642: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3643: G_LOG_PREFIX||l_api_name,
3644: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3645: END IF;
3638: x_warranty_entl_tbl => l_entl_rec_tbl,
3639: x_call_process_entl => l_call_process_entl);
3640:
3641: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3642: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3643: G_LOG_PREFIX||l_api_name,
3644: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3645: END IF;
3646:
3655: x_return_status => l_return_status,
3656: x_msg_count => l_msg_count,
3657: x_msg_data => l_msg_data);
3658:
3659: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3660: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3661: G_LOG_PREFIX||l_api_name,
3662: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3663: l_return_status);
3656: x_msg_count => l_msg_count,
3657: x_msg_data => l_msg_data);
3658:
3659: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3660: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3661: G_LOG_PREFIX||l_api_name,
3662: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3663: l_return_status);
3664: END IF;
3681: p_x_osp_order_line_rec => p_x_osp_order_lines_tbl(i),
3682: x_warranty_entl_tbl => l_entl_rec_tbl,
3683: x_call_process_entl => l_call_process_entl);
3684:
3685: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3686: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3687: G_LOG_PREFIX||l_api_name,
3688: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3689: END IF;
3682: x_warranty_entl_tbl => l_entl_rec_tbl,
3683: x_call_process_entl => l_call_process_entl);
3684:
3685: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3686: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3687: G_LOG_PREFIX||l_api_name,
3688: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3689: END IF;
3690:
3699: x_return_status => l_return_status,
3700: x_msg_count => l_msg_count,
3701: x_msg_data => l_msg_data);
3702:
3703: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3704: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3705: G_LOG_PREFIX||l_api_name,
3706: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3707: l_return_status);
3700: x_msg_count => l_msg_count,
3701: x_msg_data => l_msg_data);
3702:
3703: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3704: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3705: G_LOG_PREFIX||l_api_name,
3706: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3707: l_return_status);
3708: END IF;
3775: --is checked, it will do nothing)
3776: create_shipment(p_x_osp_order_lines_tbl);
3777: END IF;
3778: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_DELETE) THEN
3779: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3781: G_LOG_PREFIX||l_api_name, --module
3782: 'Within API: Delete OSP Header/Lines');
3783: END IF;
3776: create_shipment(p_x_osp_order_lines_tbl);
3777: END IF;
3778: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_DELETE) THEN
3779: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3781: G_LOG_PREFIX||l_api_name, --module
3782: 'Within API: Delete OSP Header/Lines');
3783: END IF;
3784: --Front end just passes the osp_order_id
3793: RAISE FND_API.G_EXC_ERROR;
3794: END;
3795: --check the osp order could be deleted, if Yes then
3796: --Delete OSP order Header/Line records
3797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3799: G_LOG_PREFIX||l_api_name,
3800: 'Before deletion and status='||l_status_code||' oe_header='||l_oe_header_id);
3801: END IF;
3794: END;
3795: --check the osp order could be deleted, if Yes then
3796: --Delete OSP order Header/Line records
3797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3799: G_LOG_PREFIX||l_api_name,
3800: 'Before deletion and status='||l_status_code||' oe_header='||l_oe_header_id);
3801: END IF;
3802: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
3825: l_del_cancel_so_lines_tbl(i).oe_return_line_id := l_oe_return_line_id;
3826: i := i+1;
3827: END IF;
3828: END LOOP;
3829: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3830: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3831: G_LOG_PREFIX||l_api_name,
3832: 'Before calling: delete_cancel_so and table_count='||to_char(i-1));
3833: END IF;
3826: i := i+1;
3827: END IF;
3828: END LOOP;
3829: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3830: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3831: G_LOG_PREFIX||l_api_name,
3832: 'Before calling: delete_cancel_so and table_count='||to_char(i-1));
3833: END IF;
3834: --Delete Shipment header/lines
3853: x_return_status => l_return_status,
3854: x_msg_count => l_msg_count,
3855: x_msg_data => l_msg_data);
3856:
3857: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3858: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3859: G_LOG_PREFIX||l_api_name,
3860: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3861: l_return_status);
3854: x_msg_count => l_msg_count,
3855: x_msg_data => l_msg_data);
3856:
3857: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3858: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3859: G_LOG_PREFIX||l_api_name,
3860: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3861: l_return_status);
3862: END IF;
3876:
3877: --Delete OSP order header record
3878: AHL_OSP_ORDERS_PKG.delete_row(x_osp_order_id => p_x_osp_order_rec.osp_order_id);
3879:
3880: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3881: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3882: G_LOG_PREFIX||l_api_name,
3883: 'After deleting header.');
3884: END IF;
3877: --Delete OSP order header record
3878: AHL_OSP_ORDERS_PKG.delete_row(x_osp_order_id => p_x_osp_order_rec.osp_order_id);
3879:
3880: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3881: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3882: G_LOG_PREFIX||l_api_name,
3883: 'After deleting header.');
3884: END IF;
3885: ELSE
3887: FND_MSG_PUB.ADD;
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
3891: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3892: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3893: G_LOG_PREFIX||l_api_name, --module
3894: 'Within API: Update OSP Header/Lines');
3895: END IF;
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
3891: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3892: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3893: G_LOG_PREFIX||l_api_name, --module
3894: 'Within API: Update OSP Header/Lines');
3895: END IF;
3896: -- Validate and update header record
3946: x_return_status => l_return_status,
3947: x_msg_count => l_msg_count,
3948: x_msg_data => l_msg_data);
3949:
3950: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3952: G_LOG_PREFIX||l_api_name,
3953: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3954: l_return_status);
3947: x_msg_count => l_msg_count,
3948: x_msg_data => l_msg_data);
3949:
3950: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3952: G_LOG_PREFIX||l_api_name,
3953: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3954: l_return_status);
3955: END IF;
3985: p_x_osp_order_line_rec => p_x_osp_order_lines_tbl(i),
3986: x_warranty_entl_tbl => l_entl_rec_tbl,
3987: x_call_process_entl => l_call_process_entl);
3988:
3989: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3990: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3991: G_LOG_PREFIX||l_api_name,
3992: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3993: END IF;
3986: x_warranty_entl_tbl => l_entl_rec_tbl,
3987: x_call_process_entl => l_call_process_entl);
3988:
3989: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3990: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3991: G_LOG_PREFIX||l_api_name,
3992: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
3993: END IF;
3994:
4003: x_return_status => l_return_status,
4004: x_msg_count => l_msg_count,
4005: x_msg_data => l_msg_data);
4006:
4007: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4008: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4009: G_LOG_PREFIX||l_api_name,
4010: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4011: l_return_status);
4004: x_msg_count => l_msg_count,
4005: x_msg_data => l_msg_data);
4006:
4007: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4008: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4009: G_LOG_PREFIX||l_api_name,
4010: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4011: l_return_status);
4012: END IF;
4032: p_x_osp_order_line_rec => p_x_osp_order_lines_tbl(i),
4033: x_warranty_entl_tbl => l_entl_rec_tbl,
4034: x_call_process_entl => l_call_process_entl);
4035:
4036: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4037: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4038: G_LOG_PREFIX||l_api_name,
4039: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
4040: END IF;
4033: x_warranty_entl_tbl => l_entl_rec_tbl,
4034: x_call_process_entl => l_call_process_entl);
4035:
4036: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4037: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4038: G_LOG_PREFIX||l_api_name,
4039: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
4040: END IF;
4041:
4050: x_return_status => l_return_status,
4051: x_msg_count => l_msg_count,
4052: x_msg_data => l_msg_data);
4053:
4054: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4055: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4056: G_LOG_PREFIX||l_api_name,
4057: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4058: l_return_status);
4051: x_msg_count => l_msg_count,
4052: x_msg_data => l_msg_data);
4053:
4054: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4055: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4056: G_LOG_PREFIX||l_api_name,
4057: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4058: l_return_status);
4059: END IF;
4118: --Validate new line records first because in header record only one attribute needs validation
4119: --but it needs line records to derive vendor attributes.
4120: --
4121: --Default the attributes of header record and create OSP order header record
4122: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4123: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4124: G_LOG_PREFIX||l_api_name,
4125: 'OSP order header/Lines creation and lines count='||p_x_osp_order_lines_tbl.Count||
4126: 'osp_order_id='||p_x_osp_order_rec.osp_order_id);
4119: --but it needs line records to derive vendor attributes.
4120: --
4121: --Default the attributes of header record and create OSP order header record
4122: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4123: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4124: G_LOG_PREFIX||l_api_name,
4125: 'OSP order header/Lines creation and lines count='||p_x_osp_order_lines_tbl.Count||
4126: 'osp_order_id='||p_x_osp_order_rec.osp_order_id);
4127: END IF;
4129: IF (p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
4130: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
4131: --Create OSP order line records
4132: --p_x_osp_order_lines_tbl(i).osp_order_id := p_x_osp_order_rec.osp_order_id;
4133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4135: G_LOG_PREFIX||l_api_name,
4136: 'Within the API and i='||i||'workorder_id='||p_x_osp_order_lines_tbl(i).workorder_id||
4137: 'First='||p_x_osp_order_lines_tbl.FIRST||'Last='||p_x_osp_order_lines_tbl.LAST||
4130: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
4131: --Create OSP order line records
4132: --p_x_osp_order_lines_tbl(i).osp_order_id := p_x_osp_order_rec.osp_order_id;
4133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4135: G_LOG_PREFIX||l_api_name,
4136: 'Within the API and i='||i||'workorder_id='||p_x_osp_order_lines_tbl(i).workorder_id||
4137: 'First='||p_x_osp_order_lines_tbl.FIRST||'Last='||p_x_osp_order_lines_tbl.LAST||
4138: 'Count='||p_x_osp_order_lines_tbl.Count);
4149: p_x_osp_order_line_rec => p_x_osp_order_lines_tbl(i),
4150: x_warranty_entl_tbl => l_entl_rec_tbl,
4151: x_call_process_entl => l_call_process_entl);
4152:
4153: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4154: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4155: G_LOG_PREFIX||l_api_name,
4156: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
4157: END IF;
4150: x_warranty_entl_tbl => l_entl_rec_tbl,
4151: x_call_process_entl => l_call_process_entl);
4152:
4153: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4154: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4155: G_LOG_PREFIX||l_api_name,
4156: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Need to call ? ' || l_call_process_entl);
4157: END IF;
4158:
4167: x_return_status => l_return_status,
4168: x_msg_count => l_msg_count,
4169: x_msg_data => l_msg_data);
4170:
4171: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4172: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4173: G_LOG_PREFIX||l_api_name,
4174: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4175: l_return_status);
4168: x_msg_count => l_msg_count,
4169: x_msg_data => l_msg_data);
4170:
4171: IF(FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4172: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4173: G_LOG_PREFIX||l_api_name,
4174: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4175: l_return_status);
4176: END IF;
4190: create_shipment(p_x_osp_order_lines_tbl);
4191: END IF;
4192: END IF;
4193:
4194: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4195: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4196: G_LOG_PREFIX||l_api_name,
4197: 'API End: at the end of the procedure');
4198: END IF;
4191: END IF;
4192: END IF;
4193:
4194: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4195: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4196: G_LOG_PREFIX||l_api_name,
4197: 'API End: at the end of the procedure');
4198: END IF;
4199:
4295: fnd_user FU
4296: WHERE FU.user_id = fnd_global.user_id
4297: AND PA.buyer_id = FU.employee_id;
4298: BEGIN
4299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4301: G_LOG_PREFIX || 'create_osp_order_header',
4302: 'Procedure begins...');
4303: END IF;
4296: WHERE FU.user_id = fnd_global.user_id
4297: AND PA.buyer_id = FU.employee_id;
4298: BEGIN
4299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4301: G_LOG_PREFIX || 'create_osp_order_header',
4302: 'Procedure begins...');
4303: END IF;
4304:
4559: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
4560: p_x_osp_order_lines_tbl(i).osp_order_id := l_osp_order_id;
4561: END LOOP;
4562: END IF;
4563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4565: G_LOG_PREFIX || '.create_osp_order_header',
4566: 'Procedure exits normally');
4567: END IF;
4560: p_x_osp_order_lines_tbl(i).osp_order_id := l_osp_order_id;
4561: END LOOP;
4562: END IF;
4563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4565: G_LOG_PREFIX || '.create_osp_order_header',
4566: 'Procedure exits normally');
4567: END IF;
4568: END create_osp_order_header;
4595: FROM ahl_osp_orders_b
4596: WHERE osp_order_id = c_osp_order_id;
4597:
4598: BEGIN
4599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4600: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4601: G_LOG_PREFIX || '.update_osp_order_header',
4602: 'Procedure begins and osp_order_id='||p_x_osp_order_rec.osp_order_id);
4603: END IF;
4596: WHERE osp_order_id = c_osp_order_id;
4597:
4598: BEGIN
4599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4600: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4601: G_LOG_PREFIX || '.update_osp_order_header',
4602: 'Procedure begins and osp_order_id='||p_x_osp_order_rec.osp_order_id);
4603: END IF;
4604: --This three procedures are borrowed from the original ones
4669: --After the header vendor gets changed then calling validate_vendor_service_item.
4670: --If it is not for calling validate_vendor_service_item, then it is better to put
4671: --this validation ahead of table_handler calling
4672: --Validate the header vendor with physical/Service item combinations in lines
4673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4674: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4675: G_LOG_PREFIX || '.update_osp_order_header',
4676: 'new_vendor='||p_x_osp_order_rec.vendor_id||
4677: 'old_vendor='||l_vendor_id);
4670: --If it is not for calling validate_vendor_service_item, then it is better to put
4671: --this validation ahead of table_handler calling
4672: --Validate the header vendor with physical/Service item combinations in lines
4673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4674: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4675: G_LOG_PREFIX || '.update_osp_order_header',
4676: 'new_vendor='||p_x_osp_order_rec.vendor_id||
4677: 'old_vendor='||l_vendor_id);
4678: END IF;
4689: --l_osp_order_line_rec.osp_order_line_id := l_get_all_lines.osp_order_line_id;
4690: --l_osp_order_line_rec.inventory_item_id := l_get_all_lines.inventory_item_id;
4691: --l_osp_order_line_rec.inventory_org_id := l_get_all_lines.inventory_org_id;
4692: --l_osp_order_line_rec.service_item_id := l_get_all_lines.service_item_id;
4693: --IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4694: --FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4695: --G_LOG_PREFIX || '.update_osp_order_header',
4696: --'before calling validate_vendor_service_item'||
4697: --'line_id='||l_get_all_lines.osp_order_line_id||
4690: --l_osp_order_line_rec.inventory_item_id := l_get_all_lines.inventory_item_id;
4691: --l_osp_order_line_rec.inventory_org_id := l_get_all_lines.inventory_org_id;
4692: --l_osp_order_line_rec.service_item_id := l_get_all_lines.service_item_id;
4693: --IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4694: --FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4695: --G_LOG_PREFIX || '.update_osp_order_header',
4696: --'before calling validate_vendor_service_item'||
4697: --'line_id='||l_get_all_lines.osp_order_line_id||
4698: --'inventory_item_id ='||l_osp_order_line_rec.inventory_item_id||
4701: --END IF;
4702: -- validate_vendor_service_item(l_osp_order_line_rec);
4703: --END LOOP;
4704: --END IF;
4705: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4706: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4707: G_LOG_PREFIX || '.update_osp_order_header',
4708: 'Before calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change');
4709: END IF;
4702: -- validate_vendor_service_item(l_osp_order_line_rec);
4703: --END LOOP;
4704: --END IF;
4705: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4706: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4707: G_LOG_PREFIX || '.update_osp_order_header',
4708: 'Before calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change');
4709: END IF;
4710: IF ((l_oe_header_id IS NOT NULL) AND
4720: p_vendor_loc_id => p_x_osp_order_rec.vendor_site_id,
4721: x_return_status => l_return_status,
4722: x_msg_count => l_msg_count,
4723: x_msg_data => l_msg_data);
4724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4726: G_LOG_PREFIX || '.update_osp_order_header',
4727: 'Normally exit after calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change'||
4728: 'x_return_status='||l_return_status);
4721: x_return_status => l_return_status,
4722: x_msg_count => l_msg_count,
4723: x_msg_data => l_msg_data);
4724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4726: G_LOG_PREFIX || '.update_osp_order_header',
4727: 'Normally exit after calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change'||
4728: 'x_return_status='||l_return_status);
4729: END IF;
4790: AND arb.service_item_org_id = mtls.organization_id(+)
4791: AND arb.service_item_id = mtls.inventory_item_id(+)
4792: AND vts.instance_id = csii.instance_id;
4793: BEGIN
4794: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4795: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line',
4796: 'Before line validation:'||
4797: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
4798: END IF;
4791: AND arb.service_item_id = mtls.inventory_item_id(+)
4792: AND vts.instance_id = csii.instance_id;
4793: BEGIN
4794: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4795: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line',
4796: 'Before line validation:'||
4797: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
4798: END IF;
4799: --Validate the order line
4846: --leave p_x_osp_order_line_rec.sub_inventory blank
4847: CLOSE get_wo_item_attrs;
4848: END IF;
4849:
4850: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4851: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
4852: 'After line validation and before insert operation:'||
4853: 'inv_item_id='||p_x_osp_order_line_rec.inventory_item_id||' service_item_id='||p_x_osp_order_line_rec.service_item_id);
4854: END IF;
4847: CLOSE get_wo_item_attrs;
4848: END IF;
4849:
4850: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4851: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
4852: 'After line validation and before insert operation:'||
4853: 'inv_item_id='||p_x_osp_order_line_rec.inventory_item_id||' service_item_id='||p_x_osp_order_line_rec.service_item_id);
4854: END IF;
4855:
5094: -- jaramana January 10, 2008 Bug 5358438/5967633/5417460 ends
5095:
5096: --Remember to return the line id created
5097: p_x_osp_order_line_rec.osp_order_line_id := l_osp_line_id;
5098: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5099: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line', 'After insert operation:');
5100: END IF;
5101:
5102: END create_osp_order_line;
5095:
5096: --Remember to return the line id created
5097: p_x_osp_order_line_rec.osp_order_line_id := l_osp_line_id;
5098: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5099: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line', 'After insert operation:');
5100: END IF;
5101:
5102: END create_osp_order_line;
5103:
5132: AND osp_order_id = c_osp_order_id
5133: AND (oe_ship_line_id IS NOT NULL OR oe_return_line_id IS NOT NULL);
5134:
5135: BEGIN
5136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5137: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5138: G_LOG_PREFIX||'create_shipment','Begin');
5139: END IF;
5140: l_create_shipment := FALSE;
5133: AND (oe_ship_line_id IS NOT NULL OR oe_return_line_id IS NOT NULL);
5134:
5135: BEGIN
5136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5137: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5138: G_LOG_PREFIX||'create_shipment','Begin');
5139: END IF;
5140: l_create_shipment := FALSE;
5141: IF p_osp_order_lines_tbl.count > 0 THEN
5289: k := k+2;
5290: END IF;
5291: END IF;
5292: END LOOP;
5293: IF (l_oe_lines_tbl.COUNT > 0 AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5295: G_LOG_PREFIX||'create_shipment','Before calling Shipment API: process_order and the parameters are'||
5296: 'oe_header='||l_oe_header_rec.header_id||' header_oper_flag='||l_oe_header_rec.operation||
5297: 'oe_line1_osp_order_id='||l_oe_lines_tbl(1).osp_order_id||'oe_line2_osp_line_id='||l_oe_lines_tbl(1).osp_line_id||
5290: END IF;
5291: END IF;
5292: END LOOP;
5293: IF (l_oe_lines_tbl.COUNT > 0 AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5295: G_LOG_PREFIX||'create_shipment','Before calling Shipment API: process_order and the parameters are'||
5296: 'oe_header='||l_oe_header_rec.header_id||' header_oper_flag='||l_oe_header_rec.operation||
5297: 'oe_line1_osp_order_id='||l_oe_lines_tbl(1).osp_order_id||'oe_line2_osp_line_id='||l_oe_lines_tbl(1).osp_line_id||
5298: 'oe_line_operation='||l_oe_lines_tbl(1).operation);
5317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5318: END IF;
5319: END IF;
5320:
5321: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5322: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5323: G_LOG_PREFIX||'create_shipment',
5324: 'End: after calling shipment creation API and x_return_status='||l_return_status);
5325: END IF;
5318: END IF;
5319: END IF;
5320:
5321: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5322: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5323: G_LOG_PREFIX||'create_shipment',
5324: 'End: after calling shipment creation API and x_return_status='||l_return_status);
5325: END IF;
5326: END create_shipment;
5472: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_line_creation';
5473:
5474: BEGIN
5475: --Suppose all value id conversion has been done.
5476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Begin:');
5478: END IF;
5479: --For OAF, we decided to pass null when you want to change it to null, the old value if there is no
5480: --change.
5473:
5474: BEGIN
5475: --Suppose all value id conversion has been done.
5476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Begin:');
5478: END IF;
5479: --For OAF, we decided to pass null when you want to change it to null, the old value if there is no
5480: --change.
5481: IF nvl(g_module_type, 'NULL') <> G_OAF_MODULE THEN
5483: END IF;
5484:
5485: --And need to adde value to id conversion here
5486: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
5489: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
5490: END IF;
5491: --Validate osp_order_id
5484:
5485: --And need to adde value to id conversion here
5486: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
5489: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
5490: END IF;
5491: --Validate osp_order_id
5492: BEGIN
5537: FND_MSG_PUB.add;
5538: END IF;
5539: -- jaramna End
5540:
5541: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5542: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'item='||p_x_osp_order_line_rec.inventory_item_id||'org='||p_x_osp_order_line_rec.inventory_org_id);
5543: END IF;
5544: IF (p_x_osp_order_line_rec.workorder_id IS NULL AND p_x_osp_order_line_rec.inventory_item_id IS NULL) THEN
5545: FND_MESSAGE.set_name('AHL', 'AHL_OSP_WO_ITEM_ALL_NULL');
5538: END IF;
5539: -- jaramna End
5540:
5541: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5542: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'item='||p_x_osp_order_line_rec.inventory_item_id||'org='||p_x_osp_order_line_rec.inventory_org_id);
5543: END IF;
5544: IF (p_x_osp_order_line_rec.workorder_id IS NULL AND p_x_osp_order_line_rec.inventory_item_id IS NULL) THEN
5545: FND_MESSAGE.set_name('AHL', 'AHL_OSP_WO_ITEM_ALL_NULL');
5546: FND_MSG_PUB.add;
5555: END IF;
5556: OPEN check_physical_item(p_x_osp_order_line_rec.inventory_item_id,
5557: p_x_osp_order_line_rec.inventory_org_id);
5558: FETCH check_physical_item INTO l_check_physical_item;
5559: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'track_flag='||l_check_physical_item.comms_nl_trackable_flag);
5561: END IF;
5562: IF check_physical_item%NOTFOUND THEN
5563: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PHY_ITEM_INVALID');
5556: OPEN check_physical_item(p_x_osp_order_line_rec.inventory_item_id,
5557: p_x_osp_order_line_rec.inventory_org_id);
5558: FETCH check_physical_item INTO l_check_physical_item;
5559: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'track_flag='||l_check_physical_item.comms_nl_trackable_flag);
5561: END IF;
5562: IF check_physical_item%NOTFOUND THEN
5563: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PHY_ITEM_INVALID');
5564: FND_MSG_PUB.add;
5655: */
5656:
5657: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5658: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.workorder_id='||p_x_osp_order_line_rec.workorder_id);
5662: END IF;
5663:
5656:
5657: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5658: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.workorder_id='||p_x_osp_order_line_rec.workorder_id);
5662: END IF;
5663:
5664: OPEN get_wo_item_attrs(p_x_osp_order_line_rec.workorder_id);
5657: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5658: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.workorder_id='||p_x_osp_order_line_rec.workorder_id);
5662: END IF;
5663:
5664: OPEN get_wo_item_attrs(p_x_osp_order_line_rec.workorder_id);
5665: FETCH get_wo_item_attrs INTO p_x_osp_order_line_rec.inventory_item_id,
5674:
5675: CLOSE get_wo_item_attrs;
5676:
5677:
5678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_id ='||p_x_osp_order_line_rec.service_item_id);
5680: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_description ='||p_x_osp_order_line_rec.service_item_description);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5675: CLOSE get_wo_item_attrs;
5676:
5677:
5678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_id ='||p_x_osp_order_line_rec.service_item_id);
5680: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_description ='||p_x_osp_order_line_rec.service_item_description);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5683:
5676:
5677:
5678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_id ='||p_x_osp_order_line_rec.service_item_id);
5680: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_description ='||p_x_osp_order_line_rec.service_item_description);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5683:
5684: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5677:
5678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_id ='||p_x_osp_order_line_rec.service_item_id);
5680: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_description ='||p_x_osp_order_line_rec.service_item_description);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5683:
5684: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5685: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5680: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_description ='||p_x_osp_order_line_rec.service_item_description);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5683:
5684: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5685: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5686: END IF;
5687:
5688: OPEN get_po_line_attrs(p_x_osp_order_line_rec.po_line_id);
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.service_item_uom_code ='||p_x_osp_order_line_rec.service_item_uom_code);
5682: END IF;
5683:
5684: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5685: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_osp_order_line_rec.po_line_id='||p_x_osp_order_line_rec.po_line_id);
5686: END IF;
5687:
5688: OPEN get_po_line_attrs(p_x_osp_order_line_rec.po_line_id);
5689: FETCH get_po_line_attrs INTO l_po_line_attrs.line_num,
5694: l_po_line_attrs.quantity,
5695: l_po_line_attrs.need_by_date;
5696: CLOSE get_po_line_attrs;
5697:
5698: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5695: l_po_line_attrs.need_by_date;
5696: CLOSE get_po_line_attrs;
5697:
5698: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5696: CLOSE get_po_line_attrs;
5697:
5698: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5697:
5698: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5698: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5706: END IF;
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5706: END IF;
5707:
5700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5706: END IF;
5707:
5708:
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5706: END IF;
5707:
5708:
5709: IF (l_po_line_attrs.item_id is null and l_po_line_attrs.item_description is null) THEN
5790: END IF;
5791:
5792: --Validate header vendor with physical, service item combination in line
5793: --validate_vendor_service_item(p_x_osp_order_line_rec);
5794: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5795: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Normal End.');
5796: END IF;
5797: END IF;
5798:
5791:
5792: --Validate header vendor with physical, service item combination in line
5793: --validate_vendor_service_item(p_x_osp_order_line_rec);
5794: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5795: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Normal End.');
5796: END IF;
5797: END IF;
5798:
5799: --yazhou 22-Aug-2006 starts
5802: -- has already been created for the same item.
5803:
5804: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5805:
5806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id||'lot_number='||p_x_osp_order_line_rec.lot_number);
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5809: END IF;
5810:
5803:
5804: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5805:
5806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id||'lot_number='||p_x_osp_order_line_rec.lot_number);
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5809: END IF;
5810:
5811: OPEN check_osp_order_unique(p_x_osp_order_line_rec.osp_order_id,
5804: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5805:
5806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id||'lot_number='||p_x_osp_order_line_rec.lot_number);
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5809: END IF;
5810:
5811: OPEN check_osp_order_unique(p_x_osp_order_line_rec.osp_order_id,
5812: p_x_osp_order_line_rec.inventory_item_id,
5894: (l_exchange_instance_id is not null AND p_x_osp_order_line_rec.exchange_instance_id is null) OR --exchange instance deleted
5895: (l_exchange_instance_id is not null AND l_exchange_instance_id <> p_x_osp_order_line_rec.exchange_instance_id)) AND--exchange instance modified
5896: (p_x_osp_order_line_rec.oe_return_line_id is not null)) THEN --we can't get to the transaction tables without the return_line_id
5897: --Delete IB Transactions for these cases
5898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5899: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction ' );
5900: END IF;
5901:
5902: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
5895: (l_exchange_instance_id is not null AND l_exchange_instance_id <> p_x_osp_order_line_rec.exchange_instance_id)) AND--exchange instance modified
5896: (p_x_osp_order_line_rec.oe_return_line_id is not null)) THEN --we can't get to the transaction tables without the return_line_id
5897: --Delete IB Transactions for these cases
5898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5899: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction ' );
5900: END IF;
5901:
5902: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
5903: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
5906: x_return_status => l_return_status,
5907: x_msg_count => l_msg_count,
5908: x_msg_data => l_msg_data,
5909: p_oe_line_id => p_x_osp_order_line_rec.oe_return_line_id);
5910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: Return status' || l_return_status );
5912: END IF;
5913: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5914: RAISE FND_API.G_EXC_ERROR;
5907: x_msg_count => l_msg_count,
5908: x_msg_data => l_msg_data,
5909: p_oe_line_id => p_x_osp_order_line_rec.oe_return_line_id);
5910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: Return status' || l_return_status );
5912: END IF;
5913: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5914: RAISE FND_API.G_EXC_ERROR;
5915: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5918:
5919:
5920: IF (p_x_osp_order_line_rec.exchange_instance_id is not null) THEN
5921: --Create IB Transactions for these cases, note that we are not recreating when the exchange instance id is null
5922: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5923: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
5924: END IF;
5925:
5926: AHL_OSP_SHIPMENT_PUB.Create_IB_Transaction(
5919:
5920: IF (p_x_osp_order_line_rec.exchange_instance_id is not null) THEN
5921: --Create IB Transactions for these cases, note that we are not recreating when the exchange instance id is null
5922: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5923: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
5924: END IF;
5925:
5926: AHL_OSP_SHIPMENT_PUB.Create_IB_Transaction(
5927: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
5934: p_oe_line_type => 'RETURN',
5935: p_oe_line_id => p_x_osp_order_line_rec.oe_return_line_id,
5936: p_csi_instance_id => p_x_osp_order_line_rec.exchange_instance_id);
5937:
5938: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5939: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Create_IB_Transaction: Return status' || l_return_status );
5940: END IF;
5941: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5942: RAISE FND_API.G_EXC_ERROR;
5935: p_oe_line_id => p_x_osp_order_line_rec.oe_return_line_id,
5936: p_csi_instance_id => p_x_osp_order_line_rec.exchange_instance_id);
5937:
5938: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5939: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Create_IB_Transaction: Return status' || l_return_status );
5940: END IF;
5941: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5942: RAISE FND_API.G_EXC_ERROR;
5943: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6056: default_unchanged_order_line(p_x_osp_order_line_rec);
6057: END IF;
6058: convert_order_line_val_to_id(p_x_osp_order_line_rec);
6059: --Add the other validations here
6060: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6061: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6062: END IF;
6063: IF(p_x_osp_order_line_rec.osp_order_line_id IS NULL OR p_x_osp_order_line_rec.object_version_number IS NULL) THEN
6064: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_LN_ID_OBJ_MISS');
6057: END IF;
6058: convert_order_line_val_to_id(p_x_osp_order_line_rec);
6059: --Add the other validations here
6060: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6061: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6062: END IF;
6063: IF(p_x_osp_order_line_rec.osp_order_line_id IS NULL OR p_x_osp_order_line_rec.object_version_number IS NULL) THEN
6064: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_LN_ID_OBJ_MISS');
6065: FND_MSG_PUB.ADD;
6319: FND_MSG_PUB.ADD;
6320: END;
6321: -- SALOGAN added an if condition to avoid adding trailing spaces for Non Serial Item
6322: -- for bug #9826606 Starts
6323: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6324: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'validate_order_line_update',
6325: 'Item description : BEFORE : '|| l_item_description);
6326: END IF;
6327: IF(p_x_osp_order_line_rec.serial_number IS NULL) THEN
6320: END;
6321: -- SALOGAN added an if condition to avoid adding trailing spaces for Non Serial Item
6322: -- for bug #9826606 Starts
6323: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6324: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'validate_order_line_update',
6325: 'Item description : BEFORE : '|| l_item_description);
6326: END IF;
6327: IF(p_x_osp_order_line_rec.serial_number IS NULL) THEN
6328: l_item_description :=
6330: ELSE
6331: l_item_description :=
6332: TRIM(SUBSTR(l_item_prefix||l_inv_item_number||' '||l_serial_prefix||p_x_osp_order_line_rec.serial_number,1,240));
6333: END IF;
6334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'validate_order_line_update',
6336: 'Item description : AFTER : '|| l_item_description);
6337: END IF;
6338: -- SALOGAN changes for bug #9826606 Ends
6331: l_item_description :=
6332: TRIM(SUBSTR(l_item_prefix||l_inv_item_number||' '||l_serial_prefix||p_x_osp_order_line_rec.serial_number,1,240));
6333: END IF;
6334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'validate_order_line_update',
6336: 'Item description : AFTER : '|| l_item_description);
6337: END IF;
6338: -- SALOGAN changes for bug #9826606 Ends
6339: --l_item_description :=
6523: l_dummy_contact_id NUMBER;
6524: BEGIN
6525: --This whole logic depends on the assumption that rank is mandatory in table
6526: --ahl_item_vendor_rels
6527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6528: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6529: G_LOG_PREFIX || 'derive_default_vendor',
6530: 'Procedure begins and count='||p_item_service_rels_tbl.count);
6531: END IF;
6524: BEGIN
6525: --This whole logic depends on the assumption that rank is mandatory in table
6526: --ahl_item_vendor_rels
6527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6528: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6529: G_LOG_PREFIX || 'derive_default_vendor',
6530: 'Procedure begins and count='||p_item_service_rels_tbl.count);
6531: END IF;
6532: x_vendor_id := NULL;
6554: p_item_service_rels_tbl(i).inv_org_id,
6555: p_item_service_rels_tbl(i).service_item_id) LOOP
6556: l_temp_index := l_get_vendor_cert.vendor_certification_id;
6557: l_temp_rank := l_get_vendor_cert.rank;
6558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6560: G_LOG_PREFIX || 'derive_default_vendor',
6561: 'l_temp_index='||l_temp_index||
6562: 'l_temp_rank='||l_temp_rank);
6555: p_item_service_rels_tbl(i).service_item_id) LOOP
6556: l_temp_index := l_get_vendor_cert.vendor_certification_id;
6557: l_temp_rank := l_get_vendor_cert.rank;
6558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6560: G_LOG_PREFIX || 'derive_default_vendor',
6561: 'l_temp_index='||l_temp_index||
6562: 'l_temp_rank='||l_temp_rank);
6563: END IF;
6574: --Pick up the common vendor_cert_id (exists in all the sets) with
6575: --the highest(least) summary rank
6576: l_vendor_cert_id := NULL;
6577: l_temp_rank_sum := FND_API.G_MISS_NUM; --Just want to use a big positive number
6578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6580: G_LOG_PREFIX || 'derive_default_vendor',
6581: 'Procedure begins and count2='||l_vendor_rank_count_tbl.count||
6582: 'first='||l_vendor_rank_count_tbl.first||'last='||l_vendor_rank_count_tbl.last);
6575: --the highest(least) summary rank
6576: l_vendor_cert_id := NULL;
6577: l_temp_rank_sum := FND_API.G_MISS_NUM; --Just want to use a big positive number
6578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6580: G_LOG_PREFIX || 'derive_default_vendor',
6581: 'Procedure begins and count2='||l_vendor_rank_count_tbl.count||
6582: 'first='||l_vendor_rank_count_tbl.first||'last='||l_vendor_rank_count_tbl.last);
6583: END IF;
6583: END IF;
6584: l_vendor_index := l_vendor_rank_count_tbl.FIRST; -- get subscript of first element
6585: --You can't use FOR l_vendor_index IN l_vendor_rank_count_tbl.FIRST..l_vendor_rank_count_tbl.LAST here
6586: WHILE l_vendor_index IS NOT NULL LOOP
6587: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6588: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6589: G_LOG_PREFIX || 'derive_default_vendor',
6590: 'l_vendor_index='||l_vendor_index);
6591: END IF;
6584: l_vendor_index := l_vendor_rank_count_tbl.FIRST; -- get subscript of first element
6585: --You can't use FOR l_vendor_index IN l_vendor_rank_count_tbl.FIRST..l_vendor_rank_count_tbl.LAST here
6586: WHILE l_vendor_index IS NOT NULL LOOP
6587: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6588: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6589: G_LOG_PREFIX || 'derive_default_vendor',
6590: 'l_vendor_index='||l_vendor_index);
6591: END IF;
6592: IF (l_vendor_rank_count_tbl(l_vendor_index).count_num = p_item_service_rels_tbl.count) THEN
6615: END LOOP;
6616: END IF;
6617: END IF;
6618: END IF;
6619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6620: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6621: G_LOG_PREFIX || 'derive_default_vendor',
6622: 'Procedure exits normallly');
6623: END IF;
6616: END IF;
6617: END IF;
6618: END IF;
6619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6620: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6621: G_LOG_PREFIX || 'derive_default_vendor',
6622: 'Procedure exits normallly');
6623: END IF;
6624: END derive_default_vendor;
6655: l_dummy_contact_id NUMBER;
6656:
6657: BEGIN
6658:
6659: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. p_osp_order_id = ' || p_osp_order_id);
6661: END IF;
6662:
6663: x_any_vendor_flag := 'N';
6656:
6657: BEGIN
6658:
6659: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. p_osp_order_id = ' || p_osp_order_id);
6661: END IF;
6662:
6663: x_any_vendor_flag := 'N';
6664:
6687: END IF;
6688:
6689: -- Now try to get the common Vendor(s) for the associations in l_item_dtls_tbl
6690:
6691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Trying to get the common vendors for ' || l_item_dtls_tbl.COUNT || ' associations.');
6693: END IF;
6694:
6695: derive_default_vendor(p_item_service_rels_tbl => l_item_dtls_tbl,
6688:
6689: -- Now try to get the common Vendor(s) for the associations in l_item_dtls_tbl
6690:
6691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Trying to get the common vendors for ' || l_item_dtls_tbl.COUNT || ' associations.');
6693: END IF;
6694:
6695: derive_default_vendor(p_item_service_rels_tbl => l_item_dtls_tbl,
6696: x_vendor_id => l_dummy_vendor_id,
6697: x_vendor_site_id => l_dummy_site_id,
6698: x_vendor_contact_id => l_dummy_contact_id,
6699: x_valid_vendors_tbl => x_valid_vendors_tbl);
6700:
6701: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6703: END IF;
6704:
6705:
6698: x_vendor_contact_id => l_dummy_contact_id,
6699: x_valid_vendors_tbl => x_valid_vendors_tbl);
6700:
6701: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6703: END IF;
6704:
6705:
6706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6703: END IF;
6704:
6705:
6706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6708: END IF;
6709:
6710: END derive_common_vendors;
6703: END IF;
6704:
6705:
6706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6708: END IF;
6709:
6710: END derive_common_vendors;
6711:
6757: AND TRUNC(NVL(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
6758: l_exist VARCHAR2(1);
6759: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site_contact';
6760: BEGIN
6761: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6762: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6763: END IF;
6764: IF (p_vendor_id IS NULL) THEN
6765: IF (p_vendor_site_id IS NOT NULL OR p_vendor_contact_id IS NOT NULL) THEN
6758: l_exist VARCHAR2(1);
6759: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site_contact';
6760: BEGIN
6761: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6762: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6763: END IF;
6764: IF (p_vendor_id IS NULL) THEN
6765: IF (p_vendor_site_id IS NOT NULL OR p_vendor_contact_id IS NOT NULL) THEN
6766: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_VENDOR_ID_INV');
6825: END IF;
6826: END IF;
6827: END IF;
6828:
6829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6831: END IF;
6832: END validate_vendor_site_contact;
6833:
6826: END IF;
6827: END IF;
6828:
6829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6831: END IF;
6832: END validate_vendor_site_contact;
6833:
6834: --Copied from original default_unchanged_order_lines, so some inherited logic
6972:
6973: l_osp_order_line_rec osp_order_lines_csr%ROWTYPE;
6974: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_lines';
6975: BEGIN
6976: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6977: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6978: END IF;
6979: IF(p_x_osp_order_line_rec.operation_flag = G_OP_UPDATE) THEN
6980: OPEN osp_order_lines_csr;
6973: l_osp_order_line_rec osp_order_lines_csr%ROWTYPE;
6974: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_lines';
6975: BEGIN
6976: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6977: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6978: END IF;
6979: IF(p_x_osp_order_line_rec.operation_flag = G_OP_UPDATE) THEN
6980: OPEN osp_order_lines_csr;
6981: FETCH osp_order_lines_csr INTO l_osp_order_line_rec;
7336: IF (p_x_osp_order_line_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
7337: p_x_osp_order_line_rec.attribute15 := null;
7338: END IF;
7339: END IF;
7340: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7341: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7342: END IF;
7343: END default_unchanged_order_line;
7344:
7337: p_x_osp_order_line_rec.attribute15 := null;
7338: END IF;
7339: END IF;
7340: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7341: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7342: END IF;
7343: END default_unchanged_order_line;
7344:
7345: --Copied from original convert_order_lines_val_to_id, so some inherited logic
7398: AND MTL.organization_id = p_inventory_org_id;
7399: l_physical_item_id NUMBER;
7400: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_lines_val_to_id';
7401: BEGIN
7402: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7403: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7404: END IF;
7405: -- nulling out ids if module type is JSP
7406: --Jerry 04/18/2005, this 'JSP' consideration may not be necessary for
7399: l_physical_item_id NUMBER;
7400: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_lines_val_to_id';
7401: BEGIN
7402: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7403: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7404: END IF;
7405: -- nulling out ids if module type is JSP
7406: --Jerry 04/18/2005, this 'JSP' consideration may not be necessary for
7407: --newly added physical item, so it is not added here
7542: RAISE FND_API.G_EXC_ERROR;
7543: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7544: END IF;
7545: --dbms_output.put_line('Exiting : convert_order_lines_val_to_id');
7546: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7547: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7548: END IF;
7549: END convert_order_line_val_to_id;
7550:
7543: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7544: END IF;
7545: --dbms_output.put_line('Exiting : convert_order_lines_val_to_id');
7546: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7547: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7548: END IF;
7549: END convert_order_line_val_to_id;
7550:
7551: --validate service_item_id (simplified the original one)
7566: AND NVL(MTL.outside_operation_flag, G_NO_FLAG) = G_NO_FLAG
7567: AND MTL.organization_id = p_organization_id;
7568: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_id';
7569: BEGIN
7570: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7572: END IF;
7573:
7574: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
7567: AND MTL.organization_id = p_organization_id;
7568: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_id';
7569: BEGIN
7570: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7572: END IF;
7573:
7574: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
7575: OPEN val_service_item_id_csr;
7581: END IF;
7582: CLOSE val_service_item_id_csr;
7583: END IF;
7584:
7585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7586: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7587: END IF;
7588: END validate_service_item_id;
7589:
7582: CLOSE val_service_item_id_csr;
7583: END IF;
7584:
7585: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7586: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7587: END IF;
7588: END validate_service_item_id;
7589:
7590: --Validate header vendor with physical, service item combination in line
7610: AND B.vendor_id = c_vendor_id
7611: AND B.vendor_site_id = c_vendor_site_id;
7612: --AND B.vendor_contact_id = l_vendor_contact_id;
7613: BEGIN
7614: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7616: G_LOG_PREFIX || '.validate_vendor_service_item',
7617: 'osp_order_id='||p_osp_order_line_rec.osp_order_id );
7618: END IF;
7611: AND B.vendor_site_id = c_vendor_site_id;
7612: --AND B.vendor_contact_id = l_vendor_contact_id;
7613: BEGIN
7614: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7616: G_LOG_PREFIX || '.validate_vendor_service_item',
7617: 'osp_order_id='||p_osp_order_line_rec.osp_order_id );
7618: END IF;
7619: --IF (p_osp_order_line_rec.workorder_id IS NULL) THEN --commented out on 06/10/2006
7651: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ORDER_INVALID');
7652: FND_MSG_PUB.add;
7653: END;
7654:
7655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
7657: G_LOG_PREFIX || '.validate_vendor_service_item',
7658: 'vendor_id='||l_vendor_id||
7659: 'item_id='||p_osp_order_line_rec.inventory_item_id||
7652: FND_MSG_PUB.add;
7653: END;
7654:
7655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
7657: G_LOG_PREFIX || '.validate_vendor_service_item',
7658: 'vendor_id='||l_vendor_id||
7659: 'item_id='||p_osp_order_line_rec.inventory_item_id||
7660: 'org_id='||p_osp_order_line_rec.inventory_org_id||
7694: END IF;
7695: CLOSE verify_vendor;
7696: END IF;
7697: --END IF;
7698: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7699: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7700: G_LOG_PREFIX || '.validate_vendor_service_item',
7701: 'Normal end and msg_count='||l_msg_count||
7702: 'msg='||l_msg_data);
7695: CLOSE verify_vendor;
7696: END IF;
7697: --END IF;
7698: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7699: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7700: G_LOG_PREFIX || '.validate_vendor_service_item',
7701: 'Normal end and msg_count='||l_msg_count||
7702: 'msg='||l_msg_data);
7703: END IF;
7709: l_return_status VARCHAR2(30);
7710: l_msg_count NUMBER;
7711: l_msg_data VARCHAR2(2000);
7712: BEGIN
7713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'Begin');
7715: END IF;
7716: SELECT order_type_code INTO l_old_type_code
7717: FROM ahl_osp_orders_b
7710: l_msg_count NUMBER;
7711: l_msg_data VARCHAR2(2000);
7712: BEGIN
7713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'Begin');
7715: END IF;
7716: SELECT order_type_code INTO l_old_type_code
7717: FROM ahl_osp_orders_b
7718: WHERE osp_order_id = p_osp_order_rec.osp_order_id;
7743: x_msg_count => l_msg_count,
7744: x_msg_data => l_msg_data);
7745: END IF;
7746: END IF;
7747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'End');
7749: END IF;
7750: END process_order_type_change;
7751:
7744: x_msg_data => l_msg_data);
7745: END IF;
7746: END IF;
7747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'End');
7749: END IF;
7750: END process_order_type_change;
7751:
7752: --salogan added the following for supplier warranty starts
7848: WHERE wo.workorder_id = c_workorder_id);
7849:
7850: BEGIN
7851: --------------------Start of API Body-----------------------------------
7852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7853: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7854: L_DEBUG_KEY ||'.begin',
7855: 'At the start of PL SQL procedure.');
7856: END IF;
7849:
7850: BEGIN
7851: --------------------Start of API Body-----------------------------------
7852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7853: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7854: L_DEBUG_KEY ||'.begin',
7855: 'At the start of PL SQL procedure.');
7856: END IF;
7857:
7856: END IF;
7857:
7858: --------------------Get Entitlements Record For Create-------------------
7859: IF(p_x_osp_order_line_rec.osp_order_line_id = null OR p_x_osp_order_line_rec.instance_id = null) THEN
7860: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7862: L_DEBUG_KEY,
7863: 'Passed OSP_ORDER_LINE_ID : '|| p_x_osp_order_line_rec.osp_order_line_id ||
7864: ' or Instance id : '|| p_x_osp_order_line_rec.instance_id ||' is null');
7857:
7858: --------------------Get Entitlements Record For Create-------------------
7859: IF(p_x_osp_order_line_rec.osp_order_line_id = null OR p_x_osp_order_line_rec.instance_id = null) THEN
7860: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7862: L_DEBUG_KEY,
7863: 'Passed OSP_ORDER_LINE_ID : '|| p_x_osp_order_line_rec.osp_order_line_id ||
7864: ' or Instance id : '|| p_x_osp_order_line_rec.instance_id ||' is null');
7865: END IF;
7919: x_warranty_entl_tbl(0) := l_entitlement_rec;
7920: x_call_process_entl := l_call_process_entl;
7921:
7922: --------------------End of API Body-----------------------------------
7923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7924: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7925: L_DEBUG_KEY||'.end',
7926: 'At the end of PL SQL procedure.' ||
7927: ' OSP Order Line Id : '|| l_entitlement_rec.osp_order_line_id ||
7920: x_call_process_entl := l_call_process_entl;
7921:
7922: --------------------End of API Body-----------------------------------
7923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7924: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7925: L_DEBUG_KEY||'.end',
7926: 'At the end of PL SQL procedure.' ||
7927: ' OSP Order Line Id : '|| l_entitlement_rec.osp_order_line_id ||
7928: ' Warranty Contract Id : '|| l_entitlement_rec.warranty_contract_id ||
7980: AND CONTRACT_STATUS_CODE = 'ACTIVE';
7981:
7982: BEGIN
7983: --------------------Start of API Body-----------------------------------
7984: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7985: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7986: L_DEBUG_KEY ||'.begin',
7987: 'At the start of PL SQL procedure.');
7988: END IF;
7981:
7982: BEGIN
7983: --------------------Start of API Body-----------------------------------
7984: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7985: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7986: L_DEBUG_KEY ||'.begin',
7987: 'At the start of PL SQL procedure.');
7988: END IF;
7989:
7988: END IF;
7989:
7990: --------------------Get Entitlements Record For Update-------------------
7991: IF(p_x_osp_order_line_rec.osp_order_line_id is null ) THEN
7992: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7993: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7994: L_DEBUG_KEY,
7995: 'Passed osp order line id is null');
7996: END IF;
7989:
7990: --------------------Get Entitlements Record For Update-------------------
7991: IF(p_x_osp_order_line_rec.osp_order_line_id is null ) THEN
7992: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7993: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7994: L_DEBUG_KEY,
7995: 'Passed osp order line id is null');
7996: END IF;
7997: FND_MSG_PUB.add;
7997: FND_MSG_PUB.add;
7998: l_call_process_entl := 'N';
7999: END IF;
8000:
8001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8003: L_DEBUG_KEY,
8004: ' OSP Order Line Id is : '|| p_x_osp_order_line_rec.osp_order_line_id||
8005: ' Instance is : '|| p_x_osp_order_line_rec.instance_id||
7998: l_call_process_entl := 'N';
7999: END IF;
8000:
8001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8003: L_DEBUG_KEY,
8004: ' OSP Order Line Id is : '|| p_x_osp_order_line_rec.osp_order_line_id||
8005: ' Instance is : '|| p_x_osp_order_line_rec.instance_id||
8006: ' Entitlement Id is : '|| p_x_osp_order_line_rec.warranty_entitlement_id||
8068: --Adding the first record to the OUT param table type
8069: x_warranty_entl_tbl(0) := l_entitlement_rec;
8070: x_call_process_entl := l_call_process_entl;
8071:
8072: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8073: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8074: L_DEBUG_KEY,
8075: ' After updating the Entitlements record.' ||
8076: ' Task Id : '|| l_entitlement_rec.visit_task_id ||
8069: x_warranty_entl_tbl(0) := l_entitlement_rec;
8070: x_call_process_entl := l_call_process_entl;
8071:
8072: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8073: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8074: L_DEBUG_KEY,
8075: ' After updating the Entitlements record.' ||
8076: ' Task Id : '|| l_entitlement_rec.visit_task_id ||
8077: ' Warranty Contract Id : '|| l_entitlement_rec.warranty_contract_id ||
8081: ' Obj Version Num ' || l_entitlement_rec.object_version_number);
8082: END IF;
8083:
8084: ---------------------------End of API Body---------------------------------------
8085: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8086: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8087: L_DEBUG_KEY ||'.end',
8088: 'At the end of PL SQL procedure. ');
8089: END IF;
8082: END IF;
8083:
8084: ---------------------------End of API Body---------------------------------------
8085: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8086: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8087: L_DEBUG_KEY ||'.end',
8088: 'At the end of PL SQL procedure. ');
8089: END IF;
8090: END Get_Warranty_Rec_for_Update;
8131: WHERE OSP_ORDER_ID = c_osp_order_id;
8132:
8133: BEGIN
8134: --------------------Start of API Body-----------------------------------
8135: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8136: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8137: L_DEBUG_KEY ||'.begin',
8138: 'At the start of PL SQL procedure.'||
8139: 'OSP Order Id : '||p_osp_order_id|| ' OSP Line id : '||p_osp_order_line_id);
8132:
8133: BEGIN
8134: --------------------Start of API Body-----------------------------------
8135: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8136: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8137: L_DEBUG_KEY ||'.begin',
8138: 'At the start of PL SQL procedure.'||
8139: 'OSP Order Id : '||p_osp_order_id|| ' OSP Line id : '||p_osp_order_line_id);
8140: END IF;
8140: END IF;
8141:
8142: --------------------Get Entitlements Record For Update-------------------
8143: IF(p_osp_order_id is null AND p_osp_order_line_id is null) THEN
8144: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8146: L_DEBUG_KEY,
8147: 'Passed osp order id and osp order line id is null');
8148: END IF;
8141:
8142: --------------------Get Entitlements Record For Update-------------------
8143: IF(p_osp_order_id is null AND p_osp_order_line_id is null) THEN
8144: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8146: L_DEBUG_KEY,
8147: 'Passed osp order id and osp order line id is null');
8148: END IF;
8149: FND_MSG_PUB.add;
8163: ELSE --entitlement based on OSP
8164: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
8165: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
8166: END IF;
8167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
8169: L_DEBUG_KEY,
8170: ' Removed OSP Order Line Id ' || p_osp_order_line_id ||
8171: ' Task Id : ' || l_entitlement_rec.visit_task_id ||
8164: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
8165: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
8166: END IF;
8167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
8169: L_DEBUG_KEY,
8170: ' Removed OSP Order Line Id ' || p_osp_order_line_id ||
8171: ' Task Id : ' || l_entitlement_rec.visit_task_id ||
8172: ' Entitlement id : '|| l_entitlement_rec.warranty_entitlement_id ||
8194: ELSE --entitlement based on OSP
8195: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
8196: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
8197: END IF;
8198: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
8200: L_DEBUG_KEY,
8201: ' Removed OSP Order Line Id ' || l_osp_line_id ||
8202: ' Task Id : ' || l_entitlement_rec.visit_task_id ||
8195: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
8196: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
8197: END IF;
8198: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
8200: L_DEBUG_KEY,
8201: ' Removed OSP Order Line Id ' || l_osp_line_id ||
8202: ' Task Id : ' || l_entitlement_rec.visit_task_id ||
8203: ' Entitlement id : '|| l_entitlement_rec.warranty_entitlement_id ||
8209: END LOOP;
8210: CLOSE c_get_osp_lines;
8211: END IF;
8212:
8213: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8215: L_DEBUG_KEY,
8216: ' End of API.');
8217: END IF;
8210: CLOSE c_get_osp_lines;
8211: END IF;
8212:
8213: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
8215: L_DEBUG_KEY,
8216: ' End of API.');
8217: END IF;
8218: END Get_Entl_rec_for_Delete;
8239: WHERE osp_order_line_id = p_osp_order_line_id;
8240: i NUMBER; --index for looping
8241: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.nullify_exchange_instance';
8242: BEGIN
8243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
8245: END IF;
8246: OPEN l_order_lines_csr(p_osp_order_id);
8247: LOOP
8240: i NUMBER; --index for looping
8241: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.nullify_exchange_instance';
8242: BEGIN
8243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
8245: END IF;
8246: OPEN l_order_lines_csr(p_osp_order_id);
8247: LOOP
8248: FETCH l_order_lines_csr INTO l_osp_order_lines_rec.osp_order_line_id ,
8334: );
8335: END LOOP;
8336: --get the newest object_version_number for p_x_osp_order_lines_tbl
8337: IF(p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
8338: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' p_x_osp_order_lines_tbl not null' ||
8340: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
8341: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
8342: END IF;
8335: END LOOP;
8336: --get the newest object_version_number for p_x_osp_order_lines_tbl
8337: IF(p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
8338: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' p_x_osp_order_lines_tbl not null' ||
8340: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
8341: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
8342: END IF;
8343: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
8340: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
8341: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
8342: END IF;
8343: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
8344: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
8346: END IF;
8347: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
8348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8341: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
8342: END IF;
8343: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
8344: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
8346: END IF;
8347: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
8348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
8344: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
8346: END IF;
8347: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
8348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
8350: END IF;
8351: OPEN l_order_line_obj_ver_csr(p_x_osp_order_lines_tbl(i).osp_order_line_id);
8352: FETCH l_order_line_obj_ver_csr INTO p_x_osp_order_lines_tbl(i).object_version_number;
8345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
8346: END IF;
8347: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
8348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
8350: END IF;
8351: OPEN l_order_line_obj_ver_csr(p_x_osp_order_lines_tbl(i).osp_order_line_id);
8352: FETCH l_order_line_obj_ver_csr INTO p_x_osp_order_lines_tbl(i).object_version_number;
8353: CLOSE l_order_line_obj_ver_csr;
8353: CLOSE l_order_line_obj_ver_csr;
8354: END IF;
8355: END LOOP;
8356: END IF;
8357: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8358: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
8359: END IF;
8360: END nullify_exchange_instance;
8361: */
8354: END IF;
8355: END LOOP;
8356: END IF;
8357: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8358: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
8359: END IF;
8360: END nullify_exchange_instance;
8361: */