DBA Data[Home] [Help]

PACKAGE BODY: APPS.GL_FEEDER_INFO_PKG

Source


1 PACKAGE BODY gl_feeder_info_pkg AS
2 /* $Header: glapfpb.pls 120.4.12010000.3 2009/02/06 09:39:27 kmotepal ship $ */
3 
4   PROCEDURE get_enc_id_and_name( x_req_id   IN OUT NOCOPY NUMBER,
5                                  x_po_id    IN OUT NOCOPY NUMBER,
6                                  x_req_name IN OUT NOCOPY VARCHAR2,
7                                  x_po_name  IN OUT NOCOPY VARCHAR2,
8                                  x_oth_name IN OUT NOCOPY VARCHAR2) IS
9 
10     CURSOR c_req IS
11        	 SELECT types.encumbrance_type_id, lpad(lkp.meaning, 20)
12          FROM   gl_lookups lkp, gl_encumbrance_types types
13          WHERE  lkp.lookup_type='LITERAL'
14          and types.encumbrance_type_id = 1000
15 	 and upper(lkp.lookup_code) = UPPER(types.encumbrance_type);
16 
17     CURSOR c_po IS
18 	 SELECT types.encumbrance_type_id, lpad(lkp.meaning, 20)
19          FROM   gl_lookups lkp, gl_encumbrance_types types
20          WHERE  lkp.lookup_type='LITERAL'
21          and types.encumbrance_type_id = 1001
22 	 and upper(lkp.lookup_code) = UPPER(types.encumbrance_type);
23 
24     CURSOR c_oth IS
25       SELECT lpad(meaning, 20)
26       FROM   gl_lookups
27       WHERE  lookup_type='LITERAL'
28       AND    lookup_code='OTHER';
29 
30   BEGIN
31     OPEN  c_req;
32     FETCH c_req  INTO x_req_id, x_req_name;
33     CLOSE c_req;
34 
35     OPEN  c_po;
36     FETCH c_po  INTO x_po_id, x_po_name;
37     CLOSE c_po;
38 
39     OPEN  c_oth;
40     FETCH c_oth  INTO x_oth_name;
41     CLOSE c_oth;
42 
43   EXCEPTION
44     WHEN app_exceptions.application_exception THEN
45       RAISE;
46     WHEN OTHERS THEN
47       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
48       fnd_message.set_token('PROCEDURE',
49         'gl_feeder_info_pkg.get_enc_id_and_name
50 ');
51       RAISE;
52   END get_enc_id_and_name;
53 
54 END gl_feeder_info_pkg;