[Home] [Help]
181: /* Define Savepoint */
182: SAVEPOINT Insert_FormulaHeader_PUB;
183:
184: /* Standard Check for API compatibility */
185: IF NOT FND_API.Compatible_API_Call ( l_api_version
186: ,p_api_version
187: ,l_api_name
188: ,G_PKG_NAME )
189: THEN
186: ,p_api_version
187: ,l_api_name
188: ,G_PKG_NAME )
189: THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: END IF;
192:
193: /* Initialize message list if p_init_msg_list is set to TRUE */
194: IF FND_API.to_Boolean( p_init_msg_list ) THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: END IF;
192:
193: /* Initialize message list if p_init_msg_list is set to TRUE */
194: IF FND_API.to_Boolean( p_init_msg_list ) THEN
195: FND_MSG_PUB.initialize;
196: END IF;
197:
198: /* Start the loop - Error out if the table is empty */
196: END IF;
197:
198: /* Start the loop - Error out if the table is empty */
199: IF (p_formula_header_tbl.count = 0) THEN
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203: l_return_status := FND_API.G_RET_STS_SUCCESS;
204: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
199: IF (p_formula_header_tbl.count = 0) THEN
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203: l_return_status := FND_API.G_RET_STS_SUCCESS;
204: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
205: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
206:
207: FOR i IN 1 .. p_formula_header_tbl.count LOOP
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203: l_return_status := FND_API.G_RET_STS_SUCCESS;
204: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
205: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
206:
207: FOR i IN 1 .. p_formula_header_tbl.count LOOP
208:
201: END IF;
202:
203: l_return_status := FND_API.G_RET_STS_SUCCESS;
204: l_return_status_for_dtl := FND_API.G_RET_STS_SUCCESS;
205: l_return_status_for_eff := FND_API.G_RET_STS_SUCCESS;
206:
207: FOR i IN 1 .. p_formula_header_tbl.count LOOP
208:
209: IF (l_debug = 'Y') THEN
215: gmd_debug.put_line(' In Formula Header Pub - Entering loop with row # '||i);
216: END IF;
217:
218: /* Initialize return status for every header row */
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220:
221: /* Header flag is used to check if the header already exists */
222: /* Since each header could have multiple detail lines, */
223: /* for any record even if header exists we may need to insert its */
248: /* Bug 4603060 check if the user context is set */
249: IF (l_user_id IS NULL) THEN
250: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
251: FND_MSG_PUB.Add;
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254:
255: IF (l_debug = 'Y') THEN
256: gmd_debug.put_line(' In Formula Header Pub - Before formula id val '
272: IF (l_return_val <> 0) THEN
273: IF (p_formula_header_rec.formula_no IS NULL) THEN
274: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
275: FND_MSG_PUB.Add;
276: RAISE FND_API.G_EXC_ERROR;
277: ELSE
278: l_formula_no := p_formula_header_rec.formula_no;
279: END IF;
280:
280:
281: IF (p_formula_header_rec.formula_vers IS NULL) THEN
282: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
283: FND_MSG_PUB.Add;
284: RAISE FND_API.G_EXC_ERROR;
285: ELSE
286: l_formula_vers := p_formula_header_rec.formula_vers;
287: END IF;
288: ELSE
393: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
394: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
395: -- Bug #3119000 (JKB) Changed values returned above to l_.
396: FND_MSG_PUB.Add;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399: END IF;
400:
401: IF (l_debug = 'Y') THEN
434: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
435: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
436: -- Bug #3119000 (JKB) Changed values returned above to l_.
437: FND_MSG_PUB.Add;
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: END IF;
441:
442: /* Bug No.6800659 - Start (Included this fix in patch, 6799624) */
460: --Check that organization id is not null if raise an error message
461: IF (p_formula_header_rec.owner_organization_id IS NULL) THEN
462: FND_MESSAGE.SET_NAME('GMD', 'GMD_MISSING_ORGANIZATION_ID');
463: FND_MSG_PUB.Add;
464: RAISE FND_API.G_EXC_ERROR;
465: ELSE
466: --Check the organization id passed is process enabled if not raise an error message
467: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
468: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
467: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
468: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
469: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_formula_header_rec.owner_organization_id);
470: FND_MSG_PUB.Add;
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473: -- Kapil ME Auto-Prod :Bug# 5716318
474: /* Fetch the Organization Auto-Product qty calculate Parameter*/
475: GMD_API_GRP.FETCH_PARM_VALUES(P_orgn_id => p_formula_header_rec.owner_organization_id,
479: IF (l_auto_calc IS NULL OR l_auto_calc = 'N') AND p_formula_header_rec.AUTO_PRODUCT_CALC = 'Y' THEN
480: /* Error raised when passing Formula Parameter as Yes when organziation parmater is NO */
481: FND_MESSAGE.SET_NAME('GMD', 'GMD_AUTO_PRODUCT_OFF');
482: FND_MSG_PUB.Add;
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485: /* Error to be raised when Setting Scaling Allowed to No */
486: IF p_formula_header_rec.auto_product_calc = 'Y'
487: AND p_formula_header_rec.scale_type_hdr = 0 THEN
486: IF p_formula_header_rec.auto_product_calc = 'Y'
487: AND p_formula_header_rec.scale_type_hdr = 0 THEN
488: FND_MESSAGE.SET_NAME('GMD', 'GMD_SCALE_AUTO_NO');
489: FND_MSG_PUB.Add;
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492: END IF;
493:
494: /* Bug No.7519202 - Commented the below fix as the checking is being done at pkg, GMD_FORMULA_DETAIL_PUB */
505: organization_id = p_formula_header_tbl(j).owner_organization_id;
506: EXCEPTION
507: WHEN others THEN
508: ROLLBACK to Insert_FormulaHeader_PUB;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: FND_MSG_PUB.Count_And_Get (
511: p_count => x_msg_count,
512: p_data => x_msg_data );
513: END;
515: IF v_recipe_enabled <> 'Y' THEN
516: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITEM_NOT_RECIPE_ENABLED');
517: FND_MESSAGE.SET_TOKEN('ITEM_NO', v_item_no);
518: FND_MSG_PUB.Add;
519: RAISE FND_API.G_EXC_ERROR;
520: END IF ;
521: END LOOP; */
522: /* Bug No.6799624 - End */
523:
545: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_DESC');
546: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
547: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
548: FND_MSG_PUB.Add;
549: RAISE FND_API.G_EXC_ERROR;
550: END IF;
551:
552: /* ===================================== */
553: /* Validate the formula type */
564: FND_MESSAGE.SET_NAME('GMD', 'FM_WRONG_TYPE');
565: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
566: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
567: FND_MSG_PUB.Add;
568: RAISE FND_API.G_EXC_ERROR;
569: END IF;
570:
571: /* ======================================= */
572: /* Check the scale type for formula header */
582: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_SCALE_TYPE');
583: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
584: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
585: FND_MSG_PUB.Add;
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF (p_formula_header_rec.scale_type_hdr NOT IN (0,1)) THEN
588: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
589: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
590: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
588: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
589: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
590: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
591: FND_MSG_PUB.Add;
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595: /* ====================== */
596: /* Validate formula_class */
608: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
609: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
610: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
611: FND_MSG_PUB.Add;
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614: END IF;
615:
616: /* ================================================== */
622: ||p_formula_header_rec.formula_id
623: ||' - '
624: ||x_return_status);
625: END IF;
626: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
627: IF (p_formula_header_rec.formula_id IS NULL) THEN
628: l_return_val := GMDSURG.get_surrogate('formula_id');
629: IF (l_return_val < 1) THEN
630: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
628: l_return_val := GMDSURG.get_surrogate('formula_id');
629: IF (l_return_val < 1) THEN
630: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
631: FND_MSG_PUB.Add;
632: RAISE FND_API.G_EXC_ERROR;
633: ELSE
634: l_surrogate := l_return_val;
635: END IF;
636: ELSE
647: ||' - '
648: ||x_return_status);
649: END IF;
650:
651: IF (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
652:
653: --kkillams, bug 3408799
654: --Putting formula id and organization code into temporary table.
655: IF NVL(UPPER(p_called_from_forms),'NO') <> 'YES' THEN
727:
728: GMD_FORMULA_HEADER_PVT.Insert_FormulaHeader
729: ( p_api_version => p_api_version
730: ,p_init_msg_list => p_init_msg_list
731: ,p_commit => FND_API.G_FALSE
732: ,x_return_status => x_return_status
733: ,x_msg_count => x_msg_count
734: ,x_msg_data => x_msg_data
735: ,p_formula_header_rec => l_fm_form_mst_rec
781: FND_MESSAGE.SET_TOKEN('FORMULA_NO', l_formula_no);
782: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', l_formula_vers);
783: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_formula_detail_tbl(1).item_no );
784: FND_MSG_PUB.Add;
785: RAISE FND_API.G_EXC_ERROR;
786: ELSIF l_flag = 'W' AND l_formula_detail_tbl(1).line_type = -1 AND l_formula_detail_tbl(1).qty = 0 THEN
787: FND_MESSAGE.SET_NAME('GMD','GMD_ALLOW_ZERO_QTY');
788: FND_MSG_PUB.Add;
789: END IF;
794: /* validation or insertion we do not load fomula detail information. */
795:
796:
797: /* Create formulalines only if the header is succesfully created */
798: IF (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
799: IF (l_debug = 'Y') THEN
800: gmd_debug.put_line(' In Formula Header Pub - '
801: ||'About to call the Formula line Pub API '
802: ||' - '
820: IF formula_ids(m) = l_temp_fm_id THEN
821: GMD_FORMULA_DETAIL_PUB.Insert_FormulaDetail(p_api_version => l_api_version,
822: p_init_msg_list => p_init_msg_list,
823: p_called_from_forms => p_called_from_forms,
824: p_commit => FND_API.G_FALSE,
825: x_return_status => x_return_status,
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data,
828: p_formula_detail_tbl => l_formula_detail_tbl);
847: END IF;
848:
849: /* IF creating a header and/or line fails - Raise an exception
850: rather than trying to insert other header / lines */
851: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
848:
849: /* IF creating a header and/or line fails - Raise an exception
850: rather than trying to insert other header / lines */
851: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856:
849: /* IF creating a header and/or line fails - Raise an exception
850: rather than trying to insert other header / lines */
851: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856:
857: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
850: rather than trying to insert other header / lines */
851: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856:
857: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
858:
855: END IF;
856:
857: END LOOP; /* Completes looping thro all rows in the PL/SQL table */
858:
859: IF (x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') ) THEN
860:
861: --Bug 9563603 commented the following code
862: /*AND (FND_API.To_Boolean(p_commit)) THEN
863: Check if p_commit is set to TRUE
858:
859: IF (x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') ) THEN
860:
861: --Bug 9563603 commented the following code
862: /*AND (FND_API.To_Boolean(p_commit)) THEN
863: Check if p_commit is set to TRUE
864: Commit; */
865: -- End of bug 9563603
866:
877: IF (l_entity_status.status_type = 700) THEN
878: IF (gmdfmval_pub.check_expr_items(l_tbl_formula_id(i).formula_id)) THEN
879: FND_MESSAGE.SET_NAME('GMD','GMD_EXPR_ITEMS_FOUND');
880: FND_MSG_PUB.ADD;
881: RAISE FND_API.G_EXC_ERROR;
882: END IF; -- IF (gmdfmval_pub.check_expr_items(p_formula_header_rec.formula_id) THEN
883: END IF; -- IF (X_status_type = 700) THEN
884:
885: --Check any inactive items in formula before changing the status
886: IF (l_entity_status.status_type IN (400,700)) THEN
887: IF (gmdfmval_pub.inactive_items(l_tbl_formula_id(i).formula_id)) THEN
888: FND_MESSAGE.SET_NAME('GMI','IC_ITEM_INACTIVE');
889: FND_MSG_PUB.ADD;
890: RAISE FND_API.G_EXC_ERROR;
891: END IF; -- IF (gmdfmval_pub.inactive_items(V_formula_id) THEN
892: END IF; --l_entity_status.status_type IN (400,700)
893: --kkillams,bug 3408799
894:
903: , p_ignore_flag => FALSE
904: , x_message_count => x_msg_count
905: , x_message_list => x_msg_data
906: , x_return_status => X_return_status);
907: IF x_return_status NOT IN (FND_API.g_ret_sts_success,'P') THEN
908: RAISE default_status_err;
909: END IF; --x_return_status
910: END IF; --l_entity_status.entity_status <> 100
911:
912: IF (p_formula_header_rec.formula_status = l_entity_status.entity_status) OR
913: (p_formula_header_rec.formula_status = '100') THEN
914:
915: GMD_RECIPE_GENERATE.recipe_generate(l_tbl_formula_id(i).owner_organization_id, l_tbl_formula_id(i).formula_id,
916: l_return_status, x_recipe_no, x_recipe_version, FND_API.To_Boolean(p_commit)); --Modified by Michael tou for bug#6658328.
917: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
918: RAISE RECIPE_GENERATE_ERROR;
919: END IF;
920:
913: (p_formula_header_rec.formula_status = '100') THEN
914:
915: GMD_RECIPE_GENERATE.recipe_generate(l_tbl_formula_id(i).owner_organization_id, l_tbl_formula_id(i).formula_id,
916: l_return_status, x_recipe_no, x_recipe_version, FND_API.To_Boolean(p_commit)); --Modified by Michael tou for bug#6658328.
917: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
918: RAISE RECIPE_GENERATE_ERROR;
919: END IF;
920:
921: END IF;
922: END LOOP; --i IN 1 .. l_tbl_formula_id.COUNT
923:
924: /* Check if p_commit is set to TRUE */
925: --9563603 Added this if condition
926: IF (FND_API.To_Boolean(p_commit)) THEN
927: Commit;
928: END IF;
929: END IF;
930:
937: ROLLBACK TO default_status_sp;
938: FND_MSG_PUB.Count_And_Get (
939: p_count => x_msg_count,
940: p_data => x_msg_data );
941: WHEN FND_API.G_EXC_ERROR THEN
942: ROLLBACK to Insert_FormulaHeader_PUB;
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: FND_MSG_PUB.Count_And_Get (
945: p_count => x_msg_count,
939: p_count => x_msg_count,
940: p_data => x_msg_data );
941: WHEN FND_API.G_EXC_ERROR THEN
942: ROLLBACK to Insert_FormulaHeader_PUB;
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: FND_MSG_PUB.Count_And_Get (
945: p_count => x_msg_count,
946: p_data => x_msg_data );
947: IF (l_debug = 'Y') THEN
948: gmd_debug.put_line(' In Formula Header Pub - In Error Exception Section '
949: ||' - '
950: ||x_return_status);
951: END IF;
952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
953: ROLLBACK to Insert_FormulaHeader_PUB;
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955: FND_MSG_PUB.Count_And_Get (
956: p_count => x_msg_count,
950: ||x_return_status);
951: END IF;
952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
953: ROLLBACK to Insert_FormulaHeader_PUB;
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955: FND_MSG_PUB.Count_And_Get (
956: p_count => x_msg_count,
957: p_data => x_msg_data );
958: IF (l_debug = 'Y') THEN
961: ||x_return_status);
962: END IF;
963: WHEN RECIPE_GENERATE_ERROR THEN
964: ROLLBACK to Insert_FormulaHeader_PUB;
965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: FND_MSG_PUB.Count_And_Get (
967: p_count => x_msg_count,
968: p_data => x_msg_data );
969: IF (l_debug = 'Y') THEN
973: END IF;
974: WHEN OTHERS THEN
975: ROLLBACK to Insert_FormulaHeader_PUB;
976: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.Count_And_Get (
979: p_count => x_msg_count,
980: p_data => x_msg_data );
981: IF (l_debug = 'Y') THEN
1078: /* Define Savepoint */
1079: SAVEPOINT Update_FormulaHeader_PUB;
1080:
1081: /* Standard Check for API compatibility */
1082: IF NOT FND_API.Compatible_API_Call (l_api_version
1083: ,p_api_version
1084: ,l_api_name
1085: ,G_PKG_NAME )
1086: THEN
1083: ,p_api_version
1084: ,l_api_name
1085: ,G_PKG_NAME )
1086: THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: END IF;
1089:
1090: /* Initialize message list if p_init_msg_list is set to TRUE */
1091: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: END IF;
1089:
1090: /* Initialize message list if p_init_msg_list is set to TRUE */
1091: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1092: FND_MSG_PUB.initialize;
1093: END IF;
1094:
1095: /* Start looping through the table */
1093: END IF;
1094:
1095: /* Start looping through the table */
1096: IF (p_formula_header_tbl.count = 0) THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099:
1100: FOR i in 1 .. p_formula_header_tbl.count LOOP
1101:
1099:
1100: FOR i in 1 .. p_formula_header_tbl.count LOOP
1101:
1102: /* Initialize API return status to success */
1103: x_return_status := FND_API.G_RET_STS_SUCCESS;
1104:
1105: IF (l_debug = 'Y') THEN
1106: gmd_debug.put_line(' In Formula Header Pub - Entering loop with row # '||i);
1107: END IF;
1117: -- Bug 4603060
1118: IF (l_user_id IS NULL) THEN
1119: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
1120: FND_MSG_PUB.Add;
1121: RAISE FND_API.G_EXC_ERROR;
1122: END IF;
1123:
1124: /* ==================== */
1125: /* Get the formula id */
1136: IF (l_return_val <> 0) THEN
1137: IF (p_formula_header_rec.formula_no IS NULL) THEN
1138: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
1139: FND_MSG_PUB.Add;
1140: RAISE FND_API.G_EXC_ERROR;
1141: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1142: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1143: FND_MSG_PUB.Add;
1144: RAISE FND_API.G_EXC_ERROR;
1140: RAISE FND_API.G_EXC_ERROR;
1141: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1142: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1143: FND_MSG_PUB.Add;
1144: RAISE FND_API.G_EXC_ERROR;
1145: ELSE
1146: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1144: RAISE FND_API.G_EXC_ERROR;
1145: ELSE
1146: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: END IF;
1151: ELSE
1152: l_formula_id := p_formula_header_rec.formula_id;
1237: /* Update of the Flag is prevented form the API as the user cannot specify the Percentages. */
1238: IF NVL(UPPER(p_called_from_forms),'NO') <> 'YES' THEN
1239: FND_MESSAGE.SET_NAME('GMD', 'GMD_CANNOT_AUTO_FLAG');
1240: FND_MSG_PUB.Add;
1241: RAISE FND_API.G_EXC_ERROR;
1242: END IF;
1243: END IF;
1244: END LOOP;
1245:
1249: IF NOT (gmd_api_grp.check_orgn_status(p_formula_header_rec.owner_organization_id)) THEN
1250: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
1251: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_formula_header_rec.owner_organization_id);
1252: FND_MSG_PUB.Add;
1253: RAISE FND_API.G_EXC_ERROR;
1254: END IF;
1255: END IF;
1256:
1257: /* Check if update is allowed */
1269: FND_MESSAGE.SET_TOKEN('NO', p_formula_header_rec.formula_no);
1270: FND_MESSAGE.SET_TOKEN('VERS', p_formula_header_rec.formula_vers);
1271: FND_MESSAGE.SET_TOKEN('STATUS',get_fm_status_meaning(l_formula_id));
1272: FND_MSG_PUB.Add;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276: END IF;
1277:
1289: FND_MESSAGE.SET_NAME('GMD', 'FM_WRONG_TYPE');
1290: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1291: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1292: FND_MSG_PUB.Add;
1293: RAISE FND_API.G_EXC_ERROR;
1294: END IF;
1295:
1296: /* ==================== */
1297: /* Check the scale type */
1306: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_SCALE_TYPE');
1307: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1308: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1309: FND_MSG_PUB.Add;
1310: RAISE FND_API.G_EXC_ERROR;
1311: ELSIF (p_formula_header_rec.scale_type_hdr NOT IN (0,1)) THEN
1312: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
1313: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1314: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1312: FND_MESSAGE.SET_NAME('GMD', 'FM_SCALETYPERR');
1313: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1314: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1315: FND_MSG_PUB.Add;
1316: RAISE FND_API.G_EXC_ERROR;
1317: -- SCALING KAPIL
1318: ELSIF p_formula_header_rec.scale_type_hdr = 0 THEN
1319: IF p_formula_header_rec.auto_product_calc = 'Y' THEN
1320: p_formula_header_rec.auto_product_calc := 'N';
1339: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
1340: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1341: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1342: FND_MSG_PUB.Add;
1343: RAISE FND_API.G_EXC_ERROR;
1344: END IF;
1345: END IF;
1346:
1347: OPEN get_header_rec(p_formula_header_rec.formula_id);
1347: OPEN get_header_rec(p_formula_header_rec.formula_id);
1348: FETCH get_header_rec INTO fm_form_mst_rec;
1349:
1350: /* Shyam Sitaraman - Bug 2652200 */
1351: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
1352: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
1353: /* as the user is intending to update the field to NULL */
1354: /* Validate all optional parameters passed */
1355: IF (l_debug = 'Y') THEN
1348: FETCH get_header_rec INTO fm_form_mst_rec;
1349:
1350: /* Shyam Sitaraman - Bug 2652200 */
1351: /* Reversed the handling of FND_API.G_MISS_CHAR, now if the user */
1352: /* passes in FND_API.G_MISS_CHAR for an attribute it would be handled */
1353: /* as the user is intending to update the field to NULL */
1354: /* Validate all optional parameters passed */
1355: IF (l_debug = 'Y') THEN
1356: gmd_debug.put_line(' Before G-MISS validation - '
1360: END IF;
1361:
1362: IF (get_header_rec%FOUND) THEN
1363:
1364: IF (p_formula_header_rec.formula_desc2 = FND_API.G_MISS_CHAR) THEN
1365: l_formula_desc2 := NULL;
1366: ELSIF (p_formula_header_rec.formula_desc2 IS NULL) THEN
1367: l_formula_desc2 := fm_form_mst_rec.formula_desc2;
1368: ELSE
1368: ELSE
1369: l_formula_desc2 := p_formula_header_rec.formula_desc2;
1370: END IF;
1371:
1372: IF (p_formula_header_rec.formula_class = FND_API.G_MISS_CHAR) THEN
1373: l_formula_class := NULL;
1374: ELSIF (p_formula_header_rec.formula_class IS NULL) THEN
1375: l_formula_class := fm_form_mst_rec.formula_class;
1376: ELSE
1376: ELSE
1377: l_formula_class := p_formula_header_rec.formula_class;
1378: END IF;
1379:
1380: IF (p_formula_header_rec.text_code_hdr = FND_API.G_MISS_NUM) THEN
1381: l_text_code := NULL;
1382: ELSIF (p_formula_header_rec.text_code_hdr IS NULL) THEN
1383: l_text_code := fm_form_mst_rec.text_code;
1384: ELSE
1384: ELSE
1385: l_text_code := p_formula_header_rec.text_code_hdr;
1386: END IF;
1387:
1388: IF (p_formula_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1389: l_attribute_category := NULL;
1390: ELSIF (p_formula_header_rec.attribute_category IS NULL) THEN
1391: l_attribute_category := fm_form_mst_rec.attribute_category;
1392: ELSE
1392: ELSE
1393: l_attribute_category := p_formula_header_rec.attribute_category;
1394: END IF;
1395:
1396: IF (p_formula_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1397: l_attribute1 := NULL;
1398: ELSIF (p_formula_header_rec.attribute1 IS NULL) THEN
1399: l_attribute1 := fm_form_mst_rec.attribute1;
1400: ELSE
1400: ELSE
1401: l_attribute1 := p_formula_header_rec.attribute1;
1402: END IF;
1403:
1404: IF (p_formula_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1405: l_attribute2 := NULL;
1406: ELSIF (p_formula_header_rec.attribute2 IS NULL) THEN
1407: l_attribute2 := fm_form_mst_rec.attribute2;
1408: ELSE
1408: ELSE
1409: l_attribute2 := p_formula_header_rec.attribute2;
1410: END IF;
1411:
1412: IF (p_formula_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1413: l_attribute3 := NULL;
1414: ELSIF (p_formula_header_rec.attribute3 IS NULL) THEN
1415: l_attribute3 := fm_form_mst_rec.attribute3;
1416: ELSE
1416: ELSE
1417: l_attribute3 := p_formula_header_rec.attribute3;
1418: END IF;
1419:
1420: IF (p_formula_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1421: l_attribute4 := NULL;
1422: ELSIF (p_formula_header_rec.attribute4 IS NULL) THEN
1423: l_attribute4 := fm_form_mst_rec.attribute4;
1424: ELSE
1424: ELSE
1425: l_attribute4 := p_formula_header_rec.attribute4;
1426: END IF;
1427:
1428: IF (p_formula_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1429: l_attribute5 := NULL;
1430: ELSIF (p_formula_header_rec.attribute5 IS NULL) THEN
1431: l_attribute5 := fm_form_mst_rec.attribute5;
1432: ELSE
1432: ELSE
1433: l_attribute5 := p_formula_header_rec.attribute5;
1434: END IF;
1435:
1436: IF (p_formula_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1437: l_attribute6 := NULL;
1438: ELSIF (p_formula_header_rec.attribute6 IS NULL) THEN
1439: l_attribute6 := fm_form_mst_rec.attribute6;
1440: ELSE
1440: ELSE
1441: l_attribute6 := p_formula_header_rec.attribute6;
1442: END IF;
1443:
1444: IF (p_formula_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1445: l_attribute7 := NULL;
1446: ELSIF (p_formula_header_rec.attribute7 IS NULL) THEN
1447: l_attribute7 := fm_form_mst_rec.attribute7;
1448: ELSE
1448: ELSE
1449: l_attribute7 := p_formula_header_rec.attribute7;
1450: END IF;
1451:
1452: IF (p_formula_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1453: l_attribute8 := NULL;
1454: ELSIF (p_formula_header_rec.attribute8 IS NULL) THEN
1455: l_attribute8 := fm_form_mst_rec.attribute8;
1456: ELSE
1456: ELSE
1457: l_attribute8 := p_formula_header_rec.attribute8;
1458: END IF;
1459:
1460: IF (p_formula_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1461: l_attribute9 := NULL;
1462: ELSIF (p_formula_header_rec.attribute9 IS NULL) THEN
1463: l_attribute9 := fm_form_mst_rec.attribute9;
1464: ELSE
1464: ELSE
1465: l_attribute9 := p_formula_header_rec.attribute9;
1466: END IF;
1467:
1468: IF (p_formula_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1469: l_attribute10 := NULL;
1470: ELSIF (p_formula_header_rec.attribute10 IS NULL) THEN
1471: l_attribute10 := fm_form_mst_rec.attribute10;
1472: ELSE
1472: ELSE
1473: l_attribute10 := p_formula_header_rec.attribute10;
1474: END IF;
1475:
1476: IF (p_formula_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1477: l_attribute11 := NULL;
1478: ELSIF (p_formula_header_rec.attribute11 IS NULL) THEN
1479: l_attribute11 := fm_form_mst_rec.attribute11;
1480: ELSE
1480: ELSE
1481: l_attribute11 := p_formula_header_rec.attribute11;
1482: END IF;
1483: --Bug13542669 modified the attribute2 to attribute12.
1484: IF (p_formula_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1485: l_attribute12 := NULL;
1486: ELSIF (p_formula_header_rec.attribute12 IS NULL) THEN
1487: l_attribute12 := fm_form_mst_rec.attribute12;
1488: ELSE
1488: ELSE
1489: l_attribute12 := p_formula_header_rec.attribute12;
1490: END IF;
1491:
1492: IF (p_formula_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1493: l_attribute13 := NULL;
1494: ELSIF (p_formula_header_rec.attribute13 IS NULL) THEN
1495: l_attribute13 := fm_form_mst_rec.attribute13;
1496: ELSE
1496: ELSE
1497: l_attribute13 := p_formula_header_rec.attribute13;
1498: END IF;
1499:
1500: IF (p_formula_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1501: l_attribute14 := NULL;
1502: ELSIF (p_formula_header_rec.attribute14 IS NULL) THEN
1503: l_attribute14 := fm_form_mst_rec.attribute14;
1504: ELSE
1504: ELSE
1505: l_attribute14 := p_formula_header_rec.attribute14;
1506: END IF;
1507:
1508: IF (p_formula_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1509: l_attribute15 := NULL;
1510: ELSIF (p_formula_header_rec.attribute15 IS NULL) THEN
1511: l_attribute15 := fm_form_mst_rec.attribute15;
1512: ELSE
1512: ELSE
1513: l_attribute15 := p_formula_header_rec.attribute15;
1514: END IF;
1515:
1516: IF (p_formula_header_rec.attribute16 = FND_API.G_MISS_CHAR) THEN
1517: l_attribute16 := NULL;
1518: ELSIF (p_formula_header_rec.attribute16 IS NULL) THEN
1519: l_attribute16 := fm_form_mst_rec.attribute16;
1520: ELSE
1520: ELSE
1521: l_attribute16 := p_formula_header_rec.attribute16;
1522: END IF;
1523:
1524: IF (p_formula_header_rec.attribute17 = FND_API.G_MISS_CHAR) THEN
1525: l_attribute17 := NULL;
1526: ELSIF (p_formula_header_rec.attribute17 IS NULL) THEN
1527: l_attribute17 := fm_form_mst_rec.attribute17;
1528: ELSE
1528: ELSE
1529: l_attribute17 := p_formula_header_rec.attribute17;
1530: END IF;
1531:
1532: IF (p_formula_header_rec.attribute18 = FND_API.G_MISS_CHAR) THEN
1533: l_attribute18 := NULL;
1534: ELSIF (p_formula_header_rec.attribute18 IS NULL) THEN
1535: l_attribute18 := fm_form_mst_rec.attribute18;
1536: ELSE
1536: ELSE
1537: l_attribute18 := p_formula_header_rec.attribute18;
1538: END IF;
1539:
1540: IF (p_formula_header_rec.attribute19 = FND_API.G_MISS_CHAR) THEN
1541: l_attribute19 := NULL;
1542: ELSIF (p_formula_header_rec.attribute19 IS NULL) THEN
1543: l_attribute19 := fm_form_mst_rec.attribute19;
1544: ELSE
1544: ELSE
1545: l_attribute19 := p_formula_header_rec.attribute19;
1546: END IF;
1547:
1548: IF (p_formula_header_rec.attribute20 = FND_API.G_MISS_CHAR) THEN
1549: l_attribute20 := NULL;
1550: ELSIF (p_formula_header_rec.attribute20 IS NULL) THEN
1551: l_attribute20 := fm_form_mst_rec.attribute20;
1552: ELSE
1552: ELSE
1553: l_attribute20 := p_formula_header_rec.attribute20;
1554: END IF;
1555:
1556: IF (p_formula_header_rec.attribute21 = FND_API.G_MISS_CHAR) THEN
1557: l_attribute21 := NULL;
1558: ELSIF (p_formula_header_rec.attribute21 IS NULL) THEN
1559: l_attribute21 := fm_form_mst_rec.attribute21;
1560: ELSE
1560: ELSE
1561: l_attribute21 := p_formula_header_rec.attribute21;
1562: END IF;
1563:
1564: IF (p_formula_header_rec.attribute22 = FND_API.G_MISS_CHAR) THEN
1565: l_attribute22 := NULL;
1566: ELSIF (p_formula_header_rec.attribute22 IS NULL) THEN
1567: l_attribute22 := fm_form_mst_rec.attribute22;
1568: ELSE
1568: ELSE
1569: l_attribute22 := p_formula_header_rec.attribute22;
1570: END IF;
1571:
1572: IF (p_formula_header_rec.attribute23 = FND_API.G_MISS_CHAR) THEN
1573: l_attribute23 := NULL;
1574: ELSIF (p_formula_header_rec.attribute23 IS NULL) THEN
1575: l_attribute23 := fm_form_mst_rec.attribute23;
1576: ELSE
1576: ELSE
1577: l_attribute23 := p_formula_header_rec.attribute23;
1578: END IF;
1579:
1580: IF (p_formula_header_rec.attribute24 = FND_API.G_MISS_CHAR) THEN
1581: l_attribute24 := NULL;
1582: ELSIF (p_formula_header_rec.attribute24 IS NULL) THEN
1583: l_attribute24 := fm_form_mst_rec.attribute24;
1584: ELSE
1584: ELSE
1585: l_attribute24 := p_formula_header_rec.attribute24;
1586: END IF;
1587:
1588: IF (p_formula_header_rec.attribute25 = FND_API.G_MISS_CHAR) THEN
1589: l_attribute25 := NULL;
1590: ELSIF (p_formula_header_rec.attribute25 IS NULL) THEN
1591: l_attribute25 := fm_form_mst_rec.attribute25;
1592: ELSE
1592: ELSE
1593: l_attribute25 := p_formula_header_rec.attribute25;
1594: END IF;
1595:
1596: IF (p_formula_header_rec.attribute26 = FND_API.G_MISS_CHAR) THEN
1597: l_attribute26 := NULL;
1598: ELSIF (p_formula_header_rec.attribute26 IS NULL) THEN
1599: l_attribute26 := fm_form_mst_rec.attribute26;
1600: ELSE
1600: ELSE
1601: l_attribute26 := p_formula_header_rec.attribute26;
1602: END IF;
1603:
1604: IF (p_formula_header_rec.attribute27 = FND_API.G_MISS_CHAR) THEN
1605: l_attribute27 := NULL;
1606: ELSIF (p_formula_header_rec.attribute27 IS NULL) THEN
1607: l_attribute27 := fm_form_mst_rec.attribute27;
1608: ELSE
1608: ELSE
1609: l_attribute27 := p_formula_header_rec.attribute27;
1610: END IF;
1611:
1612: IF (p_formula_header_rec.attribute28 = FND_API.G_MISS_CHAR) THEN
1613: l_attribute28 := NULL;
1614: ELSIF (p_formula_header_rec.attribute28 IS NULL) THEN
1615: l_attribute28 := fm_form_mst_rec.attribute28;
1616: ELSE
1616: ELSE
1617: l_attribute28 := p_formula_header_rec.attribute28;
1618: END IF;
1619:
1620: IF (p_formula_header_rec.attribute29 = FND_API.G_MISS_CHAR) THEN
1621: l_attribute29 := NULL;
1622: ELSIF (p_formula_header_rec.attribute29 IS NULL) THEN
1623: l_attribute29 := fm_form_mst_rec.attribute29;
1624: ELSE
1624: ELSE
1625: l_attribute29 := p_formula_header_rec.attribute29;
1626: END IF;
1627:
1628: IF (p_formula_header_rec.attribute30 = FND_API.G_MISS_CHAR) THEN
1629: l_attribute30 := NULL;
1630: ELSIF (p_formula_header_rec.attribute30 IS NULL) THEN
1631: l_attribute30 := fm_form_mst_rec.attribute30;
1632: ELSE
1655: FND_MESSAGE.SET_NAME('GMD', 'FM_INVCLASS');
1656: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1657: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1658: FND_MSG_PUB.Add;
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661: END IF;
1662:
1663: /* Call the private API to update the header info */
1660: END IF;
1661: END IF;
1662:
1663: /* Call the private API to update the header info */
1664: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1665: l_fm_form_mst_rec.formula_id := l_formula_id;
1666: l_fm_form_mst_rec.formula_no := p_formula_header_rec.formula_no;
1667: l_fm_form_mst_rec.formula_vers := p_formula_header_rec.formula_vers;
1668: l_fm_form_mst_rec.formula_type := p_formula_header_rec.formula_type;
1727: END IF;
1728: GMD_FORMULA_HEADER_PVT.Update_FormulaHeader
1729: ( p_api_version => 1.0
1730: ,p_init_msg_list => p_init_msg_list
1731: ,p_commit => FND_API.G_FALSE
1732: ,x_return_status => x_return_status
1733: ,x_msg_count => x_msg_count
1734: ,x_msg_data => x_msg_data
1735: ,p_formula_header_rec => l_fm_form_mst_rec
1740: END IF;
1741:
1742: l_lastformula_id := l_formula_id; -- Assign the last formula header updated.
1743:
1744: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
1745: p_formula_header_rec.auto_product_calc = 'N' THEN
1746: update FM_MATL_DTL
1747: SET PROD_PERCENT = NULL
1748: where formula_id = l_formula_id
1758: END IF; /* end after update of header */
1759:
1760: /* IF updating a header fails - we Raise an exception
1761: rather than trying to update other header details */
1762: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1763: RAISE FND_API.G_EXC_ERROR;
1764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1759:
1760: /* IF updating a header fails - we Raise an exception
1761: rather than trying to update other header details */
1762: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1763: RAISE FND_API.G_EXC_ERROR;
1764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1760: /* IF updating a header fails - we Raise an exception
1761: rather than trying to update other header details */
1762: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1763: RAISE FND_API.G_EXC_ERROR;
1764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1768: END LOOP;
1761: rather than trying to update other header details */
1762: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1763: RAISE FND_API.G_EXC_ERROR;
1764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1768: END LOOP;
1769:
1767:
1768: END LOOP;
1769:
1770: /* End of API body */
1771: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1772: /* Check if p_commit is set to TRUE */
1773: IF FND_API.To_Boolean( p_commit ) THEN
1774: Commit;
1775: END IF;
1769:
1770: /* End of API body */
1771: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
1772: /* Check if p_commit is set to TRUE */
1773: IF FND_API.To_Boolean( p_commit ) THEN
1774: Commit;
1775: END IF;
1776: END IF;
1777:
1780: p_count => x_msg_count,
1781: p_data => x_msg_data );
1782:
1783: EXCEPTION
1784: WHEN FND_API.G_EXC_ERROR THEN
1785: ROLLBACK to Update_FormulaHeader_PUB;
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: FND_MSG_PUB.Count_And_Get (
1788: p_count => x_msg_count,
1782:
1783: EXCEPTION
1784: WHEN FND_API.G_EXC_ERROR THEN
1785: ROLLBACK to Update_FormulaHeader_PUB;
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: FND_MSG_PUB.Count_And_Get (
1788: p_count => x_msg_count,
1789: p_data => x_msg_data );
1790: IF (l_debug = 'Y') THEN
1791: gmd_debug.put_line(' In Formula Header Pub - In Error Exception Section '
1792: ||' - '
1793: ||x_return_status);
1794: END IF;
1795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1796: ROLLBACK to Update_FormulaHeader_PUB;
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: FND_MSG_PUB.Count_And_Get (
1799: p_count => x_msg_count,
1793: ||x_return_status);
1794: END IF;
1795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1796: ROLLBACK to Update_FormulaHeader_PUB;
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: FND_MSG_PUB.Count_And_Get (
1799: p_count => x_msg_count,
1800: p_data => x_msg_data );
1801: IF (l_debug = 'Y') THEN
1805: END IF;
1806: WHEN OTHERS THEN
1807: ROLLBACK to Update_FormulaHeader_PUB;
1808: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: FND_MSG_PUB.Count_And_Get (
1811: p_count => x_msg_count,
1812: p_data => x_msg_data );
1813: IF (l_debug = 'Y') THEN
1860: /* Define Savepoint */
1861: SAVEPOINT Delete_FormulaHeader_PUB;
1862:
1863: /* Standard Check for API compatibility */
1864: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1865: p_api_version ,
1866: l_api_name ,
1867: G_PKG_NAME )
1868: THEN
1865: p_api_version ,
1866: l_api_name ,
1867: G_PKG_NAME )
1868: THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871:
1872: /* Initialize message list if p_init_msg_list is set to TRUE */
1873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871:
1872: /* Initialize message list if p_init_msg_list is set to TRUE */
1873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1874: FND_MSG_PUB.initialize;
1875: END IF;
1876: /* Initialize API return status to success */
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1874: FND_MSG_PUB.initialize;
1875: END IF;
1876: /* Initialize API return status to success */
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879: /* Start looping through the table */
1880: IF (p_formula_header_tbl.count = 0) THEN
1881: RAISE FND_API.G_EXC_ERROR;
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879: /* Start looping through the table */
1880: IF (p_formula_header_tbl.count = 0) THEN
1881: RAISE FND_API.G_EXC_ERROR;
1882: END IF;
1883:
1884: FOR i IN 1 .. p_formula_header_tbl.count LOOP
1885:
1891: -- Bug 4603060
1892: IF (l_user_id IS NULL) THEN
1893: FND_MESSAGE.SET_NAME('GMD', 'GMD_USER_CONTEXT_NOT_SET');
1894: FND_MSG_PUB.Add;
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1898:
1899: /* =================================== */
1904: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_ACTION');
1905: FND_MESSAGE.SET_TOKEN('FORMULA_NO', p_formula_header_rec.formula_no);
1906: FND_MESSAGE.SET_TOKEN('FORMULA_VERS', p_formula_header_rec.formula_vers);
1907: FND_MSG_PUB.Add;
1908: RAISE FND_API.G_EXC_ERROR;
1909: END IF;
1910:
1911: /* ======================== */
1912: /* Get the formula id value */
1920: IF (l_return_val <> 0) THEN
1921: IF (p_formula_header_rec.formula_no IS NULL) THEN
1922: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_NO');
1923: FND_MSG_PUB.Add;
1924: RAISE FND_API.G_EXC_ERROR;
1925: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1926: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1927: FND_MSG_PUB.Add;
1928: RAISE FND_API.G_EXC_ERROR;
1924: RAISE FND_API.G_EXC_ERROR;
1925: ELSIF (p_formula_header_rec.formula_vers IS NULL) THEN
1926: FND_MESSAGE.SET_NAME('GMD', 'FM_MISSING_FORMULA_VERS');
1927: FND_MSG_PUB.Add;
1928: RAISE FND_API.G_EXC_ERROR;
1929: ELSE
1930: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1931: FND_MSG_PUB.Add;
1932: RAISE FND_API.G_EXC_ERROR;
1928: RAISE FND_API.G_EXC_ERROR;
1929: ELSE
1930: FND_MESSAGE.SET_NAME('GMD', 'FM_INVALID_FORMULA_ID');
1931: FND_MSG_PUB.Add;
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934: END IF;
1935: ELSE
1936: l_formula_id := p_formula_header_rec.formula_id;
1943: FND_MESSAGE.SET_TOKEN('NO', p_formula_header_rec.formula_no);
1944: FND_MESSAGE.SET_TOKEN('VERS', p_formula_header_rec.formula_vers);
1945: FND_MESSAGE.SET_TOKEN('STATUS',get_fm_status_meaning(l_formula_id));
1946: FND_MSG_PUB.Add;
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1949:
1950: /* Call the private API to update the header info */
1951: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1949:
1950: /* Call the private API to update the header info */
1951: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1952: FOR l_formula_rec IN get_fm_db_rec(l_formula_id) LOOP
1953:
1954: l_fm_form_mst_rec.formula_id := l_formula_id;
1955: l_fm_form_mst_rec.formula_no := l_formula_rec.formula_no;
2011:
2012: GMD_FORMULA_HEADER_PVT.Update_FormulaHeader
2013: ( p_api_version => p_api_version
2014: ,p_init_msg_list => p_init_msg_list
2015: ,p_commit => FND_API.G_FALSE
2016: ,x_return_status => x_return_status
2017: ,x_msg_count => x_msg_count
2018: ,x_msg_data => x_msg_data
2019: ,p_formula_header_rec => l_fm_form_mst_rec
2022: END IF;
2023:
2024: /* IF deleting a header fails - we Raise an exception
2025: rather than trying to delete other header details */
2026: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: END IF;
2023:
2024: /* IF deleting a header fails - we Raise an exception
2025: rather than trying to delete other header details */
2026: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: END IF;
2031:
2024: /* IF deleting a header fails - we Raise an exception
2025: rather than trying to delete other header details */
2026: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: END IF;
2031:
2032: END LOOP;
2025: rather than trying to delete other header details */
2026: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030: END IF;
2031:
2032: END LOOP;
2033:
2031:
2032: END LOOP;
2033:
2034: /* End of API body */
2035: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
2036: /* Check if p_commit is set to TRUE */
2037: IF FND_API.To_Boolean( p_commit ) THEN
2038: Commit;
2039: END IF;
2033:
2034: /* End of API body */
2035: IF x_return_status IN (FND_API.G_RET_STS_SUCCESS,'Q') THEN
2036: /* Check if p_commit is set to TRUE */
2037: IF FND_API.To_Boolean( p_commit ) THEN
2038: Commit;
2039: END IF;
2040: END IF;
2041:
2044: p_count => x_msg_count,
2045: p_data => x_msg_data );
2046:
2047: EXCEPTION
2048: WHEN FND_API.G_EXC_ERROR THEN
2049: ROLLBACK to Delete_FormulaHeader_PUB;
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051: FND_MSG_PUB.Count_And_Get (
2052: p_count => x_msg_count,
2046:
2047: EXCEPTION
2048: WHEN FND_API.G_EXC_ERROR THEN
2049: ROLLBACK to Delete_FormulaHeader_PUB;
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051: FND_MSG_PUB.Count_And_Get (
2052: p_count => x_msg_count,
2053: p_data => x_msg_data );
2054:
2051: FND_MSG_PUB.Count_And_Get (
2052: p_count => x_msg_count,
2053: p_data => x_msg_data );
2054:
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: ROLLBACK to Delete_FormulaHeader_PUB;
2057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2058: FND_MSG_PUB.Count_And_Get (
2059: p_count => x_msg_count,
2053: p_data => x_msg_data );
2054:
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: ROLLBACK to Delete_FormulaHeader_PUB;
2057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2058: FND_MSG_PUB.Count_And_Get (
2059: p_count => x_msg_count,
2060: p_data => x_msg_data );
2061:
2061:
2062: WHEN OTHERS THEN
2063: ROLLBACK to Delete_FormulaHeader_PUB;
2064: fnd_msg_pub.add_exc_msg (G_PKG_NAME, l_api_name);
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: FND_MSG_PUB.Count_And_Get (
2067: p_count => x_msg_count,
2068: p_data => x_msg_data );
2069: