PACKAGE BODY: APPS.GL_ELIMINATION_JOURNALS_PKG

Source

1 PACKAGE BODY gl_elimination_journals_pkg As
2 /* $Header: gliejoub.pls 120.3 2005/05/05 01:06:58 kvora ship $ */
3 
4   ---
5   --- PRIVATE VARIABLES
6   ---
7 
8   --- Position of the balancing segment
9   company_seg_num	NUMBER := null;
10 
11 
12   -- Function
13   --   get_unique_id
14   -- Purpose
15   --   Returns nextval from gl_elimination_journals_s
16   -- Parameters
17   --   None
18   -- Notes
19   --
20   FUNCTION get_unique_id RETURN NUMBER IS
21 
22     CURSOR get_new_id IS
23       SELECT gl_elimination_journals_s.NEXTVAL
24       FROM dual;
25     new_id number;
26 
27   BEGIN
28     OPEN get_new_id;
29     FETCH get_new_id INTO new_id;
30 
31     IF get_new_id%FOUND THEN
32       CLOSE get_new_id;
33       return(new_id);
34     ELSE
35       CLOSE get_new_id;
36       fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
37       fnd_message.set_token('SEQUENCE', 'GL_ELIMINATION_JOURNALS_S');
38       app_exception.raise_exception;
39     END IF;
40 
41   EXCEPTION
42 
43     WHEN app_exceptions.application_exception THEN
44       RAISE;
45 
46     WHEN OTHERS THEN
47       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
48       fnd_message.set_token(
49           'PROCEDURE',
50           'gl_elimination_journals_pkg.get_unique_id');
51       RAISE;
52   END get_unique_id;
53 
54 
55   --
56   -- Procedure
57   --   get_category_name
58   --
59   -- Purpose
60   --   Gets the user category name for the given category
61   --
62   -- History
63   --   05-Nov-98  W Wong 	Created
64   --
65   -- Arguments
66   --   x_category_name		JE Category name
67   --
68   FUNCTION get_category_name(
69 	      x_category_name				VARCHAR2
70 	   ) RETURN VARCHAR2 IS
71 
72     user_cat_name VARCHAR2(26);
73 
74   BEGIN
75 
76     SELECT user_je_category_name
77     INTO   user_cat_name
78     FROM   GL_JE_CATEGORIES
79     WHERE  je_category_name = x_category_name;
80 
81     RETURN(user_cat_name);
82 
83   END get_category_name;
84 
85 
86   --
87   -- Procedure
88   --   Check_unique_name
89   -- Purpose
90   --   Unique check for name
91   -- History
92   --   05-Nov-98  W Wong 	Created
93   -- Parameters
94   --   x_rowid		Rowid
95   --   x_setid		Elimination Set ID
96   --   x_name  		Journal name
97   --
98   -- Notes
99   --   None
100   --
101   PROCEDURE check_unique_name(X_rowid VARCHAR2,
102 			      X_setid NUMBER,
103                               X_name  VARCHAR2) IS
104     counter NUMBER;
105 
106     CURSOR name_count IS
107        SELECT 1
108        FROM DUAL
109        WHERE EXISTS (SELECT 1
110                      FROM  gl_elimination_journals
111                      WHERE journal_name = X_name
112 		     AND   elimination_set_id = X_setid
113                      AND   ((X_rowid IS NULL) OR (rowid <> X_rowid)));
114   BEGIN
115 
116     OPEN name_count;
117     FETCH name_count INTO counter;
118 
119     IF name_count%FOUND THEN
120       CLOSE name_count;
121       FND_MESSAGE.set_name('SQLGL', 'GL_DUPLICATE_NAME');
122       APP_EXCEPTION.raise_exception;
123 
124     ELSE
125       CLOSE name_count;
126     END IF;
127 
128   EXCEPTION
129     WHEN app_exceptions.application_exception THEN
130       RAISE;
131     WHEN OTHERS THEN
132       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
133       fnd_message.set_token(
134           'PROCEDURE',
135           'gl_elimination_sets_pkg.check_unique_name');
136       RAISE;
137   END check_unique_name;
138 
139 End gl_elimination_journals_pkg;