1: Package Body PQH_DE_OPERATIONS_API as
2: /* $Header: pqoplapi.pkb 115.1 2002/12/03 00:09:25 rpasapul noship $ */
3: --
4: -- Package Variables
5: --
2: /* $Header: pqoplapi.pkb 115.1 2002/12/03 00:09:25 rpasapul noship $ */
3: --
4: -- Package Variables
5: --
6: g_package varchar2(33) := 'PQH_DE_OPERATIONS_API.';
7: --
8: -- ----------------------------------------------------------------------------
9: -- |--------------------------< Insert_OPERATIONS >--------------------------|
10: -- ----------------------------------------------------------------------------
20: -- Declare cursors and local variables
21: --
22:
23: l_proc varchar2(72) := g_package||'Insert_OPERATIONS';
24: l_object_Version_Number PQH_DE_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
25: L_Effective_Date Date;
26: l_OPERATION_ID PQH_DE_OPERATIONS.OPERATION_ID%TYPE;
27:
28: l_operation_Number PQH_DE_OPERATIONS.OPERATION_NUMBER%TYPE;
22:
23: l_proc varchar2(72) := g_package||'Insert_OPERATIONS';
24: l_object_Version_Number PQH_DE_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
25: L_Effective_Date Date;
26: l_OPERATION_ID PQH_DE_OPERATIONS.OPERATION_ID%TYPE;
27:
28: l_operation_Number PQH_DE_OPERATIONS.OPERATION_NUMBER%TYPE;
29:
30: begin
24: l_object_Version_Number PQH_DE_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
25: L_Effective_Date Date;
26: l_OPERATION_ID PQH_DE_OPERATIONS.OPERATION_ID%TYPE;
27:
28: l_operation_Number PQH_DE_OPERATIONS.OPERATION_NUMBER%TYPE;
29:
30: begin
31: hr_utility.set_location('Entering:'|| l_proc, 10);
32: --
41: -- Call Before Process User Hook
42: --
43:
44: begin
45: PQH_DE_OPERATIONS_BK1.Insert_OPERATIONS_b
46: (p_effective_date => L_Effective_Date
47: ,p_OPERATION_NUMBER => l_OPERATION_NUMBER
48: ,P_DESCRIPTION => P_DESCRIPTION );
49:
73: --
74: begin
75:
76:
77: PQH_DE_OPERATIONS_BK1.Insert_OPERATIONS_a
78: (p_effective_date => L_Effective_Date
79: ,p_OPERATION_NUMBER => l_OPERATION_NUMBER
80: ,P_DESCRIPTION => P_DESCRIPTION
81: ,P_OPERATION_ID => l_OPERATION_ID
143: ,P_OPERATION_ID In Number
144: ,p_object_version_number in out nocopy number) Is
145:
146: l_proc varchar2(72) := g_package||'Update_OPERATIONS';
147: l_object_Version_Number PQH_DE_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE := P_Object_version_Number;
148: L_Effective_Date Date;
149:
150: Begin
151: hr_utility.set_location('Entering:'|| l_proc, 10);
162: --
163: begin
164:
165:
166: PQH_DE_OPERATIONS_BK2.Update_OPERATIONS_b
167: (p_effective_date => L_Effective_Date
168: ,p_OPERATION_NUMBER => p_OPERATION_NUMBER
169: ,P_DESCRIPTION => P_DESCRIPTION
170: ,P_OPERATION_ID => p_OPERATION_ID
192: --
193: begin
194:
195:
196: PQH_DE_OPERATIONS_BK2.Update_OPERATIONS_a
197: (p_effective_date => L_Effective_Date
198: ,p_OPERATION_NUMBER => p_OPERATION_NUMBER
199: ,P_DESCRIPTION => P_DESCRIPTION
200: ,P_OPERATION_ID => p_OPERATION_ID
267: --
268: -- Call Before Process User Hook
269: --
270: begin
271: PQH_DE_OPERATIONS_BK3.Delete_OPERATIONS_b
272: (p_OPERATION_Id => p_OPERATION_Id
273: ,p_object_version_number => p_object_version_number);
274: exception
275: when hr_api.cannot_find_prog_unit then
288: -- Call After Process User Hook
289: --
290: begin
291:
292: PQH_DE_OPERATIONS_BK3.Delete_OPERATIONS_a
293: (p_OPERATION_Id => p_OPERATION_Id
294: ,p_object_version_number => p_object_version_number);
295:
296: exception
330: hr_utility.set_location(' Leaving:'||l_proc, 90);
331: raise;
332: end delete_OPERATIONS;
333:
334: end PQH_DE_OPERATIONS_API;