DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_FGT_DEL

Source


1 Package Body hr_fgt_del as
2 /* $Header: hrfgtrhi.pkb 115.3 2002/12/03 11:09:48 hjonnala noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  hr_fgt_del.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< delete_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 --   This procedure controls the actual dml delete logic. The functions of
17 --   this procedure are as follows:
18 --   1) To set and unset the g_api_dml status as required (as we are about to
19 --      perform dml).
20 --   2) To delete the specified row from the schema using the primary key in
21 --      the predicates.
22 --   3) To trap any constraint violations that may have occurred.
23 --   4) To raise any other errors.
24 --
25 -- Prerequisites:
26 --   This is an internal private procedure which must be called from the del
27 --   procedure.
28 --
29 -- In Parameters:
30 --   A Pl/Sql record structre.
31 --
32 -- Post Success:
33 --   The specified row will be delete from the schema.
34 --
35 -- Post Failure:
36 --   On the delete dml failure it is important to note that we always reset the
37 --   g_api_dml status to false.
38 --   If a child integrity constraint violation is raised the
39 --   constraint_error procedure will be called.
40 --   If any other error is reported, the error will be raised after the
41 --   g_api_dml status is reset.
42 --
43 -- Developer Implementation Notes:
44 --   None.
45 --
46 -- Access Status:
47 --   Internal Row Handler Use Only.
48 --
49 -- {End Of Comments}
50 -- ----------------------------------------------------------------------------
51 Procedure delete_dml
52   (p_rec in hr_fgt_shd.g_rec_type
53   ) is
54 --
55   l_proc  varchar2(72) := g_package||'delete_dml';
56 --
57 Begin
58   hr_utility.set_location('Entering:'||l_proc, 5);
59   --
60   --
61   --
62   -- Delete the hr_form_data_groups_tl row.
63   --
64   delete from hr_form_data_groups_tl
65   where form_data_group_id = p_rec.form_data_group_id
66     and language = p_rec.language;
67   --
68   --
69   --
70   hr_utility.set_location(' Leaving:'||l_proc, 10);
71 --
72 Exception
73   When hr_api.child_integrity_violated then
74     -- Child integrity has been violated
75     --
76     hr_fgt_shd.constraint_error
77       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78   When Others Then
79     --
80     Raise;
81 End delete_dml;
82 --
83 -- ----------------------------------------------------------------------------
84 -- |------------------------------< pre_delete >------------------------------|
85 -- ----------------------------------------------------------------------------
86 -- {Start Of Comments}
87 --
88 -- Description:
89 --   This private procedure contains any processing which is required before
90 --   the delete dml.
91 --
92 -- Prerequisites:
93 --   This is an internal procedure which is called from the del procedure.
94 --
95 -- In Parameters:
96 --   A Pl/Sql record structre.
97 --
98 -- Post Success:
99 --   Processing continues.
100 --
101 -- Post Failure:
102 --   If an error has occurred, an error message and exception will be raised
103 --   but not handled.
104 --
105 -- Developer Implementation Notes:
106 --   Any pre-processing required before the delete dml is issued should be
107 --   coded within this procedure. It is important to note that any 3rd party
108 --   maintenance should be reviewed before placing in this procedure.
109 --
110 -- Access Status:
111 --   Internal Row Handler Use Only.
112 --
113 -- {End Of Comments}
114 -- ----------------------------------------------------------------------------
115 Procedure pre_delete(p_rec in hr_fgt_shd.g_rec_type) is
116 --
117   l_proc  varchar2(72) := g_package||'pre_delete';
118 --
119 Begin
120   hr_utility.set_location('Entering:'||l_proc, 5);
121   --
122   hr_utility.set_location(' Leaving:'||l_proc, 10);
123 End pre_delete;
124 --
125 -- ----------------------------------------------------------------------------
126 -- |-----------------------------< post_delete >------------------------------|
127 -- ----------------------------------------------------------------------------
128 -- {Start Of Comments}
129 --
130 -- Description:
131 --   This private procedure contains any processing which is required after the
132 --   delete dml.
133 --
134 -- Prerequistes:
135 --   This is an internal procedure which is called from the del procedure.
136 --
137 -- In Parameters:
138 --   A Pl/Sql record structure.
139 --
140 -- Post Success:
141 --   Processing continues.
142 --
143 -- Post Failure:
144 --   If an error has occurred, an error message and exception will be raised
145 --   but not handled.
146 --
147 -- Developer Implementation Notes:
148 --   Any post-processing required after the delete dml is issued should be
149 --   coded within this procedure. It is important to note that any 3rd party
150 --   maintenance should be reviewed before placing in this procedure.
151 --
152 -- Access Status:
153 --   Internal Row Handler Use Only.
154 --
155 -- {End Of Comments}
156 -- -----------------------------------------------------------------------------
157 Procedure post_delete(p_rec in hr_fgt_shd.g_rec_type) is
158 --
159   l_proc  varchar2(72) := g_package||'post_delete';
160 --
161 Begin
162   hr_utility.set_location('Entering:'||l_proc, 5);
163     begin
164     --
165     hr_fgt_rkd.after_delete
166       (p_form_data_group_id
167       => p_rec.form_data_group_id
168       ,p_language
169       => p_rec.language
170       ,p_source_lang_o
171       => hr_fgt_shd.g_old_rec.source_lang
172       ,p_user_data_group_name_o
173       => hr_fgt_shd.g_old_rec.user_data_group_name
174       ,p_description_o
175       => hr_fgt_shd.g_old_rec.description
176       );
177     --
178   exception
179     --
180     when hr_api.cannot_find_prog_unit then
181       --
182       hr_api.cannot_find_prog_unit_error
183         (p_module_name => 'HR_FORM_DATA_GROUPS_TL'
184         ,p_hook_type   => 'AD');
185       --
186   end;
187   --
188   hr_utility.set_location(' Leaving:'||l_proc, 10);
189 End post_delete;
190 --
191 -- ----------------------------------------------------------------------------
192 -- |---------------------------------< del >----------------------------------|
193 -- ----------------------------------------------------------------------------
194 Procedure del
195   (p_rec	      in hr_fgt_shd.g_rec_type
196   ) is
197 --
198   l_proc  varchar2(72) := g_package||'del';
199 --
200 Begin
201   hr_utility.set_location('Entering:'||l_proc, 5);
202   --
203   -- We must lock the row which we need to delete.
204   --
205   hr_fgt_shd.lck
206     (p_rec.form_data_group_id
207     ,p_rec.language
208     );
209   --
210   -- Call the supporting delete validate operation
211   --
212   hr_fgt_bus.delete_validate(p_rec);
213   --
214   -- Call the supporting pre-delete operation
215   --
216   hr_fgt_del.pre_delete(p_rec);
217   --
218   -- Delete the row.
219   --
220   hr_fgt_del.delete_dml(p_rec);
221   --
222   -- Call the supporting post-delete operation
223   --
224   hr_fgt_del.post_delete(p_rec);
225   --
226 End del;
227 --
228 -- ----------------------------------------------------------------------------
229 -- |---------------------------------< del >----------------------------------|
230 -- ----------------------------------------------------------------------------
231 Procedure del
232   (p_form_data_group_id                   in     number
233   ,p_language                             in     varchar2
234   ) is
235 --
236   l_rec	  hr_fgt_shd.g_rec_type;
237   l_proc  varchar2(72) := g_package||'del';
238 --
239 Begin
240   hr_utility.set_location('Entering:'||l_proc, 5);
241   --
242   -- As the delete procedure accepts a plsql record structure we do need to
243   -- convert the  arguments into the record structure.
244   -- We don't need to call the supplied conversion argument routine as we
245   -- only need a few attributes.
246   --
247   l_rec.form_data_group_id := p_form_data_group_id;
248   l_rec.language := p_language;
249   --
250   --
251   -- Having converted the arguments into the hr_fgt_rec
252   -- plsql record structure we must call the corresponding entity
253   -- business process
254   --
255   hr_fgt_del.del(l_rec);
256   --
257   hr_utility.set_location(' Leaving:'||l_proc, 10);
258 End del;
259 --
260 -- ----------------------------------------------------------------------------
261 -- |------------------------------< del_tl >----------------------------------|
262 -- ----------------------------------------------------------------------------
263 Procedure del_tl
264   (p_form_data_group_id                   in number
265   ) is
266   --
267   -- Cursor to obtain all the translation rows.
268   --
269   cursor csr_del_langs is
270     select fgt.language
271       from hr_form_data_groups_tl fgt
272      where fgt.form_data_group_id = p_form_data_group_id;
273   --
274   l_proc  varchar2(72) := g_package||'del_tl';
275   --
276 Begin
277   hr_utility.set_location('Entering:'||l_proc,10);
278   --
279   -- Delete all the translated rows
280   --
281   for l_lang in csr_del_langs loop
282     hr_fgt_del.del
283       (p_form_data_group_id          => p_form_data_group_id
284       ,p_language                    => l_lang.language
285       );
286   end loop;
287   --
288   hr_utility.set_location(' Leaving:'||l_proc,20);
289 End del_tl;
290 --
291 end hr_fgt_del;