[Home] [Help]
PACKAGE BODY: APPS.HR_FSC_API
Source
1 Package Body hr_fsc_api as
2 /* $Header: hrfscapi.pkb 115.2 2002/12/08 05:38:01 hjonnala noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_fsc_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |----------------------< create_form_tab_stacked_canvas >------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_form_tab_stacked_canvas
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_form_tab_page_id in number
16 ,p_form_canvas_id in number
17 ,p_form_tab_stacked_canvas_id out nocopy number
18 ,p_object_version_number out nocopy number
19 ) is
20 --
21 -- Declare cursors and local variables
22 --
23
24 l_proc varchar2(72) := g_package||'create_form_tab_stacked_canvas';
25 l_form_tab_stacked_canvas_id number;
26 l_object_version_number number;
27 begin
28 hr_utility.set_location('Entering:'|| l_proc, 10);
29 --
30 -- Issue a savepoint
31 --
32 savepoint create_form_tab_stacked_canvas;
33 --
34 -- Truncate the time portion from all IN date parameters
35 --
36 -- p_effective_date := TRUNC(p_effective_date);
37 --
38 -- Call Before Process User Hook
39 --
40 begin
41 hr_fsc_api_bk1.create_fsc_b
42 (p_effective_date => TRUNC(p_effective_date)
43 ,p_form_tab_page_id => p_form_tab_page_id
44 ,p_form_canvas_id => p_form_canvas_id
45 );
46 exception
47 when hr_api.cannot_find_prog_unit then
48 hr_api.cannot_find_prog_unit_error
49 (p_module_name => 'create_form_tab_stacked_canvas'
50 ,p_hook_type => 'BP'
51 );
52 end;
53 --
54 -- Process Logic
55 --
56 hr_fsc_ins.ins(p_form_tab_page_id => p_form_tab_page_id
57 ,p_form_canvas_id => p_form_canvas_id
58 ,p_form_tab_stacked_canvas_id => l_form_tab_stacked_canvas_id
59 ,p_object_version_number => l_object_version_number);
60
61 --
62 -- Call After Process User Hook
63 --
64 begin
65 hr_fsc_api_bk1.create_fsc_a
66 (p_effective_date => TRUNC(p_effective_date)
67 ,p_form_tab_page_id => p_form_tab_page_id
68 ,p_form_canvas_id => p_form_canvas_id
69 ,p_form_tab_stacked_canvas_id => l_form_tab_stacked_canvas_id
70 ,p_object_version_number => l_object_version_number
71 );
72 exception
73 when hr_api.cannot_find_prog_unit then
74 hr_api.cannot_find_prog_unit_error
75 (p_module_name => 'create_form_tab_stacked_canvas'
76 ,p_hook_type => 'AP'
77 );
78 end;
79 --
80 -- When in validation only mode raise the Validate_Enabled exception
81 --
82 if p_validate then
83 raise hr_api.validate_enabled;
84 end if;
85 --
86 -- Set all output arguments
87 --
88 --
89 p_form_tab_stacked_canvas_id := l_form_tab_stacked_canvas_id;
90 p_object_version_number := l_object_version_number;
91 hr_utility.set_location(' Leaving:'||l_proc, 70);
92 exception
93 when hr_api.validate_enabled then
94 --
95 -- As the Validate_Enabled exception has been raised
96 -- we must rollback to the savepoint
97 --
98 rollback to create_form_tab_stacked_canvas;
99 --
100 -- Only set output warning arguments
101 -- (Any key or derived arguments must be set to null
102 -- when validation only mode is being used.)
103 --
104 p_form_tab_stacked_canvas_id := null;
105 p_object_version_number := null;
106 hr_utility.set_location(' Leaving:'||l_proc, 80);
107 when others then
108 --
109 -- A validation or unexpected error has occured
110 --
111 rollback to create_form_tab_stacked_canvas;
112 -- Set out parameters.
113 p_form_tab_stacked_canvas_id := null;
114 p_object_version_number := null;
115 hr_utility.set_location(' Leaving:'||l_proc, 90);
116 raise;
117 end create_form_tab_stacked_canvas;
118 --
119 -- ----------------------------------------------------------------------------
120 -- |---------------------< delete_form_tab_stacked_canvas >-------------------|
121 -- ----------------------------------------------------------------------------
122 --
123 procedure delete_form_tab_stacked_canvas
124 (p_validate in boolean default false
125 ,p_form_tab_stacked_canvas_id in number
126 ,p_object_version_number in number
127 ) is
128 --
129 -- Declare cursors and local variables
130 --
131
132 l_proc varchar2(72) := g_package||'delete_form_tab_stacked_canvas';
133 begin
134 hr_utility.set_location('Entering:'|| l_proc, 10);
135 --
136 -- Issue a savepoint
137 --
138 savepoint delete_form_tab_stacked_canvas;
139 --
140 -- Call Before Process User Hook
141 --
142 begin
143 hr_fsc_api_bk2.delete_fsc_b
144 (p_form_tab_stacked_canvas_id => p_form_tab_stacked_canvas_id
145 ,p_object_version_number => p_object_version_number
146 );
147 exception
148 when hr_api.cannot_find_prog_unit then
149 hr_api.cannot_find_prog_unit_error
150 (p_module_name => 'delete_form_tab_stacked_canvas'
151 ,p_hook_type => 'BP'
152 );
153 end;
154
155 --
156 -- Process Logic
157 --
158 hr_fsc_del.del(
159 p_form_tab_stacked_canvas_id => p_form_tab_stacked_canvas_id
160 ,p_object_version_number => p_object_version_number);
161
162 --
163 -- Call After Process User Hook
164 --
165 begin
166 hr_fsc_api_bk2.delete_fsc_a
167 (p_form_tab_stacked_canvas_id => p_form_tab_stacked_canvas_id
168 ,p_object_version_number => p_object_version_number
169 );
170 exception
171 when hr_api.cannot_find_prog_unit then
172 hr_api.cannot_find_prog_unit_error
173 (p_module_name => 'delete_form_tab_stacked_canvas'
174 ,p_hook_type => 'AP'
175 );
176 end;
177 --
178 -- When in validation only mode raise the Validate_Enabled exception
179 --
180 if p_validate then
181 raise hr_api.validate_enabled;
182 end if;
183 --
184 hr_utility.set_location(' Leaving:'||l_proc, 70);
185 exception
186 when hr_api.validate_enabled then
187 --
188 -- As the Validate_Enabled exception has been raised
189 -- we must rollback to the savepoint
190 --
191 rollback to delete_form_tab_stacked_canvas;
192 --
193 -- Only set output warning arguments
194 -- (Any key or derived arguments must be set to null
195 -- when validation only mode is being used.)
196 hr_utility.set_location(' Leaving:'||l_proc, 80);
197 when others then
198 --
199 -- A validation or unexpected error has occured
200 --
201 rollback to delete_form_tab_stacked_canvas;
202 hr_utility.set_location(' Leaving:'||l_proc, 90);
203 raise;
204 end delete_form_tab_stacked_canvas;
205 --
206 end hr_fsc_api;