[Home] [Help]
40: | 15-MAR-96 OSTEINME removed calls to procedure |
41: | arp_cr_util.get_creation_info as they cause |
42: | problems if the receipt is created as |
43: | approved (in this case it doesn't have |
44: | entries in AR_DISTRIBUTIONS yet. |
45: | 05-APR-96 OSTEINME added functionality (and parameters) to |
46: | return receipt state and status info after |
47: | update. |
48: | 30-MAY-96 OSTEINME added parameter p_status for bug 370072 |
267: l_cr_rec ar_cash_receipts%ROWTYPE;
268: l_crh_rec ar_cash_receipt_history%ROWTYPE;
269: l_crh_rec_new ar_cash_receipt_history%ROWTYPE;
270: l_ps_rec ar_payment_schedules%ROWTYPE;
271: l_dist_rec ar_distributions%ROWTYPE;
272: l_crh_id_new ar_cash_receipt_history.cash_receipt_history_id%TYPE;
273: l_ra_id_unapp ar_receivable_applications.receivable_application_id%TYPE;
274: l_ra_id_unid ar_receivable_applications.receivable_application_id%TYPE;
275: l_ae_doc_rec ae_doc_rec_type;
311: l_sum_acctd_fda_credits NUMBER;
312:
313: -- other stuff:
314:
315: l_source_type ar_distributions.source_type%TYPE;
316: l_creation_status ar_cash_receipt_history.status%TYPE;
317: l_rev_crh_id ar_cash_receipt_history.reversal_cash_receipt_hist_id%TYPE;
318:
319: -- dummy variables:
333:
334:
335: -- old stuff:
336: /*
337: l_source_type_old ar_distributions.source_type%TYPE;
338: l_creation_status_old ar_cash_receipt_history.status%TYPE;
339: l_acctd_amount_old ar_cash_receipt_history.acctd_amount%TYPE;
340: l_ccid_old ar_cash_receipt_history.account_code_combination_id%TYPE;
341: l_source_type_new ar_distributions.source_type%TYPE;
337: l_source_type_old ar_distributions.source_type%TYPE;
338: l_creation_status_old ar_cash_receipt_history.status%TYPE;
339: l_acctd_amount_old ar_cash_receipt_history.acctd_amount%TYPE;
340: l_ccid_old ar_cash_receipt_history.account_code_combination_id%TYPE;
341: l_source_type_new ar_distributions.source_type%TYPE;
342: l_creation_status_new ar_cash_receipt_history.status%TYPE;
343: l_acctd_amount_new ar_cash_receipt_history.acctd_amount%TYPE;
344: l_ccid_new ar_cash_receipt_history.account_code_combination_id%TYPE;
345: l_ps_id ar_payment_schedules.payment_schedule_id%TYPE;
553: -- -------------------------------------------------------------
554: -- determine the source type and creation status
555: -- -------------------------------------------------------------
556:
557: -- the source type is needed for AR_DISTRIBUTIONS records
558:
559: arp_cr_util.get_creation_info(p_receipt_method_id,
560: p_remittance_bank_account_id,
561: l_creation_status,
701: l_ra_id_unid );
702:
703: --
704: --Release 11.5 VAT changes, create UNID receivable application accounting
705: --in ar_distributions
706: --
707: l_ae_doc_rec.document_type := 'RECEIPT';
708: l_ae_doc_rec.document_id := p_cash_receipt_id;
709: l_ae_doc_rec.accounting_entity_level := 'ONE';
729: l_ra_id_unapp);
730:
731: --
732: --Release 11.5 VAT changes, create Paired UNAPP receivable application accounting
733: --in ar_distributions
734: --
735: l_ae_doc_rec.document_type := 'RECEIPT';
736: l_ae_doc_rec.document_id := p_cash_receipt_id;
737: l_ae_doc_rec.accounting_entity_level := 'ONE';
796: '',
797: l_ra_id_unid);
798: --
799: --Release 11.5 VAT changes, create UNID receivable application accounting
800: --in ar_distributions
801: --
802: l_ae_doc_rec.document_type := 'RECEIPT';
803: l_ae_doc_rec.document_id := p_cash_receipt_id;
804: l_ae_doc_rec.accounting_entity_level := 'ONE';
809: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
810:
811: --
812: --Release 11.5 VAT changes, create paired UNAPP receivable application accounting
813: --in ar_distributions
814: --
815: l_ae_doc_rec.document_type := 'RECEIPT';
816: l_ae_doc_rec.document_id := p_cash_receipt_id;
817: l_ae_doc_rec.accounting_entity_level := 'ONE';
941: one record in ARD corresponding to the l_source_type. Else we need to create one */
942: BEGIN
943: select 'Y'
944: into l_dist_row_on_current_crh
945: from ar_distributions dis
946: where dis.source_id = l_crh_rec.cash_receipt_history_id
947: and dis.source_table = 'CRH'
948: and dis.source_type = l_source_type;
949: EXCEPTION
995: select 'Y'
996: into l_bank_charges_row_exists
997: from dual
998: where exists (select crh.cash_receipt_history_id
999: from ar_cash_receipt_history crh, ar_distributions dis
1000: where crh.cash_receipt_id = l_crh_rec.cash_receipt_id
1001: and dis.source_id = crh.cash_receipt_history_id
1002: and dis.source_table = 'CRH'
1003: and dis.source_type ='BANK_CHARGES');
1012:
1013: BEGIN
1014: select 'Y'
1015: into l_bcharge_row_on_current_crh
1016: from ar_distributions dis
1017: where dis.source_id = l_crh_rec.cash_receipt_history_id
1018: and dis.source_table = 'CRH'
1019: and dis.source_type = 'BANK_CHARGES';
1020: EXCEPTION
1060: into l_sum_fda_debits,
1061: l_sum_fda_credits,
1062: l_sum_acctd_fda_debits,
1063: l_sum_acctd_fda_credits
1064: from ar_distributions dis
1065: where dis.source_id in
1066: (select crh.cash_receipt_history_id
1067: from ar_cash_receipt_history crh
1068: where crh.cash_receipt_id = p_cash_receipt_id ) /* Bug2855253 removed and crh.current_record_flag ='N' */
1249: );
1250:
1251: --
1252: --Release 11.5 VAT changes, create UNID receivable application accounting
1253: --in ar_distributions
1254: --
1255: l_ae_doc_rec.document_type := 'RECEIPT';
1256: l_ae_doc_rec.document_id := p_cash_receipt_id;
1257: l_ae_doc_rec.accounting_entity_level := 'ONE';
1280: l_ra_id_unapp);
1281:
1282: --
1283: --Release 11.5 VAT changes, create UNAPP receivable application accounting
1284: --in ar_distributions
1285: --
1286: l_ae_doc_rec.document_type := 'RECEIPT';
1287: l_ae_doc_rec.document_id := p_cash_receipt_id;
1288: l_ae_doc_rec.accounting_entity_level := 'ONE';