1: PACKAGE BODY GL_DAILY_BALANCES_PKG AS
2: /* $Header: glidbalb.pls 120.3 2005/05/05 01:06:31 kvora ship $ */
3:
4:
5: --
16: x_period_name VARCHAR2,
17: x_usage_code VARCHAR2) IS
18: BEGIN
19:
20: UPDATE GL_DAILY_BALANCES bal
21: SET bal.CURRENCY_TYPE = 'O',
22: bal.LAST_UPDATE_DATE = SYSDATE,
23: bal.LAST_UPDATED_BY = x_last_updated_by
24: WHERE bal.CURRENCY_TYPE = 'T'
47: RAISE NO_DATA_FOUND;
48: WHEN OTHERS THEN
49: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
50: fnd_message.set_token('PROCEDURE',
51: 'GL_DAILY_BALANCES_PKG.set_translated_flag');
52: RAISE;
53:
54: END set_translated_flag;
55:
54: END set_translated_flag;
55:
56:
57:
58: END GL_DAILY_BALANCES_PKG;