[Home] [Help]
PACKAGE BODY: APPS.HR_TRANSACTION_SNAPSHOT_SWI
Source
1 PACKAGE BODY HR_TRANSACTION_SNAPSHOT_SWI as
2 /* $Header: hrsnpswi.pkb 120.0 2005/05/31 02:52:51 appldev noship $ */
3 --
4 -- Package variables
5 --
6 g_date_format varchar2(10) := 'RRRR/MM/DD';
7 g_package varchar2(33) := 'HR_TRANSACTION_SNAPSHOT_SWI.';
8 g_debug boolean := hr_utility.debug_enabled;
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< create_transaction_snapshot >-------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 procedure create_transaction_snapshot
15 (
16 P_DOCUMENT IN CLOB
17 ,P_SNAPSHOT_ID IN OUT NOCOPY NUMBER
18 ,P_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER
19 ,P_OBJECT_NAME IN VARCHAR2
20 ,P_OBJECT_IDENTIFIER IN VARCHAR2
21 ,P_VALIDATE IN NUMBER default hr_api.g_false_num
22 )
23 --
24 is
25 l_proc varchar2(30) := 'create_transaction';
26 l_SNAPSHOT_ID hr_transaction_snapshot.SNAPSHOT_ID%type;
27 PRAGMA AUTONOMOUS_TRANSACTION;
28 begin
29
30 l_SNAPSHOT_ID := P_SNAPSHOT_ID;
31 hr_snp_ins.set_base_key_value(l_SNAPSHOT_ID);
32
33 hr_snp_ins.ins(
34 p_document => P_DOCUMENT
35 ,p_snapshot_id => P_SNAPSHOT_ID
36 ,p_object_version_number => P_OBJECT_VERSION_NUMBER
37 ,p_object_name => P_OBJECT_NAME
38 ,p_object_identifier => P_OBJECT_IDENTIFIER
39 );
40
41 If P_VALIDATE = hr_api.g_false_num Then
42 commit;
43 Else
44 rollback;
45 End If;
46
47 exception
48 when OTHERS then
49 rollback; -- to create_transaction;
50 raise;
51 end create_transaction_snapshot;
52
53 --
54 -- ----------------------------------------------------------------------------
55 -- |------------------------< update_transaction_snapshot >-------------------|
56 -- ----------------------------------------------------------------------------
57 --
58 procedure update_transaction_snapshot
59 (
60 P_DOCUMENT IN CLOB
61 ,P_SNAPSHOT_ID IN NUMBER
62 ,P_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER
63 ,P_OBJECT_NAME IN VARCHAR2
64 ,P_OBJECT_IDENTIFIER IN VARCHAR2
65 ,P_VALIDATE IN NUMBER default hr_api.g_false_num
66
67 )
68 --
69 is
70 l_proc varchar2(30) := 'update_transaction';
71 PRAGMA AUTONOMOUS_TRANSACTION;
72 begin
73 hr_snp_upd.upd(
74 p_document => P_DOCUMENT
75 ,p_snapshot_id => P_SNAPSHOT_ID
76 ,p_object_version_number => P_OBJECT_VERSION_NUMBER
77 ,p_object_name => P_OBJECT_NAME
78 ,p_object_identifier => P_OBJECT_IDENTIFIER
79
80 );
81 If P_VALIDATE = hr_api.g_false_num Then
82 commit;
83 Else
84 rollback;
85 End If;
86 exception
87 when OTHERS then
88 rollback; -- to create_transaction;
89 end update_transaction_snapshot;
90
91 --
92 -- ----------------------------------------------------------------------------
93 -- |------------------------< delete_transaction_snapshot >-------------------|
94 -- ----------------------------------------------------------------------------
95 --
96 procedure delete_transaction_snapshot
97 (
98 P_SNAPSHOT_ID IN NUMBER
99 ,P_OBJECT_VERSION_NUMBER IN NUMBER
100 )
101 --
102 is
103 l_proc varchar2(30) := 'delete_transaction';
104 PRAGMA AUTONOMOUS_TRANSACTION;
105 begin
106
107 hr_snp_del.del(
108 p_snapshot_id => P_SNAPSHOT_ID
109 ,p_object_version_number => P_OBJECT_VERSION_NUMBER
110 );
111 commit;
112 exception
113 when OTHERS then
114 rollback;
115 end delete_transaction_snapshot;
116 --
117 end hr_transaction_snapshot_swi;
118 --