[Home] [Help]
PACKAGE BODY: APPS.PAY_ELEMENT_INFO_TYPES_PKG
Source
1 PACKAGE BODY PAY_ELEMENT_INFO_TYPES_PKG as
2 /* $Header: payetpit.pkb 115.0 2002/12/16 06:25:30 scchakra noship $ */
3 --------------------------------------------------------------------------------
4 g_dummy number(1); -- Dummy for cursor returns which are not needed
5 g_business_group_id number(15); -- For validating translation;
6 g_legislation_code varchar2(150); -- For validating translation;
7 --------------------------------------------------------------------------------
8 --
9 procedure INSERT_ROW (
10 P_ROWID in out nocopy VARCHAR2,
11 P_INFORMATION_TYPE in VARCHAR2,
12 P_ACTIVE_INACTIVE_FLAG in VARCHAR2,
13 P_MULTIPLE_OCCURENCES_FLAG in VARCHAR2,
14 P_LEGISLATION_CODE in VARCHAR2,
15 P_OBJECT_VERSION_NUMBER in NUMBER,
16 P_DESCRIPTION in VARCHAR2
17 ) is
18 cursor C is select ROWID from PAY_ELEMENT_TYPE_INFO_TYPES
19 where INFORMATION_TYPE = P_INFORMATION_TYPE;
20 begin
21 --
22 insert into PAY_ELEMENT_TYPE_INFO_TYPES
23 (
24 INFORMATION_TYPE,
25 ACTIVE_INACTIVE_FLAG,
26 MULTIPLE_OCCURENCES_FLAG,
27 LEGISLATION_CODE,
28 OBJECT_VERSION_NUMBER,
29 DESCRIPTION
30 )
31 values
32 (
33 P_INFORMATION_TYPE,
34 P_ACTIVE_INACTIVE_FLAG,
35 P_MULTIPLE_OCCURENCES_FLAG,
36 P_LEGISLATION_CODE,
37 P_OBJECT_VERSION_NUMBER,
38 P_DESCRIPTION
39 );
40 --
41 open c;
42 fetch c into P_ROWID;
43 if (c%notfound) then
44 close c;
45 raise no_data_found;
46 end if;
47 close c;
48 --
49 end INSERT_ROW;
50 --
51 procedure UPDATE_ROW (
52 P_INFORMATION_TYPE in VARCHAR2,
53 P_ACTIVE_INACTIVE_FLAG in VARCHAR2,
54 P_MULTIPLE_OCCURENCES_FLAG in VARCHAR2,
55 P_LEGISLATION_CODE in VARCHAR2,
56 P_OBJECT_VERSION_NUMBER in NUMBER,
57 P_DESCRIPTION in VARCHAR2
58 ) is
59 begin
60 --
61 update PAY_ELEMENT_TYPE_INFO_TYPES set
62 ACTIVE_INACTIVE_FLAG = P_ACTIVE_INACTIVE_FLAG,
63 MULTIPLE_OCCURENCES_FLAG = P_MULTIPLE_OCCURENCES_FLAG,
64 LEGISLATION_CODE = P_LEGISLATION_CODE,
65 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER,
66 DESCRIPTION = P_DESCRIPTION
67 where INFORMATION_TYPE = P_INFORMATION_TYPE;
68 --
69 if (sql%notfound) then
70 raise no_data_found;
71 end if;
72 --
73 end UPDATE_ROW;
74 --
75 procedure LOAD_ROW
76 (P_INFORMATION_TYPE in varchar2
77 ,P_ACTIVE_INACTIVE_FLAG in varchar2
78 ,P_MULTIPLE_OCCURENCES_FLAG in varchar2
79 ,P_DESCRIPTION in varchar2
80 ,P_LEGISLATION_CODE in varchar2
81 ,P_OBJECT_VERSION_NUMBER in number
82 ,P_OWNER in varchar2
83 )
84 is
85 l_proc VARCHAR2(61) := 'PAY_ELEMENT_INFO_TYPES_PKG.LOAD_ROW';
86 l_rowid rowid;
87 begin
88 -- Translate developer keys to internal parameters
89 if P_OWNER = 'SEED' then
90 hr_general2.init_fndload
91 (p_resp_appl_id => 801
92 ,p_user_id => 1
93 );
94 else
95 hr_general2.init_fndload
96 (p_resp_appl_id => 801
97 ,p_user_id => -1
98 );
99 end if;
100 -- Update or insert row as appropriate
101 begin
102 UPDATE_ROW
103 (P_INFORMATION_TYPE => P_INFORMATION_TYPE
104 ,P_ACTIVE_INACTIVE_FLAG => P_ACTIVE_INACTIVE_FLAG
105 ,P_MULTIPLE_OCCURENCES_FLAG => P_MULTIPLE_OCCURENCES_FLAG
106 ,P_DESCRIPTION => P_DESCRIPTION
107 ,P_LEGISLATION_CODE => P_LEGISLATION_CODE
108 ,P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER
109 );
110 exception
111 when no_data_found then
112 INSERT_ROW
113 (P_ROWID => l_rowid
114 ,P_INFORMATION_TYPE => P_INFORMATION_TYPE
115 ,P_ACTIVE_INACTIVE_FLAG => P_ACTIVE_INACTIVE_FLAG
116 ,P_MULTIPLE_OCCURENCES_FLAG => P_MULTIPLE_OCCURENCES_FLAG
117 ,P_DESCRIPTION => P_DESCRIPTION
118 ,P_LEGISLATION_CODE => P_LEGISLATION_CODE
119 ,P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER
120 );
121 end;
122 --
123 end LOAD_ROW;
124 --
125 procedure TRANSLATE_ROW
126 (P_INFORMATION_TYPE in varchar2
127 ,P_DESCRIPTION in varchar2
128 ,P_OWNER in varchar2
129 )
130 is
131 begin
132 --
133 if P_OWNER = 'SEED' then
134 hr_general2.init_fndload
135 (p_resp_appl_id => 801
136 ,p_user_id => 1
137 );
138 else
139 hr_general2.init_fndload
140 (p_resp_appl_id => 801
141 ,p_user_id => -1
142 );
143 end if;
144 --
145 update pay_element_type_info_types
146 set description = p_description
147 where userenv('LANG') = (select language_code from fnd_languages
148 where installed_flag = 'B')
149 AND information_type = p_information_type;
150 --
151 end TRANSLATE_ROW;
152
153 --
154 END PAY_ELEMENT_INFO_TYPES_PKG;