1: Package Body hr_tcp_ins as
2: /* $Header: hrtcprhi.pkb 115.4 2002/12/03 10:02:31 raranjan noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hr_tcp_ins.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< insert_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
245: );
246: --
247: -- Call the supporting pre-insert operation
248: --
249: hr_tcp_ins.pre_insert(p_rec);
250: --
251: -- Insert the row
252: --
253: hr_tcp_ins.insert_dml(p_rec);
249: hr_tcp_ins.pre_insert(p_rec);
250: --
251: -- Insert the row
252: --
253: hr_tcp_ins.insert_dml(p_rec);
254: --
255: -- Call the supporting post-insert operation
256: --
257: hr_tcp_ins.post_insert
253: hr_tcp_ins.insert_dml(p_rec);
254: --
255: -- Call the supporting post-insert operation
256: --
257: hr_tcp_ins.post_insert
258: (p_rec
259: );
260: --
261: hr_utility.set_location('Leaving:'||l_proc, 20);
290: --
291: -- Having converted the arguments into the hr_tcp_rec
292: -- plsql record structure we call the corresponding record business process.
293: --
294: hr_tcp_ins.ins
295: (l_rec
296: );
297: --
298: -- As the primary key argument(s)
303: --
304: hr_utility.set_location(' Leaving:'||l_proc, 10);
305: End ins;
306: --
307: end hr_tcp_ins;