[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'
1805: end if;
1806:
1807: SELECT SYSDATE
1808: INTO l_sysdate
1809: FROM DUAL;
1810:
1811: IF l_rec_count > 0 Then
1812:
1813: IF g_debug = 'Y' THEN
1883: ,p_revenue_category_tab(i)
1884: ,l_request_id
1885: ,p_ind_cmp_set_id_tab(i)
1886: ,p_source_event_id_tab(i)
1887: FROM dual;
1888: END If;
1889:
1890:
1891: IF p_partial_flag = 'N' THEN -- If full mode
2676: l_award_dist_option := 'N';
2677:
2678: SELECT gms_bc_packets_s.nextval
2679: INTO l_packet_id
2680: FROM dual;
2681:
2682: IF g_debug = 'Y' THEN
2683: gms_error_pkg.gms_debug (g_error_procedure_name||':'||'Calling Intialize_tabs','C');
2684: END IF;
4358: x_exec_type=> 'C',
4359: x_err_code=> x_err_code,
4360: x_err_buff=> x_err_buff);
4361:
4362: Select decode(g_mode,'C','F','R') into x_error_code from dual;
4363:
4364: result_status_code_update (
4365: p_status_code=>x_error_code,
4366: p_result_code=> 'F78',
4812: g_error_procedure_name := 'set_concurrency_tab';
4813: g_error_stage := 'SET_CONCURR_TAB: START';
4814: SELECT SYSDATE
4815: INTO l_sys_date
4816: FROM DUAL;
4817: SELECT 0
4818: INTO x_err_code
4819: FROM gms_concurrency_control
4820: WHERE process_name = 'GMSFCTRL'
4886:
4887: -- Bug 2176230
4888: SELECT gms_bc_packet_arrival_order_s.NEXTVAL
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
5134: g_error_stage := 'CHK SETUP FAIL : N';
5135: BEGIN
5136: SELECT 1
5137: INTO x_err_count
5138: FROM dual
5139: WHERE EXISTS (SELECT 1
5140: FROM gms_bc_packets
5141: WHERE packet_id = x_packetid
5142: AND (
5242: t_fc_seq t_fcseq;
5243: t_count number; -- fix for bug : 2927485
5244:
5245: Cursor C_result_code is
5246: select 'ALL' rcode from dual union all
5247: select 'P82' rcode from dual
5248: order by 1;
5249:
5250:
5243: t_count number; -- fix for bug : 2927485
5244:
5245: Cursor C_result_code is
5246: select 'ALL' rcode from dual union all
5247: select 'P82' rcode from dual
5248: order by 1;
5249:
5250:
5251: BEGIN
7658:
7659: BEGIN
7660: SELECT 0
7661: INTO x_err_code
7662: FROM DUAL
7663: WHERE EXISTS ( SELECT 'X'
7664: FROM gms_bc_packets
7665: WHERE packet_id = x_packetid
7666: AND status_code IN ('S', 'B')); --Bug Fix 1350100 Change status_code from 'A'
7671: END;
7672:
7673: SELECT DECODE (x_err_code, 0, 'S', 'H')
7674: INTO x_e_code
7675: FROM DUAL;
7676:
7677: ELSIF x_mode = 'E' THEN
7678: g_error_stage := 'Encumbrance';
7679:
7679:
7680: BEGIN
7681: SELECT 'F'
7682: INTO x_result_code
7683: FROM DUAL
7684: WHERE EXISTS ( SELECT result_code
7685: FROM gms_bc_packets
7686: WHERE packet_id = x_packetid
7687: AND SUBSTR (result_code, 1, 1) = 'F');
7711:
7712: BEGIN
7713: SELECT 1
7714: INTO x_err_code
7715: FROM DUAL
7716: WHERE EXISTS ( SELECT 'X'
7717: FROM gms_bc_packets
7718: WHERE packet_id = x_packetid
7719: AND SUBSTR (result_code, 1, 1) = 'F'
7726: IF x_partial <> 'Y' THEN
7727: BEGIN
7728: SELECT 1
7729: INTO x_err_code
7730: FROM DUAL
7731: WHERE EXISTS ( SELECT 'X'
7732: FROM gms_bc_packets
7733: WHERE packet_id = x_packetid
7734: AND SUBSTR (result_code, 1, 1) = 'F');
8140: l_stage := 'SELECT' ;
8141:
8142: select 1
8143: into l_pkt_row
8144: from dual
8145: where exists ( select 1 from gms_bc_packets
8146: where packet_id = x_packet_id ) ;
8147:
8148: x_pkt_row := l_pkt_row ;
8278: glbcrec.je_category_name,
8279: glbcrec.je_source_name,glbcrec.period_name,
8280: glbcrec.period_year,glbcrec.period_num,
8281: glbcrec.account_type,
8282: glbcrec.gl_rowid from dual
8283: )
8284: where gbc.packet_id = l_gms_packet_id
8285: and gbc.status_code = 'I'
8286: and gbc.source_event_id = glbcrec.event_id