92: P_vol_um_type := FND_PROFILE.VALUE('LM$UOM_VOLUME_TYPE');*/
93:
94: P_density := FND_PROFILE.VALUE('LM$DENSITY');
95:
96: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_ERROR');
97: P_error := UPPER(FND_MESSAGE.GET)||' : ';
98: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_WARNING');
99: P_warning := UPPER(FND_MESSAGE.GET)||' : ';
100:
93:
94: P_density := FND_PROFILE.VALUE('LM$DENSITY');
95:
96: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_ERROR');
97: P_error := UPPER(FND_MESSAGE.GET)||' : ';
98: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_WARNING');
99: P_warning := UPPER(FND_MESSAGE.GET)||' : ';
100:
101: OPEN Cur_std_um(P_mass_um_type);
94: P_density := FND_PROFILE.VALUE('LM$DENSITY');
95:
96: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_ERROR');
97: P_error := UPPER(FND_MESSAGE.GET)||' : ';
98: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_WARNING');
99: P_warning := UPPER(FND_MESSAGE.GET)||' : ';
100:
101: OPEN Cur_std_um(P_mass_um_type);
102: FETCH Cur_std_um INTO P_mass_um;
95:
96: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_ERROR');
97: P_error := UPPER(FND_MESSAGE.GET)||' : ';
98: FND_MESSAGE.SET_NAME('FND', 'FND_MESSAGE_TYPE_WARNING');
99: P_warning := UPPER(FND_MESSAGE.GET)||' : ';
100:
101: OPEN Cur_std_um(P_mass_um_type);
102: FETCH Cur_std_um INTO P_mass_um;
103: IF (Cur_std_um%NOTFOUND) THEN
209: END LOOP;
210: COMMIT WORK;
211: EXCEPTION
212: WHEN NO_ORGN_CODE THEN
213: FND_MESSAGE.SET_NAME('GMI', 'IC_ORGNCODERR');
214: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
215: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
216: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
217: NULL;
210: COMMIT WORK;
211: EXCEPTION
212: WHEN NO_ORGN_CODE THEN
213: FND_MESSAGE.SET_NAME('GMI', 'IC_ORGNCODERR');
214: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
215: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
216: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
217: NULL;
218: END IF;
216: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
217: NULL;
218: END IF;
219: WHEN NO_FORMULA THEN
220: FND_MESSAGE.SET_NAME('GMD', 'QC_INVALID_FORMULA');
221: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
222: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
223: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
224: NULL;
217: NULL;
218: END IF;
219: WHEN NO_FORMULA THEN
220: FND_MESSAGE.SET_NAME('GMD', 'QC_INVALID_FORMULA');
221: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
222: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
223: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
224: NULL;
225: END IF;
223: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
224: NULL;
225: END IF;
226: WHEN BAD_SYS_UOM THEN
227: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_SYSTEM_UOMS');
228: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
230: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
231: NULL;
224: NULL;
225: END IF;
226: WHEN BAD_SYS_UOM THEN
227: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_SYSTEM_UOMS');
228: FND_FILE.PUT(FND_FILE.LOG, P_error||FND_MESSAGE.GET);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
230: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
231: NULL;
232: END IF;
230: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
231: NULL;
232: END IF;
233: WHEN LOAD_DATA_ERR THEN
234: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
235: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
236: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
237: NULL;
238: END IF;
236: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
237: NULL;
238: END IF;
239: WHEN LOAD_INGR_ERR THEN
240: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
241: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
242: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
243: NULL;
244: END IF;
242: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
243: NULL;
244: END IF;
245: WHEN UOM_CONV_ERR THEN
246: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
247: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
248: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
249: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rep_um);
250: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
243: NULL;
244: END IF;
245: WHEN UOM_CONV_ERR THEN
246: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
247: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
248: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
249: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rep_um);
250: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
251: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
244: END IF;
245: WHEN UOM_CONV_ERR THEN
246: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
247: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
248: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
249: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rep_um);
250: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
251: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
252: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
245: WHEN UOM_CONV_ERR THEN
246: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
247: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
248: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
249: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rep_um);
250: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
251: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
252: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
253: NULL;
246: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
247: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
248: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
249: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rep_um);
250: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
251: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
252: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
253: NULL;
254: END IF;
252: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
253: NULL;
254: END IF;
255: WHEN OTHERS THEN
256: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
257: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
258: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
259: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
260: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
253: NULL;
254: END IF;
255: WHEN OTHERS THEN
256: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
257: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
258: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
259: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
260: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
261: NULL;
254: END IF;
255: WHEN OTHERS THEN
256: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
257: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
258: FND_FILE.PUT(FND_FILE.LOG, P_space||P_error||FND_MESSAGE.GET);
259: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
260: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', NULL)) THEN
261: NULL;
262: END IF;
380: END LOOP;
381: EXCEPTION
382: WHEN NO_TECH_CLASS THEN
383: x_return_status := 'E';
384: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_TECH_CLASS');
385: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
386: WHEN NO_WT_OR_VOL THEN
387: x_return_status := 'E';
388: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_MASS_VOL_CONV');
381: EXCEPTION
382: WHEN NO_TECH_CLASS THEN
383: x_return_status := 'E';
384: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_TECH_CLASS');
385: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
386: WHEN NO_WT_OR_VOL THEN
387: x_return_status := 'E';
388: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_MASS_VOL_CONV');
389: WHEN OTHERS THEN
384: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_TECH_CLASS');
385: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
386: WHEN NO_WT_OR_VOL THEN
387: x_return_status := 'E';
388: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_MASS_VOL_CONV');
389: WHEN OTHERS THEN
390: x_return_status := 'E';
391: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
387: x_return_status := 'E';
388: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_MASS_VOL_CONV');
389: WHEN OTHERS THEN
390: x_return_status := 'E';
391: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
393: END calc_percent;
394:
395: /*======================================================================
388: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_MASS_VOL_CONV');
389: WHEN OTHERS THEN
390: x_return_status := 'E';
391: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
393: END calc_percent;
394:
395: /*======================================================================
396: -- PROCEDURE :
599: CLOSE Cur_get_formula;
600: /* Determine circular references */
601: FOR i IN 1..P_form_tab.count LOOP
602: IF (P_form_tab(i).formula_id = X_expl_fm_id) THEN
603: FND_MESSAGE.SET_NAME('GMD', 'GMD_CIRCULAR_REFERENCE');
604: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
605: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
606: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
607: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
600: /* Determine circular references */
601: FOR i IN 1..P_form_tab.count LOOP
602: IF (P_form_tab(i).formula_id = X_expl_fm_id) THEN
603: FND_MESSAGE.SET_NAME('GMD', 'GMD_CIRCULAR_REFERENCE');
604: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
605: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
606: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
607: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
608: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
601: FOR i IN 1..P_form_tab.count LOOP
602: IF (P_form_tab(i).formula_id = X_expl_fm_id) THEN
603: FND_MESSAGE.SET_NAME('GMD', 'GMD_CIRCULAR_REFERENCE');
604: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
605: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
606: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
607: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
608: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
609: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
602: IF (P_form_tab(i).formula_id = X_expl_fm_id) THEN
603: FND_MESSAGE.SET_NAME('GMD', 'GMD_CIRCULAR_REFERENCE');
604: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
605: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
606: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
607: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
608: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
609: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
610: NULL;
603: FND_MESSAGE.SET_NAME('GMD', 'GMD_CIRCULAR_REFERENCE');
604: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
605: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
606: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
607: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
608: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
609: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
610: NULL;
611: END IF;
615: END IF;
616: END LOOP;
617: IF (X_found = 0) THEN
618: P_form_tab(P_form_tab.count + 1).formula_id := p_rec.formula_id;
619: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPLOSION_FORMULA');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
616: END LOOP;
617: IF (X_found = 0) THEN
618: P_form_tab(P_form_tab.count + 1).formula_id := p_rec.formula_id;
619: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPLOSION_FORMULA');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
617: IF (X_found = 0) THEN
618: P_form_tab(P_form_tab.count + 1).formula_id := p_rec.formula_id;
619: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPLOSION_FORMULA');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
625: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
618: P_form_tab(P_form_tab.count + 1).formula_id := p_rec.formula_id;
619: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPLOSION_FORMULA');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
625: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
626: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
619: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPLOSION_FORMULA');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
625: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
626: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
627: P_space := P_space ||' ';
620: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
625: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
626: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
627: P_space := P_space ||' ';
628: END IF;
621: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
622: FND_MESSAGE.SET_TOKEN('V1', TO_CHAR(X_cur_form_ver));
623: FND_MESSAGE.SET_TOKEN('F2', X_formula_no);
624: FND_MESSAGE.SET_TOKEN('V2', TO_CHAR(X_formula_vers));
625: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
626: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
627: P_space := P_space ||' ';
628: END IF;
629: END IF;
728: CLOSE Cur_get_formula;
729: IF (p_rec.formula_id = p_formula_id) THEN
730: P_space := NULL;
731: END IF;
732: FND_MESSAGE.SET_NAME('GMD', 'GMD_LAST_LEVEL');
733: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
734: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
735: FND_MESSAGE.SET_TOKEN('V1', X_cur_form_ver);
736: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
729: IF (p_rec.formula_id = p_formula_id) THEN
730: P_space := NULL;
731: END IF;
732: FND_MESSAGE.SET_NAME('GMD', 'GMD_LAST_LEVEL');
733: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
734: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
735: FND_MESSAGE.SET_TOKEN('V1', X_cur_form_ver);
736: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
737: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
730: P_space := NULL;
731: END IF;
732: FND_MESSAGE.SET_NAME('GMD', 'GMD_LAST_LEVEL');
733: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
734: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
735: FND_MESSAGE.SET_TOKEN('V1', X_cur_form_ver);
736: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
737: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
738: EXCEPTION
731: END IF;
732: FND_MESSAGE.SET_NAME('GMD', 'GMD_LAST_LEVEL');
733: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
734: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
735: FND_MESSAGE.SET_TOKEN('V1', X_cur_form_ver);
736: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
737: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
738: EXCEPTION
739: WHEN LOAD_INGR_ERR THEN
732: FND_MESSAGE.SET_NAME('GMD', 'GMD_LAST_LEVEL');
733: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
734: FND_MESSAGE.SET_TOKEN('F1', X_cur_form_no);
735: FND_MESSAGE.SET_TOKEN('V1', X_cur_form_ver);
736: FND_FILE.PUT(FND_FILE.LOG, P_space||FND_MESSAGE.GET);
737: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
738: EXCEPTION
739: WHEN LOAD_INGR_ERR THEN
740: x_return_status := 'E';
741: WHEN LOAD_DATA_ERR THEN
742: x_return_status := 'E';
743: WHEN UOM_CONV_ERR THEN
744: x_return_status := 'E';
745: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
746: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
747: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_item_um);
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
742: x_return_status := 'E';
743: WHEN UOM_CONV_ERR THEN
744: x_return_status := 'E';
745: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
746: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
747: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_item_um);
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
750: x_return_status := 'E';
743: WHEN UOM_CONV_ERR THEN
744: x_return_status := 'E';
745: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
746: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
747: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_item_um);
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
750: x_return_status := 'E';
751: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
744: x_return_status := 'E';
745: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
746: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
747: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_item_um);
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
750: x_return_status := 'E';
751: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
747: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_item_um);
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
750: x_return_status := 'E';
751: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
753: END check_explosion;
754:
755: /*======================================================================
748: FND_MESSAGE.SET_TOKEN('TO_UOM', p_rec.item_um);
749: WHEN OTHERS THEN
750: x_return_status := 'E';
751: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
753: END check_explosion;
754:
755: /*======================================================================
756: -- PROCEDURE :
983: CLOSE Cur_get_type;
984:
985: get_density(p_rec, p_organization_id, p_laboratory_id, P_density, X_density, X_status);
986: IF (X_status = 'W') THEN
987: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
988: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
989: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
990: NULL;
991: END IF;
1023: ,to_unit => P_vol_um
1024: ,from_name => NULL
1025: ,to_name => NULL);
1026: IF (X_conv_qty < 0) THEN
1027: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_mass_um);
1030: FND_MESSAGE.SET_TOKEN('TO_UOM', P_vol_um);
1031: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1024: ,from_name => NULL
1025: ,to_name => NULL);
1026: IF (X_conv_qty < 0) THEN
1027: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_mass_um);
1030: FND_MESSAGE.SET_TOKEN('TO_UOM', P_vol_um);
1031: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1032: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1025: ,to_name => NULL);
1026: IF (X_conv_qty < 0) THEN
1027: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_mass_um);
1030: FND_MESSAGE.SET_TOKEN('TO_UOM', P_vol_um);
1031: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1032: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1033: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1026: IF (X_conv_qty < 0) THEN
1027: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_mass_um);
1030: FND_MESSAGE.SET_TOKEN('TO_UOM', P_vol_um);
1031: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1032: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1033: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1034: NULL;
1027: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_mass_um);
1030: FND_MESSAGE.SET_TOKEN('TO_UOM', P_vol_um);
1031: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1032: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1033: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1034: NULL;
1035: END IF;
1071: ,from_name => NULL
1072: ,to_name => NULL);
1073: IF (X_conv_qty < 0) THEN
1074:
1075: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1076: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1077: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_vol_um);
1078: FND_MESSAGE.SET_TOKEN('TO_UOM', P_mass_um);
1079: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1072: ,to_name => NULL);
1073: IF (X_conv_qty < 0) THEN
1074:
1075: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1076: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1077: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_vol_um);
1078: FND_MESSAGE.SET_TOKEN('TO_UOM', P_mass_um);
1079: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1080: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1073: IF (X_conv_qty < 0) THEN
1074:
1075: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1076: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1077: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_vol_um);
1078: FND_MESSAGE.SET_TOKEN('TO_UOM', P_mass_um);
1079: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1080: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1081: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1074:
1075: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1076: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1077: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_vol_um);
1078: FND_MESSAGE.SET_TOKEN('TO_UOM', P_mass_um);
1079: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1080: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1081: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1082: NULL;
1075: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1076: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_rec.item_no);
1077: FND_MESSAGE.SET_TOKEN('FROM_UOM', P_vol_um);
1078: FND_MESSAGE.SET_TOKEN('TO_UOM', P_mass_um);
1079: FND_FILE.PUT(FND_FILE.LOG, P_space||P_warning||FND_MESSAGE.GET);
1080: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1081: IF (FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING', NULL)) THEN
1082: NULL;
1083: END IF;
1095: END IF;
1096: EXCEPTION
1097: WHEN UOM_CONV_ERR THEN
1098: x_return_status := 'E';
1099: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1100: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1101: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1096: EXCEPTION
1097: WHEN UOM_CONV_ERR THEN
1098: x_return_status := 'E';
1099: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1100: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1101: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1097: WHEN UOM_CONV_ERR THEN
1098: x_return_status := 'E';
1099: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1100: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1101: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1105: FND_MESSAGE.SET_NAME('GMD', 'GMD_NON_MASS_VOL');
1098: x_return_status := 'E';
1099: FND_MESSAGE.SET_NAME('GMI', 'IC_API_UOM_CONVERSION_ERROR');
1100: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1101: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1105: FND_MESSAGE.SET_NAME('GMD', 'GMD_NON_MASS_VOL');
1106: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1101: FND_MESSAGE.SET_TOKEN('FROM_UOM', X_from_um);
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1105: FND_MESSAGE.SET_NAME('GMD', 'GMD_NON_MASS_VOL');
1106: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1107: FND_MESSAGE.SET_TOKEN('UM', X_from_um);
1108: WHEN OTHERS THEN
1109: x_return_status := 'E';
1102: FND_MESSAGE.SET_TOKEN('TO_UOM', X_to_um);
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1105: FND_MESSAGE.SET_NAME('GMD', 'GMD_NON_MASS_VOL');
1106: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1107: FND_MESSAGE.SET_TOKEN('UM', X_from_um);
1108: WHEN OTHERS THEN
1109: x_return_status := 'E';
1110: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1103: WHEN BAD_UOM_TYPE THEN
1104: x_return_status := 'E';
1105: FND_MESSAGE.SET_NAME('GMD', 'GMD_NON_MASS_VOL');
1106: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1107: FND_MESSAGE.SET_TOKEN('UM', X_from_um);
1108: WHEN OTHERS THEN
1109: x_return_status := 'E';
1110: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1111: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1106: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item);
1107: FND_MESSAGE.SET_TOKEN('UM', X_from_um);
1108: WHEN OTHERS THEN
1109: x_return_status := 'E';
1110: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1111: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1112: END calc_mass_vol_qty;
1113:
1114: /*======================================================================
1107: FND_MESSAGE.SET_TOKEN('UM', X_from_um);
1108: WHEN OTHERS THEN
1109: x_return_status := 'E';
1110: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1111: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1112: END calc_mass_vol_qty;
1113:
1114: /*======================================================================
1115: -- PROCEDURE :
1245: OPEN get_orgn_code;
1246: FETCH get_orgn_code INTO l_orgn_code;
1247: CLOSE get_orgn_code;
1248: x_return_status := 'W';
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_DENSITY');
1250: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_ing_rec.item_no);
1251: FND_MESSAGE.SET_TOKEN('ORGN', l_orgn_code);
1252: END get_density;
1253:
1246: FETCH get_orgn_code INTO l_orgn_code;
1247: CLOSE get_orgn_code;
1248: x_return_status := 'W';
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_DENSITY');
1250: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_ing_rec.item_no);
1251: FND_MESSAGE.SET_TOKEN('ORGN', l_orgn_code);
1252: END get_density;
1253:
1254: END gmd_formula_analysis;
1247: CLOSE get_orgn_code;
1248: x_return_status := 'W';
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_NO_DENSITY');
1250: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_ing_rec.item_no);
1251: FND_MESSAGE.SET_TOKEN('ORGN', l_orgn_code);
1252: END get_density;
1253:
1254: END gmd_formula_analysis;