PACKAGE BODY: APPS.GL_SHARES_OUTSTANDING_PKG

Source

1 PACKAGE BODY GL_SHARES_OUTSTANDING_PKG AS
2 /* $Header: glistoub.pls 120.3 2005/05/05 01:23:37 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_fiscal_year        NUMBER,
16                           X_share_measure_code VARCHAR2,
17                           X_measure_type_code  VARCHAR2) IS
18 
19   dummy NUMBER;
20 
21   BEGIN
22     SELECT 1
23     INTO   dummy
24     FROM   dual
25     WHERE NOT EXISTS
26     (SELECT 1
27      FROM  GL_SHARES_OUTSTANDING
28      WHERE  ledger_id    = X_ledger_id
29      AND    fiscal_year        = X_fiscal_year
30      AND    share_measure_code = X_share_measure_code
31      AND    measure_type_code  = X_measure_type_code
32      AND    ((X_rowid is null) OR (rowid <> X_rowid)));
33 
34   EXCEPTION
35     WHEN OTHERS THEN
36       fnd_message.set_name('SQLGL', 'GL_SHARES_OUTSTANDING_UNIQUE');
37       app_exception.raise_exception;
38    END check_unique;
39 
40 END GL_SHARES_OUTSTANDING_PKG;