[Home] [Help]
130: | DESCRIPTION |
131: | Populates the TABLE types passed to the procedure with the total |
132: | amounts of a given type (LINE, TAX, FREIGHT, CHARGES, INVOICE) |
133: | that are currently applied to a given payment schedule. |
134: | The information is extracted from the ar_cash_basis_distributions |
135: | table, and is returned ordered by source ('GL' then 'ADJ') and |
136: | source_id (ra_cust_trx_line_gl_dist_id or adjustment_id ) |
137: | PARAMETERS |
138: | p_ps_id Payment Schedule Id for which current |
177: cbd.source Source,
178: cbd.source_id SourceId,
179: NVL(SUM( DECODE(cbd.source,
180: 'UNA', cbd.amount, 0 )),0) UnallocatedAmt
181: FROM ar_cash_basis_distributions cbd
182: WHERE cbd.payment_schedule_id = p_ps_id
183: AND cbd.type = p_type
184: AND (cbd.posting_control_id+0 > 0
185: or
606: | PRIVATE PROCEDURE |
607: | CreateDistribution |
608: | DESCRIPTION |
609: | Creates a distribution by inserting a record into |
610: | ar_cash_basis_distributions, and a record into ar_journal_interim |
611: | PARAMETERS |
612: | |
613: | EXCEPTIONS RAISED |
614: | |
631: p_SourceId IN NUMBER,
632: p_Type IN VARCHAR2,
633: p_Ccid IN NUMBER,
634: p_AccntClass IN VARCHAR2 ) IS
635: CashBasisDistributionId ar_cash_basis_distributions.cash_basis_distribution_id%TYPE;
636:
637:
638: BEGIN
639: IF p_Amount = 0 AND p_AcctdAmount = 0 THEN
732: 'CM', DECODE(
733: p_Trx.CmPsIdFlag,
734: 'Y', 'CMAPP_REC',
735: 'CMAPP_APP' )), -- reference29,
736: 'AR_CASH_BASIS_DISTRIBUTIONS', -- reference30
737: cbd.org_id
738: FROM ar_cash_basis_distributions cbd
739: WHERE cbd.posting_control_id+0 = p_App.PostingControlId
740: AND cbd.receivable_application_id = p_App.ReceivableApplicationId
734: 'Y', 'CMAPP_REC',
735: 'CMAPP_APP' )), -- reference29,
736: 'AR_CASH_BASIS_DISTRIBUTIONS', -- reference30
737: cbd.org_id
738: FROM ar_cash_basis_distributions cbd
739: WHERE cbd.posting_control_id+0 = p_App.PostingControlId
740: AND cbd.receivable_application_id = p_App.ReceivableApplicationId
741: AND cbd.payment_schedule_id = p_Trx.PaymentScheduleId
742: AND cbd.type = p_Type;
746: RAISE;
747: END;
748: ELSE
749: --
750: SELECT ar_cash_basis_distributions_s.NEXTVAL
751: INTO CashBasisDistributionId
752: FROM dual;
753: --
754: BEGIN
757: -- such that we can delete these records at the end of the process
758: -- We need to add 100 because pst_contrl_id of -1 to -100 are reserved
759: -- for other usage
760: --
761: INSERT INTO ar_cash_basis_distributions
762: (
763: cash_basis_distribution_id,
764: created_by,
765: creation_date,
867: l_interim_rec.reference29 := 'CMAPP_APP';
868: END IF;
869: END IF;
870:
871: l_interim_rec.reference30 := 'AR_CASH_BASIS_DISTRIBUTIONS';
872: l_interim_rec.org_id := p_trx.OrgId;
873:
874: CreateInterim ( l_interim_rec );
875: EXCEPTION
943: -- the final NewAppToLine is adjusted
944: -- so that the value of RunningNewAppToLine is equal to
945: -- GrandTotalApplied
946: GrandTotalApplied NUMBER;
947: AppToLineThisTime NUMBER; -- the actual amount posted, and stored in ar_cash_basis_distributions
948: AcctdAppToLineThisTime NUMBER;
949: RunningAppToLineThisTime NUMBER := 0;
950: RunningAcctdAppToLineThisTime NUMBER := 0;
951: BEGIN
2060: LOOP
2061: arp_standard.debug( 'Out Of balance:'||Rbal.CurrencyCode||' BalanceId:'||RBal.BalanceId );
2062: FOR RInt IN CInt( RBal.BalanceId, Rbal.CategoryCode )
2063: LOOP
2064: IF RInt.TableName = 'AR_CASH_BASIS_DISTRIBUTIONS'
2065: THEN
2066: SELECT cbd.receivable_application_id
2067: INTO l_ReceivableApplicationId
2068: FROM ar_cash_basis_distributions cbd
2064: IF RInt.TableName = 'AR_CASH_BASIS_DISTRIBUTIONS'
2065: THEN
2066: SELECT cbd.receivable_application_id
2067: INTO l_ReceivableApplicationId
2068: FROM ar_cash_basis_distributions cbd
2069: WHERE cbd.cash_basis_distribution_id = RInt.Id;
2070: ELSE
2071: l_ReceivableApplicationId := NULL;
2072: END IF;
2093: RAISE;
2094: END;
2095: --
2096: --
2097: -- Delete from ar_cash_basis_distributions for records inserted
2098: --
2099: /*---------------------------------------------------------------------------*
2100: | PRIVATE PROCEDURE |
2101: | DeleteFromCBD |
2099: /*---------------------------------------------------------------------------*
2100: | PRIVATE PROCEDURE |
2101: | DeleteFromCBD |
2102: | DESCRIPTION |
2103: | Delete recrods from ar_cash_basis_distributions inserted this run |
2104: | PARAMETERS |
2105: | |
2106: | EXCEPTIONS RAISED |
2107: | |
2116: *---------------------------------------------------------------------------*/
2117: PROCEDURE DeleteFromCBD( p_Report IN ReportParametersType ) IS
2118: BEGIN
2119: --
2120: DELETE FROM ar_cash_basis_distributions
2121: WHERE posting_control_id = - ( p_Report.ReqId +100 );
2122: --
2123: EXCEPTION
2124: WHEN OTHERS THEN
2134: --
2135: CURSOR SelColumn IS
2136: SELECT column_id
2137: FROM user_tab_columns
2138: WHERE table_name = 'AR_CASH_BASIS_DISTRIBUTIONS'
2139: AND column_name = 'CUSTOMER_TRX_LINE_ID';
2140: --
2141: BEGIN
2142: