[Home] [Help]
PACKAGE BODY: APPS.BEN_CWG_SHD
Source
1 Package Body ben_cwg_shd as
2 /* $Header: becwgrhi.pkb 120.0 2005/05/28 01:29:54 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_cwg_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'BEN_CWB_WKSHT_GRP_PK') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 Else
27 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
30 fnd_message.raise_error;
31 End If;
32 --
33 End constraint_error;
34 --
35 -- ----------------------------------------------------------------------------
36 -- |-----------------------------< api_updating >-----------------------------|
37 -- ----------------------------------------------------------------------------
38 Function api_updating
39 (p_cwb_wksht_grp_id in number
40 ,p_object_version_number in number
41 )
42 Return Boolean Is
43 --
44 --
45 -- Cursor selects the 'current' row from the HR Schema
46 --
47 Cursor C_Sel1 is
48 select
49 cwb_wksht_grp_id
50 ,business_group_id
51 ,pl_id
52 ,ordr_num
53 ,wksht_grp_cd
54 ,label
55 ,cwg_attribute_category
59 ,cwg_attribute4
56 ,cwg_attribute1
57 ,cwg_attribute2
58 ,cwg_attribute3
60 ,cwg_attribute5
61 ,cwg_attribute6
62 ,cwg_attribute7
63 ,cwg_attribute8
64 ,cwg_attribute9
65 ,cwg_attribute10
66 ,cwg_attribute11
67 ,cwg_attribute12
68 ,cwg_attribute13
69 ,cwg_attribute14
70 ,cwg_attribute15
71 ,cwg_attribute16
72 ,cwg_attribute17
73 ,cwg_attribute18
74 ,cwg_attribute19
75 ,cwg_attribute20
76 ,cwg_attribute21
77 ,cwg_attribute22
78 ,cwg_attribute23
79 ,cwg_attribute24
80 ,cwg_attribute25
81 ,cwg_attribute26
82 ,cwg_attribute27
83 ,cwg_attribute28
84 ,cwg_attribute29
85 ,cwg_attribute30
86 ,status_Cd
87 ,hidden_cd
88 ,object_version_number
89 from ben_cwb_wksht_grp
90 where cwb_wksht_grp_id = p_cwb_wksht_grp_id;
91 --
92 l_fct_ret boolean;
93 --
94 Begin
95 --
96 If (p_cwb_wksht_grp_id is null and
97 p_object_version_number is null
98 ) Then
99 --
100 -- One of the primary key arguments is null therefore we must
101 -- set the returning function value to false
102 --
103 l_fct_ret := false;
104 Else
105 If (p_cwb_wksht_grp_id
106 = ben_cwg_shd.g_old_rec.cwb_wksht_grp_id and
107 p_object_version_number
108 = ben_cwg_shd.g_old_rec.object_version_number
109 ) Then
110 --
111 -- The g_old_rec is current therefore we must
112 -- set the returning function to true
113 --
114 l_fct_ret := true;
115 Else
116 --
117 -- Select the current row into g_old_rec
118 --
119 Open C_Sel1;
120 Fetch C_Sel1 Into ben_cwg_shd.g_old_rec;
121 If C_Sel1%notfound Then
122 Close C_Sel1;
123 --
124 -- The primary key is invalid therefore we must error
125 --
126 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
127 fnd_message.raise_error;
128 End If;
129 Close C_Sel1;
130 If (p_object_version_number
131 <> ben_cwg_shd.g_old_rec.object_version_number) Then
132 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
133 fnd_message.raise_error;
134 End If;
135 l_fct_ret := true;
136 End If;
137 End If;
138 Return (l_fct_ret);
139 --
140 End api_updating;
141 --
142 -- ----------------------------------------------------------------------------
143 -- |---------------------------------< lck >----------------------------------|
144 -- ----------------------------------------------------------------------------
145 Procedure lck
146 (p_cwb_wksht_grp_id in number
147 ,p_object_version_number in number
148 ) is
149 --
150 -- Cursor selects the 'current' row from the HR Schema
151 --
152 Cursor C_Sel1 is
153 select
154 cwb_wksht_grp_id
155 ,business_group_id
156 ,pl_id
157 ,ordr_num
158 ,wksht_grp_cd
159 ,label
160 ,cwg_attribute_category
161 ,cwg_attribute1
162 ,cwg_attribute2
163 ,cwg_attribute3
164 ,cwg_attribute4
165 ,cwg_attribute5
166 ,cwg_attribute6
167 ,cwg_attribute7
168 ,cwg_attribute8
169 ,cwg_attribute9
170 ,cwg_attribute10
171 ,cwg_attribute11
172 ,cwg_attribute12
173 ,cwg_attribute13
174 ,cwg_attribute14
175 ,cwg_attribute15
176 ,cwg_attribute16
177 ,cwg_attribute17
178 ,cwg_attribute18
179 ,cwg_attribute19
180 ,cwg_attribute20
181 ,cwg_attribute21
182 ,cwg_attribute22
183 ,cwg_attribute23
184 ,cwg_attribute24
185 ,cwg_attribute25
186 ,cwg_attribute26
187 ,cwg_attribute27
188 ,cwg_attribute28
189 ,cwg_attribute29
190 ,cwg_attribute30
191 ,status_Cd
192 ,hidden_cd
193 ,object_version_number
194 from ben_cwb_wksht_grp
195 where cwb_wksht_grp_id = p_cwb_wksht_grp_id
196 for update nowait;
197 --
198 l_proc varchar2(72) := g_package||'lck';
199 --
200 Begin
201 hr_utility.set_location('Entering:'||l_proc, 5);
202 --
203 hr_api.mandatory_arg_error
204 (p_api_name => l_proc
205 ,p_argument => 'CWB_WKSHT_GRP_ID'
206 ,p_argument_value => p_cwb_wksht_grp_id
207 );
208 hr_utility.set_location(l_proc,6);
209 hr_api.mandatory_arg_error
210 (p_api_name => l_proc
211 ,p_argument => 'OBJECT_VERSION_NUMBER'
212 ,p_argument_value => p_object_version_number
213 );
214 --
215 Open C_Sel1;
216 Fetch C_Sel1 Into ben_cwg_shd.g_old_rec;
217 If C_Sel1%notfound then
218 Close C_Sel1;
219 --
220 -- The primary key is invalid therefore we must error
221 --
222 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
223 fnd_message.raise_error;
224 End If;
225 Close C_Sel1;
226 If (p_object_version_number
227 <> ben_cwg_shd.g_old_rec.object_version_number) Then
231 --
228 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
229 fnd_message.raise_error;
230 End If;
232 hr_utility.set_location(' Leaving:'||l_proc, 10);
233 --
234 -- We need to trap the ORA LOCK exception
235 --
236 Exception
237 When HR_Api.Object_Locked then
238 --
239 -- The object is locked therefore we need to supply a meaningful
240 -- error message.
241 --
242 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
243 fnd_message.set_token('TABLE_NAME', 'ben_cwb_wksht_grp');
244 fnd_message.raise_error;
245 End lck;
246 --
247 -- ----------------------------------------------------------------------------
248 -- |-----------------------------< convert_args >-----------------------------|
249 -- ----------------------------------------------------------------------------
250 Function convert_args
251 (p_cwb_wksht_grp_id in number
252 ,p_business_group_id in number
253 ,p_pl_id in number
254 ,p_ordr_num in number
255 ,p_wksht_grp_cd in varchar2
256 ,p_label in varchar2
257 ,p_cwg_attribute_category in varchar2
258 ,p_cwg_attribute1 in varchar2
259 ,p_cwg_attribute2 in varchar2
260 ,p_cwg_attribute3 in varchar2
261 ,p_cwg_attribute4 in varchar2
262 ,p_cwg_attribute5 in varchar2
263 ,p_cwg_attribute6 in varchar2
264 ,p_cwg_attribute7 in varchar2
265 ,p_cwg_attribute8 in varchar2
266 ,p_cwg_attribute9 in varchar2
267 ,p_cwg_attribute10 in varchar2
268 ,p_cwg_attribute11 in varchar2
269 ,p_cwg_attribute12 in varchar2
270 ,p_cwg_attribute13 in varchar2
271 ,p_cwg_attribute14 in varchar2
272 ,p_cwg_attribute15 in varchar2
273 ,p_cwg_attribute16 in varchar2
274 ,p_cwg_attribute17 in varchar2
275 ,p_cwg_attribute18 in varchar2
276 ,p_cwg_attribute19 in varchar2
277 ,p_cwg_attribute20 in varchar2
278 ,p_cwg_attribute21 in varchar2
279 ,p_cwg_attribute22 in varchar2
280 ,p_cwg_attribute23 in varchar2
281 ,p_cwg_attribute24 in varchar2
282 ,p_cwg_attribute25 in varchar2
283 ,p_cwg_attribute26 in varchar2
284 ,p_cwg_attribute27 in varchar2
285 ,p_cwg_attribute28 in varchar2
286 ,p_cwg_attribute29 in varchar2
287 ,p_cwg_attribute30 in varchar2
288 ,p_status_Cd in varchar2
289 ,p_hidden_cd in varchar2
290 ,p_object_version_number in number
291 )
292 Return g_rec_type is
293 --
294 l_rec g_rec_type;
295 --
296 Begin
297 --
298 -- Convert arguments into local l_rec structure.
299 --
300 l_rec.cwb_wksht_grp_id := p_cwb_wksht_grp_id;
301 l_rec.business_group_id := p_business_group_id;
302 l_rec.pl_id := p_pl_id;
303 l_rec.ordr_num := p_ordr_num;
304 l_rec.wksht_grp_cd := p_wksht_grp_cd;
305 l_rec.label := p_label;
306 l_rec.cwg_attribute_category := p_cwg_attribute_category;
307 l_rec.cwg_attribute1 := p_cwg_attribute1;
308 l_rec.cwg_attribute2 := p_cwg_attribute2;
309 l_rec.cwg_attribute3 := p_cwg_attribute3;
310 l_rec.cwg_attribute4 := p_cwg_attribute4;
311 l_rec.cwg_attribute5 := p_cwg_attribute5;
312 l_rec.cwg_attribute6 := p_cwg_attribute6;
313 l_rec.cwg_attribute7 := p_cwg_attribute7;
314 l_rec.cwg_attribute8 := p_cwg_attribute8;
315 l_rec.cwg_attribute9 := p_cwg_attribute9;
316 l_rec.cwg_attribute10 := p_cwg_attribute10;
317 l_rec.cwg_attribute11 := p_cwg_attribute11;
318 l_rec.cwg_attribute12 := p_cwg_attribute12;
319 l_rec.cwg_attribute13 := p_cwg_attribute13;
320 l_rec.cwg_attribute14 := p_cwg_attribute14;
321 l_rec.cwg_attribute15 := p_cwg_attribute15;
322 l_rec.cwg_attribute16 := p_cwg_attribute16;
323 l_rec.cwg_attribute17 := p_cwg_attribute17;
324 l_rec.cwg_attribute18 := p_cwg_attribute18;
325 l_rec.cwg_attribute19 := p_cwg_attribute19;
326 l_rec.cwg_attribute20 := p_cwg_attribute20;
327 l_rec.cwg_attribute21 := p_cwg_attribute21;
328 l_rec.cwg_attribute22 := p_cwg_attribute22;
329 l_rec.cwg_attribute23 := p_cwg_attribute23;
330 l_rec.cwg_attribute24 := p_cwg_attribute24;
331 l_rec.cwg_attribute25 := p_cwg_attribute25;
332 l_rec.cwg_attribute26 := p_cwg_attribute26;
333 l_rec.cwg_attribute27 := p_cwg_attribute27;
334 l_rec.cwg_attribute28 := p_cwg_attribute28;
335 l_rec.cwg_attribute29 := p_cwg_attribute29;
336 l_rec.cwg_attribute30 := p_cwg_attribute30;
337 l_rec.status_Cd := p_status_Cd ;
338 l_rec.hidden_cd := p_hidden_cd ;
339 l_rec.object_version_number := p_object_version_number;
340 l_rec.object_version_number := p_object_version_number;
341 --
342 -- Return the plsql record structure.
343 --
344 Return(l_rec);
345 --
346 End convert_args;
347 --
348 end ben_cwg_shd;