70: X_ingred_wt NUMBER;
71: X_ingred_wtpct NUMBER;
72: X_rollup NUMBER;
73: BEGIN
74: X_return_status := FND_API.g_ret_sts_success;
75:
76: OPEN Cur_get_line_ingred;
77: FETCH Cur_get_line_ingred INTO X_ingred_wt, X_ingred_wtpct;
78: CLOSE Cur_get_line_ingred;
100: END IF;
101:
102: IF X_rollup IS NULL THEN
103: gmd_api_grp.log_message('GMD_WEIGHT_CALCULATE','V_PARM_NAME', V_parm_name);
104: X_return_status := FND_API.g_ret_sts_error;
105: END IF;
106:
107: EXCEPTION
108: WHEN OTHERS THEN
106:
107: EXCEPTION
108: WHEN OTHERS THEN
109: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Rollup_Wt_Pct');
110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111: END rollup_wt_pct;
112:
113: /*##############################################################
114: # NAME
137: X_ingred_vol NUMBER;
138: X_ingred_volpct NUMBER;
139: X_rollup NUMBER;
140: BEGIN
141: X_return_status := FND_API.g_ret_sts_success;
142:
143: OPEN Cur_get_line_ing;
144: FETCH Cur_get_line_ing INTO X_ingred_vol, X_ingred_volpct;
145: CLOSE Cur_get_line_ing;
167: END IF;
168:
169: IF X_rollup IS NULL THEN
170: gmd_api_grp.log_message('GMD_WEIGHT_CALCULATE','V_PARM_NAME', V_parm_name);
171: X_return_status := FND_API.g_ret_sts_error;
172: END IF;
173: EXCEPTION
174: WHEN OTHERS THEN
175: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Rollup_Vol_Pct');
172: END IF;
173: EXCEPTION
174: WHEN OTHERS THEN
175: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Rollup_Vol_Pct');
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: END rollup_vol_pct;
178:
179: /*##############################################################
180: # NAME
235: l_error NUMBER := 0;
236: l_rec Cur_line_qty%ROWTYPE;
237: LINE_NOT_FOUND EXCEPTION;
238: BEGIN
239: X_return_status := FND_API.g_ret_sts_success;
240:
241: l_conv_factor := get_density_value (V_line_id => V_line_id,
242: V_density_parameter => V_density_parameter);
243: OPEN Cur_line_qty;
314: FETCH Cur_line_item_number INTO l_item_no;
315: CLOSE Cur_line_item_number;
316:
317: IF l_error = 1 THEN
318: X_return_status := FND_API.g_ret_sts_error;
319: gmd_api_grp.log_message('LM_BAD_UOMCV', 'ITEM_NO',l_item_no);
320: END IF;
321:
322: EXCEPTION
320: END IF;
321:
322: EXCEPTION
323: WHEN line_not_found THEN
324: X_return_status := FND_API.g_ret_sts_error;
325: WHEN OTHERS THEN
326: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Update_Line_Mass_Vol_Qty');
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: END update_line_mass_vol_qty;
323: WHEN line_not_found THEN
324: X_return_status := FND_API.g_ret_sts_error;
325: WHEN OTHERS THEN
326: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Update_Line_Mass_Vol_Qty');
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: END update_line_mass_vol_qty;
329:
330: /*##############################################################
331: # NAME
348: WHERE line_type <> 1;
349:
350: l_return_status VARCHAR2(1);
351: BEGIN
352: X_return_status := FND_API.g_ret_sts_success;
353:
354: FOR l_rec IN Cur_get_lines LOOP
355: l_return_status := FND_API.g_ret_sts_success;
356: update_line_mass_vol_qty (V_orgn_id => V_orgn_id,
351: BEGIN
352: X_return_status := FND_API.g_ret_sts_success;
353:
354: FOR l_rec IN Cur_get_lines LOOP
355: l_return_status := FND_API.g_ret_sts_success;
356: update_line_mass_vol_qty (V_orgn_id => V_orgn_id,
357: V_line_id => l_rec.line_id,
358: V_density_parameter => V_density_parameter,
359: V_mass_uom => V_mass_uom,
646: patomic => 0,
647: plab_id => V_organization_id,
648: pcnv_factor => l_value);
649: IF (l_new_qty = -99999) THEN
650: X_return_status := FND_API.g_ret_sts_error;
651: gmd_api_grp.log_message('IC_API_UOM_CONVERSION_ERROR', 'ITEM_NO',l_simulation_rec.item,
652: 'FROM_UOM',l_simulation_rec.detail_uom,'TO_UOM',l_std_uom );
653: END IF;
654: INSERT INTO GMD_LCF_DETAILS_GTMP
687: patomic => 0,
688: plab_id => V_organization_id,
689: pcnv_factor => l_value);
690: IF (l_new_qty = -99999) THEN
691: X_return_status := FND_API.g_ret_sts_error;
692: gmd_api_grp.log_message('IC_API_UOM_CONVERSION_ERROR', 'ITEM_NO',l_formula_rec.concatenated_segments,
693: 'FROM_UOM',l_formula_rec.primary_uom_code,'TO_UOM',l_std_uom );
694: END IF;
695: INSERT INTO GMD_LCF_DETAILS_GTMP
726: patomic => 0,
727: plab_id => V_organization_id,
728: pcnv_factor => l_value);
729: IF (l_new_qty = -99999) THEN
730: X_return_status := FND_API.g_ret_sts_error;
731: gmd_api_grp.log_message('IC_API_UOM_CONVERSION_ERROR', 'ITEM_NO',l_comp_rec.concatenated_segments,
732: 'FROM_UOM',l_comp_rec.primary_uom_code,'TO_UOM',l_std_uom );
733: END IF;
734:
753: V_date => V_date);
754: EXCEPTION
755: WHEN OTHERS THEN
756: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Load_items');
757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758: END load_items;
759:
760: /*##############################################################
761: # NAME
882: END IF;
883: EXCEPTION
884: WHEN OTHERS THEN
885: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'load_quality_data');
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: NULL;
888: END load_quality_data;
889:
890: /*##############################################################
1314:
1315: EXCEPTION
1316: WHEN OTHERS THEN
1317: fnd_msg_pub.add_exc_msg ('GMD_LCF_FETCH_PKG', 'Generate_Lcf_Data');
1318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1319: NULL;
1320: END generate_lcf_data;
1321:
1322: