DBA Data[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;