[Home] [Help]
10488: If g_debug_mode = 'Y' Then
10489: log_message(p_msg_token1 => 'Inside the create_liqd_entry api ');
10490: End if;
10491: /** Bug fix : 1900229 During Check mode also insert liquidation and burden transaction
10492: * to gl_bc_packets and igc_cc_interface tables
10493: */
10494: IF g_debug_mode = 'Y' THEN
10495: log_message(p_msg_token1 => 'p_calling_module'||p_calling_module||' p_mode= '||p_mode);
10496: End if;
10498: IF p_calling_module = 'CBC' and p_mode in ('R','U','C','F') then
10499:
10500: SELECT nvl(MAX(batch_line_num),0)
10501: INTO l_max_batch_line_id
10502: FROM igc_cc_interface
10503: WHERE document_type = 'CC'
10504: AND cc_header_id = p_reference2;
10505:
10506:
10503: WHERE document_type = 'CC'
10504: AND cc_header_id = p_reference2;
10505:
10506:
10507: INSERT INTO igc_cc_interface(
10508: CC_HEADER_ID,
10509: CC_VERSION_NUM,
10510: CC_ACCT_LINE_ID,
10511: CC_DET_PF_LINE_ID ,
10603: --igc.BATCH_ID ,
10604: --igc.PA_FLAG ,
10605: --igc.RESULT_CODE_LEVEL ,
10606: --igc.RESULT_CODE_SOURCE
10607: FROM igc_cc_interface igc,
10608: pa_bc_packets pbc
10609: WHERE pbc.packet_id = p_packet_id
10610: AND pbc.document_header_id = igc.cc_header_id
10611: AND pbc.document_distribution_id = igc.cc_acct_line_id
10828:
10829: IF p_calling_module = 'CBC' then
10830: SELECT nvl(MAX(batch_line_num),0)
10831: INTO l_max_batch_line_id
10832: FROM igc_cc_interface
10833: WHERE document_type = 'CC'
10834: AND cc_header_id = p_reference2;
10835:
10836: INSERT INTO igc_cc_interface(
10832: FROM igc_cc_interface
10833: WHERE document_type = 'CC'
10834: AND cc_header_id = p_reference2;
10835:
10836: INSERT INTO igc_cc_interface(
10837: CC_HEADER_ID,
10838: CC_VERSION_NUM,
10839: CC_ACCT_LINE_ID,
10840: CC_DET_PF_LINE_ID ,
10931: --igc.BATCH_ID ,
10932: --igc.PA_FLAG ,
10933: --igc.RESULT_CODE_LEVEL ,
10934: --igc.RESULT_CODE_SOURCE
10935: FROM igc_cc_interface igc,
10936: pa_bc_packets pbc
10937: WHERE pbc.packet_id = p_packet_id
10938: AND pbc.document_type in ('CC_C_CO','CC_P_CO')
10939: /*** bug fix : 1883119
11019: CURSOR igc_status(l_cc_header_id number
11020: ,l_cc_type varchar2) is
11021: SELECT decode(count(*), count(decode(substr(nvl
11022: (igc.cbc_result_code,'P'),1,1),'P',1)),'P','F')
11023: FROM igc_cc_interface igc
11024: WHERE igc.cc_header_id = l_cc_header_id;
11025:
11026:
11027: CURSOR gl_status is
11543: If g_debug_mode = 'Y' Then
11544: log_message(p_msg_token1 =>' update CBC packet with result code ');
11545: End if;
11546:
11547: UPDATE igc_cc_interface igc
11548: SET igc.cbc_result_code =
11549: (select MAX(
11550: decode(substr(nvl(igc.cbc_result_code,'P'),1,1),'P',
11551: decode( pbc.result_code,'F100','F00',
11723:
11724: IF p_calling_module in('CBC','CBC_TIEBACK') then
11725:
11726: /** the calling module CBC_TIEBACK is used to update the
11727: * status code in igc_cc_interface table if pa pass and
11728: * cbc fc fails, if pa fails then cbc doesnot call tie back
11729: * since payment forcast lines are not funds checked we
11730: * should not update the status code of payment forcast line
11731: */
11733: open igc_status(p_reference2,p_reference1);
11734: fetch igc_status into l_igc_status;
11735: close igc_status;
11736:
11737: UPDATE igc_cc_interface igc
11738: SET igc.cbc_result_code = decode(substr(cbc_result_code,1,1),'P',
11739: decode(sign(nvl(igc.cc_func_dr_amt,0)
11740: - nvl(igc.cc_func_cr_amt,0)),
11741: -1, 'P32',
12000: * * This param is not null for EXP , CC document type and Base line mode
12001: * P_reference2 If the p_mode is 'R',U,C,F' and p_calling_module = 'CBC' then
12002: * this parameter holds the document header info for Contract Commitment
12003: * document Header Id from Contract Commitments
12004: * IGC_CC_INTERFACE.CC_HEADER_ID
12005: * Elsif p_mode is B, S and p_calling_module = 'BASELINE' then
12006: * this parameter holds the project_id
12007: * End if;
12008: * * This param is not null for CC document type and Base line mode
12680: end if;
12681:
12682: ----------------------------------------------------------------------------------
12683: -- if the project funds check is success full then call encumbrance liquidation
12684: -- entries in gl bc packets and igc cc interface tables
12685: ----------------------------------------------------------------------------------
12686: If g_debug_mode = 'Y' then
12687: log_message(p_stage => 120, p_msg_token1 => 'Calling create_liqd_entry API');
12688: end if;
13152: * CBC --- Contract Commitments
13153: * P_reference1 :This Param is not null in case of Contract Commitment
13154: * If P_ext_bdgt_type = CBC
13155: * This param holds the information of document type
13156: * P_reference2 = Igc_cc_interface.document_type
13157: * elsif p_mode = B then
13158: * P_reference1 = project_id
13159: * Else
13160: * P_reference1 = NULL;
13161: * End if;
13162: * P_reference2 :This Param is not null in case of Contract Commitment
13163: * If P_ext_bdgt_type = CBC
13164: * This param holds the information of document Header Id
13165: * P_reference2 = Igc_cc_interface.CC_HEADER_ID
13166: * elsif p_mode = B then
13167: * P_reference2 = budget_version_id
13168: * Else
13169: * P_reference2 = NULL;
13223:
13224: -------->6599207 ------As part of CC Enhancements
13225: CURSOR cbc_cur IS
13226: SELECT igc.rowid,igc.reference_9
13227: FROM igc_cc_interface igc
13228: WHERE igc.document_type = p_reference1
13229: AND igc.cc_header_id = p_reference2
13230: AND ((nvl(substr(igc.cbc_result_code,1,1),'P') = 'F'
13231: AND igc.status_code in ('F','R'))