[Home] [Help]
109: /* Define Savepoint */
110: SAVEPOINT Insert_FormulaDetail;
111:
112: /* Standard Check for API compatibility */
113: IF NOT FND_API.Compatible_API_Call(l_api_version
114: ,p_api_version
115: ,l_api_name
116: ,G_PKG_NAME )
117: THEN
114: ,p_api_version
115: ,l_api_name
116: ,G_PKG_NAME )
117: THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: /* Initialize message list if p_init_msg_list is set to TRUE */
122: IF FND_API.to_Boolean( p_init_msg_list ) THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: /* Initialize message list if p_init_msg_list is set to TRUE */
122: IF FND_API.to_Boolean( p_init_msg_list ) THEN
123: FND_MSG_PUB.initialize;
124: END IF;
125:
126: --Set the formula validation pkg variable GMDFMVAL_PUB
139: /* 1. Does validation when not called from forms because from forms all
140: field level validation is already done */
141: /* 2. Call the private API that does the database inserts/ updates */
142: IF (p_formula_detail_tbl.count = 0) THEN
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146: /* Start looping through the table */
147: FOR i in 1 .. p_formula_detail_tbl.count LOOP
146: /* Start looping through the table */
147: FOR i in 1 .. p_formula_detail_tbl.count LOOP
148:
149: /* Initialize API return status to success for every line */
150: x_return_status := FND_API.G_RET_STS_SUCCESS;
151:
152: IF (l_debug = 'Y') THEN
153: gmd_debug.put_line(' ');
154: gmd_debug.put_line(' ');
194: FND_MESSAGE.SET_NAME('GMD', 'FM_INVFORMULANO');
195: FND_MESSAGE.SET_TOKEN('FORMULA_NO',p_formula_detail_rec.formula_no);
196: FND_MSG_PUB.Add;
197: END IF;
198: RAISE FND_API.G_EXC_ERROR;
199: ELSE
200: l_formula_id := pTable_out(1).formula_id;
201: END IF; /* end condition for x_ret)status <> 'S' */
202: ELSE
222: IF (l_return_val < 0) THEN
223: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
224: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_formula_detail_rec.item_no);
225: FND_MSG_PUB.Add;
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
229: p_formula_detail_rec.inventory_item_id := l_item_id;
230:
237: organization_id = p_formula_detail_rec.owner_organization_id;
238: EXCEPTION
239: WHEN others THEN
240: ROLLBACK to Insert_FormulaDetail;
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: FND_MSG_PUB.Count_And_Get (
243: p_count => x_msg_count,
244: p_data => x_msg_data );
245: END;
247: IF v_recipe_enabled <> 'Y' THEN
248: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITEM_NOT_RECIPE_ENABLED');
249: FND_MESSAGE.SET_TOKEN('ITEM_NO', v_item_no);
250: FND_MSG_PUB.Add;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF ;
253:
254: /* Bug No. 6799624 - End */
255:
260: l_user_id := FND_GLOBAL.user_id;
261: IF (l_user_id IS NULL) THEN
262: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
263: FND_MSG_PUB.Add;
264: RAISE FND_API.G_EXC_ERROR;
265: END IF;
266:
267: /* ======================================= */
268: /* Check if the same line no and type */
297: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_formula_detail_rec.item_no);
298: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_detail_rec.formula_no);
299: FND_MESSAGE.SET_TOKEN('FORMULA_VERS',p_formula_detail_rec.formula_vers );
300: FND_MSG_PUB.Add;
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303:
304: /* Get the item_id which is based on the item no */
305: IF (l_debug = 'Y') THEN
320: /* Call for private API */
321: IF (l_surrogate < 1) THEN
322: FND_MESSAGE.SET_NAME('GMD','FM_INVALID_FMLINE_ID');
323: FND_MSG_PUB.Add;
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326: ELSE
327: l_surrogate := p_formula_detail_rec.formulaline_id;
328: END IF;
357: AND p_formula_detail_rec.scale_type_dtl =1 AND p_formula_detail_rec.prod_percent IS NULL THEN
358: /* Error to be raised for Proportional Products when Percentages are not passed */
359: FND_MESSAGE.SET_NAME('GMD', 'GMD_ENTER_PERCENTAGE_YES');
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: ELSIF l_formula_calc_flag = 'Y' AND (p_formula_detail_rec.prod_percent IS NOT NULL )
363: AND ( p_formula_detail_rec.line_type IN (-1,2) OR
364: ( p_formula_detail_rec.line_type = 1 AND p_formula_detail_rec.scale_type_dtl = 0 ) ) THEN
365: /* Error to be raised when Percentages are passed for Ingredients/By-Products or Fixed
365: /* Error to be raised when Percentages are passed for Ingredients/By-Products or Fixed
366: Products */
367: FND_MESSAGE.SET_NAME('GMD', 'GMD_ENTER_PERCENTAGE_CANNOT');
368: FND_MSG_PUB.Add;
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371: END IF;
372:
373: IF ( ( l_auto_calc IS NULL OR l_auto_calc = 'N') OR (l_formula_calc_flag IS NULL OR l_formula_calc_flag = 'N' ))
375: /* Error to be raised when Percentages are passed when Parameter is not Set tp
376: Calculate Product qty */
377: FND_MESSAGE.SET_NAME('GMD', 'GMD_ENTER_PERCENTAGE_NO');
378: FND_MSG_PUB.Add;
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;
381: -- Kapil ME Auto-Prod :Bug#5716318
382:
383: /* Assigning values to formula detail rec and passing to the private API */
380: END IF;
381: -- Kapil ME Auto-Prod :Bug#5716318
382:
383: /* Assigning values to formula detail rec and passing to the private API */
384: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
385: l_fm_matl_dtl_rec.formulaline_id := l_surrogate;
386: l_fm_matl_dtl_rec.formula_id := l_formula_id;
387: l_fm_matl_dtl_rec.line_type := p_formula_detail_rec.line_type;
388: l_fm_matl_dtl_rec.line_no := p_formula_detail_rec.line_no;
459: END IF;
460: GMD_FORMULA_DETAIL_PVT.Insert_FormulaDetail
461: ( p_api_version => p_api_version
462: ,p_init_msg_list => p_init_msg_list
463: ,p_commit => FND_API.G_FALSE
464: ,x_return_status => x_return_status
465: ,x_msg_count => x_msg_count
466: ,x_msg_data => x_msg_data
467: ,p_formula_detail_rec => l_fm_matl_dtl_rec
486: END IF;
487:
488: /* IF creation of a line fails - Raise an exception
489: rather than trying to insert other lines */
490: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
491: RAISE FND_API.G_EXC_ERROR;
492: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
487:
488: /* IF creation of a line fails - Raise an exception
489: rather than trying to insert other lines */
490: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
491: RAISE FND_API.G_EXC_ERROR;
492: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
495:
488: /* IF creation of a line fails - Raise an exception
489: rather than trying to insert other lines */
490: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
491: RAISE FND_API.G_EXC_ERROR;
492: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
495:
496: END LOOP; -- for number of lines to be inserted
489: rather than trying to insert other lines */
490: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
491: RAISE FND_API.G_EXC_ERROR;
492: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
495:
496: END LOOP; -- for number of lines to be inserted
497:
496: END LOOP; -- for number of lines to be inserted
497:
498: /* End of API body */
499:
500: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
501: (FND_API.To_Boolean(p_commit)) THEN
502: /* Check if p_commit is set to TRUE */
503: Commit;
504: END IF;
497:
498: /* End of API body */
499:
500: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
501: (FND_API.To_Boolean(p_commit)) THEN
502: /* Check if p_commit is set to TRUE */
503: Commit;
504: END IF;
505:
508: p_count => x_msg_count,
509: p_data => x_msg_data );
510:
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: ROLLBACK to Insert_FormulaDetail;
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: FND_MSG_PUB.Count_And_Get (
516: p_count => x_msg_count,
510:
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: ROLLBACK to Insert_FormulaDetail;
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: FND_MSG_PUB.Count_And_Get (
516: p_count => x_msg_count,
517: p_data => x_msg_data );
518: IF (l_debug = 'Y') THEN
520: ||' - '
521: ||x_return_status);
522: END IF;
523:
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: ROLLBACK to Insert_FormulaDetail;
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: FND_MSG_PUB.Count_And_Get (
528: p_count => x_msg_count,
522: END IF;
523:
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: ROLLBACK to Insert_FormulaDetail;
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: FND_MSG_PUB.Count_And_Get (
528: p_count => x_msg_count,
529: p_data => x_msg_data );
530: IF (l_debug = 'Y') THEN
535:
536: WHEN OTHERS THEN
537: ROLLBACK to Insert_FormulaDetail;
538: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: FND_MSG_PUB.Count_And_Get (
541: p_count => x_msg_count,
542: p_data => x_msg_data );
543: IF (l_debug = 'Y') THEN
671: /* Define Savepoint */
672: SAVEPOINT Update_FormulaDetail;
673:
674: /* Standard Check for API compatibility */
675: IF NOT FND_API.Compatible_API_Call ( l_api_version
676: ,p_api_version
677: ,l_api_name
678: ,G_PKG_NAME )
679: THEN
676: ,p_api_version
677: ,l_api_name
678: ,G_PKG_NAME )
679: THEN
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;
682:
683: /* Set the formula validation pkg variable GMDFMVAL_PUB */
684: /* variable p_called_from_form same as that passed in. */
689:
690: GMDFMVAL_PUB.p_called_from_forms := p_called_from_forms;
691:
692: /* Initialize message list if p_init_msg_list is set to TRUE */
693: IF FND_API.to_Boolean( p_init_msg_list ) THEN
694: FND_MSG_PUB.initialize;
695: END IF;
696:
697: /* 1. Does validation */
696:
697: /* 1. Does validation */
698: /* 2. Call the private API that does the database updates */
699: IF (p_formula_detail_tbl.count = 0) THEN
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: FOR i IN 1 .. p_formula_detail_tbl.count LOOP
704:
702:
703: FOR i IN 1 .. p_formula_detail_tbl.count LOOP
704:
705: /* Initialize API return status to success */
706: x_return_status := FND_API.G_RET_STS_SUCCESS;
707:
708: IF (l_debug = 'Y') THEN
709: gmd_debug.put_line(' In Formula Detail Update Pub - Entering loop with row # '||i);
710: END IF;
736: IF (l_return_val <> 0) THEN
737: IF (p_formula_detail_rec.formula_no IS NULL) THEN
738: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
739: FND_MSG_PUB.Add;
740: RAISE FND_API.G_EXC_ERROR;
741: ELSIF (p_formula_detail_rec.formula_vers IS NULL) THEN
742: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
743: FND_MSG_PUB.Add;
744: RAISE FND_API.G_EXC_ERROR;
740: RAISE FND_API.G_EXC_ERROR;
741: ELSIF (p_formula_detail_rec.formula_vers IS NULL) THEN
742: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
743: FND_MSG_PUB.Add;
744: RAISE FND_API.G_EXC_ERROR;
745: ELSE
746: FND_MESSAGE.SET_NAME('GMD', 'FM_INVFORMULANO');
747: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_detail_rec.formula_no);
748: FND_MSG_PUB.Add;
745: ELSE
746: FND_MESSAGE.SET_NAME('GMD', 'FM_INVFORMULANO');
747: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_detail_rec.formula_no);
748: FND_MSG_PUB.Add;
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: END IF;
752: ELSE
753: l_formula_id := p_formula_detail_rec.formula_id;
766: FND_MESSAGE.SET_TOKEN('VERS', p_formula_detail_rec.formula_vers);
767: FND_MESSAGE.SET_TOKEN('STATUS',
768: GMD_FORMULA_DETAIL_PUB.get_fm_status_meaning(l_formula_id));
769: FND_MSG_PUB.Add;
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
772:
773: /* Check if there is a valid userid */
774: IF (l_debug = 'Y') THEN
779: l_user_id := FND_GLOBAL.user_id;
780: IF (l_user_id IS NULL) THEN
781: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
782: FND_MSG_PUB.Add;
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786: /* ========================================= */
787: /* Ensure that the formulaline id exists */
795: GMDFMVAL_PUB.get_formulaline_id(p_formula_detail_rec.formulaline_id,l_return_val);
796: IF (l_return_val <> 0) THEN
797: FND_MESSAGE.SET_NAME('GMD','FM_INVALID_FMLINE_ID');
798: FND_MSG_PUB.Add;
799: RAISE FND_API.G_EXC_ERROR;
800: END IF;
801: ELSIF (p_formula_detail_rec.formulaline_id IS NULL) THEN /* missing formula no */
802: FND_MESSAGE.SET_NAME('GMD','FM_MISSING_FMLINE_ID');
803: FND_MSG_PUB.Add;
800: END IF;
801: ELSIF (p_formula_detail_rec.formulaline_id IS NULL) THEN /* missing formula no */
802: FND_MESSAGE.SET_NAME('GMD','FM_MISSING_FMLINE_ID');
803: FND_MSG_PUB.Add;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806:
807: -- Bug# 5554631 KMOTUPAL - TO prevent Update of Item Revision
808: IF (p_formula_detail_rec.revision IS NOT NULL) THEN
933: /* Error to be raised if Percentages are passed for Ingredients/By-Products or when
934: when the Parameter is not set to calculate Product Qty */
935: FND_MESSAGE.SET_NAME('GMD', 'GMD_ENTER_PERCENTAGES_NOT');
936: FND_MSG_PUB.Add;
937: RAISE FND_API.G_EXC_ERROR;
938: END IF;
939: END IF;
940: -- Kapil ME Auto-Prod :Bug#5716318
941:
968: OPEN get_detail_rec(p_formula_detail_rec.formulaline_id);
969: FETCH get_detail_rec into fm_matl_dtl_rec;
970:
971: /* Shyam Sitaraman - Bug 2652200 */
972: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
973: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
974: /* as the user is intending to update the field to NULL */
975: IF (get_detail_rec%FOUND) THEN
976: /*Bug 2509076 - Thomas Daniel */
969: FETCH get_detail_rec into fm_matl_dtl_rec;
970:
971: /* Shyam Sitaraman - Bug 2652200 */
972: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
973: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
974: /* as the user is intending to update the field to NULL */
975: IF (get_detail_rec%FOUND) THEN
976: /*Bug 2509076 - Thomas Daniel */
977: /* QM Integration */
974: /* as the user is intending to update the field to NULL */
975: IF (get_detail_rec%FOUND) THEN
976: /*Bug 2509076 - Thomas Daniel */
977: /* QM Integration */
978: IF (p_formula_detail_rec.by_product_type = FND_API.G_MISS_CHAR) THEN
979: l_by_product_type := NULL;
980: ELSIF (p_formula_detail_rec.by_product_type IS NULL) THEN
981: l_by_product_type := fm_matl_dtl_rec.by_product_type;
982: ELSE
983: l_by_product_type := X_formula_detail_rec.by_product_type;
984: END IF;
985:
986: /* Added some more - with FM API cleanup */
987: IF (p_formula_detail_rec.rounding_direction = FND_API.G_MISS_NUM) THEN
988: l_rounding_direction := NULL;
989: ELSIF (p_formula_detail_rec.rounding_direction IS NULL) THEN
990: l_rounding_direction := fm_matl_dtl_rec.rounding_direction;
991: ELSE
991: ELSE
992: l_rounding_direction := p_formula_detail_rec.rounding_direction;
993: END IF;
994:
995: IF (p_formula_detail_rec.text_code_dtl = FND_API.G_MISS_NUM) THEN
996: l_text_code := NULL;
997: ELSIF (p_formula_detail_rec.text_code_dtl IS NULL) THEN
998: l_text_code := fm_matl_dtl_rec.text_code;
999: ELSE
999: ELSE
1000: l_text_code := p_formula_detail_rec.text_code_dtl;
1001: END IF;
1002:
1003: IF (p_formula_detail_rec.cost_alloc = FND_API.G_MISS_NUM) THEN
1004: l_cost_alloc := NULL;
1005: ELSIF (p_formula_detail_rec.cost_alloc IS NULL) THEN
1006: l_cost_alloc := fm_matl_dtl_rec.cost_alloc;
1007: ELSE
1007: ELSE
1008: l_cost_alloc := X_formula_detail_rec.cost_alloc;
1009: END IF;
1010:
1011: IF (p_formula_detail_rec.tpformula_id = FND_API.G_MISS_NUM) THEN
1012: l_tpformula_id := NULL;
1013: ELSIF (p_formula_detail_rec.tpformula_id IS NULL) THEN
1014: l_tpformula_id := fm_matl_dtl_rec.tpformula_id;
1015: ELSE
1015: ELSE
1016: l_tpformula_id := p_formula_detail_rec.tpformula_id;
1017: END IF;
1018:
1019: IF (p_formula_detail_rec.tpformula_id = FND_API.G_MISS_NUM) THEN
1020: l_tpformula_id := NULL;
1021: ELSIF (p_formula_detail_rec.tpformula_id IS NULL) THEN
1022: l_tpformula_id := fm_matl_dtl_rec.tpformula_id;
1023: ELSE
1023: ELSE
1024: l_tpformula_id := p_formula_detail_rec.tpformula_id;
1025: END IF;
1026:
1027: IF (p_formula_detail_rec.iaformula_id = FND_API.G_MISS_NUM) THEN
1028: l_iaformula_id := NULL;
1029: ELSIF (p_formula_detail_rec.iaformula_id IS NULL) THEN
1030: l_iaformula_id := fm_matl_dtl_rec.iaformula_id;
1031: ELSE
1031: ELSE
1032: l_iaformula_id := p_formula_detail_rec.iaformula_id;
1033: END IF;
1034:
1035: IF (p_formula_detail_rec.scale_multiple = FND_API.G_MISS_NUM) THEN
1036: l_scale_multiple := NULL;
1037: ELSIF (p_formula_detail_rec.scale_multiple IS NULL) THEN
1038: l_scale_multiple := fm_matl_dtl_rec.scale_multiple;
1039: ELSE
1039: ELSE
1040: l_scale_multiple := p_formula_detail_rec.scale_multiple;
1041: END IF;
1042:
1043: IF (p_formula_detail_rec.scale_rounding_variance = FND_API.G_MISS_NUM) THEN
1044: l_scale_rounding_variance := NULL;
1045: ELSIF (p_formula_detail_rec.scale_rounding_variance IS NULL) THEN
1046: l_scale_rounding_variance := fm_matl_dtl_rec.scale_rounding_variance;
1047: ELSE
1047: ELSE
1048: l_scale_rounding_variance := p_formula_detail_rec.scale_rounding_variance;
1049: END IF;
1050:
1051: IF (p_formula_detail_rec.contribute_yield_ind = FND_API.G_MISS_CHAR) THEN
1052: l_contribute_yield_ind := NULL;
1053: IF (l_debug = 'Y') THEN
1054: gmd_debug.put_line(' In Formula Header Pub - '
1055: ||' Cond 1');
1079: ||' - '
1080: ||x_return_status);
1081: END IF;
1082:
1083: IF (p_formula_detail_rec.scale_uom = FND_API.G_MISS_CHAR) THEN
1084: l_scale_uom := NULL;
1085: ELSIF (p_formula_detail_rec.scale_uom IS NULL) THEN
1086: l_scale_uom := fm_matl_dtl_rec.scale_uom;
1087: ELSE
1087: ELSE
1088: l_scale_uom := p_formula_detail_rec.scale_uom;
1089: END IF;
1090:
1091: IF (p_formula_detail_rec.contribute_step_qty_ind = FND_API.G_MISS_CHAR) THEN
1092: l_contribute_step_qty_ind := NULL;
1093: ELSIF (p_formula_detail_rec.contribute_step_qty_ind IS NULL) THEN
1094: l_contribute_step_qty_ind := fm_matl_dtl_rec.contribute_step_qty_ind;
1095: ELSE
1096: l_contribute_step_qty_ind := p_formula_detail_rec.contribute_step_qty_ind;
1097: END IF;
1098:
1099:
1100: IF (p_formula_detail_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1101: l_attribute_category := NULL;
1102: ELSIF (p_formula_detail_rec.attribute_category IS NULL) THEN
1103: l_attribute_category := fm_matl_dtl_rec.attribute_category;
1104: ELSE
1104: ELSE
1105: l_attribute_category := p_formula_detail_rec.attribute_category;
1106: END IF;
1107:
1108: IF (p_formula_detail_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1109: l_attribute1 := NULL;
1110: ELSIF (p_formula_detail_rec.attribute1 IS NULL) THEN
1111: l_attribute1 := fm_matl_dtl_rec.attribute1;
1112: ELSE
1112: ELSE
1113: l_attribute1 := p_formula_detail_rec.attribute1;
1114: END IF;
1115:
1116: IF (p_formula_detail_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1117: l_attribute2 := NULL;
1118: ELSIF (p_formula_detail_rec.attribute2 IS NULL) THEN
1119: l_attribute2 := fm_matl_dtl_rec.attribute2;
1120: ELSE
1120: ELSE
1121: l_attribute2 := p_formula_detail_rec.attribute2;
1122: END IF;
1123:
1124: IF (p_formula_detail_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1125: l_attribute3 := NULL;
1126: ELSIF (p_formula_detail_rec.attribute3 IS NULL) THEN
1127: l_attribute3 := fm_matl_dtl_rec.attribute3;
1128: ELSE
1128: ELSE
1129: l_attribute3 := p_formula_detail_rec.attribute3;
1130: END IF;
1131:
1132: IF (p_formula_detail_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1133: l_attribute4 := NULL;
1134: ELSIF (p_formula_detail_rec.attribute4 IS NULL) THEN
1135: l_attribute4 := fm_matl_dtl_rec.attribute4;
1136: ELSE
1136: ELSE
1137: l_attribute4 := p_formula_detail_rec.attribute4;
1138: END IF;
1139:
1140: IF (p_formula_detail_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1141: l_attribute5 := NULL;
1142: ELSIF (p_formula_detail_rec.attribute5 IS NULL) THEN
1143: l_attribute5 := fm_matl_dtl_rec.attribute5;
1144: ELSE
1144: ELSE
1145: l_attribute5 := p_formula_detail_rec.attribute5;
1146: END IF;
1147:
1148: IF (p_formula_detail_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1149: l_attribute6 := NULL;
1150: ELSIF (p_formula_detail_rec.attribute6 IS NULL) THEN
1151: l_attribute6 := fm_matl_dtl_rec.attribute6;
1152: ELSE
1152: ELSE
1153: l_attribute6 := p_formula_detail_rec.attribute6;
1154: END IF;
1155:
1156: IF (p_formula_detail_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1157: l_attribute7 := NULL;
1158: ELSIF (p_formula_detail_rec.attribute7 IS NULL) THEN
1159: l_attribute7 := fm_matl_dtl_rec.attribute7;
1160: ELSE
1160: ELSE
1161: l_attribute7 := p_formula_detail_rec.attribute7;
1162: END IF;
1163:
1164: IF (p_formula_detail_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1165: l_attribute8 := NULL;
1166: ELSIF (p_formula_detail_rec.attribute8 IS NULL) THEN
1167: l_attribute8 := fm_matl_dtl_rec.attribute8;
1168: ELSE
1168: ELSE
1169: l_attribute8 := p_formula_detail_rec.attribute8;
1170: END IF;
1171:
1172: IF (p_formula_detail_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1173: l_attribute9 := NULL;
1174: ELSIF (p_formula_detail_rec.attribute9 IS NULL) THEN
1175: l_attribute9 := fm_matl_dtl_rec.attribute9;
1176: ELSE
1176: ELSE
1177: l_attribute9 := p_formula_detail_rec.attribute9;
1178: END IF;
1179:
1180: IF (p_formula_detail_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1181: l_attribute10 := NULL;
1182: ELSIF (p_formula_detail_rec.attribute10 IS NULL) THEN
1183: l_attribute10 := fm_matl_dtl_rec.attribute10;
1184: ELSE
1184: ELSE
1185: l_attribute10 := p_formula_detail_rec.attribute10;
1186: END IF;
1187:
1188: IF (p_formula_detail_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1189: l_attribute11 := NULL;
1190: ELSIF (p_formula_detail_rec.attribute11 IS NULL) THEN
1191: l_attribute11 := fm_matl_dtl_rec.attribute11;
1192: ELSE
1192: ELSE
1193: l_attribute11 := p_formula_detail_rec.attribute11;
1194: END IF;
1195:
1196: IF (p_formula_detail_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1197: l_attribute12 := NULL;
1198: ELSIF (p_formula_detail_rec.attribute2 IS NULL) THEN
1199: l_attribute12 := fm_matl_dtl_rec.attribute12;
1200: ELSE
1200: ELSE
1201: l_attribute12 := p_formula_detail_rec.attribute12;
1202: END IF;
1203:
1204: IF (p_formula_detail_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1205: l_attribute13 := NULL;
1206: ELSIF (p_formula_detail_rec.attribute13 IS NULL) THEN
1207: l_attribute13 := fm_matl_dtl_rec.attribute13;
1208: ELSE
1208: ELSE
1209: l_attribute13 := p_formula_detail_rec.attribute13;
1210: END IF;
1211:
1212: IF (p_formula_detail_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1213: l_attribute14 := NULL;
1214: ELSIF (p_formula_detail_rec.attribute14 IS NULL) THEN
1215: l_attribute14 := fm_matl_dtl_rec.attribute14;
1216: ELSE
1216: ELSE
1217: l_attribute14 := p_formula_detail_rec.attribute14;
1218: END IF;
1219:
1220: IF (p_formula_detail_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1221: l_attribute15 := NULL;
1222: ELSIF (p_formula_detail_rec.attribute15 IS NULL) THEN
1223: l_attribute15 := fm_matl_dtl_rec.attribute15;
1224: ELSE
1224: ELSE
1225: l_attribute15 := p_formula_detail_rec.attribute15;
1226: END IF;
1227:
1228: IF (p_formula_detail_rec.attribute16 = FND_API.G_MISS_CHAR) THEN
1229: l_attribute16 := NULL;
1230: ELSIF (p_formula_detail_rec.attribute16 IS NULL) THEN
1231: l_attribute16 := fm_matl_dtl_rec.attribute16;
1232: ELSE
1232: ELSE
1233: l_attribute16 := p_formula_detail_rec.attribute16;
1234: END IF;
1235:
1236: IF (p_formula_detail_rec.attribute17 = FND_API.G_MISS_CHAR) THEN
1237: l_attribute17 := NULL;
1238: ELSIF (p_formula_detail_rec.attribute17 IS NULL) THEN
1239: l_attribute17 := fm_matl_dtl_rec.attribute17;
1240: ELSE
1240: ELSE
1241: l_attribute17 := p_formula_detail_rec.attribute17;
1242: END IF;
1243:
1244: IF (p_formula_detail_rec.attribute18 = FND_API.G_MISS_CHAR) THEN
1245: l_attribute18 := NULL;
1246: ELSIF (p_formula_detail_rec.attribute18 IS NULL) THEN
1247: l_attribute18 := fm_matl_dtl_rec.attribute18;
1248: ELSE
1248: ELSE
1249: l_attribute18 := p_formula_detail_rec.attribute18;
1250: END IF;
1251:
1252: IF (p_formula_detail_rec.attribute19 = FND_API.G_MISS_CHAR) THEN
1253: l_attribute19 := NULL;
1254: ELSIF (p_formula_detail_rec.attribute19 IS NULL) THEN
1255: l_attribute19 := fm_matl_dtl_rec.attribute19;
1256: ELSE
1256: ELSE
1257: l_attribute19 := p_formula_detail_rec.attribute19;
1258: END IF;
1259:
1260: IF (p_formula_detail_rec.attribute20 = FND_API.G_MISS_CHAR) THEN
1261: l_attribute20 := NULL;
1262: ELSIF (p_formula_detail_rec.attribute20 IS NULL) THEN
1263: l_attribute20 := fm_matl_dtl_rec.attribute20;
1264: ELSE
1264: ELSE
1265: l_attribute20 := p_formula_detail_rec.attribute20;
1266: END IF;
1267:
1268: IF (p_formula_detail_rec.attribute21 = FND_API.G_MISS_CHAR) THEN
1269: l_attribute21 := NULL;
1270: ELSIF (p_formula_detail_rec.attribute21 IS NULL) THEN
1271: l_attribute21 := fm_matl_dtl_rec.attribute21;
1272: ELSE
1272: ELSE
1273: l_attribute21 := p_formula_detail_rec.attribute21;
1274: END IF;
1275:
1276: IF (p_formula_detail_rec.attribute22 = FND_API.G_MISS_CHAR) THEN
1277: l_attribute22 := NULL;
1278: ELSIF (p_formula_detail_rec.attribute22 IS NULL) THEN
1279: l_attribute22 := fm_matl_dtl_rec.attribute22;
1280: ELSE
1280: ELSE
1281: l_attribute22 := p_formula_detail_rec.attribute22;
1282: END IF;
1283:
1284: IF (p_formula_detail_rec.attribute23 = FND_API.G_MISS_CHAR) THEN
1285: l_attribute23 := NULL;
1286: ELSIF (p_formula_detail_rec.attribute23 IS NULL) THEN
1287: l_attribute23 := fm_matl_dtl_rec.attribute23;
1288: ELSE
1288: ELSE
1289: l_attribute23 := p_formula_detail_rec.attribute23;
1290: END IF;
1291:
1292: IF (p_formula_detail_rec.attribute24 = FND_API.G_MISS_CHAR) THEN
1293: l_attribute24 := NULL;
1294: ELSIF (p_formula_detail_rec.attribute24 IS NULL) THEN
1295: l_attribute24 := fm_matl_dtl_rec.attribute24;
1296: ELSE
1296: ELSE
1297: l_attribute24 := p_formula_detail_rec.attribute24;
1298: END IF;
1299:
1300: IF (p_formula_detail_rec.attribute25 = FND_API.G_MISS_CHAR) THEN
1301: l_attribute25 := NULL;
1302: ELSIF (p_formula_detail_rec.attribute25 IS NULL) THEN
1303: l_attribute25 := fm_matl_dtl_rec.attribute25;
1304: ELSE
1304: ELSE
1305: l_attribute25 := p_formula_detail_rec.attribute25;
1306: END IF;
1307:
1308: IF (p_formula_detail_rec.attribute26 = FND_API.G_MISS_CHAR) THEN
1309: l_attribute26 := NULL;
1310: ELSIF (p_formula_detail_rec.attribute26 IS NULL) THEN
1311: l_attribute26 := fm_matl_dtl_rec.attribute26;
1312: ELSE
1312: ELSE
1313: l_attribute26 := p_formula_detail_rec.attribute26;
1314: END IF;
1315:
1316: IF (p_formula_detail_rec.attribute27 = FND_API.G_MISS_CHAR) THEN
1317: l_attribute27 := NULL;
1318: ELSIF (p_formula_detail_rec.attribute27 IS NULL) THEN
1319: l_attribute27 := fm_matl_dtl_rec.attribute27;
1320: ELSE
1320: ELSE
1321: l_attribute27 := p_formula_detail_rec.attribute27;
1322: END IF;
1323:
1324: IF (p_formula_detail_rec.attribute28 = FND_API.G_MISS_CHAR) THEN
1325: l_attribute28 := NULL;
1326: ELSIF (p_formula_detail_rec.attribute28 IS NULL) THEN
1327: l_attribute28 := fm_matl_dtl_rec.attribute28;
1328: ELSE
1328: ELSE
1329: l_attribute28 := p_formula_detail_rec.attribute28;
1330: END IF;
1331:
1332: IF (p_formula_detail_rec.attribute29 = FND_API.G_MISS_CHAR) THEN
1333: l_attribute29 := NULL;
1334: ELSIF (p_formula_detail_rec.attribute29 IS NULL) THEN
1335: l_attribute29 := fm_matl_dtl_rec.attribute29;
1336: ELSE
1336: ELSE
1337: l_attribute29 := p_formula_detail_rec.attribute29;
1338: END IF;
1339:
1340: IF (p_formula_detail_rec.attribute30 = FND_API.G_MISS_CHAR) THEN
1341: l_attribute30 := NULL;
1342: ELSIF (p_formula_detail_rec.attribute30 IS NULL) THEN
1343: l_attribute30 := fm_matl_dtl_rec.attribute30;
1344: ELSE
1344: ELSE
1345: l_attribute30 := p_formula_detail_rec.attribute30;
1346: END IF;
1347: --Bug 4479101
1348: IF (p_formula_detail_rec.ingredient_end_date = FND_API.G_MISS_DATE) THEN
1349: l_ingredient_end_date := NULL;
1350: ELSIF (p_formula_detail_rec.ingredient_end_date IS NULL) THEN
1351: l_ingredient_end_date := fm_matl_dtl_rec.ingredient_end_date;
1352: ELSE
1363: ||' Assigning values prior to pvt API call '
1364: ||' - '
1365: ||x_return_status);
1366: END IF;
1367: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1368: l_fm_matl_dtl_rec.formulaline_id := p_formula_detail_rec.formulaline_id;
1369: l_fm_matl_dtl_rec.formula_id := l_formula_id;
1370: l_fm_matl_dtl_rec.line_type := p_formula_detail_rec.line_type;
1371: l_fm_matl_dtl_rec.line_no := p_formula_detail_rec.line_no;
1439: END IF;
1440: GMD_FORMULA_DETAIL_PVT.Update_FormulaDetail
1441: ( p_api_version => 1.0
1442: ,p_init_msg_list => p_init_msg_list
1443: ,p_commit => FND_API.G_FALSE
1444: ,x_return_status => x_return_status
1445: ,x_msg_count => x_msg_count
1446: ,x_msg_data => x_msg_data
1447: ,p_formula_detail_rec => l_fm_matl_dtl_rec
1469: -- Kapil ME Auto-Prod :Bug#5716318
1470:
1471: /* IF update of a line fails - Raise an exception
1472: rather than trying to insert other lines */
1473: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1470:
1471: /* IF update of a line fails - Raise an exception
1472: rather than trying to insert other lines */
1473: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1471: /* IF update of a line fails - Raise an exception
1472: rather than trying to insert other lines */
1473: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1479: END LOOP; -- End of main update loop
1472: rather than trying to insert other lines */
1473: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1479: END LOOP; -- End of main update loop
1480:
1478:
1479: END LOOP; -- End of main update loop
1480:
1481: /* Check if p_commit is set to TRUE */
1482: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
1483: (FND_API.To_Boolean( p_commit ) ) THEN
1484: Commit;
1485: END IF;
1486:
1479: END LOOP; -- End of main update loop
1480:
1481: /* Check if p_commit is set to TRUE */
1482: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
1483: (FND_API.To_Boolean( p_commit ) ) THEN
1484: Commit;
1485: END IF;
1486:
1487: /* Get the message count and information */
1488: FND_MSG_PUB.Count_And_Get (
1489: p_count => x_msg_count,
1490: p_data => x_msg_data );
1491: EXCEPTION
1492: WHEN FND_API.G_EXC_ERROR THEN
1493: ROLLBACK to Update_FormulaDetail;
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495: FND_MSG_PUB.Count_And_Get (
1496: p_count => x_msg_count,
1490: p_data => x_msg_data );
1491: EXCEPTION
1492: WHEN FND_API.G_EXC_ERROR THEN
1493: ROLLBACK to Update_FormulaDetail;
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495: FND_MSG_PUB.Count_And_Get (
1496: p_count => x_msg_count,
1497: p_data => x_msg_data );
1498: IF (l_debug = 'Y') THEN
1499: gmd_debug.put_line(' In Formula Detail pub - In error Exception Section '
1500: ||' - '
1501: ||x_return_status);
1502: END IF;
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: ROLLBACK to Update_FormulaDetail;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: FND_MSG_PUB.Count_And_Get (
1507: p_count => x_msg_count,
1501: ||x_return_status);
1502: END IF;
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: ROLLBACK to Update_FormulaDetail;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: FND_MSG_PUB.Count_And_Get (
1507: p_count => x_msg_count,
1508: p_data => x_msg_data );
1509: IF (l_debug = 'Y') THEN
1513: END IF;
1514: WHEN OTHERS THEN
1515: ROLLBACK to Update_FormulaDetail;
1516: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
1517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1518: FND_MSG_PUB.Count_And_Get (
1519: p_count => x_msg_count,
1520: p_data => x_msg_data );
1521: IF (l_debug = 'Y') THEN
1611: /* Define Savepoint */
1612: SAVEPOINT Delete_FormulaDetail;
1613:
1614: /* Standard Check for API compatibility */
1615: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1616: p_api_version ,
1617: l_api_name ,
1618: G_PKG_NAME )
1619: THEN
1616: p_api_version ,
1617: l_api_name ,
1618: G_PKG_NAME )
1619: THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622:
1623: /* Initialize message list if p_init_msg_list is set to TRUE */
1624: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622:
1623: /* Initialize message list if p_init_msg_list is set to TRUE */
1624: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1625: FND_MSG_PUB.initialize;
1626: END IF;
1627: /* Initialize API return status to success */
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1624: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1625: FND_MSG_PUB.initialize;
1626: END IF;
1627: /* Initialize API return status to success */
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630: /* API body */
1631: /* 1. Does minimum validation */
1632: /* 2. Call the private API that does the database inserts/ updates */
1631: /* 1. Does minimum validation */
1632: /* 2. Call the private API that does the database inserts/ updates */
1633:
1634: IF (p_formula_detail_tbl.count = 0) THEN
1635: RAISE FND_API.G_EXC_ERROR;
1636: END IF;
1637:
1638: FOR i in 1 .. p_formula_detail_tbl.count LOOP
1639:
1636: END IF;
1637:
1638: FOR i in 1 .. p_formula_detail_tbl.count LOOP
1639:
1640: x_return_status := FND_API.G_RET_STS_SUCCESS;
1641:
1642: p_formula_detail_rec := p_formula_detail_tbl(i);
1643:
1644: /* Check if there is a valid userid */
1646: l_user_id := FND_GLOBAL.user_id;
1647: IF (l_user_id IS NULL) THEN
1648: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
1649: FND_MSG_PUB.Add;
1650: RAISE FND_API.G_EXC_ERROR;
1651: END IF;
1652:
1653: /* =================================== */
1654: /* Check if an appropriate action_code */
1658: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_ACTION');
1659: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_detail_rec.formula_no);
1660: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_detail_rec.formula_vers);
1661: FND_MSG_PUB.Add;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END IF;
1664:
1665:
1666: /* ============================ */
1672: GMDFMVAL_PUB.get_formulaline_id(p_formula_detail_rec.formulaline_id,l_return_val);
1673: IF (l_return_val <> 0) THEN
1674: FND_MESSAGE.SET_NAME('GMD','FM_MISSING_FMLINE_ID');
1675: FND_MSG_PUB.Add;
1676: RAISE FND_API.G_EXC_ERROR;
1677: END IF;
1678: ELSIF (p_formula_detail_rec.formulaline_id IS NULL) THEN
1679: FND_MESSAGE.SET_NAME('GMD','FM_MISSING_FMLINE_ID');
1680: FND_MSG_PUB.Add;
1677: END IF;
1678: ELSIF (p_formula_detail_rec.formulaline_id IS NULL) THEN
1679: FND_MESSAGE.SET_NAME('GMD','FM_MISSING_FMLINE_ID');
1680: FND_MSG_PUB.Add;
1681: RAISE FND_API.G_EXC_ERROR;
1682: END IF;
1683:
1684: /* ======================== */
1685: /* Get the formula id */
1696: FND_MESSAGE.SET_NAME('GMD', 'FM_INVFORMULANO');
1697: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_detail_rec.formula_no);
1698: FND_MSG_PUB.Add;
1699: CLOSE get_formula_id;
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702: CLOSE get_formula_id;
1703: ELSE
1704: l_formula_id := p_formula_detail_rec.formula_id;
1712: FND_MESSAGE.SET_TOKEN('VERS', p_formula_detail_rec.formula_vers);
1713: FND_MESSAGE.SET_TOKEN('STATUS',
1714: GMD_FORMULA_DETAIL_PUB.get_fm_status_meaning(l_formula_id));
1715: FND_MSG_PUB.Add;
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718:
1719: /* ================================================= */
1720: /* Checked if only 1 line if an ingredient or product */
1730: ELSE
1731: FND_MESSAGE.SET_NAME('GMD', 'GMD_MUST_HAVE_INGREDIENT');
1732: END IF;
1733: FND_MSG_PUB.Add;
1734: RAISE FND_API.G_EXC_ERROR;
1735: END IF;
1736: CLOSE check_num_details;
1737:
1738: /* ================================================= */
1745: /* If there are valid validity rules, stop the delete */
1746: IF (check_validity_rules%FOUND) THEN
1747: FND_MESSAGE.SET_NAME('GMD', 'GMD_VALID_VALIDITY');
1748: FND_MSG_PUB.Add;
1749: RAISE FND_API.G_EXC_ERROR;
1750: END IF;
1751: CLOSE check_validity_rules;
1752: END IF;
1753: END IF; /* If not called by a form */
1753: END IF; /* If not called by a form */
1754: END IF; /* If this is an ingredient or product */
1755:
1756: /* Call for private API */
1757: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1758:
1759: l_fm_matl_dtl_rec.formulaline_id := p_formula_detail_rec.formulaline_id;
1760: l_fm_matl_dtl_rec.formula_id := l_formula_id;
1761:
1766:
1767: GMD_FORMULA_DETAIL_PVT.Delete_FormulaDetail
1768: ( p_api_version => p_api_version
1769: ,p_init_msg_list => p_init_msg_list
1770: ,p_commit => FND_API.G_FALSE
1771: ,x_return_status => x_return_status
1772: ,x_msg_count => x_msg_count
1773: ,x_msg_data => x_msg_data
1774: ,p_formula_detail_rec => l_fm_matl_dtl_rec
1800:
1801: /* End of API body */
1802: /* IF delete of a line fails - Raise an exception
1803: rather than trying to deleting other lines */
1804: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1801: /* End of API body */
1802: /* IF delete of a line fails - Raise an exception
1803: rather than trying to deleting other lines */
1804: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1802: /* IF delete of a line fails - Raise an exception
1803: rather than trying to deleting other lines */
1804: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1810: END LOOP; -- End of main delete loop
1803: rather than trying to deleting other lines */
1804: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1810: END LOOP; -- End of main delete loop
1811:
1809:
1810: END LOOP; -- End of main delete loop
1811:
1812: /* Check if p_commit is set to TRUE */
1813: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
1814: (FND_API.To_Boolean( p_commit ) ) THEN
1815: Commit;
1816: END IF;
1817:
1810: END LOOP; -- End of main delete loop
1811:
1812: /* Check if p_commit is set to TRUE */
1813: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') AND
1814: (FND_API.To_Boolean( p_commit ) ) THEN
1815: Commit;
1816: END IF;
1817:
1818: /* Get the message count and information */
1819: FND_MSG_PUB.Count_And_Get (
1820: p_count => x_msg_count,
1821: p_data => x_msg_data );
1822: EXCEPTION
1823: WHEN FND_API.G_EXC_ERROR THEN
1824: ROLLBACK to Delete_FormulaDetail;
1825: x_return_status := FND_API.G_RET_STS_ERROR;
1826: FND_MSG_PUB.Count_And_Get (
1827: p_count => x_msg_count,
1821: p_data => x_msg_data );
1822: EXCEPTION
1823: WHEN FND_API.G_EXC_ERROR THEN
1824: ROLLBACK to Delete_FormulaDetail;
1825: x_return_status := FND_API.G_RET_STS_ERROR;
1826: FND_MSG_PUB.Count_And_Get (
1827: p_count => x_msg_count,
1828: p_data => x_msg_data );
1829:
1826: FND_MSG_PUB.Count_And_Get (
1827: p_count => x_msg_count,
1828: p_data => x_msg_data );
1829:
1830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1831: ROLLBACK to Delete_FormulaDetail;
1832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1833: FND_MSG_PUB.Count_And_Get (
1834: p_count => x_msg_count,
1828: p_data => x_msg_data );
1829:
1830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1831: ROLLBACK to Delete_FormulaDetail;
1832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1833: FND_MSG_PUB.Count_And_Get (
1834: p_count => x_msg_count,
1835: p_data => x_msg_data );
1836:
1836:
1837: WHEN OTHERS THEN
1838: ROLLBACK to Delete_FormulaDetail;
1839: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
1840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1841: FND_MSG_PUB.Count_And_Get (
1842: p_count => x_msg_count,
1843: p_data => x_msg_data );
1844: