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;