[Home] [Help]
10813: and bcc.Parent_Bc_Packet_Id is NULL;
10814:
10815: select sum(nvl(accounted_dr,0)-nvl(accounted_cr,0)),SUM(POD.rate)/SUM(1)
10816: into l_com_summ,l_com_rate
10817: from pa_bc_commitments bcc,
10818: po_distributions pod --Added for Bug#3693974
10819: where pod.po_header_id = p_sys_ref2
10820: and pod.po_distribution_id = p_sys_ref3
10821: and ((
11710: and bcc.Parent_Bc_Packet_Id is NULL;
11711:
11712: CURSOR C_get_raw_bccmt_amt IS
11713: select sum(nvl(accounted_dr,0)-nvl(accounted_cr,0))
11714: from pa_bc_commitments bcc
11715: where bcc.document_type = 'AP'
11716: and bcc.document_header_id = p_sys_ref2
11717: and bcc.document_distribution_id = p_sys_ref5
11718: and bcc.Parent_Bc_Packet_Id is NULL;
12097:
12098: -- This procedure inserts records into pa_bc_packets for relieving commitment raw and burden
12099: -- and also for reserving raw and burden against actual.
12100: -- 1. IF p_fc_document_type = 'CMT'/'ALL' then we need to relieve commitment amount.
12101: -- 2. If commitment exists in pa_bc_commitments (i.e. sweeper process if run) then
12102: -- insert records into pa_bc_packets to relieve the raw and burden commitment
12103: -- amounts lying in pa_bc_commitments.
12104: -- else
12105: -- insert records into pa_bc_packets to relieve the raw and burden commitment
12099: -- and also for reserving raw and burden against actual.
12100: -- 1. IF p_fc_document_type = 'CMT'/'ALL' then we need to relieve commitment amount.
12101: -- 2. If commitment exists in pa_bc_commitments (i.e. sweeper process if run) then
12102: -- insert records into pa_bc_packets to relieve the raw and burden commitment
12103: -- amounts lying in pa_bc_commitments.
12104: -- else
12105: -- insert records into pa_bc_packets to relieve the raw and burden commitment
12106: -- amounts lying in pa_bc_packets.
12107: -- end if;
12107: -- end if;
12108: -- 3.p_document type = 'ALL' and p_adj_exp_item_id IS NULL implies its a regular
12109: -- Payable Invoice getting interfaced to Projects. In this case
12110: -- insert records into pa_bc_packets to reserve actual raw cost amount which is equal to
12111: -- commitment amount in pa_bc_commitments relieved in step 2.
12112: -- Note : parent_bc_packet_id is populated to -1 such that pa_funds_check process will
12113: -- generate burden against this actual based on latest compiled set id.
12114: -- 4.If p_document type = 'ACT'/'ALL' and p_adj_exp_item_id IS NOT NULL then it implies thats its a
12115: -- reversing/cancelled Payable Invoice getting interfaced to Projects and original
12189: ,bcc.parent_bc_packet_id
12190: ,bcc.encumbrance_type_id
12191: ,bcc.document_header_id_2
12192: ,bcc.document_distribution_type
12193: From Pa_Bc_Commitments_all bcc
12194: Where bcc.Document_Header_Id = p_sys_ref2
12195: and bcc.Document_Distribution_Id =p_sys_ref5
12196: --PA-J Receipt accrual changes
12197: and bcc.document_type = 'AP'
12262: OR
12263: (bcc.parent_bc_packet_id is NOT null AND p_txn_source = 'AP VARIANCE')
12264: );
12265:
12266: l_rec_bc_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_commitments
12267: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
12268: L_RAW_BC_PACKET_ID NUMBER;
12269: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
12270: l_po_line_id po_distributions_all.po_line_id%TYPE;
12307:
12308: END IF;
12309:
12310: -- Code to derive values for variables which will decide the flow of this procedure
12311: l_rec_bc_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_commitments
12312: l_rec_pkt_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_packets
12313:
12314: IF p_comm_fc_req ='Y' OR p_act_fc_req = 'Y' THEN
12315:
13063: ,bcc.Org_Id
13064: ,bcc.Pa_Date
13065: ,bcc.bc_packet_id
13066: ,bcc.packet_id
13067: From Pa_Bc_Commitments_all bcc
13068: Where bcc.Document_Header_Id = p_sys_ref2
13069: and bcc.Document_Distribution_Id = p_sys_ref5
13070: and bcc.Parent_Bc_Packet_Id is NULL
13071: --PA-J Receipt accrual changes
13111: and bcc.actual_flag = 'E' -- Bug 5014138 : to pick just the encumbrance record
13112: -- R12 Ap lines Uptake : Added for cash based accounting which can have multiple packets associated witha distribution.
13113: and rownum = 1 ;
13114:
13115: l_rec_bc_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_commitments
13116: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
13117: l_Raw_Bc_Packet_Id pa_bc_packets.bc_packet_id%TYPE;
13118: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
13119: l_po_line_id po_distributions_all.po_line_id%TYPE;
13145: END IF;
13146:
13147: -- Code to derive values for variables which will decide the flow of this procedure
13148:
13149: l_rec_bc_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_commitments
13150: l_rec_pkt_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_packets
13151:
13152: IF p_comm_fc_req ='Y' OR p_act_fc_req = 'Y' THEN
13153:
13350: ,p_txn_interface_id --REL12
13351: ,bcc.encumbrance_type_id
13352: ,bcc.document_header_id_2
13353: ,bcc.document_distribution_type
13354: From Pa_Bc_Commitments_all bcc
13355: Where bcc.Document_Header_Id = p_sys_ref2 -- Added for using index
13356: and bcc.Document_Distribution_Id = p_sys_ref5
13357: and bcc.packet_id = g_packet_id_tbl(i)
13358: and bcc.document_type = 'AP' ;
13951: ,bcc.Pa_Date
13952: ,bcc.bc_packet_id
13953: ,bcc.packet_id
13954: ,bcc.bc_commitment_id
13955: From Pa_Bc_Commitments_all bcc,
13956: po_distributions pod
13957: -- R12 Funds management Uptake : For fixing performance issues removing the code for CC which is obsolete for R12
13958: -- Modifying code to use Index on document_header_id and document_distribution_id of bc commitments
13959: where bcc.document_header_id = pod.po_header_id
14009: and bcc.Status_Code in('A','C')
14010: and bcc.Parent_Bc_Packet_Id is NULL
14011: Order By bcc.packet_id;
14012:
14013: l_rec_bc_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_commitments
14014: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
14015: l_Raw_Bc_Packet_Id pa_bc_packets.bc_packet_id%TYPE;
14016: l_po_line_id po_distributions_all.po_line_id%TYPE;
14017:
14036: END IF;
14037:
14038: -- Code to derive values for variables which will decide the flow of this procedure
14039:
14040: l_rec_bc_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_commitments
14041: l_rec_pkt_comm_exists:='N'; -- Variable to identify whether commitment record exists in pa_bc_packets
14042:
14043: IF p_comm_fc_req ='Y' OR p_act_fc_req = 'Y' THEN
14044:
14253: ,p_txn_interface_id --REL12
14254: ,bcc.encumbrance_type_id
14255: ,bcc.document_header_id_2
14256: ,bcc.document_distribution_type
14257: From Pa_Bc_Commitments_all bcc
14258: Where bcc.bc_commitment_id in (SELECT bcc1.bc_commitment_id
14259: FROM PA_BC_COMMITMENTS_ALL bcc1
14260: WHERE bcc1.document_header_id = p_sys_ref2
14261: AND bcc1.document_distribution_id = p_sys_ref3
14255: ,bcc.document_header_id_2
14256: ,bcc.document_distribution_type
14257: From Pa_Bc_Commitments_all bcc
14258: Where bcc.bc_commitment_id in (SELECT bcc1.bc_commitment_id
14259: FROM PA_BC_COMMITMENTS_ALL bcc1
14260: WHERE bcc1.document_header_id = p_sys_ref2
14261: AND bcc1.document_distribution_id = p_sys_ref3
14262: AND bcc1.parent_bc_packet_id = g_bc_packet_id_tbl(i)
14263: UNIOn ALL