1 Package Body ben_pei_upd2 as
2 /* $Header: bepeirhi.pkb 120.0 2005/05/28 10:33:49 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_pei_upd2.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-----------------------------< convert_defs >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 Procedure convert_defs(p_rec in out nocopy ben_pei_shd.g_rec_type) is
15 --
16 l_proc varchar2(72) := g_package||'convert_defs';
17 --
18 Begin
19 --
20 hr_utility.set_location('Entering:'||l_proc, 5);
21 --
22 -- We must now examine each argument value in the
23 -- p_rec plsql record structure
24 -- to see if a system default is being used. If a system default
25 -- is being used then we must set to the 'current' argument value.
26 --
27 If (p_rec.pl_id = hr_api.g_number) then
28 p_rec.pl_id :=
29 ben_pei_shd.g_old_rec.pl_id;
30 End If;
31 If (p_rec.plip_id = hr_api.g_number) then
32 p_rec.plip_id :=
33 ben_pei_shd.g_old_rec.plip_id;
34 End If;
35 If (p_rec.oipl_id = hr_api.g_number) then
36 p_rec.oipl_id :=
37 ben_pei_shd.g_old_rec.oipl_id;
38 End If;
39 If (p_rec.third_party_identifier = hr_api.g_varchar2) then
40 p_rec.third_party_identifier :=
41 ben_pei_shd.g_old_rec.third_party_identifier;
42 End If;
43 If (p_rec.organization_id = hr_api.g_number) then
44 p_rec.organization_id :=
45 ben_pei_shd.g_old_rec.organization_id;
46 End If;
47 If (p_rec.job_id = hr_api.g_number) then
48 p_rec.job_id :=
49 ben_pei_shd.g_old_rec.job_id;
50 End If;
51 If (p_rec.position_id = hr_api.g_number) then
52 p_rec.position_id :=
53 ben_pei_shd.g_old_rec.position_id;
54 End If;
55 If (p_rec.people_group_id = hr_api.g_number) then
56 p_rec.people_group_id :=
57 ben_pei_shd.g_old_rec.people_group_id;
58 End If;
59 If (p_rec.grade_id = hr_api.g_number) then
60 p_rec.grade_id :=
61 ben_pei_shd.g_old_rec.grade_id;
62 End If;
63 If (p_rec.payroll_id = hr_api.g_number) then
64 p_rec.payroll_id :=
65 ben_pei_shd.g_old_rec.payroll_id;
66 End If;
67 If (p_rec.home_state = hr_api.g_varchar2) then
68 p_rec.home_state :=
69 ben_pei_shd.g_old_rec.home_state;
70 End If;
71 If (p_rec.home_zip = hr_api.g_varchar2) then
72 p_rec.home_zip :=
73 ben_pei_shd.g_old_rec.home_zip;
74 End If;
75 If (p_rec.business_group_id = hr_api.g_number) then
76 p_rec.business_group_id :=
77 ben_pei_shd.g_old_rec.business_group_id;
78 End If;
79 --
80 hr_utility.set_location(' Leaving:'||l_proc, 10);
81 --
82 End convert_defs;
83 --
84 end ben_pei_upd2;