1 package body PQP_GB_CONFIGURATION_VALUE as
2 /* $Header: pqgbpcvp.pkb 120.0.12000000.1 2007/02/06 15:28:19 appldev noship $ */
3
4 g_debug boolean;
5 procedure chk_pension_scheme_mapping(p_pcv_information2 in varchar2
6 ,p_pcv_information3 in varchar2
7 ) as
8 l_proc varchar2(53);
9 Begin
10 l_proc:='PQP_GB_CONFIGURATION_VALUE.chk_pension_scheme_mapping';
11
12 if g_debug then
13 hr_utility.set_location('Entering:'||l_proc,10);
14 hr_utility.trace('p_pcv_information2 '||p_pcv_information2);
15 hr_utility.trace('p_pcv_information3 '||p_pcv_information3);
16 end if;
17
18 -- pcv_information3(Partnership scheme) must have value if
19 -- pcv_information2 is PARTNER
20 if (
21 p_pcv_information2 ='PARTNER' and p_pcv_information3 is null
22 ) then
23
24 hr_utility.set_message(8303,'PQP_230236_ENTER_PARTNER_SCH');
25 hr_utility.raise_error;
26
27 --else
28 -- pcv_information2 is not PARTNER then ignore.
29 end if;
30
31
32 if g_debug then
33 hr_utility.set_location('Leaving:'||l_proc,20);
34 end if;
35
36 End chk_pension_scheme_mapping;
37
38
39 PROCEDURE create_configuration_value_bp
40 (p_effective_date in date
41 ,p_business_group_id in number
42 ,p_legislation_code in varchar2
43 ,p_pcv_information_category in varchar2
44 ,p_pcv_information1 in varchar2
45 ,p_pcv_information2 in varchar2
46 ,p_pcv_information3 in varchar2
47 ,p_pcv_information4 in varchar2
48 ,p_pcv_information5 in varchar2
49 ,p_pcv_information6 in varchar2
50 ,p_pcv_information7 in varchar2
51 ,p_pcv_information8 in varchar2
52 ,p_pcv_information9 in varchar2
53 ,p_pcv_information10 in varchar2
54 ,p_pcv_information11 in varchar2
55 ,p_pcv_information12 in varchar2
56 ,p_pcv_information13 in varchar2
57 ,p_pcv_information14 in varchar2
58 ,p_pcv_information15 in varchar2
59 ,p_pcv_information16 in varchar2
60 ,p_pcv_information17 in varchar2
61 ,p_pcv_information18 in varchar2
62 ,p_pcv_information19 in varchar2
63 ,p_pcv_information20 in varchar2
64 ,p_configuration_name in varchar2
65
66 ) as
67
68 l_proc varchar2(56);
69 BEGIN
70 l_proc:='PQP_GB_CONFIGURATION_VALUE.CREATE_CONFIGURATION_VALUE_BP';
71
72 if g_debug is null then
73 g_debug := Hr_utility.debug_enabled;
74 end if;
75
76 if g_debug then
77 hr_utility.set_location('Entering:'||l_proc,10);
78 end if;
79
80 /* Create private procedures to validate
81 pcv_information_category you are interested in */
82
83 case (p_pcv_information_category)
84 when 'PQP_GB_PENSERV_SCHEME_MAP_INFO'then
85 chk_pension_scheme_mapping(p_pcv_information2 =>p_pcv_information2 --Penserv Scheme
86 ,p_pcv_information3 =>p_pcv_information3 --Partner Scheme
87 );
88 else
89 null;
90 end case;
91
92
93 if g_debug then
94 hr_utility.set_location('Leaving:'||l_proc,20);
95 end if;
96
97 END;
98
99 procedure update_configuration_value_bp
100 (p_configuration_value_id in number
101 ,p_effective_date in date
102 ,p_business_group_id in number
103 ,p_legislation_code in varchar2
104 ,p_pcv_information_category in varchar2
105 ,p_pcv_information1 in varchar2
106 ,p_pcv_information2 in varchar2
107 ,p_pcv_information3 in varchar2
108 ,p_pcv_information4 in varchar2
109 ,p_pcv_information5 in varchar2
110 ,p_pcv_information6 in varchar2
111 ,p_pcv_information7 in varchar2
112 ,p_pcv_information8 in varchar2
113 ,p_pcv_information9 in varchar2
114 ,p_pcv_information10 in varchar2
115 ,p_pcv_information11 in varchar2
116 ,p_pcv_information12 in varchar2
117 ,p_pcv_information13 in varchar2
118 ,p_pcv_information14 in varchar2
119 ,p_pcv_information15 in varchar2
120 ,p_pcv_information16 in varchar2
121 ,p_pcv_information17 in varchar2
122 ,p_pcv_information18 in varchar2
123 ,p_pcv_information19 in varchar2
124 ,p_pcv_information20 in varchar2
125 ,p_object_version_number in number
126 ,p_configuration_name in varchar2
127 )as
128 l_proc varchar2(56);
129 BEGIN
130 if g_debug is null then
131 g_debug := Hr_utility.debug_enabled;
132 end if;
133 l_proc:='PQP_GB_CONFIGURATION_VALUE.UPDATE_CONFIGURATION_VALUE_BP';
134
135 if g_debug then
136 hr_utility.set_location('Entering:'||l_proc,10);
137 end if;
138
139
140 /* Create private procedures to validate
141 pcv_information_category you are interested in */
142
143 case (p_pcv_information_category)
144 when 'PQP_GB_PENSERV_SCHEME_MAP_INFO'then
145 chk_pension_scheme_mapping(p_pcv_information2 =>p_pcv_information2 --Penserv Scheme
146 ,p_pcv_information3 =>p_pcv_information3 --Partner Scheme
147 );
148 else
149 null;
150 end case;
151
152
153 if g_debug then
154 hr_utility.set_location('Leaving:'||l_proc,20);
155 end if;
156
157 END;
158 END PQP_GB_CONFIGURATION_VALUE;
159