[Home] [Help]
173: /* Define Savepoint */
174: SAVEPOINT Insert_FormulaHeader_PUB;
175:
176: /* Standard Check for API compatibility */
177: IF NOT FND_API.Compatible_API_Call ( l_api_version
178: ,p_api_version
179: ,l_api_name
180: ,G_PKG_NAME )
181: THEN
178: ,p_api_version
179: ,l_api_name
180: ,G_PKG_NAME )
181: THEN
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183: END IF;
184:
185: /* Initialize message list if p_init_msg_list is set to TRUE */
186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183: END IF;
184:
185: /* Initialize message list if p_init_msg_list is set to TRUE */
186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
187: FND_MSG_PUB.initialize;
188: END IF;
189:
190: /* Start the loop - Error out if the table is empty */
188: END IF;
189:
190: /* Start the loop - Error out if the table is empty */
191: IF (p_formula_header_tbl.count = 0) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: l_return_status := FND_API.G_RET_STS_SUCCESS;
196: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
191: IF (p_formula_header_tbl.count = 0) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: l_return_status := FND_API.G_RET_STS_SUCCESS;
196: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
197: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
198:
199: FOR i IN 1 .. p_formula_header_tbl.count LOOP
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: l_return_status := FND_API.G_RET_STS_SUCCESS;
196: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
197: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
198:
199: FOR i IN 1 .. p_formula_header_tbl.count LOOP
200:
193: END IF;
194:
195: l_return_status := FND_API.G_RET_STS_SUCCESS;
196: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
197: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
198:
199: FOR i IN 1 .. p_formula_header_tbl.count LOOP
200:
201: IF (l_debug = 'Y') THEN
207: gmd_debug.put_line(' In Formula Header Pub - Entering loop with row # '||i);
208: END IF;
209:
210: /* Initialize return status for every header row */
211: x_return_status := FND_API.G_RET_STS_SUCCESS;
212:
213: /* Header flag is used to check if the header already exists */
214: /* Since each header could have multiple detail lines, */
215: /* for any record even if header exists we may need to insert its */
240: /* Bug 4603060 check if the user context is set */
241: IF (l_user_id IS NULL) THEN
242: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
243: FND_MSG_PUB.Add;
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
246:
247: IF (l_debug = 'Y') THEN
248: gmd_debug.put_line(' In Formula Header Pub - Before formula id val '
264: IF (l_return_val <> 0) THEN
265: IF (p_formula_header_rec.formula_no IS NULL) THEN
266: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
267: FND_MSG_PUB.Add;
268: RAISE FND_API.G_EXC_ERROR;
269: ELSE
270: l_formula_no := p_formula_header_rec.formula_no;
271: END IF;
272:
272:
273: IF (p_formula_header_rec.formula_vers IS NULL) THEN
274: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
275: FND_MSG_PUB.Add;
276: RAISE FND_API.G_EXC_ERROR;
277: ELSE
278: l_formula_vers := p_formula_header_rec.formula_vers;
279: END IF;
280: ELSE
362: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
363: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
364: -- Bug #3119000 (JKB) Changed values returned above to l_.
365: FND_MSG_PUB.Add;
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368: END IF;
369:
370: IF (l_debug = 'Y') THEN
403: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
404: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
405: -- Bug #3119000 (JKB) Changed values returned above to l_.
406: FND_MSG_PUB.Add;
407: RAISE FND_API.G_EXC_ERROR;
408: END IF;
409: END IF;
410:
411: /* Bug No.6800659 - Start (Included this fix in patch, 6799624) */
429: --Check that organization id is not null if raise an error message
430: IF (p_formula_header_rec.owner_organization_id IS NULL) THEN
431: FND_MESSAGE.SET_NAME('GMD', 'GMD_MISSING_ORGANIZATION_ID');
432: FND_MSG_PUB.Add;
433: RAISE FND_API.G_EXC_ERROR;
434: ELSE
435: --Check the organization id passed is process enabled if not raise an error message
436: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
437: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
436: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
437: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
438: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_formula_header_rec.owner_organization_id);
439: FND_MSG_PUB.Add;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442: -- Kapil ME Auto-Prod :Bug# 5716318
443: /* Fetch the Organization Auto-Product qty calculate Parameter*/
444: GMD_API_GRP.FETCH_PARM_VALUES(P_orgn_id => p_formula_header_rec.owner_organization_id,
448: IF (l_auto_calc IS NULL OR l_auto_calc = 'N') AND p_formula_header_rec.AUTO_PRODUCT_CALC = 'Y' THEN
449: /* Error raised when passing Formula Parameter as Yes when organziation parmater is NO */
450: FND_MESSAGE.SET_NAME('GMD', 'GMD_AUTO_PRODUCT_OFF');
451: FND_MSG_PUB.Add;
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
454: /* Error to be raised when Setting Scaling Allowed to No */
455: IF p_formula_header_rec.auto_product_calc = 'Y'
456: AND p_formula_header_rec.scale_type_hdr = 0 THEN
455: IF p_formula_header_rec.auto_product_calc = 'Y'
456: AND p_formula_header_rec.scale_type_hdr = 0 THEN
457: FND_MESSAGE.SET_NAME('GMD', 'GMD_SCALE_AUTO_NO');
458: FND_MSG_PUB.Add;
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461: END IF;
462:
463: /* Bug No.6799624 - Start */
471: organization_id = p_formula_header_tbl(j).owner_organization_id;
472: EXCEPTION
473: WHEN others THEN
474: ROLLBACK to Insert_FormulaHeader_PUB;
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: FND_MSG_PUB.Count_And_Get (
477: p_count => x_msg_count,
478: p_data => x_msg_data );
479: END;
481: IF v_recipe_enabled <> 'Y' THEN
482: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITEM_NOT_RECIPE_ENABLED');
483: FND_MESSAGE.SET_TOKEN('ITEM_NO', v_item_no);
484: FND_MSG_PUB.Add;
485: RAISE FND_API.G_EXC_ERROR;
486: END IF ;
487: END LOOP;
488: /* Bug No.6799624 - End */
489:
511: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_DESC');
512: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
513: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
514: FND_MSG_PUB.Add;
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: /* ===================================== */
519: /* Validate the formula type */
530: FND_MESSAGE.SET_NAME('GMD', 'FM_WRONG_TYPE');
531: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
532: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
533: FND_MSG_PUB.Add;
534: RAISE FND_API.G_EXC_ERROR;
535: END IF;
536:
537: /* ======================================= */
538: /* Check the scale type for formula header */
548: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_SCALE_TYPE');
549: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
550: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
551: FND_MSG_PUB.Add;
552: RAISE FND_API.G_EXC_ERROR;
553: ELSIF (p_formula_header_rec.scale_type_hdr NOT IN (0,1)) THEN
554: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
555: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
556: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
554: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
555: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
556: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
557: FND_MSG_PUB.Add;
558: RAISE FND_API.G_EXC_ERROR;
559: END IF;
560:
561: /* ====================== */
562: /* Validate formula_class */
574: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
575: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
576: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
577: FND_MSG_PUB.Add;
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580: END IF;
581:
582: /* ================================================== */
588: ||p_formula_header_rec.formula_id
589: ||' - '
590: ||x_return_status);
591: END IF;
592: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
593: IF (p_formula_header_rec.formula_id IS NULL) THEN
594: l_return_val := GMDSURG.get_surrogate('formula_id');
595: IF (l_return_val < 1) THEN
596: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
594: l_return_val := GMDSURG.get_surrogate('formula_id');
595: IF (l_return_val < 1) THEN
596: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
597: FND_MSG_PUB.Add;
598: RAISE FND_API.G_EXC_ERROR;
599: ELSE
600: l_surrogate := l_return_val;
601: END IF;
602: ELSE
613: ||' - '
614: ||x_return_status);
615: END IF;
616:
617: IF (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
618:
619: --kkillams, bug 3408799
620: --Putting formula id and organization code into temporary table.
621: IF NVL(UPPER(p_called_from_forms),'NO') <> 'YES' THEN
693:
694: GMD_FORMULA_HEADER_PVT.Insert_FormulaHeader
695: ( p_api_version => p_api_version
696: ,p_init_msg_list => p_init_msg_list
697: ,p_commit => FND_API.G_FALSE
698: ,x_return_status => x_return_status
699: ,x_msg_count => x_msg_count
700: ,x_msg_data => x_msg_data
701: ,p_formula_header_rec => l_fm_form_mst_rec
742: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
743: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
744: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_formula_detail_tbl(1).item_no );
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF l_flag = 'W' AND l_formula_detail_tbl(1).line_type = -1 AND l_formula_detail_tbl(1).qty = 0 THEN
748: FND_MESSAGE.SET_NAME('GMD','GMD_ALLOW_ZERO_QTY');
749: FND_MSG_PUB.Add;
750: END IF;
755: /* validation or insertion we do not load fomula detail information. */
756:
757:
758: /* Create formulalines only if the header is succesfully created */
759: IF (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
760: IF (l_debug = 'Y') THEN
761: gmd_debug.put_line(' In Formula Header Pub - '
762: ||'About to call the Formula line Pub API '
763: ||' - '
767: GMD_FORMULA_DETAIL_PUB.Insert_FormulaDetail
768: ( p_api_version => l_api_version
769: ,p_init_msg_list => p_init_msg_list
770: ,p_called_from_forms => p_called_from_forms
771: ,p_commit => FND_API.G_FALSE
772: ,x_return_status => x_return_status
773: ,x_msg_count => x_msg_count
774: ,x_msg_data => x_msg_data
775: ,p_formula_detail_tbl => l_formula_detail_tbl
784: END IF;
785:
786: /* IF creating a header and/or line fails - Raise an exception
787: rather than trying to insert other header / lines */
788: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
789: RAISE FND_API.G_EXC_ERROR;
790: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792: END IF;
785:
786: /* IF creating a header and/or line fails - Raise an exception
787: rather than trying to insert other header / lines */
788: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
789: RAISE FND_API.G_EXC_ERROR;
790: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792: END IF;
793:
786: /* IF creating a header and/or line fails - Raise an exception
787: rather than trying to insert other header / lines */
788: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
789: RAISE FND_API.G_EXC_ERROR;
790: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792: END IF;
793:
794: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
787: rather than trying to insert other header / lines */
788: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
789: RAISE FND_API.G_EXC_ERROR;
790: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792: END IF;
793:
794: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
795:
792: END IF;
793:
794: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
795:
796: IF (x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') ) AND
797:
798: (FND_API.To_Boolean(p_commit)) THEN
799: /* Check if p_commit is set to TRUE */
800: Commit;
794: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
795:
796: IF (x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') ) AND
797:
798: (FND_API.To_Boolean(p_commit)) THEN
799: /* Check if p_commit is set to TRUE */
800: Commit;
801: --kkillams 19-FBE-2004 w.r.t. bug 3408799
802: SAVEPOINT default_status_sp;
811: IF (l_entity_status.status_type = 700) THEN
812: IF (gmdfmval_pub.check_expr_items(l_tbl_formula_id(i).formula_id)) THEN
813: FND_MESSAGE.SET_NAME('GMD','GMD_EXPR_ITEMS_FOUND');
814: FND_MSG_PUB.ADD;
815: RAISE FND_API.G_EXC_ERROR;
816: END IF; -- IF (gmdfmval_pub.check_expr_items(p_formula_header_rec.formula_id) THEN
817: END IF; -- IF (X_status_type = 700) THEN
818:
819: --Check any inactive items in formula before changing the status
820: IF (l_entity_status.status_type IN (400,700)) THEN
821: IF (gmdfmval_pub.inactive_items(l_tbl_formula_id(i).formula_id)) THEN
822: FND_MESSAGE.SET_NAME('GMI','IC_ITEM_INACTIVE');
823: FND_MSG_PUB.ADD;
824: RAISE FND_API.G_EXC_ERROR;
825: END IF; -- IF (gmdfmval_pub.inactive_items(V_formula_id) THEN
826: END IF; --l_entity_status.status_type IN (400,700)
827: --kkillams,bug 3408799
828:
837: , p_ignore_flag => FALSE
838: , x_message_count => x_msg_count
839: , x_message_list => x_msg_data
840: , x_return_status => X_return_status);
841: IF x_return_status NOT IN (FND_API.g_ret_sts_success,'P') THEN
842: RAISE default_status_err;
843: END IF; --x_return_status
844: END IF; --l_entity_status.entity_status <> 100
845:
847: (p_formula_header_rec.formula_status = '100') THEN
848:
849: GMD_RECIPE_GENERATE.recipe_generate(l_tbl_formula_id(i).owner_organization_id, l_tbl_formula_id(i).formula_id,
850: l_return_status, x_recipe_no, x_recipe_version);
851: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
852: RAISE RECIPE_GENERATE_ERROR;
853: END IF;
854:
855: END IF;
869: ROLLBACK TO default_status_sp;
870: FND_MSG_PUB.Count_And_Get (
871: p_count => x_msg_count,
872: p_data => x_msg_data );
873: WHEN FND_API.G_EXC_ERROR THEN
874: ROLLBACK to Insert_FormulaHeader_PUB;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: FND_MSG_PUB.Count_And_Get (
877: p_count => x_msg_count,
871: p_count => x_msg_count,
872: p_data => x_msg_data );
873: WHEN FND_API.G_EXC_ERROR THEN
874: ROLLBACK to Insert_FormulaHeader_PUB;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: FND_MSG_PUB.Count_And_Get (
877: p_count => x_msg_count,
878: p_data => x_msg_data );
879: IF (l_debug = 'Y') THEN
880: gmd_debug.put_line(' In Formula Header Pub - In Error Exception Section '
881: ||' - '
882: ||x_return_status);
883: END IF;
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: ROLLBACK to Insert_FormulaHeader_PUB;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: FND_MSG_PUB.Count_And_Get (
888: p_count => x_msg_count,
882: ||x_return_status);
883: END IF;
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: ROLLBACK to Insert_FormulaHeader_PUB;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: FND_MSG_PUB.Count_And_Get (
888: p_count => x_msg_count,
889: p_data => x_msg_data );
890: IF (l_debug = 'Y') THEN
893: ||x_return_status);
894: END IF;
895: WHEN RECIPE_GENERATE_ERROR THEN
896: ROLLBACK to Insert_FormulaHeader_PUB;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
898: FND_MSG_PUB.Count_And_Get (
899: p_count => x_msg_count,
900: p_data => x_msg_data );
901: IF (l_debug = 'Y') THEN
905: END IF;
906: WHEN OTHERS THEN
907: ROLLBACK to Insert_FormulaHeader_PUB;
908: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: FND_MSG_PUB.Count_And_Get (
911: p_count => x_msg_count,
912: p_data => x_msg_data );
913: IF (l_debug = 'Y') THEN
1009: /* Define Savepoint */
1010: SAVEPOINT Update_FormulaHeader_PUB;
1011:
1012: /* Standard Check for API compatibility */
1013: IF NOT FND_API.Compatible_API_Call (l_api_version
1014: ,p_api_version
1015: ,l_api_name
1016: ,G_PKG_NAME )
1017: THEN
1014: ,p_api_version
1015: ,l_api_name
1016: ,G_PKG_NAME )
1017: THEN
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF;
1020:
1021: /* Initialize message list if p_init_msg_list is set to TRUE */
1022: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF;
1020:
1021: /* Initialize message list if p_init_msg_list is set to TRUE */
1022: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1023: FND_MSG_PUB.initialize;
1024: END IF;
1025:
1026: /* Start looping through the table */
1024: END IF;
1025:
1026: /* Start looping through the table */
1027: IF (p_formula_header_tbl.count = 0) THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030:
1031: FOR i in 1 .. p_formula_header_tbl.count LOOP
1032:
1030:
1031: FOR i in 1 .. p_formula_header_tbl.count LOOP
1032:
1033: /* Initialize API return status to success */
1034: x_return_status := FND_API.G_RET_STS_SUCCESS;
1035:
1036: IF (l_debug = 'Y') THEN
1037: gmd_debug.put_line(' In Formula Header Pub - Entering loop with row # '||i);
1038: END IF;
1048: -- Bug 4603060
1049: IF (l_user_id IS NULL) THEN
1050: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
1051: FND_MSG_PUB.Add;
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1055: /* ==================== */
1056: /* Get the formula id */
1067: IF (l_return_val <> 0) THEN
1068: IF (p_formula_header_rec.formula_no IS NULL) THEN
1069: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
1070: FND_MSG_PUB.Add;
1071: RAISE FND_API.G_EXC_ERROR;
1072: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1073: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1074: FND_MSG_PUB.Add;
1075: RAISE FND_API.G_EXC_ERROR;
1071: RAISE FND_API.G_EXC_ERROR;
1072: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1073: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1074: FND_MSG_PUB.Add;
1075: RAISE FND_API.G_EXC_ERROR;
1076: ELSE
1077: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1078: FND_MSG_PUB.Add;
1079: RAISE FND_API.G_EXC_ERROR;
1075: RAISE FND_API.G_EXC_ERROR;
1076: ELSE
1077: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1078: FND_MSG_PUB.Add;
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081: END IF;
1082: ELSE
1083: l_formula_id := p_formula_header_rec.formula_id;
1168: /* Update of the Flag is prevented form the API as the user cannot specify the Percentages. */
1169: IF NVL(UPPER(p_called_from_forms),'NO') <> 'YES' THEN
1170: FND_MESSAGE.SET_NAME('GMD', 'GMD_CANNOT_AUTO_FLAG');
1171: FND_MSG_PUB.Add;
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1174: END IF;
1175: END LOOP;
1176:
1180: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
1181: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
1182: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_formula_header_rec.owner_organization_id);
1183: FND_MSG_PUB.Add;
1184: RAISE FND_API.G_EXC_ERROR;
1185: END IF;
1186: END IF;
1187:
1188: /* Check if update is allowed */
1195: FND_MESSAGE.SET_TOKEN('NO', p_formula_header_rec.formula_no);
1196: FND_MESSAGE.SET_TOKEN('VERS', p_formula_header_rec.formula_vers);
1197: FND_MESSAGE.SET_TOKEN('STATUS',get_fm_status_meaning(l_formula_id));
1198: FND_MSG_PUB.Add;
1199: RAISE FND_API.G_EXC_ERROR;
1200: END IF;
1201: END IF;
1202: END IF;
1203:
1215: FND_MESSAGE.SET_NAME('GMD', 'FM_WRONG_TYPE');
1216: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1217: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1218: FND_MSG_PUB.Add;
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221:
1222: /* ==================== */
1223: /* Check the scale type */
1232: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_SCALE_TYPE');
1233: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1234: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1235: FND_MSG_PUB.Add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: ELSIF (p_formula_header_rec.scale_type_hdr NOT IN (0,1)) THEN
1238: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
1239: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1240: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1238: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
1239: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1240: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1241: FND_MSG_PUB.Add;
1242: RAISE FND_API.G_EXC_ERROR;
1243: -- SCALING KAPIL
1244: ELSIF p_formula_header_rec.scale_type_hdr = 0 THEN
1245: IF p_formula_header_rec.auto_product_calc = 'Y' THEN
1246: p_formula_header_rec.auto_product_calc := 'N';
1265: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
1266: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1267: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1268: FND_MSG_PUB.Add;
1269: RAISE FND_API.G_EXC_ERROR;
1270: END IF;
1271: END IF;
1272:
1273: OPEN get_header_rec(p_formula_header_rec.formula_id);
1273: OPEN get_header_rec(p_formula_header_rec.formula_id);
1274: FETCH get_header_rec INTO fm_form_mst_rec;
1275:
1276: /* Shyam Sitaraman - Bug 2652200 */
1277: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
1278: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
1279: /* as the user is intending to update the field to NULL */
1280: /* Validate all optional parameters passed */
1281: IF (l_debug = 'Y') THEN
1274: FETCH get_header_rec INTO fm_form_mst_rec;
1275:
1276: /* Shyam Sitaraman - Bug 2652200 */
1277: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
1278: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
1279: /* as the user is intending to update the field to NULL */
1280: /* Validate all optional parameters passed */
1281: IF (l_debug = 'Y') THEN
1282: gmd_debug.put_line(' Before G-MISS validation - '
1286: END IF;
1287:
1288: IF (get_header_rec%FOUND) THEN
1289:
1290: IF (p_formula_header_rec.formula_desc2 = FND_API.G_MISS_CHAR) THEN
1291: l_formula_desc2 := NULL;
1292: ELSIF (p_formula_header_rec.formula_desc2 IS NULL) THEN
1293: l_formula_desc2 := fm_form_mst_rec.formula_desc2;
1294: ELSE
1294: ELSE
1295: l_formula_desc2 := p_formula_header_rec.formula_desc2;
1296: END IF;
1297:
1298: IF (p_formula_header_rec.formula_class = FND_API.G_MISS_CHAR) THEN
1299: l_formula_class := NULL;
1300: ELSIF (p_formula_header_rec.formula_class IS NULL) THEN
1301: l_formula_class := fm_form_mst_rec.formula_class;
1302: ELSE
1302: ELSE
1303: l_formula_class := p_formula_header_rec.formula_class;
1304: END IF;
1305:
1306: IF (p_formula_header_rec.text_code_hdr = FND_API.G_MISS_NUM) THEN
1307: l_text_code := NULL;
1308: ELSIF (p_formula_header_rec.text_code_hdr IS NULL) THEN
1309: l_text_code := fm_form_mst_rec.text_code;
1310: ELSE
1310: ELSE
1311: l_text_code := p_formula_header_rec.text_code_hdr;
1312: END IF;
1313:
1314: IF (p_formula_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1315: l_attribute_category := NULL;
1316: ELSIF (p_formula_header_rec.attribute_category IS NULL) THEN
1317: l_attribute_category := fm_form_mst_rec.attribute_category;
1318: ELSE
1318: ELSE
1319: l_attribute_category := p_formula_header_rec.attribute_category;
1320: END IF;
1321:
1322: IF (p_formula_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1323: l_attribute1 := NULL;
1324: ELSIF (p_formula_header_rec.attribute1 IS NULL) THEN
1325: l_attribute1 := fm_form_mst_rec.attribute1;
1326: ELSE
1326: ELSE
1327: l_attribute1 := p_formula_header_rec.attribute1;
1328: END IF;
1329:
1330: IF (p_formula_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1331: l_attribute2 := NULL;
1332: ELSIF (p_formula_header_rec.attribute2 IS NULL) THEN
1333: l_attribute2 := fm_form_mst_rec.attribute2;
1334: ELSE
1334: ELSE
1335: l_attribute2 := p_formula_header_rec.attribute2;
1336: END IF;
1337:
1338: IF (p_formula_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1339: l_attribute3 := NULL;
1340: ELSIF (p_formula_header_rec.attribute3 IS NULL) THEN
1341: l_attribute3 := fm_form_mst_rec.attribute3;
1342: ELSE
1342: ELSE
1343: l_attribute3 := p_formula_header_rec.attribute3;
1344: END IF;
1345:
1346: IF (p_formula_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1347: l_attribute4 := NULL;
1348: ELSIF (p_formula_header_rec.attribute4 IS NULL) THEN
1349: l_attribute4 := fm_form_mst_rec.attribute4;
1350: ELSE
1350: ELSE
1351: l_attribute4 := p_formula_header_rec.attribute4;
1352: END IF;
1353:
1354: IF (p_formula_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1355: l_attribute5 := NULL;
1356: ELSIF (p_formula_header_rec.attribute5 IS NULL) THEN
1357: l_attribute5 := fm_form_mst_rec.attribute5;
1358: ELSE
1358: ELSE
1359: l_attribute5 := p_formula_header_rec.attribute5;
1360: END IF;
1361:
1362: IF (p_formula_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1363: l_attribute6 := NULL;
1364: ELSIF (p_formula_header_rec.attribute6 IS NULL) THEN
1365: l_attribute6 := fm_form_mst_rec.attribute6;
1366: ELSE
1366: ELSE
1367: l_attribute6 := p_formula_header_rec.attribute6;
1368: END IF;
1369:
1370: IF (p_formula_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1371: l_attribute7 := NULL;
1372: ELSIF (p_formula_header_rec.attribute7 IS NULL) THEN
1373: l_attribute7 := fm_form_mst_rec.attribute7;
1374: ELSE
1374: ELSE
1375: l_attribute7 := p_formula_header_rec.attribute7;
1376: END IF;
1377:
1378: IF (p_formula_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1379: l_attribute8 := NULL;
1380: ELSIF (p_formula_header_rec.attribute8 IS NULL) THEN
1381: l_attribute8 := fm_form_mst_rec.attribute8;
1382: ELSE
1382: ELSE
1383: l_attribute8 := p_formula_header_rec.attribute8;
1384: END IF;
1385:
1386: IF (p_formula_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1387: l_attribute9 := NULL;
1388: ELSIF (p_formula_header_rec.attribute9 IS NULL) THEN
1389: l_attribute9 := fm_form_mst_rec.attribute9;
1390: ELSE
1390: ELSE
1391: l_attribute9 := p_formula_header_rec.attribute9;
1392: END IF;
1393:
1394: IF (p_formula_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1395: l_attribute10 := NULL;
1396: ELSIF (p_formula_header_rec.attribute10 IS NULL) THEN
1397: l_attribute10 := fm_form_mst_rec.attribute10;
1398: ELSE
1398: ELSE
1399: l_attribute10 := p_formula_header_rec.attribute10;
1400: END IF;
1401:
1402: IF (p_formula_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1403: l_attribute11 := NULL;
1404: ELSIF (p_formula_header_rec.attribute11 IS NULL) THEN
1405: l_attribute11 := fm_form_mst_rec.attribute11;
1406: ELSE
1406: ELSE
1407: l_attribute11 := p_formula_header_rec.attribute11;
1408: END IF;
1409:
1410: IF (p_formula_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1411: l_attribute12 := NULL;
1412: ELSIF (p_formula_header_rec.attribute2 IS NULL) THEN
1413: l_attribute12 := fm_form_mst_rec.attribute12;
1414: ELSE
1414: ELSE
1415: l_attribute12 := p_formula_header_rec.attribute12;
1416: END IF;
1417:
1418: IF (p_formula_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1419: l_attribute13 := NULL;
1420: ELSIF (p_formula_header_rec.attribute13 IS NULL) THEN
1421: l_attribute13 := fm_form_mst_rec.attribute13;
1422: ELSE
1422: ELSE
1423: l_attribute13 := p_formula_header_rec.attribute13;
1424: END IF;
1425:
1426: IF (p_formula_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1427: l_attribute14 := NULL;
1428: ELSIF (p_formula_header_rec.attribute14 IS NULL) THEN
1429: l_attribute14 := fm_form_mst_rec.attribute14;
1430: ELSE
1430: ELSE
1431: l_attribute14 := p_formula_header_rec.attribute14;
1432: END IF;
1433:
1434: IF (p_formula_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1435: l_attribute15 := NULL;
1436: ELSIF (p_formula_header_rec.attribute15 IS NULL) THEN
1437: l_attribute15 := fm_form_mst_rec.attribute15;
1438: ELSE
1438: ELSE
1439: l_attribute15 := p_formula_header_rec.attribute15;
1440: END IF;
1441:
1442: IF (p_formula_header_rec.attribute16 = FND_API.G_MISS_CHAR) THEN
1443: l_attribute16 := NULL;
1444: ELSIF (p_formula_header_rec.attribute16 IS NULL) THEN
1445: l_attribute16 := fm_form_mst_rec.attribute16;
1446: ELSE
1446: ELSE
1447: l_attribute16 := p_formula_header_rec.attribute16;
1448: END IF;
1449:
1450: IF (p_formula_header_rec.attribute17 = FND_API.G_MISS_CHAR) THEN
1451: l_attribute17 := NULL;
1452: ELSIF (p_formula_header_rec.attribute17 IS NULL) THEN
1453: l_attribute17 := fm_form_mst_rec.attribute17;
1454: ELSE
1454: ELSE
1455: l_attribute17 := p_formula_header_rec.attribute17;
1456: END IF;
1457:
1458: IF (p_formula_header_rec.attribute18 = FND_API.G_MISS_CHAR) THEN
1459: l_attribute18 := NULL;
1460: ELSIF (p_formula_header_rec.attribute18 IS NULL) THEN
1461: l_attribute18 := fm_form_mst_rec.attribute18;
1462: ELSE
1462: ELSE
1463: l_attribute18 := p_formula_header_rec.attribute18;
1464: END IF;
1465:
1466: IF (p_formula_header_rec.attribute19 = FND_API.G_MISS_CHAR) THEN
1467: l_attribute19 := NULL;
1468: ELSIF (p_formula_header_rec.attribute19 IS NULL) THEN
1469: l_attribute19 := fm_form_mst_rec.attribute19;
1470: ELSE
1470: ELSE
1471: l_attribute19 := p_formula_header_rec.attribute19;
1472: END IF;
1473:
1474: IF (p_formula_header_rec.attribute20 = FND_API.G_MISS_CHAR) THEN
1475: l_attribute20 := NULL;
1476: ELSIF (p_formula_header_rec.attribute20 IS NULL) THEN
1477: l_attribute20 := fm_form_mst_rec.attribute20;
1478: ELSE
1478: ELSE
1479: l_attribute20 := p_formula_header_rec.attribute20;
1480: END IF;
1481:
1482: IF (p_formula_header_rec.attribute21 = FND_API.G_MISS_CHAR) THEN
1483: l_attribute21 := NULL;
1484: ELSIF (p_formula_header_rec.attribute21 IS NULL) THEN
1485: l_attribute21 := fm_form_mst_rec.attribute21;
1486: ELSE
1486: ELSE
1487: l_attribute21 := p_formula_header_rec.attribute21;
1488: END IF;
1489:
1490: IF (p_formula_header_rec.attribute22 = FND_API.G_MISS_CHAR) THEN
1491: l_attribute22 := NULL;
1492: ELSIF (p_formula_header_rec.attribute22 IS NULL) THEN
1493: l_attribute22 := fm_form_mst_rec.attribute22;
1494: ELSE
1494: ELSE
1495: l_attribute22 := p_formula_header_rec.attribute22;
1496: END IF;
1497:
1498: IF (p_formula_header_rec.attribute23 = FND_API.G_MISS_CHAR) THEN
1499: l_attribute23 := NULL;
1500: ELSIF (p_formula_header_rec.attribute23 IS NULL) THEN
1501: l_attribute23 := fm_form_mst_rec.attribute23;
1502: ELSE
1502: ELSE
1503: l_attribute23 := p_formula_header_rec.attribute23;
1504: END IF;
1505:
1506: IF (p_formula_header_rec.attribute24 = FND_API.G_MISS_CHAR) THEN
1507: l_attribute24 := NULL;
1508: ELSIF (p_formula_header_rec.attribute24 IS NULL) THEN
1509: l_attribute24 := fm_form_mst_rec.attribute24;
1510: ELSE
1510: ELSE
1511: l_attribute24 := p_formula_header_rec.attribute24;
1512: END IF;
1513:
1514: IF (p_formula_header_rec.attribute25 = FND_API.G_MISS_CHAR) THEN
1515: l_attribute25 := NULL;
1516: ELSIF (p_formula_header_rec.attribute25 IS NULL) THEN
1517: l_attribute25 := fm_form_mst_rec.attribute25;
1518: ELSE
1518: ELSE
1519: l_attribute25 := p_formula_header_rec.attribute25;
1520: END IF;
1521:
1522: IF (p_formula_header_rec.attribute26 = FND_API.G_MISS_CHAR) THEN
1523: l_attribute26 := NULL;
1524: ELSIF (p_formula_header_rec.attribute26 IS NULL) THEN
1525: l_attribute26 := fm_form_mst_rec.attribute26;
1526: ELSE
1526: ELSE
1527: l_attribute26 := p_formula_header_rec.attribute26;
1528: END IF;
1529:
1530: IF (p_formula_header_rec.attribute27 = FND_API.G_MISS_CHAR) THEN
1531: l_attribute27 := NULL;
1532: ELSIF (p_formula_header_rec.attribute27 IS NULL) THEN
1533: l_attribute27 := fm_form_mst_rec.attribute27;
1534: ELSE
1534: ELSE
1535: l_attribute27 := p_formula_header_rec.attribute27;
1536: END IF;
1537:
1538: IF (p_formula_header_rec.attribute28 = FND_API.G_MISS_CHAR) THEN
1539: l_attribute28 := NULL;
1540: ELSIF (p_formula_header_rec.attribute28 IS NULL) THEN
1541: l_attribute28 := fm_form_mst_rec.attribute28;
1542: ELSE
1542: ELSE
1543: l_attribute28 := p_formula_header_rec.attribute28;
1544: END IF;
1545:
1546: IF (p_formula_header_rec.attribute29 = FND_API.G_MISS_CHAR) THEN
1547: l_attribute29 := NULL;
1548: ELSIF (p_formula_header_rec.attribute29 IS NULL) THEN
1549: l_attribute29 := fm_form_mst_rec.attribute29;
1550: ELSE
1550: ELSE
1551: l_attribute29 := p_formula_header_rec.attribute29;
1552: END IF;
1553:
1554: IF (p_formula_header_rec.attribute30 = FND_API.G_MISS_CHAR) THEN
1555: l_attribute30 := NULL;
1556: ELSIF (p_formula_header_rec.attribute30 IS NULL) THEN
1557: l_attribute30 := fm_form_mst_rec.attribute30;
1558: ELSE
1581: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
1582: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1583: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1584: FND_MSG_PUB.Add;
1585: RAISE FND_API.G_EXC_ERROR;
1586: END IF;
1587: END IF;
1588:
1589: /* Call the private API to update the header info */
1586: END IF;
1587: END IF;
1588:
1589: /* Call the private API to update the header info */
1590: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1591: l_fm_form_mst_rec.formula_id := l_formula_id;
1592: l_fm_form_mst_rec.formula_no := p_formula_header_rec.formula_no;
1593: l_fm_form_mst_rec.formula_vers := p_formula_header_rec.formula_vers;
1594: l_fm_form_mst_rec.formula_type := p_formula_header_rec.formula_type;
1653: END IF;
1654: GMD_FORMULA_HEADER_PVT.Update_FormulaHeader
1655: ( p_api_version => 1.0
1656: ,p_init_msg_list => p_init_msg_list
1657: ,p_commit => FND_API.G_FALSE
1658: ,x_return_status => x_return_status
1659: ,x_msg_count => x_msg_count
1660: ,x_msg_data => x_msg_data
1661: ,p_formula_header_rec => l_fm_form_mst_rec
1665: ||x_return_status);
1666: END IF;
1667:
1668:
1669: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
1670: p_formula_header_rec.auto_product_calc = 'N' THEN
1671: update FM_MATL_DTL
1672: SET PROD_PERCENT = NULL
1673: where formula_id = l_formula_id
1683: END IF; /* end after update of header */
1684:
1685: /* IF updating a header fails - we Raise an exception
1686: rather than trying to update other header details */
1687: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1688: RAISE FND_API.G_EXC_ERROR;
1689: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1684:
1685: /* IF updating a header fails - we Raise an exception
1686: rather than trying to update other header details */
1687: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1688: RAISE FND_API.G_EXC_ERROR;
1689: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692:
1685: /* IF updating a header fails - we Raise an exception
1686: rather than trying to update other header details */
1687: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1688: RAISE FND_API.G_EXC_ERROR;
1689: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692:
1693: END LOOP;
1686: rather than trying to update other header details */
1687: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1688: RAISE FND_API.G_EXC_ERROR;
1689: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692:
1693: END LOOP;
1694:
1692:
1693: END LOOP;
1694:
1695: /* End of API body */
1696: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1697: /* Check if p_commit is set to TRUE */
1698: IF FND_API.To_Boolean( p_commit ) THEN
1699: Commit;
1700: END IF;
1694:
1695: /* End of API body */
1696: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1697: /* Check if p_commit is set to TRUE */
1698: IF FND_API.To_Boolean( p_commit ) THEN
1699: Commit;
1700: END IF;
1701: END IF;
1702:
1705: p_count => x_msg_count,
1706: p_data => x_msg_data );
1707:
1708: EXCEPTION
1709: WHEN FND_API.G_EXC_ERROR THEN
1710: ROLLBACK to Update_FormulaHeader_PUB;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: FND_MSG_PUB.Count_And_Get (
1713: p_count => x_msg_count,
1707:
1708: EXCEPTION
1709: WHEN FND_API.G_EXC_ERROR THEN
1710: ROLLBACK to Update_FormulaHeader_PUB;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: FND_MSG_PUB.Count_And_Get (
1713: p_count => x_msg_count,
1714: p_data => x_msg_data );
1715: IF (l_debug = 'Y') THEN
1716: gmd_debug.put_line(' In Formula Header Pub - In Error Exception Section '
1717: ||' - '
1718: ||x_return_status);
1719: END IF;
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: ROLLBACK to Update_FormulaHeader_PUB;
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1723: FND_MSG_PUB.Count_And_Get (
1724: p_count => x_msg_count,
1718: ||x_return_status);
1719: END IF;
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: ROLLBACK to Update_FormulaHeader_PUB;
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1723: FND_MSG_PUB.Count_And_Get (
1724: p_count => x_msg_count,
1725: p_data => x_msg_data );
1726: IF (l_debug = 'Y') THEN
1730: END IF;
1731: WHEN OTHERS THEN
1732: ROLLBACK to Update_FormulaHeader_PUB;
1733: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1735: FND_MSG_PUB.Count_And_Get (
1736: p_count => x_msg_count,
1737: p_data => x_msg_data );
1738: IF (l_debug = 'Y') THEN
1785: /* Define Savepoint */
1786: SAVEPOINT Delete_FormulaHeader_PUB;
1787:
1788: /* Standard Check for API compatibility */
1789: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1790: p_api_version ,
1791: l_api_name ,
1792: G_PKG_NAME )
1793: THEN
1790: p_api_version ,
1791: l_api_name ,
1792: G_PKG_NAME )
1793: THEN
1794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1795: END IF;
1796:
1797: /* Initialize message list if p_init_msg_list is set to TRUE */
1798: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1795: END IF;
1796:
1797: /* Initialize message list if p_init_msg_list is set to TRUE */
1798: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1799: FND_MSG_PUB.initialize;
1800: END IF;
1801: /* Initialize API return status to success */
1802: x_return_status := FND_API.G_RET_STS_SUCCESS;
1798: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1799: FND_MSG_PUB.initialize;
1800: END IF;
1801: /* Initialize API return status to success */
1802: x_return_status := FND_API.G_RET_STS_SUCCESS;
1803:
1804: /* Start looping through the table */
1805: IF (p_formula_header_tbl.count = 0) THEN
1806: RAISE FND_API.G_EXC_ERROR;
1802: x_return_status := FND_API.G_RET_STS_SUCCESS;
1803:
1804: /* Start looping through the table */
1805: IF (p_formula_header_tbl.count = 0) THEN
1806: RAISE FND_API.G_EXC_ERROR;
1807: END IF;
1808:
1809: FOR i IN 1 .. p_formula_header_tbl.count LOOP
1810:
1816: -- Bug 4603060
1817: IF (l_user_id IS NULL) THEN
1818: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
1819: FND_MSG_PUB.Add;
1820: RAISE FND_API.G_EXC_ERROR;
1821: END IF;
1822:
1823:
1824: /* =================================== */
1829: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_ACTION');
1830: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1831: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1832: FND_MSG_PUB.Add;
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1835:
1836: /* ======================== */
1837: /* Get the formula id value */
1845: IF (l_return_val <> 0) THEN
1846: IF (p_formula_header_rec.formula_no IS NULL) THEN
1847: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
1848: FND_MSG_PUB.Add;
1849: RAISE FND_API.G_EXC_ERROR;
1850: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1851: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1852: FND_MSG_PUB.Add;
1853: RAISE FND_API.G_EXC_ERROR;
1849: RAISE FND_API.G_EXC_ERROR;
1850: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1851: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1852: FND_MSG_PUB.Add;
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSE
1855: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1856: FND_MSG_PUB.Add;
1857: RAISE FND_API.G_EXC_ERROR;
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSE
1855: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1856: FND_MSG_PUB.Add;
1857: RAISE FND_API.G_EXC_ERROR;
1858: END IF;
1859: END IF;
1860: ELSE
1861: l_formula_id := p_formula_header_rec.formula_id;
1868: FND_MESSAGE.SET_TOKEN('NO', p_formula_header_rec.formula_no);
1869: FND_MESSAGE.SET_TOKEN('VERS', p_formula_header_rec.formula_vers);
1870: FND_MESSAGE.SET_TOKEN('STATUS',get_fm_status_meaning(l_formula_id));
1871: FND_MSG_PUB.Add;
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874:
1875: /* Call the private API to update the header info */
1876: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874:
1875: /* Call the private API to update the header info */
1876: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1877: FOR l_formula_rec IN get_fm_db_rec(l_formula_id) LOOP
1878:
1879: l_fm_form_mst_rec.formula_id := l_formula_id;
1880: l_fm_form_mst_rec.formula_no := l_formula_rec.formula_no;
1936:
1937: GMD_FORMULA_HEADER_PVT.Update_FormulaHeader
1938: ( p_api_version => p_api_version
1939: ,p_init_msg_list => p_init_msg_list
1940: ,p_commit => FND_API.G_FALSE
1941: ,x_return_status => x_return_status
1942: ,x_msg_count => x_msg_count
1943: ,x_msg_data => x_msg_data
1944: ,p_formula_header_rec => l_fm_form_mst_rec
1947: END IF;
1948:
1949: /* IF deleting a header fails - we Raise an exception
1950: rather than trying to delete other header details */
1951: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1952: RAISE FND_API.G_EXC_ERROR;
1953: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: END IF;
1948:
1949: /* IF deleting a header fails - we Raise an exception
1950: rather than trying to delete other header details */
1951: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1952: RAISE FND_API.G_EXC_ERROR;
1953: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: END IF;
1956:
1949: /* IF deleting a header fails - we Raise an exception
1950: rather than trying to delete other header details */
1951: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1952: RAISE FND_API.G_EXC_ERROR;
1953: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: END IF;
1956:
1957: END LOOP;
1950: rather than trying to delete other header details */
1951: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1952: RAISE FND_API.G_EXC_ERROR;
1953: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: END IF;
1956:
1957: END LOOP;
1958:
1956:
1957: END LOOP;
1958:
1959: /* End of API body */
1960: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1961: /* Check if p_commit is set to TRUE */
1962: IF FND_API.To_Boolean( p_commit ) THEN
1963: Commit;
1964: END IF;
1958:
1959: /* End of API body */
1960: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1961: /* Check if p_commit is set to TRUE */
1962: IF FND_API.To_Boolean( p_commit ) THEN
1963: Commit;
1964: END IF;
1965: END IF;
1966:
1969: p_count => x_msg_count,
1970: p_data => x_msg_data );
1971:
1972: EXCEPTION
1973: WHEN FND_API.G_EXC_ERROR THEN
1974: ROLLBACK to Delete_FormulaHeader_PUB;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: FND_MSG_PUB.Count_And_Get (
1977: p_count => x_msg_count,
1971:
1972: EXCEPTION
1973: WHEN FND_API.G_EXC_ERROR THEN
1974: ROLLBACK to Delete_FormulaHeader_PUB;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: FND_MSG_PUB.Count_And_Get (
1977: p_count => x_msg_count,
1978: p_data => x_msg_data );
1979:
1976: FND_MSG_PUB.Count_And_Get (
1977: p_count => x_msg_count,
1978: p_data => x_msg_data );
1979:
1980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1981: ROLLBACK to Delete_FormulaHeader_PUB;
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1983: FND_MSG_PUB.Count_And_Get (
1984: p_count => x_msg_count,
1978: p_data => x_msg_data );
1979:
1980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1981: ROLLBACK to Delete_FormulaHeader_PUB;
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1983: FND_MSG_PUB.Count_And_Get (
1984: p_count => x_msg_count,
1985: p_data => x_msg_data );
1986:
1986:
1987: WHEN OTHERS THEN
1988: ROLLBACK to Delete_FormulaHeader_PUB;
1989: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
1990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1991: FND_MSG_PUB.Count_And_Get (
1992: p_count => x_msg_count,
1993: p_data => x_msg_data );
1994: