[Home] [Help]
8123: p_product_attribute IN VARCHAR2,
8124: p_product_attr_value IN VARCHAR2,
8125: p_fcst_uom IN VARCHAR2,
8126:
8127: x_standard_cost OUT NOCOPY NUMBER,
8128: x_return_status OUT NOCOPY VARCHAR2,
8129: x_msg_count OUT NOCOPY NUMBER,
8130: x_msg_data OUT NOCOPY VARCHAR2
8131: )
8131: )
8132: IS
8133:
8134: l_temp_item_cost NUMBER := 0;
8135: l_standard_cost NUMBER := 0;
8136: l_flag_error boolean := false;
8137: /*
8138: CURSOR c_products IS
8139: SELECT product_id
8220: IF (l_temp_item_cost is null)
8221: THEN
8222:
8223: l_flag_error := true;
8224: l_standard_cost := null;
8225:
8226: ELSIF (l_temp_item_cost is not null)
8227: THEN
8228: l_counter := l_counter + 1;
8225:
8226: ELSIF (l_temp_item_cost is not null)
8227: THEN
8228: l_counter := l_counter + 1;
8229: l_standard_cost := l_standard_cost + l_temp_item_cost;
8230:
8231: END IF;
8232:
8233: END LOOP;
8234:
8235: -- Cost of Good for a Item Category is always the average cost
8236: -- of all the items in the Category.
8237:
8238: IF l_standard_cost IS NOT NULL
8239: THEN
8240: x_standard_cost := round(l_standard_cost/l_counter,2);
8241: ELSE
8242: x_standard_cost := NULL;
8236: -- of all the items in the Category.
8237:
8238: IF l_standard_cost IS NOT NULL
8239: THEN
8240: x_standard_cost := round(l_standard_cost/l_counter,2);
8241: ELSE
8242: x_standard_cost := NULL;
8243: END IF;
8244:
8238: IF l_standard_cost IS NOT NULL
8239: THEN
8240: x_standard_cost := round(l_standard_cost/l_counter,2);
8241: ELSE
8242: x_standard_cost := NULL;
8243: END IF;
8244:
8245: EXCEPTION
8246:
8244:
8245: EXCEPTION
8246:
8247: WHEN FND_API.G_EXC_ERROR THEN
8248: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message('Validate_Standard_Cost_Of_Goods: ' || substr(sqlerrm, 1, 100)); END IF;
8249: ROLLBACK TO calc_cost_of_goods;
8250: x_return_status := FND_API.G_RET_STS_ERROR;
8251: FND_MSG_PUB.Count_And_Get (
8252: p_encoded => FND_API.g_false,
8331: l_return_status VARCHAR2(1);
8332: l_msg_count NUMBER;
8333: l_msg_data VARCHAR2(2000);
8334:
8335: l_standard_cost NUMBER;
8336: l_other_costs NUMBER;
8337:
8338: l_obj_type VARCHAR2(30);
8339: l_obj_id NUMBER;
8387: l_obj_id ,
8388: l_product_attribute ,
8389: l_product_attr_value ,
8390: l_fcst_uom ,
8391: l_standard_cost ,
8392: l_return_status ,
8393: l_msg_count ,
8394: l_msg_data );
8395:
8405:
8406:
8407: IF l_other_costs IS NOT NULL
8408: THEN
8409: l_standard_cost := NVL(l_standard_cost,0) + l_other_costs;
8410: END IF;
8411:
8412: RETURN NVL(l_standard_cost,0); -- return total cost for Product
8413:
8408: THEN
8409: l_standard_cost := NVL(l_standard_cost,0) + l_other_costs;
8410: END IF;
8411:
8412: RETURN NVL(l_standard_cost,0); -- return total cost for Product
8413:
8414: EXCEPTION
8415: WHEN OTHERS THEN
8416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
8535: l_currency VARCHAR2(240);
8536: l_fcst_uom VARCHAR2(30);
8537: l_price_list_id NUMBER;
8538: l_list_price NUMBER;
8539: l_standard_cost NUMBER;
8540: l_offer_type2 VARCHAR2(30);
8541: l_offer_type VARCHAR2(30);
8542: l_lumpsum_qty NUMBER;
8543: l_api_version CONSTANT NUMBER := 1.0;
8754:
8755: x_list_price OUT NOCOPY NUMBER,
8756: x_discount_type OUT NOCOPY VARCHAR2,
8757: x_discount_value OUT NOCOPY NUMBER,
8758: x_standard_cost OUT NOCOPY NUMBER,
8759:
8760: x_return_status OUT NOCOPY VARCHAR2,
8761: x_msg_count OUT NOCOPY NUMBER,
8762: x_msg_data OUT NOCOPY VARCHAR2 )
8904: l_currency VARCHAR2(240);
8905: l_fcst_uom VARCHAR2(30);
8906: l_price_list_id NUMBER;
8907: l_list_price NUMBER;
8908: l_standard_cost NUMBER;
8909:
8910: l_offer_type2 VARCHAR2(30);
8911: l_offer_type VARCHAR2(30);
8912: l_lumpsum_qty NUMBER;
9093: p_product_attribute,
9094: p_product_attr_value,
9095: l_fcst_uom,
9096:
9097: l_standard_cost ,
9098: x_return_status ,
9099: x_msg_count ,
9100: x_msg_data
9101: ) ;
9105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9106: RAISE FND_API.g_exc_unexpected_error;
9107: END IF;
9108:
9109: -- x_standard_cost := l_standard_cost ;
9110:
9111: -- Get Other Costs here
9112: OZF_FORECAST_UTIL_PVT.get_other_costs (p_obj_type ,
9113: p_obj_id ,
9151:
9152: --
9153: IF l_other_costs IS NOT NULL
9154: THEN
9155: l_standard_cost := NVL(l_standard_cost,0) + l_other_costs;
9156: END IF;
9157:
9158: IF l_standard_cost IS NULL
9159: THEN
9154: THEN
9155: l_standard_cost := NVL(l_standard_cost,0) + l_other_costs;
9156: END IF;
9157:
9158: IF l_standard_cost IS NULL
9159: THEN
9160:
9161: NULL;
9162: /*
9168: RAISE FND_API.g_exc_error;
9169: END IF;
9170: */
9171: ELSE
9172: x_standard_cost := l_standard_cost;
9173: END IF;
9174:
9175: EXCEPTION
9176:
9370: EXCEPTION
9371: WHEN FND_API.G_EXC_ERROR THEN
9372:
9373: x_return_status := FND_API.G_RET_STS_ERROR;
9374: -- Standard call to get message count and if count=1, get the message
9375: FND_MSG_PUB.Count_And_Get (
9376: p_encoded => FND_API.G_FALSE,
9377: p_count => x_msg_count,
9378: p_data => x_msg_data
9379: );
9380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9381:
9382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9383: -- Standard call to get message count and if count=1, get the message
9384: FND_MSG_PUB.Count_And_Get (
9385: p_encoded => FND_API.G_FALSE,
9386: p_count => x_msg_count,
9387: p_data => x_msg_data
9393: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9394: THEN
9395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9396: END IF;
9397: -- Standard call to get message count and if count=1, get the message
9398: FND_MSG_PUB.Count_And_Get (
9399: p_encoded => FND_API.G_FALSE,
9400: p_count => x_msg_count,
9401: p_data => x_msg_data
9583: EXCEPTION
9584: WHEN FND_API.G_EXC_ERROR THEN
9585: ROLLBACK TO allocate_facts ;
9586: x_return_status := FND_API.G_RET_STS_ERROR;
9587: -- Standard call to get message count and if count=1, get the message
9588: FND_MSG_PUB.Count_And_Get (
9589: p_encoded => FND_API.G_FALSE,
9590: p_count => x_msg_count,
9591: p_data => x_msg_data
9592: );
9593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9594: ROLLBACK TO allocate_facts;
9595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9596: -- Standard call to get message count and if count=1, get the message
9597: FND_MSG_PUB.Count_And_Get (
9598: p_encoded => FND_API.G_FALSE,
9599: p_count => x_msg_count,
9600: p_data => x_msg_data
9605: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9606: THEN
9607: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9608: END IF;
9609: -- Standard call to get message count and if count=1, get the message
9610: FND_MSG_PUB.Count_And_Get (
9611: p_encoded => FND_API.G_FALSE,
9612: p_count => x_msg_count,
9613: p_data => x_msg_data
10216: EXCEPTION
10217: WHEN FND_API.G_EXC_ERROR THEN
10218: ROLLBACK TO allocate_pg_facts ;
10219: x_return_status := FND_API.G_RET_STS_ERROR;
10220: -- Standard call to get message count and if count=1, get the message
10221: FND_MSG_PUB.Count_And_Get (
10222: p_encoded => FND_API.G_FALSE,
10223: p_count => x_msg_count,
10224: p_data => x_msg_data
10225: );
10226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10227: ROLLBACK TO allocate_pg_facts;
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10229: -- Standard call to get message count and if count=1, get the message
10230: FND_MSG_PUB.Count_And_Get (
10231: p_encoded => FND_API.G_FALSE,
10232: p_count => x_msg_count,
10233: p_data => x_msg_data
10238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10239: THEN
10240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
10241: END IF;
10242: -- Standard call to get message count and if count=1, get the message
10243: FND_MSG_PUB.Count_And_Get (
10244: p_encoded => FND_API.G_FALSE,
10245: p_count => x_msg_count,
10246: p_data => x_msg_data