[Home] [Help]
PACKAGE BODY: APPS.WSH_TRXLOTS_HANDLER_TEST
Source
1 PACKAGE BODY WSH_TRXLOTS_HANDLER_TEST AS
2 /* $Header: WSHTESTB.pls 115.3 2003/12/01 18:48:00 heali noship $ */
3
4 --
5 -- PACKAGE VARIABLES
6 --
7
8 g_userid NUMBER;
9
10 -- ===========================================================================
11 --
12 -- Name:
13 --
14 -- insert_row
15 --
16 -- Description:
17 --
18 -- Called by the client to insert a row into the
19 -- MTL_TRANSACTION_LOTS_INTERFACE table.
20 --
21 -- ===========================================================================
22
23 --
24 G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_TRXLOTS_HANDLER_TEST';
25 --
26 PROCEDURE Insert_Row(
27 x_rowid IN OUT NOCOPY VARCHAR2,
28 x_trx_interface_id IN OUT NOCOPY NUMBER,
29 p_source_code IN VARCHAR2,
30 p_source_line_id IN NUMBER,
31 p_lot_number IN VARCHAR2,
32 p_trx_quantity IN NUMBER,
33 p_last_update_date IN DATE,
34 p_last_updated_by IN NUMBER,
35 p_creation_date IN DATE,
36 p_created_by IN NUMBER,
37 p_serial_trx_id IN NUMBER,
38 p_error_code IN VARCHAR2,
39 p_last_update_login IN NUMBER DEFAULT NULL,
40 p_request_id IN NUMBER DEFAULT NULL,
41 p_program_application_id IN NUMBER DEFAULT NULL,
42 p_program_id IN NUMBER DEFAULT NULL,
43 p_program_update_date IN DATE DEFAULT NULL,
44 p_lot_expiration_date IN DATE DEFAULT NULL,
45 p_primary_quantity IN NUMBER DEFAULT NULL,
46 p_process_flag IN VARCHAR2 DEFAULT 'Y')
47 IS
48
49 CURSOR row_id IS
50 SELECT rowid FROM mtl_transaction_lots_interface
51 WHERE transaction_interface_id = x_trx_interface_id
52 AND lot_number = p_lot_number;
53
54 CURSOR get_interface_id IS
55 SELECT mtl_material_transactions_s.nextval
56 FROM sys.dual;
57
58 --
59 l_debug_on BOOLEAN;
60 --
61 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW';
62 --
63 BEGIN
64
65 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.INSERT_ROW',
66 'START',
67 'Start of procedure INSERT_ROW, input parameters:
68 source_code='||p_source_code||
69 ', source_line_id='||p_source_line_id||
70 ', transaction_interface_id='||x_trx_interface_id||
71 ', lot_number='||p_lot_number||
72 ', transaction_quantity='||p_trx_quantity||
73 ', last_update_date='||p_last_update_date||
74 ', last_updated_by='||p_last_updated_by);
75 wsh_server_debug.debug_message(
76 ', creation_date='||p_creation_date||
77 ', created_by='||p_created_by||
78 ', serial_transaction_temp_id='||p_serial_trx_id||
79 ', error_code='||p_error_code||
80 ', last_update_login='||p_last_update_login||
81 ', request_id='||p_request_id||
82 ', program_application_id='||p_program_application_id||
83 ', program_id='||p_program_id||
84 ', program_update_date='||p_program_update_date||
85 ', lot_expiration_date='||p_lot_expiration_date||
86 ', primary_quantity='||p_primary_quantity||
87 ', process_flag='||p_process_flag );
88 */
89 --
90 -- Debug Statements
91 --
92 --
93 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
94 --
95 IF l_debug_on IS NULL
96 THEN
97 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
98 END IF;
99 --
100 IF l_debug_on THEN
101 WSH_DEBUG_SV.push(l_module_name);
102 --
103 WSH_DEBUG_SV.log(l_module_name,'X_ROWID',X_ROWID);
104 WSH_DEBUG_SV.log(l_module_name,'X_TRX_INTERFACE_ID',X_TRX_INTERFACE_ID);
105 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
106 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
107 WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
108 WSH_DEBUG_SV.log(l_module_name,'P_TRX_QUANTITY',P_TRX_QUANTITY);
109 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_DATE',P_LAST_UPDATE_DATE);
110 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATED_BY',P_LAST_UPDATED_BY);
111 WSH_DEBUG_SV.log(l_module_name,'P_CREATION_DATE',P_CREATION_DATE);
112 WSH_DEBUG_SV.log(l_module_name,'P_CREATED_BY',P_CREATED_BY);
113 WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_TRX_ID',P_SERIAL_TRX_ID);
114 WSH_DEBUG_SV.log(l_module_name,'P_ERROR_CODE',P_ERROR_CODE);
115 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_LOGIN',P_LAST_UPDATE_LOGIN);
116 WSH_DEBUG_SV.log(l_module_name,'P_REQUEST_ID',P_REQUEST_ID);
117 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_APPLICATION_ID',P_PROGRAM_APPLICATION_ID);
118 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_ID',P_PROGRAM_ID);
119 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_UPDATE_DATE',P_PROGRAM_UPDATE_DATE);
120 WSH_DEBUG_SV.log(l_module_name,'P_LOT_EXPIRATION_DATE',P_LOT_EXPIRATION_DATE);
121 WSH_DEBUG_SV.log(l_module_name,'P_PRIMARY_QUANTITY',P_PRIMARY_QUANTITY);
122 WSH_DEBUG_SV.log(l_module_name,'P_PROCESS_FLAG',P_PROCESS_FLAG);
123 END IF;
124 --
125 fnd_profile.get('USER_ID',g_userid);
126
127 -- Set interface id if necessary
128 IF x_trx_interface_id IS NULL THEN
129 OPEN get_interface_id;
130 FETCH get_interface_id INTO x_trx_interface_id;
131 CLOSE get_interface_id;
132 END IF;
133
134 INSERT INTO mtl_transaction_lots_interface(
135 source_code,
136 source_line_id,
137 transaction_interface_id,
138 lot_number,
139 transaction_quantity,
140 last_update_date,
141 last_updated_by,
142 creation_date,
143 created_by,
144 serial_transaction_temp_id,
145 error_code,
146 last_update_login,
147 request_id,
148 program_application_id,
149 program_id,
150 program_update_date,
151 lot_expiration_date,
152 primary_quantity,
153 process_flag
154 ) VALUES (
155 p_source_code,
156 p_source_line_id,
157 x_trx_interface_id,
158 p_lot_number,
159 p_trx_quantity,
160 NVL(p_last_update_date,SYSDATE),
161 NVL(p_last_updated_by,g_userid),
162 NVL(p_creation_date,SYSDATE),
163 NVL(p_created_by,g_userid),
164 p_serial_trx_id,
165 p_error_code,
166 p_last_update_login,
167 p_request_id,
168 p_program_application_id,
169 p_program_id,
170 p_program_update_date,
171 p_lot_expiration_date,
172 p_primary_quantity,
173 p_process_flag
174 );
175
176 OPEN row_id;
177
178 FETCH row_id INTO x_rowid;
179
180 IF (row_id%NOTFOUND) then
181 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.INSERT_ROW',
182 'END',
183 'No rowid found. Raising NO_DATA_FOUND.');
184 */
185 CLOSE row_id;
186 RAISE NO_DATA_FOUND;
187 END IF;
188
189 CLOSE row_id;
190
191 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.INSERT_ROW',
192 'END',
193 'End of procedure INSERT_ROW');
194 */
195 --
196 -- Debug Statements
197 --
198 IF l_debug_on THEN
199 WSH_DEBUG_SV.pop(l_module_name);
200 END IF;
201 --
202 END Insert_Row;
203
204 -- ===========================================================================
205 --
206 -- Name:
207 --
208 -- update_row
209 --
210 -- Description:
211 --
212 -- Called by the client to update a row in the
213 -- MTL_TRANSACTION_LOTS_INTERFACE table.
214 --
215 -- ===========================================================================
216
217 PROCEDURE Update_Row (
218 x_rowid IN OUT NOCOPY VARCHAR2,
219 p_trx_interface_id IN NUMBER,
220 p_source_code IN VARCHAR2,
221 p_source_line_id IN NUMBER,
222 p_lot_number IN VARCHAR2,
223 p_trx_quantity IN NUMBER,
224 p_last_update_date IN DATE,
225 p_last_updated_by IN NUMBER,
226 p_serial_trx_id IN NUMBER,
227 p_error_code IN VARCHAR2,
228 p_last_update_login IN NUMBER DEFAULT NULL,
229 p_request_id IN NUMBER DEFAULT NULL,
230 p_program_application_id IN NUMBER DEFAULT NULL,
231 p_program_id IN NUMBER DEFAULT NULL,
232 p_program_update_date IN DATE DEFAULT NULL,
233 p_lot_expiration_date IN DATE DEFAULT NULL,
234 p_primary_quantity IN NUMBER DEFAULT NULL,
235 p_process_flag IN VARCHAR2 DEFAULT 'Y')
236 IS
237 --
238 l_debug_on BOOLEAN;
239 --
240 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ROW';
241 --
242 BEGIN
243 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.UPDATE_ROW',
244 'START',
245 'Start of procedure UPDATE_ROW, input parameters:
246 source_code='||p_source_code||
247 ', source_line_id='||p_source_line_id||
248 ', transaction_interface_id='||p_trx_interface_id||
249 ', lot_number='||p_lot_number||
250 ', transaction_quantity='||p_trx_quantity||
251 ', last_update_date='||p_last_update_date||
252 ', last_updated_by='||p_last_updated_by);
253 wsh_server_debug.debug_message(
254 ', serial_transaction_temp_id='||p_serial_trx_id||
255 ', error_code='||p_error_code||
256 ', last_update_login='||p_last_update_login||
257 ', request_id='||p_request_id||
258 ', program_application_id='||p_program_application_id||
259 ', program_id='||p_program_id||
260 ', program_update_date='||p_program_update_date||
261 ', lot_expiration_date='||p_lot_expiration_date||
262 ', primary_quantity='||p_primary_quantity||
263 ', process_flag='||p_process_flag );
264 */
265
266 --
267 -- Debug Statements
268 --
269 --
270 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
271 --
272 IF l_debug_on IS NULL
273 THEN
274 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
275 END IF;
276 --
277 IF l_debug_on THEN
278 WSH_DEBUG_SV.push(l_module_name);
279 --
280 WSH_DEBUG_SV.log(l_module_name,'X_ROWID',X_ROWID);
281 WSH_DEBUG_SV.log(l_module_name,'P_TRX_INTERFACE_ID',P_TRX_INTERFACE_ID);
282 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
283 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
284 WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
285 WSH_DEBUG_SV.log(l_module_name,'P_TRX_QUANTITY',P_TRX_QUANTITY);
286 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_DATE',P_LAST_UPDATE_DATE);
287 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATED_BY',P_LAST_UPDATED_BY);
288 WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_TRX_ID',P_SERIAL_TRX_ID);
289 WSH_DEBUG_SV.log(l_module_name,'P_ERROR_CODE',P_ERROR_CODE);
290 WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_LOGIN',P_LAST_UPDATE_LOGIN);
291 WSH_DEBUG_SV.log(l_module_name,'P_REQUEST_ID',P_REQUEST_ID);
292 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_APPLICATION_ID',P_PROGRAM_APPLICATION_ID);
293 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_ID',P_PROGRAM_ID);
294 WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_UPDATE_DATE',P_PROGRAM_UPDATE_DATE);
295 WSH_DEBUG_SV.log(l_module_name,'P_LOT_EXPIRATION_DATE',P_LOT_EXPIRATION_DATE);
296 WSH_DEBUG_SV.log(l_module_name,'P_PRIMARY_QUANTITY',P_PRIMARY_QUANTITY);
297 WSH_DEBUG_SV.log(l_module_name,'P_PROCESS_FLAG',P_PROCESS_FLAG);
298 END IF;
299 --
300 fnd_profile.get('USER_ID',g_userid);
301
302 UPDATE mtl_transaction_lots_interface SET
303 source_code = p_source_code,
304 source_line_id = p_source_line_id,
305 transaction_interface_id = p_trx_interface_id,
306 lot_number = p_lot_number,
307 transaction_quantity = p_trx_quantity,
308 last_updated_by = NVL(p_last_updated_by,g_userid),
309 last_update_date = NVL(p_last_update_date,SYSDATE),
310 serial_transaction_temp_id = p_serial_trx_id,
311 error_code = p_error_code,
312 last_update_login = p_last_update_login,
313 request_id = p_request_id,
314 program_application_id = p_program_application_id,
315 program_id = p_program_id,
316 program_update_date = p_program_update_date,
317 lot_expiration_date = p_lot_expiration_date,
318 primary_quantity = p_primary_quantity,
319 process_flag = p_process_flag
320 WHERE rowid = x_rowid;
321
322 IF (SQL%NOTFOUND) THEN
323 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.UPDATE_ROW',
324 'END',
325 'No rows updated. Raising NO_DATA_FOUND.');
326 */
327 RAISE NO_DATA_FOUND;
328 END IF;
329
330 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.UPDATE_ROW',
331 'END',
332 'End of procedure UPDATE_ROW');
333 */
334 --
335 -- Debug Statements
336 --
337 IF l_debug_on THEN
338 WSH_DEBUG_SV.pop(l_module_name);
339 END IF;
340 --
341 END Update_Row;
342
343 -- ===========================================================================
344 --
345 -- Name:
346 --
347 -- delete_row
348 --
349 -- Description:
350 --
351 -- Called by the client to delete a row in the
352 -- MTL_TRANSACTION_LOTS_INTERFACE table.
353 --
354 -- ===========================================================================
355
356 PROCEDURE Delete_Row (
357 x_rowid IN OUT NOCOPY VARCHAR2 )
358 IS
359 --
360 l_debug_on BOOLEAN;
361 --
362 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_ROW';
363 --
364 BEGIN
365 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
366 'START',
367 'Start of procedure DELETE_ROW');
368
369 wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
370 'START',
371 'Deleting from mtl_serial_numbers_interface, if any');
372 */
373
374 --
375 -- Debug Statements
376 --
377 --
378 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
379 --
380 IF l_debug_on IS NULL
381 THEN
382 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
383 END IF;
384 --
385 IF l_debug_on THEN
386 WSH_DEBUG_SV.push(l_module_name);
387 --
388 WSH_DEBUG_SV.log(l_module_name,'X_ROWID',X_ROWID);
389 END IF;
390 --
391 DELETE FROM mtl_serial_numbers_interface
392 WHERE transaction_interface_id IN
393 ( SELECT serial_transaction_temp_id
394 FROM mtl_transaction_lots_interface
395 WHERE rowid = x_rowid);
396
397 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
398 'END',
399 'Finish with call to DELETE mtl_serial_numbers_interface');
400
401 wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
402 'START',
403 'Delete from mtl_transaction_lots_interface ');
404 */
405 DELETE FROM mtl_transaction_lots_interface WHERE rowid = x_rowid;
406
407 IF (SQL%NOTFOUND) THEN
408 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
409 'END',
410 'No rows deleted. Raising NO_DATA_FOUND');
411 */
412 RAISE NO_DATA_FOUND;
413 END IF;
414
415 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.DELETE_ROW',
416 'END',
417 'End of procedure DELETE_ROW');
418 */
419 --
420 -- Debug Statements
421 --
422 IF l_debug_on THEN
423 WSH_DEBUG_SV.pop(l_module_name);
424 END IF;
425 --
426 END Delete_Row;
427
428 -- ===========================================================================
429 --
430 -- Name:
431 --
432 -- lock_row
433 --
434 -- Description:
435 --
436 -- Called by the client to lock a row in the
437 -- MTL_TRANSACTION_LOTS_INTERFACE table.
438 --
439 -- ===========================================================================
440
441 PROCEDURE Lock_Row (
442 x_rowid IN OUT NOCOPY VARCHAR2,
443 p_source_code IN VARCHAR2,
444 p_source_line_id IN NUMBER,
445 p_trx_interface_id IN NUMBER,
446 p_lot_number IN VARCHAR2,
447 p_trx_quantity IN NUMBER,
448 p_lot_expiration_date IN DATE,
449 p_primary_quantity IN NUMBER,
450 p_serial_trx_id IN NUMBER,
451 p_error_code IN VARCHAR2,
452 p_process_flag IN VARCHAR2 )
453 IS
454 CURSOR lock_record IS
455 SELECT * FROM mtl_transaction_lots_interface
456 WHERE rowid = x_rowid
457 FOR UPDATE NOWAIT;
458
459 rec_info lock_record%ROWTYPE;
460
461 --
462 l_debug_on BOOLEAN;
463 --
464 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'LOCK_ROW';
465 --
466 BEGIN
467 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.LOCK_ROW',
468 'START',
469 'Start of procedure LOCK_ROW, input parameters:
470 source_code='||p_source_code||', source_line_id='||p_source_line_id||
471 ', transaction_interface_id='||p_trx_interface_id||
472 ', lot_number='||p_lot_number||
473 ', transaction_quantity='||p_trx_quantity||
474 ', lot_expiration_date='||p_lot_expiration_date||
475 ', primary_quantity='||p_primary_quantity||
476 ', serial_transaction_temp_id='||p_serial_trx_id||
477 ', error_code='||p_error_code||', process_flag='||p_process_flag );
478 */
479
480 --
481 -- Debug Statements
482 --
483 --
484 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
485 --
486 IF l_debug_on IS NULL
487 THEN
488 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
489 END IF;
490 --
491 IF l_debug_on THEN
492 WSH_DEBUG_SV.push(l_module_name);
493 --
494 WSH_DEBUG_SV.log(l_module_name,'X_ROWID',X_ROWID);
495 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
496 WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
497 WSH_DEBUG_SV.log(l_module_name,'P_TRX_INTERFACE_ID',P_TRX_INTERFACE_ID);
498 WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
499 WSH_DEBUG_SV.log(l_module_name,'P_TRX_QUANTITY',P_TRX_QUANTITY);
500 WSH_DEBUG_SV.log(l_module_name,'P_LOT_EXPIRATION_DATE',P_LOT_EXPIRATION_DATE);
501 WSH_DEBUG_SV.log(l_module_name,'P_PRIMARY_QUANTITY',P_PRIMARY_QUANTITY);
502 WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_TRX_ID',P_SERIAL_TRX_ID);
503 WSH_DEBUG_SV.log(l_module_name,'P_ERROR_CODE',P_ERROR_CODE);
504 WSH_DEBUG_SV.log(l_module_name,'P_PROCESS_FLAG',P_PROCESS_FLAG);
505 END IF;
506 --
507 OPEN lock_record;
508
509 FETCH lock_record into rec_info;
510
511 IF (lock_record%NOTFOUND) THEN
512 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.LOCK_ROW',
513 'END',
514 'Lock record failed. Raising exception FORM_RECORD_DELETED');
515 */
516 CLOSE lock_record;
517
518 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
519 app_exception.raise_exception;
520 END IF;
521
522 CLOSE lock_record;
523
524 IF (
525 ( (rec_info.source_code = p_source_code)
526 OR ((rec_info.source_code IS NULL) AND (p_source_code IS NULL)))
527 AND ((rec_info.source_line_id = p_source_line_id)
528 OR ((rec_info.source_line_id IS NULL)
529 AND (p_source_line_id IS NULL)))
530 AND (rec_info.transaction_interface_id = p_trx_interface_id)
531 AND (rec_info.lot_number = p_lot_number)
532 AND (rec_info.transaction_quantity = p_trx_quantity)
533 AND ((rec_info.lot_expiration_date = p_lot_expiration_date)
534 OR ((rec_info.lot_expiration_date IS NULL)
535 AND (p_lot_expiration_date IS NULL)))
536 AND ((rec_info.primary_quantity = p_primary_quantity)
537 OR ((rec_info.primary_quantity IS NULL)
538 AND (p_primary_quantity IS NULL)))
539 AND ((rec_info.serial_transaction_temp_id = p_serial_trx_id)
540 OR ((rec_info.serial_transaction_temp_id IS NULL)
541 AND (p_serial_trx_id IS NULL)))
542 AND ((rec_info.error_code = p_error_code)
543 OR ((rec_info.error_code IS NULL) AND (p_error_code IS NULL)))
544 AND ((rec_info.process_flag = p_process_flag)
545 OR ((rec_info.process_flag IS NULL) AND (p_process_flag IS NULL)))
546 ) THEN
547 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.LOCK_ROW',
548 'END',
549 'End of procedure LOCK_ROW');
550 */
551 --
552 -- Debug Statements
553 --
554 IF l_debug_on THEN
555 WSH_DEBUG_SV.pop(l_module_name);
556 END IF;
557 --
558 return;
559 ELSE
560 /* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER_TEST.LOCK_ROW',
561 'END',
562 'Lock record failed. Raising exception FORM_RECORD_CHANGED');
563 */
564 fnd_message.set_name('FND','FORM_RECORD_CHANGED');
565 app_exception.raise_exception;
566 END IF;
567
568 --
569 -- Debug Statements
570 --
571 IF l_debug_on THEN
572 WSH_DEBUG_SV.pop(l_module_name);
573 END IF;
574 --
575 END Lock_Row;
576
577 END WSH_TRXLOTS_HANDLER_TEST;