[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;
503: WHEN OTHERS THEN
504: IF OZF_DEBUG_LOW_ON THEN
505: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
506: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
507: FND_MSG_PUB.Add;
508: END IF;
509: x_return_status := FND_API.g_ret_sts_unexp_error;
510:
511: END Price_Invoice_Line;
575: WHEN OTHERS THEN
576: IF OZF_DEBUG_LOW_ON THEN
577: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
578: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
579: FND_MSG_PUB.Add;
580: END IF;
581: x_return_status := FND_API.g_ret_sts_unexp_error;
582:
583: END Price_Order_Line;
655: CLOSE csr_sys_param_rma_trx_type;
656: END IF;
657:
658: IF x_order_type_id IS NULL THEN
659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
660: FND_MESSAGE.set_name('OZF', 'OZF_SETL_MISSING_RMA_TRX_TYPE');
661: FND_MSG_PUB.add;
662: END IF;
663: RAISE FND_API.G_EXC_ERROR;
657:
658: IF x_order_type_id IS NULL THEN
659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
660: FND_MESSAGE.set_name('OZF', 'OZF_SETL_MISSING_RMA_TRX_TYPE');
661: FND_MSG_PUB.add;
662: END IF;
663: RAISE FND_API.G_EXC_ERROR;
664: END IF;
665:
674: WHEN OTHERS THEN
675: IF OZF_DEBUG_LOW_ON THEN
676: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
677: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
678: FND_MSG_PUB.Add;
679: END IF;
680: x_return_status := FND_API.g_ret_sts_unexp_error;
681:
682: END Get_Default_Order_Type;
810: WHEN OTHERS THEN
811: IF OZF_DEBUG_LOW_ON THEN
812: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
813: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
814: FND_MSG_PUB.Add;
815: END IF;
816: x_return_status := FND_API.g_ret_sts_unexp_error;
817:
818: END Default_Claim_Line;
921: p_x_claim_line_tbl(i).rate IS NULL
922: ) THEN
923: -- Quantity is required for pricing item
924: IF p_x_claim_line_tbl(i).quantity IS NULL THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
926: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_REQ');
927: FND_MSG_PUB.add;
928: END IF;
929: RAISE FND_API.G_EXC_ERROR;
923: -- Quantity is required for pricing item
924: IF p_x_claim_line_tbl(i).quantity IS NULL THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
926: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_REQ');
927: FND_MSG_PUB.add;
928: END IF;
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931:
953: l_item_tbl(idx_item).item_id := p_x_claim_line_tbl(i).item_id;
954: l_item_tbl(idx_item).quantity := p_x_claim_line_tbl(i).quantity;
955: -- UOM is required for pricing item
956: IF p_x_claim_line_tbl(i).quantity_uom IS NULL THEN
957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
958: l_org_id := FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
959: OPEN csr_product_name(p_x_claim_line_tbl(i).item_id, l_org_id);
960: --OPEN csr_product_name(p_x_claim_line_tbl(i).item_id, l_org_id);
961: FETCH csr_product_name INTO l_csr_product_name;
961: FETCH csr_product_name INTO l_csr_product_name;
962: CLOSE csr_product_name;
963: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_REQ');
964: FND_MESSAGE.set_token('ITEM', l_csr_product_name.description);
965: FND_MSG_PUB.add;
966: END IF;
967: RAISE FND_API.G_EXC_ERROR;
968: ELSE
969: l_item_tbl(idx_item).quantity_uom := p_x_claim_line_tbl(i).quantity_uom;
1094: WHEN OTHERS THEN
1095: IF OZF_DEBUG_LOW_ON THEN
1096: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1097: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1098: FND_MSG_PUB.Add;
1099: END IF;
1100: x_return_status := FND_API.g_ret_sts_unexp_error;
1101:
1102: END Default_Claim_Line_Tbl;
1150: WHEN OTHERS THEN
1151: IF OZF_DEBUG_LOW_ON THEN
1152: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1153: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1154: FND_MSG_PUB.Add;
1155: END IF;
1156: x_return_status := FND_API.g_ret_sts_unexp_error;
1157:
1158: END Validate_Claim_Line;
1237: WHEN OTHERS THEN
1238: IF OZF_DEBUG_LOW_ON THEN
1239: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1240: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1241: FND_MSG_PUB.Add;
1242: END IF;
1243: x_return_status := FND_API.g_ret_sts_unexp_error;
1244:
1245: END Validate_Claim_Line_Tbl;
1324: OPEN csr_order_reference(p_source_object_id);
1325: FETCH csr_order_reference INTO l_reference_header;
1326: CLOSE csr_order_reference;
1327: IF nvl(l_reference_header, 'OZF_DUMMY') <> 'ORDER ENTRY' THEN
1328: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1329: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVOICE_ORDER_ERROR');
1330: FND_MSG_PUB.Add;
1331: END IF;
1332: RAISE FND_API.G_EXC_ERROR;
1326: CLOSE csr_order_reference;
1327: IF nvl(l_reference_header, 'OZF_DUMMY') <> 'ORDER ENTRY' THEN
1328: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1329: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVOICE_ORDER_ERROR');
1330: FND_MSG_PUB.Add;
1331: END IF;
1332: RAISE FND_API.G_EXC_ERROR;
1333: END IF;
1334: END IF;
1346: CLOSE csr_ord_total_quantity;
1347:
1348: IF l_return_order_quantity IS NOT NULL THEN
1349: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1350: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1351: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1352: FND_MSG_PUB.Add;
1353: END IF;
1354: RAISE FND_API.G_EXC_ERROR;
1348: IF l_return_order_quantity IS NOT NULL THEN
1349: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1350: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1351: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1352: FND_MSG_PUB.Add;
1353: END IF;
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: END IF;
1388: END IF;
1389:
1390: IF l_return_order_quantity IS NOT NULL THEN
1391: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1392: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1393: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1394: FND_MSG_PUB.Add;
1395: END IF;
1396: RAISE FND_API.G_EXC_ERROR;
1390: IF l_return_order_quantity IS NOT NULL THEN
1391: IF ( (p_quantity + l_return_order_quantity ) > l_total_order_quantity ) THEN
1392: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1393: FND_MESSAGE.Set_Name('OZF','OZF_RETURN_INVALID_QUANTITY');
1394: FND_MSG_PUB.Add;
1395: END IF;
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398: END IF;
1410: WHEN OTHERS THEN
1411: IF OZF_DEBUG_LOW_ON THEN
1412: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1413: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1414: FND_MSG_PUB.Add;
1415: END IF;
1416: x_return_status := FND_API.g_ret_sts_unexp_error;
1417: END Validate_reference_information;
1418:
1518: -- If both product and invoice/order line are defined,
1519: -- the product needs to belong to the same invoice/order line.
1520: IF p_claim_line_rec.item_id IS NOT NULL AND
1521: p_claim_line_rec.item_id <> l_item_id THEN
1522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1523: l_org_id := FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
1524: OPEN csr_product_name(p_claim_line_rec.item_id, l_org_id);
1525: -- OPEN csr_product_name(p_claim_line_rec.item_id, l_org_id);
1526: FETCH csr_product_name INTO l_csr_product_name;
1526: FETCH csr_product_name INTO l_csr_product_name;
1527: CLOSE csr_product_name;
1528: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_PROD_ERR');
1529: FND_MESSAGE.set_token('PROD', l_csr_product_name.description);
1530: FND_MSG_PUB.add;
1531: END IF;
1532: l_error := TRUE;
1533: END IF;
1534:
1532: l_error := TRUE;
1533: END IF;
1534:
1535: IF p_claim_line_rec.quantity > l_most_quantity THEN
1536: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1537: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_QUTY_ERR');
1538: FND_MSG_PUB.add;
1539: END IF;
1540: l_error := TRUE;
1534:
1535: IF p_claim_line_rec.quantity > l_most_quantity THEN
1536: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1537: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_QUTY_ERR');
1538: FND_MSG_PUB.add;
1539: END IF;
1540: l_error := TRUE;
1541: END IF;
1542: END IF;
1556: WHEN OTHERS THEN
1557: IF OZF_DEBUG_LOW_ON THEN
1558: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1559: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1560: FND_MSG_PUB.Add;
1561: END IF;
1562: x_return_status := FND_API.g_ret_sts_unexp_error;
1563:
1564: END Validate_Return_Quantity;
1615: CLOSE csr_item_attr;
1616:
1617: IF l_csr_item_attr.invoice_enabled_flag = 'N' OR
1618: l_csr_item_attr.invoiceable_item_flag = 'N' THEN
1619: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1620: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_INV_ERR');
1621: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1622: FND_MSG_PUB.add;
1623: END IF;
1618: l_csr_item_attr.invoiceable_item_flag = 'N' THEN
1619: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1620: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_RMA_INV_ERR');
1621: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1622: FND_MSG_PUB.add;
1623: END IF;
1624: l_error := TRUE;
1625: END IF;
1626:
1624: l_error := TRUE;
1625: END IF;
1626:
1627: IF l_csr_item_attr.returnable_flag <> 'Y' THEN
1628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1629: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_ITEM_RMA_ERR');
1630: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1631: FND_MSG_PUB.add;
1632: END IF;
1627: IF l_csr_item_attr.returnable_flag <> 'Y' THEN
1628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1629: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_ITEM_RMA_ERR');
1630: FND_MESSAGE.set_token('PROD', l_csr_item_attr.description);
1631: FND_MSG_PUB.add;
1632: END IF;
1633: l_error := TRUE;
1634: END IF;
1635:
1648: WHEN OTHERS THEN
1649: IF OZF_DEBUG_LOW_ON THEN
1650: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1651: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1652: FND_MSG_PUB.Add;
1653: END IF;
1654: x_return_status := FND_API.g_ret_sts_unexp_error;
1655:
1656: END Check_RMA_Item_Attribute;
1692:
1693: -- 1. invoice line or product is required
1694: IF (p_claim_line_rec.item_id IS NULL OR p_claim_line_rec.item_type <> 'PRODUCT') AND
1695: p_claim_line_rec.source_object_line_id IS NULL THEN
1696: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1697: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_PROD_ERR');
1698: FND_MSG_PUB.add;
1699: END IF;
1700: l_error := TRUE;
1694: IF (p_claim_line_rec.item_id IS NULL OR p_claim_line_rec.item_type <> 'PRODUCT') AND
1695: p_claim_line_rec.source_object_line_id IS NULL THEN
1696: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1697: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_PROD_ERR');
1698: FND_MSG_PUB.add;
1699: END IF;
1700: l_error := TRUE;
1701: END IF;
1702:
1701: END IF;
1702:
1703: -- 2. quantity is required
1704: IF p_claim_line_rec.quantity IS NULL THEN
1705: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1706: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_ERR');
1707: FND_MSG_PUB.add;
1708: END IF;
1709: l_error := TRUE;
1703: -- 2. quantity is required
1704: IF p_claim_line_rec.quantity IS NULL THEN
1705: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1706: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_QUANTITY_ERR');
1707: FND_MSG_PUB.add;
1708: END IF;
1709: l_error := TRUE;
1710: END IF;
1711:
1710: END IF;
1711:
1712: -- 3. uom is required
1713: IF p_claim_line_rec.quantity_uom IS NULL THEN
1714: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1715: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_ERR');
1716: FND_MSG_PUB.add;
1717: END IF;
1718: l_error := TRUE;
1712: -- 3. uom is required
1713: IF p_claim_line_rec.quantity_uom IS NULL THEN
1714: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1715: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_UOM_ERR');
1716: FND_MSG_PUB.add;
1717: END IF;
1718: l_error := TRUE;
1719: END IF;
1720:
1719: END IF;
1720:
1721: -- 4. price is required
1722: IF p_claim_line_rec.rate IS NULL THEN
1723: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1724: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_RATE_ERR');
1725: FND_MSG_PUB.add;
1726: END IF;
1727: l_error := TRUE;
1721: -- 4. price is required
1722: IF p_claim_line_rec.rate IS NULL THEN
1723: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1724: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_RATE_ERR');
1725: FND_MSG_PUB.add;
1726: END IF;
1727: l_error := TRUE;
1728: END IF;
1729:
1730: -- 5. Pay Related Customer is not applicable if RMA is with referenced order/line
1731: IF p_claim_line_rec.source_object_class IN ('INVOICE', 'ORDER') AND
1732: p_claim_line_rec.source_object_line_id IS NOT NULL AND
1733: p_claim_rec.pay_related_account_flag = 'T' THEN
1734: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1735: FND_MESSAGE.set_name('OZF', 'OZF_SETL_RMA_REL_CUST_NA');
1736: FND_MSG_PUB.add;
1737: END IF;
1738: l_error := TRUE;
1732: p_claim_line_rec.source_object_line_id IS NOT NULL AND
1733: p_claim_rec.pay_related_account_flag = 'T' THEN
1734: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1735: FND_MESSAGE.set_name('OZF', 'OZF_SETL_RMA_REL_CUST_NA');
1736: FND_MSG_PUB.add;
1737: END IF;
1738: l_error := TRUE;
1739: END IF;
1740:
1753: WHEN OTHERS THEN
1754: IF OZF_DEBUG_LOW_ON THEN
1755: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1756: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1757: FND_MSG_PUB.Add;
1758: END IF;
1759: x_return_status := FND_API.g_ret_sts_unexp_error;
1760:
1761: END Check_RMA_Line_Items;
1886: WHEN OTHERS THEN
1887: IF OZF_DEBUG_LOW_ON THEN
1888: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1889: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1890: FND_MSG_PUB.Add;
1891: END IF;
1892: x_return_status := FND_API.g_ret_sts_unexp_error;
1893:
1894: END Complete_RMA_Validation;