1 PACKAGE BODY IEX_STRATEGY_WORK_ITEMS_PKG as
2 /* $Header: iextswib.pls 120.4 2010/11/10 10:00:18 pnaveenk ship $ */
3 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGY_WORK_ITEMS_PKG';
4 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextswib.pls';
5
6 --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
7 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8
9 PROCEDURE Insert_Row(
10 X_ROWID IN OUT NOCOPY VARCHAR2
11 ,x_WORK_ITEM_ID IN NUMBER
12 ,x_STRATEGY_ID IN NUMBER
13 ,x_work_item_template_id IN NUMBER
14 ,x_RESOURCE_ID IN NUMBER
15 ,x_STATUS_CODE IN VARCHAR2
16 ,x_execute_start IN DATE
17 ,x_execute_end IN DATE
18 ,x_LAST_UPDATE_LOGIN IN NUMBER
19 ,x_CREATION_DATE IN DATE
20 ,x_CREATED_BY IN NUMBER
21 ,x_LAST_UPDATE_DATE DATE
22 ,x_last_updated_by IN NUMBER
23 ,x_OBJECT_VERSION_NUMBER IN NUMBER
24 ,X_REQUEST_ID in NUMBER
25 ,X_PROGRAM_APPLICATION_ID in NUMBER
26 ,X_PROGRAM_ID in NUMBER
27 ,X_PROGRAM_UPDATE_DATE in DATE
28 ,x_schedule_start in DATE
29 ,x_schedule_end in DATE
30 ,x_strategy_temp_id in NUMBER
31 ,x_work_item_order in NUMBER
32 ,x_escalated_yn in CHAR
33 ,x_pre_execution_wait IN NUMBER
34 ,x_pre_execution_time_uom IN VARCHAR2
35 ,x_post_execution_wait IN NUMBER
36 ,x_execution_time_uom IN VARCHAR2
37 ,x_xdo_temp_id IN NUMBER
38 ,x_optional_yn IN VARCHAR2
39 ,x_optional_wait_time IN NUMBER
40 ,x_optional_wait_time_uom IN VARCHAR2
41 ,x_notify_yn IN VARCHAR2
42 ,x_escalate_yn IN CHAR
43 ,x_escalate_wait_time NUMBER
44 ,x_escalate_wait_time_uom VARCHAR2
45 ,x_custom_workflow_type VARCHAR2
46 )
47
48
49 IS
50 cursor C is select ROWID from IEX_STRATEGY_WORK_ITEMS
51 where WORK_ITEM_ID = X_WORK_ITEM_ID ;
52
53 BEGIN
54 -- IF PG_DEBUG < 10 THEN
55 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
56 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
57 END IF;
58
59 INSERT INTO IEX_STRATEGY_WORK_ITEMS(
60 WORK_ITEM_ID
61 ,STRATEGY_ID
62 ,RESOURCE_ID
63 ,STATUS_CODE
64 ,LAST_UPDATED_BY
65 ,LAST_UPDATE_LOGIN
66 ,CREATION_DATE
67 ,CREATED_BY
68 ,PROGRAM_ID
69 ,OBJECT_VERSION_NUMBER
70 ,REQUEST_ID
71 ,LAST_UPDATE_DATE
72 ,WORK_ITEM_TEMPLATE_ID
73 ,PROGRAM_APPLICATION_ID
74 ,PROGRAM_UPDATE_DATE
75 ,execute_start
76 ,execute_end
77 ,schedule_start
78 ,schedule_end
79 ,strategy_temp_id
80 ,work_item_order
81 ,escalated_yn
82 ,pre_execution_wait
83 ,pre_execution_time_uom
84 ,post_execution_wait
85 ,execution_time_uom
86 ,xdo_temp_id
87 ,optional_yn
88 ,optional_wait_time
89 ,optional_wait_time_uom
90 ,notify_yn
91 ,escalate_yn
92 ,escalate_wait_time
93 ,escalate_wait_time_uom
94 ,custom_workflow_type
95 )
96 VALUES (
97 x_WORK_ITEM_ID
98 ,x_STRATEGY_ID
99 ,x_RESOURCE_ID
100 ,decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, NULL, x_STATUS_CODE)
101 ,decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, x_LAST_UPDATED_BY)
102 ,decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, x_LAST_UPDATE_LOGIN)
103 ,decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), x_CREATION_DATE)
104 ,decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL, x_CREATED_BY)
105 ,decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, x_PROGRAM_ID)
106 ,decode( x_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, x_OBJECT_VERSION_NUMBER)
107 ,decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL, x_REQUEST_ID)
108 ,decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), x_LAST_UPDATE_DATE)
109 ,decode( x_WORK_ITEM_TEMPLATE_ID, FND_API.G_MISS_NUM, NULL, x_WORK_ITEM_TEMPLATE_ID)
110 ,decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, x_PROGRAM_APPLICATION_ID)
111 ,decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, to_date(null), x_PROGRAM_UPDATE_DATE)
112 ,decode( x_execute_start, FND_API.G_MISS_DATE, to_date(null), x_execute_start)
113 ,decode( x_execute_end, FND_API.G_MISS_DATE, to_date(null), x_execute_end)
114 ,decode( x_schedule_start, FND_API.G_MISS_DATE, to_date(null), x_schedule_start )
115 ,decode( x_schedule_end , FND_API.G_MISS_DATE, to_date(null), x_schedule_end)
116 ,decode( x_strategy_temp_id, FND_API.G_MISS_NUM, NULL, x_strategy_temp_id)
117 ,decode( x_WORK_ITEM_ORDER, FND_API.G_MISS_NUM, NULL, x_WORK_ITEM_ORDER)
118 ,decode( x_escalated_yn, FND_API.G_MISS_CHAR, NULL, x_escalated_yn)
119 ,decode( x_pre_execution_wait, FND_API.G_MISS_NUM, NULL, x_pre_execution_wait)
120 ,decode( x_pre_execution_time_uom, FND_API.G_MISS_CHAR, NULL, x_pre_execution_time_uom)
121 ,decode( x_post_execution_wait, FND_API.G_MISS_NUM, NULL, x_post_execution_wait)
122 ,decode( x_execution_time_uom, FND_API.G_MISS_CHAR, NULL, x_execution_time_uom)
123 ,decode( x_xdo_temp_id, FND_API.G_MISS_NUM, NULL, x_xdo_temp_id)
124 ,decode( x_optional_yn, FND_API.G_MISS_CHAR, NULL, x_optional_yn)
125 ,decode( x_optional_wait_time, FND_API.G_MISS_NUM, NULL, x_optional_wait_time)
126 ,decode( x_optional_wait_time_uom, FND_API.G_MISS_CHAR, NULL, x_optional_wait_time_uom)
127 ,decode( x_notify_yn, FND_API.G_MISS_CHAR, NULL, x_notify_yn)
128 ,decode( x_escalate_yn, FND_API.G_MISS_CHAR, NULL, x_escalate_yn)
129 ,decode( x_escalate_wait_time, FND_API.G_MISS_NUM, NULL, x_escalate_wait_time)
130 ,decode( x_escalate_wait_time_uom, FND_API.G_MISS_CHAR, NULL, x_escalate_wait_time_uom)
131 ,decode( x_custom_workflow_type, FND_API.G_MISS_CHAR, NULL, x_custom_workflow_type)
132 );
133 open c;
134 fetch c into X_ROWID;
135 -- IF PG_DEBUG < 10 THEN
136 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
137 IEX_DEBUG_PUB.LogMessage ('Insert_Row: ' || 'Value of ROWID = '||X_ROWID);
138 END IF;
139 if (c%notfound) then
140 close c;
141 raise no_data_found;
142 end if;
143 close c;
144
145 -- IF PG_DEBUG < 10 THEN
146 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
147 IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
148 END IF;
149 End Insert_Row;
150
151 PROCEDURE Update_Row(
152 x_WORK_ITEM_ID IN NUMBER
153 ,x_STRATEGY_ID IN NUMBER
154 ,x_work_item_template_id IN NUMBER
155 ,x_RESOURCE_ID IN NUMBER
156 ,x_STATUS_CODE IN VARCHAR2
157 ,x_execute_start IN DATE
158 ,x_execute_end IN DATE
159 ,x_LAST_UPDATE_LOGIN IN NUMBER
160 ,x_LAST_UPDATE_DATE DATE
161 ,x_last_updated_by IN NUMBER
162 ,x_OBJECT_VERSION_NUMBER IN NUMBER
163 ,X_REQUEST_ID in NUMBER
164 ,X_PROGRAM_APPLICATION_ID in NUMBER
165 ,X_PROGRAM_ID in NUMBER
166 ,X_PROGRAM_UPDATE_DATE in DATE
167 ,x_schedule_start in DATE
168 ,x_schedule_end in DATE
169 ,x_strategy_temp_id in NUMBER
170 ,x_work_item_order in NUMBER
171 ,x_escalated_yn in CHAR
172 )
173 IS
174 BEGIN
175 -- IF PG_DEBUG < 10 THEN
176 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177 IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
178 END IF;
179 Update IEX_STRATEGY_WORK_ITEMS
180 SET
181 STRATEGY_ID = decode( x_STRATEGY_ID, FND_API.G_MISS_NUM, STRATEGY_ID, x_STRATEGY_ID)
182 ,RESOURCE_ID = decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, x_RESOURCE_ID)
183 ,STATUS_CODE = decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, STATUS_CODE, x_STATUS_CODE)
184 ,LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, x_LAST_UPDATED_BY)
185 ,LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, x_LAST_UPDATE_LOGIN)
186 ,PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, x_PROGRAM_ID)
187 ,OBJECT_VERSION_NUMBER = decode( x_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, x_OBJECT_VERSION_NUMBER)
188 ,REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, x_REQUEST_ID)
189 ,LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, x_LAST_UPDATE_DATE)
190 ,WORK_ITEM_TEMPLATE_ID = decode( x_WORK_ITEM_TEMPLATE_ID, FND_API.G_MISS_NUM, WORK_ITEM_TEMPLATE_ID, x_WORK_ITEM_TEMPLATE_ID)
191 ,PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, x_PROGRAM_APPLICATION_ID)
192 ,PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, x_PROGRAM_UPDATE_DATE)
193 ,execute_start = decode( x_execute_start, FND_API.G_MISS_DATE, execute_start, x_execute_start)
194 ,execute_end = decode( x_execute_end, FND_API.G_MISS_DATE, execute_end, x_execute_end)
195 ,schedule_start =decode( x_schedule_start, FND_API.G_MISS_DATE, schedule_start, x_schedule_start)
196 ,schedule_end =decode( x_schedule_end, FND_API.G_MISS_DATE, schedule_end, x_schedule_end)
197 ,strategy_temp_id = decode( x_strategy_temp_id , FND_API.G_MISS_NUM, strategy_temp_id , x_strategy_temp_id )
198 ,WORK_ITEM_ORDER = decode( x_WORK_ITEM_ORDER, FND_API.G_MISS_NUM, WORK_ITEM_ORDER, x_WORK_ITEM_ORDER)
199 ,escalated_yn = decode( x_escalated_yn, FND_API.G_MISS_CHAR, escalated_yn, x_escalated_yn)
200 where WORK_ITEM_ID = x_WORK_ITEM_ID;
201
202 If (SQL%NOTFOUND) then
203 RAISE NO_DATA_FOUND;
204 End If;
205 -- IF PG_DEBUG < 10 THEN
206 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
207 IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
208 END IF;
209
210 END Update_Row;
211
212 PROCEDURE Delete_Row(
213 x_WORK_ITEM_ID NUMBER)
214 IS
215 BEGIN
216 DELETE FROM IEX_STRATEGY_WORK_ITEMS
217 WHERE WORK_ITEM_ID = x_WORK_ITEM_ID;
218 If (SQL%NOTFOUND) then
219 RAISE NO_DATA_FOUND;
220 End If;
221 END Delete_Row;
222
223 /*
224 PROCEDURE Lock_Row(
225 x_WORK_ITEM_ID IN NUMBER
226 ,x_STRATEGY_ID IN NUMBER
227 ,x_work_item_template_id IN NUMBER
228 ,x_RESOURCE_ID IN NUMBER
229 ,x_STATUS_CODE IN VARCHAR2
230 ,x_execute_start IN DATE
231 ,x_execute_end IN DATE
232 ,x_LAST_UPDATE_LOGIN IN NUMBER
233 ,x_CREATION_DATE IN DATE
234 ,x_CREATED_BY IN NUMBER
235 ,x_LAST_UPDATE_DATE DATE
236 ,x_last_updated_by IN NUMBER
237 ,x_OBJECT_VERSION_NUMBER IN NUMBER
238 ,X_REQUEST_ID in NUMBER
239 ,X_PROGRAM_APPLICATION_ID in NUMBER
240 ,X_PROGRAM_ID in NUMBER
241 ,X_PROGRAM_UPDATE_DATE in DATE
242 ,x_schedule_start in DATE
243 ,x_schedule_end in DATE
244 ,x_strategy_temp_id in NUMBER
245 ,x_work_item_order in NUMBER
246 )
247
248 IS
249 CURSOR C IS
250 SELECT *
251 FROM IEX_STRATEGY_WORK_ITEMS
252 WHERE WORK_ITEM_ID = x_WORK_ITEM_ID
253 FOR UPDATE of WORK_ITEM_ID NOWAIT;
254 Recinfo C%ROWTYPE;
255 BEGIN
256 OPEN C;
257 FETCH C INTO Recinfo;
258 If (C%NOTFOUND) then
259 CLOSE C;
260 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
261 APP_EXCEPTION.RAISE_EXCEPTION;
262 End If;
263 CLOSE C;
264 if (
265 ( Recinfo.WORK_ITEM_ID = p_WORK_ITEM_ID)
266 AND ( ( Recinfo.STRATEGY_ID = p_STRATEGY_ID)
267 OR ( ( Recinfo.STRATEGY_ID IS NULL )
268 AND ( p_STRATEGY_ID IS NULL )))
269 AND ( ( Recinfo.COMPETENCE_ID = p_COMPETENCE_ID)
270 OR ( ( Recinfo.COMPETENCE_ID IS NULL )
271 AND ( p_COMPETENCE_ID IS NULL )))
272 AND ( ( Recinfo.CATEGORY_TYPE = p_CATEGORY_TYPE)
273 OR ( ( Recinfo.CATEGORY_TYPE IS NULL )
274 AND ( p_CATEGORY_TYPE IS NULL )))
275 AND ( ( Recinfo.RESOURCE_ID = p_RESOURCE_ID)
276 OR ( ( Recinfo.RESOURCE_ID IS NULL )
277 AND ( p_RESOURCE_ID IS NULL )))
278 AND ( ( Recinfo.REQUIRED_YN = p_REQUIRED_YN)
279 OR ( ( Recinfo.REQUIRED_YN IS NULL )
280 AND ( p_REQUIRED_YN IS NULL )))
281 AND ( ( Recinfo.STATUS_CODE = p_STATUS_CODE)
282 OR ( ( Recinfo.STATUS_CODE IS NULL )
283 AND ( p_STATUS_CODE IS NULL )))
284 AND ( ( Recinfo.PRIORITY_ID = p_PRIORITY_ID)
285 OR ( ( Recinfo.PRIORITY_ID IS NULL )
286 AND ( p_PRIORITY_ID IS NULL )))
287 AND ( ( Recinfo.PRE_EXECUTION_WAIT = p_PRE_EXECUTION_WAIT)
288 OR ( ( Recinfo.PRE_EXECUTION_WAIT IS NULL )
289 AND ( p_PRE_EXECUTION_WAIT IS NULL )))
290 AND ( ( Recinfo.POST_EXECUTION_WAIT = p_POST_EXECUTION_WAIT)
291 OR ( ( Recinfo.POST_EXECUTION_WAIT IS NULL )
292 AND ( p_POST_EXECUTION_WAIT IS NULL )))
293 AND ( ( Recinfo.CLOSURE_DATE_LIMIT = p_CLOSURE_DATE_LIMIT)
294 OR ( ( Recinfo.CLOSURE_DATE_LIMIT IS NULL )
295 AND ( p_CLOSURE_DATE_LIMIT IS NULL )))
296 AND ( ( Recinfo.EXECUTE_DATE_LIMIT = p_EXECUTE_DATE_LIMIT)
297 OR ( ( Recinfo.EXECUTE_DATE_LIMIT IS NULL )
298 AND ( p_EXECUTE_DATE_LIMIT IS NULL )))
299 AND ( ( Recinfo.SEEDED_WORKFLOW_YN = p_SEEDED_WORKFLOW_YN)
300 OR ( ( Recinfo.SEEDED_WORKFLOW_YN IS NULL )
301 AND ( p_SEEDED_WORKFLOW_YN IS NULL )))
302 AND ( ( Recinfo.WORKFLOW_ITEM_TYPE = p_WORKFLOW_ITEM_TYPE)
303 OR ( ( Recinfo.WORKFLOW_ITEM_TYPE IS NULL )
304 AND ( p_WORKFLOW_ITEM_TYPE IS NULL )))
305 AND ( ( Recinfo.WORKFLOW_PROCESS_NAME = p_WORKFLOW_PROCESS_NAME)
306 OR ( ( Recinfo.WORKFLOW_PROCESS_NAME IS NULL )
307 AND ( p_WORKFLOW_PROCESS_NAME IS NULL )))
308 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
309 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
310 AND ( p_LAST_UPDATED_BY IS NULL )))
311 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
312 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
313 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
314 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
315 OR ( ( Recinfo.CREATION_DATE IS NULL )
316 AND ( p_CREATION_DATE IS NULL )))
317 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
318 OR ( ( Recinfo.CREATED_BY IS NULL )
319 AND ( p_CREATED_BY IS NULL )))
320 AND ( ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
321 OR ( ( Recinfo.PROGRAM_ID IS NULL )
322 AND ( p_PROGRAM_ID IS NULL )))
323 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
324 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
325 AND ( p_OBJECT_VERSION_NUMBER IS NULL )))
326 AND ( ( Recinfo.REQUEST_ID = p_REQUEST_ID)
327 OR ( ( Recinfo.REQUEST_ID IS NULL )
328 AND ( p_REQUEST_ID IS NULL )))
329 AND ( ( Recinfo.WORK_TYPE = p_WORK_TYPE)
330 OR ( ( Recinfo.WORK_TYPE IS NULL )
331 AND ( p_WORK_TYPE IS NULL )))
332 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
333 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
334 AND ( p_LAST_UPDATE_DATE IS NULL )))
335 AND ( ( Recinfo.WORK_ITEM_TEMPLATE_ID = p_WORK_ITEM_TEMPLATE_ID)
336 OR ( ( Recinfo.WORK_ITEM_TEMPLATE_ID IS NULL )
337 AND ( p_WORK_ITEM_TEMPLATE_ID IS NULL )))
338 ) then
339 return;
340 else
341 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
342 APP_EXCEPTION.RAISE_EXCEPTION;
343 End If;
344 END Lock_Row;
345 */
346
347 procedure LOCK_ROW (
348 x_WORK_ITEM_ID in NUMBER,
349 X_OBJECT_VERSION_NUMBER in NUMBER)
350 is
351 cursor c is select OBJECT_VERSION_NUMBER
352 from IEX_STRATEGY_WORK_ITEMS
353 where WORK_ITEM_ID = X_WORK_ITEM_ID
354 and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
355 for update of WORK_ITEM_ID nowait;
356 recinfo c%rowtype;
357
358
359 begin
360 -- IF PG_DEBUG < 10 THEN
361 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
362 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
363 END IF;
364 open c;
365 fetch c into recinfo;
366 if (c%notfound) then
367 close c;
368 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
369 app_exception.raise_exception;
370 end if;
371
372 close c;
373
374 if recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER then
375 null;
376 else
377 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
378 app_exception.raise_exception;
379 end if;
380 --IF PG_DEBUG < 10 THEN
381 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
382 IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
383 END IF;
384 end LOCK_ROW;
385
386 End IEX_STRATEGY_WORK_ITEMS_PKG;