258:
259: exception
260:
261: when OTHERS then
262: fnd_message.set_name ('FND', 'SQL-Generic error');
263: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
264: fnd_message.set_token ('REASON', sqlerrm, FALSE);
265: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.READ_MESSAGE', FALSE);
266: fndcp_tmsrv.debug_info('tmsrv_queue.read_message', 'Caught exception', sqlerrm);
259: exception
260:
261: when OTHERS then
262: fnd_message.set_name ('FND', 'SQL-Generic error');
263: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
264: fnd_message.set_token ('REASON', sqlerrm, FALSE);
265: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.READ_MESSAGE', FALSE);
266: fndcp_tmsrv.debug_info('tmsrv_queue.read_message', 'Caught exception', sqlerrm);
267: e_code := FNDCP_TMSRV.E_OTHER;
260:
261: when OTHERS then
262: fnd_message.set_name ('FND', 'SQL-Generic error');
263: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
264: fnd_message.set_token ('REASON', sqlerrm, FALSE);
265: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.READ_MESSAGE', FALSE);
266: fndcp_tmsrv.debug_info('tmsrv_queue.read_message', 'Caught exception', sqlerrm);
267: e_code := FNDCP_TMSRV.E_OTHER;
268: end read_message;
261: when OTHERS then
262: fnd_message.set_name ('FND', 'SQL-Generic error');
263: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
264: fnd_message.set_token ('REASON', sqlerrm, FALSE);
265: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.READ_MESSAGE', FALSE);
266: fndcp_tmsrv.debug_info('tmsrv_queue.read_message', 'Caught exception', sqlerrm);
267: e_code := FNDCP_TMSRV.E_OTHER;
268: end read_message;
269:
367:
368: exception
369: when OTHERS then
370: e_code := FNDCP_TMSRV.E_OTHER;
371: fnd_message.set_name ('FND', 'SQL-Generic error');
372: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
373: fnd_message.set_token ('REASON', sqlerrm, FALSE);
374: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.COMPLETE_TRANS', FALSE);
375: fndcp_tmsrv.debug_info('tmsrv_queue.complete_trans', 'Caught exception', sqlerrm);
368: exception
369: when OTHERS then
370: e_code := FNDCP_TMSRV.E_OTHER;
371: fnd_message.set_name ('FND', 'SQL-Generic error');
372: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
373: fnd_message.set_token ('REASON', sqlerrm, FALSE);
374: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.COMPLETE_TRANS', FALSE);
375: fndcp_tmsrv.debug_info('tmsrv_queue.complete_trans', 'Caught exception', sqlerrm);
376: raise;
369: when OTHERS then
370: e_code := FNDCP_TMSRV.E_OTHER;
371: fnd_message.set_name ('FND', 'SQL-Generic error');
372: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
373: fnd_message.set_token ('REASON', sqlerrm, FALSE);
374: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.COMPLETE_TRANS', FALSE);
375: fndcp_tmsrv.debug_info('tmsrv_queue.complete_trans', 'Caught exception', sqlerrm);
376: raise;
377:
370: e_code := FNDCP_TMSRV.E_OTHER;
371: fnd_message.set_name ('FND', 'SQL-Generic error');
372: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
373: fnd_message.set_token ('REASON', sqlerrm, FALSE);
374: fnd_message.set_token ('ROUTINE', 'TMSRV_QUEUE.COMPLETE_TRANS', FALSE);
375: fndcp_tmsrv.debug_info('tmsrv_queue.complete_trans', 'Caught exception', sqlerrm);
376: raise;
377:
378: end write_message;