50: -- Internal Row Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy hr_qsn_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
77: --
78: Exception
79: When hr_api.check_integrity_violated Then
80: -- A check constraint has been violated
81: hr_qsn_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
81: hr_qsn_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
88: -- Unique integrity has been violated
89: hr_qsn_shd.constraint_error
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
88: -- Unique integrity has been violated
89: hr_qsn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When Others Then
92: Raise;
93: End update_dml;
123: -- Internal Row Handler Use Only.
124: --
125: -- {End Of Comments}
126: -- ----------------------------------------------------------------------------
127: Procedure pre_update(p_rec in hr_qsn_shd.g_rec_type) is
128: --
129: l_proc varchar2(72) := g_package||'pre_update';
130: --
131: Begin
165: -- Internal Row Handler Use Only.
166: --
167: -- {End Of Comments}
168: -- ----------------------------------------------------------------------------
169: Procedure post_update(p_rec in hr_qsn_shd.g_rec_type
170: ,p_effective_date in date
171: ) is
172: --
173: l_proc varchar2(72) := g_package||'post_update';
179: hr_qsn_rku.after_update
180: (p_questionnaire_template_id => p_rec.questionnaire_template_id
181: ,p_available_flag => p_rec.available_flag
182: ,p_object_version_number => p_rec.object_version_number
183: ,p_name_o => hr_qsn_shd.g_old_rec.name
184: -- ,p_text_o => hr_qsn_shd.g_old_rec.text
185: ,p_available_flag_o
186: => hr_qsn_shd.g_old_rec.available_flag
187: ,p_business_group_id_o
180: (p_questionnaire_template_id => p_rec.questionnaire_template_id
181: ,p_available_flag => p_rec.available_flag
182: ,p_object_version_number => p_rec.object_version_number
183: ,p_name_o => hr_qsn_shd.g_old_rec.name
184: -- ,p_text_o => hr_qsn_shd.g_old_rec.text
185: ,p_available_flag_o
186: => hr_qsn_shd.g_old_rec.available_flag
187: ,p_business_group_id_o
188: => hr_qsn_shd.g_old_rec.business_group_id
182: ,p_object_version_number => p_rec.object_version_number
183: ,p_name_o => hr_qsn_shd.g_old_rec.name
184: -- ,p_text_o => hr_qsn_shd.g_old_rec.text
185: ,p_available_flag_o
186: => hr_qsn_shd.g_old_rec.available_flag
187: ,p_business_group_id_o
188: => hr_qsn_shd.g_old_rec.business_group_id
189: ,p_object_version_number_o
190: => hr_qsn_shd.g_old_rec.object_version_number
184: -- ,p_text_o => hr_qsn_shd.g_old_rec.text
185: ,p_available_flag_o
186: => hr_qsn_shd.g_old_rec.available_flag
187: ,p_business_group_id_o
188: => hr_qsn_shd.g_old_rec.business_group_id
189: ,p_object_version_number_o
190: => hr_qsn_shd.g_old_rec.object_version_number
191: ,p_effective_date => p_effective_date
192: );
186: => hr_qsn_shd.g_old_rec.available_flag
187: ,p_business_group_id_o
188: => hr_qsn_shd.g_old_rec.business_group_id
189: ,p_object_version_number_o
190: => hr_qsn_shd.g_old_rec.object_version_number
191: ,p_effective_date => p_effective_date
192: );
193: exception
194: when hr_api.cannot_find_prog_unit then
243: -- Internal Row Handler Use Only.
244: --
245: -- {End Of Comments}
246: -- ----------------------------------------------------------------------------
247: Procedure convert_defs(p_rec in out nocopy hr_qsn_shd.g_rec_type) is
248: --
249: l_proc varchar2(72) := g_package||'convert_defs';
250: --
251: Begin
258: -- is being used then we must set to the 'current' argument value.
259: --
260: If (p_rec.name = hr_api.g_varchar2) then
261: p_rec.name :=
262: hr_qsn_shd.g_old_rec.name;
263: End If;
264: If (p_rec.text = hr_api.g_varchar2) then
265: p_rec.text :=
266: hr_qsn_shd.g_old_rec.text;
262: hr_qsn_shd.g_old_rec.name;
263: End If;
264: If (p_rec.text = hr_api.g_varchar2) then
265: p_rec.text :=
266: hr_qsn_shd.g_old_rec.text;
267: End If;
268: If (p_rec.available_flag = hr_api.g_varchar2) then
269: p_rec.available_flag :=
270: hr_qsn_shd.g_old_rec.available_flag;
266: hr_qsn_shd.g_old_rec.text;
267: End If;
268: If (p_rec.available_flag = hr_api.g_varchar2) then
269: p_rec.available_flag :=
270: hr_qsn_shd.g_old_rec.available_flag;
271: End If;
272: If (p_rec.business_group_id = hr_api.g_number) then
273: p_rec.business_group_id :=
274: hr_qsn_shd.g_old_rec.business_group_id;
270: hr_qsn_shd.g_old_rec.available_flag;
271: End If;
272: If (p_rec.business_group_id = hr_api.g_number) then
273: p_rec.business_group_id :=
274: hr_qsn_shd.g_old_rec.business_group_id;
275: End If;
276:
277: --
278: hr_utility.set_location(' Leaving:'||l_proc, 10);
283: -- |---------------------------------< upd >----------------------------------|
284: -- ----------------------------------------------------------------------------
285: Procedure upd
286: (
287: p_rec in out nocopy hr_qsn_shd.g_rec_type,
288: p_effective_date in date
289: ) is
290: --
291: l_proc varchar2(72) := g_package||'upd';
294: hr_utility.set_location('Entering:'||l_proc, 5);
295: --
296: -- We must lock the row which we need to update.
297: --
298: hr_qsn_shd.lck
299: (
300: p_rec.questionnaire_template_id,
301: p_rec.object_version_number
302: );
342: p_object_version_number in out nocopy number,
343: p_effective_date in date
344: ) is
345: --
346: l_rec hr_qsn_shd.g_rec_type;
347: l_proc varchar2(72) := g_package||'upd';
348: --
349: Begin
350: hr_utility.set_location('Entering:'||l_proc, 5);
352: -- Call conversion function to turn arguments into the
353: -- l_rec structure.
354: --
355: l_rec :=
356: hr_qsn_shd.convert_args
357: (
358: p_questionnaire_template_id,
359: hr_api.g_varchar2,
360: p_text,