148: end if;
149:
150: end loop;
151:
152: dbms_lock.allocate_unique (lockname => l_ws_lock,
153: lockhandle => l_ws_handle,
154: expiration_secs => 86400);
155:
156: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
152: dbms_lock.allocate_unique (lockname => l_ws_lock,
153: lockhandle => l_ws_handle,
154: expiration_secs => 86400);
155:
156: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
157: lockmode => dbms_lock.s_mode,
158: timeout => 300);
159:
160: if l_ws_status <> 0 then
153: lockhandle => l_ws_handle,
154: expiration_secs => 86400);
155:
156: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
157: lockmode => dbms_lock.s_mode,
158: timeout => 300);
159:
160: if l_ws_status <> 0 then
161: raise FND_API.G_EXC_ERROR;
160: if l_ws_status <> 0 then
161: raise FND_API.G_EXC_ERROR;
162: end if;
163:
164: dbms_lock.allocate_unique (lockname => l_bg_lock,
165: lockhandle => l_bg_handle,
166: expiration_secs => 86400);
167:
168: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
164: dbms_lock.allocate_unique (lockname => l_bg_lock,
165: lockhandle => l_bg_handle,
166: expiration_secs => 86400);
167:
168: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
169: lockmode => dbms_lock.s_mode,
170: timeout => 300);
171:
172: if l_bg_status <> 0 then
165: lockhandle => l_bg_handle,
166: expiration_secs => 86400);
167:
168: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
169: lockmode => dbms_lock.s_mode,
170: timeout => 300);
171:
172: if l_bg_status <> 0 then
173: raise FND_API.G_EXC_ERROR;
172: if l_bg_status <> 0 then
173: raise FND_API.G_EXC_ERROR;
174: end if;
175:
176: dbms_lock.allocate_unique (lockname => l_bc_lock,
177: lockhandle => l_bc_handle,
178: expiration_secs => 86400);
179:
180: l_bc_status := dbms_lock.request (lockhandle => l_bc_handle,
176: dbms_lock.allocate_unique (lockname => l_bc_lock,
177: lockhandle => l_bc_handle,
178: expiration_secs => 86400);
179:
180: l_bc_status := dbms_lock.request (lockhandle => l_bc_handle,
181: lockmode => dbms_lock.s_mode,
182: timeout => 300);
183:
184: if l_bc_status <> 0 then
177: lockhandle => l_bc_handle,
178: expiration_secs => 86400);
179:
180: l_bc_status := dbms_lock.request (lockhandle => l_bc_handle,
181: lockmode => dbms_lock.s_mode,
182: timeout => 300);
183:
184: if l_bc_status <> 0 then
185: raise FND_API.G_EXC_ERROR;
184: if l_bc_status <> 0 then
185: raise FND_API.G_EXC_ERROR;
186: end if;
187:
188: dbms_lock.allocate_unique (lockname => l_ps_lock,
189: lockhandle => l_ps_handle,
190: expiration_secs => 86400);
191:
192: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
188: dbms_lock.allocate_unique (lockname => l_ps_lock,
189: lockhandle => l_ps_handle,
190: expiration_secs => 86400);
191:
192: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
193: lockmode => dbms_lock.s_mode,
194: timeout => 300);
195:
196: if l_ps_status <> 0 then
189: lockhandle => l_ps_handle,
190: expiration_secs => 86400);
191:
192: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
193: lockmode => dbms_lock.s_mode,
194: timeout => 300);
195:
196: if l_ps_status <> 0 then
197: raise FND_API.G_EXC_ERROR;
199:
200: if l_cs_lock is not null then
201: begin
202:
203: dbms_lock.allocate_unique (lockname => l_cs_lock,
204: lockhandle => l_cs_handle,
205: expiration_secs => 86400);
206:
207: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
203: dbms_lock.allocate_unique (lockname => l_cs_lock,
204: lockhandle => l_cs_handle,
205: expiration_secs => 86400);
206:
207: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
208: lockmode => dbms_lock.s_mode,
209: timeout => 300);
210:
211: if l_cs_status <> 0 then
204: lockhandle => l_cs_handle,
205: expiration_secs => 86400);
206:
207: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
208: lockmode => dbms_lock.s_mode,
209: timeout => 300);
210:
211: if l_cs_status <> 0 then
212: raise FND_API.G_EXC_ERROR;
217:
218: if l_ar_lock is not null then
219: begin
220:
221: dbms_lock.allocate_unique (lockname => l_ar_lock,
222: lockhandle => l_ar_handle,
223: expiration_secs => 86400);
224:
225: l_ar_status := dbms_lock.request (lockhandle => l_ar_handle,
221: dbms_lock.allocate_unique (lockname => l_ar_lock,
222: lockhandle => l_ar_handle,
223: expiration_secs => 86400);
224:
225: l_ar_status := dbms_lock.request (lockhandle => l_ar_handle,
226: lockmode => dbms_lock.s_mode,
227: timeout => 300);
228:
229: if l_ar_status <> 0 then
222: lockhandle => l_ar_handle,
223: expiration_secs => 86400);
224:
225: l_ar_status := dbms_lock.request (lockhandle => l_ar_handle,
226: lockmode => dbms_lock.s_mode,
227: timeout => 300);
228:
229: if l_ar_status <> 0 then
230: raise FND_API.G_EXC_ERROR;
235:
236: if l_de_lock is not null then
237: begin
238:
239: dbms_lock.allocate_unique (lockname => l_de_lock,
240: lockhandle => l_de_handle,
241: expiration_secs => 86400);
242:
243: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
239: dbms_lock.allocate_unique (lockname => l_de_lock,
240: lockhandle => l_de_handle,
241: expiration_secs => 86400);
242:
243: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
244: lockmode => dbms_lock.s_mode,
245: timeout => 300);
246:
247: if l_de_status <> 0 then
240: lockhandle => l_de_handle,
241: expiration_secs => 86400);
242:
243: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
244: lockmode => dbms_lock.s_mode,
245: timeout => 300);
246:
247: if l_de_status <> 0 then
248: raise FND_API.G_EXC_ERROR;
275: end if;
276:
277: end loop;
278:
279: dbms_lock.allocate_unique (lockname => l_br_lock,
280: lockhandle => l_br_handle,
281: expiration_secs => 86400);
282:
283: l_br_status := dbms_lock.request (lockhandle => l_br_handle,
279: dbms_lock.allocate_unique (lockname => l_br_lock,
280: lockhandle => l_br_handle,
281: expiration_secs => 86400);
282:
283: l_br_status := dbms_lock.request (lockhandle => l_br_handle,
284: lockmode => dbms_lock.s_mode,
285: timeout => 300);
286:
287: if l_br_status <> 0 then
280: lockhandle => l_br_handle,
281: expiration_secs => 86400);
282:
283: l_br_status := dbms_lock.request (lockhandle => l_br_handle,
284: lockmode => dbms_lock.s_mode,
285: timeout => 300);
286:
287: if l_br_status <> 0 then
288: raise FND_API.G_EXC_ERROR;
287: if l_br_status <> 0 then
288: raise FND_API.G_EXC_ERROR;
289: end if;
290:
291: dbms_lock.allocate_unique (lockname => l_bg_lock,
292: lockhandle => l_bg_handle,
293: expiration_secs => 86400);
294:
295: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
291: dbms_lock.allocate_unique (lockname => l_bg_lock,
292: lockhandle => l_bg_handle,
293: expiration_secs => 86400);
294:
295: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
296: lockmode => dbms_lock.s_mode,
297: timeout => 300);
298:
299: if l_bg_status <> 0 then
292: lockhandle => l_bg_handle,
293: expiration_secs => 86400);
294:
295: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
296: lockmode => dbms_lock.s_mode,
297: timeout => 300);
298:
299: if l_bg_status <> 0 then
300: raise FND_API.G_EXC_ERROR;
301: end if;
302:
303: if l_ps_lock is not null then
304: begin
305: dbms_lock.allocate_unique (lockname => l_ps_lock,
306: lockhandle => l_ps_handle,
307: expiration_secs => 86400);
308:
309: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
305: dbms_lock.allocate_unique (lockname => l_ps_lock,
306: lockhandle => l_ps_handle,
307: expiration_secs => 86400);
308:
309: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
310: lockmode => dbms_lock.s_mode,
311: timeout => 300);
312:
313: if l_ps_status <> 0 then
306: lockhandle => l_ps_handle,
307: expiration_secs => 86400);
308:
309: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
310: lockmode => dbms_lock.s_mode,
311: timeout => 300);
312:
313: if l_ps_status <> 0 then
314: raise FND_API.G_EXC_ERROR;
318:
319: if l_cs_lock is not null then
320: begin
321:
322: dbms_lock.allocate_unique (lockname => l_cs_lock,
323: lockhandle => l_cs_handle,
324: expiration_secs => 86400);
325:
326: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
322: dbms_lock.allocate_unique (lockname => l_cs_lock,
323: lockhandle => l_cs_handle,
324: expiration_secs => 86400);
325:
326: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
327: lockmode => dbms_lock.s_mode,
328: timeout => 300);
329:
330: if l_cs_status <> 0 then
323: lockhandle => l_cs_handle,
324: expiration_secs => 86400);
325:
326: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
327: lockmode => dbms_lock.s_mode,
328: timeout => 300);
329:
330: if l_cs_status <> 0 then
331: raise FND_API.G_EXC_ERROR;
345: begin
346:
347: l_de_lock := 'PSB%DE' || p_concurrency_entity_id;
348:
349: dbms_lock.allocate_unique (lockname => l_de_lock,
350: lockhandle => l_de_handle,
351: expiration_secs => 86400);
352:
353: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
349: dbms_lock.allocate_unique (lockname => l_de_lock,
350: lockhandle => l_de_handle,
351: expiration_secs => 86400);
352:
353: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
354: lockmode => dbms_lock.s_mode,
355: timeout => 300);
356:
357: if l_de_status <> 0 then
350: lockhandle => l_de_handle,
351: expiration_secs => 86400);
352:
353: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
354: lockmode => dbms_lock.s_mode,
355: timeout => 300);
356:
357: if l_de_status <> 0 then
358: raise FND_API.G_EXC_ERROR;
369: begin
370:
371: l_ws_lock := 'PSB%WS' || p_concurrency_entity_id;
372:
373: dbms_lock.allocate_unique (lockname => l_ws_lock,
374: lockhandle => l_ws_handle,
375: expiration_secs => 86400);
376:
377: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
373: dbms_lock.allocate_unique (lockname => l_ws_lock,
374: lockhandle => l_ws_handle,
375: expiration_secs => 86400);
376:
377: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
378: timeout => 300,
379: release_on_commit => TRUE);
380:
381: if l_ws_status <> 0 then
387: begin
388:
389: l_de_lock := 'PSB%DE' || p_concurrency_entity_id;
390:
391: dbms_lock.allocate_unique (lockname => l_de_lock,
392: lockhandle => l_de_handle,
393: expiration_secs => 86400);
394:
395: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
391: dbms_lock.allocate_unique (lockname => l_de_lock,
392: lockhandle => l_de_handle,
393: expiration_secs => 86400);
394:
395: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
396: timeout => 300,
397: release_on_commit => TRUE);
398:
399: if l_de_status <> 0 then
411: begin
412:
413: l_pa_lock := 'PSB%PA' || p_concurrency_entity_id;
414:
415: dbms_lock.allocate_unique (lockname => l_pa_lock,
416: lockhandle => l_pa_handle,
417: expiration_secs => 86400);
418:
419: l_pa_status := dbms_lock.request (lockhandle => l_pa_handle,
415: dbms_lock.allocate_unique (lockname => l_pa_lock,
416: lockhandle => l_pa_handle,
417: expiration_secs => 86400);
418:
419: l_pa_status := dbms_lock.request (lockhandle => l_pa_handle,
420: timeout => 300,
421: release_on_commit => TRUE);
422:
423: if l_pa_status <> 0 then
437: begin
438:
439: l_ws_lock := 'PSB%WS' || p_concurrency_entity_id;
440:
441: dbms_lock.allocate_unique (lockname => l_ws_lock,
442: lockhandle => l_ws_handle,
443: expiration_secs => 86400);
444:
445: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
441: dbms_lock.allocate_unique (lockname => l_ws_lock,
442: lockhandle => l_ws_handle,
443: expiration_secs => 86400);
444:
445: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
446: lockmode => dbms_lock.s_mode,
447: timeout => 1,
448: release_on_commit => TRUE);
449:
442: lockhandle => l_ws_handle,
443: expiration_secs => 86400);
444:
445: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
446: lockmode => dbms_lock.s_mode,
447: timeout => 1,
448: release_on_commit => TRUE);
449:
450: if l_ws_status <> 0 then
464: begin
465:
466: l_ws_lock := 'PSB%WS' || p_concurrency_entity_id;
467:
468: dbms_lock.allocate_unique (lockname => l_ws_lock,
469: lockhandle => l_ws_handle,
470: expiration_secs => 86400);
471:
472: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
468: dbms_lock.allocate_unique (lockname => l_ws_lock,
469: lockhandle => l_ws_handle,
470: expiration_secs => 86400);
471:
472: l_ws_status := dbms_lock.request (lockhandle => l_ws_handle,
473: timeout => 1,
474: release_on_commit => TRUE);
475:
476: if l_ws_status <> 0 then
481: elsif p_concurrency_entity_name = 'BUDGET_REVISION' then
482: begin
483: l_br_lock := 'PSB%BR' || p_concurrency_entity_id;
484:
485: dbms_lock.allocate_unique (lockname => l_br_lock,
486: lockhandle => l_br_handle,
487: expiration_secs => 86400);
488:
489: l_br_status := dbms_lock.request (lockhandle => l_br_handle,
485: dbms_lock.allocate_unique (lockname => l_br_lock,
486: lockhandle => l_br_handle,
487: expiration_secs => 86400);
488:
489: l_br_status := dbms_lock.request (lockhandle => l_br_handle,
490: timeout => 1,
491: release_on_commit => TRUE);
492:
493: if l_br_status <> 0 then
499: begin
500:
501: l_bg_lock := 'PSB%BG' || p_concurrency_entity_id;
502:
503: dbms_lock.allocate_unique (lockname => l_bg_lock,
504: lockhandle => l_bg_handle,
505: expiration_secs => 86400);
506:
507: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
503: dbms_lock.allocate_unique (lockname => l_bg_lock,
504: lockhandle => l_bg_handle,
505: expiration_secs => 86400);
506:
507: l_bg_status := dbms_lock.request (lockhandle => l_bg_handle,
508: timeout => 1,
509: release_on_commit => TRUE);
510:
511: if l_bg_status <> 0 then
517: begin
518:
519: l_bc_lock := 'PSB%BC' || p_concurrency_entity_id;
520:
521: dbms_lock.allocate_unique (lockname => l_bc_lock,
522: lockhandle => l_bc_handle,
523: expiration_secs => 86400);
524:
525: l_bc_status := dbms_lock.request (lockhandle => l_bc_handle,
521: dbms_lock.allocate_unique (lockname => l_bc_lock,
522: lockhandle => l_bc_handle,
523: expiration_secs => 86400);
524:
525: l_bc_status := dbms_lock.request (lockhandle => l_bc_handle,
526: timeout => 1,
527: release_on_commit => TRUE);
528:
529: if l_bc_status <> 0 then
535: begin
536:
537: l_ps_lock := 'PSB%PS' || p_concurrency_entity_id;
538:
539: dbms_lock.allocate_unique (lockname => l_ps_lock,
540: lockhandle => l_ps_handle,
541: expiration_secs => 86400);
542:
543: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
539: dbms_lock.allocate_unique (lockname => l_ps_lock,
540: lockhandle => l_ps_handle,
541: expiration_secs => 86400);
542:
543: l_ps_status := dbms_lock.request (lockhandle => l_ps_handle,
544: timeout => 1,
545: release_on_commit => TRUE);
546:
547: if l_ps_status <> 0 then
553: begin
554:
555: l_cs_lock := 'PSB%CS' || p_concurrency_entity_id;
556:
557: dbms_lock.allocate_unique (lockname => l_cs_lock,
558: lockhandle => l_cs_handle,
559: expiration_secs => 86400);
560:
561: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
557: dbms_lock.allocate_unique (lockname => l_cs_lock,
558: lockhandle => l_cs_handle,
559: expiration_secs => 86400);
560:
561: l_cs_status := dbms_lock.request (lockhandle => l_cs_handle,
562: timeout => 1,
563: release_on_commit => TRUE);
564:
565: if l_cs_status <> 0 then
571: begin
572:
573: l_ar_lock := 'PSB%AR' || p_concurrency_entity_id;
574:
575: dbms_lock.allocate_unique (lockname => l_ar_lock,
576: lockhandle => l_ar_handle,
577: expiration_secs => 86400);
578:
579: l_ar_status := dbms_lock.request (lockhandle => l_ar_handle,
575: dbms_lock.allocate_unique (lockname => l_ar_lock,
576: lockhandle => l_ar_handle,
577: expiration_secs => 86400);
578:
579: l_ar_status := dbms_lock.request (lockhandle => l_ar_handle,
580: timeout => 1,
581: release_on_commit => TRUE);
582:
583: if l_ar_status <> 0 then
589: begin
590:
591: l_de_lock := 'PSB%DE' || p_concurrency_entity_id;
592:
593: dbms_lock.allocate_unique (lockname => l_de_lock,
594: lockhandle => l_de_handle,
595: expiration_secs => 86400);
596:
597: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
593: dbms_lock.allocate_unique (lockname => l_de_lock,
594: lockhandle => l_de_handle,
595: expiration_secs => 86400);
596:
597: l_de_status := dbms_lock.request (lockhandle => l_de_handle,
598: timeout => 1,
599: release_on_commit => TRUE);
600:
601: if l_de_status <> 0 then
726: end if;
727:
728: end loop;
729:
730: dbms_lock.allocate_unique (lockname => l_ws_lock,
731: lockhandle => l_ws_handle,
732: expiration_secs => 86400);
733:
734: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
730: dbms_lock.allocate_unique (lockname => l_ws_lock,
731: lockhandle => l_ws_handle,
732: expiration_secs => 86400);
733:
734: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
735:
736: if l_ws_status <> 0 then
737: raise FND_API.G_EXC_ERROR;
738: end if;
736: if l_ws_status <> 0 then
737: raise FND_API.G_EXC_ERROR;
738: end if;
739:
740: dbms_lock.allocate_unique (lockname => l_bg_lock,
741: lockhandle => l_bg_handle,
742: expiration_secs => 86400);
743:
744: l_bg_status := DBMS_LOCK.RELEASE(lockhandle => l_bg_handle);
740: dbms_lock.allocate_unique (lockname => l_bg_lock,
741: lockhandle => l_bg_handle,
742: expiration_secs => 86400);
743:
744: l_bg_status := DBMS_LOCK.RELEASE(lockhandle => l_bg_handle);
745:
746: if l_bg_status <> 0 then
747: raise FND_API.G_EXC_ERROR;
748: end if;
746: if l_bg_status <> 0 then
747: raise FND_API.G_EXC_ERROR;
748: end if;
749:
750: dbms_lock.allocate_unique (lockname => l_bc_lock,
751: lockhandle => l_bc_handle,
752: expiration_secs => 86400);
753:
754: l_bc_status := DBMS_LOCK.RELEASE(lockhandle => l_bc_handle);
750: dbms_lock.allocate_unique (lockname => l_bc_lock,
751: lockhandle => l_bc_handle,
752: expiration_secs => 86400);
753:
754: l_bc_status := DBMS_LOCK.RELEASE(lockhandle => l_bc_handle);
755:
756: if l_bc_status <> 0 then
757: raise FND_API.G_EXC_ERROR;
758: end if;
756: if l_bc_status <> 0 then
757: raise FND_API.G_EXC_ERROR;
758: end if;
759:
760: dbms_lock.allocate_unique (lockname => l_ps_lock,
761: lockhandle => l_ps_handle,
762: expiration_secs => 86400);
763:
764: l_ps_status := DBMS_LOCK.RELEASE(lockhandle => l_ps_handle);
760: dbms_lock.allocate_unique (lockname => l_ps_lock,
761: lockhandle => l_ps_handle,
762: expiration_secs => 86400);
763:
764: l_ps_status := DBMS_LOCK.RELEASE(lockhandle => l_ps_handle);
765:
766: if l_ps_status <> 0 then
767: raise FND_API.G_EXC_ERROR;
768: end if;
769:
770: if l_cs_lock is not null then
771: begin
772:
773: dbms_lock.allocate_unique (lockname => l_cs_lock,
774: lockhandle => l_cs_handle,
775: expiration_secs => 86400);
776:
777: l_cs_status := DBMS_LOCK.RELEASE(lockhandle => l_cs_handle);
773: dbms_lock.allocate_unique (lockname => l_cs_lock,
774: lockhandle => l_cs_handle,
775: expiration_secs => 86400);
776:
777: l_cs_status := DBMS_LOCK.RELEASE(lockhandle => l_cs_handle);
778:
779: if l_cs_status <> 0 then
780: raise FND_API.G_EXC_ERROR;
781: end if;
785:
786: if l_ar_lock is not null then
787: begin
788:
789: dbms_lock.allocate_unique (lockname => l_ar_lock,
790: lockhandle => l_ar_handle,
791: expiration_secs => 86400);
792:
793: l_ar_status := DBMS_LOCK.RELEASE(lockhandle => l_ar_handle);
789: dbms_lock.allocate_unique (lockname => l_ar_lock,
790: lockhandle => l_ar_handle,
791: expiration_secs => 86400);
792:
793: l_ar_status := DBMS_LOCK.RELEASE(lockhandle => l_ar_handle);
794:
795: if l_ar_status <> 0 then
796: raise FND_API.G_EXC_ERROR;
797: end if;
801:
802: if l_de_lock is not null then
803: begin
804:
805: dbms_lock.allocate_unique (lockname => l_de_lock,
806: lockhandle => l_de_handle,
807: expiration_secs => 86400);
808:
809: l_de_status := DBMS_LOCK.RELEASE(lockhandle => l_de_handle);
805: dbms_lock.allocate_unique (lockname => l_de_lock,
806: lockhandle => l_de_handle,
807: expiration_secs => 86400);
808:
809: l_de_status := DBMS_LOCK.RELEASE(lockhandle => l_de_handle);
810:
811: if l_de_status <> 0 then
812: raise FND_API.G_EXC_ERROR;
813: end if;
826: begin
827:
828: l_de_lock := 'PSB%DE' || p_concurrency_entity_id;
829:
830: dbms_lock.allocate_unique (lockname => l_de_lock,
831: lockhandle => l_de_handle,
832: expiration_secs => 86400);
833:
834: l_de_status := DBMS_LOCK.RELEASE(lockhandle => l_de_handle);
830: dbms_lock.allocate_unique (lockname => l_de_lock,
831: lockhandle => l_de_handle,
832: expiration_secs => 86400);
833:
834: l_de_status := DBMS_LOCK.RELEASE(lockhandle => l_de_handle);
835:
836: if l_de_status <> 0 then
837: raise FND_API.G_EXC_ERROR;
838: end if;
848: begin
849:
850: l_ws_lock := 'PSB%WS' || p_concurrency_entity_id;
851:
852: dbms_lock.allocate_unique (lockname => l_ws_lock,
853: lockhandle => l_ws_handle,
854: expiration_secs => 86400);
855:
856: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
852: dbms_lock.allocate_unique (lockname => l_ws_lock,
853: lockhandle => l_ws_handle,
854: expiration_secs => 86400);
855:
856: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
857:
858: if l_ws_status <> 0 then
859: raise FND_API.G_EXC_ERROR;
860: end if;
872: begin
873:
874: l_ws_lock := 'PSB%WS' || p_concurrency_entity_id;
875:
876: dbms_lock.allocate_unique (lockname => l_ws_lock,
877: lockhandle => l_ws_handle,
878: expiration_secs => 86400);
879:
880: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
876: dbms_lock.allocate_unique (lockname => l_ws_lock,
877: lockhandle => l_ws_handle,
878: expiration_secs => 86400);
879:
880: l_ws_status := DBMS_LOCK.RELEASE(lockhandle => l_ws_handle);
881:
882: -- For locks requested with release_on_commit = true
883: -- l_ws_status will be 4 since allocate_unique will
884: -- commit and release the lock. 4 is for 'do not own