[Home] [Help]
PACKAGE BODY: APPS.PAY_AU_PROCESS_MODULES_API
Source
1 Package Body pay_au_process_modules_api as
2 /* $Header: pyapmapi.pkb 120.0 2005/05/29 02:57 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33);
7 --
8 -- ------------------------------------------------------------------------
9 -- |--------------------------< create_au_process_module >----------------|
10 -- ------------------------------------------------------------------------
11 --
12 procedure create_au_process_module
13 (p_validate in boolean default false,
14 p_process_id in number,
15 p_module_id in number,
16 p_process_sequence in number,
17 p_enabled_flag in varchar2,
18 p_process_module_id out nocopy number,
19 p_object_version_number out nocopy number) is
20 --
21 -- Declare cursors and local variables
22 --
23 --
24 -- Out variables
25 --
26 l_process_module_id pay_au_process_modules.process_module_id%TYPE;
27 l_object_version_number pay_au_process_modules.object_version_number%TYPE;
28 --
29 l_proc varchar2(72);
30 l_dummy_number number(1);
31 --
32 --
33 -- Declare a cursor that will check whether the passed
34 -- in process_id and process_sequence for a unique combination
35 --
36 cursor csr_valid_combo is
37 select process_module_id
38 from pay_au_process_modules papm
39 where papm.process_id = p_process_id
40 and papm.process_sequence = p_process_sequence;
41 --
42 begin
43 l_proc := g_package||'create_au_process_module';
44 --
45 hr_utility.set_location('Entering:'|| l_proc, 5);
46 --
47 -- Issue a savepoint if operating in validation only mode.
48 --
49 if p_validate then
50 savepoint create_au_process_module;
51 end if;
52 --
53 hr_utility.set_location(l_proc, 10);
54 --
55 --
56 -- Process Logic
57 --
58 --------------------------------------------------------
59 -- Check for unique short name,business_group_id and
60 -- legislation_code combo --
61 --------------------------------------------------------
62 open csr_valid_combo;
63 fetch csr_valid_combo into l_process_module_id;
64
65 -- If the process parameter does not exist then create it.
66 -- Do not error if the process does exist, simply return.
67 --
68 if csr_valid_combo%notfound then
69 --
70 -- Insert the process parameter.
71 --
72 pay_apm_ins.ins
73 (
74 p_process_id => p_process_id,
75 p_module_id => p_module_id,
76 p_process_sequence => p_process_sequence,
77 p_enabled_flag => p_enabled_flag,
78 p_process_module_id => l_process_module_id,
79 p_object_version_number => l_object_version_number
80 );
81 end if;
82 close csr_valid_combo;
83 --
84 hr_utility.set_location(l_proc, 20);
85 --
86 -- When in validation only mode raise the Validate_Enabled exception
87 --
88 if p_validate then
89 raise hr_api.validate_enabled;
90 end if;
91 --
92 -- Set all output arguments
93 --
94 p_process_module_id := l_process_module_id;
95 p_object_version_number := l_object_version_number;
96 --
97 hr_utility.set_location(' Leaving:'||l_proc, 100);
98 exception
99 when hr_api.validate_enabled then
100 --
101 -- Only set output warning arguments
102 -- (Any key or derived arguments must be set to null
103 -- when validation only mode is being used.)
104 --
105 p_process_module_id := null;
106 --
107 -- As the Validate_Enabled exception has been raised
108 -- we must rollback to the savepoint
109 --
110 ROLLBACK TO create_au_process_module;
111 --
112 end create_au_process_module;
113 --
114 -- ------------------------------------------------------------------------
115 -- |--------------------------< delete_au_process_module >----------------|
116 -- ------------------------------------------------------------------------
117 --
118 procedure delete_au_process_module
119 (p_validate in boolean default false,
120 p_process_module_id in number,
121 p_object_version_number in number) is
122 --
123 l_proc varchar2(72);
124 --
125 begin
126 l_proc := g_package||'delete_au_process_module';
127 --
128 hr_utility.set_location('Entering:'|| l_proc, 5);
129 --
130 -- Issue a savepoint if operating in validation only mode.
131 --
132 if p_validate then
133 savepoint delete_au_process_module;
134 end if;
135 --
136 hr_utility.set_location(l_proc, 10);
137 --
138 -- Validation in addition to Table Handlers
139 --
140 -- None required.
141 --
142 -- Process Logic
143 --
144 pay_apm_del.del
145 (p_process_module_id => p_process_module_id,
146 p_object_version_number => p_object_version_number);
147 --
148 hr_utility.set_location(l_proc, 20);
149 --
150 -- When in validation only mode raise the Validate_Enabled exception
151 --
152 if p_validate then
153 raise hr_api.validate_enabled;
154 end if;
155 --
156 hr_utility.set_location(' Leaving:'||l_proc, 100);
157 exception
158 when hr_api.validate_enabled then
159 --
160 -- As the Validate_Enabled exception has been raised
161 -- we must rollback to the savepoint
162 --
163 ROLLBACK TO delete_au_process_module;
164 end delete_au_process_module;
165 --
166 --
167 -- ------------------------------------------------------------------------
168 -- |--------------------------< update_au_process_module >----------------|
169 -- ------------------------------------------------------------------------
170 --
171
172 procedure update_au_process_module
173 (p_validate in boolean default false,
174 p_process_module_id in number,
175 p_process_id in number,
176 p_module_id in number,
177 p_process_sequence in number,
178 p_enabled_flag IN varchar2,
179 p_object_version_number in out nocopy number
180 ) is
181 --
182 l_proc varchar2(72);
183 --
184 begin
185 l_proc := g_package||'update_au_process_module';
186 --
187 hr_utility.set_location('Entering:'|| l_proc, 5);
188 --
189 -- Issue a savepoint if operating in validation only mode.
190 --
191 if p_validate then
192 savepoint update_au_process_module;
193 end if;
194 --
195 hr_utility.set_location(l_proc, 10);
196 --
197 -- Validation in addition to Table Handlers
198 --
199 -- None required.
200 --
201 -- Process Logic
202 --
203 pay_apm_upd.upd
204 (p_process_module_id => p_process_module_id,
205 p_object_version_number => p_object_version_number,
206 p_process_id => p_process_id,
207 p_module_id => p_module_id,
208 p_process_sequence => p_process_sequence,
209 p_enabled_flag => p_enabled_flag
210 );
211 --
212 hr_utility.set_location(l_proc, 20);
213 --
214 -- When in validation only mode raise the Validate_Enabled exception
215 --
216 if p_validate then
217 raise hr_api.validate_enabled;
218 end if;
219 --
220 hr_utility.set_location(' Leaving:'||l_proc, 100);
221 exception
222 when hr_api.validate_enabled then
223 --
224 -- As the Validate_Enabled exception has been raised
225 -- we must rollback to the savepoint
226 --
227 ROLLBACK TO update_au_process_module;
228 end update_au_process_module;
229 --
230 --
231 begin
232 g_package := ' pay_au_process_modules_api.';
233 end pay_au_process_modules_api;