[Home] [Help]
244: l_api_name, G_PKG_NAME) THEN
245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
246: END IF;
247: IF FND_API.to_Boolean(p_init_msg_list) THEN
248: FND_MSG_PUB.initialize;
249: END IF;
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251:
252: IF (p_customer_id IS NOT NULL OR p_customer_no IS NOT NULL) THEN
278:
279: /* no standard check of p_commit because no insert/update/delete */
280:
281: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
282: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
283:
284: EXCEPTION
285: WHEN FND_API.G_EXC_ERROR THEN
286: X_return_code := SQLCODE;
284: EXCEPTION
285: WHEN FND_API.G_EXC_ERROR THEN
286: X_return_code := SQLCODE;
287: x_return_status := FND_API.G_RET_STS_ERROR;
288: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
289:
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: X_return_code := SQLCODE;
292:
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: X_return_code := SQLCODE;
292:
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
295:
296: WHEN OTHERS THEN
297: X_return_code := SQLCODE;
298: x_return_status := FND_API.G_RET_STS_ERROR;
295:
296: WHEN OTHERS THEN
297: X_return_code := SQLCODE;
298: x_return_status := FND_API.G_RET_STS_ERROR;
299: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
300:
301: END customer_exists;
302:
303:
378: l_api_name, G_PKG_NAME) THEN
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380: END IF;
381: IF FND_API.to_Boolean(p_init_msg_list) THEN
382: FND_MSG_PUB.initialize;
383: END IF;
384: x_return_status := FND_API.G_RET_STS_SUCCESS;
385:
386:
390:
391: /* no standard check of p_commit because no insert/update/delete */
392:
393: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
394: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
395:
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: X_return_code := SQLCODE;
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: X_return_code := SQLCODE;
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
401:
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: X_return_code := SQLCODE;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401:
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: X_return_code := SQLCODE;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
406:
407: WHEN OTHERS THEN
408: X_return_code := SQLCODE;
409: x_return_status := FND_API.G_RET_STS_ERROR;
407: WHEN OTHERS THEN
408: X_return_code := SQLCODE;
409: x_return_status := FND_API.G_RET_STS_ERROR;
410:
411: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
412:
413: END action_code;
414:
415: /* ========================================================= */
445: FETCH Status_cur INTO l_status_code, l_meaning, l_description;
446: IF (Status_cur%NOTFOUND) THEN
447: x_return_status := 'E';
448: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_STATUS_CODE');
449: FND_MSG_PUB.Add;
450: Else
451: x_return_status := 'S';
452: Meaning := l_meaning;
453: Description := l_description;
621: gmd_debug.log_initialize('CalcProcessLoss');
622: END IF;
623: /* Initialize the return status and the message list*/
624: x_return_status := 'S';
625: FND_MSG_PUB.initialize;
626:
627: /* get the values from the record that is input */
628: l_qty := process_loss.qty;
629: l_recipe_id := process_loss.recipe_id;
672: l_routing_class := NULL;
673: /* TPL cannot be calculated */
674: x_return_status := 'E';
675: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_WO_ROUT_CLS');
676: FND_MSG_PUB.Add;
677: END IF;
678: CLOSE Rout_hdr_cur;
679: IF (l_debug = 'Y') THEN
680: gmd_debug.put_line(' Rout Class:'||l_routing_class ||'Rout Qty:'||l_routing_qty ||' Planned Loss:'||l_routing_planned_loss);
685: IF (Rout_cls_cur%NOTFOUND) THEN
686: l_routing_uom := NULL;
687: x_return_status := 'E';
688: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_WO_ROUT_UOM');
689: FND_MSG_PUB.Add;
690: END IF;
691: CLOSE Rout_cls_cur;
692: IF (l_debug = 'Y') THEN
693: gmd_debug.put_line(' Routing UOM : '||l_routing_uom);
710:
711: IF (NVL(l_routing_qty,0) < 0) THEN
712: x_return_status := 'E';
713: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_WO_ROUT_UOM');
714: FND_MSG_PUB.Add;
715: END IF;
716:
717: OPEN process_loss_cur(l_routing_class,l_routing_qty);
718: FETCH process_loss_cur INTO l_routing_theo_loss;
720: /* Theo process loss has not been defined. */
721: l_routing_theo_loss := NULL;
722: x_return_status := 'E';
723: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_NOT_DEFINED');
724: FND_MSG_PUB.Add;
725: END IF;
726: CLOSE process_loss_cur;
727: IF (l_debug = 'Y') THEN
728: gmd_debug.put_line(' Routing Theoretical Loss:'||l_routing_theo_loss);
786: fetch process_loss_cur INTO l_recipe_theo_loss;
787: IF (process_loss_cur%NOTFOUND) THEN
788: x_return_status := 'E';
789: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_NOT_DEFINED');
790: FND_MSG_PUB.Add;
791: l_recipe_theo_loss := NULL;
792: l_recipe_pp_loss := NULL;
793: ELSE
794: /* After applying the routing loss proration */
881: fetch process_loss_cur INTO x_recipe_theo_loss;
882: IF (process_loss_cur%NOTFOUND) THEN
883: x_return_status := 'E';
884: FND_MESSAGE.SET_NAME('GMD', 'GMD_TPL_NOT_DEFINED');
885: FND_MSG_PUB.Add;
886: x_recipe_theo_loss := NULL;
887: x_process_loss := NULL;
888: ELSE
889: /* After applying the routing loss proration */
942: x_process_loss := l_routing_theo_loss;
943: END IF;
944:
945: /* return the message count and data */
946: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
947: P_data => x_msg_data);
948:
949: EXCEPTION
950: WHEN FND_API.g_exc_error THEN
952: When Others then
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
955: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
956: FND_MSG_PUB.ADD;
957: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
958: P_data => x_msg_data);
959: END Calculate_Process_loss;
960:
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
955: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
956: FND_MSG_PUB.ADD;
957: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
958: P_data => x_msg_data);
959: END Calculate_Process_loss;
960:
961:
1070:
1071: /* If the x_uom is yet NULL then its an error */
1072: IF (x_uom IS NULL) Then
1073: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALE_BAD_YIELD_TYPE');
1074: FND_MSG_PUB.Add;
1075: x_return_status := 'E';
1076: END IF;
1077:
1078: /* Bug 1683702 - Thomas Daniel */
1122: IF l_temp_qty < 0 THEN
1123: x_ingredient_qty := NULL;
1124: x_return_status := 'Q';
1125: FND_MESSAGE.SET_NAME('GMD', 'GMD_CANNOT_CALC_TOQ');
1126: FND_MSG_PUB.Add;
1127: Exit;
1128: ELSE
1129: X_ingredient_qty := X_ingredient_qty + l_temp_qty;
1130: END IF;
1145: IF l_temp_qty < 0 THEN
1146: x_product_qty := NULL;
1147: x_return_status := 'Q';
1148: FND_MESSAGE.SET_NAME('GMD', 'GMD_CANNOT_CALC_TOQ');
1149: FND_MSG_PUB.Add;
1150: Exit;
1151: ELSE
1152: x_product_qty := x_product_qty + l_temp_qty;
1153: END IF;
1153: END IF;
1154: END IF;
1155: END LOOP;
1156:
1157: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1158: P_data => x_msg_data);
1159:
1160: EXCEPTION
1161: WHEN FND_API.g_exc_error THEN
1163: WHEN Others THEN
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1166: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1167: FND_MSG_PUB.ADD;
1168: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1169: P_data => x_msg_data);
1170:
1171: END Calculate_Total_Qty;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1166: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1167: FND_MSG_PUB.ADD;
1168: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
1169: P_data => x_msg_data);
1170:
1171: END Calculate_Total_Qty;
1172:
1255: /*Changed the checking from return_status to l_product_qty */
1256: /*as the calculate_total_qty routine was passing back the */
1257: /*return status as 'Q' if the ingredient conversions were */
1258: /*not setup, though the product conversions have been setup */
1259: FND_MSG_PUB.INITIALIZE;
1260: FND_MESSAGE.SET_NAME ('GMD', 'GMD_ERR_CALC_ROUT_FACT');
1261: FND_MSG_PUB.add;
1262: x_return_status := 'W';
1263: RETURN 1;
1257: /*return status as 'Q' if the ingredient conversions were */
1258: /*not setup, though the product conversions have been setup */
1259: FND_MSG_PUB.INITIALIZE;
1260: FND_MESSAGE.SET_NAME ('GMD', 'GMD_ERR_CALC_ROUT_FACT');
1261: FND_MSG_PUB.add;
1262: x_return_status := 'W';
1263: RETURN 1;
1264: END IF;
1265: END IF;
1306: not setup, though the product conversions have been setup
1307: IF l_product_qty > 0 THEN
1308: l_recipe_qty := l_product_qty;
1309: ELSE
1310: FND_MSG_PUB.INITIALIZE;
1311: FND_MESSAGE.SET_NAME ('GMD', 'GMD_ERR_CALC_ROUT_FACT');
1312: FND_MSG_PUB.add;
1313: x_return_status := 'W';
1314: RETURN 1;
1308: l_recipe_qty := l_product_qty;
1309: ELSE
1310: FND_MSG_PUB.INITIALIZE;
1311: FND_MESSAGE.SET_NAME ('GMD', 'GMD_ERR_CALC_ROUT_FACT');
1312: FND_MSG_PUB.add;
1313: x_return_status := 'W';
1314: RETURN 1;
1315: END IF;
1316: END IF;
1590: IF (l_max_capacity < 0) THEN
1591: /* Set a message in our stack : the capacity conv has not occurred */
1592: x_return_status := 'E';
1593: FND_MESSAGE.SET_NAME('GMD', 'GMD_CANNOT_CONV_CAPACITY_UOM');
1594: FND_MSG_PUB.Add;
1595: END IF; /* when max cap is < 0 */
1596:
1597: /* Get the step qty : */
1598: /* If the max capacity is yet -ve its becoz none of the capcity uom where */
2441: FND_MESSAGE.set_name('GMD','GMD_FORM_OWNORG_NO_ACCESS');
2442: FND_MESSAGE.set_token('FORMULA_NO',l_formula_no);
2443: FND_MESSAGE.set_token('FORMULA_VERSION',l_formula_vers);
2444: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2445: fnd_msg_pub.ADD;
2446: X_return_status := FND_API.g_ret_sts_error;
2447: RAISE VALIDATION_FAIL;
2448: END IF;
2449: CLOSE Cur_formula_own;
2456: FND_MESSAGE.set_name('GMD','GMD_FORM_REV_OWNORG_NO_ACCESS');
2457: FND_MESSAGE.set_token('FORMULA_NO',l_formula_no);
2458: FND_MESSAGE.set_token('FORMULA_VERSION',l_formula_vers);
2459: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2460: fnd_msg_pub.ADD;
2461: X_return_status := FND_API.g_ret_sts_error;
2462: RAISE VALIDATION_FAIL;
2463: END IF;
2464: CLOSE Cur_formula_own_revision;
2473: FND_MESSAGE.set_name('GMD','GMD_OWNER_ORG_NOT_ACCESSIBLE');
2474: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2475: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2476: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2477: fnd_msg_pub.ADD;
2478: X_return_status := FND_API.g_ret_sts_error;
2479: RAISE VALIDATION_FAIL;
2480: END IF;
2481: CLOSE Cur_recipe_own;
2488: FND_MESSAGE.set_name('GMD','GMD_REV_OWNORG_NOT_ACCESSIBLE');
2489: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2490: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2491: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2492: fnd_msg_pub.ADD;
2493: X_return_status := FND_API.g_ret_sts_error;
2494: RAISE VALIDATION_FAIL;
2495: END IF;
2496: CLOSE Cur_recipe_own_revision;
2504: FND_MESSAGE.set_name('GMD','GMD_OVERRIDE_ORG_NOT_ACCESSIBL');
2505: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2506: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2507: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2508: fnd_msg_pub.ADD;
2509: X_return_status := FND_API.g_ret_sts_error;
2510: RAISE VALIDATION_FAIL;
2511: END IF;
2512: CLOSE Cur_recipe_override;
2519: FND_MESSAGE.set_name('GMD','GMD_REV_OVERORG_NOT_ACCESSIBL');
2520: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2521: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2522: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2523: fnd_msg_pub.ADD;
2524: X_return_status := FND_API.g_ret_sts_error;
2525: RAISE VALIDATION_FAIL;
2526: END IF;
2527: CLOSE Cur_recipe_override_revision;
2533: FND_MESSAGE.set_name('GMD','GMD_VALIDITY_OWNER_ORG_NOT_ACC');
2534: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2535: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2536: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2537: fnd_msg_pub.ADD;
2538: X_return_status := FND_API.g_ret_sts_error;
2539: RAISE VALIDATION_FAIL;
2540: END IF;
2541: CLOSE Cur_recipe_validity;
2548: FND_MESSAGE.set_name('GMD','GMD_REV_VALIDITY_ORG_NOT_ACC');
2549: FND_MESSAGE.set_token('RECIPE_NO',l_recipe_no);
2550: FND_MESSAGE.set_token('RECIPE_VERSION',l_recipe_version);
2551: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',l_organization_code);
2552: fnd_msg_pub.ADD;
2553: X_return_status := FND_API.g_ret_sts_error;
2554: RAISE VALIDATION_FAIL;
2555: END IF;
2556: CLOSE Cur_recipe_validity_revision;
2663:
2664: BEGIN
2665:
2666: x_return_status := FND_API.G_RET_STS_SUCCESS;
2667: FND_MSG_PUB.initialize;
2668:
2669: -- Check ORganization Parameters
2670: OPEN Cur_get_formula_org;
2671: FETCH Cur_get_formula_org INTO p_orgn_id;
2770: IF l_temp_qty < 0
2771: THEN
2772: fnd_message.set_name ('GMD', 'GMD_UOM_CONV_ERROR');
2773: fnd_message.set_token('UOM',l_conv_uom);
2774: fnd_msg_pub.ADD;
2775: RAISE CANNOT_CONVERT;
2776: END IF;
2777: ELSE
2778: l_temp_qty := l_material_tab (i).qty;
2829: IF l_prod_prop_qty > 0 THEN
2830: /* Check whether Percentages have been enterd for all Proportional Products. */
2831: IF temp_prod_tbl1 (i).prod_percent IS NULL THEN
2832: fnd_message.set_name ('GMD', 'GMD_ENTER_PERCENTAGE_YES');
2833: fnd_msg_pub.ADD;
2834: RAISE CANNOT_CONVERT;
2835: END IF;
2836: l_prod_ratio := temp_prod_tbl1 (i).prod_percent / 100;
2837: ELSE
2864: THEN
2865: x_return_status := 'Q';
2866: fnd_message.set_name ('GMD', 'GMD_UOM_CONV_ERROR');
2867: fnd_message.set_token('UOM',l_conv_uom);
2868: fnd_msg_pub.ADD;
2869: EXIT;
2870: END IF;
2871: ELSE
2872: l_temp_qty := l_one_prodqty;
2889: SET total_output_qty = lhdrqty
2890: WHERE formula_id = p_formula_id;
2891: /* Get the message count from the Message stack */
2892: END IF;
2893: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2894: p_data => x_msg_data);
2895: EXCEPTION
2896: WHEN CANNOT_CONVERT THEN
2897: x_return_status := fnd_api.g_ret_sts_unexp_error;
2894: p_data => x_msg_data);
2895: EXCEPTION
2896: WHEN CANNOT_CONVERT THEN
2897: x_return_status := fnd_api.g_ret_sts_unexp_error;
2898: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2899: p_data => x_msg_data);
2900: END Calculate_Total_Product_Qty ;
2901:
2902: /* Bug No.7027512 - Start */