103: --in the master org yet.
104: OPEN l_seqnextval_csr;
105: FETCH l_seqnextval_csr INTO l_Item_Number;
106: IF l_seqnextval_csr%NOTFOUND THEN
107: x_return_status := OKL_API.G_RET_STS_ERROR;
108: -- Failed to create sequence for Item Number
109: OKL_API.set_message( p_app_name => 'OKL',
110: p_msg_name => 'OKL_AM_RMK_NO_ITEM_NUM_SEQ'
111: );
105: FETCH l_seqnextval_csr INTO l_Item_Number;
106: IF l_seqnextval_csr%NOTFOUND THEN
107: x_return_status := OKL_API.G_RET_STS_ERROR;
108: -- Failed to create sequence for Item Number
109: OKL_API.set_message( p_app_name => 'OKL',
110: p_msg_name => 'OKL_AM_RMK_NO_ITEM_NUM_SEQ'
111: );
112: RAISE okl_api.G_EXCEPTION_ERROR;
113: END IF;
108: -- Failed to create sequence for Item Number
109: OKL_API.set_message( p_app_name => 'OKL',
110: p_msg_name => 'OKL_AM_RMK_NO_ITEM_NUM_SEQ'
111: );
112: RAISE okl_api.G_EXCEPTION_ERROR;
113: END IF;
114: CLOSE l_seqnextval_csr;
115: --SECHAWLA 14-MAR-03 : Prefixed the sequence generated item number with 'OKL' to prevent duplicate
116: -- item numbers within the same org, incase an external application has already created an item with same
179: END IF;
180: -- SECHAWLA Bug# 2620853 : Distribution accout id is not stored, as it is optional
181: -- l_Item_rec.ENCUMBRANCE_ACCOUNT := p_distribution_acct_id;
182:
183: l_commit := okl_api.g_FALSE;
184:
185: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.create_inv_item.',
187: 'before INV_Item_GRP.create_item call sts'||x_return_status);
201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.create_inv_item.',
202: 'after INV_Item_GRP.create_item call sts'||x_return_status);
203: END IF;
204:
205: IF ( x_return_status = okl_api.G_RET_STS_SUCCESS ) THEN
206: x_New_Item_Number := x_item_rec.ITEM_NUMBER;
207: x_New_Item_Id := x_item_rec.INVENTORY_ITEM_ID;
208: ELSE
209: -- SECHAWLA 08-DEC-04 4047159 : added the following message
207: x_New_Item_Id := x_item_rec.INVENTORY_ITEM_ID;
208: ELSE
209: -- SECHAWLA 08-DEC-04 4047159 : added the following message
210: -- Error creating inventory item ITEM_NUMBER in organization ORG_NAME.
211: OKL_API.set_message( p_app_name => 'OKL',
212: p_msg_name => 'OKL_AM_RMK_ITEM_FAILED',
213: p_token1 => 'ITEM_NUMBER',
214: p_token1_value => l_Item_rec.ITEM_NUMBER,
215: p_token2 => 'ORG_NAME',
218:
219: -- display the error messages from the x_error_tbl table
220: FOR i IN 1 .. x_Error_tbl.COUNT LOOP
221: -- Error: Transaction Id = TRX_ID
222: OKL_API.set_message( p_app_name => 'OKL',
223: p_msg_name => 'OKL_AM_RMK_TRANS_ID',
224: p_token1 => 'TRX_ID',
225: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
226: );
224: p_token1 => 'TRX_ID',
225: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
226: );
227: -- Error : Unique Id = UNIQUE_ID
228: OKL_API.set_message( p_app_name => 'OKL',
229: p_msg_name => 'OKL_AM_RMK_UNIQUE_ID',
230: p_token1 => 'UNIQUE_ID',
231: p_token1_value => x_Error_tbl(i).UNIQUE_ID
232: );
230: p_token1 => 'UNIQUE_ID',
231: p_token1_value => x_Error_tbl(i).UNIQUE_ID
232: );
233: -- Error : Table Name = TABLE_NAME
234: OKL_API.set_message( p_app_name => 'OKL',
235: p_msg_name => 'OKL_AM_RMK_TABLE_NAME',
236: p_token1 => 'TABLE_NAME',
237: p_token1_value => x_Error_tbl(i).TABLE_NAME
238: );
237: p_token1_value => x_Error_tbl(i).TABLE_NAME
238: );
239:
240: --Error : Column Name = COLUMN_NAME
241: OKL_API.set_message( p_app_name => 'OKL',
242: p_msg_name => 'OKL_AM_RMK_COLUMN_NAME',
243: p_token1 => 'COLUMN_NAME',
244: p_token1_value => x_Error_tbl(i).COLUMN_NAME
245: );
244: p_token1_value => x_Error_tbl(i).COLUMN_NAME
245: );
246:
247: --Error : Message Name = MSG_NAME
248: OKL_API.set_message( p_app_name => 'OKL',
249: p_msg_name => 'OKL_AM_RMK_MSG_NAME',
250: p_token1 => 'MSG_NAME',
251: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
252: );
251: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
252: );
253:
254: -- Error : Message Text = MSG_TEXT
255: OKL_API.set_message( p_app_name => 'OKL',
256: p_msg_name => 'OKL_AM_RMK_MSG_TEXT',
257: p_token1 => 'MSG_TEXT',
258: p_token1_value => x_Error_tbl(i).MESSAGE_TEXT
259: );
285: CLOSE l_seqnextval_csr;
286: END IF;
287: -- unexpected error
288: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
289: OKL_API.set_message(p_app_name => 'OKC',
290: p_msg_name => g_unexpected_error,
291: p_token1 => g_sqlcode_token,
292: p_token1_value => sqlcode,
293: p_token2 => g_sqlerrm_token,
291: p_token1 => g_sqlcode_token,
292: p_token1_value => sqlcode,
293: p_token2 => g_sqlerrm_token,
294: p_token2_value => sqlerrm);
295: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
296:
297: END create_inv_item;
298:
299:
416: 0, /* transaction_source_id */
417: 'LEASE', /* transaction_source_name */
418: '' /* expenditure_type */
419: );
420: x_return_status := okl_api.g_RET_STS_SUCCESS;
421:
422: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_AM_REMARKET_ASSET_PVT.Create_Inv_Misc_Receipt_Txn ','End(-)');
424: END IF;
430: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.Create_Inv_Misc_Receipt_Txn',
431: 'EXCEPTION :'||sqlerrm);
432: END IF;
433: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
434: OKL_API.set_message(p_app_name => 'OKC',
435: p_msg_name => g_unexpected_error,
436: p_token1 => g_sqlcode_token,
437: p_token1_value => sqlcode,
438: p_token2 => g_sqlerrm_token,
436: p_token1 => g_sqlcode_token,
437: p_token1_value => sqlcode,
438: p_token2 => g_sqlerrm_token,
439: p_token2_value => sqlerrm);
440: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
441:
442:
443: END Create_Inv_Misc_Receipt_Txn;
444:
509: --asawanka commented out as we need not pass org_id
510: --gpr_price_list_rec.org_id := mo_global.get_current_org_id(); --CDUBEY l_authoring_org_id added for MOAC
511:
512:
513: gpr_price_list_line_tbl(1).list_line_id := okl_api.G_MISS_NUM;
514: gpr_price_list_line_tbl(1).list_line_type_code := 'PLL';
515: gpr_price_list_line_tbl(1).operation := QP_GLOBALS.G_OPR_CREATE;
516: gpr_price_list_line_tbl(1).operand := p_Item_Price;
517: gpr_price_list_line_tbl(1).arithmetic_operator := 'UNIT_PRICE';
516: gpr_price_list_line_tbl(1).operand := p_Item_Price;
517: gpr_price_list_line_tbl(1).arithmetic_operator := 'UNIT_PRICE';
518:
519:
520: gpr_pricing_attr_tbl(1).pricing_attribute_id := okl_api.G_MISS_NUM;
521: gpr_pricing_attr_tbl(1).list_line_id := okl_api.G_MISS_NUM;
522: gpr_pricing_attr_tbl(1).PRODUCT_ATTRIBUTE_CONTEXT := 'ITEM';
523: gpr_pricing_attr_tbl(1).PRODUCT_ATTRIBUTE := 'PRICING_ATTRIBUTE1';
524: gpr_pricing_attr_tbl(1).PRODUCT_ATTR_VALUE := to_char(p_Item_Id);
517: gpr_price_list_line_tbl(1).arithmetic_operator := 'UNIT_PRICE';
518:
519:
520: gpr_pricing_attr_tbl(1).pricing_attribute_id := okl_api.G_MISS_NUM;
521: gpr_pricing_attr_tbl(1).list_line_id := okl_api.G_MISS_NUM;
522: gpr_pricing_attr_tbl(1).PRODUCT_ATTRIBUTE_CONTEXT := 'ITEM';
523: gpr_pricing_attr_tbl(1).PRODUCT_ATTRIBUTE := 'PRICING_ATTRIBUTE1';
524: gpr_pricing_attr_tbl(1).PRODUCT_ATTR_VALUE := to_char(p_Item_Id);
525: gpr_pricing_attr_tbl(1).PRODUCT_UOM_CODE := 'EA';
534: 'before QP_PRICE_LIST_PUB.Process_Price_List sts..'||x_return_status);
535: END IF;
536: QP_PRICE_LIST_PUB.Process_Price_List
537: ( p_api_version_number => p_api_version
538: , p_init_msg_list => okl_api.G_FALSE
539: , p_return_values => okl_api.G_FALSE
540: , p_commit => okl_api.G_FALSE
541: , x_return_status => x_return_status
542: , x_msg_count => l_msg_count
535: END IF;
536: QP_PRICE_LIST_PUB.Process_Price_List
537: ( p_api_version_number => p_api_version
538: , p_init_msg_list => okl_api.G_FALSE
539: , p_return_values => okl_api.G_FALSE
540: , p_commit => okl_api.G_FALSE
541: , x_return_status => x_return_status
542: , x_msg_count => l_msg_count
543: , x_msg_data => l_msg_data
536: QP_PRICE_LIST_PUB.Process_Price_List
537: ( p_api_version_number => p_api_version
538: , p_init_msg_list => okl_api.G_FALSE
539: , p_return_values => okl_api.G_FALSE
540: , p_commit => okl_api.G_FALSE
541: , x_return_status => x_return_status
542: , x_msg_count => l_msg_count
543: , x_msg_data => l_msg_data
544: , p_PRICE_LIST_rec => gpr_price_list_rec
561: 'after QP_PRICE_LIST_PUB.Process_Price_List sts..'||x_return_status);
562: END IF;
563:
564: -- SECHAWLA 08-DEC-04 4047159 : added the following message
565: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
566: -- Error assigning item ITEM_NUMBER to price list PRICE_LIST.
567: OKL_API.set_message( p_app_name => 'OKL',
568: p_msg_name => 'OKL_AM_RMK_PL_FAILED',
569: p_token1 => 'ITEM_NUMBER',
563:
564: -- SECHAWLA 08-DEC-04 4047159 : added the following message
565: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
566: -- Error assigning item ITEM_NUMBER to price list PRICE_LIST.
567: OKL_API.set_message( p_app_name => 'OKL',
568: p_msg_name => 'OKL_AM_RMK_PL_FAILED',
569: p_token1 => 'ITEM_NUMBER',
570: p_token1_value => p_price_list_item,
571: p_token2 => 'PRICE_LIST',
582: 'EXCEPTION :'||sqlerrm);
583: END IF;
584: -- unexpected error
585: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
586: OKL_API.set_message(p_app_name => 'OKC',
587: p_msg_name => g_unexpected_error,
588: p_token1 => g_sqlcode_token,
589: p_token1_value => sqlcode,
590: p_token2 => g_sqlerrm_token,
588: p_token1 => g_sqlcode_token,
589: p_token1_value => sqlcode,
590: p_token2 => g_sqlerrm_token,
591: p_token2_value => sqlerrm);
592: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
593: END Create_Item_In_Price_List;
594:
595:
596:
778: 'p_quantity :'||p_quantity);
779:
780: END IF;
781:
782: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
783: G_PKG_NAME,
784: p_init_msg_list,
785: l_api_version,
786: p_api_version,
787: '_PVT',
788: x_return_status);
789:
790:
791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
788: x_return_status);
789:
790:
791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
796:
789:
790:
791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
796:
797: SELECT SYSDATE INTO l_sysdate FROM DUAL;
790:
791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
796:
797: SELECT SYSDATE INTO l_sysdate FROM DUAL;
798:
803: CLOSE l_mtlsystemitems_csr;
804:
805: IF l_item_cnt > 0 THEN
806: --Item number ITEM_NUMBER already exists in Inventory. Please enter another item number.
807: OKL_API.set_message( p_app_name => 'OKL',
808: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
809: p_token1 => 'ITEM_NUMBER',
810: p_token1_value => p_item_number);
811: x_return_status := OKL_API.G_RET_STS_ERROR;
807: OKL_API.set_message( p_app_name => 'OKL',
808: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
809: p_token1 => 'ITEM_NUMBER',
810: p_token1_value => p_item_number);
811: x_return_status := OKL_API.G_RET_STS_ERROR;
812: RAISE OKL_API.G_EXCEPTION_ERROR;
813: END IF;
814: END IF;
815: -- SECHAWLA 18-OCT-04 3924244 : end
808: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
809: p_token1 => 'ITEM_NUMBER',
810: p_token1_value => p_item_number);
811: x_return_status := OKL_API.G_RET_STS_ERROR;
812: RAISE OKL_API.G_EXCEPTION_ERROR;
813: END IF;
814: END IF;
815: -- SECHAWLA 18-OCT-04 3924244 : end
816:
813: END IF;
814: END IF;
815: -- SECHAWLA 18-OCT-04 3924244 : end
816:
817: IF p_item_price IS NULL OR p_item_price = OKL_API.G_MISS_NUM THEN
818: x_return_status := OKL_API.G_RET_STS_ERROR;
819: --Item Price is required
820: OKC_API.set_message( p_app_name => 'OKC',
821: p_msg_name => G_REQUIRED_VALUE,
814: END IF;
815: -- SECHAWLA 18-OCT-04 3924244 : end
816:
817: IF p_item_price IS NULL OR p_item_price = OKL_API.G_MISS_NUM THEN
818: x_return_status := OKL_API.G_RET_STS_ERROR;
819: --Item Price is required
820: OKC_API.set_message( p_app_name => 'OKC',
821: p_msg_name => G_REQUIRED_VALUE,
822: p_token1 => G_COL_NAME_TOKEN,
821: p_msg_name => G_REQUIRED_VALUE,
822: p_token1 => G_COL_NAME_TOKEN,
823: p_token1_value => 'ITEM_PRICE');
824:
825: RAISE okl_api.G_EXCEPTION_ERROR;
826: END IF;
827:
828: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
829: x_return_status := OKL_API.G_RET_STS_ERROR;
824:
825: RAISE okl_api.G_EXCEPTION_ERROR;
826: END IF;
827:
828: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
829: x_return_status := OKL_API.G_RET_STS_ERROR;
830: --Item Quantity is required
831: OKC_API.set_message( p_app_name => 'OKC',
832: p_msg_name => G_REQUIRED_VALUE,
825: RAISE okl_api.G_EXCEPTION_ERROR;
826: END IF;
827:
828: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
829: x_return_status := OKL_API.G_RET_STS_ERROR;
830: --Item Quantity is required
831: OKC_API.set_message( p_app_name => 'OKC',
832: p_msg_name => G_REQUIRED_VALUE,
833: p_token1 => G_COL_NAME_TOKEN,
832: p_msg_name => G_REQUIRED_VALUE,
833: p_token1 => G_COL_NAME_TOKEN,
834: p_token1_value => 'ITEM_QUANTITY');
835:
836: RAISE okl_api.G_EXCEPTION_ERROR;
837: END IF;
838:
839: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
840: -- Check the remarketing flow setup
841: OPEN l_systemparamsall_csr;
842: FETCH l_systemparamsall_csr INTO l_inv_org_id, l_subinv_code, l_price_list_id;
843: IF l_systemparamsall_csr%NOTFOUND THEN
844: -- Remarketing options are not setup for this operating unit.
845: OKL_API.set_message(
846: p_app_name => 'OKL',
847: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
848: x_return_status := OKL_API.G_RET_STS_ERROR;
849: RAISE OKL_API.G_EXCEPTION_ERROR;
844: -- Remarketing options are not setup for this operating unit.
845: OKL_API.set_message(
846: p_app_name => 'OKL',
847: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
848: x_return_status := OKL_API.G_RET_STS_ERROR;
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851: CLOSE l_systemparamsall_csr;
852:
845: OKL_API.set_message(
846: p_app_name => 'OKL',
847: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
848: x_return_status := OKL_API.G_RET_STS_ERROR;
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851: CLOSE l_systemparamsall_csr;
852:
853:
852:
853:
854: IF l_inv_org_id IS NULL THEN
855: -- Remarketing Inventory Organization is not setup for this operating unit.
856: OKL_API.set_message(
857: p_app_name => 'OKL',
858: p_msg_name => 'OKL_AM_NO_REMK_ORG');
859: x_return_status := OKL_API.G_RET_STS_ERROR;
860: RAISE OKL_API.G_EXCEPTION_ERROR;
855: -- Remarketing Inventory Organization is not setup for this operating unit.
856: OKL_API.set_message(
857: p_app_name => 'OKL',
858: p_msg_name => 'OKL_AM_NO_REMK_ORG');
859: x_return_status := OKL_API.G_RET_STS_ERROR;
860: RAISE OKL_API.G_EXCEPTION_ERROR;
861: END IF;
862: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
863:
856: OKL_API.set_message(
857: p_app_name => 'OKL',
858: p_msg_name => 'OKL_AM_NO_REMK_ORG');
859: x_return_status := OKL_API.G_RET_STS_ERROR;
860: RAISE OKL_API.G_EXCEPTION_ERROR;
861: END IF;
862: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
863:
864:
892: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
893: p_profile_option_name => 'OKL_REMARKET_ITEMS_INV_ORG',
894: x_return_status => x_return_status);
895:
896: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
897: --Remarketing Inventory Organization profile is missing.
898: OKL_API.set_message( p_app_name => 'OKL',
899: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
900: );
894: x_return_status => x_return_status);
895:
896: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
897: --Remarketing Inventory Organization profile is missing.
898: OKL_API.set_message( p_app_name => 'OKL',
899: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
900: );
901: RAISE okl_api.G_EXCEPTION_ERROR;
902: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
897: --Remarketing Inventory Organization profile is missing.
898: OKL_API.set_message( p_app_name => 'OKL',
899: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
900: );
901: RAISE okl_api.G_EXCEPTION_ERROR;
902: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: END IF;
905: -- SECHAWLA Bug# 2679812 -- end new code
898: OKL_API.set_message( p_app_name => 'OKL',
899: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
900: );
901: RAISE okl_api.G_EXCEPTION_ERROR;
902: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: END IF;
905: -- SECHAWLA Bug# 2679812 -- end new code
906:
899: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
900: );
901: RAISE okl_api.G_EXCEPTION_ERROR;
902: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: END IF;
905: -- SECHAWLA Bug# 2679812 -- end new code
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: END IF;
905: -- SECHAWLA Bug# 2679812 -- end new code
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
908: --Profile value not defined
909: OKL_API.set_message( p_app_name => 'OKL',
910: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
911: p_token1 => 'PROFILE',
905: -- SECHAWLA Bug# 2679812 -- end new code
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
908: --Profile value not defined
909: OKL_API.set_message( p_app_name => 'OKL',
910: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
911: p_token1 => 'PROFILE',
912: p_token1_value => l_user_profile_name -- modified to display user profile option name
913: );
910: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
911: p_token1 => 'PROFILE',
912: p_token1_value => l_user_profile_name -- modified to display user profile option name
913: );
914: RAISE okl_api.G_EXCEPTION_ERROR;
915: END IF;
916: */ -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
917:
918:
918:
919: OPEN l_mtlorgcsr(l_inv_org_id);
920: FETCH l_mtlorgcsr INTO l_temp_org_name;
921: IF l_mtlorgcsr%NOTFOUND THEN
922: x_return_status := OKL_API.G_RET_STS_ERROR;
923: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
924: --Profile is invalid.
925: OKL_API.set_message( p_app_name => 'OKL',
926: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
921: IF l_mtlorgcsr%NOTFOUND THEN
922: x_return_status := OKL_API.G_RET_STS_ERROR;
923: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
924: --Profile is invalid.
925: OKL_API.set_message( p_app_name => 'OKL',
926: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
927: p_token1 => 'PROFILE',
928: p_token1_value => 'OKL_REMARKET_ITEMS_INV_ORG'
929: );
934: p_msg_name => G_INVALID_VALUE,
935: p_token1 => G_COL_NAME_TOKEN,
936: p_token1_value => 'Remarketing Inventory Organization');
937:
938: RAISE okl_api.G_EXCEPTION_ERROR;
939: END IF;
940: CLOSE l_mtlorgcsr;
941:
942:
949: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
950: p_profile_option_name => 'OKL_REMARKET_SUBINVENTORY',
951: x_return_status => x_return_status);
952:
953: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
954: --Remarketing Subinventory profile is missing.
955: OKL_API.set_message( p_app_name => 'OKL',
956: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
957: );
951: x_return_status => x_return_status);
952:
953: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
954: --Remarketing Subinventory profile is missing.
955: OKL_API.set_message( p_app_name => 'OKL',
956: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
957: );
958: RAISE okl_api.G_EXCEPTION_ERROR;
959: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
954: --Remarketing Subinventory profile is missing.
955: OKL_API.set_message( p_app_name => 'OKL',
956: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
957: );
958: RAISE okl_api.G_EXCEPTION_ERROR;
959: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: END IF;
962: -- SECHAWLA Bug# 2679812 -- end new code
955: OKL_API.set_message( p_app_name => 'OKL',
956: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
957: );
958: RAISE okl_api.G_EXCEPTION_ERROR;
959: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: END IF;
962: -- SECHAWLA Bug# 2679812 -- end new code
963:
956: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
957: );
958: RAISE okl_api.G_EXCEPTION_ERROR;
959: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: END IF;
962: -- SECHAWLA Bug# 2679812 -- end new code
963:
964: x_return_status := OKL_API.G_RET_STS_ERROR;
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: END IF;
962: -- SECHAWLA Bug# 2679812 -- end new code
963:
964: x_return_status := OKL_API.G_RET_STS_ERROR;
965: --Profile value not defined
966: OKL_API.set_message( p_app_name => 'OKL',
967: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
968: p_token1 => 'PROFILE',
962: -- SECHAWLA Bug# 2679812 -- end new code
963:
964: x_return_status := OKL_API.G_RET_STS_ERROR;
965: --Profile value not defined
966: OKL_API.set_message( p_app_name => 'OKL',
967: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
968: p_token1 => 'PROFILE',
969: p_token1_value => l_user_profile_name -- modified to display user profile option
970: );
967: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
968: p_token1 => 'PROFILE',
969: p_token1_value => l_user_profile_name -- modified to display user profile option
970: );
971: RAISE okl_api.G_EXCEPTION_ERROR;
972: */
973:
974: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
975: -- Remarketing Subinventory is not setup for this operating unit.
972: */
973:
974: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
975: -- Remarketing Subinventory is not setup for this operating unit.
976: OKL_API.set_message(
977: p_app_name => 'OKL',
978: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
979: x_return_status := OKL_API.G_RET_STS_ERROR;
980: RAISE OKL_API.G_EXCEPTION_ERROR;
975: -- Remarketing Subinventory is not setup for this operating unit.
976: OKL_API.set_message(
977: p_app_name => 'OKL',
978: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
979: x_return_status := OKL_API.G_RET_STS_ERROR;
980: RAISE OKL_API.G_EXCEPTION_ERROR;
981:
982: END IF;
983:
976: OKL_API.set_message(
977: p_app_name => 'OKL',
978: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
979: x_return_status := OKL_API.G_RET_STS_ERROR;
980: RAISE OKL_API.G_EXCEPTION_ERROR;
981:
982: END IF;
983:
984:
991: /* IF l_distribution_account_id IS NOT NULL THEN
992: OPEN l_glcodecomb_csr(l_distribution_account_id);
993: FETCH l_glcodecomb_csr INTO l_temp_ccid;
994: IF l_glcodecomb_csr%NOTFOUND THEN
995: x_return_status := OKL_API.G_RET_STS_ERROR;
996: -- Profile is invalid.
997: OKL_API.set_message( p_app_name => 'OKL',
998: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
999: p_token1 => 'PROFILE',
993: FETCH l_glcodecomb_csr INTO l_temp_ccid;
994: IF l_glcodecomb_csr%NOTFOUND THEN
995: x_return_status := OKL_API.G_RET_STS_ERROR;
996: -- Profile is invalid.
997: OKL_API.set_message( p_app_name => 'OKL',
998: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
999: p_token1 => 'PROFILE',
1000: p_token1_value => 'OKL_REMARKET_DISTRIBUTION_ACCOUNT'
1001: );
998: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
999: p_token1 => 'PROFILE',
1000: p_token1_value => 'OKL_REMARKET_DISTRIBUTION_ACCOUNT'
1001: );
1002: RAISE OKL_API.G_EXCEPTION_ERROR;
1003: END IF;
1004: CLOSE l_glcodecomb_csr;
1005: END IF;
1006: */
1014: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
1015: p_profile_option_name => 'OKL_REMARKET_PRICE_LIST',
1016: x_return_status => x_return_status);
1017:
1018: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1019: --Remarketing Price List profile is missing.
1020: OKL_API.set_message( p_app_name => 'OKL',
1021: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1022: );
1016: x_return_status => x_return_status);
1017:
1018: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1019: --Remarketing Price List profile is missing.
1020: OKL_API.set_message( p_app_name => 'OKL',
1021: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1022: );
1023: RAISE okl_api.G_EXCEPTION_ERROR;
1024: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1019: --Remarketing Price List profile is missing.
1020: OKL_API.set_message( p_app_name => 'OKL',
1021: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1022: );
1023: RAISE okl_api.G_EXCEPTION_ERROR;
1024: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1026: END IF;
1027: -- SECHAWLA Bug# 2679812 -- end new code
1020: OKL_API.set_message( p_app_name => 'OKL',
1021: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1022: );
1023: RAISE okl_api.G_EXCEPTION_ERROR;
1024: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1026: END IF;
1027: -- SECHAWLA Bug# 2679812 -- end new code
1028:
1021: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1022: );
1023: RAISE okl_api.G_EXCEPTION_ERROR;
1024: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1026: END IF;
1027: -- SECHAWLA Bug# 2679812 -- end new code
1028:
1029: x_return_status := OKL_API.G_RET_STS_ERROR;
1025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1026: END IF;
1027: -- SECHAWLA Bug# 2679812 -- end new code
1028:
1029: x_return_status := OKL_API.G_RET_STS_ERROR;
1030: -- Profile value not defined
1031: OKL_API.set_message( p_app_name => 'OKL',
1032: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1033: p_token1 => 'PROFILE',
1027: -- SECHAWLA Bug# 2679812 -- end new code
1028:
1029: x_return_status := OKL_API.G_RET_STS_ERROR;
1030: -- Profile value not defined
1031: OKL_API.set_message( p_app_name => 'OKL',
1032: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1033: p_token1 => 'PROFILE',
1034: p_token1_value => l_user_profile_name -- modified to display user profile option
1035: );
1032: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1033: p_token1 => 'PROFILE',
1034: p_token1_value => l_user_profile_name -- modified to display user profile option
1035: );
1036: RAISE OKL_API.G_EXCEPTION_ERROR;
1037: */
1038: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1039:
1040: -- Remarketing Price List is not setup for this operating unit.
1037: */
1038: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1039:
1040: -- Remarketing Price List is not setup for this operating unit.
1041: OKL_API.set_message(
1042: p_app_name => 'OKL',
1043: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1044: x_return_status := OKL_API.G_RET_STS_ERROR;
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: -- Remarketing Price List is not setup for this operating unit.
1041: OKL_API.set_message(
1042: p_app_name => 'OKL',
1043: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1044: x_return_status := OKL_API.G_RET_STS_ERROR;
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1048:
1041: OKL_API.set_message(
1042: p_app_name => 'OKL',
1043: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1044: x_return_status := OKL_API.G_RET_STS_ERROR;
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1048:
1049: OPEN l_qplisthdr_csr(l_price_list_id);
1048:
1049: OPEN l_qplisthdr_csr(l_price_list_id);
1050: FETCH l_qplisthdr_csr INTO l_pricelist_name; -- SECHAWLA 08-DEC-04 4047159
1051: IF l_qplisthdr_csr%NOTFOUND THEN
1052: x_return_status := OKL_API.G_RET_STS_ERROR;
1053:
1054: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1055: -- Profile is invalid.
1056: OKL_API.set_message( p_app_name => 'OKL',
1052: x_return_status := OKL_API.G_RET_STS_ERROR;
1053:
1054: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1055: -- Profile is invalid.
1056: OKL_API.set_message( p_app_name => 'OKL',
1057: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
1058: p_token1 => 'PROFILE',
1059: p_token1_value => 'OKL_REMARKET_PRICE_LIST'
1060: */
1063: OKC_API.set_message( p_app_name => 'OKC',
1064: p_msg_name => G_INVALID_VALUE,
1065: p_token1 => G_COL_NAME_TOKEN,
1066: p_token1_value => 'Remarketing Price List');
1067: RAISE OKL_API.G_EXCEPTION_ERROR;
1068: END IF;
1069: CLOSE l_qplisthdr_csr;
1070:
1071: IF l_default_order_type_id IS NULL THEN
1080: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item.',
1081: 'l_user_profile_name status'||x_return_status);
1082: END IF;
1083:
1084: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1085: --Remarketing Order Type profile is missing.
1086: OKL_API.set_message( p_app_name => 'OKL',
1087: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1088: );
1082: END IF;
1083:
1084: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1085: --Remarketing Order Type profile is missing.
1086: OKL_API.set_message( p_app_name => 'OKL',
1087: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1088: );
1089: RAISE okl_api.G_EXCEPTION_ERROR;
1090: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1085: --Remarketing Order Type profile is missing.
1086: OKL_API.set_message( p_app_name => 'OKL',
1087: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1088: );
1089: RAISE okl_api.G_EXCEPTION_ERROR;
1090: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: END IF;
1093: -- SECHAWLA Bug# 2679812 -- end new code
1086: OKL_API.set_message( p_app_name => 'OKL',
1087: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1088: );
1089: RAISE okl_api.G_EXCEPTION_ERROR;
1090: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: END IF;
1093: -- SECHAWLA Bug# 2679812 -- end new code
1094:
1087: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1088: );
1089: RAISE okl_api.G_EXCEPTION_ERROR;
1090: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: END IF;
1093: -- SECHAWLA Bug# 2679812 -- end new code
1094:
1095: x_return_status := OKL_API.G_RET_STS_ERROR;
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: END IF;
1093: -- SECHAWLA Bug# 2679812 -- end new code
1094:
1095: x_return_status := OKL_API.G_RET_STS_ERROR;
1096: -- Profile value not defined
1097: OKL_API.set_message( p_app_name => 'OKL',
1098: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1099: p_token1 => 'PROFILE',
1093: -- SECHAWLA Bug# 2679812 -- end new code
1094:
1095: x_return_status := OKL_API.G_RET_STS_ERROR;
1096: -- Profile value not defined
1097: OKL_API.set_message( p_app_name => 'OKL',
1098: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1099: p_token1 => 'PROFILE',
1100: p_token1_value => l_user_profile_name -- modified to display user profile option
1101: );
1098: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1099: p_token1 => 'PROFILE',
1100: p_token1_value => l_user_profile_name -- modified to display user profile option
1101: );
1102: RAISE OKL_API.G_EXCEPTION_ERROR;
1103: END IF;
1104:
1105: -- get the warehouse and the Line Type for the Default Order Type
1106: OPEN l_oetranstypesall_csr(l_default_order_type_id);
1123: END IF;
1124:
1125:
1126: IF l_order_warehouse_id IS NULL THEN
1127: x_return_status := OKL_API.G_RET_STS_ERROR;
1128: -- Warehouse not defined for this Order Type
1129: OKL_API.set_message( p_app_name => 'OKL',
1130: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1131: p_token1 => 'TYPE',
1125:
1126: IF l_order_warehouse_id IS NULL THEN
1127: x_return_status := OKL_API.G_RET_STS_ERROR;
1128: -- Warehouse not defined for this Order Type
1129: OKL_API.set_message( p_app_name => 'OKL',
1130: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1131: p_token1 => 'TYPE',
1132: p_token1_value => 'ORDER',
1133: p_token2 => 'NAME',
1132: p_token1_value => 'ORDER',
1133: p_token2 => 'NAME',
1134: p_token2_value => l_order_name
1135: );
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139: IF l_def_outbound_line_type_id IS NULL THEN
1140: x_return_status := OKL_API.G_RET_STS_ERROR;
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139: IF l_def_outbound_line_type_id IS NULL THEN
1140: x_return_status := OKL_API.G_RET_STS_ERROR;
1141: -- Line Type not defined for this Order Type
1142: OKL_API.set_message( p_app_name => 'OKL',
1143: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1144: p_token1 => 'ORDER_TYPE',
1138:
1139: IF l_def_outbound_line_type_id IS NULL THEN
1140: x_return_status := OKL_API.G_RET_STS_ERROR;
1141: -- Line Type not defined for this Order Type
1142: OKL_API.set_message( p_app_name => 'OKL',
1143: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1144: p_token1 => 'ORDER_TYPE',
1145: p_token1_value => l_order_name
1146: );
1143: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1144: p_token1 => 'ORDER_TYPE',
1145: p_token1_value => l_order_name
1146: );
1147: RAISE OKL_API.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: -- get the warehouse for the Line type corresponding to the Default Order Type
1151: OPEN l_oetranstypesall_csr(l_def_outbound_line_type_id);
1163: 'l_line_warehouse_id'||l_line_warehouse_id);
1164: END IF;
1165:
1166: IF l_line_warehouse_id IS NULL THEN
1167: x_return_status := OKL_API.G_RET_STS_ERROR;
1168: -- Warehouse not defined for this Line Type
1169: OKL_API.set_message( p_app_name => 'OKL',
1170: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1171: p_token1 => 'TYPE',
1165:
1166: IF l_line_warehouse_id IS NULL THEN
1167: x_return_status := OKL_API.G_RET_STS_ERROR;
1168: -- Warehouse not defined for this Line Type
1169: OKL_API.set_message( p_app_name => 'OKL',
1170: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1171: p_token1 => 'TYPE',
1172: p_token1_value => 'LINE',
1173: p_token2 => 'NAME',
1172: p_token1_value => 'LINE',
1173: p_token2 => 'NAME',
1174: p_token2_value => l_line_name
1175: );
1176: RAISE OKL_API.G_EXCEPTION_ERROR;
1177: END IF;
1178:
1179: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1180: x_return_status := OKL_API.G_RET_STS_ERROR;
1176: RAISE OKL_API.G_EXCEPTION_ERROR;
1177: END IF;
1178:
1179: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1180: x_return_status := OKL_API.G_RET_STS_ERROR;
1181: -- Warehouses for the Order Type ORDER_TYPE and Line Type LINE_TYPE do not match.
1182: OKL_API.set_message( p_app_name => 'OKL',
1183: p_msg_name => 'OKL_AM_RMK_WHS_MISMATCH',
1184: p_token1 => 'ORDER_TYPE',
1178:
1179: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1180: x_return_status := OKL_API.G_RET_STS_ERROR;
1181: -- Warehouses for the Order Type ORDER_TYPE and Line Type LINE_TYPE do not match.
1182: OKL_API.set_message( p_app_name => 'OKL',
1183: p_msg_name => 'OKL_AM_RMK_WHS_MISMATCH',
1184: p_token1 => 'ORDER_TYPE',
1185: p_token1_value => l_order_name,
1186: p_token2 => 'LINE_TYPE',
1185: p_token1_value => l_order_name,
1186: p_token2 => 'LINE_TYPE',
1187: p_token2_value => l_line_name
1188: );
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1191:
1192: IF l_inv_org_id <> l_order_warehouse_id THEN
1193: x_return_status := OKL_API.G_RET_STS_ERROR;
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1191:
1192: IF l_inv_org_id <> l_order_warehouse_id THEN
1193: x_return_status := OKL_API.G_RET_STS_ERROR;
1194: -- Shipping organization should be the same as the inventory item organization.
1195: OKL_API.set_message( p_app_name => 'OKL',
1196: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1197: );
1191:
1192: IF l_inv_org_id <> l_order_warehouse_id THEN
1193: x_return_status := OKL_API.G_RET_STS_ERROR;
1194: -- Shipping organization should be the same as the inventory item organization.
1195: OKL_API.set_message( p_app_name => 'OKL',
1196: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1197: );
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1194: -- Shipping organization should be the same as the inventory item organization.
1195: OKL_API.set_message( p_app_name => 'OKL',
1196: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1197: );
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1200:
1201:
1202: --SECHAWLA Bug# 2679812 : Added/modified the following code to first create the item in the master org and then
1208:
1209: -- SECAHWLA 08-MAR-04 3492490 : Added master org name
1210: FETCH l_mtlparam_csr INTO l_master_org_id, l_master_org_name;
1211: IF l_mtlparam_csr%NOTFOUND THEN
1212: x_return_status := OKL_API.G_RET_STS_ERROR;
1213: -- Inventory organization is not set up in MTL Parameters.
1214: OKL_API.set_message( p_app_name => 'OKL',
1215: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1216: );
1210: FETCH l_mtlparam_csr INTO l_master_org_id, l_master_org_name;
1211: IF l_mtlparam_csr%NOTFOUND THEN
1212: x_return_status := OKL_API.G_RET_STS_ERROR;
1213: -- Inventory organization is not set up in MTL Parameters.
1214: OKL_API.set_message( p_app_name => 'OKL',
1215: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1216: );
1217: RAISE OKL_API.G_EXCEPTION_ERROR;
1218: END IF;
1213: -- Inventory organization is not set up in MTL Parameters.
1214: OKL_API.set_message( p_app_name => 'OKL',
1215: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1216: );
1217: RAISE OKL_API.G_EXCEPTION_ERROR;
1218: END IF;
1219: IF l_master_org_id IS NULL THEN
1220: x_return_status := OKL_API.G_RET_STS_ERROR;
1221: -- Master organization is not defined for inventory organization.
1216: );
1217: RAISE OKL_API.G_EXCEPTION_ERROR;
1218: END IF;
1219: IF l_master_org_id IS NULL THEN
1220: x_return_status := OKL_API.G_RET_STS_ERROR;
1221: -- Master organization is not defined for inventory organization.
1222: OKL_API.set_message( p_app_name => 'OKL',
1223: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1224: );
1218: END IF;
1219: IF l_master_org_id IS NULL THEN
1220: x_return_status := OKL_API.G_RET_STS_ERROR;
1221: -- Master organization is not defined for inventory organization.
1222: OKL_API.set_message( p_app_name => 'OKL',
1223: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1224: );
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1221: -- Master organization is not defined for inventory organization.
1222: OKL_API.set_message( p_app_name => 'OKL',
1223: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1224: );
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: CLOSE l_mtlparam_csr;
1228:
1229: -- SECHAWLA Bug# 2679812 :
1272:
1273: OPEN l_mtlsecinv_csr(l_current_org , l_subinv_code );
1274: FETCH l_mtlsecinv_csr INTO l_temp;
1275: IF l_mtlsecinv_csr%NOTFOUND THEN
1276: --x_return_status := OKL_API.G_RET_STS_ERROR;
1277:
1278: IF (l_inv_org_id <> l_master_org_id AND i = 1 )THEN
1279: /* SECHAWLA 19-MAY-04 3634514 : Commented out
1280: --Subinventory SUBINVENTORY is not defined for the organization MASTER_ORG, which is the Master organization of the Remarketing Inventory organization CHILD_ORG.
1277:
1278: IF (l_inv_org_id <> l_master_org_id AND i = 1 )THEN
1279: /* SECHAWLA 19-MAY-04 3634514 : Commented out
1280: --Subinventory SUBINVENTORY is not defined for the organization MASTER_ORG, which is the Master organization of the Remarketing Inventory organization CHILD_ORG.
1281: OKL_API.set_message(p_app_name => 'OKL',
1282: p_msg_name => 'OKL_AM_RMK_MST_ORG_SUBINV',
1283: p_token1 => 'SUBINVENTORY',
1284: p_token1_value => l_subinv_code,
1285: p_token2 => 'MASTER_ORG',
1294: END IF;
1295:
1296: NULL;
1297: ELSE
1298: x_return_status := OKL_API.G_RET_STS_ERROR;
1299: --Subinventory SUBINVENTORY is invalid for the organization ORGANIZATION.
1300: OKL_API.set_message(p_app_name => 'OKL',
1301: p_msg_name => 'OKL_AM_RMK_ORG_SUBINV',
1302: p_token1 => 'SUBINVENTORY',
1296: NULL;
1297: ELSE
1298: x_return_status := OKL_API.G_RET_STS_ERROR;
1299: --Subinventory SUBINVENTORY is invalid for the organization ORGANIZATION.
1300: OKL_API.set_message(p_app_name => 'OKL',
1301: p_msg_name => 'OKL_AM_RMK_ORG_SUBINV',
1302: p_token1 => 'SUBINVENTORY',
1303: p_token1_value => l_subinv_code,
1304: p_token2 => 'ORGANIZATION',
1302: p_token1 => 'SUBINVENTORY',
1303: p_token1_value => l_subinv_code,
1304: p_token2 => 'ORGANIZATION',
1305: p_token2_value => l_temp_org_name);
1306: RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Added
1307: END IF;
1308:
1309: --RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Commented out
1310: END IF;
1305: p_token2_value => l_temp_org_name);
1306: RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Added
1307: END IF;
1308:
1309: --RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Commented out
1310: END IF;
1311: CLOSE l_mtlsecinv_csr;
1312:
1313:
1352: 'after create_inv_item call'||x_return_status);
1353:
1354: END IF;
1355:
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1353:
1354: END IF;
1355:
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1354: END IF;
1355:
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1362:
1355:
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1362:
1363:
1388: 'after Create_Inv_Misc_Receipt_Txn call'||x_return_status);
1389:
1390: END IF;
1391:
1392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1389:
1390: END IF;
1391:
1392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397:
1390: END IF;
1391:
1392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397:
1398: END IF;
1391:
1392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397:
1398: END IF;
1399:
1418: 'after Create_Item_In_Price_List'||x_return_status);
1419:
1420: END IF;
1421:
1422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1425: RAISE OKL_API.G_EXCEPTION_ERROR;
1426: END IF;
1419:
1420: END IF;
1421:
1422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1425: RAISE OKL_API.G_EXCEPTION_ERROR;
1426: END IF;
1427: END IF;
1420: END IF;
1421:
1422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1425: RAISE OKL_API.G_EXCEPTION_ERROR;
1426: END IF;
1427: END IF;
1428:
1421:
1422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1425: RAISE OKL_API.G_EXCEPTION_ERROR;
1426: END IF;
1427: END IF;
1428:
1429: END LOOP;
1442: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ','End(-)');
1444: END IF;
1445:
1446: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1447:
1448: EXCEPTION
1449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1450: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1445:
1446: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1447:
1448: EXCEPTION
1449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1450: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1451: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1452: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1453: END IF;
1448: EXCEPTION
1449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1450: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1451: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1452: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1453: END IF;
1454:
1455: IF l_mtlsystemitems_csr%ISOPEN THEN
1456: CLOSE l_mtlsystemitems_csr;
1490: CLOSE l_systemparamsall_csr;
1491: END IF;
1492:
1493:
1494: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1495: (
1496: l_api_name,
1497: G_PKG_NAME,
1498: 'OKL_API.G_RET_STS_ERROR',
1494: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1495: (
1496: l_api_name,
1497: G_PKG_NAME,
1498: 'OKL_API.G_RET_STS_ERROR',
1499: x_msg_count,
1500: x_msg_data,
1501: '_PVT'
1502: );
1499: x_msg_count,
1500: x_msg_data,
1501: '_PVT'
1502: );
1503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1506: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1507: END IF;
1502: );
1503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1506: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1507: END IF;
1508:
1509: IF l_mtlsystemitems_csr%ISOPEN THEN
1510: CLOSE l_mtlsystemitems_csr;
1542: -- SECHAWLA 05-OCT-04 3924244 : close new cursor
1543: IF l_systemparamsall_csr%ISOPEN THEN
1544: CLOSE l_systemparamsall_csr;
1545: END IF;
1546: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1547: (
1548: l_api_name,
1549: G_PKG_NAME,
1550: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1546: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1547: (
1548: l_api_name,
1549: G_PKG_NAME,
1550: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1551: x_msg_count,
1552: x_msg_data,
1553: '_PVT'
1554: );
1595: -- SECHAWLA 05-OCT-04 3924244 : close new cursor
1596: IF l_systemparamsall_csr%ISOPEN THEN
1597: CLOSE l_systemparamsall_csr;
1598: END IF;
1599: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1600: (
1601: l_api_name,
1602: G_PKG_NAME,
1603: 'OTHERS',
1666: , x_Error_tbl => x_Error_tbl
1667: );
1668:
1669:
1670: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
1671: -- Display the error messages from the x_error_tbl table
1672: FOR i IN 1 .. x_Error_tbl.COUNT LOOP
1673: -- Error : Transaction Id = TRX_ID
1674: OKL_API.set_message( p_app_name => 'OKL',
1670: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
1671: -- Display the error messages from the x_error_tbl table
1672: FOR i IN 1 .. x_Error_tbl.COUNT LOOP
1673: -- Error : Transaction Id = TRX_ID
1674: OKL_API.set_message( p_app_name => 'OKL',
1675: p_msg_name => 'OKL_AM_RMK_TRANS_ID',
1676: p_token1 => 'TRX_ID',
1677: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
1678: );
1676: p_token1 => 'TRX_ID',
1677: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
1678: );
1679: -- Error : Unique Id = UNIQUE_ID
1680: OKL_API.set_message( p_app_name => 'OKL',
1681: p_msg_name => 'OKL_AM_RMK_UNIQUE_ID',
1682: p_token1 => 'UNIQUE_ID',
1683: p_token1_value => x_Error_tbl(i).UNIQUE_ID
1684: );
1682: p_token1 => 'UNIQUE_ID',
1683: p_token1_value => x_Error_tbl(i).UNIQUE_ID
1684: );
1685: -- Error : Table Name = TABLE_NAME
1686: OKL_API.set_message( p_app_name => 'OKL',
1687: p_msg_name => 'OKL_AM_RMK_TABLE_NAME',
1688: p_token1 => 'TABLE_NAME',
1689: p_token1_value => x_Error_tbl(i).TABLE_NAME
1690: );
1688: p_token1 => 'TABLE_NAME',
1689: p_token1_value => x_Error_tbl(i).TABLE_NAME
1690: );
1691: -- Error : Column Name = COLUMN_NAME
1692: OKL_API.set_message( p_app_name => 'OKL',
1693: p_msg_name => 'OKL_AM_RMK_COLUMN_NAME',
1694: p_token1 => 'COLUMN_NAME',
1695: p_token1_value => x_Error_tbl(i).COLUMN_NAME
1696: );
1694: p_token1 => 'COLUMN_NAME',
1695: p_token1_value => x_Error_tbl(i).COLUMN_NAME
1696: );
1697: -- Error : Message Name = MSG_NAME
1698: OKL_API.set_message( p_app_name => 'OKL',
1699: p_msg_name => 'OKL_AM_RMK_MSG_NAME',
1700: p_token1 => 'MSG_NAME',
1701: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
1702: );
1700: p_token1 => 'MSG_NAME',
1701: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
1702: );
1703: -- Error : Message Text = MSG_TEXT
1704: OKL_API.set_message( p_app_name => 'OKL',
1705: p_msg_name => 'OKL_AM_RMK_MSG_TEXT',
1706: p_token1 => 'MSG_TEXT',
1707: p_token1_value => x_Error_tbl(i).MESSAGE_TEXT
1708: );
1710: END LOOP;
1711: END IF;
1712: EXCEPTION
1713: WHEN OTHERS THEN
1714: OKL_API.set_message(p_app_name => 'OKC',
1715: p_msg_name => g_unexpected_error,
1716: p_token1 => g_sqlcode_token,
1717: p_token1_value => sqlcode,
1718: p_token2 => g_sqlerrm_token,
1716: p_token1 => g_sqlcode_token,
1717: p_token1_value => sqlcode,
1718: p_token2 => g_sqlerrm_token,
1719: p_token2_value => sqlerrm);
1720: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1721: END remove_inv_item;
1722:
1723:
1724: -- Start of comments
1785:
1786:
1787: QP_PRICE_LIST_PUB.Process_Price_List
1788: ( p_api_version_number => 1
1789: , p_init_msg_list => okl_api.G_FALSE
1790: , p_return_values => okl_api.G_FALSE
1791: , p_commit => okl_api.G_FALSE
1792: , x_return_status => x_return_status
1793: , x_msg_count => l_msg_count
1786:
1787: QP_PRICE_LIST_PUB.Process_Price_List
1788: ( p_api_version_number => 1
1789: , p_init_msg_list => okl_api.G_FALSE
1790: , p_return_values => okl_api.G_FALSE
1791: , p_commit => okl_api.G_FALSE
1792: , x_return_status => x_return_status
1793: , x_msg_count => l_msg_count
1794: , x_msg_data => l_msg_data
1787: QP_PRICE_LIST_PUB.Process_Price_List
1788: ( p_api_version_number => 1
1789: , p_init_msg_list => okl_api.G_FALSE
1790: , p_return_values => okl_api.G_FALSE
1791: , p_commit => okl_api.G_FALSE
1792: , x_return_status => x_return_status
1793: , x_msg_count => l_msg_count
1794: , x_msg_data => l_msg_data
1795: , p_PRICE_LIST_rec => gpr_price_list_rec
1806: );
1807: END LOOP;
1808: EXCEPTION
1809: WHEN OTHERS THEN
1810: OKL_API.set_message(p_app_name => 'OKC',
1811: p_msg_name => g_unexpected_error,
1812: p_token1 => g_sqlcode_token,
1813: p_token1_value => sqlcode,
1814: p_token2 => g_sqlerrm_token,
1812: p_token1 => g_sqlcode_token,
1813: p_token1_value => sqlcode,
1814: p_token2 => g_sqlerrm_token,
1815: p_token2_value => sqlerrm);
1816: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1817: END remove_item_from_price_list;
1818: */
1819:
1820:
1895: -- use the Org from the profile to delete (disable) an inventory item, as the pofile may change between the time of
1896: -- creation and deletion of inventory item. An item may belong to more than one org So Org Id is required to
1897: -- disable an inventory item.
1898:
1899: IF p_item_id IS NULL OR p_item_id = OKL_API.G_MISS_NUM THEN
1900: x_return_status := OKL_API.G_RET_STS_ERROR;
1901: -- Item Id is required
1902: OKC_API.set_message( p_app_name => 'OKC',
1903: p_msg_name => G_REQUIRED_VALUE,
1896: -- creation and deletion of inventory item. An item may belong to more than one org So Org Id is required to
1897: -- disable an inventory item.
1898:
1899: IF p_item_id IS NULL OR p_item_id = OKL_API.G_MISS_NUM THEN
1900: x_return_status := OKL_API.G_RET_STS_ERROR;
1901: -- Item Id is required
1902: OKC_API.set_message( p_app_name => 'OKC',
1903: p_msg_name => G_REQUIRED_VALUE,
1904: p_token1 => G_COL_NAME_TOKEN,
1905: p_token1_value => 'ITEM_ID');
1906: RAISE okc_api.G_EXCEPTION_ERROR;
1907: END IF;
1908:
1909: IF p_org_id IS NULL OR p_org_id = OKL_API.G_MISS_NUM THEN
1910: x_return_status := OKL_API.G_RET_STS_ERROR;
1911: -- Organization Id is required
1912: OKC_API.set_message( p_app_name => 'OKC',
1913: p_msg_name => G_REQUIRED_VALUE,
1906: RAISE okc_api.G_EXCEPTION_ERROR;
1907: END IF;
1908:
1909: IF p_org_id IS NULL OR p_org_id = OKL_API.G_MISS_NUM THEN
1910: x_return_status := OKL_API.G_RET_STS_ERROR;
1911: -- Organization Id is required
1912: OKC_API.set_message( p_app_name => 'OKC',
1913: p_msg_name => G_REQUIRED_VALUE,
1914: p_token1 => G_COL_NAME_TOKEN,
1918:
1919: OPEN l_mtlsysitems_csr(p_item_id,p_org_id);
1920: FETCH l_mtlsysitems_csr INTO l_temp;
1921: IF l_mtlsysitems_csr%NOTFOUND THEN
1922: x_return_status := OKL_API.G_RET_STS_ERROR;
1923: -- No active Item exists for this combination of Item and Organization
1924: OKL_API.set_message( p_app_name => 'OKL',
1925: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1926:
1920: FETCH l_mtlsysitems_csr INTO l_temp;
1921: IF l_mtlsysitems_csr%NOTFOUND THEN
1922: x_return_status := OKL_API.G_RET_STS_ERROR;
1923: -- No active Item exists for this combination of Item and Organization
1924: OKL_API.set_message( p_app_name => 'OKL',
1925: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1926:
1927: );
1928: RAISE OKL_API.G_EXCEPTION_ERROR;
1924: OKL_API.set_message( p_app_name => 'OKL',
1925: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1926:
1927: );
1928: RAISE OKL_API.G_EXCEPTION_ERROR;
1929: END IF;
1930: CLOSE l_mtlsysitems_csr;
1931:
1932: -- Disable the Inventory Item
1934: p_org_id => p_org_id,
1935: p_sysdate => l_sysdate,
1936: x_return_status => x_return_status);
1937:
1938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1942: END IF;
1935: p_sysdate => l_sysdate,
1936: x_return_status => x_return_status);
1937:
1938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1942: END IF;
1943:
1936: x_return_status => x_return_status);
1937:
1938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1942: END IF;
1943:
1944:
1937:
1938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1942: END IF;
1943:
1944:
1945: -- Disable the Price Lists corresponding to the Inventory Item
1946: remove_item_from_price_list(p_item_id => p_item_id,
1947: p_sysdate => l_sysdate,
1948: x_return_status => x_return_status);
1949:
1950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1947: p_sysdate => l_sysdate,
1948: x_return_status => x_return_status);
1949:
1950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1955: */
1948: x_return_status => x_return_status);
1949:
1950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1955: */
1956:
1949:
1950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1955: */
1956:
1957: EXCEPTION
1958: WHEN OTHERS THEN
1959: -- unexpected error
1960:
1961: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
1962: OKL_API.set_message(p_app_name => 'OKC',
1963: p_msg_name => g_unexpected_error,
1964: p_token1 => g_sqlcode_token,
1965: p_token1_value => sqlcode,
1966: p_token2 => g_sqlerrm_token,
1964: p_token1 => g_sqlcode_token,
1965: p_token1_value => sqlcode,
1966: p_token2 => g_sqlerrm_token,
1967: p_token2_value => sqlerrm);
1968: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1969:
1970:
1971: END remove_item;
1972:
2051: l_ship_from_org_id NUMBER;
2052:
2053: BEGIN
2054:
2055: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2056: G_PKG_NAME,
2057: p_init_msg_list,
2058: l_api_version,
2059: p_api_version,
2060: '_PVT',
2061: x_return_status);
2062:
2063:
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2061: x_return_status);
2062:
2063:
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2062:
2063:
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2070: SELECT SYSDATE INTO l_sysdate FROM dual;
2063:
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2070: SELECT SYSDATE INTO l_sysdate FROM dual;
2071:
2069:
2070: SELECT SYSDATE INTO l_sysdate FROM dual;
2071:
2072: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2073: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2074: x_return_status := OKL_API.G_RET_STS_ERROR;
2075: -- Order Line ID is required
2076: OKL_API.set_message( p_app_name => 'OKC',
2077: p_msg_name => G_REQUIRED_VALUE,
2070: SELECT SYSDATE INTO l_sysdate FROM dual;
2071:
2072: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2073: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2074: x_return_status := OKL_API.G_RET_STS_ERROR;
2075: -- Order Line ID is required
2076: OKL_API.set_message( p_app_name => 'OKC',
2077: p_msg_name => G_REQUIRED_VALUE,
2078: p_token1 => G_COL_NAME_TOKEN,
2072: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2073: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2074: x_return_status := OKL_API.G_RET_STS_ERROR;
2075: -- Order Line ID is required
2076: OKL_API.set_message( p_app_name => 'OKC',
2077: p_msg_name => G_REQUIRED_VALUE,
2078: p_token1 => G_COL_NAME_TOKEN,
2079: p_token1_value => 'ORDER_LINE_ID');
2080: RAISE okl_api.G_EXCEPTION_ERROR;
2076: OKL_API.set_message( p_app_name => 'OKC',
2077: p_msg_name => G_REQUIRED_VALUE,
2078: p_token1 => G_COL_NAME_TOKEN,
2079: p_token1_value => 'ORDER_LINE_ID');
2080: RAISE okl_api.G_EXCEPTION_ERROR;
2081: END IF;
2082:
2083: /*-- SECHAWLA 21-OCT-04 3924244
2084: OPEN l_orderheaders_csr(p_order_header_Id);
2083: /*-- SECHAWLA 21-OCT-04 3924244
2084: OPEN l_orderheaders_csr(p_order_header_Id);
2085: FETCH l_orderheaders_csr INTO l_order_number;
2086: IF l_orderheaders_csr%NOTFOUND THEN
2087: x_return_status := OKL_API.G_RET_STS_ERROR;
2088: -- Order Header ID is invalid
2089: OKL_API.set_message( p_app_name => 'OKC',
2090: p_msg_name => G_INVALID_VALUE,
2091: p_token1 => G_COL_NAME_TOKEN,
2085: FETCH l_orderheaders_csr INTO l_order_number;
2086: IF l_orderheaders_csr%NOTFOUND THEN
2087: x_return_status := OKL_API.G_RET_STS_ERROR;
2088: -- Order Header ID is invalid
2089: OKL_API.set_message( p_app_name => 'OKC',
2090: p_msg_name => G_INVALID_VALUE,
2091: p_token1 => G_COL_NAME_TOKEN,
2092: p_token1_value => 'ORDER_HEADER_ID');
2093: RAISE okl_api.G_EXCEPTION_ERROR;
2089: OKL_API.set_message( p_app_name => 'OKC',
2090: p_msg_name => G_INVALID_VALUE,
2091: p_token1 => G_COL_NAME_TOKEN,
2092: p_token1_value => 'ORDER_HEADER_ID');
2093: RAISE okl_api.G_EXCEPTION_ERROR;
2094: END IF;
2095: CLOSE l_orderheaders_csr;
2096: */
2097:
2098: -- SECHAWLA 21-OCT-04 3924244 : added
2099: OPEN l_orderlines_csr(p_order_line_Id);
2100: FETCH l_orderlines_csr INTO l_header_id, l_inventory_item_id, l_ordered_quantity, l_ship_from_org_id;
2101: IF l_orderlines_csr%NOTFOUND THEN
2102: x_return_status := OKL_API.G_RET_STS_ERROR;
2103: -- Order Line ID is invalid
2104: OKL_API.set_message( p_app_name => 'OKC',
2105: p_msg_name => G_INVALID_VALUE,
2106: p_token1 => G_COL_NAME_TOKEN,
2100: FETCH l_orderlines_csr INTO l_header_id, l_inventory_item_id, l_ordered_quantity, l_ship_from_org_id;
2101: IF l_orderlines_csr%NOTFOUND THEN
2102: x_return_status := OKL_API.G_RET_STS_ERROR;
2103: -- Order Line ID is invalid
2104: OKL_API.set_message( p_app_name => 'OKC',
2105: p_msg_name => G_INVALID_VALUE,
2106: p_token1 => G_COL_NAME_TOKEN,
2107: p_token1_value => 'ORDER_LINE_ID');
2108: RAISE okl_api.G_EXCEPTION_ERROR;
2104: OKL_API.set_message( p_app_name => 'OKC',
2105: p_msg_name => G_INVALID_VALUE,
2106: p_token1 => G_COL_NAME_TOKEN,
2107: p_token1_value => 'ORDER_LINE_ID');
2108: RAISE okl_api.G_EXCEPTION_ERROR;
2109: END IF;
2110: CLOSE l_orderlines_csr;
2111:
2112: OPEN l_orderheaders_csr(l_header_id);
2118: -- SECHAWLA 21-OCT-04 3924244 : commented out the loop
2119: --FOR l_orderlines_rec IN l_orderlines_csr(p_order_header_id) LOOP
2120:
2121: IF l_ship_from_org_id IS NULL THEN
2122: x_return_status := OKL_API.G_RET_STS_ERROR;
2123: -- Ship From Org ID is required
2124: OKL_API.set_message( p_app_name => 'OKC',
2125: p_msg_name => G_REQUIRED_VALUE,
2126: p_token1 => G_COL_NAME_TOKEN,
2120:
2121: IF l_ship_from_org_id IS NULL THEN
2122: x_return_status := OKL_API.G_RET_STS_ERROR;
2123: -- Ship From Org ID is required
2124: OKL_API.set_message( p_app_name => 'OKC',
2125: p_msg_name => G_REQUIRED_VALUE,
2126: p_token1 => G_COL_NAME_TOKEN,
2127: p_token1_value => 'SHIP_FROM_ORG_ID');
2128: RAISE okl_api.G_EXCEPTION_ERROR;
2124: OKL_API.set_message( p_app_name => 'OKC',
2125: p_msg_name => G_REQUIRED_VALUE,
2126: p_token1 => G_COL_NAME_TOKEN,
2127: p_token1_value => 'SHIP_FROM_ORG_ID');
2128: RAISE okl_api.G_EXCEPTION_ERROR;
2129: END IF;
2130:
2131:
2132: OPEN l_mtlsystemitems_csr(l_inventory_item_id, l_ship_from_org_id);
2134: --FETCH l_mtlsystemitems_csr INTO l_subinv_code, l_distribution_account_id;
2135: FETCH l_mtlsystemitems_csr INTO l_subinv_code;
2136: IF l_mtlsystemitems_csr%NOTFOUND THEN
2137: -- shipping org for the order does not match the Item's organization
2138: x_return_status := OKL_API.G_RET_STS_ERROR;
2139: --Order ORDER_NUMBER has invalid combination of inventory item and organization
2140: OKL_API.set_message(p_app_name => 'OKL',
2141: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2142: p_token1 => 'ORDER_NUMBER',
2136: IF l_mtlsystemitems_csr%NOTFOUND THEN
2137: -- shipping org for the order does not match the Item's organization
2138: x_return_status := OKL_API.G_RET_STS_ERROR;
2139: --Order ORDER_NUMBER has invalid combination of inventory item and organization
2140: OKL_API.set_message(p_app_name => 'OKL',
2141: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2142: p_token1 => 'ORDER_NUMBER',
2143: p_token1_value => l_order_number);
2144: RAISE OKL_API.G_EXCEPTION_ERROR;
2140: OKL_API.set_message(p_app_name => 'OKL',
2141: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2142: p_token1 => 'ORDER_NUMBER',
2143: p_token1_value => l_order_number);
2144: RAISE OKL_API.G_EXCEPTION_ERROR;
2145: END IF;
2146:
2147: IF l_subinv_code IS NULL THEN
2148: x_return_status := OKL_API.G_RET_STS_ERROR;
2144: RAISE OKL_API.G_EXCEPTION_ERROR;
2145: END IF;
2146:
2147: IF l_subinv_code IS NULL THEN
2148: x_return_status := OKL_API.G_RET_STS_ERROR;
2149: -- source subinventory is required
2150: OKL_API.set_message( p_app_name => 'OKC',
2151: p_msg_name => G_REQUIRED_VALUE,
2152: p_token1 => G_COL_NAME_TOKEN,
2146:
2147: IF l_subinv_code IS NULL THEN
2148: x_return_status := OKL_API.G_RET_STS_ERROR;
2149: -- source subinventory is required
2150: OKL_API.set_message( p_app_name => 'OKC',
2151: p_msg_name => G_REQUIRED_VALUE,
2152: p_token1 => G_COL_NAME_TOKEN,
2153: p_token1_value => 'SOURCE_SUBINVENTORY');
2154: RAISE okl_api.G_EXCEPTION_ERROR;
2150: OKL_API.set_message( p_app_name => 'OKC',
2151: p_msg_name => G_REQUIRED_VALUE,
2152: p_token1 => G_COL_NAME_TOKEN,
2153: p_token1_value => 'SOURCE_SUBINVENTORY');
2154: RAISE okl_api.G_EXCEPTION_ERROR;
2155: END IF;
2156: CLOSE l_mtlsystemitems_csr;
2157:
2158: -- Distribution Account ID can be NULL
2164: p_quantity => -(l_ordered_quantity),
2165: p_sysdate => l_sysdate,
2166: x_return_status => x_return_status);
2167:
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2165: p_sysdate => l_sysdate,
2166: x_return_status => x_return_status);
2167:
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173:
2166: x_return_status => x_return_status);
2167:
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173:
2174: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2167:
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173:
2174: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2175:
2172: END IF;
2173:
2174: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2175:
2176: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2177: EXCEPTION
2178: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2179:
2180: IF l_orderheaders_csr%ISOPEN THEN
2174: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2175:
2176: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2177: EXCEPTION
2178: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2179:
2180: IF l_orderheaders_csr%ISOPEN THEN
2181: CLOSE l_orderheaders_csr;
2182: END IF;
2185: END IF;
2186: IF l_mtlsystemitems_csr%ISOPEN THEN
2187: CLOSE l_mtlsystemitems_csr;
2188: END IF;
2189: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2190: (
2191: l_api_name,
2192: G_PKG_NAME,
2193: 'OKL_API.G_RET_STS_ERROR',
2189: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2190: (
2191: l_api_name,
2192: G_PKG_NAME,
2193: 'OKL_API.G_RET_STS_ERROR',
2194: x_msg_count,
2195: x_msg_data,
2196: '_PVT'
2197: );
2194: x_msg_count,
2195: x_msg_data,
2196: '_PVT'
2197: );
2198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2199: IF l_orderheaders_csr%ISOPEN THEN
2200: CLOSE l_orderheaders_csr;
2201: END IF;
2202: IF l_orderlines_csr%ISOPEN THEN
2204: END IF;
2205: IF l_mtlsystemitems_csr%ISOPEN THEN
2206: CLOSE l_mtlsystemitems_csr;
2207: END IF;
2208: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2209: (
2210: l_api_name,
2211: G_PKG_NAME,
2212: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2208: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2209: (
2210: l_api_name,
2211: G_PKG_NAME,
2212: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2213: x_msg_count,
2214: x_msg_data,
2215: '_PVT'
2216: );
2223: END IF;
2224: IF l_mtlsystemitems_csr%ISOPEN THEN
2225: CLOSE l_mtlsystemitems_csr;
2226: END IF;
2227: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2228: (
2229: l_api_name,
2230: G_PKG_NAME,
2231: 'OTHERS',