275: EXCEPTION
276: WHEN OTHERS THEN
277: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
278: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
279: FND_MSG_PUB.ADD;
280: xReturn_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: END check_routing;
282:
283:
340: FND_MESSAGE.SET_TOKEN('OPRN_DATE', l_rec.effective_start_date);
341: IF pcalledby_form = 'T' THEN
342: APP_EXCEPTION.RAISE_EXCEPTION;
343: ELSE
344: FND_MSG_PUB.ADD;
345: RETURN GMD_INV_OPRN;
346: END IF;
347: END IF;
348:
354: FND_MESSAGE.SET_TOKEN('OPRN_DATE', l_rec.effective_end_date);
355: IF pcalledby_form = 'T' THEN
356: APP_EXCEPTION.RAISE_EXCEPTION;
357: ELSE
358: FND_MSG_PUB.ADD;
359: RETURN GMD_INV_OPRN;
360: END IF;
361: END IF;
362:
366: FND_MESSAGE.SET_NAME('GMD', 'QC_INVOPRN');
367: IF (pcalledby_form = 'T') THEN
368: APP_EXCEPTION.RAISE_EXCEPTION;
369: ELSE
370: FND_MSG_PUB.ADD;
371: RETURN GMD_INV_OPRN;
372: END IF;
373: END check_oprn;
374:
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555: EXCEPTION
556: WHEN missing_details THEN
557: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUT_DETAILS_MISSING');
558: FND_MSG_PUB.ADD;
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: WHEN INSERT_FAILURE THEN
561: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
562: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: WHEN INSERT_FAILURE THEN
561: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
562: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
563: FND_MSG_PUB.ADD;
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: WHEN OTHERS THEN
566: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
567: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: WHEN OTHERS THEN
566: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
567: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
568: FND_MSG_PUB.ADD;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: END generate_step_dependencies;
571:
572:
673: x_return_status := FND_API.G_RET_STS_SUCCESS;
674: EXCEPTION
675: WHEN missing_details THEN
676: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUT_DETAILS_MISSING');
677: FND_MSG_PUB.ADD;
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: WHEN INSERT_FAILURE THEN
680: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
681: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: WHEN INSERT_FAILURE THEN
680: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
681: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
682: FND_MSG_PUB.ADD;
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: WHEN OTHERS THEN
685: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
686: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: WHEN OTHERS THEN
685: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
686: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
687: FND_MSG_PUB.ADD;
688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
689: END generate_step_dependencies;
690:
691:
723: EXCEPTION
724: WHEN OTHERS THEN
725: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
726: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
727: FND_MSG_PUB.ADD;
728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
729:
730: END Get_process_loss_max_qtys;
731:
751: FETCH check_oprn_count INTO l_oprn_count;
752: IF (check_oprn_count%NOTFOUND) THEN
753: x_return_status := 'E';
754: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUT_DTL_REQD');
755: FND_MSG_PUB.ADD;
756: END IF;
757: CLOSE check_oprn_count;
758:
759: IF (l_oprn_count = 0) THEN
758:
759: IF (l_oprn_count = 0) THEN
760: x_return_status := 'E';
761: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUT_DTL_REQD');
762: FND_MSG_PUB.ADD;
763: END IF;
764:
765: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
766: P_data => x_msg_stack);
761: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUT_DTL_REQD');
762: FND_MSG_PUB.ADD;
763: END IF;
764:
765: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
766: P_data => x_msg_stack);
767: EXCEPTION
768: WHEN OTHERS THEN
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: WHEN OTHERS THEN
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
771: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
772: FND_MSG_PUB.ADD;
773: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
774: P_data => x_msg_stack);
775:
776: END Validate_Routing_Details;
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
771: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
772: FND_MSG_PUB.ADD;
773: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
774: P_data => x_msg_stack);
775:
776: END Validate_Routing_Details;
777:
804: FETCH check_VR_Rout_dates INTO l_vr_count;
805: IF (check_VR_Rout_dates%FOUND) THEN
806: x_return_status := 'E';
807: FND_MESSAGE.SET_NAME('GMD', 'GMD_UPD_RECP_VR');
808: FND_MSG_PUB.ADD;
809: END IF;
810: CLOSE check_VR_Rout_dates;
811:
812: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
808: FND_MSG_PUB.ADD;
809: END IF;
810: CLOSE check_VR_Rout_dates;
811:
812: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
813: P_data => x_msg_stack);
814: EXCEPTION
815: WHEN OTHERS THEN
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: WHEN OTHERS THEN
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
818: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
819: FND_MSG_PUB.ADD;
820: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
821: P_data => x_msg_stack);
822:
823: END Validate_Routing_VR_Dates;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
818: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
819: FND_MSG_PUB.ADD;
820: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
821: P_data => x_msg_stack);
822:
823: END Validate_Routing_VR_Dates;
824:
858: WHEN OTHERS THEN
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
861: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
862: FND_MSG_PUB.ADD;
863: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
864: P_data => x_msg_stack);
865:
866: END Update_VR_with_Rt_Dates;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
861: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
862: FND_MSG_PUB.ADD;
863: FND_MSG_PUB.COUNT_AND_GET (P_count => x_msg_count,
864: P_data => x_msg_stack);
865:
866: END Update_VR_with_Rt_Dates;
867:
1015: EXCEPTION
1016: WHEN inv_delete_mark THEN
1017: x_return_status := 'E';
1018: FND_MESSAGE.SET_NAME('GMA', 'SY_BADDELETEMARK');
1019: FND_MSG_PUB.ADD;
1020: END check_delete_mark;
1021:
1022: /* ==================================================================== */
1023: /* PROCEDURE: */
1063: EXCEPTION
1064: WHEN inv_owner_orgn_code THEN
1065: x_return_status := 'E';
1066: FND_MESSAGE.SET_NAME('GMD', 'GMD_INV_USER_ORGANIZATION');
1067: FND_MSG_PUB.ADD;
1068: END check_ownerorgn_code;
1069:
1070: /* ==================================================================== */
1071: /* PROCEDURE: */
1114: EXCEPTION
1115: WHEN inv_dep_step THEN
1116: x_return_status := 'E';
1117: FND_MESSAGE.SET_NAME('GME', 'PC_RECORD_EXISTS');
1118: FND_MSG_PUB.ADD;
1119: END check_deprouting;
1120:
1121: /* ==================================================================== */
1122: /* FUNCTION: */