[Home] [Help]
2046: begin
2047: select '1'
2048: into l_exists
2049: from dual
2050: where exists (select '1' from gms_concurrency_control
2051: where process_name = 'GMSFCSYS'
2052: and request_id = g_request_id);
2053: exception
2054: when no_data_found then
2052: and request_id = g_request_id);
2053: exception
2054: when no_data_found then
2055:
2056: insert into gms_concurrency_control
2057: (PROCESS_NAME,
2058: PROCESS_KEY ,
2059: REQUEST_ID,
2060: LAST_UPDATE_DATE,
2202: -------------------------------------------------------------------------------
2203: ----------------------------------------------------------------------------------------------------------
2204: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is
2205: -- inserted lock is released.
2206: -- from gms_concurrency_control using COMMIT;
2207:
2208: -- gms_bc_packet_arrival_order Table will store the order in which packets
2209: -- have completed there setup and are ready for funds check.
2210: -- This is required becase packets arrived later can pass fundscheck as setup
2227: considering the cst. case, doing the exception handling */
2228: begin
2229: SELECT 0
2230: INTO x_err_code
2231: FROM gms_concurrency_control
2232: WHERE process_name = 'GMSFCTRL'
2233: FOR UPDATE;
2234: exception
2235: when no_data_found then
2232: WHERE process_name = 'GMSFCTRL'
2233: FOR UPDATE;
2234: exception
2235: when no_data_found then
2236: insert into gms_concurrency_control
2237: (PROCESS_NAME,
2238: PROCESS_KEY ,
2239: REQUEST_ID,
2240: LAST_UPDATE_DATE,
2712: IF g_debug_context = 'Y' THEN
2713: gms_error_pkg.gms_debug (g_error_stage, 'C');
2714: END IF;
2715:
2716: delete from gms_concurrency_control
2717: where process_name = 'GMSFCSYS'
2718: and request_id = g_request_id;
2719:
2720: g_error_stage := 'Delete_Concurrency_Records..end';