[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 |
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;
275: l_crh_id_new ar_cash_receipt_history.cash_receipt_history_id%TYPE;
276: l_ra_id_unapp ar_receivable_applications.receivable_application_id%TYPE;
277: l_ra_id_unid ar_receivable_applications.receivable_application_id%TYPE;
278: l_ae_doc_rec ae_doc_rec_type;
314: l_sum_acctd_fda_credits NUMBER;
315:
316: -- other stuff:
317:
318: l_source_type ar_distributions.source_type%TYPE;
319: l_creation_status ar_cash_receipt_history.status%TYPE;
320: l_rev_crh_id ar_cash_receipt_history.reversal_cash_receipt_hist_id%TYPE;
321:
322: -- dummy variables:
336:
337:
338: -- old stuff:
339: /*
340: l_source_type_old ar_distributions.source_type%TYPE;
341: l_creation_status_old ar_cash_receipt_history.status%TYPE;
342: l_acctd_amount_old ar_cash_receipt_history.acctd_amount%TYPE;
343: l_ccid_old ar_cash_receipt_history.account_code_combination_id%TYPE;
344: l_source_type_new ar_distributions.source_type%TYPE;
340: l_source_type_old ar_distributions.source_type%TYPE;
341: l_creation_status_old ar_cash_receipt_history.status%TYPE;
342: l_acctd_amount_old ar_cash_receipt_history.acctd_amount%TYPE;
343: l_ccid_old ar_cash_receipt_history.account_code_combination_id%TYPE;
344: l_source_type_new ar_distributions.source_type%TYPE;
345: l_creation_status_new ar_cash_receipt_history.status%TYPE;
346: l_acctd_amount_new ar_cash_receipt_history.acctd_amount%TYPE;
347: l_ccid_new ar_cash_receipt_history.account_code_combination_id%TYPE;
348: l_ps_id ar_payment_schedules.payment_schedule_id%TYPE;
568: -- -------------------------------------------------------------
569: -- determine the source type and creation status
570: -- -------------------------------------------------------------
571:
572: -- the source type is needed for AR_DISTRIBUTIONS records
573:
574: arp_cr_util.get_creation_info(p_receipt_method_id,
575: p_remittance_bank_account_id,
576: l_creation_status,
716: l_ra_id_unid );
717:
718: --
719: --Release 11.5 VAT changes, create UNID receivable application accounting
720: --in ar_distributions
721: --
722: l_ae_doc_rec.document_type := 'RECEIPT';
723: l_ae_doc_rec.document_id := p_cash_receipt_id;
724: l_ae_doc_rec.accounting_entity_level := 'ONE';
751: -- 6924942 - End
752:
753: --
754: --Release 11.5 VAT changes, create Paired UNAPP receivable application accounting
755: --in ar_distributions
756: --
757: l_ae_doc_rec.document_type := 'RECEIPT';
758: l_ae_doc_rec.document_id := p_cash_receipt_id;
759: l_ae_doc_rec.accounting_entity_level := 'ONE';
826: -- 6924942 - End
827:
828: --
829: --Release 11.5 VAT changes, create UNID receivable application accounting
830: --in ar_distributions
831: --
832: l_ae_doc_rec.document_type := 'RECEIPT';
833: l_ae_doc_rec.document_id := p_cash_receipt_id;
834: l_ae_doc_rec.accounting_entity_level := 'ONE';
839: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
840:
841: --
842: --Release 11.5 VAT changes, create paired UNAPP receivable application accounting
843: --in ar_distributions
844: --
845: l_ae_doc_rec.document_type := 'RECEIPT';
846: l_ae_doc_rec.document_id := p_cash_receipt_id;
847: l_ae_doc_rec.accounting_entity_level := 'ONE';
971: one record in ARD corresponding to the l_source_type. Else we need to create one */
972: BEGIN
973: select 'Y'
974: into l_dist_row_on_current_crh
975: from ar_distributions dis
976: where dis.source_id = l_crh_rec.cash_receipt_history_id
977: and dis.source_table = 'CRH'
978: and dis.source_type = l_source_type;
979: EXCEPTION
1025: select 'Y'
1026: into l_bank_charges_row_exists
1027: from dual
1028: where exists (select crh.cash_receipt_history_id
1029: from ar_cash_receipt_history crh, ar_distributions dis
1030: where crh.cash_receipt_id = l_crh_rec.cash_receipt_id
1031: and dis.source_id = crh.cash_receipt_history_id
1032: and dis.source_table = 'CRH'
1033: and dis.source_type ='BANK_CHARGES');
1042:
1043: BEGIN
1044: select 'Y'
1045: into l_bcharge_row_on_current_crh
1046: from ar_distributions dis
1047: where dis.source_id = l_crh_rec.cash_receipt_history_id
1048: and dis.source_table = 'CRH'
1049: and dis.source_type = 'BANK_CHARGES';
1050: EXCEPTION
1090: into l_sum_fda_debits,
1091: l_sum_fda_credits,
1092: l_sum_acctd_fda_debits,
1093: l_sum_acctd_fda_credits
1094: from ar_distributions dis
1095: where dis.source_id in
1096: (select crh.cash_receipt_history_id
1097: from ar_cash_receipt_history crh
1098: where crh.cash_receipt_id = p_cash_receipt_id ) /* Bug2855253 removed and crh.current_record_flag ='N' */
1279: );
1280:
1281: --
1282: --Release 11.5 VAT changes, create UNID receivable application accounting
1283: --in ar_distributions
1284: --
1285: l_ae_doc_rec.document_type := 'RECEIPT';
1286: l_ae_doc_rec.document_id := p_cash_receipt_id;
1287: l_ae_doc_rec.accounting_entity_level := 'ONE';
1317: -- 6924942 - End
1318:
1319: --
1320: --Release 11.5 VAT changes, create UNAPP receivable application accounting
1321: --in ar_distributions
1322: --
1323: l_ae_doc_rec.document_type := 'RECEIPT';
1324: l_ae_doc_rec.document_id := p_cash_receipt_id;
1325: l_ae_doc_rec.accounting_entity_level := 'ONE';