1 package body OE_ATT_RULE_ELEMENTS_PKG as
2 /* $Header: OEXVAREB.pls 120.0 2005/06/01 01:06:07 appldev noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY /* file.sql.39 change */ VARCHAR2,
5 X_RULE_ELEMENT_ID in NUMBER,
6 X_RULE_ID in NUMBER,
7 X_GROUP_NUMBER in NUMBER,
8 X_ATTRIBUTE_CODE in VARCHAR2,
9 X_ATTRIBUTE_VALUE in VARCHAR2,
10 X_CONTEXT in VARCHAR2,
11 X_ATTRIBUTE1 in VARCHAR2,
12 X_ATTRIBUTE2 in VARCHAR2,
13 X_ATTRIBUTE3 in VARCHAR2,
14 X_ATTRIBUTE4 in VARCHAR2,
15 X_ATTRIBUTE5 in VARCHAR2,
16 X_ATTRIBUTE6 in VARCHAR2,
17 X_ATTRIBUTE7 in VARCHAR2,
18 X_ATTRIBUTE8 in VARCHAR2,
19 X_ATTRIBUTE9 in VARCHAR2,
20 X_ATTRIBUTE10 in VARCHAR2,
21 X_ATTRIBUTE11 in VARCHAR2,
22 X_ATTRIBUTE12 in VARCHAR2,
23 X_ATTRIBUTE13 in VARCHAR2,
24 X_ATTRIBUTE14 in VARCHAR2,
25 X_ATTRIBUTE15 in VARCHAR2,
26 X_CREATION_DATE in DATE,
27 X_CREATED_BY in NUMBER,
28 X_LAST_UPDATE_DATE in DATE,
29 X_LAST_UPDATED_BY in NUMBER,
30 X_LAST_UPDATE_LOGIN in NUMBER
31 ) is
32 cursor C is select ROWID from OE_ATTACHMENT_RULE_ELEMENTS
33 where RULE_ELEMENT_ID = X_RULE_ELEMENT_ID
34 ;
35 begin
36 insert into OE_ATTACHMENT_RULE_ELEMENTS (
37 RULE_ELEMENT_ID,
38 RULE_ID,
39 GROUP_NUMBER,
40 ATTRIBUTE_CODE,
41 ATTRIBUTE_VALUE,
42 CONTEXT,
43 ATTRIBUTE1,
44 ATTRIBUTE2,
45 ATTRIBUTE3,
46 ATTRIBUTE4,
47 ATTRIBUTE5,
48 ATTRIBUTE6,
49 ATTRIBUTE7,
50 ATTRIBUTE8,
51 ATTRIBUTE9,
52 ATTRIBUTE10,
53 ATTRIBUTE11,
54 ATTRIBUTE12,
55 ATTRIBUTE13,
56 ATTRIBUTE14,
57 ATTRIBUTE15,
58 CREATION_DATE,
59 CREATED_BY,
60 LAST_UPDATE_DATE,
61 LAST_UPDATED_BY,
62 LAST_UPDATE_LOGIN
63 ) values (
64 X_RULE_ELEMENT_ID,
65 X_RULE_ID,
66 X_GROUP_NUMBER,
67 X_ATTRIBUTE_CODE,
68 X_ATTRIBUTE_VALUE,
69 X_CONTEXT,
70 X_ATTRIBUTE1,
71 X_ATTRIBUTE2,
72 X_ATTRIBUTE3,
73 X_ATTRIBUTE4,
74 X_ATTRIBUTE5,
75 X_ATTRIBUTE6,
76 X_ATTRIBUTE7,
77 X_ATTRIBUTE8,
78 X_ATTRIBUTE9,
79 X_ATTRIBUTE10,
80 X_ATTRIBUTE11,
81 X_ATTRIBUTE12,
82 X_ATTRIBUTE13,
83 X_ATTRIBUTE14,
84 X_ATTRIBUTE15,
85 X_CREATION_DATE,
86 X_CREATED_BY,
87 X_LAST_UPDATE_DATE,
88 X_LAST_UPDATED_BY,
89 X_LAST_UPDATE_LOGIN
90 );
91
92 open c;
93 fetch c into X_ROWID;
94 if (c%notfound) then
95 close c;
96 raise no_data_found;
97 end if;
98 close c;
99
100 end INSERT_ROW;
101
102 procedure LOCK_ROW (
103 X_RULE_ELEMENT_ID in NUMBER,
104 X_RULE_ID in NUMBER,
105 X_GROUP_NUMBER in NUMBER,
106 X_ATTRIBUTE_CODE in VARCHAR2,
107 X_ATTRIBUTE_VALUE in VARCHAR2,
108 X_CONTEXT in VARCHAR2,
109 X_ATTRIBUTE1 in VARCHAR2,
110 X_ATTRIBUTE2 in VARCHAR2,
111 X_ATTRIBUTE3 in VARCHAR2,
112 X_ATTRIBUTE4 in VARCHAR2,
113 X_ATTRIBUTE5 in VARCHAR2,
114 X_ATTRIBUTE6 in VARCHAR2,
115 X_ATTRIBUTE7 in VARCHAR2,
116 X_ATTRIBUTE8 in VARCHAR2,
117 X_ATTRIBUTE9 in VARCHAR2,
118 X_ATTRIBUTE10 in VARCHAR2,
119 X_ATTRIBUTE11 in VARCHAR2,
120 X_ATTRIBUTE12 in VARCHAR2,
121 X_ATTRIBUTE13 in VARCHAR2,
122 X_ATTRIBUTE14 in VARCHAR2,
123 X_ATTRIBUTE15 in VARCHAR2
124 ) is
125 cursor c is select
126 RULE_ID,
127 GROUP_NUMBER,
128 ATTRIBUTE_CODE,
129 ATTRIBUTE_VALUE,
130 CONTEXT,
131 ATTRIBUTE1,
132 ATTRIBUTE2,
133 ATTRIBUTE3,
134 ATTRIBUTE4,
135 ATTRIBUTE5,
136 ATTRIBUTE6,
137 ATTRIBUTE7,
138 ATTRIBUTE8,
139 ATTRIBUTE9,
140 ATTRIBUTE10,
141 ATTRIBUTE11,
142 ATTRIBUTE12,
143 ATTRIBUTE13,
144 ATTRIBUTE14,
145 ATTRIBUTE15
146 from OE_ATTACHMENT_RULE_ELEMENTS
147 where RULE_ELEMENT_ID = X_RULE_ELEMENT_ID
148 for update of RULE_ELEMENT_ID nowait;
149 recinfo c%rowtype;
150
151 begin
152 open c;
153 fetch c into recinfo;
154 if (c%notfound) then
155 close c;
156 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
157 app_exception.raise_exception;
158 end if;
159 close c;
160 if ( (recinfo.RULE_ID = X_RULE_ID)
161 AND (recinfo.GROUP_NUMBER = X_GROUP_NUMBER)
162 AND (recinfo.ATTRIBUTE_CODE = X_ATTRIBUTE_CODE)
163 AND (recinfo.ATTRIBUTE_VALUE = X_ATTRIBUTE_VALUE)
164 AND ((recinfo.CONTEXT = X_CONTEXT)
165 OR ((recinfo.CONTEXT is null) AND (X_CONTEXT is null)))
166 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
167 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
168 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
169 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
170 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
171 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
172 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
173 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
174 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
175 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
176 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
177 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
178 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
179 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
180 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
181 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
182 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
183 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
184 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
185 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
186 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
187 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
188 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
189 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
190 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
191 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
192 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
193 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
194 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
195 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
196 ) then
197 null;
198 else
199 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
200 app_exception.raise_exception;
201 end if;
202
203 end LOCK_ROW;
204
205 procedure UPDATE_ROW (
206 X_RULE_ELEMENT_ID in NUMBER,
207 X_RULE_ID in NUMBER,
208 X_GROUP_NUMBER in NUMBER,
209 X_ATTRIBUTE_CODE in VARCHAR2,
210 X_ATTRIBUTE_VALUE in VARCHAR2,
211 X_CONTEXT in VARCHAR2,
212 X_ATTRIBUTE1 in VARCHAR2,
213 X_ATTRIBUTE2 in VARCHAR2,
214 X_ATTRIBUTE3 in VARCHAR2,
215 X_ATTRIBUTE4 in VARCHAR2,
216 X_ATTRIBUTE5 in VARCHAR2,
217 X_ATTRIBUTE6 in VARCHAR2,
218 X_ATTRIBUTE7 in VARCHAR2,
219 X_ATTRIBUTE8 in VARCHAR2,
220 X_ATTRIBUTE9 in VARCHAR2,
221 X_ATTRIBUTE10 in VARCHAR2,
222 X_ATTRIBUTE11 in VARCHAR2,
223 X_ATTRIBUTE12 in VARCHAR2,
224 X_ATTRIBUTE13 in VARCHAR2,
225 X_ATTRIBUTE14 in VARCHAR2,
226 X_ATTRIBUTE15 in VARCHAR2,
227 X_LAST_UPDATE_DATE in DATE,
228 X_LAST_UPDATED_BY in NUMBER,
229 X_LAST_UPDATE_LOGIN in NUMBER
230 ) is
231 begin
232 update OE_ATTACHMENT_RULE_ELEMENTS set
233 RULE_ID = X_RULE_ID,
234 GROUP_NUMBER = X_GROUP_NUMBER,
235 ATTRIBUTE_CODE = X_ATTRIBUTE_CODE,
236 ATTRIBUTE_VALUE = X_ATTRIBUTE_VALUE,
237 CONTEXT = X_CONTEXT,
238 ATTRIBUTE1 = X_ATTRIBUTE1,
239 ATTRIBUTE2 = X_ATTRIBUTE2,
240 ATTRIBUTE3 = X_ATTRIBUTE3,
241 ATTRIBUTE4 = X_ATTRIBUTE4,
242 ATTRIBUTE5 = X_ATTRIBUTE5,
243 ATTRIBUTE6 = X_ATTRIBUTE6,
244 ATTRIBUTE7 = X_ATTRIBUTE7,
245 ATTRIBUTE8 = X_ATTRIBUTE8,
246 ATTRIBUTE9 = X_ATTRIBUTE9,
247 ATTRIBUTE10 = X_ATTRIBUTE10,
248 ATTRIBUTE11 = X_ATTRIBUTE11,
249 ATTRIBUTE12 = X_ATTRIBUTE12,
250 ATTRIBUTE13 = X_ATTRIBUTE13,
251 ATTRIBUTE14 = X_ATTRIBUTE14,
252 ATTRIBUTE15 = X_ATTRIBUTE15,
253 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
254 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
255 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
256 where RULE_ELEMENT_ID = X_RULE_ELEMENT_ID;
257
258 if (sql%notfound) then
259 raise no_data_found;
260 end if;
261
262 end UPDATE_ROW;
263
264 procedure DELETE_ROW (
265 X_RULE_ELEMENT_ID in NUMBER
266 ) is
267 begin
268
269 delete from OE_ATTACHMENT_RULE_ELEMENTS
270 where RULE_ELEMENT_ID = X_RULE_ELEMENT_ID;
271
272 if (sql%notfound) then
273 raise no_data_found;
274 end if;
275
276 end DELETE_ROW;
277
278 end OE_ATT_RULE_ELEMENTS_PKG;
[Home] [Help]