[Home] [Help]
4801: -- Bug 2039271
4802:
4803: ----------------------------------------------------------------------------------------------------------
4804: -- This Procedure locks the gms_concurrency_control table before inserting record into
4805: -- gms_bc_packet_arrival_order, once record is inserted lock is released.
4806: ----------------------------------------------------------------------------------------------------------
4807:
4808: PROCEDURE set_concurrency_tab IS
4809: l_sys_date DATE;
4846: END set_concurrency_tab;
4847:
4848:
4849: ----------------------------------------------------------------------------------------------------------
4850: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is inserted lock is released.
4851: -- from gms_concurrency_control using COMMIT;
4852:
4853: -- gms_bc_packet_arrival_order Table will store the order in which packets
4854: -- have completed there setup and are ready for funds check.
4849: ----------------------------------------------------------------------------------------------------------
4850: -- This Procedure inserts record in gms_bc_packet_arrival_order, once record is inserted lock is released.
4851: -- from gms_concurrency_control using COMMIT;
4852:
4853: -- gms_bc_packet_arrival_order Table will store the order in which packets
4854: -- have completed there setup and are ready for funds check.
4855: -- This is required becase packets arrived later can pass fundscheck as setup
4856: -- has not been completed for large packets arrived before.
4857: ----------------------------------------------------------------------------------------------------------
4884: WHERE process_name = 'GMSFCTRL'
4885: FOR UPDATE;
4886:
4887: -- Bug 2176230
4888: SELECT gms_bc_packet_arrival_order_s.NEXTVAL
4889: INTO x_arrival_order_seq
4890: FROM DUAL;
4891:
4892:
4889: INTO x_arrival_order_seq
4890: FROM DUAL;
4891:
4892:
4893: -- Bug 2176230 : Commit only in case of check funds mode as gms_bc_packet_arrival_order record
4894: -- is not going to be committed,to restrict the accounting of these transactions
4895: -- in subsequent packets.
4896:
4897: IF x_mode = 'C' THEN
4904: -- setup, Before actual funds check happens. Do Not write any code after
4905: -- this insert statement.
4906: --*******************************************************************************
4907: g_error_stage := 'IN ARRIVAL ORD: INSRT';
4908: INSERT INTO gms_bc_packet_arrival_order
4909: (packet_id,
4910: arrival_seq,
4911: last_update_date,
4912: last_updated_by)
5338: bud_task_id
5339: budget_period_start_date
5340: budget_period_end_date
5341: funds_check_seq
5342: It Also inserts record in gms_bc_packet_arrival_order Table
5343: */
5344: -------------------------------------------------------------------------------------------------
5345: FUNCTION gms_setup (
5346: x_packetid IN NUMBER,
5460: */
5461:
5462: g_error_stage := 'GMS_SETUP : END';
5463: IF g_debug = 'Y' THEN
5464: gms_error_pkg.gms_debug ( 'GMS_SETUP -After Inserting Records in gms_bc_packet_arrival_order ', 'C' );
5465: END IF;
5466: RETURN TRUE;
5467: END gms_setup;
5468:
6022: -- ===========================================================================
6023:
6024: FUNCTION gms_fc_process (
6025: x_packetid IN gms_bc_packets.packet_id%TYPE,
6026: x_arrival_seq1 IN gms_bc_packet_arrival_order.packet_id%TYPE,
6027: x_mode IN Char -- Bug 2176230
6028: )
6029: RETURN BOOLEAN IS
6030: x_err_count NUMBER;
6030: x_err_count NUMBER;
6031: x_error_message VARCHAR2 (2000);
6032:
6033: x_date DATE;
6034: x_arrival_seq gms_bc_packet_arrival_order.packet_id%TYPE;
6035: BEGIN
6036:
6037: g_error_procedure_name := 'gms_fc_process';
6038: g_error_stage := 'FC PR : START';
6039: x_err_count := 0;
6040:
6041: SELECT arrival_seq
6042: INTO x_arrival_seq
6043: FROM gms_bc_packet_arrival_order ao
6044: WHERE ao.packet_id = x_packetid;
6045:
6046: -- ==============================================================================
6047: -- ********************* RESOURCE LEVEL SUMMARY UPDATE ************************
6104: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'PA',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0),
6105: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'AE',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0),
6106: nvl(sum(decode(bcpkt.status_code || bcpkt.actual_flag, 'PE',nvl(entered_dr,0) - nvl(entered_cr,0),0)),0)
6107: FROM gms_bc_packets bcpkt,
6108: gms_bc_packet_arrival_order ao,
6109: gms_bc_packets_bvid a
6110: WHERE bcpkt.status_code IN ('A', 'P')
6111: AND bcpkt.budget_version_id = a.budget_version_id
6112: AND bcpkt.packet_id = ao.packet_id
7505:
7506: -- Bug 2092791
7507:
7508: -- Bug 2176230
7509: -- Delete Record from gms_bc_packet_arrival_order able to ensure that transactions inserted into
7510: -- gms_bc_packets in check funds mode should not be accounted by any other subsequent packets.
7511:
7512: IF x_mode = 'C' THEN
7513: DELETE gms_bc_packet_arrival_order
7509: -- Delete Record from gms_bc_packet_arrival_order able to ensure that transactions inserted into
7510: -- gms_bc_packets in check funds mode should not be accounted by any other subsequent packets.
7511:
7512: IF x_mode = 'C' THEN
7513: DELETE gms_bc_packet_arrival_order
7514: WHERE packet_id = x_packetid;
7515: END IF;
7516:
7517: COMMIT; -- Bug 4053891 (to release locks ...only set for REQ/PO/AP/FAB/Interface)
8775:
8776: -- Bug 2176230 - Delete arrival_order record in case of any failure.
8777:
8778: IF x_mode = 'C' THEN
8779: DELETE gms_bc_packet_arrival_order
8780: WHERE packet_id = x_packetid;
8781: END IF;
8782:
8783: -- Bug 2337897 : If any Unhandled exception occurs, them mark gl_bc_packets