PACKAGE BODY: APPS.IGS_SC_VARS

Source

1 PACKAGE BODY IGS_SC_VARS AS
2 /* $Header: IGSSC03B.pls 115.0 2003/12/05 17:50:41 atereshe noship $ */
3 
4 /******************************************************************
5 
6     Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
7                          All rights reserved.
8 
9  Created By         : Arkadi Tereshenkov
10 
11  Date Created By    : Oct-01-2002
12 
13  Purpose            : Grant variables package
14 
15  remarks            : None
16 
17  Change History
18 
19 Who                   When           What
20 -----------------------------------------------------------
21 Arkadi Tereshenkov    Apr-10-2002    New Package created.
22 
23 ******************************************************************/
24 
25 
26 FUNCTION get_att (
27   p_attrib_id NUMBER
28 ) RETURN VARCHAR2
29 IS
30   CURSOR c_attr_value IS
31     SELECT attr_value
32       FROM igs_sc_usr_att_vals
33      WHERE user_attrib_id = p_attrib_id
34            AND user_id = get_userid;
35 
36   l_attr_value igs_sc_usr_att_vals.attr_value%TYPE;
37 
38 BEGIN
39 
40   OPEN c_attr_value;
41  FETCH c_attr_value INTO l_attr_value;
42  CLOSE c_attr_value;
43 
44  RETURN l_attr_value;
45 
46 END get_att;
47 
48 
49 
50 FUNCTION get_userid
51 RETURN NUMBER
52 IS
53 BEGIN
54 
55  RETURN FND_GLOBAL.user_id;
56 
57 END get_userid;
58 
59 
60 FUNCTION get_partyid
61 RETURN NUMBER
62 IS
63 BEGIN
64 
65  RETURN get_att(1);
66 
67 END get_partyid;
68 
69 
70 
71 END IGS_SC_VARS;