131: p_rec.object_version_number := 1; -- Initialise the object version
132: --
133: pay_blt_shd.g_api_dml := true; -- Set the api dml status
134: --
135: -- Insert the row into: pay_balance_types
136: --
137: insert into pay_balance_types
138: (balance_type_id
139: ,business_group_id
133: pay_blt_shd.g_api_dml := true; -- Set the api dml status
134: --
135: -- Insert the row into: pay_balance_types
136: --
137: insert into pay_balance_types
138: (balance_type_id
139: ,business_group_id
140: ,legislation_code
141: ,currency_code
277: Procedure pre_insert
278: (p_rec in out nocopy pay_blt_shd.g_rec_type
279: ) is
280: --
281: Cursor C_Sel1 is select pay_balance_types_s.nextval from sys.dual;
282: --
283: Cursor C_Sel2 is
284: Select null
285: from pay_balance_types
281: Cursor C_Sel1 is select pay_balance_types_s.nextval from sys.dual;
282: --
283: Cursor C_Sel2 is
284: Select null
285: from pay_balance_types
286: where balance_type_id =
287: pay_blt_ins.g_balance_type_id_i;
288: --
289: l_proc varchar2(72) := g_package||'pre_insert';
303: --
304: -- The primary key values are already in use.
305: --
306: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
307: fnd_message.set_token('TABLE_NAME','pay_balance_types');
308: fnd_message.raise_error;
309: End If;
310: Close C_Sel2;
311: --
460: --
461: when hr_api.cannot_find_prog_unit then
462: --
463: hr_api.cannot_find_prog_unit_error
464: (p_module_name => 'PAY_BALANCE_TYPES'
465: ,p_hook_type => 'AI');
466: --
467: end;
468: --