46: --
47: l_proc varchar2(72) := g_package||'delete_dml';
48: --
49: Begin
50: hr_utility.set_location('Entering:'||l_proc, 5);
51: --
52: --
53: -- Delete the pqh_budgets row.
54: --
55: delete from pqh_budgets
56: where budget_id = p_rec.budget_id;
57: --
58: --
59: hr_utility.set_location(' Leaving:'||l_proc, 10);
60: --
61: Exception
62: When hr_api.child_integrity_violated then
63: -- Child integrity has been violated
110: from pqh_budgets
111: where budget_id = p_budget_id;
112: --
113: Begin
114: hr_utility.set_location('Entering:'||l_proc, 5);
115: --
116: --
117: OPEN csr_budget(p_budget_id => p_rec.budget_id);
118: FETCH csr_budget INTO l_budgets_rec;
118: FETCH csr_budget INTO l_budgets_rec;
119: CLOSE csr_budget;
120:
121:
122: hr_utility.set_location('Status :'||l_budgets_rec.status, 6);
123:
124: IF NVL(l_budgets_rec.status,'X') = 'FROZEN' THEN
125: --
126: -- raise error as you cannot delete frozen budget
123:
124: IF NVL(l_budgets_rec.status,'X') = 'FROZEN' THEN
125: --
126: -- raise error as you cannot delete frozen budget
127: hr_utility.set_message(8302,'PQH_FROZEN_BUDGET');
128: hr_utility.raise_error;
129: --
130: ELSE
131: --
124: IF NVL(l_budgets_rec.status,'X') = 'FROZEN' THEN
125: --
126: -- raise error as you cannot delete frozen budget
127: hr_utility.set_message(8302,'PQH_FROZEN_BUDGET');
128: hr_utility.raise_error;
129: --
130: ELSE
131: --
132: -- delete the record in pqh_budget_versions
143: --
144: END IF;
145:
146: --
147: hr_utility.set_location(' Leaving:'||l_proc, 10);
148: End pre_delete;
149: --
150: -- ----------------------------------------------------------------------------
151: -- |-----------------------------< post_delete >------------------------------|
184: --
185: l_proc varchar2(72) := g_package||'post_delete';
186: --
187: Begin
188: hr_utility.set_location('Entering:'||l_proc, 5);
189: --
190: --
191: -- Start of API User Hook for post_delete.
192: --
235: --
236: -- End of API User Hook for post_delete.
237: --
238: --
239: hr_utility.set_location(' Leaving:'||l_proc, 10);
240: End post_delete;
241: --
242: -- ----------------------------------------------------------------------------
243: -- |---------------------------------< del >----------------------------------|
250: --
251: l_proc varchar2(72) := g_package||'del';
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: --
256: -- We must lock the row which we need to delete.
257: --
258: pqh_bgt_shd.lck
293: l_rec pqh_bgt_shd.g_rec_type;
294: l_proc varchar2(72) := g_package||'del';
295: --
296: Begin
297: hr_utility.set_location('Entering:'||l_proc, 5);
298: --
299: -- As the delete procedure accepts a plsql record structure we do need to
300: -- convert the arguments into the record structure.
301: -- We don't need to call the supplied conversion argument routine as we
310: --
311: del(
312: p_effective_date,l_rec);
313: --
314: hr_utility.set_location(' Leaving:'||l_proc, 10);
315: End del;
316: --
317: end pqh_bgt_del;