[Home] [Help]
PACKAGE BODY: APPS.OTA_TMT_SHD
Source
1 Package Body ota_tmt_shd as
2 /* $Header: ottmtrhi.pkb 115.6 2002/11/26 17:09:48 hwinsor noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ota_tmt_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 = 'OTA_TP_MEASUREMENT_BUDGET') Then
22 fnd_message.set_name('OTA', 'OTA_13805_TMT_INV_BUDGET');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'OTA_TP_MEASUREMENT_COST') Then
27 fnd_message.set_name('OTA', 'OTA_13808_TMT_INV_COST');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'OTA_TP_MEASUREMENT_TYPES_PK') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 ElsIf (p_constraint_name = 'OTA_TP_MEASUREMENT_TYPES_UK2') Then
37 fnd_message.set_name('OTA', 'OTA_13801_TMT_DUP_MEAS_TYPE');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','20');
40 fnd_message.raise_error;
41 Else
42 fnd_message.set_name(801, 'HR_7877_API_INVALID_CONSTRAINT');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
45 fnd_message.raise_error;
46 End If;
47 --
48 End constraint_error;
49 --
50 -- ----------------------------------------------------------------------------
51 -- |-----------------------------< api_updating >-----------------------------|
52 -- ----------------------------------------------------------------------------
53 Function api_updating
54 (p_tp_measurement_type_id in ota_tp_measurement_types.tp_measurement_type_id%TYPE
55 ,p_object_version_number in ota_tp_measurement_types.object_version_number%TYPE
56 )
57 Return Boolean Is
58 --
59 --
60 -- Cursor selects the 'current' row from the HR Schema
61 --
62 Cursor C_Sel1 is
63 select
64 tp_measurement_type_id
65 ,tp_measurement_code
66 ,unit
67 ,reporting_sequence
68 ,budget_level
69 ,cost_level
70 ,many_budget_values_flag
71 ,item_type_usage_id
72 ,business_group_id
73 ,object_version_number
74 ,attribute_category
75 ,attribute1
76 ,attribute2
77 ,attribute3
78 ,attribute4
79 ,attribute5
80 ,attribute6
81 ,attribute7
82 ,attribute8
83 ,attribute9
84 ,attribute10
85 ,attribute11
86 ,attribute12
87 ,attribute13
88 ,attribute14
89 ,attribute15
90 ,attribute16
91 ,attribute17
92 ,attribute18
93 ,attribute19
94 ,attribute20
95 ,attribute21
96 ,attribute22
97 ,attribute23
98 ,attribute24
99 ,attribute25
100 ,attribute26
101 ,attribute27
102 ,attribute28
103 ,attribute29
104 ,attribute30
105 from ota_tp_measurement_types
106 where tp_measurement_type_id = p_tp_measurement_type_id;
107 --
108 l_fct_ret boolean;
109 --
110 Begin
111 --
112 If (p_tp_measurement_type_id is null and
113 p_object_version_number is null
114 ) Then
115 --
116 -- One of the primary key arguments is null therefore we must
117 -- set the returning function value to false
118 --
119 l_fct_ret := false;
120 Else
121 If (p_tp_measurement_type_id
122 = ota_tmt_shd.g_old_rec.tp_measurement_type_id and
123 p_object_version_number
124 = ota_tmt_shd.g_old_rec.object_version_number
125 ) Then
126 --
127 -- The g_old_rec is current therefore we must
128 -- set the returning function to true
129 --
130 l_fct_ret := true;
131 Else
132 --
133 -- Select the current row into g_old_rec
134 --
135 Open C_Sel1;
136 Fetch C_Sel1 Into ota_tmt_shd.g_old_rec;
137 If C_Sel1%notfound Then
138 Close C_Sel1;
139 --
140 -- The primary key is invalid therefore we must error
141 --
142 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
143 fnd_message.raise_error;
144 End If;
145 Close C_Sel1;
146 If (p_object_version_number
147 <> ota_tmt_shd.g_old_rec.object_version_number) Then
148 fnd_message.set_name(801, 'HR_7155_OBJECT_INVALID');
149 fnd_message.raise_error;
150 End If;
151 l_fct_ret := true;
152 End If;
153 End If;
154 Return (l_fct_ret);
155 --
156 End api_updating;
157 --
158 -- ----------------------------------------------------------------------------
159 -- |---------------------------------< lck >----------------------------------|
160 -- ----------------------------------------------------------------------------
161 Procedure lck
162 (p_tp_measurement_type_id in number
163 ,p_object_version_number in number
164 ) is
165 --
166 -- Cursor selects the 'current' row from the HR Schema
167 --
168 Cursor C_Sel1 is
169 select
170 tp_measurement_type_id
171 ,tp_measurement_code
172 ,unit
173 ,reporting_sequence
174 ,budget_level
175 ,cost_level
176 ,many_budget_values_flag
177 ,item_type_usage_id
178 ,business_group_id
179 ,object_version_number
180 ,attribute_category
181 ,attribute1
182 ,attribute2
183 ,attribute3
184 ,attribute4
185 ,attribute5
186 ,attribute6
187 ,attribute7
188 ,attribute8
189 ,attribute9
190 ,attribute10
191 ,attribute11
192 ,attribute12
193 ,attribute13
194 ,attribute14
195 ,attribute15
196 ,attribute16
197 ,attribute17
198 ,attribute18
199 ,attribute19
200 ,attribute20
201 ,attribute21
202 ,attribute22
203 ,attribute23
204 ,attribute24
205 ,attribute25
206 ,attribute26
207 ,attribute27
208 ,attribute28
209 ,attribute29
210 ,attribute30
211 from ota_tp_measurement_types
212 where tp_measurement_type_id = p_tp_measurement_type_id
213 for update nowait;
214 --
215 l_proc varchar2(72) := g_package||'lck';
216 --
217 Begin
218 hr_utility.set_location('Entering:'||l_proc, 5);
219 --
220 hr_api.mandatory_arg_error
221 (p_api_name => l_proc
222 ,p_argument => 'TP_MEASUREMENT_TYPE_ID'
223 ,p_argument_value => p_tp_measurement_type_id
224 );
225 --
226 Open C_Sel1;
227 Fetch C_Sel1 Into ota_tmt_shd.g_old_rec;
228 If C_Sel1%notfound then
229 Close C_Sel1;
230 --
231 -- The primary key is invalid therefore we must error
232 --
233 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
234 fnd_message.raise_error;
235 End If;
236 Close C_Sel1;
237 If (p_object_version_number
238 <> ota_tmt_shd.g_old_rec.object_version_number) Then
239 fnd_message.set_name(801, 'HR_7155_OBJECT_INVALID');
240 fnd_message.raise_error;
241 End If;
242 --
243 hr_utility.set_location(' Leaving:'||l_proc, 10);
244 --
245 -- We need to trap the ORA LOCK exception
246 --
247 Exception
248 When HR_Api.Object_Locked then
249 --
250 -- The object is locked therefore we need to supply a meaningful
251 -- error message.
252 --
253 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
254 fnd_message.set_token('TABLE_NAME', 'ota_tp_measurement_types');
255 fnd_message.raise_error;
256 End lck;
257 --
258 -- ----------------------------------------------------------------------------
259 -- |-----------------------------< convert_args >-----------------------------|
260 -- ----------------------------------------------------------------------------
261 Function convert_args
262 (p_tp_measurement_type_id in number
263 ,p_tp_measurement_code in varchar2
264 ,p_unit in varchar2
265 ,p_reporting_sequence in number
266 ,p_budget_level in varchar2
267 ,p_cost_level in varchar2
268 ,p_many_budget_values_flag in varchar2
269 ,p_item_type_usage_id in number
270 ,p_business_group_id in number
271 ,p_object_version_number in number
272 ,p_attribute_category in varchar2
273 ,p_attribute1 in varchar2
274 ,p_attribute2 in varchar2
275 ,p_attribute3 in varchar2
276 ,p_attribute4 in varchar2
277 ,p_attribute5 in varchar2
278 ,p_attribute6 in varchar2
279 ,p_attribute7 in varchar2
280 ,p_attribute8 in varchar2
281 ,p_attribute9 in varchar2
282 ,p_attribute10 in varchar2
283 ,p_attribute11 in varchar2
284 ,p_attribute12 in varchar2
285 ,p_attribute13 in varchar2
286 ,p_attribute14 in varchar2
287 ,p_attribute15 in varchar2
288 ,p_attribute16 in varchar2
289 ,p_attribute17 in varchar2
290 ,p_attribute18 in varchar2
291 ,p_attribute19 in varchar2
292 ,p_attribute20 in varchar2
293 ,p_attribute21 in varchar2
294 ,p_attribute22 in varchar2
295 ,p_attribute23 in varchar2
296 ,p_attribute24 in varchar2
297 ,p_attribute25 in varchar2
298 ,p_attribute26 in varchar2
299 ,p_attribute27 in varchar2
300 ,p_attribute28 in varchar2
301 ,p_attribute29 in varchar2
302 ,p_attribute30 in varchar2
303 )
304 Return g_rec_type is
305 --
306 l_rec g_rec_type;
307 --
308 Begin
309 --
310 -- Convert arguments into local l_rec structure.
311 --
312 l_rec.tp_measurement_type_id := p_tp_measurement_type_id;
313 l_rec.tp_measurement_code := p_tp_measurement_code;
314 l_rec.unit := p_unit;
315 l_rec.reporting_sequence := p_reporting_sequence;
316 l_rec.budget_level := p_budget_level;
317 l_rec.cost_level := p_cost_level;
318 l_rec.many_budget_values_flag := p_many_budget_values_flag;
319 l_rec.item_type_usage_id := p_item_type_usage_id;
320 l_rec.business_group_id := p_business_group_id;
321 l_rec.object_version_number := p_object_version_number;
322 l_rec.attribute_category := p_attribute_category;
323 l_rec.attribute1 := p_attribute1;
324 l_rec.attribute2 := p_attribute2;
325 l_rec.attribute3 := p_attribute3;
326 l_rec.attribute4 := p_attribute4;
327 l_rec.attribute5 := p_attribute5;
328 l_rec.attribute6 := p_attribute6;
329 l_rec.attribute7 := p_attribute7;
330 l_rec.attribute8 := p_attribute8;
331 l_rec.attribute9 := p_attribute9;
332 l_rec.attribute10 := p_attribute10;
333 l_rec.attribute11 := p_attribute11;
334 l_rec.attribute12 := p_attribute12;
335 l_rec.attribute13 := p_attribute13;
336 l_rec.attribute14 := p_attribute14;
337 l_rec.attribute15 := p_attribute15;
338 l_rec.attribute16 := p_attribute16;
339 l_rec.attribute17 := p_attribute17;
340 l_rec.attribute18 := p_attribute18;
341 l_rec.attribute19 := p_attribute19;
342 l_rec.attribute20 := p_attribute20;
343 l_rec.attribute21 := p_attribute21;
344 l_rec.attribute22 := p_attribute22;
345 l_rec.attribute23 := p_attribute23;
346 l_rec.attribute24 := p_attribute24;
347 l_rec.attribute25 := p_attribute25;
348 l_rec.attribute26 := p_attribute26;
349 l_rec.attribute27 := p_attribute27;
350 l_rec.attribute28 := p_attribute28;
351 l_rec.attribute29 := p_attribute29;
352 l_rec.attribute30 := p_attribute30;
353 --
354 -- Return the plsql record structure.
355 --
356 Return(l_rec);
357 --
358 End convert_args;
359 --
360 end ota_tmt_shd;