34:
35: NO_LAB_TYPE EXCEPTION;
36: NO_ATTRIB_DATA EXCEPTION;
37: BEGIN
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39: IF (p_lab_type IS NULL) THEN
40: RAISE NO_LAB_TYPE;
41: END IF;
42: gmd_tech_params.load_lab_arrays(p_formula_id => p_formula_id,
77: tp_master_tbl.delete;
78: attrib_master_tbl.delete;
79: EXCEPTION
80: WHEN NO_LAB_TYPE THEN
81: x_return_status := FND_API.G_RET_STS_ERROR;
82: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_LAB_TYPE_PARM');
83: FND_MSG_PUB.ADD;
84: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
85: P_data => x_msg_data);
83: FND_MSG_PUB.ADD;
84: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
85: P_data => x_msg_data);
86: WHEN NO_ATTRIB_DATA THEN
87: x_return_status := FND_API.G_RET_STS_ERROR;
88: FND_MESSAGE.SET_NAME('GMD', 'LM_NO_ATTRIB_DATA');
89: FND_MSG_PUB.ADD;
90: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
91: P_data => x_msg_data);
128: NO_LAB_TYPE EXCEPTION;
129: NO_ATTRIB_DATA EXCEPTION;
130: UOM_CONV_ERR EXCEPTION;
131: BEGIN
132: x_return_status := FND_API.G_RET_STS_SUCCESS;
133: IF (p_lab_type IS NULL) THEN
134: RAISE NO_LAB_TYPE;
135: END IF;
136: gmd_tech_params.load_lab_arrays(p_formula_id => p_formula_id,
229: tp_master_tbl.delete;
230: attrib_master_tbl.delete;
231: EXCEPTION
232: WHEN NO_LAB_TYPE THEN
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_LAB_TYPE_PARM');
235: FND_MSG_PUB.ADD;
236: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
237: P_data => x_msg_data);
235: FND_MSG_PUB.ADD;
236: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
237: P_data => x_msg_data);
238: WHEN NO_ATTRIB_DATA THEN
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: FND_MESSAGE.SET_NAME('GMD', 'LM_NO_ATTRIB_DATA');
241: FND_MSG_PUB.ADD;
242: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
243: P_data => x_msg_data);
241: FND_MSG_PUB.ADD;
242: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
243: P_data => x_msg_data);
244: WHEN UOM_CONV_ERR THEN
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: FND_MSG_PUB.COUNT_AND_GET(P_count => x_msg_count,
247: P_data => x_msg_data);
248: END load_prod_tp;
249:
520: SELECT std_um
521: FROM sy_uoms_typ
522: WHERE um_type = V_um_type;
523: BEGIN
524: x_return_status := FND_API.G_RET_STS_SUCCESS;
525: FOR i IN 1..tp_master_tbl.count LOOP
526: IF (tp_master_tbl(i).data_type IN (5,9)) THEN
527: X_mass_ind := 1;
528: ELSIF (tp_master_tbl(i).data_type IN (6,7)) THEN
594: END IF;
595: END LOOP;
596: EXCEPTION
597: WHEN NO_UOM_CONV THEN
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_UOMCV');
600: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item_no);
601: FND_MSG_PUB.ADD;
602: WHEN BAD_SYS_UOM THEN
599: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_UOMCV');
600: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item_no);
601: FND_MSG_PUB.ADD;
602: WHEN BAD_SYS_UOM THEN
603: x_return_status := FND_API.G_RET_STS_ERROR;
604: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_SYSTEM_UOMS');
605: FND_MSG_PUB.ADD;
606: END convert_uoms;
607:
804: X_conv_qty NUMBER := 0;
805: X_item_no VARCHAR2(32);
806: NO_UOM_CONV EXCEPTION;
807: BEGIN
808: x_return_status := FND_API.G_RET_STS_SUCCESS;
809: FOR i IN 1..item_master_tbl.count LOOP
810: FOR j IN 1..attrib_master_tbl.count LOOP
811: IF ((item_master_tbl(i).item_id = attrib_master_tbl(j).item_id) AND
812: (item_master_tbl(i).line_type = attrib_master_tbl(j).line_type) AND
833: END LOOP;
834: p_result := X_total_ingred_rollup - X_total_byprod_rollup;
835: EXCEPTION
836: WHEN NO_UOM_CONV THEN
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_UOMCV');
839: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item_no);
840: FND_MSG_PUB.ADD;
841: END rollup_cost_and_units;
866: X_total_mass NUMBER := 0;
867: X_item_no VARCHAR2(32);
868: NO_UOM_CONV EXCEPTION;
869: BEGIN
870: x_return_status := FND_API.G_RET_STS_SUCCESS;
871: FOR i IN 1..item_master_tbl.count LOOP
872: FOR j IN 1..attrib_master_tbl.count LOOP
873: IF ((item_master_tbl(i).item_id = attrib_master_tbl(j).item_id) AND
874: (item_master_tbl(i).line_type = attrib_master_tbl(j).line_type) AND
908: p_result := 0;
909: END IF;
910: EXCEPTION
911: WHEN NO_UOM_CONV THEN
912: x_return_status := FND_API.G_RET_STS_ERROR;
913: FND_MESSAGE.SET_NAME('GMD', 'LM_BAD_UOMCV');
914: FND_MESSAGE.SET_TOKEN('ITEM_NO', X_item_no);
915: FND_MSG_PUB.ADD;
916: END rollup_equiv_wt;