49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy pay_pma_shd.g_rec_type) is
54: --
55: l_proc varchar2(72) := g_package||'insert_dml';
56: --
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: --
60: p_rec.object_version_number := 1; -- Initialise the object version
61: --
62: pay_pma_shd.g_api_dml := true; -- Set the api dml status
63: --
64: -- Insert the row into: pay_ca_pmed_accounts
65: --
66: insert into pay_ca_pmed_accounts
143: p_rec.attribute30,
144: p_rec.object_version_number
145: );
146: --
147: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
148: --
149: hr_utility.set_location(' Leaving:'||l_proc, 10);
150: Exception
151: When hr_api.check_integrity_violated Then
149: hr_utility.set_location(' Leaving:'||l_proc, 10);
150: Exception
151: When hr_api.check_integrity_violated Then
152: -- A check constraint has been violated
153: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
154: pay_pma_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.parent_integrity_violated Then
157: -- Parent integrity has been violated
150: Exception
151: When hr_api.check_integrity_violated Then
152: -- A check constraint has been violated
153: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
154: pay_pma_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.parent_integrity_violated Then
157: -- Parent integrity has been violated
158: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
154: pay_pma_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.parent_integrity_violated Then
157: -- Parent integrity has been violated
158: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
159: pay_pma_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.parent_integrity_violated Then
157: -- Parent integrity has been violated
158: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
159: pay_pma_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
159: pay_pma_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
164: pay_pma_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166: When Others Then
167: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
164: pay_pma_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166: When Others Then
167: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
168: Raise;
163: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
164: pay_pma_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166: When Others Then
167: pay_pma_shd.g_api_dml := false; -- Unset the api dml status
168: Raise;
169: End insert_dml;
170: --
171: -- ----------------------------------------------------------------------------
204: -- Internal Row Handler Use Only.
205: --
206: -- {End Of Comments}
207: -- ----------------------------------------------------------------------------
208: Procedure pre_insert(p_rec in out nocopy pay_pma_shd.g_rec_type) is
209: --
210: l_proc varchar2(72) := g_package||'pre_insert';
211: --
212: Cursor C_Sel1 is select pay_wci_rates_s.nextval from sys.dual;
255: -- Internal Row Handler Use Only.
256: --
257: -- {End Of Comments}
258: -- ----------------------------------------------------------------------------
259: Procedure post_insert(p_rec in pay_pma_shd.g_rec_type) is
260: --
261: l_proc varchar2(72) := g_package||'post_insert';
262: --
263: Begin
330: -- |---------------------------------< ins >----------------------------------|
331: -- ----------------------------------------------------------------------------
332: Procedure ins
333: (
334: p_rec in out nocopy pay_pma_shd.g_rec_type
335: ) is
336: --
337: l_proc varchar2(72) := g_package||'ins';
338: --
400: p_attribute30 in varchar2 default null,
401: p_object_version_number out nocopy number
402: ) is
403: --
404: l_rec pay_pma_shd.g_rec_type;
405: l_proc varchar2(72) := g_package||'ins';
406: --
407: Begin
408: hr_utility.set_location('Entering:'||l_proc, 5);
410: -- Call conversion function to turn arguments into the
411: -- p_rec structure.
412: --
413: l_rec :=
414: pay_pma_shd.convert_args
415: (
416: p_organization_id,
417: null,
418: p_account_number,