[Home] [Help]
266: p_autoapply_flag IN VARCHAR2 DEFAULT NULL
267:
268: ) IS
269:
270: l_cr_rec ar_cash_receipts%ROWTYPE;
271: l_crh_rec ar_cash_receipt_history%ROWTYPE;
272: l_crh_rec_new ar_cash_receipt_history%ROWTYPE;
273: l_ps_rec ar_payment_schedules%ROWTYPE;
274: l_dist_rec ar_distributions%ROWTYPE;
320: l_rev_crh_id ar_cash_receipt_history.reversal_cash_receipt_hist_id%TYPE;
321:
322: -- dummy variables:
323:
324: l_override_dummy ar_cash_receipts.override_remit_account_flag%TYPE;
325: l_number_dummy NUMBER;
326:
327: -- GL date defaulting variables
328: l_error_message VARCHAR2(128);
385: --{BUG#4353362
386: CURSOR cu_current_customer IS
387: SELECT pay_from_customer,
388: customer_site_use_id
389: FROM ar_cash_receipts
390: WHERE cash_receipt_id = p_cash_receipt_id;
391: l_current_customer_id NUMBER;
392: l_current_csu_id NUMBER;
393: x_errbuf VARCHAR2(2000);
768: l_ae_doc_rec.miscel6 := p_customer_site_use_id;
769: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
770:
771: -- also don't forget to set the pay_from_customer column in
772: -- ar_cash_receipts to new customer and the status of the receipt:
773:
774: l_cr_rec.pay_from_customer := p_pay_from_customer;
775: l_cr_rec.status := 'UNAPP';
776:
854: and sub id is from the cash receipt, so no need to pass these */
855: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
856:
857: -- also don't forget to set the pay_from_customer column in
858: -- ar_cash_receipts to NULL and the status to UNID.
859:
860: l_cr_rec.pay_from_customer := NULL;
861: l_cr_rec.status := 'UNID';
862:
876: -- deal with amount changes
877: -- -------------------------------------------------------------
878:
879: -- if the receipt status is APPROVED, we only update the amounts in
880: -- ar_cash_receipts, ar_cash_receipt_history, and ar_payment_schedules,
881: -- but not ar_receivable_applications, since this is being taken
882: -- care of by the applications form and its server-side code:
883:
884:
1737: IF l_no_of_other_party_accounts = 0 THEN
1738: l_bank_assign_flag := TRUE;
1739: ELSE
1740:
1741: UPDATE AR_CASH_RECEIPTS SET
1742: CUSTOMER_BANK_ACCOUNT_ID = NULL,
1743: APPLICATION_NOTES = (SELECT DISTINCT 'Removed Bank Account: '||BANK_NAME||'-'||ACCOUNT_NUMBER||
1744: ' from this receipt.'
1745: FROM IBY_FNDCPT_PAYER_ASSGN_INSTR_V
1816: p_new_state,
1817: p_new_state_dsp
1818: FROM
1819: ar_cash_receipt_history crh_current,
1820: ar_cash_receipts cr,
1821: ar_lookups l_cr_status,
1822: ar_lookups l_crh_status
1823: WHERE
1824: cr.cash_receipt_id = p_cash_receipt_id