1: PACKAGE BODY GL_SHARES_ACTIVITY_PKG AS
2: /* $Header: glistacb.pls 120.3 2005/05/05 01:21:45 kvora ship $ */
3: --
4: -- PRIVATE FUNCTIONS
5: --
22: INTO dummy
23: FROM dual
24: WHERE NOT EXISTS
25: (SELECT 1
26: FROM GL_SHARES_ACTIVITY
27: WHERE ledger_id = X_ledger_id
28: AND activity_date = X_activity_date
29: AND activity_type_code = X_activity_type_code
30: AND ((X_rowid is null) OR (rowid <> X_rowid)));
30: AND ((X_rowid is null) OR (rowid <> X_rowid)));
31:
32: EXCEPTION
33: WHEN OTHERS THEN
34: fnd_message.set_name('SQLGL', 'GL_SHARES_ACTIVITY_UNIQUE');
35: app_exception.raise_exception;
36: END check_unique;
37:
38: END GL_SHARES_ACTIVITY_PKG;
34: fnd_message.set_name('SQLGL', 'GL_SHARES_ACTIVITY_UNIQUE');
35: app_exception.raise_exception;
36: END check_unique;
37:
38: END GL_SHARES_ACTIVITY_PKG;