43: -- Internal Row Handler Use Only.
44: --
45: -- {End Of Comments}
46: -- ----------------------------------------------------------------------------
47: Procedure insert_dml(p_rec in out NOCOPY ghr_nla_shd.g_rec_type) is
48: --
49: l_proc varchar2(72);
50: --
51: l_rec ghr_nla_shd.g_rec_type;
47: Procedure insert_dml(p_rec in out NOCOPY ghr_nla_shd.g_rec_type) is
48: --
49: l_proc varchar2(72);
50: --
51: l_rec ghr_nla_shd.g_rec_type;
52: Begin
53: l_proc := g_package||'insert_dml';
54: l_rec := p_rec; -- NOCOPY changes
55: hr_utility.set_location('Entering:'||l_proc, 5);
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: p_rec := l_rec;
90: ghr_nla_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: p_rec := l_rec;
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: p_rec := l_rec;
95: ghr_nla_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: p_rec := l_rec;
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: p_rec := l_rec;
100: ghr_nla_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: p_rec := l_rec;
104: Raise;
140: -- Internal Row Handler Use Only.
141: --
142: -- {End Of Comments}
143: -- ----------------------------------------------------------------------------
144: Procedure pre_insert(p_rec in out NOCOPY ghr_nla_shd.g_rec_type) is
145: --
146: l_proc varchar2(72);
147: --
148: Cursor C_Sel1 is select ghr_noac_las_s.nextval from sys.dual;
146: l_proc varchar2(72);
147: --
148: Cursor C_Sel1 is select ghr_noac_las_s.nextval from sys.dual;
149: --
150: l_rec ghr_nla_shd.g_rec_type;
151: Begin
152: l_proc := g_package||'pre_insert';
153: l_rec := p_rec;
154: hr_utility.set_location('Entering:'||l_proc, 5);
199: --
200: -- {End Of Comments}
201: -- ----------------------------------------------------------------------------
202: Procedure post_insert(
203: p_effective_date in date,p_rec in ghr_nla_shd.g_rec_type) is
204: --
205: l_proc varchar2(72) ;
206: --
207: Begin
248: -- ----------------------------------------------------------------------------
249: Procedure ins
250: (
251: p_effective_date in date,
252: p_rec in out NOCOPY ghr_nla_shd.g_rec_type
253: ) is
254: --
255: l_rec ghr_nla_shd.g_rec_type;
256: l_proc varchar2(72) ;
251: p_effective_date in date,
252: p_rec in out NOCOPY ghr_nla_shd.g_rec_type
253: ) is
254: --
255: l_rec ghr_nla_shd.g_rec_type;
256: l_proc varchar2(72) ;
257: --
258: Begin
259: l_proc := g_package||'ins';
300: p_valid_first_lac_flag in varchar2,
301: p_valid_second_lac_flag in varchar2
302: ) is
303: --
304: l_rec ghr_nla_shd.g_rec_type;
305: l_proc varchar2(72) ;
306: --
307: Begin
308: l_proc := g_package||'ins';
311: -- Call conversion function to turn arguments into the
312: -- p_rec structure.
313: --
314: l_rec :=
315: ghr_nla_shd.convert_args
316: (
317: null,
318: p_nature_of_action_id,
319: p_lac_lookup_code,