60: PROCEDURE RAISE_ERR(ERRNO IN VARCHAR2
61: ,MSGNAME IN VARCHAR2) IS
62: ERRMSG VARCHAR2(1000);
63: BEGIN
64: FND_MESSAGE.SET_NAME('JL'
65: ,MSGNAME);
66: ERRMSG := FND_MESSAGE.GET;
67: /*SRW.MESSAGE(ERRNO
68: ,ERRMSG)*/NULL;
62: ERRMSG VARCHAR2(1000);
63: BEGIN
64: FND_MESSAGE.SET_NAME('JL'
65: ,MSGNAME);
66: ERRMSG := FND_MESSAGE.GET;
67: /*SRW.MESSAGE(ERRNO
68: ,ERRMSG)*/NULL;
69: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
70: END RAISE_ERR;