eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.JTF_DAC_ROLE_PERM_CRIT_PKG

Source


1 PACKAGE BODY JTF_DAC_ROLE_PERM_CRIT_PKG AS
2 /* $Header: jtfapcb.pls 120.2 2005/10/25 05:14:19 psanyal ship $ */
3 
4 procedure INSERT_ROW(
5   X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
6   x_role_perm_crit_id in number,
7   x_role_perm_id in number,
8   x_criteria_id in number,
9   x_jtf_auth_principal_id in number,
10   x_jtf_auth_permission_id in number,
11   x_principal_name in varchar2,
12   x_permission_name in varchar2,
13   x_base_object in varchar2,
14   x_base_object_type in varchar2,
15   x_start_active_date in date,
16   x_end_active_date in date,
17   x_property_name in varchar2,
18   x_operator in varchar2,
19   x_property_value in varchar2,
20   x_property_value_type in varchar2,
21   x_object_version_number in number,
22   X_CREATION_DATE in DATE,
23   X_CREATED_BY in NUMBER,
24   X_LAST_UPDATE_DATE in DATE,
25   X_LAST_UPDATED_BY in NUMBER,
26   X_LAST_UPDATE_LOGIN in NUMBER
27 ) IS
28 
29   cursor C is select ROWID from JTF_DAC_ROLE_PERM_CRIT
30     where ROLE_PERM_CRIT_ID = X_ROLE_PERM_CRIT_ID;
31 BEGIN
32 
33   insert into JTF_DAC_ROLE_PERM_CRIT(
34     ROLE_PERM_CRIT_ID,
35     ROLE_PERM_ID,
36     CRITERIA_ID,
37     JTF_AUTH_PRINCIPAL_ID,
38     JTF_AUTH_PERMISSION_ID,
39     PRINCIPAL_NAME,
40     PERMISSION_NAME,
41     BASE_OBJECT,
42     BASE_OBJECT_TYPE,
43     START_ACTIVE_DATE,
44     END_ACTIVE_DATE,
45     PROPERTY_NAME,
46     OPERATOR,
47     PROPERTY_VALUE,
48     PROPERTY_VALUE_TYPE,
49     OBJECT_VERSION_NUMBER,
50     CREATION_DATE,
51     CREATED_BY,
52     LAST_UPDATE_DATE,
53     LAST_UPDATED_BY,
54     LAST_UPDATE_LOGIN
55   ) values (
56    x_role_perm_crit_id,
57    x_role_perm_id,
58    x_criteria_id,
59    x_jtf_auth_principal_id,
60    x_jtf_auth_permission_id,
61    x_principal_name,
62    x_permission_name,
63    x_base_object,
64    x_base_object_type,
65    x_start_active_date,
66    x_end_active_date,
67    x_property_name,
68    x_operator,
69    x_property_value,
70    x_property_value_type,
71    x_object_version_number,
72    X_CREATION_DATE,
73    X_CREATED_BY,
74    X_LAST_UPDATE_DATE,
75    X_LAST_UPDATED_BY,
76    X_LAST_UPDATE_LOGIN
77   );
78 
79   open c;
80   fetch c into X_ROWID;
81   if (c%notfound) then
82     close c;
83     raise no_data_found;
84   end if;
85   close c;
86 
87 END INSERT_ROW;
88 
89 
90 
91 
92 procedure UPDATE_ROW (
93   x_role_perm_crit_id in number,
94   x_role_perm_id in number,
95   x_criteria_id in number,
96   x_jtf_auth_principal_id in number,
97   x_jtf_auth_permission_id in number,
98   x_principal_name in varchar2,
99   x_permission_name in varchar2,
100   x_base_object in varchar2,
101   x_base_object_type in varchar2,
102   x_start_active_date in date,
103   x_end_active_date in date,
104   x_property_name in varchar2,
105   x_operator in varchar2,
106   x_property_value in varchar2,
107   x_property_value_type in varchar2,
108   x_object_version_number in number,
109   X_LAST_UPDATE_DATE in DATE,
110   X_LAST_UPDATED_BY in NUMBER,
111   X_LAST_UPDATE_LOGIN in NUMBER
112 )is
113 begin
114 
115   update JTF_DAC_ROLE_PERM_CRIT set
116     role_perm_crit_id = x_role_perm_crit_id,
117     role_perm_id = x_role_perm_id,
118     criteria_id = x_criteria_id,
119     jtf_auth_principal_id = x_jtf_auth_principal_id,
120     jtf_auth_permission_id = x_jtf_auth_permission_id,
121     principal_name = x_principal_name,
122     permission_name = x_permission_name,
123     base_object = x_base_object,
124     base_object_type = x_base_object,
125     start_active_date = x_start_active_date,
126     end_active_date = x_end_active_date,
127     property_name = x_property_name,
128     operator = x_operator,
129     property_value = x_property_value,
130     property_value_type = x_property_value_type,
131     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
132     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
133     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
134     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
135 
136     where ROLE_PERM_CRIT_ID = X_ROLE_PERM_CRIT_ID;
137 
138   if (sql%notfound) then
139     raise no_data_found;
140   end if;
141 
142 end UPDATE_ROW;
143 
144 
145 PROCEDURE TRANSLATE_ROW(
146   x_role_perm_crit_id in number,
147   x_role_perm_id in number,
148   x_criteria_id in number,
149   x_jtf_auth_principal_id in number,
150   x_jtf_auth_permission_id in number,
151   x_principal_name in varchar2,
152   x_permission_name in varchar2,
153   x_base_object in varchar2,
154   x_base_object_type in varchar2,
155   x_start_active_date in date,
156   x_end_active_date in date,
157   x_property_name in varchar2,
158   x_operator in varchar2,
159   x_property_value in varchar2,
160   x_property_value_type in varchar2,
161   x_object_version_number in number,
162   x_owner in varchar2
163 ) is
164 
165    l_user_id number;
166 
167 begin
168 
169     if (x_owner = 'SEED') then
170            l_user_id := 1;
171     else
172            l_user_id := 0;
173     end if;
174 
175     JTF_DAC_ROLE_PERM_CRIT_PKG.Update_Row(
176     x_role_perm_crit_id => x_role_perm_crit_id,
177     x_role_perm_id => x_role_perm_id,
178     x_criteria_id => x_criteria_id,
179     x_jtf_auth_principal_id => x_jtf_auth_principal_id,
180     x_jtf_auth_permission_id => x_jtf_auth_permission_id,
181     x_principal_name => x_principal_name,
182     x_permission_name => x_permission_name,
183     x_base_object => x_base_object,
184     x_base_object_type => x_base_object_type,
185     x_start_active_date => x_start_active_date,
186     x_end_active_date => x_end_active_date,
187     x_property_name => x_property_name,
188     x_operator => x_operator,
189     x_property_value => x_property_value,
190     x_property_value_type => x_property_value_type,
191     X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
192     X_Last_Update_Date => sysdate,
193     X_Last_Updated_By => l_user_id,
194     X_Last_Update_Login => 0);
195 
196     exception
197       when no_data_found then null;
198 
199 end;
200 
201 
202 PROCEDURE LOAD_ROW(
203   x_role_perm_crit_id in number,
204   x_role_perm_id in number,
205   x_criteria_id in number,
206   x_jtf_auth_principal_id in number,
207   x_jtf_auth_permission_id in number,
208   x_principal_name in varchar2,
209   x_permission_name in varchar2,
210   x_base_object in varchar2,
211   x_base_object_type in varchar2,
212   x_start_active_date in date,
213   x_end_active_date in date,
214   x_property_name in varchar2,
215   x_operator in varchar2,
216   x_property_value in varchar2,
217   x_property_value_type in varchar2,
218   x_object_version_number in number,
219   x_owner in varchar2
220 )is
221     l_user_id number;
222     l_rowid varchar2(100);
223 begin
224 
225     if (x_owner = 'SEED') then
226            l_user_id := 1;
227     else
228            l_user_id := 0;
229     end if;
230 
231    JTF_DAC_ROLE_PERM_CRIT_PKG.Update_Row(
232     x_role_perm_crit_id => x_role_perm_crit_id,
233     x_role_perm_id => x_role_perm_id,
234     x_criteria_id => x_criteria_id,
235     x_jtf_auth_principal_id => x_jtf_auth_principal_id,
236     x_jtf_auth_permission_id => x_jtf_auth_permission_id,
237     x_principal_name => x_principal_name,
238     x_permission_name => x_permission_name,
239     x_base_object => x_base_object,
240     x_base_object_type => x_base_object_type,
241     x_start_active_date => x_start_active_date,
242     x_end_active_date => x_end_active_date,
243     x_property_name => x_property_name,
244     x_operator => x_operator,
245     x_property_value => x_property_value,
246     x_property_value_type => x_property_value_type,
247     X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
248     X_Last_Update_Date => sysdate,
249     X_Last_Updated_By => l_user_id,
250     X_Last_Update_Login => 0);
251      exception
252       when no_data_found then
253         	JTF_DAC_ROLE_PERM_CRIT_PKG.Insert_Row(
254        		X_Rowid => l_rowid,
255                 x_role_perm_crit_id => x_role_perm_crit_id,
256                 x_role_perm_id => x_role_perm_id,
257                 x_criteria_id => x_criteria_id,
258                 x_jtf_auth_principal_id => x_jtf_auth_principal_id,
259                 x_jtf_auth_permission_id => x_jtf_auth_permission_id,
260                 x_principal_name => x_principal_name,
261                 x_permission_name => x_permission_name,
262                 x_base_object => x_base_object,
263                 x_base_object_type => x_base_object_type,
264                 x_start_active_date => x_start_active_date,
265                 x_end_active_date => x_end_active_date,
266                 x_property_name => x_property_name,
267                 x_operator => x_operator,
268                 x_property_value => x_property_value,
269                 x_property_value_type => x_property_value_type,
270                 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
271     		X_Creation_Date => sysdate,
272     		X_Created_By => l_user_id,
273     		X_Last_Update_Date => sysdate,
274     		X_Last_Updated_By => l_user_id,
275     		X_Last_Update_Login => 0);
276 
277 end;
278 
279 
280 
281 end JTF_DAC_ROLE_PERM_CRIT_PKG;