51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy psp_rtd_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: psp_rtd_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the psp_report_template_details Row
69: --
70: update psp_report_template_details
79: ,criteria_value2 = p_rec.criteria_value2
80: ,criteria_value3 = p_rec.criteria_value3
81: where template_detail_id = p_rec.template_detail_id;
82: --
83: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
84: --
85: hr_utility.set_location(' Leaving:'||l_proc, 10);
86: --
87: Exception
86: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
91: psp_rtd_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
91: psp_rtd_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
91: psp_rtd_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
96: psp_rtd_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
96: psp_rtd_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
96: psp_rtd_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
101: psp_rtd_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
101: psp_rtd_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
100: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
101: psp_rtd_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: psp_rtd_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
106: End update_dml;
107: --
108: -- ----------------------------------------------------------------------------
137: --
138: -- {End Of Comments}
139: -- ----------------------------------------------------------------------------
140: Procedure pre_update
141: (p_rec in psp_rtd_shd.g_rec_type
142: ) is
143: --
144: l_proc varchar2(72) := g_package||'pre_update';
145: --
181: --
182: -- {End Of Comments}
183: -- ----------------------------------------------------------------------------
184: Procedure post_update
185: (p_rec in psp_rtd_shd.g_rec_type
186: ) is
187: --
188: l_proc varchar2(72) := g_package||'post_update';
189: --
210: => p_rec.criteria_value2
211: ,p_criteria_value3
212: => p_rec.criteria_value3
213: ,p_template_id_o
214: => psp_rtd_shd.g_old_rec.template_id
215: ,p_object_version_number_o
216: => psp_rtd_shd.g_old_rec.object_version_number
217: ,p_criteria_lookup_type_o
218: => psp_rtd_shd.g_old_rec.criteria_lookup_type
212: => p_rec.criteria_value3
213: ,p_template_id_o
214: => psp_rtd_shd.g_old_rec.template_id
215: ,p_object_version_number_o
216: => psp_rtd_shd.g_old_rec.object_version_number
217: ,p_criteria_lookup_type_o
218: => psp_rtd_shd.g_old_rec.criteria_lookup_type
219: ,p_criteria_lookup_code_o
220: => psp_rtd_shd.g_old_rec.criteria_lookup_code
214: => psp_rtd_shd.g_old_rec.template_id
215: ,p_object_version_number_o
216: => psp_rtd_shd.g_old_rec.object_version_number
217: ,p_criteria_lookup_type_o
218: => psp_rtd_shd.g_old_rec.criteria_lookup_type
219: ,p_criteria_lookup_code_o
220: => psp_rtd_shd.g_old_rec.criteria_lookup_code
221: ,p_include_exclude_flag_o
222: => psp_rtd_shd.g_old_rec.include_exclude_flag
216: => psp_rtd_shd.g_old_rec.object_version_number
217: ,p_criteria_lookup_type_o
218: => psp_rtd_shd.g_old_rec.criteria_lookup_type
219: ,p_criteria_lookup_code_o
220: => psp_rtd_shd.g_old_rec.criteria_lookup_code
221: ,p_include_exclude_flag_o
222: => psp_rtd_shd.g_old_rec.include_exclude_flag
223: ,p_criteria_value1_o
224: => psp_rtd_shd.g_old_rec.criteria_value1
218: => psp_rtd_shd.g_old_rec.criteria_lookup_type
219: ,p_criteria_lookup_code_o
220: => psp_rtd_shd.g_old_rec.criteria_lookup_code
221: ,p_include_exclude_flag_o
222: => psp_rtd_shd.g_old_rec.include_exclude_flag
223: ,p_criteria_value1_o
224: => psp_rtd_shd.g_old_rec.criteria_value1
225: ,p_criteria_value2_o
226: => psp_rtd_shd.g_old_rec.criteria_value2
220: => psp_rtd_shd.g_old_rec.criteria_lookup_code
221: ,p_include_exclude_flag_o
222: => psp_rtd_shd.g_old_rec.include_exclude_flag
223: ,p_criteria_value1_o
224: => psp_rtd_shd.g_old_rec.criteria_value1
225: ,p_criteria_value2_o
226: => psp_rtd_shd.g_old_rec.criteria_value2
227: ,p_criteria_value3_o
228: => psp_rtd_shd.g_old_rec.criteria_value3
222: => psp_rtd_shd.g_old_rec.include_exclude_flag
223: ,p_criteria_value1_o
224: => psp_rtd_shd.g_old_rec.criteria_value1
225: ,p_criteria_value2_o
226: => psp_rtd_shd.g_old_rec.criteria_value2
227: ,p_criteria_value3_o
228: => psp_rtd_shd.g_old_rec.criteria_value3
229: );
230: --
224: => psp_rtd_shd.g_old_rec.criteria_value1
225: ,p_criteria_value2_o
226: => psp_rtd_shd.g_old_rec.criteria_value2
227: ,p_criteria_value3_o
228: => psp_rtd_shd.g_old_rec.criteria_value3
229: );
230: --
231: exception
232: --
284: --
285: -- {End Of Comments}
286: -- ----------------------------------------------------------------------------
287: Procedure convert_defs
288: (p_rec in out nocopy psp_rtd_shd.g_rec_type
289: ) is
290: --
291: Begin
292: --
296: -- is being used then we must set to the 'current' argument value.
297: --
298: If (p_rec.template_id = hr_api.g_number) then
299: p_rec.template_id :=
300: psp_rtd_shd.g_old_rec.template_id;
301: End If;
302: If (p_rec.criteria_lookup_type = hr_api.g_varchar2) then
303: p_rec.criteria_lookup_type :=
304: psp_rtd_shd.g_old_rec.criteria_lookup_type;
300: psp_rtd_shd.g_old_rec.template_id;
301: End If;
302: If (p_rec.criteria_lookup_type = hr_api.g_varchar2) then
303: p_rec.criteria_lookup_type :=
304: psp_rtd_shd.g_old_rec.criteria_lookup_type;
305: End If;
306: If (p_rec.criteria_lookup_code = hr_api.g_varchar2) then
307: p_rec.criteria_lookup_code :=
308: psp_rtd_shd.g_old_rec.criteria_lookup_code;
304: psp_rtd_shd.g_old_rec.criteria_lookup_type;
305: End If;
306: If (p_rec.criteria_lookup_code = hr_api.g_varchar2) then
307: p_rec.criteria_lookup_code :=
308: psp_rtd_shd.g_old_rec.criteria_lookup_code;
309: End If;
310: If (p_rec.include_exclude_flag = hr_api.g_varchar2) then
311: p_rec.include_exclude_flag :=
312: psp_rtd_shd.g_old_rec.include_exclude_flag;
308: psp_rtd_shd.g_old_rec.criteria_lookup_code;
309: End If;
310: If (p_rec.include_exclude_flag = hr_api.g_varchar2) then
311: p_rec.include_exclude_flag :=
312: psp_rtd_shd.g_old_rec.include_exclude_flag;
313: End If;
314: If (p_rec.criteria_value1 = hr_api.g_varchar2) then
315: p_rec.criteria_value1 :=
316: psp_rtd_shd.g_old_rec.criteria_value1;
312: psp_rtd_shd.g_old_rec.include_exclude_flag;
313: End If;
314: If (p_rec.criteria_value1 = hr_api.g_varchar2) then
315: p_rec.criteria_value1 :=
316: psp_rtd_shd.g_old_rec.criteria_value1;
317: End If;
318: If (p_rec.criteria_value2 = hr_api.g_varchar2) then
319: p_rec.criteria_value2 :=
320: psp_rtd_shd.g_old_rec.criteria_value2;
316: psp_rtd_shd.g_old_rec.criteria_value1;
317: End If;
318: If (p_rec.criteria_value2 = hr_api.g_varchar2) then
319: p_rec.criteria_value2 :=
320: psp_rtd_shd.g_old_rec.criteria_value2;
321: End If;
322: If (p_rec.criteria_value3 = hr_api.g_varchar2) then
323: p_rec.criteria_value3 :=
324: psp_rtd_shd.g_old_rec.criteria_value3;
320: psp_rtd_shd.g_old_rec.criteria_value2;
321: End If;
322: If (p_rec.criteria_value3 = hr_api.g_varchar2) then
323: p_rec.criteria_value3 :=
324: psp_rtd_shd.g_old_rec.criteria_value3;
325: End If;
326: --
327: End convert_defs;
328: --
329: -- ----------------------------------------------------------------------------
330: -- |---------------------------------< upd >----------------------------------|
331: -- ----------------------------------------------------------------------------
332: Procedure upd
333: (p_rec in out nocopy psp_rtd_shd.g_rec_type
334: ) is
335: --
336: l_proc varchar2(72) := g_package||'upd';
337: --
339: hr_utility.set_location('Entering:'||l_proc, 5);
340: --
341: -- We must lock the row which we need to update.
342: --
343: psp_rtd_shd.lck
344: (p_rec.template_detail_id
345: ,p_rec.object_version_number
346: );
347: --
391: ,p_criteria_value2 in varchar2 default hr_api.g_varchar2
392: ,p_criteria_value3 in varchar2 default hr_api.g_varchar2
393: ) is
394: --
395: l_rec psp_rtd_shd.g_rec_type;
396: l_proc varchar2(72) := g_package||'upd';
397: --
398: Begin
399: hr_utility.set_location('Entering:'||l_proc, 5);
401: -- Call conversion function to turn arguments into the
402: -- l_rec structure.
403: --
404: l_rec :=
405: psp_rtd_shd.convert_args
406: (p_template_detail_id
407: ,p_template_id
408: ,p_object_version_number
409: ,p_criteria_lookup_type