eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMD_SUBSTITUTION_PUB dependencies on FND_MSG_PUB

Line 68: FND_MSG_PUB.ADD;

64: IF ((l_status_code between 200 and 299) OR
65: (l_status_code >= 800) OR
66: (l_status_code between 500 and 599)) THEN
67: FND_MESSAGE.SET_NAME('GMD','GMD_SUBS_CANNOT_UPD');
68: FND_MSG_PUB.ADD;
69: Return FALSE;
70: END IF;
71:
72: Return TRUE;

Line 175: fnd_msg_pub.initialize;

171: l_substitution_dtl_rec := p_substitution_dtl_rec;
172:
173: /* Initialize message list and count if needed */
174: IF (p_init_msg_list = FND_API.g_true) THEN
175: fnd_msg_pub.initialize;
176: END IF;
177:
178: /* Intialize the setup fields */
179: IF NOT gmd_api_grp.setup_done THEN

Line 199: FND_MSG_PUB.ADD;

195: -- substitution_name and Substitution_version
196: IF l_substitution_hdr_rec.substitution_name IS NULL THEN
197: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
198: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_NAME');
199: FND_MSG_PUB.ADD;
200: RAISE substitution_creation_failure;
201: END IF;
202:
203: IF l_substitution_hdr_rec.substitution_version IS NULL THEN

Line 206: FND_MSG_PUB.ADD;

202:
203: IF l_substitution_hdr_rec.substitution_version IS NULL THEN
204: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
205: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_VERSION');
206: FND_MSG_PUB.ADD;
207: RAISE substitution_creation_failure;
208: ELSIF (l_substitution_hdr_rec.substitution_version < 0 ) THEN
209: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
210: FND_MESSAGE.SET_TOKEN ('FIELD', 'SUBSTITUTION_VERSION');

Line 211: FND_MSG_PUB.ADD;

207: RAISE substitution_creation_failure;
208: ELSIF (l_substitution_hdr_rec.substitution_version < 0 ) THEN
209: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
210: FND_MESSAGE.SET_TOKEN ('FIELD', 'SUBSTITUTION_VERSION');
211: FND_MSG_PUB.ADD;
212: RAISE substitution_creation_failure;
213: END IF;
214:
215: -- get the substitution_id from sequence

Line 224: FND_MSG_PUB.ADD;

220: -- substitution_description
221: IF l_substitution_hdr_rec.substitution_description IS NULL THEN
222: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
223: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_DESCRIPTION');
224: FND_MSG_PUB.ADD;
225: RAISE substitution_creation_failure;
226: END IF;
227:
228: -- original_item_id

Line 233: FND_MSG_PUB.ADD;

229: IF ((l_substitution_hdr_rec.original_inventory_item_id IS NULL) AND
230: (l_substitution_hdr_rec.original_item_no IS NULL)) THEN
231: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
232: FND_MESSAGE.SET_TOKEN ('MISSING', 'ORIGINAL_ITEM_ID');
233: FND_MSG_PUB.ADD;
234: RAISE substitution_creation_failure;
235: ELSIF (l_substitution_hdr_rec.original_inventory_item_id IS NULL) THEN
236: OPEN get_item_info2(l_substitution_hdr_rec.original_item_no);
237: FETCH get_item_info2

Line 251: FND_MSG_PUB.ADD;

247: END IF;
248: IF (l_original_prim_item_um IS NULL) THEN
249: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_ORIGINAL_ITEM');
250: FND_MESSAGE.SET_TOKEN('ORIGINAL_ITEM_NO', l_substitution_hdr_rec.original_item_no);
251: FND_MSG_PUB.ADD;
252: RAISE substitution_creation_failure;
253: END IF;
254:
255: -- original_qty

Line 259: FND_MSG_PUB.ADD;

255: -- original_qty
256: IF l_substitution_hdr_rec.original_qty IS NULL THEN
257: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
258: FND_MESSAGE.SET_TOKEN ('MISSING', 'ORIGINAL_QTY');
259: FND_MSG_PUB.ADD;
260: RAISE substitution_creation_failure;
261: ELSIF (l_substitution_hdr_rec.original_qty < 0 ) THEN
262: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
263: FND_MESSAGE.SET_TOKEN ('FIELD', 'ORIGINAL_QTY');

Line 264: FND_MSG_PUB.ADD;

260: RAISE substitution_creation_failure;
261: ELSIF (l_substitution_hdr_rec.original_qty < 0 ) THEN
262: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
263: FND_MESSAGE.SET_TOKEN ('FIELD', 'ORIGINAL_QTY');
264: FND_MSG_PUB.ADD;
265: RAISE substitution_creation_failure;
266: END IF;
267:
268: -- preference

Line 272: FND_MSG_PUB.ADD;

268: -- preference
269: IF l_substitution_hdr_rec.preference IS NULL THEN
270: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
271: FND_MESSAGE.SET_TOKEN ('MISSING', 'PREFERENCE');
272: FND_MSG_PUB.ADD;
273: RAISE substitution_creation_failure;
274: ELSIF (l_substitution_hdr_rec.preference < 0 ) THEN
275: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
276: FND_MESSAGE.SET_TOKEN ('FIELD', 'PREFERENCE');

Line 277: FND_MSG_PUB.ADD;

273: RAISE substitution_creation_failure;
274: ELSIF (l_substitution_hdr_rec.preference < 0 ) THEN
275: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
276: FND_MESSAGE.SET_TOKEN ('FIELD', 'PREFERENCE');
277: FND_MSG_PUB.ADD;
278: RAISE substitution_creation_failure;
279: END IF;
280:
281: -- replacement_uom_type -- Default it to value = 1 (original Item uom)

Line 287: FND_MSG_PUB.ADD;

283: l_substitution_hdr_rec.replacement_uom_type := 1;
284: ELSIF (l_substitution_hdr_rec.replacement_uom_type < 0) THEN
285: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
286: FND_MESSAGE.SET_TOKEN ('FIELD', 'REPLACEMENT_UOM_TYPE');
287: FND_MSG_PUB.ADD;
288: RAISE substitution_creation_failure;
289: ELSIF (l_substitution_hdr_rec.replacement_uom_type > 2) THEN
290: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INV_REPLACEMENT_TYPE');
291: FND_MSG_PUB.ADD;

Line 291: FND_MSG_PUB.ADD;

287: FND_MSG_PUB.ADD;
288: RAISE substitution_creation_failure;
289: ELSIF (l_substitution_hdr_rec.replacement_uom_type > 2) THEN
290: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INV_REPLACEMENT_TYPE');
291: FND_MSG_PUB.ADD;
292: RAISE substitution_creation_failure;
293: END IF;
294:
295: --Check that organization id is not null if raise an error message

Line 298: FND_MSG_PUB.Add;

294:
295: --Check that organization id is not null if raise an error message
296: IF (l_substitution_hdr_rec.owner_organization_id IS NULL) THEN
297: FND_MESSAGE.SET_NAME('GMD', 'GMD_MISSING_ORGANIZATION_ID');
298: FND_MSG_PUB.Add;
299: RAISE substitution_creation_failure;
300: ELSE
301: --Check the organization id passed is process enabled if not raise an error message
302: IF NOT (gmd_api_grp.check_orgn_status(l_substitution_hdr_rec.owner_organization_id)) THEN

Line 305: FND_MSG_PUB.Add;

301: --Check the organization id passed is process enabled if not raise an error message
302: IF NOT (gmd_api_grp.check_orgn_status(l_substitution_hdr_rec.owner_organization_id)) THEN
303: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
304: FND_MESSAGE.SET_TOKEN('ORGN_ID', l_substitution_hdr_rec.owner_organization_id);
305: FND_MSG_PUB.Add;
306: RAISE substitution_creation_failure;
307: END IF;
308: OPEN get_item_orgn(l_substitution_hdr_rec.owner_organization_id);
309: FETCH get_item_orgn INTO l_organization_code;

Line 333: FND_MSG_PUB.ADD;

329: IF (l_dummy > 0) THEN
330: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITSUB_UNIQUE_SUBS_VER');
331: FND_MESSAGE.SET_TOKEN('SUBSNAM',l_substitution_hdr_rec.substitution_name);
332: FND_MESSAGE.SET_TOKEN('VERNAME',l_substitution_hdr_rec.substitution_version);
333: FND_MSG_PUB.ADD;
334: RAISE substitution_creation_failure;
335: END IF;
336:
337: -- Validation 2

Line 350: FND_MSG_PUB.ADD;

346: CLOSE check_for_date_overlap;
347:
348: IF (l_dummy > 0) THEN
349: FND_MESSAGE.SET_NAME('GMD','GMD_ITSUB_DATE_PRE_OVERLAP');
350: FND_MSG_PUB.ADD;
351: RAISE substitution_creation_failure;
352: END IF;
353:
354: -- Validation 3

Line 360: FND_MSG_PUB.ADD;

356: IF l_substitution_hdr_rec.end_date IS NOT NULL THEN
357: /* End date must be greater than start date, otherwise give error */
358: IF l_substitution_hdr_rec.end_date < l_substitution_hdr_rec.start_date THEN
359: FND_MESSAGE.SET_NAME('GMD', 'QC_MIN_MAX_DATE');
360: FND_MSG_PUB.ADD;
361: RAISE substitution_creation_failure;
362: END IF;
363: END IF;
364:

Line 380: FND_MSG_PUB.ADD;

376: IF L_RET IS NULL THEN
377: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITEM_ORG_NOT_FOUND');
378: FND_MESSAGE.SET_TOKEN('ORGN',l_organization_code);
379: FND_MESSAGE.SET_TOKEN('ITEM',l_substitution_hdr_rec.original_item_no);
380: FND_MSG_PUB.ADD;
381: CLOSE cur_check_item;
382: RAISE substitution_creation_failure;
383: END IF;
384: CLOSE cur_check_item;

Line 410: FND_MSG_PUB.ADD;

406: IF ((l_substitution_dtl_rec.inventory_item_id IS NULL) AND
407: (l_substitution_dtl_rec.item_no IS NULL)) THEN
408: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
409: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTE_ITEM_ID');
410: FND_MSG_PUB.ADD;
411: RAISE substitution_creation_failure;
412: ELSIF (l_substitution_dtl_rec.inventory_item_id IS NULL) THEN
413: OPEN get_item_info2(l_substitution_dtl_rec.item_no);
414: FETCH get_item_info2

Line 429: FND_MSG_PUB.ADD;

425:
426: IF (l_substitute_prim_item_um IS NULL) THEN
427: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTE_ITEM');
428: FND_MESSAGE.SET_TOKEN('SUBSTITUTE_ITEM_NO',l_substitution_dtl_rec.item_no);
429: FND_MSG_PUB.ADD;
430: RAISE substitution_creation_failure;
431: END IF;
432:
433: -- unit_qty

Line 437: FND_MSG_PUB.ADD;

433: -- unit_qty
434: IF l_substitution_dtl_rec.unit_qty IS NULL THEN
435: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
436: FND_MESSAGE.SET_TOKEN ('MISSING', 'UNIT_QTY');
437: FND_MSG_PUB.ADD;
438: RAISE substitution_creation_failure;
439: ELSIF (l_substitution_dtl_rec.unit_qty < 0 ) THEN
440: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
441: FND_MESSAGE.SET_TOKEN ('FIELD', 'UNIT_QTY');

Line 442: FND_MSG_PUB.ADD;

438: RAISE substitution_creation_failure;
439: ELSIF (l_substitution_dtl_rec.unit_qty < 0 ) THEN
440: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
441: FND_MESSAGE.SET_TOKEN ('FIELD', 'UNIT_QTY');
442: FND_MSG_PUB.ADD;
443: RAISE substitution_creation_failure;
444: END IF;
445:
446: -- item_uom

Line 452: FND_MSG_PUB.ADD;

448: l_substitution_dtl_rec.detail_uom := l_substitute_prim_item_um;
449: ELSE
450: IF (NOT(gma_valid_grp.validate_um(l_substitution_dtl_rec.detail_uom))) THEN
451: FND_MESSAGE.SET_NAME('GMA', 'SY_INVALID_UM_CODE');
452: FND_MSG_PUB.ADD;
453: RAISE substitution_creation_failure;
454: END IF;
455: END IF;
456:

Line 480: FND_MSG_PUB.ADD;

476: FND_MESSAGE.SET_NAME('GMD','FM_SCALE_BAD_ITEM_UOM');
477: FND_MESSAGE.SET_TOKEN('FROM_UOM', l_substitution_dtl_rec.detail_uom);
478: FND_MESSAGE.SET_TOKEN('TO_UOM', l_substitute_prim_item_um);
479: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_substitution_dtl_rec.item_no);
480: FND_MSG_PUB.ADD;
481: RAISE substitution_creation_failure;
482: END IF;
483:
484: IF (l_substitution_hdr_rec.replacement_uom_type = 2) THEN

Line 498: FND_MSG_PUB.ADD;

494: FND_MESSAGE.SET_NAME('GMD','FM_SCALE_BAD_ITEM_UOM');
495: FND_MESSAGE.SET_TOKEN('FROM_UOM', l_substitution_dtl_rec.detail_uom);
496: FND_MESSAGE.SET_TOKEN('TO_UOM', l_original_prim_item_um);
497: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_substitution_dtl_rec.item_no);
498: FND_MSG_PUB.ADD;
499: RAISE substitution_creation_failure;
500: END IF;
501: END IF;
502: -- reset l_dummy

Line 513: FND_MSG_PUB.ADD;

509: IF L_RET IS NULL THEN
510: FND_MESSAGE.SET_NAME('GMD', 'GMD_ITEM_ORG_NOT_FOUND');
511: FND_MESSAGE.SET_TOKEN('ORGN',l_organization_code);
512: FND_MESSAGE.SET_TOKEN('ITEM',l_substitution_dtl_rec.item_no);
513: FND_MSG_PUB.ADD;
514: CLOSE cur_check_item;
515: RAISE substitution_creation_failure;
516: END IF;
517: CLOSE cur_check_item;

Line 543: FND_MSG_PUB.ADD;

539: (l_formula_substitution_rec.formula_no IS NULL OR
540: l_formula_substitution_rec.formula_vers IS NULL) THEN
541: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
542: FND_MESSAGE.SET_TOKEN ('MISSING', 'FORMULA_ID');
543: FND_MSG_PUB.ADD;
544: RAISE substitution_creation_failure;
545: ELSIF (l_formula_substitution_rec.formula_id IS NULL) THEN
546: -- Get the formula id
547: GMDFMVAL_PUB.get_formula_id

Line 554: FND_MSG_PUB.ADD;

550: ,xvalue => l_formula_substitution_rec.formula_id
551: ,xreturn_code => l_dummy);
552: IF (l_dummy < 0) THEN
553: FND_MESSAGE.SET_NAME ('GMD', 'QC_INVALID_FORMULA');
554: FND_MSG_PUB.ADD;
555: RAISE substitution_creation_failure;
556: END IF;
557: ELSE
558: -- get formula no and version

Line 574: FND_MSG_PUB.ADD;

570: IF (l_dummy <> 1) THEN
571: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INACTIVE_FMSUB');
572: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',l_formula_substitution_rec.formula_vers);
573: FND_MESSAGE.SET_TOKEN('FORMULA_NO',l_formula_substitution_rec.formula_no);
574: FND_MSG_PUB.ADD;
575: RAISE substitution_creation_failure;
576: END IF;
577: -- reset l_dummy
578: l_dummy := 0;

Line 593: FND_MSG_PUB.ADD;

589: IF (l_dummy <> 1) THEN
590: FND_MESSAGE.SET_NAME ('GMD', 'GMD_FMSUB_INGR_MISSING');
591: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',l_formula_substitution_rec.formula_vers);
592: FND_MESSAGE.SET_TOKEN('FORMULA_NO',l_formula_substitution_rec.formula_no);
593: FND_MSG_PUB.ADD;
594: RAISE substitution_creation_failure;
595: END IF;
596: -- reset l_dummy
597: l_dummy := 0;

Line 629: fnd_msg_pub.count_and_get (

625: END IF;
626: EXCEPTION
627: WHEN substitution_creation_failure OR invalid_version OR setup_failure THEN
628: x_return_status := FND_API.g_ret_sts_error;
629: fnd_msg_pub.count_and_get (
630: p_count => x_message_count
631: ,p_encoded => FND_API.g_false
632: ,p_data => x_message_list);
633: ROLLBACK TO SAVEPOINT substitution_api;

Line 636: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);

632: ,p_data => x_message_list);
633: ROLLBACK TO SAVEPOINT substitution_api;
634: WHEN OTHERS THEN
635: x_return_status := FND_API.g_ret_sts_unexp_error;
636: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
637: fnd_msg_pub.count_and_get (
638: p_count => x_message_count
639: ,p_encoded => FND_API.g_false
640: ,p_data => x_message_list);

Line 637: fnd_msg_pub.count_and_get (

633: ROLLBACK TO SAVEPOINT substitution_api;
634: WHEN OTHERS THEN
635: x_return_status := FND_API.g_ret_sts_unexp_error;
636: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
637: fnd_msg_pub.count_and_get (
638: p_count => x_message_count
639: ,p_encoded => FND_API.g_false
640: ,p_data => x_message_list);
641: ROLLBACK TO SAVEPOINT substitution_api;

Line 706: fnd_msg_pub.initialize;

702: x_return_status := FND_API.G_RET_STS_SUCCESS;
703:
704: /* Initialize message list and count if needed */
705: IF (p_init_msg_list = FND_API.G_True) THEN
706: fnd_msg_pub.initialize;
707: END IF;
708:
709: /* Intialize the setup fields */
710: IF NOT gmd_api_grp.setup_done THEN

Line 731: FND_MSG_PUB.ADD;

727: (p_substitution_name IS NULL OR
728: p_substitution_version IS NULL)) THEN
729: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
730: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_ID');
731: FND_MSG_PUB.ADD;
732: RAISE substitution_creation_failure;
733: ELSIF (p_substitution_id IS NULL) THEN
734: -- Get the subsitution id
735: OPEN get_substitution_id(p_substitution_name

Line 741: FND_MSG_PUB.ADD;

737: FETCH get_substitution_id INTO l_substitution_id;
738: IF (get_substitution_id%NOTFOUND) THEN
739: CLOSE get_substitution_id;
740: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
741: FND_MSG_PUB.ADD;
742: RAISE substitution_creation_failure;
743: END IF;
744: CLOSE get_substitution_id;
745: ELSE

Line 764: FND_MSG_PUB.ADD;

760: (l_formula_substitution_rec.formula_no IS NULL OR
761: l_formula_substitution_rec.formula_vers IS NULL)) THEN
762: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
763: FND_MESSAGE.SET_TOKEN ('MISSING', 'FORMULA_ID');
764: FND_MSG_PUB.ADD;
765: RAISE substitution_creation_failure;
766: ELSIF (l_formula_substitution_rec.formula_id IS NULL) THEN
767: -- Get the formula id
768: GMDFMVAL_PUB.get_formula_id

Line 775: FND_MSG_PUB.ADD;

771: ,xvalue => l_formula_substitution_rec.formula_id
772: ,xreturn_code => l_dummy);
773: IF (l_dummy < 0) THEN
774: FND_MESSAGE.SET_NAME ('GMD', 'QC_INVALID_FORMULA');
775: FND_MSG_PUB.ADD;
776: RAISE substitution_creation_failure;
777: END IF;
778: -- reset
779: l_dummy := 0;

Line 788: FND_MSG_PUB.ADD;

784: l_formula_substitution_rec.formula_vers;
785: IF (get_formula_no_vers%NOTFOUND) THEN
786: CLOSE get_formula_no_vers;
787: FND_MESSAGE.SET_NAME ('GMD', 'QC_INVALID_FORMULA');
788: FND_MSG_PUB.ADD;
789: RAISE substitution_creation_failure;
790: END IF;
791: CLOSE get_formula_no_vers;
792: END IF;

Line 809: FND_MSG_PUB.ADD;

805: IF (l_dummy <> 1) THEN
806: FND_MESSAGE.SET_NAME ('GMD', 'GMD_FMSUB_INGR_MISSING');
807: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',l_formula_substitution_rec.formula_vers);
808: FND_MESSAGE.SET_TOKEN('FORMULA_NO',l_formula_substitution_rec.formula_no);
809: FND_MSG_PUB.ADD;
810: RAISE substitution_creation_failure;
811: END IF;
812: -- reset l_dummy
813: l_dummy := 0;

Line 824: FND_MSG_PUB.ADD;

820: IF (l_dummy <> 1) THEN
821: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INACTIVE_FMSUB');
822: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',l_formula_substitution_rec.formula_vers);
823: FND_MESSAGE.SET_TOKEN('FORMULA_NO',l_formula_substitution_rec.formula_no);
824: FND_MSG_PUB.ADD;
825: RAISE substitution_creation_failure;
826: END IF;
827: -- reset l_dummy
828: l_dummy := 0;

Line 841: FND_MSG_PUB.ADD;

837: IF (l_dummy = 1) THEN
838: FND_MESSAGE.SET_NAME ('GMD', 'GMD_FMSUB_ASSN_EXISTS');
839: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',l_formula_substitution_rec.formula_vers);
840: FND_MESSAGE.SET_TOKEN('FORMULA_NO',l_formula_substitution_rec.formula_no);
841: FND_MSG_PUB.ADD;
842: RAISE substitution_creation_failure;
843: END IF;
844:
845: -- reset l_dummy

Line 878: fnd_msg_pub.count_and_get (

874:
875: EXCEPTION
876: WHEN substitution_creation_failure OR invalid_version OR setup_failure THEN
877: x_return_status := FND_API.G_RET_STS_ERROR;
878: fnd_msg_pub.count_and_get (
879: p_count => x_message_count
880: ,p_encoded => FND_API.g_false
881: ,p_data => x_message_list);
882: ROLLBACK TO SAVEPOINT substitution_api;

Line 885: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);

881: ,p_data => x_message_list);
882: ROLLBACK TO SAVEPOINT substitution_api;
883: WHEN OTHERS THEN
884: x_return_status := FND_API.g_ret_sts_unexp_error;
885: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
886: fnd_msg_pub.count_and_get (
887: p_count => x_message_count
888: ,p_encoded => FND_API.g_false
889: ,p_data => x_message_list);

Line 886: fnd_msg_pub.count_and_get (

882: ROLLBACK TO SAVEPOINT substitution_api;
883: WHEN OTHERS THEN
884: x_return_status := FND_API.g_ret_sts_unexp_error;
885: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
886: fnd_msg_pub.count_and_get (
887: p_count => x_message_count
888: ,p_encoded => FND_API.g_false
889: ,p_data => x_message_list);
890: ROLLBACK TO SAVEPOINT substitution_api;

Line 942: fnd_msg_pub.initialize;

938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940: /* Initialize message list and count if needed */
941: IF (p_init_msg_list = FND_API.G_true) THEN
942: fnd_msg_pub.initialize;
943: END IF;
944:
945: /* Intialize the setup fields */
946: IF NOT gmd_api_grp.setup_done THEN

Line 968: FND_MSG_PUB.ADD;

964: IF (p_substitution_name IS NULL) OR (p_substitution_version IS NULL) THEN
965: -- Raise a exception
966: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
967: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_ID');
968: FND_MSG_PUB.ADD;
969: RAISE substitution_update_failure;
970: ELSE
971: OPEN get_substitution_id(p_substitution_name, p_substitution_version);
972: FETCH get_substitution_id INTO l_substitution_id;

Line 976: FND_MSG_PUB.ADD;

972: FETCH get_substitution_id INTO l_substitution_id;
973: IF (get_substitution_id%NOTFOUND) THEN
974: CLOSE get_substitution_id;
975: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
976: FND_MSG_PUB.ADD;
977: RAISE substitution_update_failure;
978: END IF;
979: CLOSE get_substitution_id;
980: END IF;

Line 996: FND_MSG_PUB.ADD;

992: FETCH get_old_substitution_rec INTO l_substitution_hdr_rec;
993: IF (get_old_substitution_rec%NOTFOUND) THEN
994: CLOSE get_old_substitution_rec;
995: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
996: FND_MSG_PUB.ADD;
997: RAISE substitution_update_failure;
998: END IF;
999: CLOSE get_old_substitution_rec;
1000:

Line 1011: FND_MSG_PUB.ADD;

1007: FND_DATE.canonical_to_date(p_update_table(i).p_value);
1008: IF (l_substitution_hdr_rec.end_date IS NOT NULL) THEN
1009: IF (l_substitution_hdr_rec.end_date < l_substitution_hdr_rec.start_date) THEN
1010: FND_MESSAGE.SET_NAME('GMD', 'QC_MIN_MAX_DATE');
1011: FND_MSG_PUB.ADD;
1012: RAISE substitution_update_failure;
1013: END IF;
1014: END IF;
1015: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'SUBSTITUTION_DESCRIPTION') THEN

Line 1021: FND_MSG_PUB.ADD;

1017: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'PREFERENCE') THEN
1018: IF (p_update_table(i).p_value < 0 ) THEN
1019: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
1020: FND_MESSAGE.SET_TOKEN ('FIELD', 'PREFERENCE');
1021: FND_MSG_PUB.ADD;
1022: RAISE substitution_update_failure;
1023: END IF;
1024: l_substitution_hdr_rec.preference := p_update_table(i).p_value;
1025: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'END_DATE') THEN

Line 1031: FND_MSG_PUB.ADD;

1027: FND_DATE.canonical_to_date(p_update_table(i).p_value);
1028: IF (p_update_table(i).p_value IS NOT NULL) THEN
1029: IF (l_substitution_hdr_rec.start_date > l_substitution_hdr_rec.end_date) THEN
1030: FND_MESSAGE.SET_NAME('GMD', 'QC_MIN_MAX_DATE');
1031: FND_MSG_PUB.ADD;
1032: RAISE substitution_update_failure;
1033: END IF;
1034: END IF;
1035: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'ORIGINAL_QTY') THEN

Line 1039: FND_MSG_PUB.ADD;

1035: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'ORIGINAL_QTY') THEN
1036: IF (p_update_table(i).p_value < 0) THEN
1037: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
1038: FND_MESSAGE.SET_TOKEN ('FIELD', 'ORIGINAL_QTY');
1039: FND_MSG_PUB.ADD;
1040: RAISE substitution_update_failure;
1041: END IF;
1042: l_substitution_hdr_rec.original_qty := p_update_table(i).p_value;
1043: ELSIF (Upper(p_update_table(i).p_col_to_update) = 'REPLACEMENT_UOM_TYPE') THEN

Line 1048: FND_MSG_PUB.ADD;

1044: -- replacement_uom_type -- Default it to value = 1 (original Item uom)
1045: IF (p_update_table(i).p_value < 0) THEN
1046: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
1047: FND_MESSAGE.SET_TOKEN ('FIELD', 'REPLACEMENT_UOM_TYPE');
1048: FND_MSG_PUB.ADD;
1049: RAISE substitution_update_failure;
1050: ELSIF (p_update_table(i).p_value > 2) THEN
1051: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INV_REPLACEMENT_TYPE');
1052: FND_MSG_PUB.ADD;

Line 1052: FND_MSG_PUB.ADD;

1048: FND_MSG_PUB.ADD;
1049: RAISE substitution_update_failure;
1050: ELSIF (p_update_table(i).p_value > 2) THEN
1051: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INV_REPLACEMENT_TYPE');
1052: FND_MSG_PUB.ADD;
1053: RAISE substitution_update_failure;
1054: END IF;
1055: l_substitution_hdr_rec.replacement_uom_type := p_update_table(i).p_value;
1056: -- Cannot change the orginal item in substitution.

Line 1065: FND_MSG_PUB.ADD;

1061: ,'OWNER_ORGANIZATION_ID'
1062: ,'ORIGINAL_INVENTORY_ITEM_ID')) THEN
1063: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_COL_UPDATES');
1064: FND_MESSAGE.SET_TOKEN('NAME',p_update_table(i).p_col_to_update);
1065: FND_MSG_PUB.ADD;
1066: RAISE substitution_update_failure;
1067: ELSIF (Upper(p_update_table(i).p_col_to_update) =
1068: ('SUBSTITUTION_STATUS')) THEN
1069: FND_MESSAGE.SET_NAME('GMD', 'GMD_NOT_USE_API_UPD_STATUS');

Line 1070: FND_MSG_PUB.ADD;

1066: RAISE substitution_update_failure;
1067: ELSIF (Upper(p_update_table(i).p_col_to_update) =
1068: ('SUBSTITUTION_STATUS')) THEN
1069: FND_MESSAGE.SET_NAME('GMD', 'GMD_NOT_USE_API_UPD_STATUS');
1070: FND_MSG_PUB.ADD;
1071: RAISE substitution_update_failure;
1072: ELSIF (UPPER(p_update_table(i).p_col_to_update) = 'ATTRIBUTE1') THEN
1073: l_substitution_hdr_rec.ATTRIBUTE1 := p_update_table(i).p_value;
1074: ELSIF (UPPER(p_update_table(i).p_col_to_update) = 'ATTRIBUTE2') THEN

Line 1137: FND_MSG_PUB.ADD;

1133: l_substitution_hdr_rec.ATTRIBUTE_CATEGORY := p_update_table(i).p_value;
1134: ELSE
1135: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_UPDCOL_NAME');
1136: FND_MESSAGE.SET_TOKEN('NAME', p_update_table(i).p_col_to_update);
1137: FND_MSG_PUB.ADD;
1138: RAISE substitution_update_failure;
1139: END IF;
1140:
1141: -- Assign values

Line 1165: fnd_msg_pub.count_and_get (

1161: END IF;
1162:
1163: EXCEPTION
1164: WHEN substitution_update_failure OR invalid_version OR setup_failure THEN
1165: fnd_msg_pub.count_and_get (
1166: p_count => x_message_count
1167: ,p_encoded => FND_API.g_false
1168: ,p_data => x_message_list);
1169: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1173: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);

1169: x_return_status := FND_API.G_RET_STS_ERROR;
1170: ROLLBACK TO SAVEPOINT substitution_api;
1171: WHEN OTHERS THEN
1172: x_return_status := FND_API.g_ret_sts_unexp_error;
1173: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1174: fnd_msg_pub.count_and_get (
1175: p_count => x_message_count
1176: ,p_encoded => FND_API.g_false
1177: ,p_data => x_message_list);

Line 1174: fnd_msg_pub.count_and_get (

1170: ROLLBACK TO SAVEPOINT substitution_api;
1171: WHEN OTHERS THEN
1172: x_return_status := FND_API.g_ret_sts_unexp_error;
1173: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1174: fnd_msg_pub.count_and_get (
1175: p_count => x_message_count
1176: ,p_encoded => FND_API.g_false
1177: ,p_data => x_message_list);
1178: ROLLBACK TO SAVEPOINT substitution_api;

Line 1247: fnd_msg_pub.initialize;

1243: x_return_status := FND_API.G_RET_STS_SUCCESS;
1244:
1245: /* Initialize message list and count if needed */
1246: IF (p_init_msg_list = FND_API.G_True) THEN
1247: fnd_msg_pub.initialize;
1248: END IF;
1249:
1250: /* Intialize the setup fields */
1251: IF NOT gmd_api_grp.setup_done THEN

Line 1278: FND_MSG_PUB.ADD;

1274: IF (p_substitution_name IS NULL) OR (p_substitution_version IS NULL) THEN
1275: -- Raise a exception
1276: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
1277: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_ID');
1278: FND_MSG_PUB.ADD;
1279: RAISE substitution_update_failure;
1280: ELSE
1281: OPEN get_substitution_id(p_substitution_name, p_substitution_version);
1282: FETCH get_substitution_id INTO l_substitution_id;

Line 1287: FND_MSG_PUB.ADD;

1283: IF (get_substitution_id%NOTFOUND) THEN
1284: CLOSE get_substitution_id;
1285: -- raise no record found exception
1286: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
1287: FND_MSG_PUB.ADD;
1288: RAISE substitution_update_failure;
1289: END IF;
1290: CLOSE get_substitution_id;
1291: END IF;

Line 1310: FND_MSG_PUB.ADD;

1306: CLOSE get_subsdtl_rec_using_hdr_id;
1307: ELSE
1308: -- raise no record found exception
1309: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
1310: FND_MSG_PUB.ADD;
1311: RAISE substitution_update_failure;
1312: END IF;
1313:
1314: -- prevent updates or modification of pending obsolete status

Line 1326: FND_MSG_PUB.ADD;

1322: IF UPPER(p_update_table(i).p_col_to_update) = 'DETAIL_UOM' THEN
1323: IF p_update_table(i).p_value IS NOT NULL THEN
1324: IF (NOT(gma_valid_grp.validate_um(p_update_table(i).p_value))) THEN
1325: FND_MESSAGE.SET_NAME('GMA', 'SY_INVALID_UM_CODE');
1326: FND_MSG_PUB.ADD;
1327: RAISE substitution_update_failure;
1328: END IF;
1329: END IF;
1330:

Line 1359: FND_MSG_PUB.ADD;

1355: FND_MESSAGE.SET_NAME('GMD','FM_SCALE_BAD_ITEM_UOM');
1356: FND_MESSAGE.SET_TOKEN('FROM_UOM', p_update_table(i).p_value);
1357: FND_MESSAGE.SET_TOKEN('TO_UOM', l_substitute_prim_item_um);
1358: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_substitute_item_no);
1359: FND_MSG_PUB.ADD;
1360: RAISE substitution_update_failure;
1361: END IF;
1362: -- reset l_dummy
1363: l_dummy := 0;

Line 1379: FND_MSG_PUB.ADD;

1375: FND_MESSAGE.SET_NAME('GMD','FM_SCALE_BAD_ITEM_UOM');
1376: FND_MESSAGE.SET_TOKEN('FROM_UOM', p_update_table(i).p_value);
1377: FND_MESSAGE.SET_TOKEN('TO_UOM', l_original_prim_item_um);
1378: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_substitute_item_no);
1379: FND_MSG_PUB.ADD;
1380: RAISE substitution_update_failure;
1381: END IF;
1382: END IF;
1383: -- reset l_dummy

Line 1392: FND_MSG_PUB.ADD;

1388: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'UNIT_QTY' THEN
1389: IF p_update_table(i).p_value IS NULL THEN
1390: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
1391: FND_MESSAGE.SET_TOKEN ('MISSING', 'UNIT_QTY');
1392: FND_MSG_PUB.ADD;
1393: RAISE substitution_update_failure;
1394: ELSIF (p_update_table(i).p_value < 0 ) THEN
1395: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
1396: FND_MESSAGE.SET_TOKEN ('FIELD', 'UNIT_QTY');

Line 1397: FND_MSG_PUB.ADD;

1393: RAISE substitution_update_failure;
1394: ELSIF (p_update_table(i).p_value < 0 ) THEN
1395: FND_MESSAGE.SET_NAME ('GMD', 'GMD_NEGATIVE_FIELDS');
1396: FND_MESSAGE.SET_TOKEN ('FIELD', 'UNIT_QTY');
1397: FND_MSG_PUB.ADD;
1398: RAISE substitution_update_failure;
1399: END IF;
1400: l_substitution_dtl_rec.unit_qty := p_update_table(i).p_value;
1401: -- Cannot change the Substitute item for the list

Line 1406: FND_MSG_PUB.ADD;

1402: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'INVENTORY_ITEM_ID' THEN
1403: -- raise exception
1404: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_COL_UPDATES');
1405: FND_MESSAGE.SET_TOKEN('NAME',p_update_table(i).p_col_to_update);
1406: FND_MSG_PUB.ADD;
1407: RAISE substitution_update_failure;
1408: ELSE
1409: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_UPDCOL_NAME');
1410: FND_MESSAGE.SET_TOKEN('NAME', p_update_table(i).p_col_to_update);

Line 1411: FND_MSG_PUB.ADD;

1407: RAISE substitution_update_failure;
1408: ELSE
1409: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_UPDCOL_NAME');
1410: FND_MESSAGE.SET_TOKEN('NAME', p_update_table(i).p_col_to_update);
1411: FND_MSG_PUB.ADD;
1412: RAISE substitution_update_failure;
1413: END IF;
1414:
1415: -- Assign values

Line 1438: fnd_msg_pub.count_and_get (

1434: Commit;
1435: END IF;
1436: EXCEPTION
1437: WHEN substitution_update_failure OR invalid_version OR setup_failure THEN
1438: fnd_msg_pub.count_and_get (
1439: p_count => x_message_count
1440: ,p_encoded => FND_API.g_false
1441: ,p_data => x_message_list);
1442: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1446: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);

1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: ROLLBACK TO SAVEPOINT substitution_api;
1444: WHEN OTHERS THEN
1445: x_return_status := FND_API.g_ret_sts_unexp_error;
1446: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1447: fnd_msg_pub.count_and_get (
1448: p_count => x_message_count
1449: ,p_encoded => FND_API.g_false
1450: ,p_data => x_message_list);

Line 1447: fnd_msg_pub.count_and_get (

1443: ROLLBACK TO SAVEPOINT substitution_api;
1444: WHEN OTHERS THEN
1445: x_return_status := FND_API.g_ret_sts_unexp_error;
1446: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1447: fnd_msg_pub.count_and_get (
1448: p_count => x_message_count
1449: ,p_encoded => FND_API.g_false
1450: ,p_data => x_message_list);
1451: ROLLBACK TO SAVEPOINT substitution_api;

Line 1510: fnd_msg_pub.initialize;

1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507:
1508: /* Initialize message list and count if needed */
1509: IF (p_init_msg_list = FND_API.G_True) THEN
1510: fnd_msg_pub.initialize;
1511: END IF;
1512:
1513: /* Intialize the setup fields */
1514: IF NOT gmd_api_grp.setup_done THEN

Line 1539: FND_MSG_PUB.ADD;

1535: (p_substitution_name IS NULL OR
1536: p_substitution_version IS NULL)) THEN
1537: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
1538: FND_MESSAGE.SET_TOKEN ('MISSING', 'SUBSTITUTION_ID');
1539: FND_MSG_PUB.ADD;
1540: RAISE substitution_delete_failure;
1541: ELSIF (p_substitution_id IS NULL) THEN
1542: -- Get the subsitution id
1543: OPEN get_substitution_id(p_substitution_name

Line 1549: FND_MSG_PUB.ADD;

1545: FETCH get_substitution_id INTO l_substitution_id;
1546: IF (get_substitution_id%NOTFOUND) THEN
1547: CLOSE get_substitution_id;
1548: FND_MESSAGE.SET_NAME ('GMD', 'GMD_INVALID_SUBSTITUTION');
1549: FND_MSG_PUB.ADD;
1550: RAISE substitution_delete_failure;
1551: END IF;
1552: CLOSE get_substitution_id;
1553: ELSE

Line 1562: FND_MSG_PUB.ADD;

1558: IF ((p_formula_id IS NULL) AND
1559: (p_formula_no IS NULL OR p_formula_vers IS NULL)) THEN
1560: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
1561: FND_MESSAGE.SET_TOKEN ('MISSING', 'FORMULA_ID');
1562: FND_MSG_PUB.ADD;
1563: RAISE substitution_delete_failure;
1564: ELSIF (p_formula_id IS NULL) THEN
1565: -- Get the formula id
1566: GMDFMVAL_PUB.get_formula_id

Line 1573: FND_MSG_PUB.ADD;

1569: ,xvalue => l_formula_id
1570: ,xreturn_code => l_dummy);
1571: IF (l_dummy < 0) THEN
1572: FND_MESSAGE.SET_NAME ('GMD', 'QC_INVALID_FORMULA');
1573: FND_MSG_PUB.ADD;
1574: RAISE substitution_delete_failure;
1575: END IF;
1576: ELSE
1577: l_formula_id := p_formula_id;

Line 1588: FND_MSG_PUB.ADD;

1584: CLOSE get_formula_substitution_id;
1585: FND_MESSAGE.SET_NAME ('GMD', 'GMD_FMSUB_ASSN_MISSING');
1586: FND_MESSAGE.SET_TOKEN('FORMULA_VERSION',p_formula_vers);
1587: FND_MESSAGE.SET_TOKEN('FORMULA_NO',p_formula_no);
1588: FND_MSG_PUB.ADD;
1589: RAISE substitution_delete_failure;
1590: END IF;
1591: CLOSE get_formula_substitution_id;
1592: ELSE

Line 1600: FND_MSG_PUB.ADD;

1596:
1597: IF (l_substitution_id IS NULL) THEN
1598: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
1599: FND_MESSAGE.SET_TOKEN ('MISSING', 'FORMULA_SUBSTITUTION_ID');
1600: FND_MSG_PUB.ADD;
1601: RAISE substitution_delete_failure;
1602: ELSE
1603: l_formula_substitution_id := p_formula_Substitution_id;
1604: END IF;

Line 1630: fnd_msg_pub.count_and_get (

1626: END IF;
1627:
1628: EXCEPTION
1629: WHEN substitution_delete_failure OR invalid_version OR setup_failure THEN
1630: fnd_msg_pub.count_and_get (
1631: p_count => x_message_count
1632: ,p_encoded => FND_API.g_false
1633: ,p_data => x_message_list);
1634: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1638: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);

1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: ROLLBACK TO SAVEPOINT substitution_api;
1636: WHEN OTHERS THEN
1637: x_return_status := FND_API.g_ret_sts_unexp_error;
1638: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1639: fnd_msg_pub.count_and_get (
1640: p_count => x_message_count
1641: ,p_encoded => FND_API.g_false
1642: ,p_data => x_message_list);

Line 1639: fnd_msg_pub.count_and_get (

1635: ROLLBACK TO SAVEPOINT substitution_api;
1636: WHEN OTHERS THEN
1637: x_return_status := FND_API.g_ret_sts_unexp_error;
1638: fnd_msg_pub.add_exc_msg (gmd_substitution_pub.m_pkg_name, l_api_name);
1639: fnd_msg_pub.count_and_get (
1640: p_count => x_message_count
1641: ,p_encoded => FND_API.g_false
1642: ,p_data => x_message_list);
1643: ROLLBACK TO SAVEPOINT substitution_api;