259:
260: WHEN OTHERS THEN
261: ROLLBACK to create_header;
262: IF (SQLCODE IS NOT NULL) THEN
263: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
264: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
265: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
266: FND_MSG_PUB.Add;
267: END IF;
260: WHEN OTHERS THEN
261: ROLLBACK to create_header;
262: IF (SQLCODE IS NOT NULL) THEN
263: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
264: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
265: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
266: FND_MSG_PUB.Add;
267: END IF;
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: ROLLBACK to create_header;
262: IF (SQLCODE IS NOT NULL) THEN
263: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
264: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
265: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
266: FND_MSG_PUB.Add;
267: END IF;
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: FND_MSG_PUB.Count_AND_GET
563:
564: WHEN OTHERS THEN
565: ROLLBACK to create_line;
566: IF (SQLCODE IS NOT NULL) THEN
567: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
568: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
569: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
570: FND_MSG_PUB.Add;
571: END IF;
564: WHEN OTHERS THEN
565: ROLLBACK to create_line;
566: IF (SQLCODE IS NOT NULL) THEN
567: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
568: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
569: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
570: FND_MSG_PUB.Add;
571: END IF;
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
565: ROLLBACK to create_line;
566: IF (SQLCODE IS NOT NULL) THEN
567: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
568: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
569: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
570: FND_MSG_PUB.Add;
571: END IF;
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: FND_MSG_PUB.Count_AND_GET
724:
725: WHEN OTHERS THEN
726: ROLLBACK to create_lot;
727: IF (SQLCODE IS NOT NULL) THEN
728: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
729: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
730: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
731: FND_MSG_PUB.Add;
732: END IF;
725: WHEN OTHERS THEN
726: ROLLBACK to create_lot;
727: IF (SQLCODE IS NOT NULL) THEN
728: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
729: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
730: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
731: FND_MSG_PUB.Add;
732: END IF;
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726: ROLLBACK to create_lot;
727: IF (SQLCODE IS NOT NULL) THEN
728: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
729: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
730: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
731: FND_MSG_PUB.Add;
732: END IF;
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: FND_MSG_PUB.Count_AND_GET
797:
798: WHEN OTHERS THEN
799: ROLLBACK to get_doc_no;
800: IF (SQLCODE IS NOT NULL) THEN
801: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
802: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
803: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
804: FND_MSG_PUB.Add;
805: END IF;
798: WHEN OTHERS THEN
799: ROLLBACK to get_doc_no;
800: IF (SQLCODE IS NOT NULL) THEN
801: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
802: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
803: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
804: FND_MSG_PUB.Add;
805: END IF;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: ROLLBACK to get_doc_no;
800: IF (SQLCODE IS NOT NULL) THEN
801: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
802: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
803: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
804: FND_MSG_PUB.Add;
805: END IF;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: FND_MSG_PUB.Count_AND_GET
811:
812: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
813: BEGIN
814:
815: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
816: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
817: FND_MSG_PUB.Add;
818:
819: END log_msg ;
812: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
813: BEGIN
814:
815: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
816: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
817: FND_MSG_PUB.Add;
818:
819: END log_msg ;
820: