51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqp_gds_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
62: --
63: -- Increment the object version
64: p_rec.object_version_number := p_rec.object_version_number + 1;
65: --
66: pqp_gds_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the pqp_gap_duration_summary Row
69: --
70: update pqp_gap_duration_summary
80: ,date_end = p_rec.date_end
81: ,object_version_number = p_rec.object_version_number
82: where gap_duration_summary_id = p_rec.gap_duration_summary_id;
83: --
84: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
85: --
86: hr_utility.set_location(' Leaving:'||l_proc, 10);
87: --
88: Exception
87: --
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
92: pqp_gds_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
92: pqp_gds_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
92: pqp_gds_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
97: pqp_gds_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
97: pqp_gds_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
97: pqp_gds_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
102: pqp_gds_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
102: pqp_gds_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
101: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
102: pqp_gds_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: pqp_gds_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
107: End update_dml;
108: --
109: -- ----------------------------------------------------------------------------
138: --
139: -- {End Of Comments}
140: -- ----------------------------------------------------------------------------
141: Procedure pre_update
142: (p_rec in pqp_gds_shd.g_rec_type
143: ) is
144: --
145: l_proc varchar2(72) := g_package||'pre_update';
146: --
182: --
183: -- {End Of Comments}
184: -- ----------------------------------------------------------------------------
185: Procedure post_update
186: (p_rec in pqp_gds_shd.g_rec_type
187: ) is
188: --
189: l_proc varchar2(72) := g_package||'post_update';
190: --
213: => p_rec.date_end
214: ,p_object_version_number
215: => p_rec.object_version_number
216: ,p_assignment_id_o
217: => pqp_gds_shd.g_old_rec.assignment_id
218: ,p_gap_absence_plan_id_o
219: => pqp_gds_shd.g_old_rec.gap_absence_plan_id
220: ,p_summary_type_o
221: => pqp_gds_shd.g_old_rec.summary_type
215: => p_rec.object_version_number
216: ,p_assignment_id_o
217: => pqp_gds_shd.g_old_rec.assignment_id
218: ,p_gap_absence_plan_id_o
219: => pqp_gds_shd.g_old_rec.gap_absence_plan_id
220: ,p_summary_type_o
221: => pqp_gds_shd.g_old_rec.summary_type
222: ,p_gap_level_o
223: => pqp_gds_shd.g_old_rec.gap_level
217: => pqp_gds_shd.g_old_rec.assignment_id
218: ,p_gap_absence_plan_id_o
219: => pqp_gds_shd.g_old_rec.gap_absence_plan_id
220: ,p_summary_type_o
221: => pqp_gds_shd.g_old_rec.summary_type
222: ,p_gap_level_o
223: => pqp_gds_shd.g_old_rec.gap_level
224: ,p_duration_in_days_o
225: => pqp_gds_shd.g_old_rec.duration_in_days
219: => pqp_gds_shd.g_old_rec.gap_absence_plan_id
220: ,p_summary_type_o
221: => pqp_gds_shd.g_old_rec.summary_type
222: ,p_gap_level_o
223: => pqp_gds_shd.g_old_rec.gap_level
224: ,p_duration_in_days_o
225: => pqp_gds_shd.g_old_rec.duration_in_days
226: ,p_duration_in_hours_o
227: => pqp_gds_shd.g_old_rec.duration_in_hours
221: => pqp_gds_shd.g_old_rec.summary_type
222: ,p_gap_level_o
223: => pqp_gds_shd.g_old_rec.gap_level
224: ,p_duration_in_days_o
225: => pqp_gds_shd.g_old_rec.duration_in_days
226: ,p_duration_in_hours_o
227: => pqp_gds_shd.g_old_rec.duration_in_hours
228: ,p_date_start_o
229: => pqp_gds_shd.g_old_rec.date_start
223: => pqp_gds_shd.g_old_rec.gap_level
224: ,p_duration_in_days_o
225: => pqp_gds_shd.g_old_rec.duration_in_days
226: ,p_duration_in_hours_o
227: => pqp_gds_shd.g_old_rec.duration_in_hours
228: ,p_date_start_o
229: => pqp_gds_shd.g_old_rec.date_start
230: ,p_date_end_o
231: => pqp_gds_shd.g_old_rec.date_end
225: => pqp_gds_shd.g_old_rec.duration_in_days
226: ,p_duration_in_hours_o
227: => pqp_gds_shd.g_old_rec.duration_in_hours
228: ,p_date_start_o
229: => pqp_gds_shd.g_old_rec.date_start
230: ,p_date_end_o
231: => pqp_gds_shd.g_old_rec.date_end
232: ,p_object_version_number_o
233: => pqp_gds_shd.g_old_rec.object_version_number
227: => pqp_gds_shd.g_old_rec.duration_in_hours
228: ,p_date_start_o
229: => pqp_gds_shd.g_old_rec.date_start
230: ,p_date_end_o
231: => pqp_gds_shd.g_old_rec.date_end
232: ,p_object_version_number_o
233: => pqp_gds_shd.g_old_rec.object_version_number
234: );
235: --
229: => pqp_gds_shd.g_old_rec.date_start
230: ,p_date_end_o
231: => pqp_gds_shd.g_old_rec.date_end
232: ,p_object_version_number_o
233: => pqp_gds_shd.g_old_rec.object_version_number
234: );
235: --
236: exception
237: --
289: --
290: -- {End Of Comments}
291: -- ----------------------------------------------------------------------------
292: Procedure convert_defs
293: (p_rec in out nocopy pqp_gds_shd.g_rec_type
294: ) is
295: --
296: Begin
297: --
301: -- is being used then we must set to the 'current' argument value.
302: --
303: If (p_rec.assignment_id = hr_api.g_number) then
304: p_rec.assignment_id :=
305: pqp_gds_shd.g_old_rec.assignment_id;
306: End If;
307: If (p_rec.gap_absence_plan_id = hr_api.g_number) then
308: p_rec.gap_absence_plan_id :=
309: pqp_gds_shd.g_old_rec.gap_absence_plan_id;
305: pqp_gds_shd.g_old_rec.assignment_id;
306: End If;
307: If (p_rec.gap_absence_plan_id = hr_api.g_number) then
308: p_rec.gap_absence_plan_id :=
309: pqp_gds_shd.g_old_rec.gap_absence_plan_id;
310: End If;
311: If (p_rec.summary_type = hr_api.g_varchar2) then
312: p_rec.summary_type :=
313: pqp_gds_shd.g_old_rec.summary_type;
309: pqp_gds_shd.g_old_rec.gap_absence_plan_id;
310: End If;
311: If (p_rec.summary_type = hr_api.g_varchar2) then
312: p_rec.summary_type :=
313: pqp_gds_shd.g_old_rec.summary_type;
314: End If;
315: If (p_rec.gap_level = hr_api.g_varchar2) then
316: p_rec.gap_level :=
317: pqp_gds_shd.g_old_rec.gap_level;
313: pqp_gds_shd.g_old_rec.summary_type;
314: End If;
315: If (p_rec.gap_level = hr_api.g_varchar2) then
316: p_rec.gap_level :=
317: pqp_gds_shd.g_old_rec.gap_level;
318: End If;
319: If (p_rec.duration_in_days = hr_api.g_number) then
320: p_rec.duration_in_days :=
321: pqp_gds_shd.g_old_rec.duration_in_days;
317: pqp_gds_shd.g_old_rec.gap_level;
318: End If;
319: If (p_rec.duration_in_days = hr_api.g_number) then
320: p_rec.duration_in_days :=
321: pqp_gds_shd.g_old_rec.duration_in_days;
322: End If;
323: If (p_rec.duration_in_hours = hr_api.g_number) then
324: p_rec.duration_in_hours :=
325: pqp_gds_shd.g_old_rec.duration_in_hours;
321: pqp_gds_shd.g_old_rec.duration_in_days;
322: End If;
323: If (p_rec.duration_in_hours = hr_api.g_number) then
324: p_rec.duration_in_hours :=
325: pqp_gds_shd.g_old_rec.duration_in_hours;
326: End If;
327: If (p_rec.date_start = hr_api.g_date) then
328: p_rec.date_start :=
329: pqp_gds_shd.g_old_rec.date_start;
325: pqp_gds_shd.g_old_rec.duration_in_hours;
326: End If;
327: If (p_rec.date_start = hr_api.g_date) then
328: p_rec.date_start :=
329: pqp_gds_shd.g_old_rec.date_start;
330: End If;
331: If (p_rec.date_end = hr_api.g_date) then
332: p_rec.date_end :=
333: pqp_gds_shd.g_old_rec.date_end;
329: pqp_gds_shd.g_old_rec.date_start;
330: End If;
331: If (p_rec.date_end = hr_api.g_date) then
332: p_rec.date_end :=
333: pqp_gds_shd.g_old_rec.date_end;
334: End If;
335: --
336: End convert_defs;
337: --
338: -- ----------------------------------------------------------------------------
339: -- |---------------------------------< upd >----------------------------------|
340: -- ----------------------------------------------------------------------------
341: Procedure upd
342: (p_rec in out nocopy pqp_gds_shd.g_rec_type
343: ) is
344: --
345: l_proc varchar2(72) := g_package||'upd';
346: --
348: hr_utility.set_location('Entering:'||l_proc, 5);
349: --
350: -- We must lock the row which we need to update.
351: --
352: pqp_gds_shd.lck
353: (p_rec.gap_duration_summary_id
354: ,p_rec.object_version_number
355: );
356: --
401: ,p_date_start in date default hr_api.g_date
402: ,p_date_end in date default hr_api.g_date
403: ) is
404: --
405: l_rec pqp_gds_shd.g_rec_type;
406: l_proc varchar2(72) := g_package||'upd';
407: --
408: Begin
409: hr_utility.set_location('Entering:'||l_proc, 5);
411: -- Call conversion function to turn arguments into the
412: -- l_rec structure.
413: --
414: l_rec :=
415: pqp_gds_shd.convert_args
416: (p_gap_duration_summary_id
417: ,p_assignment_id
418: ,p_gap_absence_plan_id
419: ,p_summary_type