1: Package Body per_sls_ins as
2: /* $Header: peslsrhi.pkb 115.2 2003/08/07 23:58:22 vkonda noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_sls_ins.'; -- Global package name
9: --
10: -- The following global variables are only to be used by
11: -- the set_base_key_value and pre_insert procedures.
12: --
24: --
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: per_sls_ins.g_solution_set_name_i := p_solution_set_name;
29: per_sls_ins.g_user_id_i := p_user_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: per_sls_ins.g_solution_set_name_i := p_solution_set_name;
29: per_sls_ins.g_user_id_i := p_user_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
33: --
175: --
176: Cursor C_Sel2 is
177: Select null
178: from per_solution_sets
179: where solution_set_name = per_sls_ins.g_solution_set_name_i
180: and user_id = per_sls_ins.g_user_id_i;
181: --
182: l_proc varchar2(72) := g_package||'pre_insert';
183: l_exists varchar2(1);
176: Cursor C_Sel2 is
177: Select null
178: from per_solution_sets
179: where solution_set_name = per_sls_ins.g_solution_set_name_i
180: and user_id = per_sls_ins.g_user_id_i;
181: --
182: l_proc varchar2(72) := g_package||'pre_insert';
183: l_exists varchar2(1);
184: --
184: --
185: Begin
186: hr_utility.set_location('Entering:'||l_proc, 5);
187: --
188: If (per_sls_ins.g_solution_set_name_i is not null or
189: per_sls_ins.g_user_id_i is not null) Then
190: --
191: -- Verify registered primary key values not already in use
192: --
185: Begin
186: hr_utility.set_location('Entering:'||l_proc, 5);
187: --
188: If (per_sls_ins.g_solution_set_name_i is not null or
189: per_sls_ins.g_user_id_i is not null) Then
190: --
191: -- Verify registered primary key values not already in use
192: --
193: Open C_Sel2;
205: --
206: -- Use registered key values and clear globals
207: --
208: p_rec.solution_set_name :=
209: per_sls_ins.g_solution_set_name_i;
210: per_sls_ins.g_solution_set_name_i := null;
211: p_rec.user_id :=
212: per_sls_ins.g_user_id_i;
213: per_sls_ins.g_user_id_i := null;
206: -- Use registered key values and clear globals
207: --
208: p_rec.solution_set_name :=
209: per_sls_ins.g_solution_set_name_i;
210: per_sls_ins.g_solution_set_name_i := null;
211: p_rec.user_id :=
212: per_sls_ins.g_user_id_i;
213: per_sls_ins.g_user_id_i := null;
214: Else
208: p_rec.solution_set_name :=
209: per_sls_ins.g_solution_set_name_i;
210: per_sls_ins.g_solution_set_name_i := null;
211: p_rec.user_id :=
212: per_sls_ins.g_user_id_i;
213: per_sls_ins.g_user_id_i := null;
214: Else
215: --
216: -- No registerd key values, so raise error
209: per_sls_ins.g_solution_set_name_i;
210: per_sls_ins.g_solution_set_name_i := null;
211: p_rec.user_id :=
212: per_sls_ins.g_user_id_i;
213: per_sls_ins.g_user_id_i := null;
214: Else
215: --
216: -- No registerd key values, so raise error
217: --
215: --
216: -- No registerd key values, so raise error
217: --
218: hr_utility.set_message(801, 'HR_7207_API_MANDATORY_ARG');
219: hr_utility.set_message_token('API_NAME', 'per_sls_ins');
220: hr_utility.set_message_token('ARGUMENT', 'base_key_value');
221: hr_utility.raise_error;
222: End If;
223: --
320: hr_multi_message.end_validation_set;
321: --
322: -- Call the supporting pre-insert operation
323: --
324: per_sls_ins.pre_insert(p_rec);
325: --
326: -- Insert the row
327: --
328: per_sls_ins.insert_dml(p_rec);
324: per_sls_ins.pre_insert(p_rec);
325: --
326: -- Insert the row
327: --
328: per_sls_ins.insert_dml(p_rec);
329: --
330: -- Call the supporting post-insert operation
331: --
332: per_sls_ins.post_insert
328: per_sls_ins.insert_dml(p_rec);
329: --
330: -- Call the supporting post-insert operation
331: --
332: per_sls_ins.post_insert
333: (p_effective_date
334: ,p_rec
335: );
336: --
374: --
375: -- Having converted the arguments into the per_sls_rec
376: -- plsql record structure we call the corresponding record business process.
377: --
378: per_sls_ins.ins
379: (p_effective_date
380: ,l_rec
381: );
382: --
389: --
390: hr_utility.set_location(' Leaving:'||l_proc, 10);
391: End ins;
392: --
393: end per_sls_ins;