[Home] [Help]
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_OM_VALIDATION_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvomvb.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: /*=======================================================================*
11: | PROCEDURE
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_OM_VALIDATION_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvomvb.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: /*=======================================================================*
11: | PROCEDURE
12: | Price_Item
87: IF l_return_status = FND_API.g_ret_sts_error THEN
88: IF OZF_DEBUG_LOW_ON THEN
89: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
90: FND_MESSAGE.Set_Token('TEXT','Expected error happened when calling OZF_ORDER_PRICE_PVT.Purge_Pricing_Temp_table().');
91: FND_MSG_PUB.Add;
92: END IF;
93: RAISE FND_API.g_exc_error;
94: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
95: IF OZF_DEBUG_LOW_ON THEN
94: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
95: IF OZF_DEBUG_LOW_ON THEN
96: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
97: FND_MESSAGE.Set_Token('TEXT','Unexpected error happened when calling OZF_ORDER_PRICE_PVT.Purge_Pricing_Temp_table().');
98: FND_MSG_PUB.Add;
99: END IF;
100: RAISE FND_API.g_exc_unexpected_error;
101: END IF;
102:
178: IF l_return_status = FND_API.g_ret_sts_error THEN
179: IF OZF_DEBUG_LOW_ON THEN
180: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
181: FND_MESSAGE.Set_Token('TEXT','Expected error happened when calling OZF_ORDER_PRICE_PVT.Get_Order_Price().');
182: FND_MSG_PUB.Add;
183: END IF;
184: RAISE FND_API.g_exc_error;
185: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
186: IF OZF_DEBUG_LOW_ON THEN
185: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
186: IF OZF_DEBUG_LOW_ON THEN
187: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
188: FND_MESSAGE.Set_Token('TEXT','Unexpected error happened when calling OZF_ORDER_PRICE_PVT.Get_Order_Price().');
189: FND_MSG_PUB.Add;
190: END IF;
191: RAISE FND_API.g_exc_unexpected_error;
192: END IF;
193:
194: i := l_p_x_line_tbl.FIRST;
195: IF i IS NOT NULL THEN
196: LOOP
197: IF l_p_x_line_tbl(i).adjusted_unit_price IS NULL THEN
198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
199: l_inv_org_id := FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
200: l_prod_name := OZF_UTILITY_PVT.get_product_name(
201: p_prod_level => 'PRODUCT'
202: ,p_prod_id => p_x_item_tbl(i).item_id
207: /*
208: IF l_p_x_line_tbl(i).pricing_status_code = 'IPL' THEN
209: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
210: FND_MESSAGE.Set_Token('TEXT','Invalid price list for pricing product '||l_prod_name);
211: FND_MSG_PUB.Add;
212: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'GSA' THEN
213: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
214: FND_MESSAGE.Set_Token('TEXT','GSA violation for pricing product '||l_prod_name);
215: FND_MSG_PUB.Add;
211: FND_MSG_PUB.Add;
212: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'GSA' THEN
213: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
214: FND_MESSAGE.Set_Token('TEXT','GSA violation for pricing product '||l_prod_name);
215: FND_MSG_PUB.Add;
216: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'FER' THEN
217: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
218: FND_MESSAGE.Set_Token('TEXT','Error processing formula for pricing product '||l_prod_name);
219: FND_MSG_PUB.Add;
215: FND_MSG_PUB.Add;
216: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'FER' THEN
217: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
218: FND_MESSAGE.Set_Token('TEXT','Error processing formula for pricing product '||l_prod_name);
219: FND_MSG_PUB.Add;
220: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'CALC' THEN
221: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
222: FND_MESSAGE.Set_Token('TEXT','Error in calculation engine for pricing product '||l_prod_name);
223: FND_MSG_PUB.Add;
219: FND_MSG_PUB.Add;
220: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'CALC' THEN
221: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
222: FND_MESSAGE.Set_Token('TEXT','Error in calculation engine for pricing product '||l_prod_name);
223: FND_MSG_PUB.Add;
224: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'UOM' THEN
225: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
226: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
227: FND_MESSAGE.Set_Token('TEXT','Failed to price using unit of measure('||l_uom_name||') for pricing product '||l_prod_name);
224: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'UOM' THEN
225: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
226: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
227: FND_MESSAGE.Set_Token('TEXT','Failed to price using unit of measure('||l_uom_name||') for pricing product '||l_prod_name);
228: FND_MSG_PUB.Add;
229: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_UOM' THEN
230: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
231: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
232: FND_MESSAGE.Set_Token('TEXT','Invalid unit of measure('||l_uom_name||') for pricing product '||l_prod_name);
229: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_UOM' THEN
230: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
231: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
232: FND_MESSAGE.Set_Token('TEXT','Invalid unit of measure('||l_uom_name||') for pricing product '||l_prod_name);
233: FND_MSG_PUB.Add;
234: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'DUPLICATE_PRICE_LIST' THEN
235: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
236: FND_MESSAGE.Set_Token('TEXT','Duplicate price list for pricing product '||l_prod_name);
237: FND_MSG_PUB.Add;
233: FND_MSG_PUB.Add;
234: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'DUPLICATE_PRICE_LIST' THEN
235: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
236: FND_MESSAGE.Set_Token('TEXT','Duplicate price list for pricing product '||l_prod_name);
237: FND_MSG_PUB.Add;
238: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_UOM_CONV' THEN
239: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
240: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
241: FND_MESSAGE.Set_Token('TEXT','Unit of measure('||l_uom_name||') conversion is not found for pricing product '||l_prod_name);
238: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_UOM_CONV' THEN
239: l_uom_name := OZF_UTILITY_PVT.get_uom_name(p_uom_code => l_p_x_line_tbl(i).LINE_UOM_CODE);
240: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
241: FND_MESSAGE.Set_Token('TEXT','Unit of measure('||l_uom_name||') conversion is not found for pricing product '||l_prod_name);
242: FND_MSG_PUB.Add;
243: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_INCOMP' THEN
244: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
245: FND_MESSAGE.Set_Token('TEXT','Could not resolve incompatibility for pricing product '||l_prod_name);
246: FND_MSG_PUB.Add;
242: FND_MSG_PUB.Add;
243: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_INCOMP' THEN
244: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
245: FND_MESSAGE.Set_Token('TEXT','Could not resolve incompatibility for pricing product '||l_prod_name);
246: FND_MSG_PUB.Add;
247: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_BEST_PRICE' THEN
248: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
249: FND_MESSAGE.Set_Token('TEXT','Could not resolve best price for product '||l_prod_name);
250: FND_MSG_PUB.Add;
246: FND_MSG_PUB.Add;
247: ELSIF l_p_x_line_tbl(i).pricing_status_code = 'INVALID_BEST_PRICE' THEN
248: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
249: FND_MESSAGE.Set_Token('TEXT','Could not resolve best price for product '||l_prod_name);
250: FND_MSG_PUB.Add;
251: END IF;
252: */
253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
254: FND_MESSAGE.Set_Token('TEXT',l_p_x_line_tbl(i).pricing_status_text);
251: END IF;
252: */
253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
254: FND_MESSAGE.Set_Token('TEXT',l_p_x_line_tbl(i).pricing_status_text);
255: FND_MSG_PUB.Add;
256:
257: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DEF_PROD_PRICE_ERR');
258: FND_MESSAGE.set_token('PROD', l_prod_name);
259: FND_MSG_PUB.add;
255: FND_MSG_PUB.Add;
256:
257: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DEF_PROD_PRICE_ERR');
258: FND_MESSAGE.set_token('PROD', l_prod_name);
259: FND_MSG_PUB.add;
260: END IF;
261: l_error := TRUE;
262: ELSE
263: p_x_item_tbl(i).rate := l_p_x_line_tbl(i).adjusted_unit_price; --adjusted_unit_price??
372: WHEN OTHERS THEN
373: IF OZF_DEBUG_LOW_ON THEN
374: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
375: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
376: FND_MSG_PUB.Add;
377: END IF;
378: x_return_status := FND_API.g_ret_sts_unexp_error;
379:
380: END Price_Item;
444: WHEN OTHERS THEN
445: IF OZF_DEBUG_LOW_ON THEN
446: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
447: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
448: FND_MSG_PUB.Add;
449: END IF;
450: x_return_status := FND_API.g_ret_sts_unexp_error;
451:
452: END Price_Invoice_Line;
516: WHEN OTHERS THEN
517: IF OZF_DEBUG_LOW_ON THEN
518: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
519: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
520: FND_MSG_PUB.Add;
521: END IF;
522: x_return_status := FND_API.g_ret_sts_unexp_error;
523:
524: END Price_Order_Line;
596: CLOSE csr_sys_param_rma_trx_type;
597: END IF;
598:
599: IF x_order_type_id IS NULL THEN
600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
601: FND_MESSAGE.set_name('OZF', 'OZF_SETL_MISSING_RMA_TRX_TYPE');
602: FND_MSG_PUB.add;
603: END IF;
604: RAISE FND_API.G_EXC_ERROR;
598:
599: IF x_order_type_id IS NULL THEN
600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
601: FND_MESSAGE.set_name('OZF', 'OZF_SETL_MISSING_RMA_TRX_TYPE');
602: FND_MSG_PUB.add;
603: END IF;
604: RAISE FND_API.G_EXC_ERROR;
605: END IF;
606:
615: WHEN OTHERS THEN
616: IF OZF_DEBUG_LOW_ON THEN
617: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
618: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
619: FND_MSG_PUB.Add;
620: END IF;
621: x_return_status := FND_API.g_ret_sts_unexp_error;
622:
623: END Get_Default_Order_Type;
751: WHEN OTHERS THEN
752: IF OZF_DEBUG_LOW_ON THEN
753: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
754: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
755: FND_MSG_PUB.Add;
756: END IF;
757: x_return_status := FND_API.g_ret_sts_unexp_error;
758:
759: END Default_Claim_Line;
862: p_x_claim_line_tbl(i).rate IS NULL
863: ) THEN
864: -- Quantity is required for pricing item
865: IF p_x_claim_line_tbl(i).quantity IS NULL THEN
866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
867: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_REQ');
868: FND_MSG_PUB.add;
869: END IF;
870: RAISE FND_API.G_EXC_ERROR;
864: -- Quantity is required for pricing item
865: IF p_x_claim_line_tbl(i).quantity IS NULL THEN
866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
867: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_REQ');
868: FND_MSG_PUB.add;
869: END IF;
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
872:
894: l_item_tbl(idx_item).item_id := p_x_claim_line_tbl(i).item_id;
895: l_item_tbl(idx_item).quantity := p_x_claim_line_tbl(i).quantity;
896: -- UOM is required for pricing item
897: IF p_x_claim_line_tbl(i).quantity_uom IS NULL THEN
898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
899: l_org_id := FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
900: OPEN csr_product_name(p_x_claim_line_tbl(i).item_id, l_org_id);
901: --OPEN csr_product_name(p_x_claim_line_tbl(i).item_id, l_org_id);
902: FETCH csr_product_name INTO l_csr_product_name;
902: FETCH csr_product_name INTO l_csr_product_name;
903: CLOSE csr_product_name;
904: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_REQ');
905: FND_MESSAGE.set_token('ITEM', l_csr_product_name.description);
906: FND_MSG_PUB.add;
907: END IF;
908: RAISE FND_API.G_EXC_ERROR;
909: ELSE
910: l_item_tbl(idx_item).quantity_uom := p_x_claim_line_tbl(i).quantity_uom;
1032: WHEN OTHERS THEN
1033: IF OZF_DEBUG_LOW_ON THEN
1034: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1035: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1036: FND_MSG_PUB.Add;
1037: END IF;
1038: x_return_status := FND_API.g_ret_sts_unexp_error;
1039:
1040: END Default_Claim_Line_Tbl;
1088: WHEN OTHERS THEN
1089: IF OZF_DEBUG_LOW_ON THEN
1090: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1091: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1092: FND_MSG_PUB.Add;
1093: END IF;
1094: x_return_status := FND_API.g_ret_sts_unexp_error;
1095:
1096: END Validate_Claim_Line;
1175: WHEN OTHERS THEN
1176: IF OZF_DEBUG_LOW_ON THEN
1177: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1178: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1179: FND_MSG_PUB.Add;
1180: END IF;
1181: x_return_status := FND_API.g_ret_sts_unexp_error;
1182:
1183: END Validate_Claim_Line_Tbl;
1262: OPEN csr_order_reference(p_source_object_id);
1263: FETCH csr_order_reference INTO l_reference_header;
1264: CLOSE csr_order_reference;
1265: IF nvl(l_reference_header, 'OZF_DUMMY') <> 'ORDER ENTRY' THEN
1266: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVOICE_ORDER_ERROR');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: RAISE FND_API.G_EXC_ERROR;
1264: CLOSE csr_order_reference;
1265: IF nvl(l_reference_header, 'OZF_DUMMY') <> 'ORDER ENTRY' THEN
1266: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVOICE_ORDER_ERROR');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: RAISE FND_API.G_EXC_ERROR;
1271: END IF;
1272: END IF;
1284: CLOSE csr_ord_total_quantity;
1285:
1286: IF l_return_order_quantity IS NOT NULL THEN
1287: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1288: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1289: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1290: FND_MSG_PUB.Add;
1291: END IF;
1292: RAISE FND_API.G_EXC_ERROR;
1286: IF l_return_order_quantity IS NOT NULL THEN
1287: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1288: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1289: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1290: FND_MSG_PUB.Add;
1291: END IF;
1292: RAISE FND_API.G_EXC_ERROR;
1293: END IF;
1294: END IF;
1326: END IF;
1327:
1328: IF l_return_order_quantity IS NOT NULL THEN
1329: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1330: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1331: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1332: FND_MSG_PUB.Add;
1333: END IF;
1334: RAISE FND_API.G_EXC_ERROR;
1328: IF l_return_order_quantity IS NOT NULL THEN
1329: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1330: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1331: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1332: FND_MSG_PUB.Add;
1333: END IF;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: END IF;
1348: WHEN OTHERS THEN
1349: IF OZF_DEBUG_LOW_ON THEN
1350: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1351: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1352: FND_MSG_PUB.Add;
1353: END IF;
1354: x_return_status := FND_API.g_ret_sts_unexp_error;
1355: END Validate_reference_information;
1356:
1456: -- If both product and invoice/order line are defined,
1457: -- the product needs to belong to the same invoice/order line.
1458: IF p_claim_line_rec.item_id IS NOT NULL AND
1459: p_claim_line_rec.item_id <> l_item_id THEN
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1461: l_org_id := FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
1462: OPEN csr_product_name(p_claim_line_rec.item_id, l_org_id);
1463: -- OPEN csr_product_name(p_claim_line_rec.item_id, l_org_id);
1464: FETCH csr_product_name INTO l_csr_product_name;
1464: FETCH csr_product_name INTO l_csr_product_name;
1465: CLOSE csr_product_name;
1466: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_PROD_ERR');
1467: FND_MESSAGE.set_token('PROD', l_csr_product_name.description);
1468: FND_MSG_PUB.add;
1469: END IF;
1470: l_error := TRUE;
1471: END IF;
1472:
1470: l_error := TRUE;
1471: END IF;
1472:
1473: IF p_claim_line_rec.quantity > l_most_quantity THEN
1474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1475: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_QUTY_ERR');
1476: FND_MSG_PUB.add;
1477: END IF;
1478: l_error := TRUE;
1472:
1473: IF p_claim_line_rec.quantity > l_most_quantity THEN
1474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1475: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_QUTY_ERR');
1476: FND_MSG_PUB.add;
1477: END IF;
1478: l_error := TRUE;
1479: END IF;
1480: END IF;
1494: WHEN OTHERS THEN
1495: IF OZF_DEBUG_LOW_ON THEN
1496: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1497: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1498: FND_MSG_PUB.Add;
1499: END IF;
1500: x_return_status := FND_API.g_ret_sts_unexp_error;
1501:
1502: END Validate_Return_Quantity;
1553: CLOSE csr_item_attr;
1554:
1555: IF l_csr_item_attr.invoice_enabled_flag = 'N' OR
1556: l_csr_item_attr.invoiceable_item_flag = 'N' THEN
1557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1558: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_INV_ERR');
1559: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1560: FND_MSG_PUB.add;
1561: END IF;
1556: l_csr_item_attr.invoiceable_item_flag = 'N' THEN
1557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1558: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_INV_ERR');
1559: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1560: FND_MSG_PUB.add;
1561: END IF;
1562: l_error := TRUE;
1563: END IF;
1564:
1562: l_error := TRUE;
1563: END IF;
1564:
1565: IF l_csr_item_attr.returnable_flag <> 'Y' THEN
1566: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1567: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_ITEM_RMA_ERR');
1568: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1569: FND_MSG_PUB.add;
1570: END IF;
1565: IF l_csr_item_attr.returnable_flag <> 'Y' THEN
1566: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1567: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_ITEM_RMA_ERR');
1568: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1569: FND_MSG_PUB.add;
1570: END IF;
1571: l_error := TRUE;
1572: END IF;
1573:
1586: WHEN OTHERS THEN
1587: IF OZF_DEBUG_LOW_ON THEN
1588: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1589: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1590: FND_MSG_PUB.Add;
1591: END IF;
1592: x_return_status := FND_API.g_ret_sts_unexp_error;
1593:
1594: END Check_RMA_Item_Attribute;
1630:
1631: -- 1. invoice line or product is required
1632: IF (p_claim_line_rec.item_id IS NULL OR p_claim_line_rec.item_type <> 'PRODUCT') AND
1633: p_claim_line_rec.source_object_line_id IS NULL THEN
1634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_PROD_ERR');
1636: FND_MSG_PUB.add;
1637: END IF;
1638: l_error := TRUE;
1632: IF (p_claim_line_rec.item_id IS NULL OR p_claim_line_rec.item_type <> 'PRODUCT') AND
1633: p_claim_line_rec.source_object_line_id IS NULL THEN
1634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_PROD_ERR');
1636: FND_MSG_PUB.add;
1637: END IF;
1638: l_error := TRUE;
1639: END IF;
1640:
1639: END IF;
1640:
1641: -- 2. quantity is required
1642: IF p_claim_line_rec.quantity IS NULL THEN
1643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1644: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_ERR');
1645: FND_MSG_PUB.add;
1646: END IF;
1647: l_error := TRUE;
1641: -- 2. quantity is required
1642: IF p_claim_line_rec.quantity IS NULL THEN
1643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1644: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_ERR');
1645: FND_MSG_PUB.add;
1646: END IF;
1647: l_error := TRUE;
1648: END IF;
1649:
1648: END IF;
1649:
1650: -- 3. uom is required
1651: IF p_claim_line_rec.quantity_uom IS NULL THEN
1652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1653: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_ERR');
1654: FND_MSG_PUB.add;
1655: END IF;
1656: l_error := TRUE;
1650: -- 3. uom is required
1651: IF p_claim_line_rec.quantity_uom IS NULL THEN
1652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1653: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_ERR');
1654: FND_MSG_PUB.add;
1655: END IF;
1656: l_error := TRUE;
1657: END IF;
1658:
1657: END IF;
1658:
1659: -- 4. price is required
1660: IF p_claim_line_rec.rate IS NULL THEN
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_RATE_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1665: l_error := TRUE;
1659: -- 4. price is required
1660: IF p_claim_line_rec.rate IS NULL THEN
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_RATE_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1665: l_error := TRUE;
1666: END IF;
1667:
1668: -- 5. Pay Related Customer is not applicable if RMA is with referenced order/line
1669: IF p_claim_line_rec.source_object_class IN ('INVOICE', 'ORDER') AND
1670: p_claim_line_rec.source_object_line_id IS NOT NULL AND
1671: p_claim_rec.pay_related_account_flag = 'T' THEN
1672: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1673: FND_MESSAGE.set_name('OZF', 'OZF_SETL_RMA_REL_CUST_NA');
1674: FND_MSG_PUB.add;
1675: END IF;
1676: l_error := TRUE;
1670: p_claim_line_rec.source_object_line_id IS NOT NULL AND
1671: p_claim_rec.pay_related_account_flag = 'T' THEN
1672: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1673: FND_MESSAGE.set_name('OZF', 'OZF_SETL_RMA_REL_CUST_NA');
1674: FND_MSG_PUB.add;
1675: END IF;
1676: l_error := TRUE;
1677: END IF;
1678:
1691: WHEN OTHERS THEN
1692: IF OZF_DEBUG_LOW_ON THEN
1693: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1694: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1695: FND_MSG_PUB.Add;
1696: END IF;
1697: x_return_status := FND_API.g_ret_sts_unexp_error;
1698:
1699: END Check_RMA_Line_Items;
1824: WHEN OTHERS THEN
1825: IF OZF_DEBUG_LOW_ON THEN
1826: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1827: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1828: FND_MSG_PUB.Add;
1829: END IF;
1830: x_return_status := FND_API.g_ret_sts_unexp_error;
1831:
1832: END Complete_RMA_Validation;