49: -- Internal Development Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy pay_mgb_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: --
60: --
61: pay_mgb_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: pay_magnetic_blocks
64: --
65: insert into pay_magnetic_blocks
78: p_rec.cursor_name,
79: p_rec.no_column_returned
80: );
81: --
82: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
89: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
89: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
89: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
94: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
94: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
94: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
99: pay_mgb_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_mgb_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_mgb_shd.g_api_dml := false; -- Unset the api dml status
99: pay_mgb_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_mgb_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
98: pay_mgb_shd.g_api_dml := false; -- Unset the api dml status
99: pay_mgb_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: pay_mgb_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
104: End insert_dml;
105: --
106: -- ----------------------------------------------------------------------------
139: -- Internal Development Use Only.
140: --
141: -- {End Of Comments}
142: -- ----------------------------------------------------------------------------
143: Procedure pre_insert(p_rec in out nocopy pay_mgb_shd.g_rec_type) is
144: --
145: l_proc varchar2(72) := g_package||'pre_insert';
146: --
147: Cursor C_Sel1 is select pay_magnetic_blocks_s.nextval from sys.dual;
190: -- Internal Development Use Only.
191: --
192: -- {End Of Comments}
193: -- ----------------------------------------------------------------------------
194: Procedure post_insert(p_rec in pay_mgb_shd.g_rec_type) is
195: --
196: l_proc varchar2(72) := g_package||'post_insert';
197: --
198: Begin
205: -- |---------------------------------< ins >----------------------------------|
206: -- ----------------------------------------------------------------------------
207: Procedure ins
208: (
209: p_rec in out nocopy pay_mgb_shd.g_rec_type,
210: p_validate in boolean default false
211: ) is
212: --
213: l_proc varchar2(72) := g_package||'ins';
269: p_no_column_returned in number default null,
270: p_validate in boolean default false
271: ) is
272: --
273: l_rec pay_mgb_shd.g_rec_type;
274: l_proc varchar2(72) := g_package||'ins';
275: --
276: Begin
277: hr_utility.set_location('Entering:'||l_proc, 5);
279: -- Call conversion function to turn arguments into the
280: -- p_rec structure.
281: --
282: l_rec :=
283: pay_mgb_shd.convert_args
284: (
285: null,
286: p_block_name,
287: p_main_block_flag,