50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml
54: (p_rec in out nocopy pay_bct_shd.g_rec_type
55: ) is
56: --
57: l_proc varchar2(72) := g_package||'insert_dml';
58: l_range_flag varchar2(2) := 'F';
62: Begin
63: hr_utility.set_location('Entering:'|| l_proc, 5);
64: p_rec.object_version_number := 1; -- Initialise the object version
65: --
66: pay_bct_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- added for bug 6013383
69: -- convert the Number format from Display format( 99,999.99 OR 99.999,99) to
70: -- database format (99999.99)
103: ,p_rec.control_type
104: ,p_rec.object_version_number
105: );
106: --
107: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
108: --
109: hr_utility.set_location(' Leaving:'||l_proc, 10);
110:
111: Exception
110:
111: Exception
112: When hr_api.check_integrity_violated Then
113: -- A check constraint has been violated
114: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
115: pay_bct_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
111: Exception
112: When hr_api.check_integrity_violated Then
113: -- A check constraint has been violated
114: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
115: pay_bct_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
115: pay_bct_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
120: pay_bct_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
120: pay_bct_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
120: pay_bct_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
125: pay_bct_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
125: pay_bct_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
129: Raise;
124: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
125: pay_bct_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
129: Raise;
130: End insert_dml;
131: --
132: -- ----------------------------------------------------------------------------
166: --
167: -- {End Of Comments}
168: -- ----------------------------------------------------------------------------
169: Procedure pre_insert
170: (p_rec in out nocopy pay_bct_shd.g_rec_type
171: ) is
172: --
173: l_proc varchar2(72) := g_package||'pre_insert';
174: --
220: -- {End Of Comments}
221: -- ----------------------------------------------------------------------------
222: Procedure post_insert
223: (p_session_date in date
224: ,p_rec in pay_bct_shd.g_rec_type
225: ) is
226: --
227: l_proc varchar2(72) := g_package||'post_insert';
228: --
264: -- |---------------------------------< ins >----------------------------------|
265: -- ----------------------------------------------------------------------------
266: Procedure ins
267: (p_session_date in date,
268: p_rec in out nocopy pay_bct_shd.g_rec_type
269: ) is
270: --
271: l_proc varchar2(72) := g_package||'ins';
272: --
310: ,p_batch_control_id out nocopy number
311: ,p_object_version_number out nocopy number
312: ) is
313: --
314: l_rec pay_bct_shd.g_rec_type;
315: l_proc varchar2(72) := g_package||'ins';
316: --
317: Begin
318: hr_utility.set_location('Entering:'||l_proc, 5);
320: -- Call conversion function to turn arguments into the
321: -- p_rec structure.
322: --
323: l_rec :=
324: pay_bct_shd.convert_args
325: (null
326: ,p_batch_id
327: ,p_control_status
328: ,p_control_total