51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ben_bcd_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: ben_bcd_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: --
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: --
96: ben_bcd_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: --
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: --
101: ben_bcd_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: --
105: Raise;
137: --
138: -- {End Of Comments}
139: -- ----------------------------------------------------------------------------
140: Procedure pre_update
141: (p_rec in ben_bcd_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 ben_bcd_shd.g_rec_type
186: ) is
187: --
188: l_proc varchar2(72) := g_package||'post_update';
189: --
210: => p_rec.business_group_id
211: ,p_object_version_number
212: => p_rec.object_version_number
213: ,p_cwb_matrix_id_o
214: => ben_bcd_shd.g_old_rec.cwb_matrix_id
215: ,p_row_crit_val_o
216: => ben_bcd_shd.g_old_rec.row_crit_val
217: ,p_col_crit_val_o
218: => ben_bcd_shd.g_old_rec.col_crit_val
212: => p_rec.object_version_number
213: ,p_cwb_matrix_id_o
214: => ben_bcd_shd.g_old_rec.cwb_matrix_id
215: ,p_row_crit_val_o
216: => ben_bcd_shd.g_old_rec.row_crit_val
217: ,p_col_crit_val_o
218: => ben_bcd_shd.g_old_rec.col_crit_val
219: ,p_pct_emp_cndr_o
220: => ben_bcd_shd.g_old_rec.pct_emp_cndr
214: => ben_bcd_shd.g_old_rec.cwb_matrix_id
215: ,p_row_crit_val_o
216: => ben_bcd_shd.g_old_rec.row_crit_val
217: ,p_col_crit_val_o
218: => ben_bcd_shd.g_old_rec.col_crit_val
219: ,p_pct_emp_cndr_o
220: => ben_bcd_shd.g_old_rec.pct_emp_cndr
221: ,p_pct_val_o
222: => ben_bcd_shd.g_old_rec.pct_val
216: => ben_bcd_shd.g_old_rec.row_crit_val
217: ,p_col_crit_val_o
218: => ben_bcd_shd.g_old_rec.col_crit_val
219: ,p_pct_emp_cndr_o
220: => ben_bcd_shd.g_old_rec.pct_emp_cndr
221: ,p_pct_val_o
222: => ben_bcd_shd.g_old_rec.pct_val
223: ,p_emp_amt_o
224: => ben_bcd_shd.g_old_rec.emp_amt
218: => ben_bcd_shd.g_old_rec.col_crit_val
219: ,p_pct_emp_cndr_o
220: => ben_bcd_shd.g_old_rec.pct_emp_cndr
221: ,p_pct_val_o
222: => ben_bcd_shd.g_old_rec.pct_val
223: ,p_emp_amt_o
224: => ben_bcd_shd.g_old_rec.emp_amt
225: ,p_business_group_id_o
226: => ben_bcd_shd.g_old_rec.business_group_id
220: => ben_bcd_shd.g_old_rec.pct_emp_cndr
221: ,p_pct_val_o
222: => ben_bcd_shd.g_old_rec.pct_val
223: ,p_emp_amt_o
224: => ben_bcd_shd.g_old_rec.emp_amt
225: ,p_business_group_id_o
226: => ben_bcd_shd.g_old_rec.business_group_id
227: ,p_object_version_number_o
228: => ben_bcd_shd.g_old_rec.object_version_number
222: => ben_bcd_shd.g_old_rec.pct_val
223: ,p_emp_amt_o
224: => ben_bcd_shd.g_old_rec.emp_amt
225: ,p_business_group_id_o
226: => ben_bcd_shd.g_old_rec.business_group_id
227: ,p_object_version_number_o
228: => ben_bcd_shd.g_old_rec.object_version_number
229: );
230: --
224: => ben_bcd_shd.g_old_rec.emp_amt
225: ,p_business_group_id_o
226: => ben_bcd_shd.g_old_rec.business_group_id
227: ,p_object_version_number_o
228: => ben_bcd_shd.g_old_rec.object_version_number
229: );
230: --
231: exception
232: --
284: --
285: -- {End Of Comments}
286: -- ----------------------------------------------------------------------------
287: Procedure convert_defs
288: (p_rec in out nocopy ben_bcd_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.cwb_matrix_id = hr_api.g_number) then
299: p_rec.cwb_matrix_id :=
300: ben_bcd_shd.g_old_rec.cwb_matrix_id;
301: End If;
302: If (p_rec.row_crit_val = hr_api.g_varchar2) then
303: p_rec.row_crit_val :=
304: ben_bcd_shd.g_old_rec.row_crit_val;
300: ben_bcd_shd.g_old_rec.cwb_matrix_id;
301: End If;
302: If (p_rec.row_crit_val = hr_api.g_varchar2) then
303: p_rec.row_crit_val :=
304: ben_bcd_shd.g_old_rec.row_crit_val;
305: End If;
306: If (p_rec.col_crit_val = hr_api.g_varchar2) then
307: p_rec.col_crit_val :=
308: ben_bcd_shd.g_old_rec.col_crit_val;
304: ben_bcd_shd.g_old_rec.row_crit_val;
305: End If;
306: If (p_rec.col_crit_val = hr_api.g_varchar2) then
307: p_rec.col_crit_val :=
308: ben_bcd_shd.g_old_rec.col_crit_val;
309: End If;
310: If (p_rec.pct_emp_cndr = hr_api.g_number) then
311: p_rec.pct_emp_cndr :=
312: ben_bcd_shd.g_old_rec.pct_emp_cndr;
308: ben_bcd_shd.g_old_rec.col_crit_val;
309: End If;
310: If (p_rec.pct_emp_cndr = hr_api.g_number) then
311: p_rec.pct_emp_cndr :=
312: ben_bcd_shd.g_old_rec.pct_emp_cndr;
313: End If;
314: If (p_rec.pct_val = hr_api.g_number) then
315: p_rec.pct_val :=
316: ben_bcd_shd.g_old_rec.pct_val;
312: ben_bcd_shd.g_old_rec.pct_emp_cndr;
313: End If;
314: If (p_rec.pct_val = hr_api.g_number) then
315: p_rec.pct_val :=
316: ben_bcd_shd.g_old_rec.pct_val;
317: End If;
318: If (p_rec.emp_amt = hr_api.g_number) then
319: p_rec.emp_amt :=
320: ben_bcd_shd.g_old_rec.emp_amt;
316: ben_bcd_shd.g_old_rec.pct_val;
317: End If;
318: If (p_rec.emp_amt = hr_api.g_number) then
319: p_rec.emp_amt :=
320: ben_bcd_shd.g_old_rec.emp_amt;
321: End If;
322: If (p_rec.business_group_id = hr_api.g_number) then
323: p_rec.business_group_id :=
324: ben_bcd_shd.g_old_rec.business_group_id;
320: ben_bcd_shd.g_old_rec.emp_amt;
321: End If;
322: If (p_rec.business_group_id = hr_api.g_number) then
323: p_rec.business_group_id :=
324: ben_bcd_shd.g_old_rec.business_group_id;
325: End If;
326: --
327: End convert_defs;
328: --
329: -- ----------------------------------------------------------------------------
330: -- |---------------------------------< upd >----------------------------------|
331: -- ----------------------------------------------------------------------------
332: Procedure upd
333: (p_rec in out nocopy ben_bcd_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: ben_bcd_shd.lck
344: (p_rec.cwb_matrix_dtl_id
345: ,p_rec.object_version_number
346: );
347: --
391: ,p_pct_val in number default hr_api.g_number
392: ,p_emp_amt in number default hr_api.g_number
393: ) is
394: --
395: l_rec ben_bcd_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: ben_bcd_shd.convert_args
406: (p_cwb_matrix_dtl_id
407: ,p_cwb_matrix_id
408: ,p_row_crit_val
409: ,p_col_crit_val