[Home] [Help]
20: --
21: l_proc varchar2(72) := g_package||'set_base_key_value';
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: per_add_ins.g_address_id_i := p_address_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: per_add_ins.g_address_id_i := p_address_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
31:
32: --
77: --
78: l_proc varchar2(72) := g_package||'insert_dml';
79: --
80: Begin
81: hr_utility.set_location('Entering:'||l_proc, 5);
82: p_rec.object_version_number := 1; -- Initialise the object version
83: --
84: per_add_shd.g_api_dml := true; -- Set the api dml status
85: --
207: );
208: --
209: per_add_shd.g_api_dml := false; -- Unset the api dml status
210: --
211: hr_utility.set_location(' Leaving:'||l_proc, 10);
212: Exception
213: When hr_api.check_integrity_violated Then
214: -- A check constraint has been violated
215: per_add_shd.g_api_dml := false; -- Unset the api dml status
287: l_package_exists boolean;
288: l_package_name varchar2(2000);
289: --
290: Begin
291: hr_utility.set_location('Entering:'||l_proc, 10);
292: --
293: if per_add_ins.g_address_id_i is not null then
294: --
295: -- Verify registered primary key values not already in use
320: Fetch C_Sel1 Into p_rec.address_id;
321: Close C_Sel1;
322: end if;
323: --
324: hr_utility.set_location(' Leaving:'||l_proc, 10);
325: --
326: -- Enhancement added for Location Searching
327: --
328: hr_utility.set_location(' Entering:'||l_proc, 11);
324: hr_utility.set_location(' Leaving:'||l_proc, 10);
325: --
326: -- Enhancement added for Location Searching
327: --
328: hr_utility.set_location(' Entering:'||l_proc, 11);
329: if( (fnd_profile.value('IRC_INSTALLED_FLAG') in ('Y','D')) and
330: (fnd_profile.value('IRC_GEOCODE_HOST')is not null)
331: ) then
332: p_rec.geometry := Irc_location_utility.address2geometry
340: ,address_line8 => p_rec.postal_code
341: ,country => p_rec.country
342: );
343: end if;
344: hr_utility.set_location(' Leaving:'||l_proc, 12);
345: -- Set taxation address defaults
346:
347: begin -- Block begin .Bug# 2416832
348: --
345: -- Set taxation address defaults
346:
347: begin -- Block begin .Bug# 2416832
348: --
349: hr_utility.set_location('Entering:'||l_proc, 15);
350: If p_rec.style = 'US' and
351: p_rec.primary_flag = 'Y'and
352: p_rec.add_information17 IS NULL and
353: p_rec.add_information18 IS NULL and
353: p_rec.add_information18 IS NULL and
354: p_rec.add_information19 IS NULL and
355: p_rec.add_information20 IS NULL
356: Then
357: hr_utility.set_location('Entering:'||l_proc, 17);
358: --
359: -- Bug 3363711 Starts Here
360: --
361: l_date := TO_DATE('01/01/'||(TO_CHAR(p_rec.date_from,'YYYY')),
406: nvl(date_to, TO_DATE('31/12/4712', 'DD/MM/YYYY')) and
407: region_2 = 'IN';
408: End if;
409: --
410: hr_utility.set_location(' Leaving:'||l_proc, 17);
411: End if;
412: --
413: EXCEPTION
414: WHEN NO_DATA_FOUND THEN
420: end; -- Block end. Bug# 2416832
421: --
422: per_add_shd.derive_locale(p_rec);
423: --
424: hr_utility.set_location(' Leaving:'||l_proc, 15);
425: End pre_insert;
426: --
427: -- ----------------------------------------------------------------------------
428: -- |-----------------------------< post_insert >------------------------------|
472: --
473: -- End of Fix for WWBUG 1408379
474: --
475: Begin
476: hr_utility.set_location('Entering:'||l_proc, 5);
477: --
478: -- Start of API User Hook for post_insert.
479: begin
480: per_add_rki.after_insert
564: -- End of Fix for WWBUG 1408379
565: --
566: -- End of API User Hook for post_insert.
567: --
568: hr_utility.set_location(' Leaving:'||l_proc, 10);
569: End post_insert;
570: --
571: -- ----------------------------------------------------------------------------
572: -- |---------------------------------< ins >----------------------------------|
580: --
581: l_proc varchar2(72) := g_package||'ins';
582: --
583: Begin
584: hr_utility.set_location('Entering:'||l_proc, 5);
585: --
586: -- Determine if the business process is to be validated.
587: --
588: If p_validate then
624: If p_validate then
625: Raise HR_Api.Validate_Enabled;
626: End If;
627: --
628: hr_utility.set_location(' Leaving:'||l_proc, 10);
629: Exception
630: When HR_Api.Validate_Enabled Then
631: --
632: -- As the Validate_Enabled exception has been raised
703: l_rec per_add_shd.g_rec_type;
704: l_proc varchar2(72) := g_package||'ins';
705: --
706: Begin
707: hr_utility.set_location('Entering:'||l_proc, 5);
708: --
709: -- Call conversion function to turn arguments into the
710: -- p_rec structure.
711: --
784: --
785: p_address_id := l_rec.address_id;
786: p_object_version_number := l_rec.object_version_number;
787: --
788: hr_utility.set_location(' Leaving:'||l_proc, 10);
789: End ins;
790: --
791: end per_add_ins;