DBA Data[Home] [Help]

APPS.PSB_CONCURRENCY_CONTROL_PVT dependencies on FND_API

Line 48: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,

44: /* ----------------------------------------------------------------------- */
45:
46: PROCEDURE Enforce_Concurrency_Control
47: ( p_api_version IN NUMBER,
48: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
49: p_return_status OUT NOCOPY VARCHAR2,
50: p_concurrency_class IN VARCHAR2,
51: p_concurrency_entity_name IN VARCHAR2,
52: p_concurrency_entity_id IN NUMBER

Line 117: if not FND_API.Compatible_API_Call (l_api_version,

113: BEGIN
114:
115: -- Standard call to check for call compatibility
116:
117: if not FND_API.Compatible_API_Call (l_api_version,
118: p_api_version,
119: l_api_name,
120: G_PKG_NAME)
121: then

Line 122: raise FND_API.G_EXC_UNEXPECTED_ERROR;

118: p_api_version,
119: l_api_name,
120: G_PKG_NAME)
121: then
122: raise FND_API.G_EXC_UNEXPECTED_ERROR;
123: end if;
124:
125: if p_concurrency_class = 'WORKSHEET_CREATION' then
126: begin

Line 161: raise FND_API.G_EXC_ERROR;

157: lockmode => dbms_lock.s_mode,
158: timeout => 300);
159:
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,

Line 173: raise FND_API.G_EXC_ERROR;

169: lockmode => dbms_lock.s_mode,
170: timeout => 300);
171:
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,

Line 185: raise FND_API.G_EXC_ERROR;

181: lockmode => dbms_lock.s_mode,
182: timeout => 300);
183:
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,

Line 197: raise FND_API.G_EXC_ERROR;

193: lockmode => dbms_lock.s_mode,
194: timeout => 300);
195:
196: if l_ps_status <> 0 then
197: raise FND_API.G_EXC_ERROR;
198: end if;
199:
200: if l_cs_lock is not null then
201: begin

Line 212: raise FND_API.G_EXC_ERROR;

208: lockmode => dbms_lock.s_mode,
209: timeout => 300);
210:
211: if l_cs_status <> 0 then
212: raise FND_API.G_EXC_ERROR;
213: end if;
214:
215: end;
216: end if;

Line 230: raise FND_API.G_EXC_ERROR;

226: lockmode => dbms_lock.s_mode,
227: timeout => 300);
228:
229: if l_ar_status <> 0 then
230: raise FND_API.G_EXC_ERROR;
231: end if;
232:
233: end;
234: end if;

Line 248: raise FND_API.G_EXC_ERROR;

244: lockmode => dbms_lock.s_mode,
245: timeout => 300);
246:
247: if l_de_status <> 0 then
248: raise FND_API.G_EXC_ERROR;
249: end if;
250:
251: end;
252: end if;

Line 288: raise FND_API.G_EXC_ERROR;

284: lockmode => dbms_lock.s_mode,
285: timeout => 300);
286:
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,

Line 300: raise FND_API.G_EXC_ERROR;

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

Line 314: raise FND_API.G_EXC_ERROR;

310: lockmode => dbms_lock.s_mode,
311: timeout => 300);
312:
313: if l_ps_status <> 0 then
314: raise FND_API.G_EXC_ERROR;
315: end if;
316: end;
317: end if;
318:

Line 331: raise FND_API.G_EXC_ERROR;

327: lockmode => dbms_lock.s_mode,
328: timeout => 300);
329:
330: if l_cs_status <> 0 then
331: raise FND_API.G_EXC_ERROR;
332: end if;
333:
334: end;
335: end if;

Line 358: raise FND_API.G_EXC_ERROR;

354: lockmode => dbms_lock.s_mode,
355: timeout => 300);
356:
357: if l_de_status <> 0 then
358: raise FND_API.G_EXC_ERROR;
359: end if;
360:
361: end;
362: end if;

Line 382: raise FND_API.G_EXC_ERROR;

378: timeout => 300,
379: release_on_commit => TRUE);
380:
381: if l_ws_status <> 0 then
382: raise FND_API.G_EXC_ERROR;
383: end if;
384:
385: end;
386: elsif p_concurrency_entity_name = 'DATA_EXTRACT' then

Line 400: raise FND_API.G_EXC_ERROR;

396: timeout => 300,
397: release_on_commit => TRUE);
398:
399: if l_de_status <> 0 then
400: raise FND_API.G_EXC_ERROR;
401: end if;
402:
403: end;
404: end if;

Line 424: raise FND_API.G_EXC_ERROR;

420: timeout => 300,
421: release_on_commit => TRUE);
422:
423: if l_pa_status <> 0 then
424: raise FND_API.G_EXC_ERROR;
425: end if;
426:
427: end;
428: end if;

Line 451: raise FND_API.G_EXC_ERROR;

447: timeout => 1,
448: release_on_commit => TRUE);
449:
450: if l_ws_status <> 0 then
451: raise FND_API.G_EXC_ERROR;
452: end if;
453:
454: end;
455: end if;

Line 477: raise FND_API.G_EXC_ERROR;

473: timeout => 1,
474: release_on_commit => TRUE);
475:
476: if l_ws_status <> 0 then
477: raise FND_API.G_EXC_ERROR;
478: end if;
479:
480: end;
481: elsif p_concurrency_entity_name = 'BUDGET_REVISION' then

Line 494: raise FND_API.G_EXC_ERROR;

490: timeout => 1,
491: release_on_commit => TRUE);
492:
493: if l_br_status <> 0 then
494: raise FND_API.G_EXC_ERROR;
495: end if;
496:
497: end;
498: elsif p_concurrency_entity_name = 'BUDGET_GROUP' then

Line 512: raise FND_API.G_EXC_ERROR;

508: timeout => 1,
509: release_on_commit => TRUE);
510:
511: if l_bg_status <> 0 then
512: raise FND_API.G_EXC_ERROR;
513: end if;
514:
515: end;
516: elsif p_concurrency_entity_name = 'BUDGET_CALENDAR' then

Line 530: raise FND_API.G_EXC_ERROR;

526: timeout => 1,
527: release_on_commit => TRUE);
528:
529: if l_bc_status <> 0 then
530: raise FND_API.G_EXC_ERROR;
531: end if;
532:
533: end;
534: elsif p_concurrency_entity_name = 'PARAMETER_SET' then

Line 548: raise FND_API.G_EXC_ERROR;

544: timeout => 1,
545: release_on_commit => TRUE);
546:
547: if l_ps_status <> 0 then
548: raise FND_API.G_EXC_ERROR;
549: end if;
550:
551: end;
552: elsif p_concurrency_entity_name = 'CONSTRAINT_SET' then

Line 566: raise FND_API.G_EXC_ERROR;

562: timeout => 1,
563: release_on_commit => TRUE);
564:
565: if l_cs_status <> 0 then
566: raise FND_API.G_EXC_ERROR;
567: end if;
568:
569: end;
570: elsif p_concurrency_entity_name = 'ALLOCRULE_SET' then

Line 584: raise FND_API.G_EXC_ERROR;

580: timeout => 1,
581: release_on_commit => TRUE);
582:
583: if l_ar_status <> 0 then
584: raise FND_API.G_EXC_ERROR;
585: end if;
586:
587: end;
588: elsif p_concurrency_entity_name = 'DATA_EXTRACT' then

Line 602: raise FND_API.G_EXC_ERROR;

598: timeout => 1,
599: release_on_commit => TRUE);
600:
601: if l_de_status <> 0 then
602: raise FND_API.G_EXC_ERROR;
603: end if;
604:
605: end;
606: end if;

Line 611: p_return_status := FND_API.G_RET_STS_SUCCESS;

607:
608: end;
609: end if;
610:
611: p_return_status := FND_API.G_RET_STS_SUCCESS;
612:
613:
614: EXCEPTION
615:

Line 616: when FND_API.G_EXC_ERROR then

612:
613:
614: EXCEPTION
615:
616: when FND_API.G_EXC_ERROR then
617: add_message('PSB', 'PSB_CONC_LOCK');
618: p_return_status := FND_API.G_RET_STS_ERROR;
619:
620: when FND_API.G_EXC_UNEXPECTED_ERROR then

Line 618: p_return_status := FND_API.G_RET_STS_ERROR;

614: EXCEPTION
615:
616: when FND_API.G_EXC_ERROR then
617: add_message('PSB', 'PSB_CONC_LOCK');
618: p_return_status := FND_API.G_RET_STS_ERROR;
619:
620: when FND_API.G_EXC_UNEXPECTED_ERROR then
621: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
622:

Line 620: when FND_API.G_EXC_UNEXPECTED_ERROR then

616: when FND_API.G_EXC_ERROR then
617: add_message('PSB', 'PSB_CONC_LOCK');
618: p_return_status := FND_API.G_RET_STS_ERROR;
619:
620: when FND_API.G_EXC_UNEXPECTED_ERROR then
621: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
622:
623: when OTHERS then
624:

Line 621: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

617: add_message('PSB', 'PSB_CONC_LOCK');
618: p_return_status := FND_API.G_RET_STS_ERROR;
619:
620: when FND_API.G_EXC_UNEXPECTED_ERROR then
621: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
622:
623: when OTHERS then
624:
625: if FND_MSG_PUB.Check_Msg_Level

Line 634: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

630: p_procedure_name => l_api_name);
631:
632: end if;
633:
634: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635:
636: END Enforce_Concurrency_Control;
637:
638: /* ----------------------------------------------------------------------- */

Line 642: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,

638: /* ----------------------------------------------------------------------- */
639:
640: PROCEDURE Release_Concurrency_Control
641: ( p_api_version IN NUMBER,
642: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
643: p_return_status OUT NOCOPY VARCHAR2,
644: p_concurrency_class IN VARCHAR2,
645: p_concurrency_entity_name IN VARCHAR2,
646: p_concurrency_entity_id IN NUMBER

Line 695: if not FND_API.Compatible_API_Call (l_api_version,

691: BEGIN
692:
693: -- Standard call to check for call compatibility
694:
695: if not FND_API.Compatible_API_Call (l_api_version,
696: p_api_version,
697: l_api_name,
698: G_PKG_NAME)
699: then

Line 700: raise FND_API.G_EXC_UNEXPECTED_ERROR;

696: p_api_version,
697: l_api_name,
698: G_PKG_NAME)
699: then
700: raise FND_API.G_EXC_UNEXPECTED_ERROR;
701: end if;
702:
703: if p_concurrency_class = 'WORKSHEET_CREATION' then
704: begin

Line 737: raise FND_API.G_EXC_ERROR;

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;
739:
740: dbms_lock.allocate_unique (lockname => l_bg_lock,
741: lockhandle => l_bg_handle,

Line 747: raise FND_API.G_EXC_ERROR;

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;
749:
750: dbms_lock.allocate_unique (lockname => l_bc_lock,
751: lockhandle => l_bc_handle,

Line 757: raise FND_API.G_EXC_ERROR;

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;
759:
760: dbms_lock.allocate_unique (lockname => l_ps_lock,
761: lockhandle => l_ps_handle,

Line 767: raise FND_API.G_EXC_ERROR;

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

Line 780: raise FND_API.G_EXC_ERROR;

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;
782:
783: end;
784: end if;

Line 796: raise FND_API.G_EXC_ERROR;

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;
798:
799: end;
800: end if;

Line 812: raise FND_API.G_EXC_ERROR;

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;
814:
815: end;
816: end if;

Line 837: raise FND_API.G_EXC_ERROR;

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;
839:
840: end;
841: end if;

Line 859: raise FND_API.G_EXC_ERROR;

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;
861:
862: end;
863: end if;

Line 888: raise FND_API.G_EXC_ERROR;

884: -- commit and release the lock. 4 is for 'do not own
885: -- a lock specified by id or lockhandle'.
886:
887: if l_ws_status <> 0 and l_ws_status <> 4 then
888: raise FND_API.G_EXC_ERROR;
889: end if;
890:
891: end;
892: end if;

Line 898: p_return_status := FND_API.G_RET_STS_SUCCESS;

894:
895: /* For Bug 4337768 End */
896:
897: end if;
898: p_return_status := FND_API.G_RET_STS_SUCCESS;
899:
900:
901: EXCEPTION
902:

Line 903: when FND_API.G_EXC_ERROR then

899:
900:
901: EXCEPTION
902:
903: when FND_API.G_EXC_ERROR then
904: p_return_status := FND_API.G_RET_STS_ERROR;
905:
906: when FND_API.G_EXC_UNEXPECTED_ERROR then
907: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 904: p_return_status := FND_API.G_RET_STS_ERROR;

900:
901: EXCEPTION
902:
903: when FND_API.G_EXC_ERROR then
904: p_return_status := FND_API.G_RET_STS_ERROR;
905:
906: when FND_API.G_EXC_UNEXPECTED_ERROR then
907: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908:

Line 906: when FND_API.G_EXC_UNEXPECTED_ERROR then

902:
903: when FND_API.G_EXC_ERROR then
904: p_return_status := FND_API.G_RET_STS_ERROR;
905:
906: when FND_API.G_EXC_UNEXPECTED_ERROR then
907: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908:
909: when OTHERS then
910:

Line 907: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

903: when FND_API.G_EXC_ERROR then
904: p_return_status := FND_API.G_RET_STS_ERROR;
905:
906: when FND_API.G_EXC_UNEXPECTED_ERROR then
907: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908:
909: when OTHERS then
910:
911: if FND_MSG_PUB.Check_Msg_Level

Line 920: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

916: p_procedure_name => l_api_name);
917:
918: end if;
919:
920: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921:
922: END Release_Concurrency_Control;
923:
924: /* ----------------------------------------------------------------------- */