DBA Data[Home] [Help]

APPS.GMD_VALIDITY_RULES dependencies on FND_API

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

26: --
27: --===================================================================== */
28:
29: PROCEDURE get_validity_rules(p_api_version IN NUMBER ,
30: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
31: p_recipe_no IN VARCHAR2 := NULL ,
32: p_recipe_version IN NUMBER := NULL ,
33: p_recipe_id IN NUMBER := NULL ,
34: p_total_input IN NUMBER := NULL ,

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

235: l_return_status VARCHAR2(10);
236: l_form_id NUMBER;
237:
238: BEGIN
239: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
240: l_api_name, G_PKG_NAME)) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: IF (FND_API.to_Boolean(p_init_msg_list)) THEN

Line 241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

237:
238: BEGIN
239: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
240: l_api_name, G_PKG_NAME)) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
244: FND_MSG_PUB.initialize;
245: END IF;

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

239: IF (NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
240: l_api_name, G_PKG_NAME)) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
244: FND_MSG_PUB.initialize;
245: END IF;
246: X_return_status := FND_API.G_RET_STS_SUCCESS;
247:

Line 246: X_return_status := FND_API.G_RET_STS_SUCCESS;

242: END IF;
243: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
244: FND_MSG_PUB.initialize;
245: END IF;
246: X_return_status := FND_API.G_RET_STS_SUCCESS;
247:
248: /* Bug No.6346013 - Start */
249:
250: /* Delete from this table for any existing data */

Line 302: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND

298: /*The return status can be 'Q' from the above call for two reasons either */
299: /*the total input qty was not calculatable or the total output qty is not */
300: /*calculatable, we need to see the mode in which this procedure was invoked */
301: /*to determine if an error should be raised */
302: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND
303: (l_return_status <> 'Q') THEN
304: RAISE GET_TOTAL_QTY_ERR;
305: ELSIF l_return_status = 'Q' THEN
306: IF (p_total_output IS NOT NULL) AND

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

334: p_yield_um => l_uom,
335: p_formula_output => l_formula_output,
336: x_return_status => l_return_status,
337: X_output_ratio => l_output_ratio);
338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
339: RAISE GET_OUTPUT_RATIO_ERR;
340: END IF;
341: ELSIF (p_total_input IS NOT NULL) THEN
342:

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

344: gmd_validity_rules.get_ingredprod_ratio(p_formula_id => l_formula_id,
345: p_yield_um => l_uom,
346: x_return_status => l_return_status,
347: X_ingred_prod_ratio => l_ingred_prod_ratio);
348: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
349: RAISE GET_INGREDPROD_RATIO_ERR;
350: END IF;
351: /* Get the ratio of the batch input to the formula input */
352: gmd_validity_rules.get_batchformula_ratio(p_formula_id => l_formula_id,

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

354: p_yield_um => l_uom,
355: p_formula_input => l_formula_input,
356: x_return_status => l_return_status,
357: X_batchformula_ratio => l_batchformula_ratio);
358: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
359: RAISE GET_BATCHFORMULA_RATIO_ERR;
360: END IF;
361:
362: /* Get the contributing qty of the formula */

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

365: p_batchformula_ratio => l_batchformula_ratio,
366: p_yield_um => l_uom,
367: x_return_status => l_return_status,
368: X_contributing_qty => l_contributing_qty);
369: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
370: RAISE GET_CONTRIBUTING_QTY_ERR;
371: END IF;
372: /* Calculate actual contributing qty of formula */
373: l_contributing_qty := l_contributing_qty * l_ingred_prod_ratio;

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

378: p_yield_um => l_uom,
379: p_formula_output => l_formula_input,
380: x_return_status => l_return_status,
381: X_output_ratio => l_output_ratio);
382: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
383: RAISE GET_INPUT_RATIO_ERR;
384: END IF;
385: END IF;
386:

Line 406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

402: ,p_organization_id => p_organization_id
403: ,p_orgn_code => l_orgn_code
404: ,x_return_status => l_return_status
405: ,p_Production_check => TRUE);
406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
407: RAISE ITEM_ORGN_MISSING;
408: END IF;
409: END IF;
410: -- End NPD Conv.

Line 443: IF l_return_status <> FND_API.g_ret_sts_success THEN

439: ,p_organization_id => p_organization_id
440: ,X_unit_cost => l_unit_cost
441: ,X_total_cost => l_total_cost
442: ,X_return_status => l_return_status);
443: IF l_return_status <> FND_API.g_ret_sts_success THEN
444: RAISE GET_FORMULA_COST_ERR;
445: END IF;
446: END IF; /* IF p_least_cost_validity = 'T' */
447: GMD_VALIDITY_RULES.insert_val_temp_tbl(p_val_rec => get_rec

Line 454: x_return_status := FND_API.G_RET_STS_ERROR;

450: END IF; /* IF (l_item_qty >= get_rec.min_qty AND l_item_qty <= get_rec.max_qty) */
451: END IF; /* IF (l_scale_type = 1) */
452: EXCEPTION
453: WHEN ITEM_ORGN_MISSING THEN
454: x_return_status := FND_API.G_RET_STS_ERROR;
455: END;
456: END LOOP;
457: ELSIF (p_item_id IS NOT NULL or p_item_no IS NOT NULL) THEN
458:

Line 500: x_return_status := FND_API.G_RET_STS_SUCCESS;

496: END IF;
497:
498: FOR get_rec IN get_val_item(l_quantity) LOOP
499: BEGIN
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
501:
502: /* Get the formula for this recipe */
503: OPEN Cur_get_formula (get_rec.recipe_id);
504: FETCH Cur_get_formula INTO l_formula_id;

Line 521: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

517: ,p_organization_id => p_organization_id
518: ,p_orgn_code => p_orgn_code
519: ,x_return_status => l_return_status
520: ,p_Production_check => TRUE);
521: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
522: RAISE ITEM_ORGN_MISSING;
523: END IF;
524: END IF;
525: -- End NPD Conv.

Line 536: IF l_return_status <> FND_API.g_ret_sts_success THEN

532: ,p_organization_id => p_organization_id
533: ,X_unit_cost => l_unit_cost
534: ,X_total_cost => l_total_cost
535: ,X_return_status => l_return_status);
536: IF l_return_status <> FND_API.g_ret_sts_success THEN
537: RAISE GET_FORMULA_COST_ERR;
538: END IF;
539: END IF; /* IF p_least_cost_validity = 'T' */
540:

Line 546: x_return_status := FND_API.G_RET_STS_ERROR;

542: ,p_unit_cost => l_unit_cost
543: ,p_total_cost => l_total_cost);
544: EXCEPTION
545: WHEN ITEM_ORGN_MISSING THEN
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: END;
548: END LOOP;
549:
550: ELSE

Line 610: x_return_status := FND_API.G_RET_STS_SUCCESS;

606: -- Bug 3818835 - End
607:
608: FOR get_rec IN get_val LOOP
609: BEGIN
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612: -- NPD Conv.
613: IF (p_orgn_code IS NOT NULL OR (p_orgn_code IS NULL AND p_organization_id IS NOT NULL)) THEN
614:

Line 628: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

624: ,p_orgn_code => l_orgn_code
625: ,x_return_status => l_return_status
626: ,p_Production_check => TRUE);
627:
628: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
629: RAISE ITEM_ORGN_MISSING;
630: END IF;
631: END IF;
632: -- End NPD Conv.

Line 647: IF l_return_status <> FND_API.g_ret_sts_success THEN

643: ,p_organization_id => p_organization_id
644: ,X_unit_cost => l_unit_cost
645: ,X_total_cost => l_total_cost
646: ,X_return_status => l_return_status);
647: IF l_return_status <> FND_API.g_ret_sts_success THEN
648: RAISE GET_FORMULA_COST_ERR;
649: END IF;
650: END IF; /* IF p_least_cost_validity = 'T' */
651:

Line 659: x_return_status := FND_API.G_RET_STS_ERROR;

655:
656: END IF; /* IF (l_quantity >= get_rec.min_qty AND l_quantity <= get_rec.max_qty) */
657: EXCEPTION
658: WHEN ITEM_ORGN_MISSING THEN
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: END;
661: END LOOP;
662: END IF;
663:

Line 727: X_return_status := Fnd_api.G_ret_sts_success;

723: x_recipe_validity_out(i).total_cost := l_rec.total_cost ;
724: END LOOP;
725:
726: IF i > 0 THEN
727: X_return_status := Fnd_api.G_ret_sts_success;
728: END IF;
729:
730: -- standard call to get msge cnt, and if cnt is 1, get mesg info
731: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);

Line 734: x_return_status := FND_API.G_RET_STS_ERROR;

730: -- standard call to get msge cnt, and if cnt is 1, get mesg info
731: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
732: EXCEPTION
733: WHEN NO_YIELD_TYPE_UM THEN
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALE_BAD_YIELD_TYPE');
736: FND_MSG_PUB.ADD;
737: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
738: P_data => x_msg_data);

Line 740: x_return_status := FND_API.G_RET_STS_ERROR;

736: FND_MSG_PUB.ADD;
737: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
738: P_data => x_msg_data);
739: WHEN GET_FORMULA_COST_ERR THEN
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
742: P_data => x_msg_data);
743: WHEN GET_FORMULA_ERR THEN
744: x_return_status := FND_API.G_RET_STS_ERROR;

Line 744: x_return_status := FND_API.G_RET_STS_ERROR;

740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
742: P_data => x_msg_data);
743: WHEN GET_FORMULA_ERR THEN
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
746: P_data => x_msg_data);
747: WHEN GET_TOTAL_QTY_ERR OR GET_OUTPUT_RATIO_ERR
748: OR GET_INGREDPROD_RATIO_ERR OR GET_BATCHFORMULA_RATIO_ERR

Line 750: x_return_status := FND_API.G_RET_STS_ERROR;

746: P_data => x_msg_data);
747: WHEN GET_TOTAL_QTY_ERR OR GET_OUTPUT_RATIO_ERR
748: OR GET_INGREDPROD_RATIO_ERR OR GET_BATCHFORMULA_RATIO_ERR
749: OR GET_CONTRIBUTING_QTY_ERR OR GET_INPUT_RATIO_ERR THEN
750: x_return_status := FND_API.G_RET_STS_ERROR;
751: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
752: P_data => x_msg_data);
753: WHEN UOM_CONVERSION_ERROR THEN
754: x_return_status := FND_API.G_RET_STS_ERROR;

Line 754: x_return_status := FND_API.G_RET_STS_ERROR;

750: x_return_status := FND_API.G_RET_STS_ERROR;
751: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
752: P_data => x_msg_data);
753: WHEN UOM_CONVERSION_ERROR THEN
754: x_return_status := FND_API.G_RET_STS_ERROR;
755: gmd_validity_rules.uom_conversion_mesg(p_item_id => p_item_id,
756: p_from_um => p_uom,
757: p_to_um => l_item_uom);
758: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,

Line 761: WHEN FND_API.G_EXC_ERROR THEN

757: p_to_um => l_item_uom);
758: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
759: P_data => x_msg_data);
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: X_return_code := SQLCODE;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
765:

Line 763: x_return_status := FND_API.G_RET_STS_ERROR;

759: P_data => x_msg_data);
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: X_return_code := SQLCODE;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
765:
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: X_return_code := SQLCODE;

Line 766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

762: X_return_code := SQLCODE;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
765:
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: X_return_code := SQLCODE;
768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
769: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
770:

Line 768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

764: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
765:
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: X_return_code := SQLCODE;
768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
769: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
770:
771: WHEN OTHERS THEN
772: X_return_code := SQLCODE;

Line 773: x_return_status := FND_API.G_RET_STS_ERROR;

769: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
770:
771: WHEN OTHERS THEN
772: X_return_code := SQLCODE;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
775: END get_validity_rules;
776:
777: /*======================================================================

Line 815: x_return_status := FND_API.G_RET_STS_SUCCESS;

811: X_detail_uom VARCHAR2(4);
812: UOM_CONVERSION_ERROR EXCEPTION;
813:
814: BEGIN
815: x_return_status := FND_API.G_RET_STS_SUCCESS;
816: FOR get_rec IN Cur_get_prods
817: LOOP
818: IF (get_rec.scale_type = 0) THEN
819: IF (get_rec.detail_uom <> p_yield_um) THEN

Line 847: x_return_status := FND_API.G_RET_STS_ERROR;

843: X_output_ratio := l_batch_output/l_formula_output;
844:
845: EXCEPTION
846: WHEN UOM_CONVERSION_ERROR THEN
847: x_return_status := FND_API.G_RET_STS_ERROR;
848: gmd_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
849: p_from_um => X_detail_uom,
850: p_to_um => p_yield_um);
851: END get_output_ratio;

Line 887: x_return_status := FND_API.G_RET_STS_SUCCESS;

883: X_item_id NUMBER;
884: X_detail_uom VARCHAR2(4);
885: UOM_CONVERSION_ERROR EXCEPTION;
886: BEGIN
887: x_return_status := FND_API.G_RET_STS_SUCCESS;
888: --Get sum of products in yield UM.
889: FOR get_rec IN Cur_get_details(1)
890: LOOP
891: IF (get_rec.detail_uom <> p_yield_um) THEN

Line 940: x_return_status := FND_API.G_RET_STS_ERROR;

936: --Get ratio and return.
937: X_ingred_prod_ratio := l_sum_prods/l_sum_ingreds;
938: EXCEPTION
939: WHEN UOM_CONVERSION_ERROR THEN
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: gmd_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
942: p_from_um => X_detail_uom,
943: p_to_um => p_yield_um);
944: END get_ingredprod_ratio;

Line 988: x_return_status := FND_API.G_RET_STS_SUCCESS;

984: X_item_id NUMBER;
985: X_detail_uom VARCHAR2(4);
986: UOM_CONVERSION_ERROR EXCEPTION;
987: BEGIN
988: x_return_status := FND_API.G_RET_STS_SUCCESS;
989: FOR get_rec IN Cur_get_ingreds LOOP
990: IF (get_rec.scale_type = 0) THEN
991: IF (get_rec.detail_uom <> p_yield_um) THEN
992:

Line 1017: x_return_status := FND_API.G_RET_STS_ERROR;

1013: l_formula_input := p_formula_input - l_fixed_ingred;
1014: X_batchformula_ratio := l_batch_input / l_formula_input;
1015: EXCEPTION
1016: WHEN UOM_CONVERSION_ERROR THEN
1017: x_return_status := FND_API.G_RET_STS_ERROR;
1018: gmd_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
1019: p_from_um => X_detail_uom,
1020: p_to_um => p_yield_um);
1021: END get_batchformula_ratio;

Line 1065: x_return_status := FND_API.G_RET_STS_SUCCESS;

1061: UOM_CONVERSION_ERROR EXCEPTION;
1062: PROCESS_LOSS_ERR EXCEPTION;
1063: BEGIN
1064: x_contributing_qty := 0;
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1066: /* Loop through ingredients and determine total contributing qty */
1067: FOR get_rec IN Cur_get_ingreds LOOP
1068: IF (get_rec.contribute_yield_ind = 'Y') THEN
1069: /* Convert all ingredient values to yield UM and determine contributing qty */

Line 1106: /* IF (X_status <> FND_API.G_RET_STS_SUCCESS) THEN

1102: x_return_status => X_status,
1103: x_msg_count => l_msg_count,
1104: x_msg_data => l_msg_data);
1105:
1106: /* IF (X_status <> FND_API.G_RET_STS_SUCCESS) THEN
1107: RAISE PROCESS_LOSS_ERR;
1108: END IF;*/
1109: /* Shrikant : Added NVL and / 100 in the following equation */
1110: X_contributing_qty := X_contributing_qty * (100 - NVL(l_process_loss,0))/100;

Line 1113: x_return_status := FND_API.G_RET_STS_ERROR;

1109: /* Shrikant : Added NVL and / 100 in the following equation */
1110: X_contributing_qty := X_contributing_qty * (100 - NVL(l_process_loss,0))/100;
1111: EXCEPTION
1112: WHEN UOM_CONVERSION_ERROR THEN
1113: x_return_status := FND_API.G_RET_STS_ERROR;
1114: gmd_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
1115: p_from_um => X_detail_uom,
1116: p_to_um => p_yield_um);
1117: END get_contributing_qty;

Line 1183: x_return_status := FND_API.G_RET_STS_ERROR;

1179: l_formula_output := P_formula_output - l_fixed_prod;
1180: X_output_ratio := l_contributing_qty / l_formula_output;
1181: EXCEPTION
1182: WHEN UOM_CONVERSION_ERROR THEN
1183: x_return_status := FND_API.G_RET_STS_ERROR;
1184: gmd_validity_rules.uom_conversion_mesg(p_item_id => X_item_id,
1185: p_from_um => X_detail_uom,
1186: p_to_um => p_yield_um);
1187: END get_input_ratio;

Line 1247: P_init_msg_list IN VARCHAR2 := Fnd_api.G_false,

1243: --===================================================================== */
1244: /* Formatted on 2002/07/11 18:01 (RevealNet Formatter v4.4.0) */
1245: PROCEDURE Get_all_validity_rules (
1246: P_api_version IN NUMBER,
1247: P_init_msg_list IN VARCHAR2 := Fnd_api.G_false,
1248: P_recipe_id IN NUMBER := NULL,
1249: P_item_id IN NUMBER := NULL,
1250: p_revision IN VARCHAR2 := NULL,
1251: p_least_cost_validity IN VARCHAR2 := 'F',

Line 1313: IF (NOT Fnd_api.Compatible_api_call ( L_api_version,

1309:
1310: GET_FORMULA_COST_ERR EXCEPTION;
1311:
1312: BEGIN
1313: IF (NOT Fnd_api.Compatible_api_call ( L_api_version,
1314: P_api_version,
1315: L_api_name,
1316: G_pkg_name ))
1317: THEN

Line 1318: RAISE Fnd_api.G_exc_unexpected_error;

1314: P_api_version,
1315: L_api_name,
1316: G_pkg_name ))
1317: THEN
1318: RAISE Fnd_api.G_exc_unexpected_error;
1319: END IF;
1320:
1321: IF (Fnd_api.To_boolean (P_init_msg_list))
1322: THEN

Line 1321: IF (Fnd_api.To_boolean (P_init_msg_list))

1317: THEN
1318: RAISE Fnd_api.G_exc_unexpected_error;
1319: END IF;
1320:
1321: IF (Fnd_api.To_boolean (P_init_msg_list))
1322: THEN
1323: Fnd_msg_pub.Initialize;
1324: END IF;
1325:

Line 1326: X_return_status := Fnd_api.G_ret_sts_success;

1322: THEN
1323: Fnd_msg_pub.Initialize;
1324: END IF;
1325:
1326: X_return_status := Fnd_api.G_ret_sts_success;
1327:
1328: /* Delete from this table for any existing data */
1329: DELETE FROM GMD_VAL_RULE_GTMP;
1330:

Line 1333: X_return_status := Fnd_api.G_ret_sts_success;

1329: DELETE FROM GMD_VAL_RULE_GTMP;
1330:
1331: IF (P_item_id IS NOT NULL) THEN
1332: FOR Get_rec IN Get_val_item LOOP
1333: X_return_status := Fnd_api.G_ret_sts_success;
1334:
1335: IF p_least_cost_validity = 'T' THEN
1336: OPEN Cur_get_form_id (get_rec.recipe_id, get_rec.inventory_item_id);
1337: FETCH Cur_get_form_id INTO l_formula_id, l_quantity, l_uom;

Line 1348: IF l_return_status <> FND_API.g_ret_sts_success THEN

1344: ,p_organization_id => get_rec.organization_id
1345: ,X_unit_cost => l_unit_cost
1346: ,X_total_cost => l_total_cost
1347: ,X_return_status => l_return_status);
1348: IF l_return_status <> FND_API.g_ret_sts_success THEN
1349: RAISE GET_FORMULA_COST_ERR;
1350: END IF;
1351: END IF;
1352: END IF; /* IF p_least_cost_validity = 'T' */

Line 1360: X_return_status := Fnd_api.G_ret_sts_success;

1356: END LOOP;
1357: ELSE
1358: /* Try to get validity rules based on recipe ID */
1359: FOR Get_rec IN Get_val_recipe LOOP
1360: X_return_status := Fnd_api.G_ret_sts_success;
1361:
1362: IF p_least_cost_validity = 'T' THEN
1363: OPEN Cur_get_form_id (get_rec.recipe_id, get_rec.inventory_item_id);
1364: FETCH Cur_get_form_id INTO l_formula_id, l_quantity, l_uom;

Line 1375: IF l_return_status <> FND_API.g_ret_sts_success THEN

1371: ,p_organization_id => get_rec.organization_id
1372: ,X_unit_cost => l_unit_cost
1373: ,X_total_cost => l_total_cost
1374: ,X_return_status => l_return_status);
1375: IF l_return_status <> FND_API.g_ret_sts_success THEN
1376: RAISE GET_FORMULA_COST_ERR;
1377: END IF;
1378: END IF;
1379: END IF; /* IF p_least_cost_validity = 'T' */

Line 1453: x_return_status := FND_API.G_RET_STS_ERROR;

1449: Fnd_msg_pub.Count_and_get (P_count => X_msg_count, P_data => X_msg_data);
1450:
1451: EXCEPTION
1452: WHEN GET_FORMULA_COST_ERR THEN
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1455: P_data => x_msg_data);
1456: WHEN Fnd_api.G_exc_error THEN
1457: X_return_code := SQLCODE;

Line 1456: WHEN Fnd_api.G_exc_error THEN

1452: WHEN GET_FORMULA_COST_ERR THEN
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1455: P_data => x_msg_data);
1456: WHEN Fnd_api.G_exc_error THEN
1457: X_return_code := SQLCODE;
1458: X_return_status := Fnd_api.G_ret_sts_error;
1459: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1460: P_data=> X_msg_data );

Line 1458: X_return_status := Fnd_api.G_ret_sts_error;

1454: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1455: P_data => x_msg_data);
1456: WHEN Fnd_api.G_exc_error THEN
1457: X_return_code := SQLCODE;
1458: X_return_status := Fnd_api.G_ret_sts_error;
1459: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1460: P_data=> X_msg_data );
1461: WHEN Fnd_api.G_exc_unexpected_error THEN
1462: X_return_code := SQLCODE;

Line 1461: WHEN Fnd_api.G_exc_unexpected_error THEN

1457: X_return_code := SQLCODE;
1458: X_return_status := Fnd_api.G_ret_sts_error;
1459: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1460: P_data=> X_msg_data );
1461: WHEN Fnd_api.G_exc_unexpected_error THEN
1462: X_return_code := SQLCODE;
1463: X_return_status := Fnd_api.G_ret_sts_unexp_error;
1464: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1465: P_data=> X_msg_data );

Line 1463: X_return_status := Fnd_api.G_ret_sts_unexp_error;

1459: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1460: P_data=> X_msg_data );
1461: WHEN Fnd_api.G_exc_unexpected_error THEN
1462: X_return_code := SQLCODE;
1463: X_return_status := Fnd_api.G_ret_sts_unexp_error;
1464: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1465: P_data=> X_msg_data );
1466: WHEN OTHERS THEN
1467: X_return_code := SQLCODE;

Line 1468: X_return_status := Fnd_api.G_ret_sts_error;

1464: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1465: P_data=> X_msg_data );
1466: WHEN OTHERS THEN
1467: X_return_code := SQLCODE;
1468: X_return_status := Fnd_api.G_ret_sts_error;
1469: Fnd_msg_pub.Count_and_get ( P_count=> X_msg_count,
1470: P_data=> X_msg_data );
1471: END Get_all_validity_rules;
1472:

Line 1510: x_return_status := FND_API.g_ret_sts_success;

1506: ITEM_NOT_FOUND EXCEPTION;
1507: UOM_CONVERSION_ERR EXCEPTION;
1508: BEGIN
1509: /* Let us initialize the return status to success */
1510: x_return_status := FND_API.g_ret_sts_success;
1511:
1512: /* Let us fetch the product quantities in the formula for the item passed in */
1513: OPEN Cur_get_product_lines;
1514: FETCH Cur_get_product_lines INTO l_prod_rec;

Line 1550: x_return_status := FND_API.g_ret_sts_error;

1546: x_scale_factor := p_std_qty;
1547: END IF;
1548: EXCEPTION
1549: WHEN item_not_found THEN
1550: x_return_status := FND_API.g_ret_sts_error;
1551: WHEN uom_conversion_err THEN
1552: x_return_status := FND_API.g_ret_sts_error;
1553: uom_conversion_mesg (p_item_id, l_prod_rec.detail_uom, p_std_um);
1554: WHEN OTHERS THEN

Line 1552: x_return_status := FND_API.g_ret_sts_error;

1548: EXCEPTION
1549: WHEN item_not_found THEN
1550: x_return_status := FND_API.g_ret_sts_error;
1551: WHEN uom_conversion_err THEN
1552: x_return_status := FND_API.g_ret_sts_error;
1553: uom_conversion_mesg (p_item_id, l_prod_rec.detail_uom, p_std_um);
1554: WHEN OTHERS THEN
1555: x_return_status := FND_API.g_ret_sts_unexp_error;
1556: fnd_msg_pub.add_exc_msg ('GMD_VALIDITY_RULES', 'GET_VALIDITY_SCALE_FACTOR');

Line 1555: x_return_status := FND_API.g_ret_sts_unexp_error;

1551: WHEN uom_conversion_err THEN
1552: x_return_status := FND_API.g_ret_sts_error;
1553: uom_conversion_mesg (p_item_id, l_prod_rec.detail_uom, p_std_um);
1554: WHEN OTHERS THEN
1555: x_return_status := FND_API.g_ret_sts_unexp_error;
1556: fnd_msg_pub.add_exc_msg ('GMD_VALIDITY_RULES', 'GET_VALIDITY_SCALE_FACTOR');
1557: END get_validity_scale_factor;
1558:
1559: /*======================================================================

Line 1599: x_return_status := FND_API.g_ret_sts_success;

1595: l_uom mtl_units_of_measure.unit_of_measure%TYPE;
1596:
1597: BEGIN
1598: /* Let us initialize the return status to success */
1599: x_return_status := FND_API.g_ret_sts_success;
1600:
1601: /* Lets get the scale factor between the validity std qty and the formula product qty */
1602: gmd_validity_rules.get_validity_scale_factor (p_recipe_id => p_recipe_id
1603: ,p_item_id => p_item_id

Line 1649: x_return_status := FND_API.g_ret_sts_unexp_error;

1645: x_scale_factor := 1;
1646: END IF;
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: x_return_status := FND_API.g_ret_sts_unexp_error;
1650: fnd_msg_pub.add_exc_msg ('GMD_VALIDITY_RULES', 'GET_VALIDITY_OUTPUT_FACTOR');
1651: END get_validity_output_factor;
1652:
1653: /*=================================================================================

Line 1782: X_return_status := FND_API.G_RET_STS_SUCCESS;

1778:
1779: SCALE_ERROR EXCEPTION;
1780: BEGIN
1781: /* Initialize return status to success */
1782: X_return_status := FND_API.G_RET_STS_SUCCESS;
1783:
1784: l_organization_id := P_organization_id;
1785:
1786: /* Get the cost source organization for the organization passed in */

Line 1839: IF l_return_status <> FND_API.G_ret_sts_success THEN

1835: ,p_scale_factor => p_requested_qty / l_product_qty
1836: ,p_primaries => 'PRODUCT'
1837: ,x_scale_tab => l_scale_tab_out
1838: ,x_return_status => l_return_status);
1839: IF l_return_status <> FND_API.G_ret_sts_success THEN
1840: RAISE SCALE_ERROR;
1841: END IF;
1842: ELSE
1843: l_scale_tab_out := l_scale_tab_in;

Line 1869: x_return_status := FND_API.G_RET_STS_ERROR;

1865: X_unit_cost := l_ing_cost / l_ing_qty;
1866: END IF;
1867: EXCEPTION
1868: WHEN SCALE_ERROR THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: END Get_Formula_Cost;
1871:
1872:
1873: END GMD_VALIDITY_RULES;