50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml
54: (p_rec in out nocopy pay_bth_shd.g_rec_type
55: ) is
56: --
57: l_proc varchar2(72) := g_package||'insert_dml';
58: --
59: Begin
60: hr_utility.set_location('Entering:'||l_proc, 5);
61: p_rec.object_version_number := 1; -- Initialise the object version
62: --
63: pay_bth_shd.g_api_dml := true; -- Set the api dml status
64: --
65: -- Insert the row into: pay_batch_headers
66: --
67: insert into pay_batch_headers
102: ,p_rec.ROLLBACK_ENTRY_UPDATES
103: ,p_rec.object_version_number
104: );
105: --
106: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
107: --
108: hr_utility.set_location(' Leaving:'||l_proc, 10);
109: Exception
110: When hr_api.check_integrity_violated Then
108: hr_utility.set_location(' Leaving:'||l_proc, 10);
109: Exception
110: When hr_api.check_integrity_violated Then
111: -- A check constraint has been violated
112: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
113: pay_bth_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.parent_integrity_violated Then
116: -- Parent integrity has been violated
109: Exception
110: When hr_api.check_integrity_violated Then
111: -- A check constraint has been violated
112: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
113: pay_bth_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.parent_integrity_violated Then
116: -- Parent integrity has been violated
117: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
113: pay_bth_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.parent_integrity_violated Then
116: -- Parent integrity has been violated
117: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
118: pay_bth_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.parent_integrity_violated Then
116: -- Parent integrity has been violated
117: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
118: pay_bth_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
122: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
118: pay_bth_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
122: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
123: pay_bth_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
122: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
123: pay_bth_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
127: Raise;
122: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
123: pay_bth_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: pay_bth_shd.g_api_dml := false; -- Unset the api dml status
127: Raise;
128: End insert_dml;
129: --
130: -- ----------------------------------------------------------------------------
164: --
165: -- {End Of Comments}
166: -- ----------------------------------------------------------------------------
167: Procedure pre_insert
168: (p_rec in out nocopy pay_bth_shd.g_rec_type
169: ) is
170: --
171: l_proc varchar2(72) := g_package||'pre_insert';
172: --
218: -- {End Of Comments}
219: -- ----------------------------------------------------------------------------
220: Procedure post_insert
221: (p_session_date in date
222: ,p_rec in pay_bth_shd.g_rec_type
223: ) is
224: --
225: l_proc varchar2(72) := g_package||'post_insert';
226: --
284: -- |---------------------------------< ins >----------------------------------|
285: -- ----------------------------------------------------------------------------
286: Procedure ins
287: (p_session_date in date,
288: p_rec in out nocopy pay_bth_shd.g_rec_type
289: ) is
290: --
291: l_proc varchar2(72) := g_package||'ins';
292: --
341: ,p_REJECT_ENTRY_NOT_REMOVED in varchar2 default null
342: ,p_ROLLBACK_ENTRY_UPDATES in varchar2 default null
343: ) is
344: --
345: l_rec pay_bth_shd.g_rec_type;
346: l_proc varchar2(72) := g_package||'ins';
347: --
348: Begin
349: hr_utility.set_location('Entering:'||l_proc, 5);
351: -- Call conversion function to turn arguments into the
352: -- p_rec structure.
353: --
354: l_rec :=
355: pay_bth_shd.convert_args
356: (null
357: ,p_business_group_id
358: ,p_batch_name
359: ,p_batch_status