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