40:
41: PROCEDURE RAISE_ERR(MSGNAME IN VARCHAR2) IS
42: ERRMSG VARCHAR2(1000);
43: BEGIN
44: FND_MESSAGE.SET_NAME('JL'
45: ,MSGNAME);
46: ERRMSG := FND_MESSAGE.GET;
47: /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
48: ,MSGNAME)
42: ERRMSG VARCHAR2(1000);
43: BEGIN
44: FND_MESSAGE.SET_NAME('JL'
45: ,MSGNAME);
46: ERRMSG := FND_MESSAGE.GET;
47: /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
48: ,MSGNAME)
49: ,ERRMSG)*/NULL;
50: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
53: PROCEDURE RAISE_ORA_ERR(MSGNAME IN VARCHAR2) IS
54: ERRMSG VARCHAR2(1000);
55: ERRNUM NUMBER;
56: BEGIN
57: FND_MESSAGE.SET_NAME('JL'
58: ,MSGNAME);
59: ERRMSG := FND_MESSAGE.GET;
60: /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
61: ,MSGNAME)
55: ERRNUM NUMBER;
56: BEGIN
57: FND_MESSAGE.SET_NAME('JL'
58: ,MSGNAME);
59: ERRMSG := FND_MESSAGE.GET;
60: /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
61: ,MSGNAME)
62: ,ERRMSG)*/NULL;
63: ERRNUM := SQLCODE;