[Home] [Help]
316: l_count NUMBER;
317: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_header_val_to_id';
318: BEGIN
319: --dbms_output.put_line('Entering : convert_order_header_val_to_id');
320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
322: END IF;
323: 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
324: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INVOP');
317: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_header_val_to_id';
318: BEGIN
319: --dbms_output.put_line('Entering : convert_order_header_val_to_id');
320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
322: END IF;
323: 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
324: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INVOP');
325: FND_MSG_PUB.ADD;
564: IF FND_MSG_PUB.count_msg > 0 THEN
565: RAISE FND_API.G_EXC_ERROR;
566: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: END IF;
568: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
570: END IF;
571: --dbms_output.put_line('Exiting : convert_order_header_val_to_id');
572: END convert_order_header_val_to_id;
565: RAISE FND_API.G_EXC_ERROR;
566: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: END IF;
568: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
570: END IF;
571: --dbms_output.put_line('Exiting : convert_order_header_val_to_id');
572: END convert_order_header_val_to_id;
573:
588: AND TRUNC(nvl(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
589: l_exist VARCHAR2(1);
590: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor';
591: BEGIN
592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
594: END IF;
595: IF(p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
596: OPEN val_vendor_id_csr(p_vendor_id);
589: l_exist VARCHAR2(1);
590: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor';
591: BEGIN
592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
594: END IF;
595: IF(p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
596: OPEN val_vendor_id_csr(p_vendor_id);
597: FETCH val_vendor_id_csr INTO l_exist;
609: FND_MSG_PUB.ADD;
610: END IF;
611: CLOSE get_vendor_cert;
612: END IF;
613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
615: END IF;
616: END validate_vendor;
617:
610: END IF;
611: CLOSE get_vendor_cert;
612: END IF;
613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
615: END IF;
616: END validate_vendor;
617:
618: -------------------------------------------------------------------------------------------------------------
633: AND TRUNC(nvl(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
634: l_exist VARCHAR2(1);
635: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site';
636: BEGIN
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
639: END IF;
640: IF (p_vendor_id IS NULL OR p_vendor_id = FND_API.G_MISS_NUM) THEN
641: IF(p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
634: l_exist VARCHAR2(1);
635: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site';
636: BEGIN
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
639: END IF;
640: IF (p_vendor_id IS NULL OR p_vendor_id = FND_API.G_MISS_NUM) THEN
641: IF(p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
642: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_VEND_ID_NLL');
662: END IF;
663: CLOSE get_vendor_cert;
664: END IF;
665: END IF;
666: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
668: END IF;
669: END validate_vendor_site;
670:
663: CLOSE get_vendor_cert;
664: END IF;
665: END IF;
666: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
668: END IF;
669: END validate_vendor_site;
670:
671: -------------------------------------------------------------------------------------------------------------
677: where party_id = p_customer_id and party_type = 'ORGANIZATION';
678: l_exist VARCHAR2(1);
679: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_customer';
680: BEGIN
681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
683: END IF;
684: IF(p_customer_id IS NOT NULL AND p_customer_id <> FND_API.G_MISS_NUM) THEN
685: OPEN val_customer_id_csr(p_customer_id);
678: l_exist VARCHAR2(1);
679: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_customer';
680: BEGIN
681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
683: END IF;
684: IF(p_customer_id IS NOT NULL AND p_customer_id <> FND_API.G_MISS_NUM) THEN
685: OPEN val_customer_id_csr(p_customer_id);
686: FETCH val_customer_id_csr INTO l_exist;
690: FND_MSG_PUB.ADD;
691: END IF;
692: CLOSE val_customer_id_csr;
693: END IF;
694: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
696: END IF;
697: END validate_customer;
698:
691: END IF;
692: CLOSE val_customer_id_csr;
693: END IF;
694: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
696: END IF;
697: END validate_customer;
698:
699: -------------------------------------------------------------------------------------------------------------
705: WHERE buyer_id = p_po_agent_id;
706: l_exist VARCHAR2(1);
707: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_buyer';
708: BEGIN
709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
710: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
711: END IF;
712: IF(p_po_agent_id IS NOT NULL AND p_po_agent_id <> FND_API.G_MISS_NUM) THEN
713: OPEN val_po_agent_id_csr(p_po_agent_id);
706: l_exist VARCHAR2(1);
707: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_buyer';
708: BEGIN
709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
710: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
711: END IF;
712: IF(p_po_agent_id IS NOT NULL AND p_po_agent_id <> FND_API.G_MISS_NUM) THEN
713: OPEN val_po_agent_id_csr(p_po_agent_id);
714: FETCH val_po_agent_id_csr INTO l_exist;
718: FND_MSG_PUB.ADD;
719: END IF;
720: CLOSE val_po_agent_id_csr;
721: END IF;
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
724: END IF;
725: END validate_buyer;
726:
719: END IF;
720: CLOSE val_po_agent_id_csr;
721: END IF;
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
724: END IF;
725: END validate_buyer;
726:
727: -------------------------------------------------------------------------------------------------------------
743: l_buy_or_sell VARCHAR2(1);
744: l_object_code VARCHAR2(30);
745: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_contract';
746: BEGIN
747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
749: END IF;
750: IF(p_order_type_code = G_OSP_ORDER_TYPE_BORROW) THEN
751: l_buy_or_sell := 'B';
744: l_object_code VARCHAR2(30);
745: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_contract';
746: BEGIN
747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
749: END IF;
750: IF(p_order_type_code = G_OSP_ORDER_TYPE_BORROW) THEN
751: l_buy_or_sell := 'B';
752: l_object_code := 'OKX_VENDOR';
775: END IF;
776: CLOSE val_contract_id_csr;
777: END IF;
778: END IF;
779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
781: END IF;
782: END validate_contract;
783:
776: CLOSE val_contract_id_csr;
777: END IF;
778: END IF;
779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
781: END IF;
782: END validate_contract;
783:
784: -------------------------------------------------------------------------------------------------------------
793: AND interface_source_code = G_APP_NAME;
794: l_exist VARCHAR2(1);
795: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_header';
796: BEGIN
797: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
799: END IF;
800: IF(p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
801: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_HEADER_INV');
794: l_exist VARCHAR2(1);
795: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_header';
796: BEGIN
797: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
799: END IF;
800: IF(p_osp_order_id IS NULL OR p_osp_order_id = FND_API.G_MISS_NUM) THEN
801: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_HEADER_INV');
802: FND_MSG_PUB.ADD;
811: FND_MSG_PUB.ADD;
812: END IF;
813: CLOSE val_po_header_id_csr;
814: END IF;
815: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
817: END IF;
818: END validate_po_header;
819:
812: END IF;
813: CLOSE val_po_header_id_csr;
814: END IF;
815: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
817: END IF;
818: END validate_po_header;
819:
820: --------------------------------------------------------------------------------------------------------------
861: l_del_cancel_so_lines_tbl del_cancel_so_lines_tbl_type;
862: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_header';
863: BEGIN
864: --dbms_output.put_line('Entering : validate_order_header');
865: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
866: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
867: END IF;
868: l_operating_unit_id := mo_global.get_current_org_id();
869: IF (l_operating_unit_id IS NULL) THEN
862: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_header';
863: BEGIN
864: --dbms_output.put_line('Entering : validate_order_header');
865: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
866: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
867: END IF;
868: l_operating_unit_id := mo_global.get_current_org_id();
869: IF (l_operating_unit_id IS NULL) THEN
870: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_ORG_NOT_SET');
877: -- Note added by jaramana on January 8, 2008 for the Requisition ER 6034236
878: -- 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
879: -- means, there need to be no change in the osp_order_header, hence no validation is necessary.
880: IF(p_x_osp_order_rec.operation_flag IS NULL OR p_x_osp_order_rec.operation_flag <> G_OP_CREATE) THEN
881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'operation is not create, it is:'||p_x_osp_order_rec.operation_flag);
883: END IF;
884: IF(p_x_osp_order_rec.osp_order_id IS NULL OR p_x_osp_order_rec.object_version_number IS NULL) THEN
885: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_OBJ_MISS');
878: -- 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
879: -- means, there need to be no change in the osp_order_header, hence no validation is necessary.
880: IF(p_x_osp_order_rec.operation_flag IS NULL OR p_x_osp_order_rec.operation_flag <> G_OP_CREATE) THEN
881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'operation is not create, it is:'||p_x_osp_order_rec.operation_flag);
883: END IF;
884: IF(p_x_osp_order_rec.osp_order_id IS NULL OR p_x_osp_order_rec.object_version_number IS NULL) THEN
885: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_OBJ_MISS');
886: FND_MSG_PUB.ADD;
894: l_osp_order_rec.contract_id, l_osp_order_rec.contract_terms, l_osp_order_rec.operating_unit_id,
895: 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,
896: 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;
897: -- jaramana End
898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: 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);
900: END IF;
901: -- if record not found, raise error and declare that record has been modified.
902: IF (osp_order_csr%NOTFOUND) THEN
895: 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,
896: 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;
897: -- jaramana End
898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: 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);
900: END IF;
901: -- if record not found, raise error and declare that record has been modified.
902: IF (osp_order_csr%NOTFOUND) THEN
903: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
938: --item exchange enhancement
939: --only service/exchange ordertype conversion are allowed
940: IF(p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)
941: AND l_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
942: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'Set conversion Flag to Yes');
944: END IF;
945: -- Commented out by jaramana on January 8, 2008 for the Requisition ER 6034236
946: -- g_order_conversion_flag := G_YES_FLAG;
939: --only service/exchange ordertype conversion are allowed
940: IF(p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)
941: AND l_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
942: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.notCreate', 'Set conversion Flag to Yes');
944: END IF;
945: -- Commented out by jaramana on January 8, 2008 for the Requisition ER 6034236
946: -- g_order_conversion_flag := G_YES_FLAG;
947: -- jaramana End
1008: --and the rest of them are being validated in the create_osp_order_header API
1009: /*
1010: ELSE -- mode is create and following processing is same for all type of orders
1011:
1012: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.create', 'operation is create');
1014: END IF;
1015: 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
1016: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_NNLL');
1009: /*
1010: ELSE -- mode is create and following processing is same for all type of orders
1011:
1012: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.create', 'operation is create');
1014: END IF;
1015: 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
1016: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_ID_NNLL');
1017: FND_MSG_PUB.ADD;
1087: -- forcing null column rules
1088: ----------------------------
1089: -- add item exchange enhancement to if condition
1090: IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE))THEN
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1092: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Service or Exchange');
1093: END IF;
1094: -- contract_id and customer_id must be null for SERVICE or EXCHANGE
1095: 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
1088: ----------------------------
1089: -- add item exchange enhancement to if condition
1090: IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE))THEN
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1092: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Service or Exchange');
1093: END IF;
1094: -- contract_id and customer_id must be null for SERVICE or EXCHANGE
1095: 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
1096: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INV_CTRCT');
1106: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ORD_INV_CO');
1107: FND_MSG_PUB.ADD;
1108: END IF;
1109: ELSIF (p_x_osp_order_rec.order_type_code IN( G_OSP_ORDER_TYPE_LOAN,G_OSP_ORDER_TYPE_BORROW) ) THEN
1110: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1111: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Loan or Borrow');
1112: END IF;
1113: -- po_agent_id,vendor_id(FOR LOAN only) and vendor_site_id must be null.
1114: 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
1107: FND_MSG_PUB.ADD;
1108: END IF;
1109: ELSIF (p_x_osp_order_rec.order_type_code IN( G_OSP_ORDER_TYPE_LOAN,G_OSP_ORDER_TYPE_BORROW) ) THEN
1110: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1111: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type', 'Update Order type is Loan or Borrow');
1112: END IF;
1113: -- po_agent_id,vendor_id(FOR LOAN only) and vendor_site_id must be null.
1114: 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
1115: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_BUYER_ID_INV');
1170: -- Hence commenting out the following validations.
1171:
1172: /*
1173: IF(p_x_osp_order_rec.operation_flag = G_OP_CREATE) THEN
1174: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1175: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type.oper', 'Update Order type is Service or Exchange Operation is Create');
1176: END IF;
1177: --dbms_output.put_line('validate single_instance_flag');
1178: --set single_instance_flag
1171:
1172: /*
1173: IF(p_x_osp_order_rec.operation_flag = G_OP_CREATE) THEN
1174: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1175: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.type.oper', 'Update Order type is Service or Exchange Operation is Create');
1176: END IF;
1177: --dbms_output.put_line('validate single_instance_flag');
1178: --set single_instance_flag
1179: 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
1214: END IF;
1215: */
1216: -- jaramana End
1217: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1218: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1219: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update', 'Update Order type is Service or Exchange Operation is Update ');
1220: END IF;
1221: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1222: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1215: */
1216: -- jaramana End
1217: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1218: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1219: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update', 'Update Order type is Service or Exchange Operation is Update ');
1220: END IF;
1221: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1222: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1223: -- jaramana End
1220: END IF;
1221: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1222: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1223: -- jaramana End
1224: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1225: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1226: || 'g_old_status_code' || g_old_status_code);
1227: END IF;
1228: -- po_header_id should be null.
1221: -- Modified by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added G_OSP_REQ_SUB_FAILED_STATUS)
1222: IF(g_old_status_code IN (G_OSP_ENTERED_STATUS, G_OSP_SUB_FAILED_STATUS, G_OSP_REQ_SUB_FAILED_STATUS)) THEN
1223: -- jaramana End
1224: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1225: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1226: || 'g_old_status_code' || g_old_status_code);
1227: END IF;
1228: -- po_header_id should be null.
1229: 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
1349: -- End addition by jaramana on January 9, 2008
1350: ELSIF (g_old_status_code = G_OSP_SUBMITTED_STATUS) THEN
1351: -- status_code should be null,'SUBMITTED', 'SUBMISSION_FAILED' or 'PO_CREATED'
1352: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_SUBMITTED_STATUS) THEN
1353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1355: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1356: END IF;
1357: -- po_header_id should be null.
1350: ELSIF (g_old_status_code = G_OSP_SUBMITTED_STATUS) THEN
1351: -- status_code should be null,'SUBMITTED', 'SUBMISSION_FAILED' or 'PO_CREATED'
1352: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_SUBMITTED_STATUS) THEN
1353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1355: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1356: END IF;
1357: -- po_header_id should be null.
1358: 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
1451: END IF;
1452: -- set status_code for lines
1453: g_order_status_for_update := G_OSP_SUB_FAILED_STATUS;
1454: ELSIF (p_x_osp_order_rec.status_code = G_OSP_PO_CREATED_STATUS) THEN
1455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1457: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1458: END IF;
1459: -- po_header_id should be not be null.
1452: -- set status_code for lines
1453: g_order_status_for_update := G_OSP_SUB_FAILED_STATUS;
1454: ELSIF (p_x_osp_order_rec.status_code = G_OSP_PO_CREATED_STATUS) THEN
1455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1457: || 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1458: END IF;
1459: -- po_header_id should be not be null.
1460: 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
1497: FND_MSG_PUB.ADD;
1498: END IF;
1499:
1500: ELSIF (g_old_status_code = G_OSP_PO_CREATED_STATUS) THEN
1501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1503: || 'g_old_status_code: ' || g_old_status_code);
1504: END IF;
1505: -- status_code should be null, 'PO_CREATED' or 'CLOSED'
1498: END IF;
1499:
1500: ELSIF (g_old_status_code = G_OSP_PO_CREATED_STATUS) THEN
1501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1503: || 'g_old_status_code: ' || g_old_status_code);
1504: END IF;
1505: -- status_code should be null, 'PO_CREATED' or 'CLOSED'
1506: 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
1573: END IF;
1574: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
1575: ELSIF (g_old_status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1576: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'||
1579: 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1580: END IF;
1581: -- po_header_id should be null.
1574: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
1575: ELSIF (g_old_status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1576: IF(p_x_osp_order_rec.status_code IS NULL OR p_x_osp_order_rec.status_code = G_OSP_REQ_SUBMITTED_STATUS) THEN
1577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'||
1579: 'g_old_status_code: ' || g_old_status_code || 'new status: ' || p_x_osp_order_rec.status_code );
1580: END IF;
1581: -- po_header_id should be null.
1582: 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
1620: FND_MSG_PUB.ADD;
1621: END IF;
1622:
1623: ELSIF (g_old_status_code = G_OSP_REQ_CREATED_STATUS) THEN
1624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1626: || 'g_old_status_code: ' || g_old_status_code);
1627: END IF;
1628: -- status_code should be null, 'REQ_CREATED' or 'CLOSED'
1621: END IF;
1622:
1623: ELSIF (g_old_status_code = G_OSP_REQ_CREATED_STATUS) THEN
1624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.srvExch.update.', 'Update Order type is Service or Exchange Operation is Update'
1626: || 'g_old_status_code: ' || g_old_status_code);
1627: END IF;
1628: -- status_code should be null, 'REQ_CREATED' or 'CLOSED'
1629: 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
1677: END IF; --IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1678: END IF; --IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
1679: -- validate Loan order header
1680: ELSIF (p_x_osp_order_rec.order_type_code = G_OSP_ORDER_TYPE_LOAN) THEN
1681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1682: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.loan', 'Update order type is Loan');
1683: END IF;
1684: -- single_instance_flag can not be other than null, GMISS or G_NO_FLAG.
1685: 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
1678: END IF; --IF (p_x_osp_order_rec.order_type_code IN ( G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
1679: -- validate Loan order header
1680: ELSIF (p_x_osp_order_rec.order_type_code = G_OSP_ORDER_TYPE_LOAN) THEN
1681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1682: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '.loan', 'Update order type is Loan');
1683: END IF;
1684: -- single_instance_flag can not be other than null, GMISS or G_NO_FLAG.
1685: 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
1686: OR p_x_osp_order_rec.single_instance_flag = G_NO_FLAG )THEN
1923: IF FND_MSG_PUB.count_msg > 0 THEN
1924: RAISE FND_API.G_EXC_ERROR;
1925: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: END IF;
1927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1929: END IF;
1930: --dbms_output.put_line('Exiting : validate_order_header');
1931: END validate_order_header;
1924: RAISE FND_API.G_EXC_ERROR;
1925: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: END IF;
1927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1929: END IF;
1930: --dbms_output.put_line('Exiting : validate_order_header');
1931: END validate_order_header;
1932:
1952: AND object_version_number= p_object_version_number;
1953: l_osp_order_rec osp_order_rec_type;
1954: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_header';
1955: BEGIN
1956: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
1958: END IF;
1959: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1960: OPEN osp_order_csr(p_x_osp_order_rec.osp_order_id, p_x_osp_order_rec.object_version_number);
1953: l_osp_order_rec osp_order_rec_type;
1954: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_header';
1955: BEGIN
1956: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
1958: END IF;
1959: IF(p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
1960: OPEN osp_order_csr(p_x_osp_order_rec.osp_order_id, p_x_osp_order_rec.object_version_number);
1961: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236 (Added the PO_REQ_HEADER_ID in the rec below)
1971: l_osp_order_rec.attribute9, l_osp_order_rec.attribute10, l_osp_order_rec.attribute11,
1972: l_osp_order_rec.attribute12, l_osp_order_rec.attribute13, l_osp_order_rec.attribute14,
1973: l_osp_order_rec.attribute15, l_osp_order_rec.vendor_contact_id;
1974: -- jaramana End
1975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1976: 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);
1977: END IF;
1978: IF (osp_order_csr%NOTFOUND) THEN
1979: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
1972: l_osp_order_rec.attribute12, l_osp_order_rec.attribute13, l_osp_order_rec.attribute14,
1973: l_osp_order_rec.attribute15, l_osp_order_rec.vendor_contact_id;
1974: -- jaramana End
1975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1976: 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);
1977: END IF;
1978: IF (osp_order_csr%NOTFOUND) THEN
1979: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_NFOUND');
1980: FND_MSG_PUB.ADD;
2049: p_x_osp_order_rec.status_code := l_osp_order_rec.status_code;
2050: ELSIF(p_x_osp_order_rec.status_code = FND_API.G_MISS_CHAR) THEN
2051: p_x_osp_order_rec.status_code := null;
2052: END IF;
2053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2054: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2055: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2056: 'request_id='||p_x_osp_order_rec.po_request_id||
2057: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2050: ELSIF(p_x_osp_order_rec.status_code = FND_API.G_MISS_CHAR) THEN
2051: p_x_osp_order_rec.status_code := null;
2052: END IF;
2053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2054: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2055: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2056: 'request_id='||p_x_osp_order_rec.po_request_id||
2057: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2058: END IF;
2293: IF FND_MSG_PUB.count_msg > 0 THEN
2294: RAISE FND_API.G_EXC_ERROR;
2295: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2296: END IF;
2297: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2299: END IF;
2300: --dbms_output.put_line('Exiting : default_unchanged_order_header');
2301: END default_unchanged_order_header;
2294: RAISE FND_API.G_EXC_ERROR;
2295: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2296: END IF;
2297: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2299: END IF;
2300: --dbms_output.put_line('Exiting : default_unchanged_order_header');
2301: END default_unchanged_order_header;
2302:
2333:
2334: l_exist VARCHAR2(1);
2335: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_workorder';
2336: BEGIN
2337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2338: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2339: END IF;
2340: IF(p_workorder_id IS NOT NULL) THEN
2341: OPEN val_workorder_id_csr(p_workorder_id);
2334: l_exist VARCHAR2(1);
2335: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_workorder';
2336: BEGIN
2337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2338: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2339: END IF;
2340: IF(p_workorder_id IS NOT NULL) THEN
2341: OPEN val_workorder_id_csr(p_workorder_id);
2342: FETCH val_workorder_id_csr INTO l_exist;
2346: FND_MSG_PUB.ADD;
2347: END IF;
2348: CLOSE val_workorder_id_csr;
2349: END IF;
2350: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2351: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2352: END IF;
2353: END validate_workorder;
2354:
2347: END IF;
2348: CLOSE val_workorder_id_csr;
2349: END IF;
2350: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2351: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2352: END IF;
2353: END validate_workorder;
2354:
2355: /*
2390: mtl.inventory_org_id = wo.organization_id;
2391: l_exist VARCHAR2(1);
2392: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item';
2393: BEGIN
2394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2395: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2396: END IF;
2397: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2398: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2391: l_exist VARCHAR2(1);
2392: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item';
2393: BEGIN
2394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2395: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2396: END IF;
2397: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2398: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2399: FETCH val_service_item_id_inv_csr INTO l_exist;
2451: END IF;
2452: CLOSE val_service_item_id_nll_csr;
2453: END IF;
2454: END IF;
2455: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2456: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2457: END IF;
2458: END validate_service_item;
2459:
2452: CLOSE val_service_item_id_nll_csr;
2453: END IF;
2454: END IF;
2455: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2456: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2457: END IF;
2458: END validate_service_item;
2459:
2460: --------------------------------------------------------------------------------------------------------------
2468: AND MTL.DESCRIPTION = p_service_item_description;
2469: l_exist VARCHAR2(1);
2470: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_desc';
2471: BEGIN
2472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2474: END IF;
2475: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2476: OPEN val_service_item_desc_csr(p_service_item_id , p_service_item_description);
2469: l_exist VARCHAR2(1);
2470: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_desc';
2471: BEGIN
2472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2474: END IF;
2475: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2476: OPEN val_service_item_desc_csr(p_service_item_id , p_service_item_description);
2477: FETCH val_service_item_desc_csr INTO l_exist;
2483: --dbms_output.put_line('Invalid service item description');
2484: END IF;
2485: CLOSE val_service_item_desc_csr;
2486: END IF;
2487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2489: END IF;
2490: END validate_service_item_desc;
2491:
2484: END IF;
2485: CLOSE val_service_item_desc_csr;
2486: END IF;
2487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2489: END IF;
2490: END validate_service_item_desc;
2491:
2492: --------------------------------------------------------------------------------------------------------------
2534: l_exist VARCHAR2(1);
2535: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.val_svc_item_vs_wo_svc_item';
2536:
2537: BEGIN
2538: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2539: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2540: END IF;
2541: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2542:
2535: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.val_svc_item_vs_wo_svc_item';
2536:
2537: BEGIN
2538: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2539: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2540: END IF;
2541: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2542:
2543: OPEN val_service_item_id_inv_csr(p_service_item_id, p_workorder_id);
2594: END IF;
2595: CLOSE val_service_item_id_nll_csr;
2596: END IF;
2597:
2598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2600: END IF;
2601: END val_svc_item_vs_wo_svc_item;
2602:
2595: CLOSE val_service_item_id_nll_csr;
2596: END IF;
2597:
2598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2600: END IF;
2601: END val_svc_item_vs_wo_svc_item;
2602:
2603: --------------------------------------------------------------------------------------------------------------
2618: WHERE uom_code = p_service_item_uom_code;
2619: l_exist VARCHAR2(1);
2620: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_uom';
2621: BEGIN
2622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure'
2624: || '- Service Item Id: ' || p_service_item_id || 'uom_code' || p_service_item_uom_code );
2625: END IF;
2626: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2619: l_exist VARCHAR2(1);
2620: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_uom';
2621: BEGIN
2622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure'
2624: || '- Service Item Id: ' || p_service_item_id || 'uom_code' || p_service_item_uom_code );
2625: END IF;
2626: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
2627: IF(p_service_item_uom_code IS NOT NULL AND p_service_item_uom_code <> FND_API.G_MISS_CHAR) THEN
2647: END IF;
2648: CLOSE val_uom_code_csr;
2649: END IF;
2650: END IF;
2651: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2652: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2653: END IF;
2654: END validate_service_item_uom;
2655:
2648: CLOSE val_uom_code_csr;
2649: END IF;
2650: END IF;
2651: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2652: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2653: END IF;
2654: END validate_service_item_uom;
2655:
2656: --------------------------------------------------------------------------------------------------------------
2664: NVL(OUTSIDE_OPERATION_FLAG, G_NO_FLAG) = G_NO_FLAG;
2665: l_exist VARCHAR2(1);
2666: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line_type';
2667: BEGIN
2668: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2669: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2670: END IF;
2671: IF(p_po_line_type_id IS NOT NULL AND p_po_line_type_id <> FND_API.G_MISS_NUM) THEN
2672: OPEN val_po_line_type_id_csr(p_po_line_type_id);
2665: l_exist VARCHAR2(1);
2666: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line_type';
2667: BEGIN
2668: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2669: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2670: END IF;
2671: IF(p_po_line_type_id IS NOT NULL AND p_po_line_type_id <> FND_API.G_MISS_NUM) THEN
2672: OPEN val_po_line_type_id_csr(p_po_line_type_id);
2673: FETCH val_po_line_type_id_csr INTO l_exist;
2677: FND_MSG_PUB.ADD;
2678: END IF;
2679: CLOSE val_po_line_type_id_csr;
2680: END IF;
2681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2683: END IF;
2684: END validate_po_line_type;
2685:
2678: END IF;
2679: CLOSE val_po_line_type_id_csr;
2680: END IF;
2681: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2683: END IF;
2684: END validate_po_line_type;
2685:
2686: --------------------------------------------------------------------------------------------------------------
2702: -- jaramana End
2703: l_exist VARCHAR2(1);
2704: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line';
2705: BEGIN
2706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2708: END IF;
2709: IF(p_po_line_id IS NOT NULL AND p_po_line_id <> FND_API.G_MISS_NUM) THEN
2710: OPEN val_po_line_id_csr(p_po_line_id, p_osp_order_id);
2703: l_exist VARCHAR2(1);
2704: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_po_line';
2705: BEGIN
2706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2708: END IF;
2709: IF(p_po_line_id IS NOT NULL AND p_po_line_id <> FND_API.G_MISS_NUM) THEN
2710: OPEN val_po_line_id_csr(p_po_line_id, p_osp_order_id);
2711: FETCH val_po_line_id_csr INTO l_exist;
2715: FND_MSG_PUB.ADD;
2716: END IF;
2717: CLOSE val_po_line_id_csr;
2718: END IF;
2719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2721: END IF;
2722: END validate_po_line;
2723:
2716: END IF;
2717: CLOSE val_po_line_id_csr;
2718: END IF;
2719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2721: END IF;
2722: END validate_po_line;
2723:
2724: -------------------------------------------------------------------------------------------------------------
2735: ) ;
2736: l_exist VARCHAR2(1);
2737: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_exchange_instance_id';
2738: BEGIN
2739: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2741: END IF;
2742: IF(p_exchange_instance_id IS NOT NULL AND p_exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2743: OPEN val_instance_id_csr(p_exchange_instance_id);
2736: l_exist VARCHAR2(1);
2737: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_exchange_instance_id';
2738: BEGIN
2739: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
2741: END IF;
2742: IF(p_exchange_instance_id IS NOT NULL AND p_exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2743: OPEN val_instance_id_csr(p_exchange_instance_id);
2744: FETCH val_instance_id_csr INTO l_exist;
2747: FND_MESSAGE.Set_Token('EXCHANGE_INSTANCE_ID', p_exchange_instance_id);
2748: FND_MSG_PUB.ADD;
2749: END IF;
2750: END IF;
2751: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2752: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2753: END IF;
2754: END validate_exchange_instance_id;
2755:
2748: FND_MSG_PUB.ADD;
2749: END IF;
2750: END IF;
2751: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2752: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2753: END IF;
2754: END validate_exchange_instance_id;
2755:
2756:
2816: l_new_ovn NUMBER;
2817: l_old_ovn NUMBER;
2818: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_order_status_change';
2819: BEGIN
2820: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2821: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2822: 'osp_order_id='||p_x_osp_order_rec.osp_order_id||
2823: 'status='||p_x_osp_order_rec.status_code||
2824: 'ovn='||p_x_osp_order_rec.object_version_number);
2817: l_old_ovn NUMBER;
2818: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_order_status_change';
2819: BEGIN
2820: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2821: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2822: 'osp_order_id='||p_x_osp_order_rec.osp_order_id||
2823: 'status='||p_x_osp_order_rec.status_code||
2824: 'ovn='||p_x_osp_order_rec.object_version_number);
2825: END IF;
2931: p_x_osp_order_rec.object_version_number := l_new_ovn;
2932: p_x_osp_order_rec.po_request_id := l_request_id;
2933: p_x_osp_order_rec.po_interface_header_id := l_interface_header_id;
2934: p_x_osp_order_rec.po_batch_id := l_batch_id;
2935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2936: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2937: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2938: 'request_id='||p_x_osp_order_rec.po_request_id||
2939: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2932: p_x_osp_order_rec.po_request_id := l_request_id;
2933: p_x_osp_order_rec.po_interface_header_id := l_interface_header_id;
2934: p_x_osp_order_rec.po_batch_id := l_batch_id;
2935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2936: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2937: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2938: 'request_id='||p_x_osp_order_rec.po_request_id||
2939: 'interface_id='||p_x_osp_order_rec.po_interface_header_id);
2940: END IF;
2962: ELSE
2963: p_x_osp_order_rec.object_version_number := l_new_ovn;
2964: p_x_osp_order_rec.po_request_id := l_request_id;
2965: p_x_osp_order_rec.po_batch_id := l_batch_id;
2966: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2968: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2969: 'request_id='||p_x_osp_order_rec.po_request_id);
2970: END IF;
2963: p_x_osp_order_rec.object_version_number := l_new_ovn;
2964: p_x_osp_order_rec.po_request_id := l_request_id;
2965: p_x_osp_order_rec.po_batch_id := l_batch_id;
2966: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin',
2968: 'batch_id='||p_x_osp_order_rec.po_batch_id||
2969: 'request_id='||p_x_osp_order_rec.po_request_id);
2970: END IF;
2971: END IF;
3106: END IF;
3107: IF FND_MSG_PUB.count_msg > 0 THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3110: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3111: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3112: END IF;
3113: END process_order_status_change;
3114:
3107: IF FND_MSG_PUB.count_msg > 0 THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109: END IF;
3110: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3111: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3112: END IF;
3113: END process_order_status_change;
3114:
3115: --------------------------------------------------------------------------------------------------------------
3140: l_index NUMBER := 1;
3141: l_unique_flag BOOLEAN := TRUE;
3142: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.delete_cancel_so';
3143: BEGIN
3144: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3146: END IF;
3147: IF(p_oe_header_id IS NOT NULL) THEN
3148: -- CALL SO to delete/cancel SO
3141: l_unique_flag BOOLEAN := TRUE;
3142: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.delete_cancel_so';
3143: BEGIN
3144: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3146: END IF;
3147: IF(p_oe_header_id IS NOT NULL) THEN
3148: -- CALL SO to delete/cancel SO
3149: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
3146: END IF;
3147: IF(p_oe_header_id IS NOT NULL) THEN
3148: -- CALL SO to delete/cancel SO
3149: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3150: 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);
3151: END IF;
3152: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3153: p_api_version => 1.0,
3146: END IF;
3147: IF(p_oe_header_id IS NOT NULL) THEN
3148: -- CALL SO to delete/cancel SO
3149: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3150: 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);
3151: END IF;
3152: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3153: p_api_version => 1.0,
3154: p_oe_header_id => p_oe_header_id,
3190: OPEN line_already_shipped_csr(p_del_cancel_so_lines_tbl(i).oe_ship_line_id);
3191: FETCH line_already_shipped_csr INTO l_exist;
3192: IF (line_already_shipped_csr%NOTFOUND) THEN
3193: -- Line not yet shipped: Include for deletion
3194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3195: 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.');
3196: END IF;
3197: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_ship_line_id;
3198: l_index := l_index + 1;
3191: FETCH line_already_shipped_csr INTO l_exist;
3192: IF (line_already_shipped_csr%NOTFOUND) THEN
3193: -- Line not yet shipped: Include for deletion
3194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3195: 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.');
3196: END IF;
3197: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_ship_line_id;
3198: l_index := l_index + 1;
3199: END IF;
3225: OPEN line_already_shipped_csr(p_del_cancel_so_lines_tbl(i).oe_return_line_id);
3226: FETCH line_already_shipped_csr INTO l_exist;
3227: IF (line_already_shipped_csr%NOTFOUND) THEN
3228: -- Line not yet shipped: Include for deletion
3229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3230: 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.');
3231: END IF;
3232: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_return_line_id;
3233: l_index := l_index + 1;
3226: FETCH line_already_shipped_csr INTO l_exist;
3227: IF (line_already_shipped_csr%NOTFOUND) THEN
3228: -- Line not yet shipped: Include for deletion
3229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3230: 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.');
3231: END IF;
3232: l_Ship_ID_Tbl(l_index) := p_del_cancel_so_lines_tbl(i).oe_return_line_id;
3233: l_index := l_index + 1;
3234: END IF;
3240: END LOOP;
3241: -- CALL SO API with consolidated list of line IDs
3242: IF(l_Ship_ID_Tbl.COUNT > 0) THEN
3243: -- CALL SO to delete/cancel SO
3244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: 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);
3246: END IF;
3247: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3248: p_api_version => 1.0,
3241: -- CALL SO API with consolidated list of line IDs
3242: IF(l_Ship_ID_Tbl.COUNT > 0) THEN
3243: -- CALL SO to delete/cancel SO
3244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: 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);
3246: END IF;
3247: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
3248: p_api_version => 1.0,
3249: p_oe_header_id => NULL,
3262: IF FND_MSG_PUB.count_msg > 0 THEN
3263: RAISE FND_API.G_EXC_ERROR;
3264: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3266: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3267: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3268: END IF;
3269: END delete_cancel_so;
3270:
3263: RAISE FND_API.G_EXC_ERROR;
3264: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3266: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3267: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
3268: END IF;
3269: END delete_cancel_so;
3270:
3271: -----------------------------------------------------------------------------------------------------
3285: l_exist VARCHAR(1);
3286: l_status_code VARCHAR(30);
3287: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CAN_CONVERT_ORDER';
3288: BEGIN
3289: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3290: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function');
3291: END IF;
3292: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3293: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3286: l_status_code VARCHAR(30);
3287: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CAN_CONVERT_ORDER';
3288: BEGIN
3289: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3290: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function');
3291: END IF;
3292: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3293: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3294: FND_MSG_PUB.ADD;
3291: END IF;
3292: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3293: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3294: FND_MSG_PUB.ADD;
3295: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert from Order Type is not Service or Exchange');
3297: END IF;
3298: return false;
3299: END IF;
3292: IF(p_old_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3293: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_FR_TYPE');
3294: FND_MSG_PUB.ADD;
3295: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert from Order Type is not Service or Exchange');
3297: END IF;
3298: return false;
3299: END IF;
3300: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3299: END IF;
3300: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3301: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_TO_TYPE');
3302: FND_MSG_PUB.ADD;
3303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert to an order that is not of type Service or Exchange');
3305: END IF;
3306: return false;
3307: END IF;
3300: IF(p_new_type_code NOT IN (G_OSP_ORDER_TYPE_SERVICE, G_OSP_ORDER_TYPE_EXCHANGE)) THEN
3301: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_TO_TYPE');
3302: FND_MSG_PUB.ADD;
3303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'Cannot Convert to an order that is not of type Service or Exchange');
3305: END IF;
3306: return false;
3307: END IF;
3308: -- check if the order is closed
3322: FETCH order_has_ship_return_csr INTO l_exist;
3323: IF( order_has_ship_return_csr %FOUND) THEN
3324: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_HAS_RET_LINE');
3325: FND_MSG_PUB.ADD;
3326: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'can_convert: Cannot Convert. Order has shipment return line');
3328: END IF;
3329: CLOSE order_has_ship_return_csr;
3330: return false;
3323: IF( order_has_ship_return_csr %FOUND) THEN
3324: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INV_CONV_HAS_RET_LINE');
3325: FND_MSG_PUB.ADD;
3326: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY ||'.error', 'can_convert: Cannot Convert. Order has shipment return line');
3328: END IF;
3329: CLOSE order_has_ship_return_csr;
3330: return false;
3331: END IF;
3345: AND vendor_id = p_vendor_id;
3346: l_exist VARCHAR(1);
3347: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_id_exist_in_PO';
3348: BEGIN
3349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3351: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_id: ' || p_vendor_id);
3352: END IF;
3353: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3346: l_exist VARCHAR(1);
3347: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_id_exist_in_PO';
3348: BEGIN
3349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3351: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_id: ' || p_vendor_id);
3352: END IF;
3353: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3354: AND p_vendor_id IS NOT NULL AND p_vendor_id <> FND_API.G_MISS_NUM) THEN
3373: AND vendor_site_id = p_vendor_site_id;
3374: l_exist VARCHAR(1);
3375: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_site_id_exist_in_PO';
3376: BEGIN
3377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3379: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_site_id: ' || p_vendor_site_id);
3380: END IF;
3381: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3374: l_exist VARCHAR(1);
3375: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.vendor_site_id_exist_in_PO';
3376: BEGIN
3377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Function - '
3379: || 'p_po_header_id: ' || p_po_header_id || ' p_vendor_site_id: ' || p_vendor_site_id);
3380: END IF;
3381: IF(p_po_header_id IS NOT NULL AND p_po_header_id <> FND_API.G_MISS_NUM
3382: AND p_vendor_site_id IS NOT NULL AND p_vendor_site_id <> FND_API.G_MISS_NUM) THEN
3452: IF FND_API.to_boolean(p_init_msg_list) THEN
3453: FND_MSG_PUB.initialize;
3454: END IF;
3455:
3456: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3457: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3458: G_LOG_PREFIX||l_api_name, --module
3459: 'The main API Begin: and header operation_flag='||p_x_osp_order_rec.operation_flag); --message_text
3460: END IF;
3453: FND_MSG_PUB.initialize;
3454: END IF;
3455:
3456: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3457: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3458: G_LOG_PREFIX||l_api_name, --module
3459: 'The main API Begin: and header operation_flag='||p_x_osp_order_rec.operation_flag); --message_text
3460: END IF;
3461:
3499: END IF;
3500: END IF;
3501:
3502: IF (p_x_osp_order_rec.operation_flag IS NULL) THEN
3503: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3504: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3505: G_LOG_PREFIX||l_api_name, --module
3506: 'Within API: No change to OSP header, just for lines');
3507: END IF;
3500: END IF;
3501:
3502: IF (p_x_osp_order_rec.operation_flag IS NULL) THEN
3503: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3504: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3505: G_LOG_PREFIX||l_api_name, --module
3506: 'Within API: No change to OSP header, just for lines');
3507: END IF;
3508: --No change to the header record and only to the line records
3619: --is checked, it will do nothing)
3620: create_shipment(p_x_osp_order_lines_tbl);
3621: END IF;
3622: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_DELETE) THEN
3623: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3625: G_LOG_PREFIX||l_api_name, --module
3626: 'Within API: Delete OSP Header/Lines');
3627: END IF;
3620: create_shipment(p_x_osp_order_lines_tbl);
3621: END IF;
3622: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_DELETE) THEN
3623: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3625: G_LOG_PREFIX||l_api_name, --module
3626: 'Within API: Delete OSP Header/Lines');
3627: END IF;
3628: --Front end just passes the osp_order_id
3637: RAISE FND_API.G_EXC_ERROR;
3638: END;
3639: --check the osp order could be deleted, if Yes then
3640: --Delete OSP order Header/Line records
3641: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3643: G_LOG_PREFIX||l_api_name,
3644: 'Before deletion and status='||l_status_code||' oe_header='||l_oe_header_id);
3645: END IF;
3638: END;
3639: --check the osp order could be deleted, if Yes then
3640: --Delete OSP order Header/Line records
3641: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3643: G_LOG_PREFIX||l_api_name,
3644: 'Before deletion and status='||l_status_code||' oe_header='||l_oe_header_id);
3645: END IF;
3646: -- Added by jaramana on January 9, 2008 for the Requisition ER 6034236
3669: l_del_cancel_so_lines_tbl(i).oe_return_line_id := l_oe_return_line_id;
3670: i := i+1;
3671: END IF;
3672: END LOOP;
3673: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3674: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3675: G_LOG_PREFIX||l_api_name,
3676: 'Before calling: delete_cancel_so and table_count='||to_char(i-1));
3677: END IF;
3670: i := i+1;
3671: END IF;
3672: END LOOP;
3673: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3674: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3675: G_LOG_PREFIX||l_api_name,
3676: 'Before calling: delete_cancel_so and table_count='||to_char(i-1));
3677: END IF;
3678: --Delete Shipment header/lines
3687: END LOOP;
3688:
3689: --Delete OSP order header record
3690: AHL_OSP_ORDERS_PKG.delete_row(x_osp_order_id => p_x_osp_order_rec.osp_order_id);
3691: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3692: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3693: G_LOG_PREFIX||l_api_name,
3694: 'After deleting header.');
3695: END IF;
3688:
3689: --Delete OSP order header record
3690: AHL_OSP_ORDERS_PKG.delete_row(x_osp_order_id => p_x_osp_order_rec.osp_order_id);
3691: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3692: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3693: G_LOG_PREFIX||l_api_name,
3694: 'After deleting header.');
3695: END IF;
3696: ELSE
3698: FND_MSG_PUB.ADD;
3699: RAISE FND_API.G_EXC_ERROR;
3700: END IF;
3701: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
3702: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3704: G_LOG_PREFIX||l_api_name, --module
3705: 'Within API: Update OSP Header/Lines');
3706: END IF;
3699: RAISE FND_API.G_EXC_ERROR;
3700: END IF;
3701: ELSIF (p_x_osp_order_rec.operation_flag = G_OP_UPDATE) THEN
3702: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3704: G_LOG_PREFIX||l_api_name, --module
3705: 'Within API: Update OSP Header/Lines');
3706: END IF;
3707: -- Validate and update header record
3816: --Validate new line records first because in header record only one attribute needs validation
3817: --but it needs line records to derive vendor attributes.
3818: --
3819: --Default the attributes of header record and create OSP order header record
3820: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3821: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3822: G_LOG_PREFIX||l_api_name,
3823: 'OSP order header/Lines creation and lines count='||p_x_osp_order_lines_tbl.Count||
3824: 'osp_order_id='||p_x_osp_order_rec.osp_order_id);
3817: --but it needs line records to derive vendor attributes.
3818: --
3819: --Default the attributes of header record and create OSP order header record
3820: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3821: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
3822: G_LOG_PREFIX||l_api_name,
3823: 'OSP order header/Lines creation and lines count='||p_x_osp_order_lines_tbl.Count||
3824: 'osp_order_id='||p_x_osp_order_rec.osp_order_id);
3825: END IF;
3827: IF (p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
3828: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
3829: --Create OSP order line records
3830: --p_x_osp_order_lines_tbl(i).osp_order_id := p_x_osp_order_rec.osp_order_id;
3831: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3832: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3833: G_LOG_PREFIX||l_api_name,
3834: 'Within the API and i='||i||'workorder_id='||p_x_osp_order_lines_tbl(i).workorder_id||
3835: 'First='||p_x_osp_order_lines_tbl.FIRST||'Last='||p_x_osp_order_lines_tbl.LAST||
3828: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
3829: --Create OSP order line records
3830: --p_x_osp_order_lines_tbl(i).osp_order_id := p_x_osp_order_rec.osp_order_id;
3831: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3832: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3833: G_LOG_PREFIX||l_api_name,
3834: 'Within the API and i='||i||'workorder_id='||p_x_osp_order_lines_tbl(i).workorder_id||
3835: 'First='||p_x_osp_order_lines_tbl.FIRST||'Last='||p_x_osp_order_lines_tbl.LAST||
3836: 'Count='||p_x_osp_order_lines_tbl.Count);
3848: create_shipment(p_x_osp_order_lines_tbl);
3849: END IF;
3850: END IF;
3851:
3852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3853: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3854: G_LOG_PREFIX||l_api_name,
3855: 'API End: at the end of the procedure');
3856: END IF;
3849: END IF;
3850: END IF;
3851:
3852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3853: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3854: G_LOG_PREFIX||l_api_name,
3855: 'API End: at the end of the procedure');
3856: END IF;
3857:
3953: fnd_user FU
3954: WHERE FU.user_id = fnd_global.user_id
3955: AND PA.buyer_id = FU.employee_id;
3956: BEGIN
3957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3958: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3959: G_LOG_PREFIX || 'create_osp_order_header',
3960: 'Procedure begins...');
3961: END IF;
3954: WHERE FU.user_id = fnd_global.user_id
3955: AND PA.buyer_id = FU.employee_id;
3956: BEGIN
3957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3958: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3959: G_LOG_PREFIX || 'create_osp_order_header',
3960: 'Procedure begins...');
3961: END IF;
3962:
4217: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
4218: p_x_osp_order_lines_tbl(i).osp_order_id := l_osp_order_id;
4219: END LOOP;
4220: END IF;
4221: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4222: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4223: G_LOG_PREFIX || '.create_osp_order_header',
4224: 'Procedure exits normally');
4225: END IF;
4218: p_x_osp_order_lines_tbl(i).osp_order_id := l_osp_order_id;
4219: END LOOP;
4220: END IF;
4221: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4222: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4223: G_LOG_PREFIX || '.create_osp_order_header',
4224: 'Procedure exits normally');
4225: END IF;
4226: END create_osp_order_header;
4253: FROM ahl_osp_orders_b
4254: WHERE osp_order_id = c_osp_order_id;
4255:
4256: BEGIN
4257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4259: G_LOG_PREFIX || '.update_osp_order_header',
4260: 'Procedure begins and osp_order_id='||p_x_osp_order_rec.osp_order_id);
4261: END IF;
4254: WHERE osp_order_id = c_osp_order_id;
4255:
4256: BEGIN
4257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4259: G_LOG_PREFIX || '.update_osp_order_header',
4260: 'Procedure begins and osp_order_id='||p_x_osp_order_rec.osp_order_id);
4261: END IF;
4262: --This three procedures are borrowed from the original ones
4327: --After the header vendor gets changed then calling validate_vendor_service_item.
4328: --If it is not for calling validate_vendor_service_item, then it is better to put
4329: --this validation ahead of table_handler calling
4330: --Validate the header vendor with physical/Service item combinations in lines
4331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4333: G_LOG_PREFIX || '.update_osp_order_header',
4334: 'new_vendor='||p_x_osp_order_rec.vendor_id||
4335: 'old_vendor='||l_vendor_id);
4328: --If it is not for calling validate_vendor_service_item, then it is better to put
4329: --this validation ahead of table_handler calling
4330: --Validate the header vendor with physical/Service item combinations in lines
4331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4333: G_LOG_PREFIX || '.update_osp_order_header',
4334: 'new_vendor='||p_x_osp_order_rec.vendor_id||
4335: 'old_vendor='||l_vendor_id);
4336: END IF;
4347: --l_osp_order_line_rec.osp_order_line_id := l_get_all_lines.osp_order_line_id;
4348: --l_osp_order_line_rec.inventory_item_id := l_get_all_lines.inventory_item_id;
4349: --l_osp_order_line_rec.inventory_org_id := l_get_all_lines.inventory_org_id;
4350: --l_osp_order_line_rec.service_item_id := l_get_all_lines.service_item_id;
4351: --IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4352: --FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4353: --G_LOG_PREFIX || '.update_osp_order_header',
4354: --'before calling validate_vendor_service_item'||
4355: --'line_id='||l_get_all_lines.osp_order_line_id||
4348: --l_osp_order_line_rec.inventory_item_id := l_get_all_lines.inventory_item_id;
4349: --l_osp_order_line_rec.inventory_org_id := l_get_all_lines.inventory_org_id;
4350: --l_osp_order_line_rec.service_item_id := l_get_all_lines.service_item_id;
4351: --IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4352: --FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4353: --G_LOG_PREFIX || '.update_osp_order_header',
4354: --'before calling validate_vendor_service_item'||
4355: --'line_id='||l_get_all_lines.osp_order_line_id||
4356: --'inventory_item_id ='||l_osp_order_line_rec.inventory_item_id||
4359: --END IF;
4360: -- validate_vendor_service_item(l_osp_order_line_rec);
4361: --END LOOP;
4362: --END IF;
4363: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4364: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4365: G_LOG_PREFIX || '.update_osp_order_header',
4366: 'Before calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change');
4367: END IF;
4360: -- validate_vendor_service_item(l_osp_order_line_rec);
4361: --END LOOP;
4362: --END IF;
4363: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4364: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
4365: G_LOG_PREFIX || '.update_osp_order_header',
4366: 'Before calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change');
4367: END IF;
4368: IF ((l_oe_header_id IS NOT NULL) AND
4378: p_vendor_loc_id => p_x_osp_order_rec.vendor_site_id,
4379: x_return_status => l_return_status,
4380: x_msg_count => l_msg_count,
4381: x_msg_data => l_msg_data);
4382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4383: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4384: G_LOG_PREFIX || '.update_osp_order_header',
4385: 'Normally exit after calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change'||
4386: 'x_return_status='||l_return_status);
4379: x_return_status => l_return_status,
4380: x_msg_count => l_msg_count,
4381: x_msg_data => l_msg_data);
4382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4383: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4384: G_LOG_PREFIX || '.update_osp_order_header',
4385: 'Normally exit after calling AHL_OSP_SHIPMENT_PUB.handle_vendor_change'||
4386: 'x_return_status='||l_return_status);
4387: END IF;
4448: AND arb.service_item_org_id = mtls.organization_id(+)
4449: AND arb.service_item_id = mtls.inventory_item_id(+)
4450: AND vts.instance_id = csii.instance_id;
4451: BEGIN
4452: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line',
4454: 'Before line validation:'||
4455: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
4456: END IF;
4449: AND arb.service_item_id = mtls.inventory_item_id(+)
4450: AND vts.instance_id = csii.instance_id;
4451: BEGIN
4452: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line',
4454: 'Before line validation:'||
4455: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
4456: END IF;
4457: --Validate the order line
4504: --leave p_x_osp_order_line_rec.sub_inventory blank
4505: CLOSE get_wo_item_attrs;
4506: END IF;
4507:
4508: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4509: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
4510: 'After line validation and before insert operation:'||
4511: 'inv_item_id='||p_x_osp_order_line_rec.inventory_item_id||' service_item_id='||p_x_osp_order_line_rec.service_item_id);
4512: END IF;
4505: CLOSE get_wo_item_attrs;
4506: END IF;
4507:
4508: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4509: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
4510: 'After line validation and before insert operation:'||
4511: 'inv_item_id='||p_x_osp_order_line_rec.inventory_item_id||' service_item_id='||p_x_osp_order_line_rec.service_item_id);
4512: END IF;
4513:
4744: -- jaramana January 10, 2008 Bug 5358438/5967633/5417460 ends
4745:
4746: --Remember to return the line id created
4747: p_x_osp_order_line_rec.osp_order_line_id := l_osp_line_id;
4748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line', 'After insert operation:');
4750: END IF;
4751:
4752: END create_osp_order_line;
4745:
4746: --Remember to return the line id created
4747: p_x_osp_order_line_rec.osp_order_line_id := l_osp_line_id;
4748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.create_osp_order_line', 'After insert operation:');
4750: END IF;
4751:
4752: END create_osp_order_line;
4753:
4782: AND osp_order_id = c_osp_order_id
4783: AND (oe_ship_line_id IS NOT NULL OR oe_return_line_id IS NOT NULL);
4784:
4785: BEGIN
4786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4787: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4788: G_LOG_PREFIX||'create_shipment','Begin');
4789: END IF;
4790: l_create_shipment := FALSE;
4783: AND (oe_ship_line_id IS NOT NULL OR oe_return_line_id IS NOT NULL);
4784:
4785: BEGIN
4786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4787: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4788: G_LOG_PREFIX||'create_shipment','Begin');
4789: END IF;
4790: l_create_shipment := FALSE;
4791: IF p_osp_order_lines_tbl.count > 0 THEN
4939: k := k+2;
4940: END IF;
4941: END IF;
4942: END LOOP;
4943: IF (l_oe_lines_tbl.COUNT > 0 AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4945: G_LOG_PREFIX||'create_shipment','Before calling Shipment API: process_order and the parameters are'||
4946: 'oe_header='||l_oe_header_rec.header_id||' header_oper_flag='||l_oe_header_rec.operation||
4947: '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||
4940: END IF;
4941: END IF;
4942: END LOOP;
4943: IF (l_oe_lines_tbl.COUNT > 0 AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4945: G_LOG_PREFIX||'create_shipment','Before calling Shipment API: process_order and the parameters are'||
4946: 'oe_header='||l_oe_header_rec.header_id||' header_oper_flag='||l_oe_header_rec.operation||
4947: '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||
4948: 'oe_line_operation='||l_oe_lines_tbl(1).operation);
4967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4968: END IF;
4969: END IF;
4970:
4971: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4973: G_LOG_PREFIX||'create_shipment',
4974: 'End: after calling shipment creation API and x_return_status='||l_return_status);
4975: END IF;
4968: END IF;
4969: END IF;
4970:
4971: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4973: G_LOG_PREFIX||'create_shipment',
4974: 'End: after calling shipment creation API and x_return_status='||l_return_status);
4975: END IF;
4976: END create_shipment;
5122: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_order_line_creation';
5123:
5124: BEGIN
5125: --Suppose all value id conversion has been done.
5126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Begin:');
5128: END IF;
5129: --For OAF, we decided to pass null when you want to change it to null, the old value if there is no
5130: --change.
5123:
5124: BEGIN
5125: --Suppose all value id conversion has been done.
5126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Begin:');
5128: END IF;
5129: --For OAF, we decided to pass null when you want to change it to null, the old value if there is no
5130: --change.
5131: IF nvl(g_module_type, 'NULL') <> G_OAF_MODULE THEN
5133: END IF;
5134:
5135: --And need to adde value to id conversion here
5136: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
5139: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
5140: END IF;
5141: --Validate osp_order_id
5134:
5135: --And need to adde value to id conversion here
5136: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || 'create_osp_order_line',
5139: 'osp_order_id='||p_x_osp_order_line_rec.osp_order_id);
5140: END IF;
5141: --Validate osp_order_id
5142: BEGIN
5187: FND_MSG_PUB.add;
5188: END IF;
5189: -- jaramna End
5190:
5191: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5192: 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);
5193: END IF;
5194: IF (p_x_osp_order_line_rec.workorder_id IS NULL AND p_x_osp_order_line_rec.inventory_item_id IS NULL) THEN
5195: FND_MESSAGE.set_name('AHL', 'AHL_OSP_WO_ITEM_ALL_NULL');
5188: END IF;
5189: -- jaramna End
5190:
5191: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5192: 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);
5193: END IF;
5194: IF (p_x_osp_order_line_rec.workorder_id IS NULL AND p_x_osp_order_line_rec.inventory_item_id IS NULL) THEN
5195: FND_MESSAGE.set_name('AHL', 'AHL_OSP_WO_ITEM_ALL_NULL');
5196: FND_MSG_PUB.add;
5205: END IF;
5206: OPEN check_physical_item(p_x_osp_order_line_rec.inventory_item_id,
5207: p_x_osp_order_line_rec.inventory_org_id);
5208: FETCH check_physical_item INTO l_check_physical_item;
5209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'track_flag='||l_check_physical_item.comms_nl_trackable_flag);
5211: END IF;
5212: IF check_physical_item%NOTFOUND THEN
5213: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PHY_ITEM_INVALID');
5206: OPEN check_physical_item(p_x_osp_order_line_rec.inventory_item_id,
5207: p_x_osp_order_line_rec.inventory_org_id);
5208: FETCH check_physical_item INTO l_check_physical_item;
5209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'track_flag='||l_check_physical_item.comms_nl_trackable_flag);
5211: END IF;
5212: IF check_physical_item%NOTFOUND THEN
5213: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PHY_ITEM_INVALID');
5214: FND_MSG_PUB.add;
5305: */
5306:
5307: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5308: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5309: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5310: 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);
5311: 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);
5312: END IF;
5313:
5306:
5307: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5308: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5309: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5310: 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);
5311: 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);
5312: END IF;
5313:
5314: OPEN get_wo_item_attrs(p_x_osp_order_line_rec.workorder_id);
5307: --We already added the check that if the po_line_id is not null, the workorder_id also should not be null
5308: IF(p_x_osp_order_line_rec.po_line_id is NOT NULL) THEN
5309: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5310: 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);
5311: 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);
5312: END IF;
5313:
5314: OPEN get_wo_item_attrs(p_x_osp_order_line_rec.workorder_id);
5315: FETCH get_wo_item_attrs INTO p_x_osp_order_line_rec.inventory_item_id,
5324:
5325: CLOSE get_wo_item_attrs;
5326:
5327:
5328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5329: 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);
5330: 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);
5331: 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);
5332: END IF;
5325: CLOSE get_wo_item_attrs;
5326:
5327:
5328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5329: 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);
5330: 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);
5331: 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);
5332: END IF;
5333:
5326:
5327:
5328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5329: 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);
5330: 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);
5331: 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);
5332: END IF;
5333:
5334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5327:
5328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5329: 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);
5330: 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);
5331: 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);
5332: END IF;
5333:
5334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5335: 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);
5330: 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);
5331: 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);
5332: END IF;
5333:
5334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5335: 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);
5336: END IF;
5337:
5338: OPEN get_po_line_attrs(p_x_osp_order_line_rec.po_line_id);
5331: 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);
5332: END IF;
5333:
5334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5335: 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);
5336: END IF;
5337:
5338: OPEN get_po_line_attrs(p_x_osp_order_line_rec.po_line_id);
5339: FETCH get_po_line_attrs INTO l_po_line_attrs.line_num,
5344: l_po_line_attrs.quantity,
5345: l_po_line_attrs.need_by_date;
5346: CLOSE get_po_line_attrs;
5347:
5348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5345: l_po_line_attrs.need_by_date;
5346: CLOSE get_po_line_attrs;
5347:
5348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5346: CLOSE get_po_line_attrs;
5347:
5348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5347:
5348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5348: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5356: END IF;
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_num ='||l_po_line_attrs.line_num);
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5356: END IF;
5357:
5350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_id ='||l_po_line_attrs.item_id);
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5356: END IF;
5357:
5358:
5351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.item_description ='||l_po_line_attrs.item_description);
5352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.line_type_id ='||l_po_line_attrs.line_type_id);
5353: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.uom_code ='||l_po_line_attrs.uom_code);
5354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.quantity ='||l_po_line_attrs.quantity);
5355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_po_line_attrs.need_by_date ='||l_po_line_attrs.need_by_date);
5356: END IF;
5357:
5358:
5359: IF (l_po_line_attrs.item_id is null and l_po_line_attrs.item_description is null) THEN
5440: END IF;
5441:
5442: --Validate header vendor with physical, service item combination in line
5443: --validate_vendor_service_item(p_x_osp_order_line_rec);
5444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Normal End.');
5446: END IF;
5447: END IF;
5448:
5441:
5442: --Validate header vendor with physical, service item combination in line
5443: --validate_vendor_service_item(p_x_osp_order_line_rec);
5444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX || '.validate_order_line_creation', 'Normal End.');
5446: END IF;
5447: END IF;
5448:
5449: --yazhou 22-Aug-2006 starts
5452: -- has already been created for the same item.
5453:
5454: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5455:
5456: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5457: 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);
5458: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5459: END IF;
5460:
5453:
5454: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5455:
5456: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5457: 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);
5458: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5459: END IF;
5460:
5461: OPEN check_osp_order_unique(p_x_osp_order_line_rec.osp_order_id,
5454: IF l_check_physical_item.serial_number_control_code IN (2, 5, 6) THEN
5455:
5456: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5457: 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);
5458: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_LOG_PREFIX || '.validate_order_line_creation', 'serial_number='||p_x_osp_order_line_rec.serial_number);
5459: END IF;
5460:
5461: OPEN check_osp_order_unique(p_x_osp_order_line_rec.osp_order_id,
5462: p_x_osp_order_line_rec.inventory_item_id,
5625: default_unchanged_order_line(p_x_osp_order_line_rec);
5626: END IF;
5627: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5628: --Add the other validations here
5629: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
5631: END IF;
5632: 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
5633: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_LN_ID_OBJ_MISS');
5626: END IF;
5627: convert_order_line_val_to_id(p_x_osp_order_line_rec);
5628: --Add the other validations here
5629: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
5631: END IF;
5632: 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
5633: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_LN_ID_OBJ_MISS');
5634: FND_MSG_PUB.ADD;
6074: l_dummy_contact_id NUMBER;
6075: BEGIN
6076: --This whole logic depends on the assumption that rank is mandatory in table
6077: --ahl_item_vendor_rels
6078: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6079: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6080: G_LOG_PREFIX || 'derive_default_vendor',
6081: 'Procedure begins and count='||p_item_service_rels_tbl.count);
6082: END IF;
6075: BEGIN
6076: --This whole logic depends on the assumption that rank is mandatory in table
6077: --ahl_item_vendor_rels
6078: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6079: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6080: G_LOG_PREFIX || 'derive_default_vendor',
6081: 'Procedure begins and count='||p_item_service_rels_tbl.count);
6082: END IF;
6083: x_vendor_id := NULL;
6105: p_item_service_rels_tbl(i).inv_org_id,
6106: p_item_service_rels_tbl(i).service_item_id) LOOP
6107: l_temp_index := l_get_vendor_cert.vendor_certification_id;
6108: l_temp_rank := l_get_vendor_cert.rank;
6109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6111: G_LOG_PREFIX || 'derive_default_vendor',
6112: 'l_temp_index='||l_temp_index||
6113: 'l_temp_rank='||l_temp_rank);
6106: p_item_service_rels_tbl(i).service_item_id) LOOP
6107: l_temp_index := l_get_vendor_cert.vendor_certification_id;
6108: l_temp_rank := l_get_vendor_cert.rank;
6109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6111: G_LOG_PREFIX || 'derive_default_vendor',
6112: 'l_temp_index='||l_temp_index||
6113: 'l_temp_rank='||l_temp_rank);
6114: END IF;
6125: --Pick up the common vendor_cert_id (exists in all the sets) with
6126: --the highest(least) summary rank
6127: l_vendor_cert_id := NULL;
6128: l_temp_rank_sum := FND_API.G_MISS_NUM; --Just want to use a big positive number
6129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6131: G_LOG_PREFIX || 'derive_default_vendor',
6132: 'Procedure begins and count2='||l_vendor_rank_count_tbl.count||
6133: 'first='||l_vendor_rank_count_tbl.first||'last='||l_vendor_rank_count_tbl.last);
6126: --the highest(least) summary rank
6127: l_vendor_cert_id := NULL;
6128: l_temp_rank_sum := FND_API.G_MISS_NUM; --Just want to use a big positive number
6129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6131: G_LOG_PREFIX || 'derive_default_vendor',
6132: 'Procedure begins and count2='||l_vendor_rank_count_tbl.count||
6133: 'first='||l_vendor_rank_count_tbl.first||'last='||l_vendor_rank_count_tbl.last);
6134: END IF;
6134: END IF;
6135: l_vendor_index := l_vendor_rank_count_tbl.FIRST; -- get subscript of first element
6136: --You can't use FOR l_vendor_index IN l_vendor_rank_count_tbl.FIRST..l_vendor_rank_count_tbl.LAST here
6137: WHILE l_vendor_index IS NOT NULL LOOP
6138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6140: G_LOG_PREFIX || 'derive_default_vendor',
6141: 'l_vendor_index='||l_vendor_index);
6142: END IF;
6135: l_vendor_index := l_vendor_rank_count_tbl.FIRST; -- get subscript of first element
6136: --You can't use FOR l_vendor_index IN l_vendor_rank_count_tbl.FIRST..l_vendor_rank_count_tbl.LAST here
6137: WHILE l_vendor_index IS NOT NULL LOOP
6138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6140: G_LOG_PREFIX || 'derive_default_vendor',
6141: 'l_vendor_index='||l_vendor_index);
6142: END IF;
6143: IF (l_vendor_rank_count_tbl(l_vendor_index).count_num = p_item_service_rels_tbl.count) THEN
6166: END LOOP;
6167: END IF;
6168: END IF;
6169: END IF;
6170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6172: G_LOG_PREFIX || 'derive_default_vendor',
6173: 'Procedure exits normallly');
6174: END IF;
6167: END IF;
6168: END IF;
6169: END IF;
6170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
6172: G_LOG_PREFIX || 'derive_default_vendor',
6173: 'Procedure exits normallly');
6174: END IF;
6175: END derive_default_vendor;
6206: l_dummy_contact_id NUMBER;
6207:
6208: BEGIN
6209:
6210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. p_osp_order_id = ' || p_osp_order_id);
6212: END IF;
6213:
6214: x_any_vendor_flag := 'N';
6207:
6208: BEGIN
6209:
6210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure. p_osp_order_id = ' || p_osp_order_id);
6212: END IF;
6213:
6214: x_any_vendor_flag := 'N';
6215:
6238: END IF;
6239:
6240: -- Now try to get the common Vendor(s) for the associations in l_item_dtls_tbl
6241:
6242: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Trying to get the common vendors for ' || l_item_dtls_tbl.COUNT || ' associations.');
6244: END IF;
6245:
6246: derive_default_vendor(p_item_service_rels_tbl => l_item_dtls_tbl,
6239:
6240: -- Now try to get the common Vendor(s) for the associations in l_item_dtls_tbl
6241:
6242: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Trying to get the common vendors for ' || l_item_dtls_tbl.COUNT || ' associations.');
6244: END IF;
6245:
6246: derive_default_vendor(p_item_service_rels_tbl => l_item_dtls_tbl,
6247: x_vendor_id => l_dummy_vendor_id,
6248: x_vendor_site_id => l_dummy_site_id,
6249: x_vendor_contact_id => l_dummy_contact_id,
6250: x_valid_vendors_tbl => x_valid_vendors_tbl);
6251:
6252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6254: END IF;
6255:
6256:
6249: x_vendor_contact_id => l_dummy_contact_id,
6250: x_valid_vendors_tbl => x_valid_vendors_tbl);
6251:
6252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6254: END IF;
6255:
6256:
6257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of common vendors: ' || x_valid_vendors_tbl.COUNT);
6254: END IF;
6255:
6256:
6257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6259: END IF;
6260:
6261: END derive_common_vendors;
6254: END IF;
6255:
6256:
6257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6259: END IF;
6260:
6261: END derive_common_vendors;
6262:
6308: AND TRUNC(NVL(active_end_date, SYSDATE+1)) > TRUNC(SYSDATE);
6309: l_exist VARCHAR2(1);
6310: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site_contact';
6311: BEGIN
6312: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6313: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6314: END IF;
6315: IF (p_vendor_id IS NULL) THEN
6316: IF (p_vendor_site_id IS NOT NULL OR p_vendor_contact_id IS NOT NULL) THEN
6309: l_exist VARCHAR2(1);
6310: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_vendor_site_contact';
6311: BEGIN
6312: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6313: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6314: END IF;
6315: IF (p_vendor_id IS NULL) THEN
6316: IF (p_vendor_site_id IS NOT NULL OR p_vendor_contact_id IS NOT NULL) THEN
6317: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_VENDOR_ID_INV');
6376: END IF;
6377: END IF;
6378: END IF;
6379:
6380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6382: END IF;
6383: END validate_vendor_site_contact;
6384:
6377: END IF;
6378: END IF;
6379:
6380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6382: END IF;
6383: END validate_vendor_site_contact;
6384:
6385: --Copied from original default_unchanged_order_lines, so some inherited logic
6523:
6524: l_osp_order_line_rec osp_order_lines_csr%ROWTYPE;
6525: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_lines';
6526: BEGIN
6527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6528: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6529: END IF;
6530: IF(p_x_osp_order_line_rec.operation_flag = G_OP_UPDATE) THEN
6531: OPEN osp_order_lines_csr;
6524: l_osp_order_line_rec osp_order_lines_csr%ROWTYPE;
6525: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.default_unchanged_order_lines';
6526: BEGIN
6527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6528: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6529: END IF;
6530: IF(p_x_osp_order_line_rec.operation_flag = G_OP_UPDATE) THEN
6531: OPEN osp_order_lines_csr;
6532: FETCH osp_order_lines_csr INTO l_osp_order_line_rec;
6887: IF (p_x_osp_order_line_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
6888: p_x_osp_order_line_rec.attribute15 := null;
6889: END IF;
6890: END IF;
6891: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6892: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6893: END IF;
6894: END default_unchanged_order_line;
6895:
6888: p_x_osp_order_line_rec.attribute15 := null;
6889: END IF;
6890: END IF;
6891: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6892: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
6893: END IF;
6894: END default_unchanged_order_line;
6895:
6896: --Copied from original convert_order_lines_val_to_id, so some inherited logic
6949: AND MTL.organization_id = p_inventory_org_id;
6950: l_physical_item_id NUMBER;
6951: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_lines_val_to_id';
6952: BEGIN
6953: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6954: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6955: END IF;
6956: -- nulling out ids if module type is JSP
6957: --Jerry 04/18/2005, this 'JSP' consideration may not be necessary for
6950: l_physical_item_id NUMBER;
6951: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.convert_order_lines_val_to_id';
6952: BEGIN
6953: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6954: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
6955: END IF;
6956: -- nulling out ids if module type is JSP
6957: --Jerry 04/18/2005, this 'JSP' consideration may not be necessary for
6958: --newly added physical item, so it is not added here
7093: RAISE FND_API.G_EXC_ERROR;
7094: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7095: END IF;
7096: --dbms_output.put_line('Exiting : convert_order_lines_val_to_id');
7097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7099: END IF;
7100: END convert_order_line_val_to_id;
7101:
7094: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7095: END IF;
7096: --dbms_output.put_line('Exiting : convert_order_lines_val_to_id');
7097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7099: END IF;
7100: END convert_order_line_val_to_id;
7101:
7102: --validate service_item_id (simplified the original one)
7117: AND NVL(MTL.outside_operation_flag, G_NO_FLAG) = G_NO_FLAG
7118: AND MTL.organization_id = p_organization_id;
7119: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_id';
7120: BEGIN
7121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7123: END IF;
7124:
7125: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
7118: AND MTL.organization_id = p_organization_id;
7119: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.validate_service_item_id';
7120: BEGIN
7121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7123: END IF;
7124:
7125: IF(p_service_item_id IS NOT NULL AND p_service_item_id <> FND_API.G_MISS_NUM) THEN
7126: OPEN val_service_item_id_csr;
7132: END IF;
7133: CLOSE val_service_item_id_csr;
7134: END IF;
7135:
7136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7137: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7138: END IF;
7139: END validate_service_item_id;
7140:
7133: CLOSE val_service_item_id_csr;
7134: END IF;
7135:
7136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7137: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7138: END IF;
7139: END validate_service_item_id;
7140:
7141: --Validate header vendor with physical, service item combination in line
7161: AND B.vendor_id = c_vendor_id
7162: AND B.vendor_site_id = c_vendor_site_id;
7163: --AND B.vendor_contact_id = l_vendor_contact_id;
7164: BEGIN
7165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7166: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7167: G_LOG_PREFIX || '.validate_vendor_service_item',
7168: 'osp_order_id='||p_osp_order_line_rec.osp_order_id );
7169: END IF;
7162: AND B.vendor_site_id = c_vendor_site_id;
7163: --AND B.vendor_contact_id = l_vendor_contact_id;
7164: BEGIN
7165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7166: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7167: G_LOG_PREFIX || '.validate_vendor_service_item',
7168: 'osp_order_id='||p_osp_order_line_rec.osp_order_id );
7169: END IF;
7170: --IF (p_osp_order_line_rec.workorder_id IS NULL) THEN --commented out on 06/10/2006
7202: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ORDER_INVALID');
7203: FND_MSG_PUB.add;
7204: END;
7205:
7206: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
7208: G_LOG_PREFIX || '.validate_vendor_service_item',
7209: 'vendor_id='||l_vendor_id||
7210: 'item_id='||p_osp_order_line_rec.inventory_item_id||
7203: FND_MSG_PUB.add;
7204: END;
7205:
7206: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
7208: G_LOG_PREFIX || '.validate_vendor_service_item',
7209: 'vendor_id='||l_vendor_id||
7210: 'item_id='||p_osp_order_line_rec.inventory_item_id||
7211: 'org_id='||p_osp_order_line_rec.inventory_org_id||
7245: END IF;
7246: CLOSE verify_vendor;
7247: END IF;
7248: --END IF;
7249: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7250: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7251: G_LOG_PREFIX || '.validate_vendor_service_item',
7252: 'Normal end and msg_count='||l_msg_count||
7253: 'msg='||l_msg_data);
7246: CLOSE verify_vendor;
7247: END IF;
7248: --END IF;
7249: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7250: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
7251: G_LOG_PREFIX || '.validate_vendor_service_item',
7252: 'Normal end and msg_count='||l_msg_count||
7253: 'msg='||l_msg_data);
7254: END IF;
7260: l_return_status VARCHAR2(30);
7261: l_msg_count NUMBER;
7262: l_msg_data VARCHAR2(2000);
7263: BEGIN
7264: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'Begin');
7266: END IF;
7267: SELECT order_type_code INTO l_old_type_code
7268: FROM ahl_osp_orders_b
7261: l_msg_count NUMBER;
7262: l_msg_data VARCHAR2(2000);
7263: BEGIN
7264: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'Begin');
7266: END IF;
7267: SELECT order_type_code INTO l_old_type_code
7268: FROM ahl_osp_orders_b
7269: WHERE osp_order_id = p_osp_order_rec.osp_order_id;
7294: x_msg_count => l_msg_count,
7295: x_msg_data => l_msg_data);
7296: END IF;
7297: END IF;
7298: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7299: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'End');
7300: END IF;
7301: END process_order_type_change;
7302:
7295: x_msg_data => l_msg_data);
7296: END IF;
7297: END IF;
7298: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7299: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_LOG_PREFIX||'process_order_type_change', 'End');
7300: END IF;
7301: END process_order_type_change;
7302:
7303: END ahl_osp_orders_pvt;
7321: WHERE osp_order_line_id = p_osp_order_line_id;
7322: i NUMBER; --index for looping
7323: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.nullify_exchange_instance';
7324: BEGIN
7325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7327: END IF;
7328: OPEN l_order_lines_csr(p_osp_order_id);
7329: LOOP
7322: i NUMBER; --index for looping
7323: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.nullify_exchange_instance';
7324: BEGIN
7325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Begin Procedure');
7327: END IF;
7328: OPEN l_order_lines_csr(p_osp_order_id);
7329: LOOP
7330: FETCH l_order_lines_csr INTO l_osp_order_lines_rec.osp_order_line_id ,
7416: );
7417: END LOOP;
7418: --get the newest object_version_number for p_x_osp_order_lines_tbl
7419: IF(p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
7420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' p_x_osp_order_lines_tbl not null' ||
7422: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
7423: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
7424: END IF;
7417: END LOOP;
7418: --get the newest object_version_number for p_x_osp_order_lines_tbl
7419: IF(p_x_osp_order_lines_tbl IS NOT NULL AND p_x_osp_order_lines_tbl.COUNT > 0) THEN
7420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' p_x_osp_order_lines_tbl not null' ||
7422: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
7423: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
7424: END IF;
7425: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
7422: 'p_x_osp_order_lines_tbl.FIRST: ' || p_x_osp_order_lines_tbl.FIRST ||
7423: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
7424: END IF;
7425: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
7426: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
7428: END IF;
7429: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
7430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7423: 'p_x_osp_order_lines_tbl.LAST: ' || p_x_osp_order_lines_tbl.LAST);
7424: END IF;
7425: FOR i IN p_x_osp_order_lines_tbl.FIRST..p_x_osp_order_lines_tbl.LAST LOOP
7426: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
7428: END IF;
7429: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
7430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
7426: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
7428: END IF;
7429: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
7430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
7432: END IF;
7433: OPEN l_order_line_obj_ver_csr(p_x_osp_order_lines_tbl(i).osp_order_line_id);
7434: FETCH l_order_line_obj_ver_csr INTO p_x_osp_order_lines_tbl(i).object_version_number;
7427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl');
7428: END IF;
7429: IF(p_x_osp_order_lines_tbl(i).osp_order_line_id IS NOT NULL) THEN
7430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'loop inside table p_x_osp_order_lines_tbl.osp_order_line_id');
7432: END IF;
7433: OPEN l_order_line_obj_ver_csr(p_x_osp_order_lines_tbl(i).osp_order_line_id);
7434: FETCH l_order_line_obj_ver_csr INTO p_x_osp_order_lines_tbl(i).object_version_number;
7435: CLOSE l_order_line_obj_ver_csr;
7435: CLOSE l_order_line_obj_ver_csr;
7436: END IF;
7437: END LOOP;
7438: END IF;
7439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7441: END IF;
7442: END nullify_exchange_instance;
7443: */
7436: END IF;
7437: END LOOP;
7438: END IF;
7439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
7441: END IF;
7442: END nullify_exchange_instance;
7443: */