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