49: --
50: l_proc varchar2(72) := g_package||'update_dml';
51: --
52: Begin
53: hr_utility.set_location('Entering:'||l_proc, 5);
54: --
55: -- Increment the object version
56: --
57: p_rec.object_version_number := p_rec.object_version_number + 1;
64: effective_date = p_rec.effective_date,
65: object_version_number = p_rec.object_version_number
66: where template_core_object_id = p_rec.template_core_object_id;
67: --
68: hr_utility.set_location(' Leaving:'||l_proc, 10);
69: --
70: Exception
71: When hr_api.check_integrity_violated Then
72: -- A check constraint has been violated
120: --
121: l_proc varchar2(72) := g_package||'pre_update';
122: --
123: Begin
124: hr_utility.set_location('Entering:'||l_proc, 5);
125: --
126: hr_utility.set_location(' Leaving:'||l_proc, 10);
127: End pre_update;
128: --
122: --
123: Begin
124: hr_utility.set_location('Entering:'||l_proc, 5);
125: --
126: hr_utility.set_location(' Leaving:'||l_proc, 10);
127: End pre_update;
128: --
129: -- ----------------------------------------------------------------------------
130: -- |-----------------------------< post_update >------------------------------|
162: --
163: l_proc varchar2(72) := g_package||'post_update';
164: --
165: Begin
166: hr_utility.set_location('Entering:'||l_proc, 5);
167: --
168: hr_utility.set_location(' Leaving:'||l_proc, 10);
169: End post_update;
170: --
164: --
165: Begin
166: hr_utility.set_location('Entering:'||l_proc, 5);
167: --
168: hr_utility.set_location(' Leaving:'||l_proc, 10);
169: End post_update;
170: --
171: -- ----------------------------------------------------------------------------
172: -- |-----------------------------< convert_defs >-----------------------------|
217: l_proc varchar2(72) := g_package||'convert_defs';
218: --
219: Begin
220: --
221: hr_utility.set_location('Entering:'||l_proc, 5);
222: --
223: -- We must now examine each argument value in the
224: -- p_rec plsql record structure
225: -- to see if a system default is being used. If a system default
246: pay_tco_shd.g_old_rec.effective_date;
247: End If;
248:
249: --
250: hr_utility.set_location(' Leaving:'||l_proc, 10);
251: --
252: End convert_defs;
253: --
254: -- ----------------------------------------------------------------------------
261: --
262: l_proc varchar2(72) := g_package||'upd';
263: --
264: Begin
265: hr_utility.set_location('Entering:'||l_proc, 5);
266: --
267: -- We must lock the row which we need to update.
268: --
269: pay_tco_shd.lck
308: l_rec pay_tco_shd.g_rec_type;
309: l_proc varchar2(72) := g_package||'upd';
310: --
311: Begin
312: hr_utility.set_location('Entering:'||l_proc, 5);
313: --
314: -- Call conversion function to turn arguments into the
315: -- l_rec structure.
316: --
332: --
333: upd(l_rec);
334: p_object_version_number := l_rec.object_version_number;
335: --
336: hr_utility.set_location(' Leaving:'||l_proc, 10);
337: End upd;
338: --
339: end pay_tco_upd;