[Home] [Help]
183: | DESCRIPTION |
184: | Populates the TABLE types passed to the procedure with the total |
185: | amounts of a given type (LINE, TAX, FREIGHT, CHARGES, INVOICE) |
186: | that are currently applied to a given payment schedule. |
187: | The information is extracted from the igi_ar_cash_basis_dists |
188: | table, and is returned ordered by source ('GL' then 'ADJ') and |
189: | source_id (ra_cust_trx_line_gl_dist_id or adjustment_id ) |
190: | PARAMETERS |
191: | p_ps_id Payment Schedule Id for which current |
230: cbd.source Source,
231: cbd.source_id SourceId,
232: NVL(SUM( DECODE(cbd.source,
233: 'UNA', cbd.amount, 0 )),0) UnallocatedAmt
234: FROM igi_ar_cash_basis_dists cbd
235: WHERE cbd.payment_schedule_id = p_ps_id
236: AND cbd.type = p_type
237: -- AND cbd.set_of_books_id = p_sob_id
238: AND cbd.posting_control_id+0 > 0
538: | PRIVATE PROCEDURE |
539: | CreateDistribution |
540: | DESCRIPTION |
541: | Creates a distribution by inserting a record into |
542: | igi_ar_cash_basis_dists, and a record into gl_interface |
543: | PARAMETERS |
544: | |
545: | EXCEPTIONS RAISED |
546: | |
564: p_Type IN VARCHAR2,
565: p_Ccid IN NUMBER,
566: p_AccntClass IN VARCHAR2,
567: p_AmountAppFrom IN NUMBER ) IS
568: CashBasisDistributionId igi_ar_cash_basis_dists.cash_basis_distribution_id%TYPE;
569: BEGIN
570: IF p_Amount = 0 AND p_AcctdAmount = 0 THEN
571: RETURN;
572: END IF;
570: IF p_Amount = 0 AND p_AcctdAmount = 0 THEN
571: RETURN;
572: END IF;
573: --
574: SELECT igi_ar_cash_basis_dists_s.NEXTVAL
575: INTO CashBasisDistributionId
576: FROM dual;
577: --
578: BEGIN
575: INTO CashBasisDistributionId
576: FROM dual;
577: --
578: BEGIN
579: INSERT INTO igi_ar_cash_basis_dists
580: (
581: cash_basis_distribution_id,
582: created_by,
583: creation_date,
810: -- the final NewAppToLine is adjusted
811: -- so that the value of RunningNewAppToLine is equal to
812: -- GrandTotalApplied
813: GrandTotalApplied NUMBER;
814: AppToLineThisTime NUMBER; -- the actual amount posted, and stored in igi_ar_cash_basis_dists
815: AcctdAppToLineThisTime NUMBER;
816: RunningAppToLineThisTime NUMBER := 0;
817: RunningAcctdAppToLineThisTime NUMBER := 0;
818: -- Bug 1829871
1950: 'CMAPP',customer_trx_id,
1951: 'TRADE', cash_receipt_id) = p_BalanceId
1952: ) ;
1953: --
1954: DELETE FROM igi_ar_cash_basis_dists
1955: WHERE cash_basis_distribution_id IN (
1956: SELECT reference23
1957: FROM gl_interface
1958: WHERE reference22 = p_BalanceId
2087: BEGIN
2088:
2089: SELECT cbd.receivable_application_id
2090: INTO l_ReceivableApplicationId
2091: FROM igi_ar_cash_basis_dists cbd
2092: WHERE cbd.cash_basis_distribution_id = RInt.Id;
2093:
2094: EXCEPTION
2095: WHEN OTHERS THEN