[Home] [Help]
118: g_acctd_tax_uned NUMBER := 0;
119: g_acctd_frt_uned NUMBER := 0;
120: g_acctd_chrg_uned NUMBER := 0;
121:
122: g_cust_inv_rec ra_customer_trx%ROWTYPE;
123:
124: --{
125: g_run_from_amt NUMBER;
126: g_run_from_total NUMBER;
442: END;
443:
444:
445: PROCEDURE set_mode_process
446: (p_customer_trx IN ra_customer_trx%ROWTYPE,
447: p_from_llca IN VARCHAR2 DEFAULT 'N' )
448: IS
449: CURSOR cu_trx IS
450: SELECT * FROM ra_customer_trx
446: (p_customer_trx IN ra_customer_trx%ROWTYPE,
447: p_from_llca IN VARCHAR2 DEFAULT 'N' )
448: IS
449: CURSOR cu_trx IS
450: SELECT * FROM ra_customer_trx
451: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
452: l_mark VARCHAR2(30);
453: BEGIN
454: IF PG_DEBUG = 'Y' THEN
737:
738: /*-------------------------------------------------------------------------+
739: | update_ctl_rem_orig |
740: +-------------------------------------------------------------------------+
741: | Update ra_customer_trx_lines |
742: | remaining and original amount |
743: | base on result in ra_ar_gt |
744: +-------------------------------------------------------------------------+
745: | parameter: |
2870: ,SUM_INT_UNED_LINE_AMOUNT
2871: ,SUM_INT_UNED_TAX_AMOUNT
2872: --}
2873: )
2874: SELECT /*+INDEX (ctl ra_customer_trx_lines_gt_n1)*/
2875: p_gt_id , --GT_ID
2876: p_ae_sys_rec.base_currency , --BASE_CURRENCY
2877: trx.invoice_currency_code , --TO_CURRENCY
2878: trx.customer_trx_id , --REF_CUSTOMER_TRX_ID
3181: ,CASE WHEN g_ed_tax_flag = 'INTERFACE' THEN it.sum_ed_tax_amount ELSE NULL END -- SUM_INT_ED_TAX_AMOUNT
3182: ,CASE WHEN g_uned_line_flag = 'INTERFACE' THEN it.sum_uned_line_amount ELSE NULL END -- SUM_INT_UNED_LINE_AMOUNT
3183: ,CASE WHEN g_uned_tax_flag = 'INTERFACE' THEN it.sum_uned_tax_amount ELSE NULL END -- SUM_INT_UNED_TAX_AMOUNT
3184: --}
3185: FROM ra_customer_trx trx,
3186: ra_customer_trx_lines_gt ctl,
3187: (SELECT /*+INDEX (ar_line_dist_interface_gt ar_line_dist_interface_gt_n1)*/
3188: gt_id gt_id
3189: ,customer_trx_id customer_trx_id
3182: ,CASE WHEN g_uned_line_flag = 'INTERFACE' THEN it.sum_uned_line_amount ELSE NULL END -- SUM_INT_UNED_LINE_AMOUNT
3183: ,CASE WHEN g_uned_tax_flag = 'INTERFACE' THEN it.sum_uned_tax_amount ELSE NULL END -- SUM_INT_UNED_TAX_AMOUNT
3184: --}
3185: FROM ra_customer_trx trx,
3186: ra_customer_trx_lines_gt ctl,
3187: (SELECT /*+INDEX (ar_line_dist_interface_gt ar_line_dist_interface_gt_n1)*/
3188: gt_id gt_id
3189: ,customer_trx_id customer_trx_id
3190: ,customer_trx_line_id customer_trx_line_id
3268: localdebug(' g_uned_req :'||g_uned_req);
3269: END IF;
3270: ------------------------------------------------------------------------
3271: -- Create groups
3272: -- The group_id used currently is ra_customer_trx_lines.SOURCE_DATA_KEY1
3273: ------------------------------------------------------------------------
3274: INSERT INTO ra_ar_gt
3275: (gt_id,
3276: gp_level,
5032: localdebug(' p_source_data_key2 :'||p_source_data_key2);
5033: localdebug(' p_source_data_key3 :'||p_source_data_key3);
5034: localdebug(' p_source_data_key4 :'||p_source_data_key4);
5035: localdebug(' p_source_data_key5 :'||p_source_data_key5);
5036: localdebug(' Update rem amount in ra_customer_trx_lines_gt for regular transaction');
5037: END IF;
5038: IF p_customer_trx_line_id IS NOT NULL THEN
5039: IF p_log_inv_line = 'N' THEN
5040:
5037: END IF;
5038: IF p_customer_trx_line_id IS NOT NULL THEN
5039: IF p_log_inv_line = 'N' THEN
5040:
5041: UPDATE /*+ index(A RA_CUSTOMER_TRX_LINES_GT_N1)*/ ra_customer_trx_lines_gt a
5042: SET (a.AMOUNT_DUE_REMAINING ,
5043: a.ACCTD_AMOUNT_DUE_REMAINING ,
5044: a.AMOUNT_DUE_ORIGINAL ,
5045: a.ACCTD_AMOUNT_DUE_ORIGINAL ,
5206: --}
5207: AND a.line_type IN ('LINE','FREIGHT','TAX','CB','CHARGES');
5208:
5209: ELSE
5210: UPDATE /*+ index(A RA_CUSTOMER_TRX_LINES_GT_N1)*/ ra_customer_trx_lines_gt a
5211: SET (a.AMOUNT_DUE_REMAINING ,
5212: a.ACCTD_AMOUNT_DUE_REMAINING ,
5213: a.AMOUNT_DUE_ORIGINAL ,
5214: a.ACCTD_AMOUNT_DUE_ORIGINAL ,
5374: = DECODE(p_source_data_key5, NULL, '-99', a.source_data_key5)
5375: --}
5376: AND a.line_type IN ('LINE','CB');
5377:
5378: UPDATE /*+ index(A RA_CUSTOMER_TRX_LINES_GT_N2)*/ ra_customer_trx_lines_gt a
5379: SET (a.AMOUNT_DUE_REMAINING ,
5380: a.ACCTD_AMOUNT_DUE_REMAINING ,
5381: a.AMOUNT_DUE_ORIGINAL ,
5382: a.ACCTD_AMOUNT_DUE_ORIGINAL ,
5543: --}
5544: AND a.line_type IN ('FREIGHT','TAX','CHARGES');
5545: END IF; -- End of p_log_inv_line check
5546: ELSE
5547: UPDATE /*+ index(A RA_CUSTOMER_TRX_LINES_GT_N1)*/ ra_customer_trx_lines_gt a
5548: SET (a.AMOUNT_DUE_REMAINING ,
5549: a.ACCTD_AMOUNT_DUE_REMAINING ,
5550: a.AMOUNT_DUE_ORIGINAL ,
5551: a.ACCTD_AMOUNT_DUE_ORIGINAL ,
6877: WHERE gt_id = p_gt_id
6878: AND ref_customer_trx_id = p_customer_trx_id
6879: AND gp_level = 'L') g,
6880: ar_adjustments adj,
6881: ra_customer_trx trx
6882: --{Line Charge and Freight boundary
6883: -- Insert freight dist or the charge dist only in the no CHARGES or FREIGHT line exist
6884: -- As by default the boundary on those 2 lines exist only if there are no REV line on the invoice
6885: -- But in the case the CHARGES or FREIGHT exist and we are not maintaining the balance on lines
7106: 'Y' -- ref_mf_dist_flag
7107: FROM ra_ar_gt rar,
7108: psa_mf_adj_dist_all rrc,
7109: ra_cust_trx_line_gl_dist ctlgd,
7110: ra_customer_trx_lines ctl,
7111: ar_adjustments adj
7112: WHERE rar.gt_id = p_gt_id
7113: AND rar.ref_customer_trx_id = p_customer_trx_id
7114: AND rar.gp_level = 'L'
8055: END create_split_distribution;
8056:
8057:
8058: PROCEDURE set_original_rem_amt_r12
8059: (p_customer_trx IN ra_customer_trx%ROWTYPE,
8060: x_return_status IN OUT NOCOPY VARCHAR2,
8061: x_msg_count IN OUT NOCOPY NUMBER,
8062: x_msg_data IN OUT NOCOPY VARCHAR2,
8063: p_from_llca IN VARCHAR2 DEFAULT 'N')
8107: localdebug(' Setting the Original and Remaining amounts R12');
8108: END IF;
8109:
8110: FORALL i IN l_ctl_tab.FIRST .. l_ctl_tab.LAST
8111: UPDATE ra_customer_trx_lines
8112: SET AMOUNT_DUE_REMAINING = l_amt_tab(i),
8113: ACCTD_AMOUNT_DUE_REMAINING = l_acctd_amt_tab(i),
8114: AMOUNT_DUE_ORIGINAL = l_amt_tab(i),
8115: ACCTD_AMOUNT_DUE_ORIGINAL = l_acctd_amt_tab(i),
8131:
8132: IF PG_DEBUG = 'Y' THEN
8133: localdebug('Setting transaction.upgrade_method to R12' );
8134: END IF;
8135: UPDATE ra_customer_trx SET upgrade_method = 'R12'
8136: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8137:
8138: IF PG_DEBUG = 'Y' THEN
8139: localdebug('arp_det_dist_pkg.set_original_rem_amt_r12()-');
8163:
8164:
8165:
8166: PROCEDURE set_original_rem_amt_mfar
8167: (p_customer_trx IN ra_customer_trx%ROWTYPE)
8168: IS
8169: CURSOR cmfar(p_customer_trx_id IN NUMBER) IS
8170: SELECT SUM(NVL(amount_due_remaining,0)) sum_due_rem,
8171: SUM(NVL(amount_due_original,0)) sum_due_orig,
8206: localdebug(' Setting the Original and Remaining amounts MFAR');
8207: END IF;
8208:
8209: FORALL i IN l_ctl_tab.FIRST .. l_ctl_tab.LAST
8210: UPDATE ra_customer_trx_lines
8211: SET AMOUNT_DUE_REMAINING = l_rem_amt_tab(i), -- Rem
8212: ACCTD_AMOUNT_DUE_REMAINING = l_rem_amt_tab(i), -- Rem transaction currency = functional
8213: AMOUNT_DUE_ORIGINAL = l_orig_amt_tab(i), -- original
8214: ACCTD_AMOUNT_DUE_ORIGINAL = l_orig_amt_tab(i), -- original
8237: END set_original_rem_amt_mfar;
8238:
8239:
8240:
8241: PROCEDURE re_calcul_rem_amt(p_customer_trx IN ra_customer_trx%ROWTYPE)
8242: IS
8243:
8244: /*bug6133206, multiplied APP amounts with '-1' to make them negative,
8245: for calculating the remaining amounts. */
8289: ard.ref_account_class,
8290: ard.activity_bucket,
8291: ctl.line_type
8292: FROM ar_distributions ard,
8293: ra_customer_trx_lines ctl
8294: WHERE ctl.customer_trx_id = p_customer_trx_id
8295: AND ctl.customer_trx_line_id = ard.ref_customer_trx_line_id
8296: GROUP BY
8297: ard.ref_customer_trx_line_id,
8359: EXIT;
8360: END IF;
8361:
8362: FORALL i IN l_CUSTOMER_TRX_LINE_ID.FIRST .. l_CUSTOMER_TRX_LINE_ID.LAST
8363: UPDATE ra_customer_trx_lines
8364: SET amount_due_original = l_sum_orig(i),
8365: acctd_amount_due_original = l_sum_acctd_orig(i),
8366: AMOUNT_DUE_REMAINING = l_sum_orig(i) + l_REM_TYPE_LINE(i),
8367: ACCTD_AMOUNT_DUE_REMAINING = l_sum_acctd_orig(i) + l_ACCTD_REM_TYPE_LINE(i),
8402: SUM(gld.ACCTD_AMOUNT),
8403: gld.customer_trx_line_id,
8404: inv.customer_trx_id
8405: FROM
8406: ra_customer_trx inv,
8407: ra_cust_trx_line_gl_dist gld,
8408: ra_cust_trx_types ctt
8409: WHERE inv.customer_trx_id = gld.customer_trx_id
8410: AND ctt.CUST_TRX_TYPE_ID = inv.CUST_TRX_TYPE_ID
8415: CURSOR c02 IS
8416: SELECT
8417: customer_trx_id
8418: FROM
8419: ra_customer_trx inv,
8420: ra_cust_trx_types ctt
8421: WHERE request_id = P_request_id
8422: AND ctt.CUST_TRX_TYPE_ID = inv.CUST_TRX_TYPE_ID
8423: AND ctt.TYPE in ('INV','DM')
8437: l_acctd_amt_tab DBMS_SQL.NUMBER_TABLE;
8438: l_ctl_tab DBMS_SQL.NUMBER_TABLE;
8439: l_ctl_hd_tab DBMS_SQL.NUMBER_TABLE;
8440: l_ctl_app_tab DBMS_SQL.NUMBER_TABLE;
8441: l_customer_trx ra_customer_trx%ROWTYPE;
8442: l_last_fetch BOOLEAN := FALSE;
8443:
8444: l_msg RA_INTERFACE_ERRORS.MESSAGE_TEXT%TYPE;
8445: l_return_status VARCHAR2(100);
8479: /*FORALL*/
8480: FOR i IN l_ctl_tab.FIRST .. l_ctl_tab.LAST
8481: LOOP
8482: BEGIN
8483: UPDATE ra_customer_trx_lines
8484: SET AMOUNT_DUE_REMAINING = l_amt_tab(i),
8485: ACCTD_AMOUNT_DUE_REMAINING = l_acctd_amt_tab(i),
8486: AMOUNT_DUE_ORIGINAL = l_amt_tab(i),
8487: ACCTD_AMOUNT_DUE_ORIGINAL = l_acctd_amt_tab(i),
8515: --org_id,
8516: customer_trx_line_id,
8517: l_msg
8518: FROM
8519: ra_customer_trx_lines lines
8520: WHERE
8521: lines.customer_trx_id = l_ctl_hd_tab(i);
8522: END;
8523: END LOOP;
8528:
8529: IF PG_DEBUG = 'Y' THEN
8530: localdebug('Setting transaction.upgrade_method to R12' );
8531: END IF;
8532: UPDATE ra_customer_trx inv SET upgrade_method = 'R12'
8533: WHERE request_id = p_request_id
8534: AND EXISTS
8535: ( SELECT 1
8536: FROM ra_cust_trx_types ctt
8537: WHERE ctt.CUST_TRX_TYPE_ID = inv.CUST_TRX_TYPE_ID
8538: AND ctt.TYPE in ('INV','DM'))
8539: AND NOT EXISTS (
8540: SELECT 1
8541: FROM ra_customer_trx_lines l, ra_interface_errors e
8542: WHERE l.customer_trx_id = inv.customer_trx_id
8543: AND l.customer_trx_line_id = e.interface_line_id);
8544:
8545: -- Setting the Original and Remaining amounts R12
8592: --org_id,
8593: customer_trx_line_id,
8594: l_msg
8595: FROM
8596: ra_customer_trx_lines lines
8597: WHERE
8598: lines.customer_trx_id = l_ctl_app_tab(i);
8599: END;
8600: END LOOP;
8618: END set_original_rem_amt_r12; -- End of OVERLOAD procedure
8619:
8620:
8621: PROCEDURE set_original_rem_amt
8622: (p_customer_trx IN ra_customer_trx%ROWTYPE,
8623: p_adj_id IN NUMBER DEFAULT NULL,
8624: p_app_id IN NUMBER DEFAULT NULL,
8625: --{HYUNLB
8626: p_from_llca IN VARCHAR2 DEFAULT 'N')
8630: CURSOR c_verif(p_customer_trx_id IN NUMBER) IS
8631: SELECT trx.upgrade_method,
8632: ctl.amount_due_original,
8633: ctl.amount_due_remaining
8634: FROM ra_customer_trx trx,
8635: ra_customer_trx_lines ctl
8636: WHERE trx.customer_trx_id = p_customer_trx_id
8637: AND ctl.customer_trx_id = trx.customer_trx_id;
8638:
8631: SELECT trx.upgrade_method,
8632: ctl.amount_due_original,
8633: ctl.amount_due_remaining
8634: FROM ra_customer_trx trx,
8635: ra_customer_trx_lines ctl
8636: WHERE trx.customer_trx_id = p_customer_trx_id
8637: AND ctl.customer_trx_id = trx.customer_trx_id;
8638:
8639: l_trx_type VARCHAR2(30);
8692:
8693: IF PG_DEBUG = 'Y' THEN
8694: localdebug(' going forward and it should be marked as R12');
8695: END IF;
8696: UPDATE ra_customer_trx
8697: SET upgrade_method = 'R12'
8698: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8699: --}
8700:
8751: END IF;
8752:
8753:
8754: /* localdebug('Setting transaction.upgrade_method to R12' );
8755: UPDATE ra_customer_trx SET upgrade_method = 'R12'
8756: WHERE customer_trx_id = p_customer_trx.customer_trx_id; */
8757:
8758: ELSE
8759:
8764: --{HYUNLB
8765: -- By setting the upg_make to R12_NLB
8766: -- <=> Do not maintain the line balance
8767: -- R12_NLB
8768: UPDATE ra_customer_trx SET upgrade_method = 'R12_NLB'
8769: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8770: --}
8771: END IF;
8772:
8783:
8784: IF PG_DEBUG = 'Y' THEN
8785: localdebug('Setting the transaction.upgrade_method to R12_11IMFAR');
8786: END IF;
8787: UPDATE ra_customer_trx SET upgrade_method = 'R12_11IMFAR'
8788: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8789:
8790:
8791: ELSIF ((l_11i_adj = 'N') AND (l_11i_app = 'Y'))
8816:
8817: --g_adj_yn := 'N';
8818: localdebug('Setting the transaction.upgrade_method');
8819: END IF;
8820: UPDATE ra_customer_trx SET upgrade_method = 'R12_11ICASH'
8821: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8822: END IF;
8823: ELSE --3
8824: -- CASH legacy R12_11ICASH
8845: -- set_original_rem_amt_r12(p_customer_trx => p_customer_trx);
8846:
8847: localdebug('Setting the transaction.upgrade_method');
8848: END IF;
8849: UPDATE ra_customer_trx SET upgrade_method = 'R12_11ICASH'
8850: WHERE customer_trx_id = p_customer_trx.customer_trx_id;
8851:
8852: END IF;
8853:
9429: GROUP BY line_type;
9430:
9431: CURSOR cu_inv_cur IS
9432: SELECT invoice_currency_code,exchange_rate
9433: FROM ra_customer_trx
9434: WHERE customer_trx_id = p_customer_trx_id;
9435: l_inv_currency VARCHAR2(30) := NULL;
9436: l_exchange_rate ra_customer_trx.exchange_rate%type;
9437: l_sum_line_rem_amt DBMS_SQL.NUMBER_TABLE;
9432: SELECT invoice_currency_code,exchange_rate
9433: FROM ra_customer_trx
9434: WHERE customer_trx_id = p_customer_trx_id;
9435: l_inv_currency VARCHAR2(30) := NULL;
9436: l_exchange_rate ra_customer_trx.exchange_rate%type;
9437: l_sum_line_rem_amt DBMS_SQL.NUMBER_TABLE;
9438: l_sum_line_rem_acctd_amt DBMS_SQL.NUMBER_TABLE;
9439: l_sum_line_orig_amt DBMS_SQL.NUMBER_TABLE;
9440: l_sum_line_orig_acctd_amt DBMS_SQL.NUMBER_TABLE;
9466: p_inv_currency IN VARCHAR2,
9467: p_customer_trx_id IN NUMBER,
9468: p_gt_id IN VARCHAR2,
9469: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
9470: P_exchange_rate IN ra_customer_trx.exchange_rate%type)
9471: IS
9472: l_ra_ar_gt ra_ar_gt%ROWTYPE;
9473: l_ar_base_dist_amts_gt ar_base_dist_amts_gt%ROWTYPE;
9474: l_ra_ar_amounts_gt ra_ar_amounts_gt%ROWTYPE;
9649: p_inv_currency IN VARCHAR2,
9650: p_customer_trx_id IN NUMBER,
9651: p_gt_id IN VARCHAR2,
9652: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
9653: P_exchange_rate IN ra_customer_trx.exchange_rate%type)
9654: IS
9655: l_ra_ar_gt ra_ar_gt%ROWTYPE;
9656: l_ar_base_dist_amts_gt ar_base_dist_amts_gt%ROWTYPE;
9657: l_ra_ar_amounts_gt ra_ar_amounts_gt%ROWTYPE;
10450: set_of_books_id,
10451: sob_type
10452: -- se_gt_id
10453: )
10454: SELECT /*+INDEX (ctl ra_customer_trx_lines_gt_n1)*/
10455: p_gt_id , --GT_ID
10456: p_ae_sys_rec.base_currency , --BASE_CURRENCY
10457: trx.invoice_currency_code , --TO_CURRENCY
10458: trx.customer_trx_id , --REF_CUSTOMER_TRX_ID
10687: --
10688: p_ae_sys_rec.set_of_books_id,
10689: p_ae_sys_rec.sob_type
10690: -- g_se_gt_id
10691: FROM ra_customer_trx trx,
10692: ra_customer_trx_lines_gt ctl
10693: WHERE trx.customer_trx_id = p_customer_trx_id
10694: AND trx.customer_trx_id = ctl.customer_trx_id
10695: -- AND NVL(ctl.group_id,'00') = p_group_id
10688: p_ae_sys_rec.set_of_books_id,
10689: p_ae_sys_rec.sob_type
10690: -- g_se_gt_id
10691: FROM ra_customer_trx trx,
10692: ra_customer_trx_lines_gt ctl
10693: WHERE trx.customer_trx_id = p_customer_trx_id
10694: AND trx.customer_trx_id = ctl.customer_trx_id
10695: -- AND NVL(ctl.group_id,'00') = p_group_id
10696: --{HYUBPAGP
10789: --
10790: set_of_books_id,
10791: sob_type)
10792: -- se_gt_id)
10793: SELECT /*+INDEX (ctl ra_customer_trx_lines_gt_n1)*/
10794: p_gt_id , --GT_ID
10795: p_ae_sys_rec.base_currency , --BASE_CURRENCY
10796: trx.invoice_currency_code , --TO_CURRENCY
10797: trx.customer_trx_id , --REF_CUSTOMER_TRX_ID
10932: --
10933: p_ae_sys_rec.set_of_books_id,
10934: p_ae_sys_rec.sob_type
10935: -- g_se_gt_id
10936: FROM ra_customer_trx trx,
10937: ( select *
10938: from ra_customer_trx_lines_gt ctl2
10939: where ctl2.customer_trx_id = p_customer_trx_id
10940: and ctl2.customer_trx_line_id = p_customer_trx_line_id
10934: p_ae_sys_rec.sob_type
10935: -- g_se_gt_id
10936: FROM ra_customer_trx trx,
10937: ( select *
10938: from ra_customer_trx_lines_gt ctl2
10939: where ctl2.customer_trx_id = p_customer_trx_id
10940: and ctl2.customer_trx_line_id = p_customer_trx_line_id
10941: union all
10942: select *
10939: where ctl2.customer_trx_id = p_customer_trx_id
10940: and ctl2.customer_trx_line_id = p_customer_trx_line_id
10941: union all
10942: select *
10943: from ra_customer_trx_lines_gt ctl2
10944: where ctl2.customer_trx_id = p_customer_trx_id
10945: and ctl2.LINK_TO_CUST_TRX_LINE_ID = p_customer_trx_line_id
10946: ) ctl
10947: WHERE trx.customer_trx_id = p_customer_trx_id;
11073: | p_app_rec ar receivable application record |
11074: | p_ae_sys_rec ar system parameter |
11075: +-------------------------------------------------------------------------*/
11076: PROCEDURE Trx_level_cash_apply
11077: (p_customer_trx IN ra_customer_trx%ROWTYPE,
11078: p_app_rec IN ar_receivable_applications%ROWTYPE,
11079: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
11080: p_gt_id IN VARCHAR2 DEFAULT NULL)
11081: IS
11242: | p_app_rec ar receivable application record |
11243: | p_ae_sys_rec ar system parameter |
11244: +-------------------------------------------------------------------------*/
11245: PROCEDURE Trx_gp_level_cash_apply
11246: (p_customer_trx IN ra_customer_trx%ROWTYPE,
11247: -- p_group_id IN VARCHAR2,
11248: --{HYUBPAGP
11249: p_source_data_key1 IN VARCHAR2,
11250: p_source_data_key2 IN VARCHAR2,
11448: | p_app_rec ar receivable application record |
11449: | p_ae_sys_rec ar system parameter |
11450: +-------------------------------------------------------------------------*/
11451: PROCEDURE Trx_line_level_cash_apply
11452: (p_customer_trx IN ra_customer_trx%ROWTYPE,
11453: p_customer_trx_line_id IN VARCHAR2,
11454: p_log_inv_line IN VARCHAR2 DEFAULT 'N',
11455: p_app_rec IN ar_receivable_applications%ROWTYPE,
11456: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
11624: +------------------------------------------------*/
11625: PROCEDURE copy_trx_lines
11626: (p_customer_trx_id IN NUMBER,
11627: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
11628: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE DEFAULT NULL)
11629: IS
11630: CURSOR cu_line_loaded (p_customer_trx_id IN NUMBER,
11631: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE ) IS
11632: SELECT 'x'
11627: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
11628: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE DEFAULT NULL)
11629: IS
11630: CURSOR cu_line_loaded (p_customer_trx_id IN NUMBER,
11631: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE ) IS
11632: SELECT 'x'
11633: FROM ra_customer_trx_lines_gt
11634: WHERE customer_trx_id = p_customer_trx_id
11635: AND customer_trx_line_id = NVL(p_customer_trx_line_id, customer_trx_line_id);
11629: IS
11630: CURSOR cu_line_loaded (p_customer_trx_id IN NUMBER,
11631: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE ) IS
11632: SELECT 'x'
11633: FROM ra_customer_trx_lines_gt
11634: WHERE customer_trx_id = p_customer_trx_id
11635: AND customer_trx_line_id = NVL(p_customer_trx_line_id, customer_trx_line_id);
11636: l_exist VARCHAR2(1);
11637:
11636: l_exist VARCHAR2(1);
11637:
11638: CURSOR c_frt_chrg IS
11639: SELECT MAX(line_type)
11640: FROM ra_customer_trx_lines_gt
11641: WHERE line_type IN ('CHARGES','FREIGHT')
11642: AND customer_trx_id = p_customer_trx_id
11643: GROUP BY line_type;
11644:
11667: localdebug(' g_mode_process = :'||g_mode_process);
11668: localdebug(' g_adj_yn = :'||g_adj_yn );
11669: END IF;
11670:
11671: INSERT INTO ra_customer_trx_lines_gt
11672: (customer_trx_line_id,
11673: link_to_cust_trx_line_id,
11674: customer_trx_id ,
11675: set_of_books_id ,
11746: -- DECODE(typ.type, 'BR','BR_BR_ORIG_ASSIG', --BR assigned to a BR
11747: -- 'BR_TRX_ORIG_ASSIG')--Regular TRX assigned to BR
11748: -- ) -- LINE_ORIGIN
11749: --}
11750: FROM ra_customer_trx_lines tl,
11751: -- ra_customer_trx br,
11752: -- ra_cust_trx_types typ,
11753: -- Amount for original and remaining for all type of lines on reve line
11754: (SELECT SUM(AMOUNT) sum_amt,
11747: -- 'BR_TRX_ORIG_ASSIG')--Regular TRX assigned to BR
11748: -- ) -- LINE_ORIGIN
11749: --}
11750: FROM ra_customer_trx_lines tl,
11751: -- ra_customer_trx br,
11752: -- ra_cust_trx_types typ,
11753: -- Amount for original and remaining for all type of lines on reve line
11754: (SELECT SUM(AMOUNT) sum_amt,
11755: SUM(ACCTD_AMOUNT) sum_acctd_amt,
11769: ard.ref_customer_trx_line_id,
11770: ard.activity_bucket
11771: FROM ar_adjustments adj,
11772: ar_distributions ard,
11773: ra_customer_trx_lines ctl
11774: WHERE ctl.customer_trx_id = p_customer_trx_id
11775: AND ctl.line_type = 'LINE'
11776: AND adj.customer_trx_id = p_customer_trx_id
11777: AND adj.adjustment_id = ard.source_id
11792: l_rows := sql%rowcount;
11793: localdebug(' rows inserted = ' || l_rows);
11794: ELSE
11795:
11796: INSERT INTO ra_customer_trx_lines_gt
11797: (CUSTOMER_TRX_LINE_ID,
11798: LINK_TO_CUST_TRX_LINE_ID,
11799: CUSTOMER_TRX_ID ,
11800: SET_OF_BOOKS_ID ,
11871: -- DECODE(typ.type, 'BR','BR_BR_ORIG_ASSIG', --BR assigned to a BR
11872: -- 'BR_TRX_ORIG_ASSIG')--Regular TRX assigned to BR
11873: -- ) -- LINE_ORIGIN
11874: --}
11875: FROM ra_customer_trx_lines tl
11876: -- ra_customer_trx br,
11877: -- ra_cust_trx_types typ
11878: WHERE tl.customer_trx_id = p_customer_trx_id
11879: AND (tl.customer_trx_line_id = NVL(p_customer_trx_line_id, tl.customer_trx_line_id)
11872: -- 'BR_TRX_ORIG_ASSIG')--Regular TRX assigned to BR
11873: -- ) -- LINE_ORIGIN
11874: --}
11875: FROM ra_customer_trx_lines tl
11876: -- ra_customer_trx br,
11877: -- ra_cust_trx_types typ
11878: WHERE tl.customer_trx_id = p_customer_trx_id
11879: AND (tl.customer_trx_line_id = NVL(p_customer_trx_line_id, tl.customer_trx_line_id)
11880: OR tl.link_to_cust_trx_line_id = NVL(p_customer_trx_line_id, tl.customer_trx_line_id));
11922:
11923:
11924:
11925: PROCEDURE final_update_inv_ctl_rem_orig
11926: (p_customer_trx IN ra_customer_trx%ROWTYPE)
11927: IS
11928: CURSOR c(p_customer_trx_id IN NUMBER) IS
11929: SELECT /*+INDEX (ctl ra_customer_trx_lines_gt_n1)*/
11930: b.AMOUNT_DUE_REMAINING ,
11925: PROCEDURE final_update_inv_ctl_rem_orig
11926: (p_customer_trx IN ra_customer_trx%ROWTYPE)
11927: IS
11928: CURSOR c(p_customer_trx_id IN NUMBER) IS
11929: SELECT /*+INDEX (ctl ra_customer_trx_lines_gt_n1)*/
11930: b.AMOUNT_DUE_REMAINING ,
11931: b.ACCTD_AMOUNT_DUE_REMAINING,
11932: b.AMOUNT_DUE_ORIGINAL ,
11933: b.ACCTD_AMOUNT_DUE_ORIGINAL ,
11939: b.frt_ed_acctd_amount,
11940: b.frt_uned_amount,
11941: b.frt_uned_acctd_amount,
11942: b.customer_trx_line_id
11943: FROM ra_customer_trx_lines_gt b
11944: WHERE b.customer_trx_id = p_customer_trx_id;
11945:
11946: l_amt_rem_tab DBMS_SQL.NUMBER_TABLE;
11947: l_acctd_amt_rem_tab DBMS_SQL.NUMBER_TABLE;
11990: EXIT;
11991: END IF;
11992:
11993: FORALL i IN l_ctl_id_tab.FIRST .. l_ctl_id_tab.LAST
11994: UPDATE ra_customer_trx_lines
11995: SET AMOUNT_DUE_REMAINING = l_amt_rem_tab(i),
11996: ACCTD_AMOUNT_DUE_REMAINING = l_acctd_amt_rem_tab(i),
11997: AMOUNT_DUE_ORIGINAL = l_amt_orig_tab(i),
11998: ACCTD_AMOUNT_DUE_ORIGINAL = l_acctd_amt_orig_tab(i),
12014: END final_update_inv_ctl_rem_orig;
12015:
12016:
12017: PROCEDURE create_final_split
12018: (p_customer_trx IN ra_customer_trx%ROWTYPE,
12019: p_app_rec IN ar_receivable_applications%ROWTYPE,
12020: p_adj_rec IN ar_adjustments%ROWTYPE,
12021: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type)
12022: IS
12080: | p_adj_rec ar adjustment record
12081: | p_ae_sys_rec ar system parameter
12082: +-------------------------------------------------------------------------*/
12083: PROCEDURE Trx_level_direct_adjust
12084: (p_customer_trx IN ra_customer_trx%ROWTYPE,
12085: p_adj_rec IN ar_adjustments%ROWTYPE,
12086: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
12087: p_gt_id IN NUMBER DEFAULT NULL)
12088: IS
12232: | p_app_rec ar receivable application record |
12233: | p_ae_sys_rec ar system parameter |
12234: +-------------------------------------------------------------------------*/
12235: PROCEDURE Trx_level_direct_cash_apply
12236: (p_customer_trx IN ra_customer_trx%ROWTYPE,
12237: p_app_rec IN ar_receivable_applications%ROWTYPE,
12238: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
12239: p_gt_id IN NUMBER DEFAULT NULL,
12240: p_inv_cm IN VARCHAR2 DEFAULT 'I')
12724: END;
12725:
12726:
12727: PROCEDURE display_cust_trx_row
12728: (p_record IN ra_customer_trx_lines_gt%ROWTYPE)
12729: IS
12730: BEGIN
12731: IF PG_DEBUG = 'Y' THEN
12732: localdebug('arp_det_dist_pkg.display_cust_trx_row()+');
12759: PROCEDURE display_cust_trx_gt(p_customer_trx_id IN NUMBER)
12760: IS
12761: CURSOR c IS
12762: SELECT *
12763: FROM ra_customer_trx_lines_gt
12764: WHERE customer_trx_id = p_customer_trx_id;
12765: l_record c%ROWTYPE;
12766: BEGIN
12767: IF PG_DEBUG = 'Y' THEN
12787: x_amt_rem IN OUT NOCOPY g_amt_rem_type) IS
12788: CURSOR c IS
12789: SELECT SUM(NVL(amount_due_original,extended_amount)),
12790: line_type
12791: FROM ra_customer_trx_lines
12792: WHERE customer_trx_id = p_customer_trx_id
12793: GROUP BY line_type;
12794:
12795: CURSOR tl_for_rl IS
12793: GROUP BY line_type;
12794:
12795: CURSOR tl_for_rl IS
12796: SELECT customer_trx_line_id
12797: FROM ra_customer_trx_lines
12798: WHERE customer_trx_id = p_customer_trx_id
12799: AND line_type IN ('LINE','CB')
12800: MINUS
12801: SELECT link_to_cust_trx_line_id
12798: WHERE customer_trx_id = p_customer_trx_id
12799: AND line_type IN ('LINE','CB')
12800: MINUS
12801: SELECT link_to_cust_trx_line_id
12802: FROM ra_customer_trx_lines
12803: WHERE customer_trx_id = p_customer_trx_id
12804: AND line_type = 'TAX';
12805:
12806: l_amt NUMBER;
13808: PROCEDURE exec_adj_api_if_required
13809: (p_adj_rec IN ar_adjustments%ROWTYPE,
13810: p_app_rec IN ar_receivable_applications%ROWTYPE,
13811: p_ae_rule_rec IN ae_rule_rec_type,
13812: p_cust_inv_rec IN ra_customer_trx%ROWTYPE)
13813: IS
13814:
13815: CURSOR get_group_data_rev IS
13816: SELECT account_class account_class,
13958: END;
13959:
13960:
13961: PROCEDURE exec_revrec_if_required
13962: ( p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
13963: p_app_rec IN ar_receivable_applications%ROWTYPE,
13964: p_adj_rec IN ar_adjustments%ROWTYPE)
13965: IS
13966: CURSOR c1 IS
13964: p_adj_rec IN ar_adjustments%ROWTYPE)
13965: IS
13966: CURSOR c1 IS
13967: SELECT ctl.customer_trx_id
13968: FROM ra_customer_trx_lines ctl
13969: WHERE ctl.customer_trx_id = p_customer_trx_id
13970: AND ctl.autorule_complete_flag||'' = 'N'
13971: GROUP BY ctl.customer_trx_id;
13972: l_dummy NUMBER;
14031: ,x_msg_data OUT NOCOPY VARCHAR2)
14032: IS
14033: CURSOR c1(p_customer_trx_id IN NUMBER) IS
14034: SELECT ctl.customer_trx_id
14035: FROM ra_customer_trx_lines ctl
14036: WHERE ctl.customer_trx_id = p_customer_trx_id
14037: AND ctl.autorule_complete_flag||'' = 'N'
14038: GROUP BY ctl.customer_trx_id;
14039:
14038: GROUP BY ctl.customer_trx_id;
14039:
14040: CURSOR c_trx_number(p_customer_trx_id IN NUMBER) IS
14041: SELECT ct.trx_number
14042: FROM ra_customer_trx ct
14043: WHERE ct.customer_trx_id = p_customer_trx_id;
14044:
14045: l_message VARCHAR2(2000);
14046: l_trx_number VARCHAR2(20);
15454: p_inv_cm IN VARCHAR2 DEFAULT 'I',
15455: p_cash_mfar IN VARCHAR2 DEFAULT 'CASH')
15456: IS
15457: CURSOR cu_trx(p_trx_id IN NUMBER) IS
15458: SELECT * FROM ra_customer_trx_all
15459: WHERE customer_trx_id = p_trx_id;
15460: l_trx_rec ra_customer_trx_all%ROWTYPE;
15461: l_exec_status VARCHAR2(10) := 'N';
15462: l_adj_rec ar_adjustments%ROWTYPE;
15456: IS
15457: CURSOR cu_trx(p_trx_id IN NUMBER) IS
15458: SELECT * FROM ra_customer_trx_all
15459: WHERE customer_trx_id = p_trx_id;
15460: l_trx_rec ra_customer_trx_all%ROWTYPE;
15461: l_exec_status VARCHAR2(10) := 'N';
15462: l_adj_rec ar_adjustments%ROWTYPE;
15463: l_app_rec ar_receivable_applications%ROWTYPE;
15464: next_app EXCEPTION;
15809: WHERE app.customer_trx_id = trx.customer_trx_id
15810: AND app.upgrade_method IS NULL
15811: AND NVL(p_app_id,-9) <> app.receivable_application_id -- excluded the current app record
15812: AND rownum = 1) cmapp11i
15813: FROM ra_customer_trx trx,
15814: psa_trx_types_all tt
15815: WHERE trx.customer_trx_id = p_trx_id
15816: AND trx.cust_trx_type_id = tt.psa_trx_type_id(+);
15817:
15929: END;
15930:
15931:
15932: PROCEDURE online_lazy_apply
15933: (p_customer_trx IN ra_customer_trx%ROWTYPE,
15934: p_app_rec IN ar_receivable_applications%ROWTYPE,
15935: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
15936: p_gt_id IN NUMBER,
15937: --Add the p_inv_cm flag
16150: | x_freight_rem The remaining freight amount for the level TRANSACTION only|
16151: | x_charges_rem The remaining charges amount for the level TRANSACTION only|
16152: +-----------------------------------------------------------------------------+
16153: | Action : |
16154: | Read the remaining amount on ra_customer_trx_lines_gt |
16155: +-----------------------------------------------------------------------------*/
16156: PROCEDURE get_latest_amount_remaining
16157: (p_customer_trx_id IN NUMBER,
16158: p_app_level IN VARCHAR2 DEFAULT 'TRANSACTION',
16170: x_msg_data OUT NOCOPY VARCHAR2,
16171: x_msg_count OUT NOCOPY NUMBER)
16172: IS
16173: CURSOR c_trx IS
16174: SELECT /*+INDEX (ra_customer_trx_lines_gt ra_customer_trx_lines_gt_n1)*/
16175: SUM(DECODE(line_type,'LINE',NVL(AMOUNT_DUE_REMAINING,0))) line_rem,
16176: SUM(DECODE(line_type,'TAX' ,NVL(AMOUNT_DUE_REMAINING,0))) tax_rem,
16177: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16178: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16177: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16178: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16179: SUM(DECODE(line_type,'LINE',NVL(FRT_ADJ_REMAINING,0))) +
16180: SUM(DECODE(line_type,'FREIGHT',NVL(AMOUNT_DUE_REMAINING,0))) frt_rem
16181: FROM ra_customer_trx_lines_gt
16182: WHERE CUSTOMER_TRX_ID = p_customer_trx_id;
16183:
16184: CURSOR c_line IS
16185: SELECT /*+INDEX (ra_customer_trx_lines_gt ra_customer_trx_lines_gt_n1)*/
16181: FROM ra_customer_trx_lines_gt
16182: WHERE CUSTOMER_TRX_ID = p_customer_trx_id;
16183:
16184: CURSOR c_line IS
16185: SELECT /*+INDEX (ra_customer_trx_lines_gt ra_customer_trx_lines_gt_n1)*/
16186: SUM(DECODE(line_type,'LINE',NVL(AMOUNT_DUE_REMAINING,0))) line_rem,
16187: SUM(DECODE(line_type,'TAX' ,NVL(AMOUNT_DUE_REMAINING,0))) tax_rem,
16188: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16189: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16188: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16189: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16190: SUM(DECODE(line_type,'LINE',NVL(FRT_ADJ_REMAINING,0))) +
16191: SUM(DECODE(line_type,'FREIGHT',NVL(AMOUNT_DUE_REMAINING,0))) frt_rem
16192: FROM ra_customer_trx_lines_gt
16193: WHERE CUSTOMER_TRX_ID = p_customer_trx_id
16194: AND DECODE(line_type,'LINE',customer_trx_line_id, LINK_TO_CUST_TRX_LINE_ID) = p_ctl_id;
16195:
16196: CURSOR c_gp IS
16193: WHERE CUSTOMER_TRX_ID = p_customer_trx_id
16194: AND DECODE(line_type,'LINE',customer_trx_line_id, LINK_TO_CUST_TRX_LINE_ID) = p_ctl_id;
16195:
16196: CURSOR c_gp IS
16197: SELECT /*+INDEX (ra_customer_trx_lines_gt ra_customer_trx_lines_gt_n1)*/
16198: SUM(DECODE(line_type,'LINE',NVL(AMOUNT_DUE_REMAINING,0))) line_rem,
16199: SUM(DECODE(line_type,'TAX' ,NVL(AMOUNT_DUE_REMAINING,0))) tax_rem,
16200: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16201: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16200: SUM(DECODE(line_type,'LINE',NVL(CHRG_AMOUNT_REMAINING,0))) +
16201: SUM(DECODE(line_type,'CHARGES',NVL(AMOUNT_DUE_REMAINING,0))) chrg_rem,
16202: SUM(DECODE(line_type,'LINE',NVL(FRT_ADJ_REMAINING,0))) +
16203: SUM(DECODE(line_type,'FREIGHT',NVL(AMOUNT_DUE_REMAINING,0))) frt_rem
16204: FROM ra_customer_trx_lines_gt
16205: WHERE CUSTOMER_TRX_ID = p_customer_trx_id
16206: AND source_data_key1 = p_source_data_key1
16207: AND source_data_key2 = p_source_data_key2
16208: AND source_data_key3 = p_source_data_key3
16295: FROM
16296: (SELECT SUM(DECODE(line_type,'LINE',amount_due_remaining,0)) Line_Balance
16297: ,SUM(DECODE(line_type,'TAX',amount_due_remaining,0)) Tax_Balance
16298: ,customer_trx_id
16299: FROM ra_customer_trx_lines
16300: GROUP BY customer_trx_id) a,
16301: (SELECT SUM(DECODE(line_type,'LINE', frt_adj_remaining, 0)) Frt_adj,
16302: SUM(DECODE(line_type,'LINE', frt_ed_amount, 0)) Frt_ed,
16303: SUM(DECODE(line_type,'LINE', frt_uned_amount, 0)) Frt_uned,
16302: SUM(DECODE(line_type,'LINE', frt_ed_amount, 0)) Frt_ed,
16303: SUM(DECODE(line_type,'LINE', frt_uned_amount, 0)) Frt_uned,
16304: SUM(DECODE(line_type,'FREIGHT',amount_due_remaining, 0)) Frt_app,
16305: customer_trx_id
16306: FROM ra_customer_trx_lines
16307: GROUP BY customer_trx_id) b,
16308: (SELECT SUM(DECODE(line_type,'LINE', chrg_amount_remaining, 0)) chrg_adj,
16309: SUM(DECODE(line_type,'CHARGES',amount_due_remaining, 0)) chrg_app,
16310: customer_trx_id
16307: GROUP BY customer_trx_id) b,
16308: (SELECT SUM(DECODE(line_type,'LINE', chrg_amount_remaining, 0)) chrg_adj,
16309: SUM(DECODE(line_type,'CHARGES',amount_due_remaining, 0)) chrg_app,
16310: customer_trx_id
16311: FROM ra_customer_trx_lines
16312: GROUP BY customer_trx_id) d,
16313: ar_payment_schedules c
16314: WHERE b.customer_trx_id = a.customer_trx_id
16315: AND a.customer_trx_id = c.customer_trx_id
16344: (SELECT SUM(ctlgd.AMOUNT) sum_orig,
16345: SUM(ctlgd.ACCTD_AMOUNT) sum_acctd_orig,
16346: ctl.line_type line_type,
16347: ctx.invoice_currency_code invoice_currency_code
16348: FROM ra_customer_trx ctx,
16349: ra_customer_trx_lines ctl,
16350: ra_cust_trx_line_gl_dist ctlgd
16351: WHERE ctx.customer_trx_id = p_customer_trx_id
16352: AND ctx.customer_trx_id = ctl.customer_trx_id
16345: SUM(ctlgd.ACCTD_AMOUNT) sum_acctd_orig,
16346: ctl.line_type line_type,
16347: ctx.invoice_currency_code invoice_currency_code
16348: FROM ra_customer_trx ctx,
16349: ra_customer_trx_lines ctl,
16350: ra_cust_trx_line_gl_dist ctlgd
16351: WHERE ctx.customer_trx_id = p_customer_trx_id
16352: AND ctx.customer_trx_id = ctl.customer_trx_id
16353: AND ctl.customer_trx_line_id = ctlgd.customer_trx_line_id
16371: l_charges_applied NUMBER;
16372: l_base NUMBER;
16373: l_run_amt NUMBER;
16374: l_run_total NUMBER;
16375: l_inv_rec ra_customer_trx%ROWTYPE;
16376: no_rem_for_trx EXCEPTION;
16377: no_amount_remaining EXCEPTION;
16378: no_rem_for_trx_upg EXCEPTION;
16379:
16662: g_uned_tax_flag := p_uned_tax_flag;
16663: END set_interface_flag;
16664:
16665: PROCEDURE adjustment_with_interface
16666: (p_customer_trx IN ra_customer_trx%ROWTYPE,
16667: p_adj_rec IN ar_adjustments%ROWTYPE,
16668: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
16669: p_gt_id IN NUMBER,
16670: p_line_flag IN VARCHAR2 DEFAULT 'INTERFACE',
16673: x_return_status IN OUT NOCOPY VARCHAR2,
16674: x_msg_count IN OUT NOCOPY NUMBER,
16675: x_msg_data IN OUT NOCOPY VARCHAR2,
16676: p_llca_from_call IN VARCHAR2 DEFAULT NULL,
16677: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE DEFAULT NULL)
16678: IS
16679: l_app_rec ar_receivable_applications%ROWTYPE;
16680: BEGIN
16681: IF PG_DEBUG = 'Y' THEN
16806: END;
16807:
16808:
16809: PROCEDURE application_with_interface
16810: (p_customer_trx IN ra_customer_trx%ROWTYPE,
16811: p_app_rec IN ar_receivable_applications%ROWTYPE,
16812: p_ae_sys_rec IN arp_acct_main.ae_sys_rec_type,
16813: p_gt_id IN NUMBER,
16814: p_line_flag IN VARCHAR2 DEFAULT 'INTERFACE',