83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: --
86: --
87: -- Insert the row into: ghr_compl_bases
88: --
89: insert into ghr_compl_bases
90: (compl_basis_id
91: ,compl_claim_id
85: --
86: --
87: -- Insert the row into: ghr_compl_bases
88: --
89: insert into ghr_compl_bases
90: (compl_basis_id
91: ,compl_claim_id
92: ,basis
93: ,value
171: Procedure pre_insert
172: (p_rec in out nocopy ghr_cba_shd.g_rec_type
173: ) is
174: --
175: Cursor C_Sel1 is select ghr_compl_bases_s.nextval from sys.dual;
176: --
177: Cursor C_Sel2 is
178: Select null
179: from ghr_compl_bases
175: Cursor C_Sel1 is select ghr_compl_bases_s.nextval from sys.dual;
176: --
177: Cursor C_Sel2 is
178: Select null
179: from ghr_compl_bases
180: where compl_basis_id =
181: ghr_cba_ins.g_compl_basis_id_i;
182: --
183: l_proc varchar2(72) := g_package||'pre_insert';
197: --
198: -- The primary key values are already in use.
199: --
200: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
201: fnd_message.set_token('TABLE_NAME','ghr_compl_bases');
202: fnd_message.raise_error;
203: End If;
204: Close C_Sel2;
205: --
282: --
283: when hr_api.cannot_find_prog_unit then
284: --
285: hr_api.cannot_find_prog_unit_error
286: (p_module_name => 'GHR_COMPL_BASES'
287: ,p_hook_type => 'AI');
288: --
289: end;
290: --