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