DBA Data[Home] [Help]

APPS.GMD_FETCH_VALIDITY_RULES dependencies on FND_API

Line 26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

22: --
23: --
24: --===================================================================== */
25: PROCEDURE get_validity_rules(p_api_version IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_recipe_id IN NUMBER,
28: p_item_id IN NUMBER := NULL,
29: p_organization_id IN NUMBER := NULL,
30: p_product_qty IN NUMBER := NULL,

Line 126: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,

122: GET_INPUT_RATIO_ERR EXCEPTION;
123: ITEM_UOM_CONV_ERR EXCEPTION;
124: UOM_CONVERSION_ERROR EXCEPTION;
125: BEGIN
126: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
127: l_api_name, G_PKG_NAME)) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130: IF (FND_API.to_Boolean(p_init_msg_list)) THEN

Line 128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

124: UOM_CONVERSION_ERROR EXCEPTION;
125: BEGIN
126: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
127: l_api_name, G_PKG_NAME)) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
131: FND_MSG_PUB.initialize;
132: END IF;

Line 130: IF (FND_API.to_Boolean(p_init_msg_list)) THEN

126: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
127: l_api_name, G_PKG_NAME)) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
131: FND_MSG_PUB.initialize;
132: END IF;
133: X_return_status := FND_API.G_RET_STS_SUCCESS;
134:

Line 133: X_return_status := FND_API.G_RET_STS_SUCCESS;

129: END IF;
130: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
131: FND_MSG_PUB.initialize;
132: END IF;
133: X_return_status := FND_API.G_RET_STS_SUCCESS;
134:
135: -- FND_PROFILE.VALUE_SPECIFIC('FM_YIELD_TYPE',FND_GLOBAL.USER_ID);
136: GMD_API_GRP.FETCH_PARM_VALUES ( P_orgn_id => p_organization_id ,
137: P_parm_name => 'FM_YIELD_TYPE' ,

Line 163: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

159: x_msg_count => l_msg_count,
160: x_msg_data => l_msg_data,
161: x_return_code => l_return_code,
162: x_formula_id => l_formula_id);
163: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
164: RAISE GET_FORMULA_ERR;
165: END IF;
166: gmd_common_val.calculate_total_qty(formula_id => l_formula_id,
167: x_product_qty => l_formula_output,

Line 173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

169: x_uom => l_yield_um,
170: x_return_status => l_return_status,
171: X_MSG_COUNT => l_msg_count,
172: X_MSG_DATA => l_msg_data );
173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
174: RAISE GET_TOTAL_QTY_ERR;
175: END IF;
176: IF (p_total_output IS NOT NULL) THEN
177: /* Convert total output qty to standard UOM of FM_YIELD_TYPE */

Line 199: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

195: p_yield_um => l_yield_um,
196: p_formula_output => l_formula_output,
197: x_return_status => l_return_status,
198: X_output_ratio => l_output_ratio);
199: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
200: RAISE GET_OUTPUT_RATIO_ERR;
201: END IF;
202: ELSIF (p_total_input IS NOT NULL) THEN
203: /* Try to get validity rules based on recipe ID and total input qty */

Line 224: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

220: gmd_fetch_validity_rules.get_ingredprod_ratio(p_formula_id => l_formula_id,
221: p_yield_um => l_yield_um,
222: x_return_status => l_return_status,
223: X_ingred_prod_ratio => l_ingred_prod_ratio);
224: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
225: RAISE GET_INGREDPROD_RATIO_ERR;
226: END IF;
227: /* Get the ratio of the batch input to the formula input */
228: gmd_fetch_validity_rules.get_batchformula_ratio(p_formula_id => l_formula_id,

Line 234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

230: p_yield_um => l_yield_um,
231: p_formula_input => l_formula_input,
232: x_return_status => l_return_status,
233: X_batchformula_ratio => l_batchformula_ratio);
234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
235: RAISE GET_BATCHFORMULA_RATIO_ERR;
236: END IF;
237:
238: /* Get the contributing qty of the formula */

Line 245: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

241: p_batchformula_ratio => l_batchformula_ratio,
242: p_yield_um => l_yield_um,
243: x_return_status => l_return_status,
244: X_contributing_qty => l_contributing_qty);
245: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
246: RAISE GET_CONTRIBUTING_QTY_ERR;
247: END IF;
248: /* Calculate actual contributing qty of formula */
249: l_contributing_qty := l_contributing_qty * l_ingred_prod_ratio;

Line 258: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

254: p_yield_um => l_yield_um,
255: p_formula_output => l_formula_output,
256: x_return_status => l_return_status,
257: X_output_ratio => l_output_ratio);
258: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
259: RAISE GET_INPUT_RATIO_ERR;
260: END IF;
261: END IF;
262:

Line 306: x_return_status := FND_API.G_RET_STS_SUCCESS;

302: END LOOP;
303: ELSIF (p_recipe_id IS NOT NULL) THEN
304: /* Try to get validity rules based on recipe ID */
305: FOR get_rec IN get_val(p_organization_id) LOOP
306: x_return_status := FND_API.G_RET_STS_SUCCESS;
307: i := i + 1;
308: x_recipe_validity_out(i).recipe_validity_rule_id := get_rec.recipe_validity_rule_id;
309: x_recipe_validity_out(i).recipe_id := get_rec.recipe_id;
310: x_recipe_validity_out(i).inventory_item_id := get_rec.inventory_item_id;

Line 346: x_return_status := FND_API.G_RET_STS_SUCCESS;

342: ELSE
343: l_quantity := p_product_qty;
344: END IF;
345: FOR get_rec IN get_val_item(p_organization_id, l_quantity) LOOP
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: i := i + 1;
348: x_recipe_validity_out(i).recipe_validity_rule_id := get_rec.recipe_validity_rule_id;
349: x_recipe_validity_out(i).recipe_id := get_rec.recipe_id;
350: x_recipe_validity_out(i).inventory_item_id := get_rec.inventory_item_id;

Line 371: x_return_status := FND_API.G_RET_STS_ERROR;

367: -- standard call to get msge cnt, and if cnt is 1, get mesg info
368: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
369: EXCEPTION
370: WHEN NO_YIELD_TYPE_UM THEN
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALE_BAD_YIELD_TYPE');
373: FND_MSG_PUB.ADD;
374: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
375: P_data => x_msg_data);

Line 378: x_return_status := FND_API.G_RET_STS_ERROR;

374: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
375: P_data => x_msg_data);
376:
377: WHEN GET_FORMULA_ERR THEN
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
380: P_data => x_msg_data);
381:
382: WHEN GET_TOTAL_QTY_ERR OR GET_OUTPUT_RATIO_ERR

Line 385: x_return_status := FND_API.G_RET_STS_ERROR;

381:
382: WHEN GET_TOTAL_QTY_ERR OR GET_OUTPUT_RATIO_ERR
383: OR GET_INGREDPROD_RATIO_ERR OR GET_BATCHFORMULA_RATIO_ERR
384: OR GET_CONTRIBUTING_QTY_ERR OR GET_INPUT_RATIO_ERR THEN
385: x_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
387: P_data => x_msg_data);
388: WHEN UOM_CONVERSION_ERROR THEN
389: x_return_status := FND_API.G_RET_STS_ERROR;

Line 389: x_return_status := FND_API.G_RET_STS_ERROR;

385: x_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
387: P_data => x_msg_data);
388: WHEN UOM_CONVERSION_ERROR THEN
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => p_item_id,
391: p_from_um => p_uom,
392: p_to_um => l_item_uom);
393: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,

Line 396: WHEN FND_API.G_EXC_ERROR THEN

392: p_to_um => l_item_uom);
393: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
394: P_data => x_msg_data);
395:
396: WHEN FND_API.G_EXC_ERROR THEN
397: X_return_code := SQLCODE;
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
400:

Line 398: x_return_status := FND_API.G_RET_STS_ERROR;

394: P_data => x_msg_data);
395:
396: WHEN FND_API.G_EXC_ERROR THEN
397: X_return_code := SQLCODE;
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
400:
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: X_return_code := SQLCODE;

Line 401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

397: X_return_code := SQLCODE;
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
400:
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: X_return_code := SQLCODE;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
405:

Line 403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

399: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
400:
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: X_return_code := SQLCODE;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
405:
406: WHEN OTHERS THEN
407: X_return_code := SQLCODE;

Line 408: x_return_status := FND_API.G_RET_STS_ERROR;

404: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
405:
406: WHEN OTHERS THEN
407: X_return_code := SQLCODE;
408: x_return_status := FND_API.G_RET_STS_ERROR;
409: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
410: END get_validity_rules;
411:
412: /*======================================================================

Line 449: x_return_status := FND_API.G_RET_STS_SUCCESS;

445: X_item_id NUMBER;
446: X_item_um VARCHAR2(4);
447: UOM_CONVERSION_ERROR EXCEPTION;
448: BEGIN
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: FOR get_rec IN Cur_get_prods LOOP
451: IF (get_rec.scale_type = 0) THEN
452: IF (get_rec.detail_uom <> p_yield_um) THEN
453: l_conv_qty := INV_CONVERT.inv_um_convert(item_id => get_rec.inventory_item_id

Line 476: x_return_status := FND_API.G_RET_STS_ERROR;

472: l_formula_output := p_formula_output - l_total_fixed_qty;
473: X_output_ratio := l_batch_output/l_formula_output;
474: EXCEPTION
475: WHEN UOM_CONVERSION_ERROR THEN
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
478: p_from_um => X_item_um,
479: p_to_um => p_yield_um);
480: END get_output_ratio;

Line 514: x_return_status := FND_API.G_RET_STS_SUCCESS;

510: X_item_id NUMBER;
511: X_item_um VARCHAR2(4);
512: UOM_CONVERSION_ERROR EXCEPTION;
513: BEGIN
514: x_return_status := FND_API.G_RET_STS_SUCCESS;
515: --Get sum of products in yield UM.
516: FOR get_rec IN Cur_get_details(1) LOOP
517: IF (get_rec.detail_uom <> p_yield_um) THEN
518: l_conv_qty := INV_CONVERT.inv_um_convert(item_id => get_rec.inventory_item_id

Line 561: x_return_status := FND_API.G_RET_STS_ERROR;

557: --Get ratio and return.
558: X_ingred_prod_ratio := l_sum_prods/l_sum_ingreds;
559: EXCEPTION
560: WHEN UOM_CONVERSION_ERROR THEN
561: x_return_status := FND_API.G_RET_STS_ERROR;
562: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
563: p_from_um => X_item_um,
564: p_to_um => p_yield_um);
565: END get_ingredprod_ratio;

Line 607: x_return_status := FND_API.G_RET_STS_SUCCESS;

603: X_item_id NUMBER;
604: X_item_um VARCHAR2(4);
605: UOM_CONVERSION_ERROR EXCEPTION;
606: BEGIN
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608: FOR get_rec IN Cur_get_ingreds LOOP
609: IF (get_rec.scale_type = 0) THEN
610: IF (get_rec.detail_uom <> p_yield_um) THEN
611: l_conv_qty := INV_CONVERT.inv_um_convert(item_id => get_rec.inventory_item_id

Line 634: x_return_status := FND_API.G_RET_STS_ERROR;

630: l_formula_input := p_formula_input - l_fixed_ingred;
631: X_batchformula_ratio := l_batch_input / l_formula_input;
632: EXCEPTION
633: WHEN UOM_CONVERSION_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
636: p_from_um => X_item_um,
637: p_to_um => p_yield_um);
638: END get_batchformula_ratio;

Line 682: x_return_status := FND_API.G_RET_STS_SUCCESS;

678: BEGIN
679: -- Initialize variable to 0.
680: X_contributing_qty := 0;
681:
682: x_return_status := FND_API.G_RET_STS_SUCCESS;
683: /* Loop through ingredients and determine total contributing qty */
684: FOR get_rec IN Cur_get_ingreds LOOP
685: IF (get_rec.contribute_yield_ind = 'Y') THEN
686: /* Convert all ingredient values to yield UM and determine contributing qty */

Line 722: IF (X_status <> FND_API.G_RET_STS_SUCCESS) THEN

718: x_msg_data => l_msg_data,
719: x_return_status => X_status,
720: X_RECIPE_THEO_LOSS => l_recipe_theo_loss);
721:
722: IF (X_status <> FND_API.G_RET_STS_SUCCESS) THEN
723: RAISE PROCESS_LOSS_ERR;
724: END IF;
725: X_contributing_qty := X_contributing_qty * (100 - l_process_loss);
726: EXCEPTION

Line 728: x_return_status := FND_API.G_RET_STS_ERROR;

724: END IF;
725: X_contributing_qty := X_contributing_qty * (100 - l_process_loss);
726: EXCEPTION
727: WHEN UOM_CONVERSION_ERROR THEN
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
730: p_from_um => X_item_um,
731: p_to_um => p_yield_um);
732: END get_contributing_qty;

Line 794: x_return_status := FND_API.G_RET_STS_ERROR;

790: l_formula_output := P_formula_output - l_fixed_prod;
791: X_output_ratio := l_contributing_qty / l_formula_output;
792: EXCEPTION
793: WHEN UOM_CONVERSION_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_ERROR;
795: gmd_fetch_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
796: p_from_um => X_item_um,
797: p_to_um => p_yield_um);
798: END get_input_ratio;