[Home] [Help]
5155: -- Bug 2039271
5156:
5157: ----------------------------------------------------------------------------------------------------------
5158: -- This Procedure locks the gms_concurrency_control table before inserting record into
5159: -- gms_bc_packet_arrival_order, once record is inserted lock is released.
5160: ----------------------------------------------------------------------------------------------------------
5161:
5162: PROCEDURE set_concurrency_tab IS
5163: l_sys_date DATE;
5200: END set_concurrency_tab;
5201:
5202:
5203: ----------------------------------------------------------------------------------------------------------
5204: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is inserted lock is released.
5205: -- from gms_concurrency_control using COMMIT;
5206:
5207: -- gms_bc_packet_arrival_order Table will store the order in which packets
5208: -- have completed there setup and are ready for funds check.
5203: ----------------------------------------------------------------------------------------------------------
5204: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is inserted lock is released.
5205: -- from gms_concurrency_control using COMMIT;
5206:
5207: -- gms_bc_packet_arrival_order Table will store the order in which packets
5208: -- have completed there setup and are ready for funds check.
5209: -- This is required becase packets arrived later can pass fundscheck as setup
5210: -- has not been completed for large packets arrived before.
5211: ----------------------------------------------------------------------------------------------------------
5238: WHERE process_name = 'GMSFCTRL'
5239: FOR UPDATE;
5240:
5241: -- Bug 2176230
5242: SELECT gms_bc_packet_arrival_order_s.NEXTVAL
5243: INTO x_arrival_order_seq
5244: FROM DUAL;
5245:
5246:
5243: INTO x_arrival_order_seq
5244: FROM DUAL;
5245:
5246:
5247: -- Bug 2176230 : Commit only in case of check funds mode as gms_bc_packet_arrival_order record
5248: -- is not going to be committed,to restrict the accounting of these transactions
5249: -- in subsequent packets.
5250:
5251: IF x_mode = 'C' THEN
5258: -- setup, Before actual funds check happens. Do Not write any code after
5259: -- this insert statement.
5260: --*******************************************************************************
5261: g_error_stage := 'IN ARRIVAL ORD: INSRT';
5262: INSERT INTO gms_bc_packet_arrival_order
5263: (packet_id,
5264: arrival_seq,
5265: last_update_date,
5266: last_updated_by)
5694: bud_task_id
5695: budget_period_start_date
5696: budget_period_end_date
5697: funds_check_seq
5698: It Also inserts record in gms_bc_packet_arrival_order Table
5699: */
5700: -------------------------------------------------------------------------------------------------
5701: FUNCTION gms_setup (
5702: x_packetid IN NUMBER,
5816: */
5817:
5818: g_error_stage := 'GMS_SETUP : END';
5819: IF g_debug = 'Y' THEN
5820: gms_error_pkg.gms_debug ( 'GMS_SETUP -After Inserting Records in gms_bc_packet_arrival_order ', 'C' );
5821: END IF;
5822: RETURN TRUE;
5823: END gms_setup;
5824:
6378: -- ===========================================================================
6379:
6380: FUNCTION gms_fc_process (
6381: x_packetid IN gms_bc_packets.packet_id%TYPE,
6382: x_arrival_seq1 IN gms_bc_packet_arrival_order.packet_id%TYPE,
6383: x_mode IN Char -- Bug 2176230
6384: )
6385: RETURN BOOLEAN IS
6386: x_err_count NUMBER;
6386: x_err_count NUMBER;
6387: x_error_message VARCHAR2 (2000);
6388:
6389: x_date DATE;
6390: x_arrival_seq gms_bc_packet_arrival_order.packet_id%TYPE;
6391: BEGIN
6392:
6393: g_error_procedure_name := 'gms_fc_process';
6394: g_error_stage := 'FC PR : START';
6395: x_err_count := 0;
6396:
6397: SELECT arrival_seq
6398: INTO x_arrival_seq
6399: FROM gms_bc_packet_arrival_order ao
6400: WHERE ao.packet_id = x_packetid;
6401:
6402: -- ==============================================================================
6403: -- ********************* RESOURCE LEVEL SUMMARY UPDATE ************************
6460: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'PA',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0),
6461: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'AE',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0),
6462: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'PE',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0)
6463: FROM gms_bc_packets bcpkt,
6464: gms_bc_packet_arrival_order ao,
6465: gms_bc_packets_bvid a
6466: WHERE bcpkt.status_code IN ('A', 'P')
6467: AND bcpkt.budget_version_id = a.budget_version_id
6468: AND bcpkt.packet_id = ao.packet_id
7861:
7862: -- Bug 2092791
7863:
7864: -- Bug 2176230
7865: -- Delete Record from gms_bc_packet_arrival_order able to ensure that transactions inserted into
7866: -- gms_bc_packets in check funds mode should not be accounted by any other subsequent packets.
7867:
7868: IF x_mode = 'C' THEN
7869: DELETE gms_bc_packet_arrival_order
7865: -- Delete Record from gms_bc_packet_arrival_order able to ensure that transactions inserted into
7866: -- gms_bc_packets in check funds mode should not be accounted by any other subsequent packets.
7867:
7868: IF x_mode = 'C' THEN
7869: DELETE gms_bc_packet_arrival_order
7870: WHERE packet_id = x_packetid;
7871: END IF;
7872:
7873: COMMIT; -- Bug 4053891 (to release locks ...only set for REQ/PO/AP/FAB/Interface)
9150:
9151: -- Bug 2176230 - Delete arrival_order record in case of any failure.
9152:
9153: IF x_mode = 'C' THEN
9154: DELETE gms_bc_packet_arrival_order
9155: WHERE packet_id = x_packetid;
9156: END IF;
9157:
9158: -- Bug 2337897 : If any Unhandled exception occurs, them mark gl_bc_packets