PACKAGE BODY: APPS.GL_SHARES_ACTIVITY_PKG

Source

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 --
6 
7 -- None
8 
9 --
10 -- PUBLIC FUNCTIONS
11 --
12 
13   PROCEDURE check_unique( X_rowid              VARCHAR2,
14                           X_ledger_id          NUMBER,
15                           X_activity_date      DATE,
16                           X_activity_type_code VARCHAR2) IS
17 
18   dummy NUMBER;
19 
20   BEGIN
21     SELECT 1
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)));
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;