1: Package Body PQH_DE_LEVEL_NUMBERS_API as
2: /* $Header: pqgvnapi.pkb 115.1 2002/11/27 23:43:53 rpasapul noship $ */
3: --
4: -- Package Variables
5: --
2: /* $Header: pqgvnapi.pkb 115.1 2002/11/27 23:43:53 rpasapul noship $ */
3: --
4: -- Package Variables
5: --
6: g_package varchar2(33) := 'PQH_DE_LEVEL_NUMBERS_API.';
7: --
8: -- ----------------------------------------------------------------------------
9: -- |--------------------------< Insert_LEVEL_NUMBERS >--------------------------|
10: -- ----------------------------------------------------------------------------
20: -- Declare cursors and local variables
21: --
22:
23: l_proc varchar2(72) := g_package||'Insert_LEVEL_NUMBERS';
24: l_object_Version_Number PQH_DE_LEVEL_NUMBERS.OBJECT_VERSION_NUMBER%TYPE;
25: L_Effective_Date Date;
26: l_LEVEL_NUMBER_ID PQH_DE_LEVEL_NUMBERS.LEVEL_NUMBER_ID%TYPE;
27:
28: begin
22:
23: l_proc varchar2(72) := g_package||'Insert_LEVEL_NUMBERS';
24: l_object_Version_Number PQH_DE_LEVEL_NUMBERS.OBJECT_VERSION_NUMBER%TYPE;
25: L_Effective_Date Date;
26: l_LEVEL_NUMBER_ID PQH_DE_LEVEL_NUMBERS.LEVEL_NUMBER_ID%TYPE;
27:
28: begin
29: hr_utility.set_location('Entering:'|| l_proc, 10);
30: --
38: --
39: -- Call Before Process User Hook
40: --
41: begin
42: PQH_DE_LEVEL_NUMBERS_BK1.Insert_LEVEL_NUMBERS_b
43: (p_effective_date => L_Effective_Date
44: ,p_LEVEL_NUMBER => p_LEVEL_NUMBER
45: ,P_DESCRIPTION => P_DESCRIPTION);
46:
70: --
71: begin
72:
73:
74: PQH_DE_LEVEL_NUMBERS_BK1.Insert_LEVEL_NUMBERS_a
75: (p_effective_date => L_Effective_Date
76: ,p_LEVEL_NUMBER => p_LEVEL_NUMBER
77: ,P_DESCRIPTION => P_DESCRIPTION
78: ,P_LEVEL_NUMBER_ID => l_LEVEL_NUMBER_ID
139: ,P_LEVEL_NUMBER_ID In Number
140: ,p_object_version_number IN out nocopy number) Is
141:
142: l_proc varchar2(72) := g_package||'Update_LEVEL_NUMBERS';
143: l_object_Version_Number PQH_DE_LEVEL_NUMBERS.OBJECT_VERSION_NUMBER%TYPE := P_Object_version_Number;
144: L_Effective_Date Date;
145:
146: Begin
147: hr_utility.set_location('Entering:'|| l_proc, 10);
158: --
159: begin
160:
161:
162: PQH_DE_LEVEL_NUMBERS_BK2.Update_LEVEL_NUMBERS_b
163: (p_effective_date => L_Effective_Date
164: ,p_LEVEL_NUMBER => p_LEVEL_NUMBER
165: ,P_DESCRIPTION => P_DESCRIPTION
166: ,P_LEVEL_NUMBER_ID => p_LEVEL_NUMBER_ID
188: --
189: begin
190:
191:
192: PQH_DE_LEVEL_NUMBERS_BK2.Update_LEVEL_NUMBERS_a
193: (p_effective_date => L_Effective_Date
194: ,p_LEVEL_NUMBER => p_LEVEL_NUMBER
195: ,P_DESCRIPTION => P_DESCRIPTION
196: ,P_LEVEL_NUMBER_ID => p_LEVEL_NUMBER_ID
268: begin
269:
270:
271:
272: PQH_DE_LEVEL_NUMBERS_BK3.Delete_LEVEL_NUMBERS_b
273: (p_LEVEL_NUMBER_Id => p_LEVEL_NUMBER_Id
274: ,p_object_version_number => p_object_version_number);
275: exception
276: when hr_api.cannot_find_prog_unit then
289: -- Call After Process User Hook
290: --
291: begin
292:
293: PQH_DE_LEVEL_NUMBERS_BK3.Delete_LEVEL_NUMBERS_a
294: (p_LEVEL_NUMBER_Id => p_LEVEL_NUMBER_Id
295: ,p_object_version_number => p_object_version_number);
296:
297: exception
331: hr_utility.set_location(' Leaving:'||l_proc, 90);
332: raise;
333: end delete_LEVEL_NUMBERS;
334:
335: end PQH_DE_LEVEL_NUMBERS_API;