[Home] [Help]
1991: begin
1992: select '1'
1993: into l_exists
1994: from dual
1995: where exists (select '1' from gms_concurrency_control
1996: where process_name = 'GMSFCSYS'
1997: and request_id = g_request_id);
1998: exception
1999: when no_data_found then
1997: and request_id = g_request_id);
1998: exception
1999: when no_data_found then
2000:
2001: insert into gms_concurrency_control
2002: (PROCESS_NAME,
2003: PROCESS_KEY ,
2004: REQUEST_ID,
2005: LAST_UPDATE_DATE,
2147: -------------------------------------------------------------------------------
2148: ----------------------------------------------------------------------------------------------------------
2149: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is
2150: -- inserted lock is released.
2151: -- from gms_concurrency_control using COMMIT;
2152:
2153: -- gms_bc_packet_arrival_order Table will store the order in which packets
2154: -- have completed there setup and are ready for funds check.
2155: -- This is required becase packets arrived later can pass fundscheck as setup
2168: g_error_stage := 'insert_arrival_order_seq';
2169:
2170: SELECT 0
2171: INTO x_err_code
2172: FROM gms_concurrency_control
2173: WHERE process_name = 'GMSFCTRL'
2174: FOR UPDATE;
2175:
2176: SELECT gms_bc_packet_arrival_order_s.NEXTVAL
2632: IF g_debug_context = 'Y' THEN
2633: gms_error_pkg.gms_debug (g_error_stage, 'C');
2634: END IF;
2635:
2636: delete from gms_concurrency_control
2637: where process_name = 'GMSFCSYS'
2638: and request_id = g_request_id;
2639:
2640: g_error_stage := 'Delete_Concurrency_Records..end';