[Home] [Help]
83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: per_osv_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_org_structure_versions
88: --
89: insert into per_org_structure_versions
90: (org_structure_version_id
91: ,business_group_id
85: per_osv_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_org_structure_versions
88: --
89: insert into per_org_structure_versions
90: (org_structure_version_id
91: ,business_group_id
92: ,organization_structure_id
93: ,date_from
181: Procedure pre_insert
182: (p_rec in out nocopy per_osv_shd.g_rec_type
183: ) is
184: --
185: Cursor C_Sel1 is select per_org_structure_versions_s.nextval from sys.dual;
186: --
187: Cursor C_Sel2 is
188: Select null
189: from per_org_structure_versions
185: Cursor C_Sel1 is select per_org_structure_versions_s.nextval from sys.dual;
186: --
187: Cursor C_Sel2 is
188: Select null
189: from per_org_structure_versions
190: where org_structure_version_id =
191: per_osv_ins.g_org_structure_version_id_i;
192: --
193: l_proc varchar2(72) := g_package||'pre_insert';
207: --
208: -- The primary key values are already in use.
209: --
210: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
211: fnd_message.set_token('TABLE_NAME','per_org_structure_versions');
212: fnd_message.raise_error;
213: End If;
214: Close C_Sel2;
215: --
311: --
312: when hr_api.cannot_find_prog_unit then
313: --
314: hr_api.cannot_find_prog_unit_error
315: (p_module_name => 'PER_ORG_STRUCTURE_VERSIONS'
316: ,p_hook_type => 'AI');
317: --
318: end;
319: --