1: PACKAGE BODY GMF_MEMO_INTERFACE AS
2: /* $Header: gmfarmob.pls 115.10 2002/11/11 00:29:34 rseshadr ship $ */
3: last_trx_id ra_customer_trx_all.customer_trx_id%TYPE;
4: process_errors BOOLEAN;
5: PROCEDURE update_state (p_customer_trx_id IN NUMBER) IS
243: WHEN OTHERS THEN
244: /* REM RAISE_APPLICATION_ERROR(-20101, 'Transaction affects inventory'); */
245: fnd_message.set_name('GMF','GL_TRIGGER_EXCEPTION');
246: /* REM B1033070 Changed substrb to substr, Get first 512 chars and not bytes.
247: REM fnd_message.set_token('TRIGGER_NAME',substrb('GMF_MEMO_INTERFACE'||SQLERRM,1,512)); */
248: fnd_message.set_token('TRIGGER_NAME',substr('GMF_MEMO_INTERFACE'||SQLERRM,1,512));
249: app_exception.raise_exception;
250: END validate_flexfields;
251: END GMF_MEMO_INTERFACE;
244: /* REM RAISE_APPLICATION_ERROR(-20101, 'Transaction affects inventory'); */
245: fnd_message.set_name('GMF','GL_TRIGGER_EXCEPTION');
246: /* REM B1033070 Changed substrb to substr, Get first 512 chars and not bytes.
247: REM fnd_message.set_token('TRIGGER_NAME',substrb('GMF_MEMO_INTERFACE'||SQLERRM,1,512)); */
248: fnd_message.set_token('TRIGGER_NAME',substr('GMF_MEMO_INTERFACE'||SQLERRM,1,512));
249: app_exception.raise_exception;
250: END validate_flexfields;
251: END GMF_MEMO_INTERFACE;
247: REM fnd_message.set_token('TRIGGER_NAME',substrb('GMF_MEMO_INTERFACE'||SQLERRM,1,512)); */
248: fnd_message.set_token('TRIGGER_NAME',substr('GMF_MEMO_INTERFACE'||SQLERRM,1,512));
249: app_exception.raise_exception;
250: END validate_flexfields;
251: END GMF_MEMO_INTERFACE;