49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy pay_pwo_shd.g_rec_type) is
54: --
55: l_proc varchar2(72) := g_package||'insert_dml';
56: --
57: Begin
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: p_rec.object_version_number := 1; -- Initialise the object version
60: --
61: pay_pwo_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: pay_wci_occupations
64: --
65: insert into pay_wci_occupations
78: p_rec.comments,
79: p_rec.object_version_number
80: );
81: --
82: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
83: --
84: hr_utility.set_location(' Leaving:'||l_proc, 10);
85: Exception
86: When hr_api.check_integrity_violated Then
84: hr_utility.set_location(' Leaving:'||l_proc, 10);
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
89: pay_pwo_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
89: pay_pwo_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
89: pay_pwo_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
94: pay_pwo_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
94: pay_pwo_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
94: pay_pwo_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
99: pay_pwo_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
99: pay_pwo_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
98: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
99: pay_pwo_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
104: End insert_dml;
105: --
106: -- ----------------------------------------------------------------------------
139: -- Internal Row Handler Use Only.
140: --
141: -- {End Of Comments}
142: -- ----------------------------------------------------------------------------
143: Procedure pre_insert(p_rec in out nocopy pay_pwo_shd.g_rec_type) is
144: --
145: l_proc varchar2(72) := g_package||'pre_insert';
146: --
147: Cursor C_Sel1 is select pay_wci_occupations_s.nextval from sys.dual;
189: -- Internal Row Handler Use Only.
190: --
191: -- {End Of Comments}
192: -- ----------------------------------------------------------------------------
193: Procedure post_insert(p_rec in pay_pwo_shd.g_rec_type) is
194: --
195: l_proc varchar2(72) := g_package||'post_insert';
196: --
197: Begin
232: -- |---------------------------------< ins >----------------------------------|
233: -- ----------------------------------------------------------------------------
234: Procedure ins
235: (
236: p_rec in out nocopy pay_pwo_shd.g_rec_type
237: ) is
238: --
239: l_proc varchar2(72) := g_package||'ins';
240: --
270: p_comments in varchar2 default null,
271: p_object_version_number out nocopy number
272: ) is
273: --
274: l_rec pay_pwo_shd.g_rec_type;
275: l_proc varchar2(72) := g_package||'ins';
276: --
277: Begin
278: hr_utility.set_location('Entering:'||l_proc, 5);
280: -- Call conversion function to turn arguments into the
281: -- p_rec structure.
282: --
283: l_rec :=
284: pay_pwo_shd.convert_args
285: (
286: null,
287: p_business_group_id,
288: p_rate_id,