[Home] [Help]
375: -- Full mode
376: Begin
377: Select 1
378: into l_dummy
379: from dual
380: where exists
381: (select 1 from gms_bc_packets bp1
382: where bp1.packet_id = p_packet_id
383: and (bp1.status_code in ('R','F') or
418: l_dummy := 0;
419: Begin
420: select 1
421: into l_dummy
422: from dual
423: where exists (select 1
424: from gms_bc_packets
425: where packet_id = p_packet_id
426: and document_type = 'AP'
1852: end if;
1853:
1854: SELECT SYSDATE
1855: INTO l_sysdate
1856: FROM DUAL;
1857:
1858: IF l_rec_count > 0 Then
1859:
1860: IF g_debug = 'Y' THEN
1930: ,p_revenue_category_tab(i)
1931: ,l_request_id
1932: ,p_ind_cmp_set_id_tab(i)
1933: ,p_source_event_id_tab(i)
1934: FROM dual;
1935: END If;
1936:
1937:
1938: IF p_partial_flag = 'N' THEN -- If full mode
2947: l_award_dist_option := 'N';
2948:
2949: SELECT gms_bc_packets_s.nextval
2950: INTO l_packet_id
2951: FROM dual;
2952:
2953: IF g_debug = 'Y' THEN
2954: gms_error_pkg.gms_debug (g_error_procedure_name||':'||'Calling Intialize_tabs','C');
2955: END IF;
4712: x_exec_type=> 'C',
4713: x_err_code=> x_err_code,
4714: x_err_buff=> x_err_buff);
4715:
4716: Select decode(g_mode,'C','F','R') into x_error_code from dual;
4717:
4718: result_status_code_update (
4719: p_status_code=>x_error_code,
4720: p_result_code=> 'F78',
5166: g_error_procedure_name := 'set_concurrency_tab';
5167: g_error_stage := 'SET_CONCURR_TAB: START';
5168: SELECT SYSDATE
5169: INTO l_sys_date
5170: FROM DUAL;
5171: SELECT 0
5172: INTO x_err_code
5173: FROM gms_concurrency_control
5174: WHERE process_name = 'GMSFCTRL'
5240:
5241: -- Bug 2176230
5242: SELECT gms_bc_packet_arrival_order_s.NEXTVAL
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
5488: g_error_stage := 'CHK SETUP FAIL : N';
5489: BEGIN
5490: SELECT 1
5491: INTO x_err_count
5492: FROM dual
5493: WHERE EXISTS (SELECT 1
5494: FROM gms_bc_packets
5495: WHERE packet_id = x_packetid
5496: AND (
5596: t_fc_seq t_fcseq;
5597: t_count number; -- fix for bug : 2927485
5598:
5599: Cursor C_result_code is
5600: select 'ALL' rcode from dual union all
5601: select 'P82' rcode from dual
5602: order by 1;
5603:
5604:
5597: t_count number; -- fix for bug : 2927485
5598:
5599: Cursor C_result_code is
5600: select 'ALL' rcode from dual union all
5601: select 'P82' rcode from dual
5602: order by 1;
5603:
5604:
5605: BEGIN
8014:
8015: BEGIN
8016: SELECT 0
8017: INTO x_err_code
8018: FROM DUAL
8019: WHERE EXISTS ( SELECT 'X'
8020: FROM gms_bc_packets
8021: WHERE packet_id = x_packetid
8022: AND status_code IN ('S', 'B')); --Bug Fix 1350100 Change status_code from 'A'
8027: END;
8028:
8029: SELECT DECODE (x_err_code, 0, 'S', 'H')
8030: INTO x_e_code
8031: FROM DUAL;
8032:
8033: ELSIF x_mode = 'E' THEN
8034: g_error_stage := 'Encumbrance';
8035:
8035:
8036: BEGIN
8037: SELECT 'F'
8038: INTO x_result_code
8039: FROM DUAL
8040: WHERE EXISTS ( SELECT result_code
8041: FROM gms_bc_packets
8042: WHERE packet_id = x_packetid
8043: AND SUBSTR (result_code, 1, 1) = 'F');
8067:
8068: BEGIN
8069: SELECT 1
8070: INTO x_err_code
8071: FROM DUAL
8072: WHERE EXISTS ( SELECT 'X'
8073: FROM gms_bc_packets
8074: WHERE packet_id = x_packetid
8075: AND SUBSTR (result_code, 1, 1) = 'F'
8082: IF x_partial <> 'Y' THEN
8083: BEGIN
8084: SELECT 1
8085: INTO x_err_code
8086: FROM DUAL
8087: WHERE EXISTS ( SELECT 'X'
8088: FROM gms_bc_packets
8089: WHERE packet_id = x_packetid
8090: AND SUBSTR (result_code, 1, 1) = 'F');
8505: l_stage := 'SELECT' ;
8506:
8507: select 1
8508: into l_pkt_row
8509: from dual
8510: where exists ( select 1 from gms_bc_packets
8511: where packet_id = x_packet_id ) ;
8512:
8513: x_pkt_row := l_pkt_row ;
8643: glbcrec.je_category_name,
8644: glbcrec.je_source_name,glbcrec.period_name,
8645: glbcrec.period_year,glbcrec.period_num,
8646: glbcrec.account_type,
8647: glbcrec.gl_rowid from dual
8648: )
8649: where gbc.packet_id = l_gms_packet_id
8650: and gbc.status_code = 'I'
8651: and gbc.source_event_id = glbcrec.event_id