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