72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy psp_pfb_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
81: Begin
82: hr_utility.set_location('Entering:'||l_proc, 5);
83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: psp_pfb_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: psp_report_period_frequency_b
88: --
89: insert into psp_report_period_frequency_b
102: ,p_rec.period_duration
103: ,p_rec.report_type
104: );
105: --
106: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
113: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
113: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
113: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
118: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
118: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
118: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
123: psp_pfb_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: psp_pfb_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: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
123: psp_pfb_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
127: Raise;
122: psp_pfb_shd.g_api_dml := false; -- Unset the api dml status
123: psp_pfb_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: psp_pfb_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 psp_pfb_shd.g_rec_type
169: ) is
170: --
171: Cursor C_Sel1 is select psp_report_period_frequency_s.nextval from sys.dual;
172: --
251: --
252: -- {End Of Comments}
253: -- ----------------------------------------------------------------------------
254: Procedure post_insert
255: (p_rec in psp_pfb_shd.g_rec_type
256: ) is
257: --
258: l_proc varchar2(72) := g_package||'post_insert';
259: --
292: -- ----------------------------------------------------------------------------
293: -- |---------------------------------< ins >----------------------------------|
294: -- ----------------------------------------------------------------------------
295: Procedure ins
296: (p_rec in out nocopy psp_pfb_shd.g_rec_type
297: ) is
298: --
299: l_proc varchar2(72) := g_package||'ins';
300: --
341: ,p_period_frequency_id out nocopy number
342: ,p_object_version_number out nocopy number
343: ) is
344: --
345: l_rec psp_pfb_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: psp_pfb_shd.convert_args
356: (null
357: ,null
358: ,p_start_date
359: ,p_unit_of_measure