DBA Data[Home] [Help]

PACKAGE BODY: APPS.PQH_BCE_DEL

Source


1 Package Body pqh_bce_del as
2 /* $Header: pqbcerhi.pkb 115.7 2004/04/28 17:17:08 rthiagar ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  pqh_bce_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 --      perform dml).
19 --   2) To delete the specified row from the schema using the primary key in
20 --      the predicates.
21 --   3) To trap any constraint violations that may have occurred.
22 --   4) To raise any other errors.
23 --
24 -- Prerequisites:
25 --   This is an internal private procedure which must be called from the del
26 --   procedure.
27 --
28 -- In Parameters:
29 --   A Pl/Sql record structre.
30 --
31 -- Post Success:
32 --   The specified row will be delete from the schema.
33 --
34 -- Post Failure:
35 --   On the delete dml failure it is important to note that we always reset the
36 --   If a child integrity constraint violation is raised the
37 --   constraint_error procedure will be called.
38 --   If any other error is reported, the error will be raised after the
39 --
40 -- Developer Implementation Notes:
41 --   None.
42 --
43 -- Access Status:
44 --   Internal Row Handler Use Only.
45 --
46 -- {End Of Comments}
47 -- ----------------------------------------------------------------------------
48 Procedure delete_dml(p_rec in pqh_bce_shd.g_rec_type) is
49 --
50   l_proc  varchar2(72) := g_package||'delete_dml';
51 --
52 Begin
53   hr_utility.set_location('Entering:'||l_proc, 5);
54   --
55   --
56   -- Delete the pqh_bdgt_cmmtmnt_elmnts row.
57   --
58   delete from pqh_bdgt_cmmtmnt_elmnts
59   where bdgt_cmmtmnt_elmnt_id = p_rec.bdgt_cmmtmnt_elmnt_id;
60   --
61   --
62   hr_utility.set_location(' Leaving:'||l_proc, 10);
63 --
64 Exception
65   When hr_api.child_integrity_violated then
66     -- Child integrity has been violated
67     pqh_bce_shd.constraint_error
68       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
69   When Others Then
70     Raise;
71 End delete_dml;
72 --
73 -- ----------------------------------------------------------------------------
74 -- |------------------------------< pre_delete >------------------------------|
75 -- ----------------------------------------------------------------------------
76 -- {Start Of Comments}
77 --
78 -- Description:
79 --   This private procedure contains any processing which is required before
80 --   the delete dml.
81 --
82 -- Prerequisites:
83 --   This is an internal procedure which is called from the del procedure.
84 --
85 -- In Parameters:
86 --   A Pl/Sql record structre.
87 --
88 -- Post Success:
89 --   Processing continues.
90 --
91 -- Post Failure:
92 --   If an error has occurred, an error message and exception will be raised
93 --   but not handled.
94 --
95 -- Developer Implementation Notes:
96 --   Any pre-processing required before the delete dml is issued should be
97 --   coded within this procedure. It is important to note that any 3rd party
98 --   maintenance should be reviewed before placing in this procedure.
99 --
100 -- Access Status:
101 --   Internal Row Handler Use Only.
102 --
103 -- {End Of Comments}
104 -- ----------------------------------------------------------------------------
105 Procedure pre_delete(p_rec in pqh_bce_shd.g_rec_type) is
106 --
107   l_proc  varchar2(72) := g_package||'pre_delete';
108 --
109 Begin
110   hr_utility.set_location('Entering:'||l_proc, 5);
111   --
112   hr_utility.set_location(' Leaving:'||l_proc, 10);
113 End pre_delete;
114 --
115 -- ----------------------------------------------------------------------------
116 -- |-----------------------------< post_delete >------------------------------|
117 -- ----------------------------------------------------------------------------
118 -- {Start Of Comments}
119 --
120 -- Description:
121 --   This private procedure contains any processing which is required after the
122 --   delete dml.
123 --
124 -- Prerequisites:
125 --   This is an internal procedure which is called from the del procedure.
126 --
127 -- In Parameters:
128 --   A Pl/Sql record structre.
129 --
130 -- Post Success:
131 --   Processing continues.
132 --
133 -- Post Failure:
134 --   If an error has occurred, an error message and exception will be raised
135 --   but not handled.
136 --
137 -- Developer Implementation Notes:
138 --   Any post-processing required after the delete dml is issued should be
139 --   coded within this procedure. It is important to note that any 3rd party
140 --   maintenance should be reviewed before placing in this procedure.
141 --
142 -- Access Status:
143 --   Internal table Handler Use Only.
144 --
145 -- {End Of Comments}
146 -- ----------------------------------------------------------------------------
147 Procedure post_delete(
148 p_effective_date in date,p_rec in pqh_bce_shd.g_rec_type) is
149 --
150   l_proc  varchar2(72) := g_package||'post_delete';
151 --
152 Begin
153   hr_utility.set_location('Entering:'||l_proc, 5);
154 --
155   --
156   -- Start of API User Hook for post_delete.
157   --
158   begin
159     --
160     pqh_bce_rkd.after_delete
161       (
162   p_bdgt_cmmtmnt_elmnt_id         =>p_rec.bdgt_cmmtmnt_elmnt_id
163  ,p_budget_id_o                   =>pqh_bce_shd.g_old_rec.budget_id
164  ,p_actual_commitment_type_o      =>pqh_bce_shd.g_old_rec.actual_commitment_type
165  ,p_element_type_id_o             =>pqh_bce_shd.g_old_rec.element_type_id
166  ,p_salary_basis_flag_o           =>pqh_bce_shd.g_old_rec.salary_basis_flag
167  ,p_element_input_value_id_o      =>pqh_bce_shd.g_old_rec.element_input_value_id
168  ,p_balance_type_id_o             =>pqh_bce_shd.g_old_rec.balance_type_id
169  ,p_frequency_input_value_id_o    =>pqh_bce_shd.g_old_rec.frequency_input_value_id
170  ,p_formula_id_o                  =>pqh_bce_shd.g_old_rec.formula_id
171  ,p_dflt_elmnt_frequency_o        =>pqh_bce_shd.g_old_rec.dflt_elmnt_frequency
172  ,p_overhead_percentage_o         =>pqh_bce_shd.g_old_rec.overhead_percentage
173  ,p_object_version_number_o       =>pqh_bce_shd.g_old_rec.object_version_number
174       );
175     --
176   exception
177     --
178     when hr_api.cannot_find_prog_unit then
179       --
180       hr_api.cannot_find_prog_unit_error
181         (p_module_name => 'pqh_bdgt_cmmtmnt_elmnts'
182         ,p_hook_type   => 'AD');
183       --
184   end;
185   --
186   -- End of API User Hook for post_delete.
187   --
188   --
189   hr_utility.set_location(' Leaving:'||l_proc, 10);
190 End post_delete;
191 --
192 -- ----------------------------------------------------------------------------
193 -- |---------------------------------< del >----------------------------------|
194 -- ----------------------------------------------------------------------------
195 Procedure del
196   (
197   p_effective_date in date,
198   p_rec	      in pqh_bce_shd.g_rec_type
199   ) is
200 --
201   l_proc  varchar2(72) := g_package||'del';
202 --
203 Begin
204   hr_utility.set_location('Entering:'||l_proc, 5);
205   --
206   -- We must lock the row which we need to delete.
207   --
208   pqh_bce_shd.lck
209 	(
210 	p_rec.bdgt_cmmtmnt_elmnt_id,
211 	p_rec.object_version_number
212 	);
213   --
214   -- Call the supporting delete validate operation
215   --
216   pqh_bce_bus.delete_validate(p_rec
217   ,p_effective_date);
218   --
219   -- Call the supporting pre-delete operation
220   --
221   pre_delete(p_rec);
222   --
223   -- Delete the row.
224   --
225   delete_dml(p_rec);
226   --
227   -- Call the supporting post-delete operation
228   --
229   post_delete(
230 p_effective_date,p_rec);
231 End del;
232 --
233 -- ----------------------------------------------------------------------------
234 -- |---------------------------------< del >----------------------------------|
235 -- ----------------------------------------------------------------------------
236 Procedure del
237   (
238   p_effective_date in date,
239   p_bdgt_cmmtmnt_elmnt_id              in number,
240   p_object_version_number              in number
241   ) is
242 --
243   l_rec	  pqh_bce_shd.g_rec_type;
244   l_proc  varchar2(72) := g_package||'del';
245 --
246 Begin
247   hr_utility.set_location('Entering:'||l_proc, 5);
248   --
249   -- As the delete procedure accepts a plsql record structure we do need to
250   -- convert the  arguments into the record structure.
251   -- We don't need to call the supplied conversion argument routine as we
252   -- only need a few attributes.
253   --
254   l_rec.bdgt_cmmtmnt_elmnt_id:= p_bdgt_cmmtmnt_elmnt_id;
255   l_rec.object_version_number := p_object_version_number;
256   --
257   -- Having converted the arguments into the pqh_bce_rec
258   -- plsql record structure we must call the corresponding entity
259   -- business process
260   --
261   del(
262     p_effective_date,l_rec);
263   --
264   hr_utility.set_location(' Leaving:'||l_proc, 10);
265 End del;
266 --
267 end pqh_bce_del;