[Home] [Help]
PACKAGE BODY: APPS.JTF_DAC_ROLE_PERMS_PKG
Source
1 PACKAGE BODY JTF_DAC_ROLE_PERMS_PKG AS
2 /* $Header: jtfarpb.pls 120.2 2005/10/25 05:15:20 psanyal ship $ */
3
4 procedure INSERT_ROW(
5 X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
6 x_role_perm_id in number,
7 x_role_id in number,
8 x_permission_id in number,
9 x_base_object in varchar2,
10 x_base_object_type in varchar2,
11 x_start_active_date in date,
12 x_end_active_date in date,
13 x_object_version_number in number,
14 X_CREATION_DATE in DATE,
15 X_CREATED_BY in NUMBER,
16 X_LAST_UPDATE_DATE in DATE,
17 X_LAST_UPDATED_BY in NUMBER,
18 X_LAST_UPDATE_LOGIN in NUMBER
19 )IS
20
21 cursor C is select ROWID from JTF_DAC_ROLE_PERMS
22 where ROLE_PERM_ID = X_ROLE_PERM_ID;
23 BEGIN
24
25 insert into JTF_DAC_ROLE_PERMS(
26 ROLE_PERM_ID,
27 ROLE_ID,
28 PERMISSION_ID,
29 BASE_OBJECT,
30 BASE_OBJECT_TYPE,
31 START_ACTIVE_DATE,
32 END_ACTIVE_DATE,
33 OBJECT_VERSION_NUMBER,
34 CREATION_DATE,
35 CREATED_BY,
36 LAST_UPDATE_DATE,
37 LAST_UPDATED_BY,
38 LAST_UPDATE_LOGIN
39 ) values (
40 x_role_perm_id,
41 x_role_id,
42 x_permission_id,
43 x_base_object,
44 x_base_object_type,
45 x_start_active_date,
46 x_end_active_date,
47 x_object_version_number ,
48 X_CREATION_DATE,
49 X_CREATED_BY,
50 X_LAST_UPDATE_DATE,
51 X_LAST_UPDATED_BY,
52 X_LAST_UPDATE_LOGIN
53 );
54
55 open c;
56 fetch c into X_ROWID;
57 if (c%notfound) then
58 close c;
59 raise no_data_found;
60 end if;
61 close c;
62
63 END INSERT_ROW;
64
65
66
67
68 procedure UPDATE_ROW (
69 x_role_perm_id in number,
70 x_role_id in number,
71 x_permission_id in number,
72 x_base_object in varchar2,
73 x_base_object_type in varchar2,
74 x_start_active_date in date,
75 x_end_active_date in date,
76 x_object_version_number in number,
77 X_LAST_UPDATE_DATE in DATE,
78 X_LAST_UPDATED_BY in NUMBER,
79 X_LAST_UPDATE_LOGIN in NUMBER
80 ) is
81 begin
82
83 update JTF_DAC_ROLE_PERMS set
84 ROLE_PERM_ID = x_role_perm_id,
85 ROLE_ID = x_role_id,
86 PERMISSION_ID = x_permission_id,
87 BASE_OBJECT = x_base_object,
88 BASE_OBJECT_TYPE = x_base_object_type,
89 START_ACTIVE_DATE = x_start_active_date,
90 END_ACTIVE_DATE = x_end_active_date,
91 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
92 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
93 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
94 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
95
96 where ROLE_PERM_ID = X_ROLE_PERM_ID;
97
98 if (sql%notfound) then
99 raise no_data_found;
100 end if;
101
102 end UPDATE_ROW;
103
104
105 PROCEDURE TRANSLATE_ROW(
106 x_role_perm_id in number,
107 x_role_id in number,
108 x_permission_id in number,
109 x_base_object in varchar2,
110 x_base_object_type in varchar2,
111 x_start_active_date in date,
112 x_end_active_date in date,
113 x_object_version_number in number,
114 x_owner in varchar2
115 ) is
116
117 l_user_id number;
118
119 begin
120
121 if (x_owner = 'SEED') then
122 l_user_id := 1;
123 else
124 l_user_id := 0;
125 end if;
126
127 JTF_DAC_ROLE_PERMS_PKG.Update_Row(
128 X_ROLE_PERM_ID => X_ROLE_PERM_ID,
129 x_role_id => x_role_id,
130 x_permission_id => x_permission_id,
131 x_base_object => x_base_object,
132 x_base_object_type => x_base_object_type,
133 x_start_active_date => x_start_active_date,
134 x_end_active_date => x_end_active_date,
135 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
136 X_Last_Update_Date => sysdate,
137 X_Last_Updated_By => l_user_id,
138 X_Last_Update_Login => 0);
139
140 exception
141 when no_data_found then null;
142
143 end;
144
145
146 PROCEDURE LOAD_ROW(
147 x_role_perm_id in number,
148 x_role_id in number,
149 x_permission_id in number,
150 x_base_object in varchar2,
151 x_base_object_type in varchar2,
152 x_start_active_date in date,
153 x_end_active_date in date,
154 x_object_version_number in number,
155 x_owner in varchar2
156 ) is
157 l_user_id number;
158 l_rowid varchar2(100);
159
160 begin
161
162 if (x_owner = 'SEED') then
163 l_user_id := 1;
164 else
165 l_user_id := 0;
166 end if;
167
168 JTF_DAC_ROLE_PERMS_PKG.Update_Row(
169 X_ROLE_PERM_ID => X_ROLE_PERM_ID,
170 x_role_id => x_role_id,
171 x_permission_id => x_permission_id,
172 x_base_object => x_base_object,
173 x_base_object_type => x_base_object_type,
174 x_start_active_date => x_start_active_date,
175 x_end_active_date => x_end_active_date,
176 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
177 X_Last_Update_Date => sysdate,
178 X_Last_Updated_By => l_user_id,
179 X_Last_Update_Login => 0);
180
181 exception
182 when no_data_found then
183 JTF_DAC_ROLE_PERMS_PKG.Insert_Row(
184 X_Rowid => l_rowid,
185 X_ROLE_PERM_ID => X_ROLE_PERM_ID,
186 x_role_id => x_role_id,
187 x_permission_id => x_permission_id,
188 x_base_object => x_base_object,
189 x_base_object_type => x_base_object_type,
190 x_start_active_date => x_start_active_date,
191 x_end_active_date => x_end_active_date,
192 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
193 X_Creation_Date => sysdate,
194 X_Created_By => l_user_id,
195 X_Last_Update_Date => sysdate,
196 X_Last_Updated_By => l_user_id,
197 X_Last_Update_Login => 0);
198
199 end;
200
201
202 end JTF_DAC_ROLE_PERMS_PKG;