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:
780: 'p_quantity :'||p_quantity);
781:
782: END IF;
783:
784: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
785: G_PKG_NAME,
786: p_init_msg_list,
787: l_api_version,
788: p_api_version,
789: '_PVT',
790: x_return_status);
791:
792:
793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_ERROR;
797: END IF;
790: x_return_status);
791:
792:
793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_ERROR;
797: END IF;
798:
791:
792:
793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_ERROR;
797: END IF;
798:
799: SELECT SYSDATE INTO l_sysdate FROM DUAL;
792:
793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_ERROR;
797: END IF;
798:
799: SELECT SYSDATE INTO l_sysdate FROM DUAL;
800:
805: CLOSE l_mtlsystemitems_csr;
806:
807: IF l_item_cnt > 0 THEN
808: --Item number ITEM_NUMBER already exists in Inventory. Please enter another item number.
809: OKL_API.set_message( p_app_name => 'OKL',
810: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
811: p_token1 => 'ITEM_NUMBER',
812: p_token1_value => p_item_number);
813: x_return_status := OKL_API.G_RET_STS_ERROR;
809: OKL_API.set_message( p_app_name => 'OKL',
810: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
811: p_token1 => 'ITEM_NUMBER',
812: p_token1_value => p_item_number);
813: x_return_status := OKL_API.G_RET_STS_ERROR;
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
816: END IF;
817: -- SECHAWLA 18-OCT-04 3924244 : end
810: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
811: p_token1 => 'ITEM_NUMBER',
812: p_token1_value => p_item_number);
813: x_return_status := OKL_API.G_RET_STS_ERROR;
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
816: END IF;
817: -- SECHAWLA 18-OCT-04 3924244 : end
818:
815: END IF;
816: END IF;
817: -- SECHAWLA 18-OCT-04 3924244 : end
818:
819: IF p_item_price IS NULL OR p_item_price = OKL_API.G_MISS_NUM THEN
820: x_return_status := OKL_API.G_RET_STS_ERROR;
821: --Item Price is required
822: OKC_API.set_message( p_app_name => 'OKC',
823: p_msg_name => G_REQUIRED_VALUE,
816: END IF;
817: -- SECHAWLA 18-OCT-04 3924244 : end
818:
819: IF p_item_price IS NULL OR p_item_price = OKL_API.G_MISS_NUM THEN
820: x_return_status := OKL_API.G_RET_STS_ERROR;
821: --Item Price is required
822: OKC_API.set_message( p_app_name => 'OKC',
823: p_msg_name => G_REQUIRED_VALUE,
824: p_token1 => G_COL_NAME_TOKEN,
823: p_msg_name => G_REQUIRED_VALUE,
824: p_token1 => G_COL_NAME_TOKEN,
825: p_token1_value => 'ITEM_PRICE');
826:
827: RAISE okl_api.G_EXCEPTION_ERROR;
828: END IF;
829:
830: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
831: x_return_status := OKL_API.G_RET_STS_ERROR;
826:
827: RAISE okl_api.G_EXCEPTION_ERROR;
828: END IF;
829:
830: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
831: x_return_status := OKL_API.G_RET_STS_ERROR;
832: --Item Quantity is required
833: OKC_API.set_message( p_app_name => 'OKC',
834: p_msg_name => G_REQUIRED_VALUE,
827: RAISE okl_api.G_EXCEPTION_ERROR;
828: END IF;
829:
830: IF p_quantity IS NULL OR p_quantity = OKL_API.G_MISS_NUM THEN
831: x_return_status := OKL_API.G_RET_STS_ERROR;
832: --Item Quantity is required
833: OKC_API.set_message( p_app_name => 'OKC',
834: p_msg_name => G_REQUIRED_VALUE,
835: p_token1 => G_COL_NAME_TOKEN,
834: p_msg_name => G_REQUIRED_VALUE,
835: p_token1 => G_COL_NAME_TOKEN,
836: p_token1_value => 'ITEM_QUANTITY');
837:
838: RAISE okl_api.G_EXCEPTION_ERROR;
839: END IF;
840:
841: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
842: -- Check the remarketing flow setup
843: OPEN l_systemparamsall_csr;
844: FETCH l_systemparamsall_csr INTO l_inv_org_id, l_subinv_code, l_price_list_id,l_org_id; -- Added l_org_id for bug 10081463
845: IF l_systemparamsall_csr%NOTFOUND THEN
846: -- Remarketing options are not setup for this operating unit.
847: OKL_API.set_message(
848: p_app_name => 'OKL',
849: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
850: x_return_status := OKL_API.G_RET_STS_ERROR;
851: RAISE OKL_API.G_EXCEPTION_ERROR;
846: -- Remarketing options are not setup for this operating unit.
847: OKL_API.set_message(
848: p_app_name => 'OKL',
849: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
850: x_return_status := OKL_API.G_RET_STS_ERROR;
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
853: CLOSE l_systemparamsall_csr;
854:
847: OKL_API.set_message(
848: p_app_name => 'OKL',
849: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
850: x_return_status := OKL_API.G_RET_STS_ERROR;
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
853: CLOSE l_systemparamsall_csr;
854:
855:
854:
855:
856: IF l_inv_org_id IS NULL THEN
857: -- Remarketing Inventory Organization is not setup for this operating unit.
858: OKL_API.set_message(
859: p_app_name => 'OKL',
860: p_msg_name => 'OKL_AM_NO_REMK_ORG');
861: x_return_status := OKL_API.G_RET_STS_ERROR;
862: RAISE OKL_API.G_EXCEPTION_ERROR;
857: -- Remarketing Inventory Organization is not setup for this operating unit.
858: OKL_API.set_message(
859: p_app_name => 'OKL',
860: p_msg_name => 'OKL_AM_NO_REMK_ORG');
861: x_return_status := OKL_API.G_RET_STS_ERROR;
862: RAISE OKL_API.G_EXCEPTION_ERROR;
863: END IF;
864: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
865:
858: OKL_API.set_message(
859: p_app_name => 'OKL',
860: p_msg_name => 'OKL_AM_NO_REMK_ORG');
861: x_return_status := OKL_API.G_RET_STS_ERROR;
862: RAISE OKL_API.G_EXCEPTION_ERROR;
863: END IF;
864: -- SECHAWLA 05-OCT-04 3924244 : Migrated profiles to setups
865:
866:
896: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
897: p_profile_option_name => 'OKL_REMARKET_ITEMS_INV_ORG',
898: x_return_status => x_return_status);
899:
900: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
901: --Remarketing Inventory Organization profile is missing.
902: OKL_API.set_message( p_app_name => 'OKL',
903: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
904: );
898: x_return_status => x_return_status);
899:
900: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
901: --Remarketing Inventory Organization profile is missing.
902: OKL_API.set_message( p_app_name => 'OKL',
903: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
904: );
905: RAISE okl_api.G_EXCEPTION_ERROR;
906: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
901: --Remarketing Inventory Organization profile is missing.
902: OKL_API.set_message( p_app_name => 'OKL',
903: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
904: );
905: RAISE okl_api.G_EXCEPTION_ERROR;
906: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: END IF;
909: -- SECHAWLA Bug# 2679812 -- end new code
902: OKL_API.set_message( p_app_name => 'OKL',
903: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
904: );
905: RAISE okl_api.G_EXCEPTION_ERROR;
906: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: END IF;
909: -- SECHAWLA Bug# 2679812 -- end new code
910:
903: p_msg_name => 'OKL_AM_NO_INV_ORG_PROFILE'
904: );
905: RAISE okl_api.G_EXCEPTION_ERROR;
906: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: END IF;
909: -- SECHAWLA Bug# 2679812 -- end new code
910:
911: x_return_status := OKL_API.G_RET_STS_ERROR;
907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: END IF;
909: -- SECHAWLA Bug# 2679812 -- end new code
910:
911: x_return_status := OKL_API.G_RET_STS_ERROR;
912: --Profile value not defined
913: OKL_API.set_message( p_app_name => 'OKL',
914: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
915: p_token1 => 'PROFILE',
909: -- SECHAWLA Bug# 2679812 -- end new code
910:
911: x_return_status := OKL_API.G_RET_STS_ERROR;
912: --Profile value not defined
913: OKL_API.set_message( p_app_name => 'OKL',
914: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
915: p_token1 => 'PROFILE',
916: p_token1_value => l_user_profile_name -- modified to display user profile option name
917: );
914: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
915: p_token1 => 'PROFILE',
916: p_token1_value => l_user_profile_name -- modified to display user profile option name
917: );
918: RAISE okl_api.G_EXCEPTION_ERROR;
919: END IF;
920: */ -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
921:
922:
922:
923: OPEN l_mtlorgcsr(l_inv_org_id);
924: FETCH l_mtlorgcsr INTO l_temp_org_name;
925: IF l_mtlorgcsr%NOTFOUND THEN
926: x_return_status := OKL_API.G_RET_STS_ERROR;
927: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
928: --Profile is invalid.
929: OKL_API.set_message( p_app_name => 'OKL',
930: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
925: IF l_mtlorgcsr%NOTFOUND THEN
926: x_return_status := OKL_API.G_RET_STS_ERROR;
927: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
928: --Profile is invalid.
929: OKL_API.set_message( p_app_name => 'OKL',
930: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
931: p_token1 => 'PROFILE',
932: p_token1_value => 'OKL_REMARKET_ITEMS_INV_ORG'
933: );
938: p_msg_name => G_INVALID_VALUE,
939: p_token1 => G_COL_NAME_TOKEN,
940: p_token1_value => 'Remarketing Inventory Organization');
941:
942: RAISE okl_api.G_EXCEPTION_ERROR;
943: END IF;
944: CLOSE l_mtlorgcsr;
945:
946:
953: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
954: p_profile_option_name => 'OKL_REMARKET_SUBINVENTORY',
955: x_return_status => x_return_status);
956:
957: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
958: --Remarketing Subinventory profile is missing.
959: OKL_API.set_message( p_app_name => 'OKL',
960: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
961: );
955: x_return_status => x_return_status);
956:
957: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
958: --Remarketing Subinventory profile is missing.
959: OKL_API.set_message( p_app_name => 'OKL',
960: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
961: );
962: RAISE okl_api.G_EXCEPTION_ERROR;
963: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
958: --Remarketing Subinventory profile is missing.
959: OKL_API.set_message( p_app_name => 'OKL',
960: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
961: );
962: RAISE okl_api.G_EXCEPTION_ERROR;
963: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: END IF;
966: -- SECHAWLA Bug# 2679812 -- end new code
959: OKL_API.set_message( p_app_name => 'OKL',
960: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
961: );
962: RAISE okl_api.G_EXCEPTION_ERROR;
963: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: END IF;
966: -- SECHAWLA Bug# 2679812 -- end new code
967:
960: p_msg_name => 'OKL_AM_NO_SUBINV_PROFILE'
961: );
962: RAISE okl_api.G_EXCEPTION_ERROR;
963: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: END IF;
966: -- SECHAWLA Bug# 2679812 -- end new code
967:
968: x_return_status := OKL_API.G_RET_STS_ERROR;
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: END IF;
966: -- SECHAWLA Bug# 2679812 -- end new code
967:
968: x_return_status := OKL_API.G_RET_STS_ERROR;
969: --Profile value not defined
970: OKL_API.set_message( p_app_name => 'OKL',
971: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
972: p_token1 => 'PROFILE',
966: -- SECHAWLA Bug# 2679812 -- end new code
967:
968: x_return_status := OKL_API.G_RET_STS_ERROR;
969: --Profile value not defined
970: OKL_API.set_message( p_app_name => 'OKL',
971: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
972: p_token1 => 'PROFILE',
973: p_token1_value => l_user_profile_name -- modified to display user profile option
974: );
971: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
972: p_token1 => 'PROFILE',
973: p_token1_value => l_user_profile_name -- modified to display user profile option
974: );
975: RAISE okl_api.G_EXCEPTION_ERROR;
976: */
977:
978: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
979: -- Remarketing Subinventory is not setup for this operating unit.
976: */
977:
978: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
979: -- Remarketing Subinventory is not setup for this operating unit.
980: OKL_API.set_message(
981: p_app_name => 'OKL',
982: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE OKL_API.G_EXCEPTION_ERROR;
979: -- Remarketing Subinventory is not setup for this operating unit.
980: OKL_API.set_message(
981: p_app_name => 'OKL',
982: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE OKL_API.G_EXCEPTION_ERROR;
985:
986: END IF;
987:
980: OKL_API.set_message(
981: p_app_name => 'OKL',
982: p_msg_name => 'OKL_AM_NO_REMK_SUBINV');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE OKL_API.G_EXCEPTION_ERROR;
985:
986: END IF;
987:
988:
995: /* IF l_distribution_account_id IS NOT NULL THEN
996: OPEN l_glcodecomb_csr(l_distribution_account_id);
997: FETCH l_glcodecomb_csr INTO l_temp_ccid;
998: IF l_glcodecomb_csr%NOTFOUND THEN
999: x_return_status := OKL_API.G_RET_STS_ERROR;
1000: -- Profile is invalid.
1001: OKL_API.set_message( p_app_name => 'OKL',
1002: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
1003: p_token1 => 'PROFILE',
997: FETCH l_glcodecomb_csr INTO l_temp_ccid;
998: IF l_glcodecomb_csr%NOTFOUND THEN
999: x_return_status := OKL_API.G_RET_STS_ERROR;
1000: -- Profile is invalid.
1001: OKL_API.set_message( p_app_name => 'OKL',
1002: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
1003: p_token1 => 'PROFILE',
1004: p_token1_value => 'OKL_REMARKET_DISTRIBUTION_ACCOUNT'
1005: );
1002: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
1003: p_token1 => 'PROFILE',
1004: p_token1_value => 'OKL_REMARKET_DISTRIBUTION_ACCOUNT'
1005: );
1006: RAISE OKL_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: CLOSE l_glcodecomb_csr;
1009: END IF;
1010: */
1018: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
1019: p_profile_option_name => 'OKL_REMARKET_PRICE_LIST',
1020: x_return_status => x_return_status);
1021:
1022: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1023: --Remarketing Price List profile is missing.
1024: OKL_API.set_message( p_app_name => 'OKL',
1025: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1026: );
1020: x_return_status => x_return_status);
1021:
1022: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1023: --Remarketing Price List profile is missing.
1024: OKL_API.set_message( p_app_name => 'OKL',
1025: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1026: );
1027: RAISE okl_api.G_EXCEPTION_ERROR;
1028: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1023: --Remarketing Price List profile is missing.
1024: OKL_API.set_message( p_app_name => 'OKL',
1025: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1026: );
1027: RAISE okl_api.G_EXCEPTION_ERROR;
1028: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: END IF;
1031: -- SECHAWLA Bug# 2679812 -- end new code
1024: OKL_API.set_message( p_app_name => 'OKL',
1025: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1026: );
1027: RAISE okl_api.G_EXCEPTION_ERROR;
1028: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: END IF;
1031: -- SECHAWLA Bug# 2679812 -- end new code
1032:
1025: p_msg_name => 'OKL_AM_NO_PL_PROFILE'
1026: );
1027: RAISE okl_api.G_EXCEPTION_ERROR;
1028: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: END IF;
1031: -- SECHAWLA Bug# 2679812 -- end new code
1032:
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: END IF;
1031: -- SECHAWLA Bug# 2679812 -- end new code
1032:
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1034: -- Profile value not defined
1035: OKL_API.set_message( p_app_name => 'OKL',
1036: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1037: p_token1 => 'PROFILE',
1031: -- SECHAWLA Bug# 2679812 -- end new code
1032:
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1034: -- Profile value not defined
1035: OKL_API.set_message( p_app_name => 'OKL',
1036: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1037: p_token1 => 'PROFILE',
1038: p_token1_value => l_user_profile_name -- modified to display user profile option
1039: );
1036: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1037: p_token1 => 'PROFILE',
1038: p_token1_value => l_user_profile_name -- modified to display user profile option
1039: );
1040: RAISE OKL_API.G_EXCEPTION_ERROR;
1041: */
1042: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1043:
1044: -- Remarketing Price List is not setup for this operating unit.
1041: */
1042: -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1043:
1044: -- Remarketing Price List is not setup for this operating unit.
1045: OKL_API.set_message(
1046: p_app_name => 'OKL',
1047: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1048: x_return_status := OKL_API.G_RET_STS_ERROR;
1049: RAISE OKL_API.G_EXCEPTION_ERROR;
1044: -- Remarketing Price List is not setup for this operating unit.
1045: OKL_API.set_message(
1046: p_app_name => 'OKL',
1047: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1048: x_return_status := OKL_API.G_RET_STS_ERROR;
1049: RAISE OKL_API.G_EXCEPTION_ERROR;
1050: END IF;
1051:
1052:
1045: OKL_API.set_message(
1046: p_app_name => 'OKL',
1047: p_msg_name => 'OKL_AM_NO_REMK_PRICE_LIST');
1048: x_return_status := OKL_API.G_RET_STS_ERROR;
1049: RAISE OKL_API.G_EXCEPTION_ERROR;
1050: END IF;
1051:
1052:
1053: OPEN l_qplisthdr_csr(l_price_list_id);
1052:
1053: OPEN l_qplisthdr_csr(l_price_list_id);
1054: FETCH l_qplisthdr_csr INTO l_pricelist_name; -- SECHAWLA 08-DEC-04 4047159
1055: IF l_qplisthdr_csr%NOTFOUND THEN
1056: x_return_status := OKL_API.G_RET_STS_ERROR;
1057:
1058: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1059: -- Profile is invalid.
1060: OKL_API.set_message( p_app_name => 'OKL',
1056: x_return_status := OKL_API.G_RET_STS_ERROR;
1057:
1058: /* -- SECHAWLA 05-OCT-04 3924244 : Migrated remarketing profiles to setups
1059: -- Profile is invalid.
1060: OKL_API.set_message( p_app_name => 'OKL',
1061: p_msg_name => 'OKL_AM_RMK_INVALID_PROFILE',
1062: p_token1 => 'PROFILE',
1063: p_token1_value => 'OKL_REMARKET_PRICE_LIST'
1064: */
1067: OKC_API.set_message( p_app_name => 'OKC',
1068: p_msg_name => G_INVALID_VALUE,
1069: p_token1 => G_COL_NAME_TOKEN,
1070: p_token1_value => 'Remarketing Price List');
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1073: CLOSE l_qplisthdr_csr;
1074:
1075: IF l_default_order_type_id IS NULL THEN
1084: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item.',
1085: 'l_user_profile_name status'||x_return_status);
1086: END IF;
1087:
1088: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1089: --Remarketing Order Type profile is missing.
1090: OKL_API.set_message( p_app_name => 'OKL',
1091: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1092: );
1086: END IF;
1087:
1088: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1089: --Remarketing Order Type profile is missing.
1090: OKL_API.set_message( p_app_name => 'OKL',
1091: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1092: );
1093: RAISE okl_api.G_EXCEPTION_ERROR;
1094: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1089: --Remarketing Order Type profile is missing.
1090: OKL_API.set_message( p_app_name => 'OKL',
1091: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1092: );
1093: RAISE okl_api.G_EXCEPTION_ERROR;
1094: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: END IF;
1097: -- SECHAWLA Bug# 2679812 -- end new code
1090: OKL_API.set_message( p_app_name => 'OKL',
1091: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1092: );
1093: RAISE okl_api.G_EXCEPTION_ERROR;
1094: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: END IF;
1097: -- SECHAWLA Bug# 2679812 -- end new code
1098:
1091: p_msg_name => 'OKL_AM_NO_ORDER_TYPE_PROFILE'
1092: );
1093: RAISE okl_api.G_EXCEPTION_ERROR;
1094: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: END IF;
1097: -- SECHAWLA Bug# 2679812 -- end new code
1098:
1099: x_return_status := OKL_API.G_RET_STS_ERROR;
1095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: END IF;
1097: -- SECHAWLA Bug# 2679812 -- end new code
1098:
1099: x_return_status := OKL_API.G_RET_STS_ERROR;
1100: -- Profile value not defined
1101: OKL_API.set_message( p_app_name => 'OKL',
1102: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1103: p_token1 => 'PROFILE',
1097: -- SECHAWLA Bug# 2679812 -- end new code
1098:
1099: x_return_status := OKL_API.G_RET_STS_ERROR;
1100: -- Profile value not defined
1101: OKL_API.set_message( p_app_name => 'OKL',
1102: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1103: p_token1 => 'PROFILE',
1104: p_token1_value => l_user_profile_name -- modified to display user profile option
1105: );
1102: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1103: p_token1 => 'PROFILE',
1104: p_token1_value => l_user_profile_name -- modified to display user profile option
1105: );
1106: RAISE OKL_API.G_EXCEPTION_ERROR;
1107: END IF;
1108:
1109: -- get the warehouse and the Line Type for the Default Order Type
1110: OPEN l_oetranstypesall_csr(l_default_order_type_id);
1127: END IF;
1128:
1129:
1130: IF l_order_warehouse_id IS NULL THEN
1131: x_return_status := OKL_API.G_RET_STS_ERROR;
1132: -- Warehouse not defined for this Order Type
1133: OKL_API.set_message( p_app_name => 'OKL',
1134: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1135: p_token1 => 'TYPE',
1129:
1130: IF l_order_warehouse_id IS NULL THEN
1131: x_return_status := OKL_API.G_RET_STS_ERROR;
1132: -- Warehouse not defined for this Order Type
1133: OKL_API.set_message( p_app_name => 'OKL',
1134: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1135: p_token1 => 'TYPE',
1136: p_token1_value => 'ORDER',
1137: p_token2 => 'NAME',
1136: p_token1_value => 'ORDER',
1137: p_token2 => 'NAME',
1138: p_token2_value => l_order_name
1139: );
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1143: IF l_def_outbound_line_type_id IS NULL THEN
1144: x_return_status := OKL_API.G_RET_STS_ERROR;
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1143: IF l_def_outbound_line_type_id IS NULL THEN
1144: x_return_status := OKL_API.G_RET_STS_ERROR;
1145: -- Line Type not defined for this Order Type
1146: OKL_API.set_message( p_app_name => 'OKL',
1147: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1148: p_token1 => 'ORDER_TYPE',
1142:
1143: IF l_def_outbound_line_type_id IS NULL THEN
1144: x_return_status := OKL_API.G_RET_STS_ERROR;
1145: -- Line Type not defined for this Order Type
1146: OKL_API.set_message( p_app_name => 'OKL',
1147: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1148: p_token1 => 'ORDER_TYPE',
1149: p_token1_value => l_order_name
1150: );
1147: p_msg_name => 'OKL_AM_RMK_NO_LINE_TYPE',
1148: p_token1 => 'ORDER_TYPE',
1149: p_token1_value => l_order_name
1150: );
1151: RAISE OKL_API.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: -- get the warehouse for the Line type corresponding to the Default Order Type
1155: OPEN l_oetranstypesall_csr(l_def_outbound_line_type_id);
1167: 'l_line_warehouse_id'||l_line_warehouse_id);
1168: END IF;
1169:
1170: IF l_line_warehouse_id IS NULL THEN
1171: x_return_status := OKL_API.G_RET_STS_ERROR;
1172: -- Warehouse not defined for this Line Type
1173: OKL_API.set_message( p_app_name => 'OKL',
1174: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1175: p_token1 => 'TYPE',
1169:
1170: IF l_line_warehouse_id IS NULL THEN
1171: x_return_status := OKL_API.G_RET_STS_ERROR;
1172: -- Warehouse not defined for this Line Type
1173: OKL_API.set_message( p_app_name => 'OKL',
1174: p_msg_name => 'OKL_AM_RMK_NO_WAREHOUSE',
1175: p_token1 => 'TYPE',
1176: p_token1_value => 'LINE',
1177: p_token2 => 'NAME',
1176: p_token1_value => 'LINE',
1177: p_token2 => 'NAME',
1178: p_token2_value => l_line_name
1179: );
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1184: x_return_status := OKL_API.G_RET_STS_ERROR;
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1184: x_return_status := OKL_API.G_RET_STS_ERROR;
1185: -- Warehouses for the Order Type ORDER_TYPE and Line Type LINE_TYPE do not match.
1186: OKL_API.set_message( p_app_name => 'OKL',
1187: p_msg_name => 'OKL_AM_RMK_WHS_MISMATCH',
1188: p_token1 => 'ORDER_TYPE',
1182:
1183: IF l_order_warehouse_id <> l_line_warehouse_id THEN
1184: x_return_status := OKL_API.G_RET_STS_ERROR;
1185: -- Warehouses for the Order Type ORDER_TYPE and Line Type LINE_TYPE do not match.
1186: OKL_API.set_message( p_app_name => 'OKL',
1187: p_msg_name => 'OKL_AM_RMK_WHS_MISMATCH',
1188: p_token1 => 'ORDER_TYPE',
1189: p_token1_value => l_order_name,
1190: p_token2 => 'LINE_TYPE',
1189: p_token1_value => l_order_name,
1190: p_token2 => 'LINE_TYPE',
1191: p_token2_value => l_line_name
1192: );
1193: RAISE OKL_API.G_EXCEPTION_ERROR;
1194: END IF;
1195:
1196: IF l_inv_org_id <> l_order_warehouse_id THEN
1197: x_return_status := OKL_API.G_RET_STS_ERROR;
1193: RAISE OKL_API.G_EXCEPTION_ERROR;
1194: END IF;
1195:
1196: IF l_inv_org_id <> l_order_warehouse_id THEN
1197: x_return_status := OKL_API.G_RET_STS_ERROR;
1198: -- Shipping organization should be the same as the inventory item organization.
1199: OKL_API.set_message( p_app_name => 'OKL',
1200: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1201: );
1195:
1196: IF l_inv_org_id <> l_order_warehouse_id THEN
1197: x_return_status := OKL_API.G_RET_STS_ERROR;
1198: -- Shipping organization should be the same as the inventory item organization.
1199: OKL_API.set_message( p_app_name => 'OKL',
1200: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1201: );
1202: RAISE OKL_API.G_EXCEPTION_ERROR;
1203: END IF;
1198: -- Shipping organization should be the same as the inventory item organization.
1199: OKL_API.set_message( p_app_name => 'OKL',
1200: p_msg_name => 'OKL_AM_RMK_INVALID_WHS'
1201: );
1202: RAISE OKL_API.G_EXCEPTION_ERROR;
1203: END IF;
1204:
1205:
1206: --SECHAWLA Bug# 2679812 : Added/modified the following code to first create the item in the master org and then
1212:
1213: -- SECAHWLA 08-MAR-04 3492490 : Added master org name
1214: FETCH l_mtlparam_csr INTO l_master_org_id, l_master_org_name;
1215: IF l_mtlparam_csr%NOTFOUND THEN
1216: x_return_status := OKL_API.G_RET_STS_ERROR;
1217: -- Inventory organization is not set up in MTL Parameters.
1218: OKL_API.set_message( p_app_name => 'OKL',
1219: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1220: );
1214: FETCH l_mtlparam_csr INTO l_master_org_id, l_master_org_name;
1215: IF l_mtlparam_csr%NOTFOUND THEN
1216: x_return_status := OKL_API.G_RET_STS_ERROR;
1217: -- Inventory organization is not set up in MTL Parameters.
1218: OKL_API.set_message( p_app_name => 'OKL',
1219: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1220: );
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1217: -- Inventory organization is not set up in MTL Parameters.
1218: OKL_API.set_message( p_app_name => 'OKL',
1219: p_msg_name => 'OKL_AM_NO_ORG_PARAM'
1220: );
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: IF l_master_org_id IS NULL THEN
1224: x_return_status := OKL_API.G_RET_STS_ERROR;
1225: -- Master organization is not defined for inventory organization.
1220: );
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: IF l_master_org_id IS NULL THEN
1224: x_return_status := OKL_API.G_RET_STS_ERROR;
1225: -- Master organization is not defined for inventory organization.
1226: OKL_API.set_message( p_app_name => 'OKL',
1227: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1228: );
1222: END IF;
1223: IF l_master_org_id IS NULL THEN
1224: x_return_status := OKL_API.G_RET_STS_ERROR;
1225: -- Master organization is not defined for inventory organization.
1226: OKL_API.set_message( p_app_name => 'OKL',
1227: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1228: );
1229: RAISE OKL_API.G_EXCEPTION_ERROR;
1230: END IF;
1225: -- Master organization is not defined for inventory organization.
1226: OKL_API.set_message( p_app_name => 'OKL',
1227: p_msg_name => 'OKL_AM_NO_MASTER_ORG'
1228: );
1229: RAISE OKL_API.G_EXCEPTION_ERROR;
1230: END IF;
1231: CLOSE l_mtlparam_csr;
1232:
1233: -- SECHAWLA Bug# 2679812 :
1276:
1277: OPEN l_mtlsecinv_csr(l_current_org , l_subinv_code );
1278: FETCH l_mtlsecinv_csr INTO l_temp;
1279: IF l_mtlsecinv_csr%NOTFOUND THEN
1280: --x_return_status := OKL_API.G_RET_STS_ERROR;
1281:
1282: IF (l_inv_org_id <> l_master_org_id AND i = 1 )THEN
1283: /* SECHAWLA 19-MAY-04 3634514 : Commented out
1284: --Subinventory SUBINVENTORY is not defined for the organization MASTER_ORG, which is the Master organization of the Remarketing Inventory organization CHILD_ORG.
1281:
1282: IF (l_inv_org_id <> l_master_org_id AND i = 1 )THEN
1283: /* SECHAWLA 19-MAY-04 3634514 : Commented out
1284: --Subinventory SUBINVENTORY is not defined for the organization MASTER_ORG, which is the Master organization of the Remarketing Inventory organization CHILD_ORG.
1285: OKL_API.set_message(p_app_name => 'OKL',
1286: p_msg_name => 'OKL_AM_RMK_MST_ORG_SUBINV',
1287: p_token1 => 'SUBINVENTORY',
1288: p_token1_value => l_subinv_code,
1289: p_token2 => 'MASTER_ORG',
1298: END IF;
1299:
1300: NULL;
1301: ELSE
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: --Subinventory SUBINVENTORY is invalid for the organization ORGANIZATION.
1304: OKL_API.set_message(p_app_name => 'OKL',
1305: p_msg_name => 'OKL_AM_RMK_ORG_SUBINV',
1306: p_token1 => 'SUBINVENTORY',
1300: NULL;
1301: ELSE
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: --Subinventory SUBINVENTORY is invalid for the organization ORGANIZATION.
1304: OKL_API.set_message(p_app_name => 'OKL',
1305: p_msg_name => 'OKL_AM_RMK_ORG_SUBINV',
1306: p_token1 => 'SUBINVENTORY',
1307: p_token1_value => l_subinv_code,
1308: p_token2 => 'ORGANIZATION',
1306: p_token1 => 'SUBINVENTORY',
1307: p_token1_value => l_subinv_code,
1308: p_token2 => 'ORGANIZATION',
1309: p_token2_value => l_temp_org_name);
1310: RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Added
1311: END IF;
1312:
1313: --RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Commented out
1314: END IF;
1309: p_token2_value => l_temp_org_name);
1310: RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Added
1311: END IF;
1312:
1313: --RAISE OKL_API.G_EXCEPTION_ERROR; --SECHAWLA 19-MAY-04 3634514 : Commented out
1314: END IF;
1315: CLOSE l_mtlsecinv_csr;
1316:
1317:
1356: 'after create_inv_item call'||x_return_status);
1357:
1358: END IF;
1359:
1360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_ERROR;
1364: END IF;
1357:
1358: END IF;
1359:
1360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1358: END IF;
1359:
1360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1366:
1359:
1360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1366:
1367:
1392: 'after Create_Inv_Misc_Receipt_Txn call'||x_return_status);
1393:
1394: END IF;
1395:
1396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1393:
1394: END IF;
1395:
1396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1394: END IF;
1395:
1396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: END IF;
1395:
1396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: END IF;
1403:
1422: 'after Create_Item_In_Price_List'||x_return_status);
1423:
1424: END IF;
1425:
1426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1429: RAISE OKL_API.G_EXCEPTION_ERROR;
1430: END IF;
1423:
1424: END IF;
1425:
1426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1429: RAISE OKL_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: END IF;
1424: END IF;
1425:
1426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1429: RAISE OKL_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: END IF;
1432:
1425:
1426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1429: RAISE OKL_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: END IF;
1432:
1433: END LOOP;
1446: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1447: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ','End(-)');
1448: END IF;
1449:
1450: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1451:
1452: EXCEPTION
1453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1454: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1449:
1450: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1451:
1452: EXCEPTION
1453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1454: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1455: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1456: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1457: END IF;
1452: EXCEPTION
1453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1454: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1455: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1456: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1457: END IF;
1458:
1459: IF l_mtlsystemitems_csr%ISOPEN THEN
1460: CLOSE l_mtlsystemitems_csr;
1494: CLOSE l_systemparamsall_csr;
1495: END IF;
1496:
1497:
1498: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKL_API.G_RET_STS_ERROR',
1498: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKL_API.G_RET_STS_ERROR',
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT'
1506: );
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT'
1506: );
1507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1508: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1509: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1510: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1511: END IF;
1506: );
1507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1508: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1509: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_AM_REMARKET_ASSET_PVT.create_rmk_item ',
1510: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1511: END IF;
1512:
1513: IF l_mtlsystemitems_csr%ISOPEN THEN
1514: CLOSE l_mtlsystemitems_csr;
1546: -- SECHAWLA 05-OCT-04 3924244 : close new cursor
1547: IF l_systemparamsall_csr%ISOPEN THEN
1548: CLOSE l_systemparamsall_csr;
1549: END IF;
1550: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1550: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1555: x_msg_count,
1556: x_msg_data,
1557: '_PVT'
1558: );
1599: -- SECHAWLA 05-OCT-04 3924244 : close new cursor
1600: IF l_systemparamsall_csr%ISOPEN THEN
1601: CLOSE l_systemparamsall_csr;
1602: END IF;
1603: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1604: (
1605: l_api_name,
1606: G_PKG_NAME,
1607: 'OTHERS',
1670: , x_Error_tbl => x_Error_tbl
1671: );
1672:
1673:
1674: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
1675: -- Display the error messages from the x_error_tbl table
1676: FOR i IN 1 .. x_Error_tbl.COUNT LOOP
1677: -- Error : Transaction Id = TRX_ID
1678: OKL_API.set_message( p_app_name => 'OKL',
1674: IF ( x_return_status <> okl_api.G_RET_STS_SUCCESS ) THEN
1675: -- Display the error messages from the x_error_tbl table
1676: FOR i IN 1 .. x_Error_tbl.COUNT LOOP
1677: -- Error : Transaction Id = TRX_ID
1678: OKL_API.set_message( p_app_name => 'OKL',
1679: p_msg_name => 'OKL_AM_RMK_TRANS_ID',
1680: p_token1 => 'TRX_ID',
1681: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
1682: );
1680: p_token1 => 'TRX_ID',
1681: p_token1_value => x_Error_tbl(i).TRANSACTION_ID
1682: );
1683: -- Error : Unique Id = UNIQUE_ID
1684: OKL_API.set_message( p_app_name => 'OKL',
1685: p_msg_name => 'OKL_AM_RMK_UNIQUE_ID',
1686: p_token1 => 'UNIQUE_ID',
1687: p_token1_value => x_Error_tbl(i).UNIQUE_ID
1688: );
1686: p_token1 => 'UNIQUE_ID',
1687: p_token1_value => x_Error_tbl(i).UNIQUE_ID
1688: );
1689: -- Error : Table Name = TABLE_NAME
1690: OKL_API.set_message( p_app_name => 'OKL',
1691: p_msg_name => 'OKL_AM_RMK_TABLE_NAME',
1692: p_token1 => 'TABLE_NAME',
1693: p_token1_value => x_Error_tbl(i).TABLE_NAME
1694: );
1692: p_token1 => 'TABLE_NAME',
1693: p_token1_value => x_Error_tbl(i).TABLE_NAME
1694: );
1695: -- Error : Column Name = COLUMN_NAME
1696: OKL_API.set_message( p_app_name => 'OKL',
1697: p_msg_name => 'OKL_AM_RMK_COLUMN_NAME',
1698: p_token1 => 'COLUMN_NAME',
1699: p_token1_value => x_Error_tbl(i).COLUMN_NAME
1700: );
1698: p_token1 => 'COLUMN_NAME',
1699: p_token1_value => x_Error_tbl(i).COLUMN_NAME
1700: );
1701: -- Error : Message Name = MSG_NAME
1702: OKL_API.set_message( p_app_name => 'OKL',
1703: p_msg_name => 'OKL_AM_RMK_MSG_NAME',
1704: p_token1 => 'MSG_NAME',
1705: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
1706: );
1704: p_token1 => 'MSG_NAME',
1705: p_token1_value => x_Error_tbl(i).MESSAGE_NAME
1706: );
1707: -- Error : Message Text = MSG_TEXT
1708: OKL_API.set_message( p_app_name => 'OKL',
1709: p_msg_name => 'OKL_AM_RMK_MSG_TEXT',
1710: p_token1 => 'MSG_TEXT',
1711: p_token1_value => x_Error_tbl(i).MESSAGE_TEXT
1712: );
1714: END LOOP;
1715: END IF;
1716: EXCEPTION
1717: WHEN OTHERS THEN
1718: OKL_API.set_message(p_app_name => 'OKC',
1719: p_msg_name => g_unexpected_error,
1720: p_token1 => g_sqlcode_token,
1721: p_token1_value => sqlcode,
1722: p_token2 => g_sqlerrm_token,
1720: p_token1 => g_sqlcode_token,
1721: p_token1_value => sqlcode,
1722: p_token2 => g_sqlerrm_token,
1723: p_token2_value => sqlerrm);
1724: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1725: END remove_inv_item;
1726:
1727:
1728: -- Start of comments
1789:
1790:
1791: QP_PRICE_LIST_PUB.Process_Price_List
1792: ( p_api_version_number => 1
1793: , p_init_msg_list => okl_api.G_FALSE
1794: , p_return_values => okl_api.G_FALSE
1795: , p_commit => okl_api.G_FALSE
1796: , x_return_status => x_return_status
1797: , x_msg_count => l_msg_count
1790:
1791: QP_PRICE_LIST_PUB.Process_Price_List
1792: ( p_api_version_number => 1
1793: , p_init_msg_list => okl_api.G_FALSE
1794: , p_return_values => okl_api.G_FALSE
1795: , p_commit => okl_api.G_FALSE
1796: , x_return_status => x_return_status
1797: , x_msg_count => l_msg_count
1798: , x_msg_data => l_msg_data
1791: QP_PRICE_LIST_PUB.Process_Price_List
1792: ( p_api_version_number => 1
1793: , p_init_msg_list => okl_api.G_FALSE
1794: , p_return_values => okl_api.G_FALSE
1795: , p_commit => okl_api.G_FALSE
1796: , x_return_status => x_return_status
1797: , x_msg_count => l_msg_count
1798: , x_msg_data => l_msg_data
1799: , p_PRICE_LIST_rec => gpr_price_list_rec
1810: );
1811: END LOOP;
1812: EXCEPTION
1813: WHEN OTHERS THEN
1814: OKL_API.set_message(p_app_name => 'OKC',
1815: p_msg_name => g_unexpected_error,
1816: p_token1 => g_sqlcode_token,
1817: p_token1_value => sqlcode,
1818: p_token2 => g_sqlerrm_token,
1816: p_token1 => g_sqlcode_token,
1817: p_token1_value => sqlcode,
1818: p_token2 => g_sqlerrm_token,
1819: p_token2_value => sqlerrm);
1820: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1821: END remove_item_from_price_list;
1822: */
1823:
1824:
1899: -- use the Org from the profile to delete (disable) an inventory item, as the pofile may change between the time of
1900: -- creation and deletion of inventory item. An item may belong to more than one org So Org Id is required to
1901: -- disable an inventory item.
1902:
1903: IF p_item_id IS NULL OR p_item_id = OKL_API.G_MISS_NUM THEN
1904: x_return_status := OKL_API.G_RET_STS_ERROR;
1905: -- Item Id is required
1906: OKC_API.set_message( p_app_name => 'OKC',
1907: p_msg_name => G_REQUIRED_VALUE,
1900: -- creation and deletion of inventory item. An item may belong to more than one org So Org Id is required to
1901: -- disable an inventory item.
1902:
1903: IF p_item_id IS NULL OR p_item_id = OKL_API.G_MISS_NUM THEN
1904: x_return_status := OKL_API.G_RET_STS_ERROR;
1905: -- Item Id is required
1906: OKC_API.set_message( p_app_name => 'OKC',
1907: p_msg_name => G_REQUIRED_VALUE,
1908: p_token1 => G_COL_NAME_TOKEN,
1909: p_token1_value => 'ITEM_ID');
1910: RAISE okc_api.G_EXCEPTION_ERROR;
1911: END IF;
1912:
1913: IF p_org_id IS NULL OR p_org_id = OKL_API.G_MISS_NUM THEN
1914: x_return_status := OKL_API.G_RET_STS_ERROR;
1915: -- Organization Id is required
1916: OKC_API.set_message( p_app_name => 'OKC',
1917: p_msg_name => G_REQUIRED_VALUE,
1910: RAISE okc_api.G_EXCEPTION_ERROR;
1911: END IF;
1912:
1913: IF p_org_id IS NULL OR p_org_id = OKL_API.G_MISS_NUM THEN
1914: x_return_status := OKL_API.G_RET_STS_ERROR;
1915: -- Organization Id is required
1916: OKC_API.set_message( p_app_name => 'OKC',
1917: p_msg_name => G_REQUIRED_VALUE,
1918: p_token1 => G_COL_NAME_TOKEN,
1922:
1923: OPEN l_mtlsysitems_csr(p_item_id,p_org_id);
1924: FETCH l_mtlsysitems_csr INTO l_temp;
1925: IF l_mtlsysitems_csr%NOTFOUND THEN
1926: x_return_status := OKL_API.G_RET_STS_ERROR;
1927: -- No active Item exists for this combination of Item and Organization
1928: OKL_API.set_message( p_app_name => 'OKL',
1929: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1930:
1924: FETCH l_mtlsysitems_csr INTO l_temp;
1925: IF l_mtlsysitems_csr%NOTFOUND THEN
1926: x_return_status := OKL_API.G_RET_STS_ERROR;
1927: -- No active Item exists for this combination of Item and Organization
1928: OKL_API.set_message( p_app_name => 'OKL',
1929: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1930:
1931: );
1932: RAISE OKL_API.G_EXCEPTION_ERROR;
1928: OKL_API.set_message( p_app_name => 'OKL',
1929: p_msg_name => 'OKL_AM_RMK_INVALID_ITEM_ORG'
1930:
1931: );
1932: RAISE OKL_API.G_EXCEPTION_ERROR;
1933: END IF;
1934: CLOSE l_mtlsysitems_csr;
1935:
1936: -- Disable the Inventory Item
1938: p_org_id => p_org_id,
1939: p_sysdate => l_sysdate,
1940: x_return_status => x_return_status);
1941:
1942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: END IF;
1939: p_sysdate => l_sysdate,
1940: x_return_status => x_return_status);
1941:
1942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: END IF;
1947:
1940: x_return_status => x_return_status);
1941:
1942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: END IF;
1947:
1948:
1941:
1942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: END IF;
1947:
1948:
1949: -- Disable the Price Lists corresponding to the Inventory Item
1950: remove_item_from_price_list(p_item_id => p_item_id,
1951: p_sysdate => l_sysdate,
1952: x_return_status => x_return_status);
1953:
1954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1957: RAISE OKL_API.G_EXCEPTION_ERROR;
1958: END IF;
1951: p_sysdate => l_sysdate,
1952: x_return_status => x_return_status);
1953:
1954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1957: RAISE OKL_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: */
1952: x_return_status => x_return_status);
1953:
1954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1957: RAISE OKL_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: */
1960:
1953:
1954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1957: RAISE OKL_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: */
1960:
1961: EXCEPTION
1962: WHEN OTHERS THEN
1963: -- unexpected error
1964:
1965: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
1966: OKL_API.set_message(p_app_name => 'OKC',
1967: p_msg_name => g_unexpected_error,
1968: p_token1 => g_sqlcode_token,
1969: p_token1_value => sqlcode,
1970: p_token2 => g_sqlerrm_token,
1968: p_token1 => g_sqlcode_token,
1969: p_token1_value => sqlcode,
1970: p_token2 => g_sqlerrm_token,
1971: p_token2_value => sqlerrm);
1972: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1973:
1974:
1975: END remove_item;
1976:
2055: l_ship_from_org_id NUMBER;
2056:
2057: BEGIN
2058:
2059: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2060: G_PKG_NAME,
2061: p_init_msg_list,
2062: l_api_version,
2063: p_api_version,
2064: '_PVT',
2065: x_return_status);
2066:
2067:
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2065: x_return_status);
2066:
2067:
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073:
2066:
2067:
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073:
2074: SELECT SYSDATE INTO l_sysdate FROM dual;
2067:
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073:
2074: SELECT SYSDATE INTO l_sysdate FROM dual;
2075:
2073:
2074: SELECT SYSDATE INTO l_sysdate FROM dual;
2075:
2076: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2077: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2078: x_return_status := OKL_API.G_RET_STS_ERROR;
2079: -- Order Line ID is required
2080: OKL_API.set_message( p_app_name => 'OKC',
2081: p_msg_name => G_REQUIRED_VALUE,
2074: SELECT SYSDATE INTO l_sysdate FROM dual;
2075:
2076: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2077: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2078: x_return_status := OKL_API.G_RET_STS_ERROR;
2079: -- Order Line ID is required
2080: OKL_API.set_message( p_app_name => 'OKC',
2081: p_msg_name => G_REQUIRED_VALUE,
2082: p_token1 => G_COL_NAME_TOKEN,
2076: -- SECHAWLA 21-OCT-04 3924244 : changed header id to line id
2077: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
2078: x_return_status := OKL_API.G_RET_STS_ERROR;
2079: -- Order Line ID is required
2080: OKL_API.set_message( p_app_name => 'OKC',
2081: p_msg_name => G_REQUIRED_VALUE,
2082: p_token1 => G_COL_NAME_TOKEN,
2083: p_token1_value => 'ORDER_LINE_ID');
2084: RAISE okl_api.G_EXCEPTION_ERROR;
2080: OKL_API.set_message( p_app_name => 'OKC',
2081: p_msg_name => G_REQUIRED_VALUE,
2082: p_token1 => G_COL_NAME_TOKEN,
2083: p_token1_value => 'ORDER_LINE_ID');
2084: RAISE okl_api.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2087: /*-- SECHAWLA 21-OCT-04 3924244
2088: OPEN l_orderheaders_csr(p_order_header_Id);
2087: /*-- SECHAWLA 21-OCT-04 3924244
2088: OPEN l_orderheaders_csr(p_order_header_Id);
2089: FETCH l_orderheaders_csr INTO l_order_number;
2090: IF l_orderheaders_csr%NOTFOUND THEN
2091: x_return_status := OKL_API.G_RET_STS_ERROR;
2092: -- Order Header ID is invalid
2093: OKL_API.set_message( p_app_name => 'OKC',
2094: p_msg_name => G_INVALID_VALUE,
2095: p_token1 => G_COL_NAME_TOKEN,
2089: FETCH l_orderheaders_csr INTO l_order_number;
2090: IF l_orderheaders_csr%NOTFOUND THEN
2091: x_return_status := OKL_API.G_RET_STS_ERROR;
2092: -- Order Header ID is invalid
2093: OKL_API.set_message( p_app_name => 'OKC',
2094: p_msg_name => G_INVALID_VALUE,
2095: p_token1 => G_COL_NAME_TOKEN,
2096: p_token1_value => 'ORDER_HEADER_ID');
2097: RAISE okl_api.G_EXCEPTION_ERROR;
2093: OKL_API.set_message( p_app_name => 'OKC',
2094: p_msg_name => G_INVALID_VALUE,
2095: p_token1 => G_COL_NAME_TOKEN,
2096: p_token1_value => 'ORDER_HEADER_ID');
2097: RAISE okl_api.G_EXCEPTION_ERROR;
2098: END IF;
2099: CLOSE l_orderheaders_csr;
2100: */
2101:
2102: -- SECHAWLA 21-OCT-04 3924244 : added
2103: OPEN l_orderlines_csr(p_order_line_Id);
2104: FETCH l_orderlines_csr INTO l_header_id, l_inventory_item_id, l_ordered_quantity, l_ship_from_org_id;
2105: IF l_orderlines_csr%NOTFOUND THEN
2106: x_return_status := OKL_API.G_RET_STS_ERROR;
2107: -- Order Line ID is invalid
2108: OKL_API.set_message( p_app_name => 'OKC',
2109: p_msg_name => G_INVALID_VALUE,
2110: p_token1 => G_COL_NAME_TOKEN,
2104: FETCH l_orderlines_csr INTO l_header_id, l_inventory_item_id, l_ordered_quantity, l_ship_from_org_id;
2105: IF l_orderlines_csr%NOTFOUND THEN
2106: x_return_status := OKL_API.G_RET_STS_ERROR;
2107: -- Order Line ID is invalid
2108: OKL_API.set_message( p_app_name => 'OKC',
2109: p_msg_name => G_INVALID_VALUE,
2110: p_token1 => G_COL_NAME_TOKEN,
2111: p_token1_value => 'ORDER_LINE_ID');
2112: RAISE okl_api.G_EXCEPTION_ERROR;
2108: OKL_API.set_message( p_app_name => 'OKC',
2109: p_msg_name => G_INVALID_VALUE,
2110: p_token1 => G_COL_NAME_TOKEN,
2111: p_token1_value => 'ORDER_LINE_ID');
2112: RAISE okl_api.G_EXCEPTION_ERROR;
2113: END IF;
2114: CLOSE l_orderlines_csr;
2115:
2116: OPEN l_orderheaders_csr(l_header_id);
2122: -- SECHAWLA 21-OCT-04 3924244 : commented out the loop
2123: --FOR l_orderlines_rec IN l_orderlines_csr(p_order_header_id) LOOP
2124:
2125: IF l_ship_from_org_id IS NULL THEN
2126: x_return_status := OKL_API.G_RET_STS_ERROR;
2127: -- Ship From Org ID is required
2128: OKL_API.set_message( p_app_name => 'OKC',
2129: p_msg_name => G_REQUIRED_VALUE,
2130: p_token1 => G_COL_NAME_TOKEN,
2124:
2125: IF l_ship_from_org_id IS NULL THEN
2126: x_return_status := OKL_API.G_RET_STS_ERROR;
2127: -- Ship From Org ID is required
2128: OKL_API.set_message( p_app_name => 'OKC',
2129: p_msg_name => G_REQUIRED_VALUE,
2130: p_token1 => G_COL_NAME_TOKEN,
2131: p_token1_value => 'SHIP_FROM_ORG_ID');
2132: RAISE okl_api.G_EXCEPTION_ERROR;
2128: OKL_API.set_message( p_app_name => 'OKC',
2129: p_msg_name => G_REQUIRED_VALUE,
2130: p_token1 => G_COL_NAME_TOKEN,
2131: p_token1_value => 'SHIP_FROM_ORG_ID');
2132: RAISE okl_api.G_EXCEPTION_ERROR;
2133: END IF;
2134:
2135:
2136: OPEN l_mtlsystemitems_csr(l_inventory_item_id, l_ship_from_org_id);
2138: --FETCH l_mtlsystemitems_csr INTO l_subinv_code, l_distribution_account_id;
2139: FETCH l_mtlsystemitems_csr INTO l_subinv_code;
2140: IF l_mtlsystemitems_csr%NOTFOUND THEN
2141: -- shipping org for the order does not match the Item's organization
2142: x_return_status := OKL_API.G_RET_STS_ERROR;
2143: --Order ORDER_NUMBER has invalid combination of inventory item and organization
2144: OKL_API.set_message(p_app_name => 'OKL',
2145: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2146: p_token1 => 'ORDER_NUMBER',
2140: IF l_mtlsystemitems_csr%NOTFOUND THEN
2141: -- shipping org for the order does not match the Item's organization
2142: x_return_status := OKL_API.G_RET_STS_ERROR;
2143: --Order ORDER_NUMBER has invalid combination of inventory item and organization
2144: OKL_API.set_message(p_app_name => 'OKL',
2145: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2146: p_token1 => 'ORDER_NUMBER',
2147: p_token1_value => l_order_number);
2148: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: OKL_API.set_message(p_app_name => 'OKL',
2145: p_msg_name => 'OKL_AM_INVALID_ITEM_ORG',
2146: p_token1 => 'ORDER_NUMBER',
2147: p_token1_value => l_order_number);
2148: RAISE OKL_API.G_EXCEPTION_ERROR;
2149: END IF;
2150:
2151: IF l_subinv_code IS NULL THEN
2152: x_return_status := OKL_API.G_RET_STS_ERROR;
2148: RAISE OKL_API.G_EXCEPTION_ERROR;
2149: END IF;
2150:
2151: IF l_subinv_code IS NULL THEN
2152: x_return_status := OKL_API.G_RET_STS_ERROR;
2153: -- source subinventory is required
2154: OKL_API.set_message( p_app_name => 'OKC',
2155: p_msg_name => G_REQUIRED_VALUE,
2156: p_token1 => G_COL_NAME_TOKEN,
2150:
2151: IF l_subinv_code IS NULL THEN
2152: x_return_status := OKL_API.G_RET_STS_ERROR;
2153: -- source subinventory is required
2154: OKL_API.set_message( p_app_name => 'OKC',
2155: p_msg_name => G_REQUIRED_VALUE,
2156: p_token1 => G_COL_NAME_TOKEN,
2157: p_token1_value => 'SOURCE_SUBINVENTORY');
2158: RAISE okl_api.G_EXCEPTION_ERROR;
2154: OKL_API.set_message( p_app_name => 'OKC',
2155: p_msg_name => G_REQUIRED_VALUE,
2156: p_token1 => G_COL_NAME_TOKEN,
2157: p_token1_value => 'SOURCE_SUBINVENTORY');
2158: RAISE okl_api.G_EXCEPTION_ERROR;
2159: END IF;
2160: CLOSE l_mtlsystemitems_csr;
2161:
2162: -- Distribution Account ID can be NULL
2168: p_quantity => -(l_ordered_quantity),
2169: p_sysdate => l_sysdate,
2170: x_return_status => x_return_status);
2171:
2172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2169: p_sysdate => l_sysdate,
2170: x_return_status => x_return_status);
2171:
2172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2170: x_return_status => x_return_status);
2171:
2172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2178: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2171:
2172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2178: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2179:
2176: END IF;
2177:
2178: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2179:
2180: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2183:
2184: IF l_orderheaders_csr%ISOPEN THEN
2178: -- END LOOP; -- SECHAWLA 21-OCT-04 3924244
2179:
2180: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2183:
2184: IF l_orderheaders_csr%ISOPEN THEN
2185: CLOSE l_orderheaders_csr;
2186: END IF;
2189: END IF;
2190: IF l_mtlsystemitems_csr%ISOPEN THEN
2191: CLOSE l_mtlsystemitems_csr;
2192: END IF;
2193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2194: (
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKL_API.G_RET_STS_ERROR',
2193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2194: (
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKL_API.G_RET_STS_ERROR',
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT'
2201: );
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT'
2201: );
2202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2203: IF l_orderheaders_csr%ISOPEN THEN
2204: CLOSE l_orderheaders_csr;
2205: END IF;
2206: IF l_orderlines_csr%ISOPEN THEN
2208: END IF;
2209: IF l_mtlsystemitems_csr%ISOPEN THEN
2210: CLOSE l_mtlsystemitems_csr;
2211: END IF;
2212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2217: x_msg_count,
2218: x_msg_data,
2219: '_PVT'
2220: );
2227: END IF;
2228: IF l_mtlsystemitems_csr%ISOPEN THEN
2229: CLOSE l_mtlsystemitems_csr;
2230: END IF;
2231: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OTHERS',