51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_pgt_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
83: Exception
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: --
87: per_pgt_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
92: per_pgt_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
97: per_pgt_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When Others Then
100: --
101: Raise;
133: --
134: -- {End Of Comments}
135: -- ----------------------------------------------------------------------------
136: Procedure pre_update
137: (p_rec in per_pgt_shd.g_rec_type
138: ) is
139: --
140: l_proc varchar2(72) := g_package||'pre_update';
141: --
178: -- {End Of Comments}
179: -- ----------------------------------------------------------------------------
180: Procedure post_update
181: (p_effective_date in date
182: ,p_rec in per_pgt_shd.g_rec_type
183: ) is
184: --
185: l_proc varchar2(72) := g_package||'post_update';
186: --
201: => p_rec.object_version_number
202: ,p_identifier_key
203: => p_rec.identifier_key
204: ,p_business_group_id_o
205: => per_pgt_shd.g_old_rec.business_group_id
206: ,p_hierarchy_type_o
207: => per_pgt_shd.g_old_rec.hierarchy_type
208: ,p_parent_node_type_o
209: => per_pgt_shd.g_old_rec.parent_node_type
203: => p_rec.identifier_key
204: ,p_business_group_id_o
205: => per_pgt_shd.g_old_rec.business_group_id
206: ,p_hierarchy_type_o
207: => per_pgt_shd.g_old_rec.hierarchy_type
208: ,p_parent_node_type_o
209: => per_pgt_shd.g_old_rec.parent_node_type
210: ,p_child_node_type_o
211: => per_pgt_shd.g_old_rec.child_node_type
205: => per_pgt_shd.g_old_rec.business_group_id
206: ,p_hierarchy_type_o
207: => per_pgt_shd.g_old_rec.hierarchy_type
208: ,p_parent_node_type_o
209: => per_pgt_shd.g_old_rec.parent_node_type
210: ,p_child_node_type_o
211: => per_pgt_shd.g_old_rec.child_node_type
212: ,p_child_value_set_o
213: => per_pgt_shd.g_old_rec.child_value_set
207: => per_pgt_shd.g_old_rec.hierarchy_type
208: ,p_parent_node_type_o
209: => per_pgt_shd.g_old_rec.parent_node_type
210: ,p_child_node_type_o
211: => per_pgt_shd.g_old_rec.child_node_type
212: ,p_child_value_set_o
213: => per_pgt_shd.g_old_rec.child_value_set
214: ,p_object_version_number_o
215: => per_pgt_shd.g_old_rec.object_version_number
209: => per_pgt_shd.g_old_rec.parent_node_type
210: ,p_child_node_type_o
211: => per_pgt_shd.g_old_rec.child_node_type
212: ,p_child_value_set_o
213: => per_pgt_shd.g_old_rec.child_value_set
214: ,p_object_version_number_o
215: => per_pgt_shd.g_old_rec.object_version_number
216: ,p_identifier_key_o
217: => per_pgt_shd.g_old_rec.identifier_key
211: => per_pgt_shd.g_old_rec.child_node_type
212: ,p_child_value_set_o
213: => per_pgt_shd.g_old_rec.child_value_set
214: ,p_object_version_number_o
215: => per_pgt_shd.g_old_rec.object_version_number
216: ,p_identifier_key_o
217: => per_pgt_shd.g_old_rec.identifier_key
218: );
219: exception
213: => per_pgt_shd.g_old_rec.child_value_set
214: ,p_object_version_number_o
215: => per_pgt_shd.g_old_rec.object_version_number
216: ,p_identifier_key_o
217: => per_pgt_shd.g_old_rec.identifier_key
218: );
219: exception
220: --
221: when hr_api.cannot_find_prog_unit then
272: --
273: -- {End Of Comments}
274: -- ----------------------------------------------------------------------------
275: Procedure convert_defs
276: (p_rec in out nocopy per_pgt_shd.g_rec_type
277: ) is
278: --
279: Begin
280: --
284: -- is being used then we must set to the 'current' argument value.
285: --
286: If (p_rec.business_group_id = hr_api.g_number) then
287: p_rec.business_group_id :=
288: per_pgt_shd.g_old_rec.business_group_id;
289: End If;
290: If (p_rec.hierarchy_type = hr_api.g_varchar2) then
291: p_rec.hierarchy_type :=
292: per_pgt_shd.g_old_rec.hierarchy_type;
288: per_pgt_shd.g_old_rec.business_group_id;
289: End If;
290: If (p_rec.hierarchy_type = hr_api.g_varchar2) then
291: p_rec.hierarchy_type :=
292: per_pgt_shd.g_old_rec.hierarchy_type;
293: End If;
294: If (p_rec.parent_node_type = hr_api.g_varchar2) then
295: p_rec.parent_node_type :=
296: per_pgt_shd.g_old_rec.parent_node_type;
292: per_pgt_shd.g_old_rec.hierarchy_type;
293: End If;
294: If (p_rec.parent_node_type = hr_api.g_varchar2) then
295: p_rec.parent_node_type :=
296: per_pgt_shd.g_old_rec.parent_node_type;
297: End If;
298: If (p_rec.child_node_type = hr_api.g_varchar2) then
299: p_rec.child_node_type :=
300: per_pgt_shd.g_old_rec.child_node_type;
296: per_pgt_shd.g_old_rec.parent_node_type;
297: End If;
298: If (p_rec.child_node_type = hr_api.g_varchar2) then
299: p_rec.child_node_type :=
300: per_pgt_shd.g_old_rec.child_node_type;
301: End If;
302: If (p_rec.child_value_set = hr_api.g_varchar2) then
303: p_rec.child_value_set :=
304: per_pgt_shd.g_old_rec.child_value_set;
300: per_pgt_shd.g_old_rec.child_node_type;
301: End If;
302: If (p_rec.child_value_set = hr_api.g_varchar2) then
303: p_rec.child_value_set :=
304: per_pgt_shd.g_old_rec.child_value_set;
305: End If;
306: If (p_rec.identifier_key = hr_api.g_varchar2) then
307: p_rec.identifier_key :=
308: per_pgt_shd.g_old_rec.identifier_key;
304: per_pgt_shd.g_old_rec.child_value_set;
305: End If;
306: If (p_rec.identifier_key = hr_api.g_varchar2) then
307: p_rec.identifier_key :=
308: per_pgt_shd.g_old_rec.identifier_key;
309: End If;
310: --
311: End convert_defs;
312: --
314: -- |---------------------------------< upd >----------------------------------|
315: -- ----------------------------------------------------------------------------
316: Procedure upd
317: (p_effective_date in date
318: ,p_rec in out nocopy per_pgt_shd.g_rec_type
319: ) is
320: --
321: l_proc varchar2(72) := g_package||'upd';
322: --
324: hr_utility.set_location('Entering:'||l_proc, 5);
325: --
326: -- We must lock the row which we need to update.
327: --
328: per_pgt_shd.lck
329: (p_rec.hier_node_type_id
330: ,p_rec.object_version_number
331: );
332: --
375: ,p_parent_node_type in varchar2 default hr_api.g_varchar2
376: ,p_identifier_key in varchar2 default hr_api.g_varchar2
377: ) is
378: --
379: l_rec per_pgt_shd.g_rec_type;
380: l_proc varchar2(72) := g_package||'upd';
381: --
382: Begin
383: hr_utility.set_location('Entering:'||l_proc, 5);
385: -- Call conversion function to turn arguments into the
386: -- l_rec structure.
387: --
388: l_rec :=
389: per_pgt_shd.convert_args
390: (p_hier_node_type_id
391: ,hr_api.g_number -- business_group is non_updateable
392: ,hr_api.g_varchar2 -- hierarchy_type is non_updateable
393: ,p_parent_node_type