[Home] [Help]
363: p_debug_mode IN VARCHAR2,
364: p_output IN NUMBER,
365: /* IC Upgrade: transaction source variables are now initialize after we fetched
366: the record from the cursor
367: P_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
368: p_user_transaction_source IN pa_transaction_interface.user_transaction_source%TYPE,*/
369: p_invoice_source1 IN ap_invoices.source%TYPE,
370: p_invoice_source2 IN ap_invoices.source%TYPE,
371: p_invoice_source3 IN ap_invoices.source%TYPE,
364: p_output IN NUMBER,
365: /* IC Upgrade: transaction source variables are now initialize after we fetched
366: the record from the cursor
367: P_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
368: p_user_transaction_source IN pa_transaction_interface.user_transaction_source%TYPE,*/
369: p_invoice_source1 IN ap_invoices.source%TYPE,
370: p_invoice_source2 IN ap_invoices.source%TYPE,
371: p_invoice_source3 IN ap_invoices.source%TYPE,
372: p_invoice_type IN ap_invoices.invoice_type_lookup_code%TYPE,
369: p_invoice_source1 IN ap_invoices.source%TYPE,
370: p_invoice_source2 IN ap_invoices.source%TYPE,
371: p_invoice_source3 IN ap_invoices.source%TYPE,
372: p_invoice_type IN ap_invoices.invoice_type_lookup_code%TYPE,
373: p_system_linkage IN pa_transaction_interface.system_linkage%TYPE,
374: p_process_receipts IN VARCHAR2
375: ) IS
376:
377: v_interface_id NUMBER;
668:
669: END fetch_pf_var;
670:
671: FUNCTION create_new_batch_name
672: RETURN pa_transaction_interface.batch_name%TYPE IS
673:
674: v_old_stack VARCHAR2(630);
675: v_new_batch_name pa_transaction_interface.batch_name%TYPE;
676: v_interface_id NUMBER;
671: FUNCTION create_new_batch_name
672: RETURN pa_transaction_interface.batch_name%TYPE IS
673:
674: v_old_stack VARCHAR2(630);
675: v_new_batch_name pa_transaction_interface.batch_name%TYPE;
676: v_interface_id NUMBER;
677:
678: BEGIN
679:
1095: END get_mrc_flag;
1096:
1097:
1098: FUNCTION create_new_org_transref (
1099: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1100: p_invoice_id IN ap_invoices.invoice_id%TYPE,
1101: p_invoice_distribution_id IN ap_invoice_distributions.invoice_distribution_id%TYPE)
1102: RETURN pa_transaction_interface.orig_transaction_reference%TYPE IS
1103:
1098: FUNCTION create_new_org_transref (
1099: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1100: p_invoice_id IN ap_invoices.invoice_id%TYPE,
1101: p_invoice_distribution_id IN ap_invoice_distributions.invoice_distribution_id%TYPE)
1102: RETURN pa_transaction_interface.orig_transaction_reference%TYPE IS
1103:
1104: BEGIN
1105:
1106: RETURN p_batch_name || '-' || to_char(p_invoice_id) || '-' || to_char(p_invoice_distribution_id, '099');
1200: END print_stat_and_submit_report;
1201:
1202:
1203: PROCEDURE trans_import (
1204: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1205: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1206: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1207: p_user_id IN NUMBER) IS
1208:
1201:
1202:
1203: PROCEDURE trans_import (
1204: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1205: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1206: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1207: p_user_id IN NUMBER) IS
1208:
1209: v_old_stack VARCHAR2(630);
1202:
1203: PROCEDURE trans_import (
1204: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1205: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1206: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1207: p_user_id IN NUMBER) IS
1208:
1209: v_old_stack VARCHAR2(630);
1210: BEGIN
1245:
1246: p_trans_import_failed := 'Y';
1247:
1248: ROLLBACK TO SAVEPOINT import; /* 2138340 - we will rollback whatever has been done by trx import */
1249: UPDATE pa_transaction_interface
1250: SET transaction_status_code = 'R',
1251: transaction_rejection_code = 'TRX_IMPORT_ABORTED'
1252: WHERE interface_id = p_interface_id
1253: AND transaction_status_code = 'P'
1266: --The logic of Invoice processing can be undestood as:
1267: -- 1) Update PA_addition_flag on AP Invoice distribution lines to 'Z' if sum of lines
1268: -- net to zero
1269: -- 2) Update PA_addition_flag on AP Invoice distribution lines to 'O' to lock the record
1270: -- 3) Transfer_inv_to_pa populates PA transaction_interface table and call trx import
1271: -- 4) Tieback procedure called to update invoice distribution lines after trx import
1272:
1273: /*----------------------Net Zero Adjustment Phase----------------------*/
1274: /*
3538: v_var_batch_size NUMBER := 0;
3539: v_frt_batch_size NUMBER := 0;
3540:
3541: -- For PA IP Invoices
3542: L_IP_TRANSACTION_SOURCE pa_transaction_interface.transaction_source%TYPE;
3543: l_ap_inv_flag VARCHAR2(1):= 'N';
3544: l_ip_inv_flag VARCHAR2(1):= 'N';
3545:
3546: CURSOR Num_Dist_Marked_O (p_invoice_id IN NUMBER) IS
3771: End If;
3772:
3773: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
3774:
3775: INSERT INTO pa_transaction_interface_all(
3776: transaction_source
3777: , user_transaction_source
3778: , system_linkage
3779: , batch_name
3921: write_log(LOG, 'Inserting adjustment records..');
3922:
3923:
3924: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
3925: INSERT INTO pa_transaction_interface_all(
3926: transaction_source
3927: , user_transaction_source
3928: , system_linkage
3929: , batch_name
4059: ,l_fc_document_type_tbl(i) --NEW for funds check
4060: ,l_inv_type_code_tbl(i)
4061: ,l_ln_type_lookup_tbl(i)
4062: ,(select xface.txn_interface_id
4063: from pa_transaction_interface xface
4064: where xface.interface_id = l_interface_id_tbl(i)
4065: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
4066: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
4067: and NVL(xface.adjusted_expenditure_item_id,0) = 0 ) -- R12 funds management Uptake
4081: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
4082:
4083: IF l_rev_child_dist_id_tbl(i) > 0 THEN
4084:
4085: UPDATE pa_transaction_interface_all xface
4086: SET xface.net_zero_adjustment_flag ='Y',
4087: xface.adjusted_txn_interface_id =
4088: (select distinct xface1.txn_interface_id /*Added Distinct for bug 9266578 */
4089: from pa_transaction_interface xface1
4085: UPDATE pa_transaction_interface_all xface
4086: SET xface.net_zero_adjustment_flag ='Y',
4087: xface.adjusted_txn_interface_id =
4088: (select distinct xface1.txn_interface_id /*Added Distinct for bug 9266578 */
4089: from pa_transaction_interface xface1
4090: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
4091: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
4092: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
4093: )
5124: END transfer_inv_to_pa;
5125:
5126: /*---------------------------Tieback to AP Phase----------------------------*/
5127: PROCEDURE tieback_AP_ER(
5128: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
5129: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
5130: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
5131:
5132: l_assets_addflag VARCHAR2(1):=NULL;
5125:
5126: /*---------------------------Tieback to AP Phase----------------------------*/
5127: PROCEDURE tieback_AP_ER(
5128: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
5129: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
5130: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
5131:
5132: l_assets_addflag VARCHAR2(1):=NULL;
5133: l_prev_assets_addflag VARCHAR2(1):=NULL;
5126: /*---------------------------Tieback to AP Phase----------------------------*/
5127: PROCEDURE tieback_AP_ER(
5128: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
5129: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
5130: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
5131:
5132: l_assets_addflag VARCHAR2(1):=NULL;
5133: l_prev_assets_addflag VARCHAR2(1):=NULL;
5134: l_project_id NUMBER :=0;
5165: ,project_id
5166: ,l_pa_addflag
5167: ,l_assets_addflag
5168: ,document_distribution_type /*Bug 13602288: Self Assessed Tax Changes*/
5169: FROM pa_transaction_interface_all txnintf
5170: WHERE txnintf.transaction_source = p_txn_src
5171: AND txnintf.batch_name = p_batch_name
5172: AND txnintf.interface_id = p_interface_id;
5173:
5537: /*==========================================================================*/
5538: --The following section contains procedures for Supplier Invoice Discounts
5539: --The logic of doscount processing can be undestood as:
5540: -- 1) Update PA_addition_flag on Discount payment lines to 'O' to lock the record
5541: -- 3) Transfer_disc_to_pa populates PA transaction_interface table and call trx import
5542: -- 4) Tieback procedure called to update discount payment lines after trx import
5543: /*==========================================================================*/
5544:
5545: /*-----Function checks the profile setup of cutoff date for which discounts to be pulled----*/
6034:
6035: --FORALL i IN l_inv_pay_id_tbl.FIRST..l_inv_pay_id_tbl.LAST
6036: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
6037:
6038: INSERT INTO pa_transaction_interface_all(
6039: transaction_source
6040: , user_transaction_source
6041: , system_linkage
6042: , batch_name
6175: write_log(LOG, 'Inserting adjustment records..');
6176: --FORALL i IN l_inv_pay_id_tbl.FIRST..l_inv_pay_id_tbl.LAST
6177: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
6178:
6179: INSERT INTO pa_transaction_interface_all(
6180: transaction_source
6181: , user_transaction_source
6182: , system_linkage
6183: , batch_name
6306: ,l_inv_type_code_tbl(i)
6307: ,l_ln_type_lookup_tbl(i)
6308: , 'T' --l_si_assts_add_flg_tbl(i)
6309: ,(select xface.txn_interface_id
6310: from pa_transaction_interface xface
6311: where xface.interface_id = l_interface_id_tbl(i)
6312: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
6313: and xface.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(i))
6314: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
6328: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
6329:
6330: IF l_rev_child_dist_id_tbl(i) > 0 THEN
6331:
6332: UPDATE pa_transaction_interface_all xface
6333: SET xface.net_zero_adjustment_flag ='Y',
6334: xface.adjusted_txn_interface_id =
6335: (select distinct xface1.txn_interface_id /* bug 9266578 */
6336: from pa_transaction_interface xface1
6332: UPDATE pa_transaction_interface_all xface
6333: SET xface.net_zero_adjustment_flag ='Y',
6334: xface.adjusted_txn_interface_id =
6335: (select distinct xface1.txn_interface_id /* bug 9266578 */
6336: from pa_transaction_interface xface1
6337: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
6338: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
6339: and xface1.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(l_rev_parent_dist_ind_tbl(i)))
6340: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
7213: BEGIN
7214:
7215: FORALL i IN l_rcv_txn_id_tbl.FIRST..l_rcv_txn_id_tbl.LAST
7216:
7217: INSERT INTO pa_transaction_interface_all(
7218: transaction_source
7219: , user_transaction_source
7220: , system_linkage
7221: , batch_name
7355: write_log(LOG, 'Inserting adjustment records..');
7356:
7357: FORALL i IN l_rcv_txn_id_tbl.FIRST..l_rcv_txn_id_tbl.LAST
7358:
7359: INSERT INTO pa_transaction_interface_all(
7360: transaction_source
7361: , user_transaction_source
7362: , system_linkage
7363: , batch_name
7485: ,l_fc_document_type_tbl(i) --NEW for funds check
7486: ,l_dest_typ_code_tbl(i)
7487: ,l_trx_type_tbl(i)
7488: ,(select xface.txn_interface_id
7489: from pa_transaction_interface xface
7490: where xface.interface_id = l_interface_id_tbl(i)
7491: and xface.transaction_source = l_txn_src_tbl(i)
7492: and xface.cdl_system_reference2 = l_po_head_id_tbl(i)
7493: and xface.cdl_system_reference3 = l_po_dist_id_tbl(i)
8530:
8531: END transfer_receipts_to_pa;
8532:
8533: PROCEDURE tieback_rcv_Txn (
8534: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8535: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8536: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8537:
8538: l_pa_addflag VARCHAR2(1):=NULL;
8531: END transfer_receipts_to_pa;
8532:
8533: PROCEDURE tieback_rcv_Txn (
8534: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8535: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8536: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8537:
8538: l_pa_addflag VARCHAR2(1):=NULL;
8539: l_rows_tiebacked NUMBER :=0;
8532:
8533: PROCEDURE tieback_rcv_Txn (
8534: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8535: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8536: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8537:
8538: l_pa_addflag VARCHAR2(1):=NULL;
8539: l_rows_tiebacked NUMBER :=0;
8540:
8565: ,project_id
8566: ,l_pa_addflag
8567: ,orig_exp_txn_reference2 -- pricing changes
8568: ,dr_code_combination_id
8569: FROM pa_transaction_interface_all txnintf
8570: WHERE txnintf.transaction_source = p_txn_src
8571: AND txnintf.batch_name = p_batch_name
8572: AND txnintf.interface_id = p_interface_id;
8573:
8778:
8779: END tieback_rcv_Txn;
8780:
8781: PROCEDURE check_failed_receipts (
8782: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8783: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8784:
8785: v_num_receipts_failed NUMBER:=0;
8786: v_po_head_id VARCHAR2(35);
8779: END tieback_rcv_Txn;
8780:
8781: PROCEDURE check_failed_receipts (
8782: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8783: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8784:
8785: v_num_receipts_failed NUMBER:=0;
8786: v_po_head_id VARCHAR2(35);
8787: v_po_dist_id VARCHAR2(35);
8793: SELECT cdl_system_reference2
8794: ,cdl_system_reference3
8795: ,cdl_system_reference4
8796: ,orig_exp_txn_reference2 -- pricing changes
8797: FROM pa_transaction_interface
8798: WHERE transaction_status_code = 'R'
8799: AND transaction_source IN ('PO RECEIPT', 'PO RECEIPT PRICE ADJ')
8800: AND batch_name = p_batch_name
8801: AND interface_id = p_interface_id;
8826: for NRTAX */
8827:
8828: write_log(LOG,'Batch Name and Interface Id is : '||G_RCVTAX_BATCH_NAME||' '||G_UNIQUE_ID);
8829:
8830: UPDATE pa_transaction_interface_all
8831: SET transaction_status_code = 'T'
8832: WHERE batch_name = G_RCVTAX_BATCH_NAME /* p_batch_name changed for #2912545 */
8833: AND interface_id = G_RCVNRT_INTERFACE_ID /* p_interface_id changed for #2912545 */
8834: AND transaction_source = 'PO RECEIPT NRTAX' /* PO RECEIPT TAX. changed for #2912545 */
8836: AND cdl_system_reference3 = v_po_dist_id
8837: AND cdl_system_reference4 = v_txn_id;
8838:
8839: -- pricing changes
8840: UPDATE pa_transaction_interface_all
8841: SET transaction_status_code = 'T'
8842: WHERE batch_name = G_RCVTAX_BATCH_NAME /* p_batch_name changed for #2912545 */
8843: AND interface_id = G_RCVNRT_INTERFACE_ID /* p_interface_id changed for #2912545 */
8844: AND transaction_source = 'PO RECEIPT NRTAX PRICE ADJ' /* PO RECEIPT TAX. changed for #2912545 */
9505: BEGIN
9506:
9507: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
9508:
9509: INSERT INTO pa_transaction_interface_all(
9510: transaction_source
9511: , user_transaction_source
9512: , system_linkage
9513: , batch_name
9651: write_log(LOG, 'Inserting adjustment records..');
9652: End if;
9653:
9654: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
9655: INSERT INTO pa_transaction_interface_all(
9656: transaction_source
9657: , user_transaction_source
9658: , system_linkage
9659: , batch_name
9783: ,l_bus_grp_id_tbl(i)
9784: ,l_adj_exp_item_id_tbl(i) --NEW for reversals
9785: ,l_fc_document_type_tbl(i) --NEW for funds checking
9786: ,(select xface.txn_interface_id
9787: from pa_transaction_interface xface
9788: where xface.interface_id = l_interface_id_tbl(i)
9789: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
9790: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
9791: and NVL(xface.adjusted_expenditure_item_id,0) =0 ) -- R12 funds management Uptake
10178:
10179: END transfer_inv_var_to_pa;
10180:
10181: PROCEDURE tieback_invoice_variances (
10182: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10183: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10184: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10185:
10186: l_assets_addflag VARCHAR2(1):=NULL;
10179: END transfer_inv_var_to_pa;
10180:
10181: PROCEDURE tieback_invoice_variances (
10182: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10183: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10184: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10185:
10186: l_assets_addflag VARCHAR2(1):=NULL;
10187: l_prev_assets_addflag VARCHAR2(1):=NULL;
10180:
10181: PROCEDURE tieback_invoice_variances (
10182: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10183: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10184: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10185:
10186: l_assets_addflag VARCHAR2(1):=NULL;
10187: l_prev_assets_addflag VARCHAR2(1):=NULL;
10188: l_project_id NUMBER :=0;
10214: ,project_id
10215: ,l_pa_addflag
10216: ,l_assets_addflag
10217: ,expenditure_item_id /* Bug 8709614 */
10218: FROM pa_transaction_interface_all txnintf
10219: WHERE txnintf.transaction_source = p_txn_src
10220: AND txnintf.batch_name = p_batch_name
10221: AND txnintf.interface_id = p_interface_id;
10222:
11071: v_var_batch_size NUMBER := 0;
11072: v_frt_batch_size NUMBER := 0;
11073:
11074: -- For PA IP Invoices
11075: L_IP_TRANSACTION_SOURCE pa_transaction_interface.transaction_source%TYPE;
11076: l_ap_inv_flag VARCHAR2(1):= 'N';
11077: l_ip_inv_flag VARCHAR2(1):= 'N';
11078:
11079: l_create_adj_recs VARCHAR2(1) := 'N';
11211: BEGIN
11212:
11213: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
11214:
11215: INSERT INTO pa_transaction_interface_all(
11216: transaction_source
11217: , user_transaction_source
11218: , system_linkage
11219: , batch_name
11359: write_log(LOG, 'Inserting adjustment records..');
11360:
11361: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
11362:
11363: INSERT INTO pa_transaction_interface_all(
11364: transaction_source
11365: , user_transaction_source
11366: , system_linkage
11367: , batch_name
11498: ,l_fc_document_type_tbl(i) --NEW for funds check
11499: ,l_inv_type_code_tbl(i)
11500: ,l_ln_type_lookup_tbl(i)
11501: ,(select xface.txn_interface_id
11502: from pa_transaction_interface xface
11503: where xface.interface_id = l_interface_id_tbl(i)
11504: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
11505: and xface.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(i))
11506: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
11518: write_log(LOG, 'Updating adjustment records..');
11519: IF l_rev_child_dist_id_tbl.exists(1) THEN
11520: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
11521: IF l_rev_child_dist_id_tbl(i) > 0 THEN
11522: UPDATE pa_transaction_interface_all xface
11523: SET xface.net_zero_adjustment_flag ='Y',
11524: xface.adjusted_txn_interface_id =
11525: (select distinct xface1.txn_interface_id /* bug 9266578 */
11526: from pa_transaction_interface xface1
11522: UPDATE pa_transaction_interface_all xface
11523: SET xface.net_zero_adjustment_flag ='Y',
11524: xface.adjusted_txn_interface_id =
11525: (select distinct xface1.txn_interface_id /* bug 9266578 */
11526: from pa_transaction_interface xface1
11527: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
11528: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
11529: and xface1.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(l_rev_parent_dist_ind_tbl(i)))
11530: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
12517: END transfer_pay_to_pa;
12518:
12519: /*---------------------------Tieback to AP Phase----------------------------*/
12520: PROCEDURE tieback_payment_AP_ER(
12521: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
12522: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
12523: p_batch_type IN VARCHAR2,
12524: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
12525:
12518:
12519: /*---------------------------Tieback to AP Phase----------------------------*/
12520: PROCEDURE tieback_payment_AP_ER(
12521: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
12522: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
12523: p_batch_type IN VARCHAR2,
12524: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
12525:
12526: l_assets_addflag VARCHAR2(1):=NULL;
12520: PROCEDURE tieback_payment_AP_ER(
12521: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
12522: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
12523: p_batch_type IN VARCHAR2,
12524: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
12525:
12526: l_assets_addflag VARCHAR2(1):=NULL;
12527: l_prev_assets_addflag VARCHAR2(1):=NULL;
12528: l_project_id NUMBER :=0;
12554: ,transaction_status_code
12555: ,project_id
12556: ,l_pa_addflag
12557: ,l_assets_addflag
12558: FROM pa_transaction_interface_all txnintf
12559: WHERE txnintf.transaction_source = p_txn_src
12560: AND txnintf.batch_name = p_batch_name
12561: AND txnintf.interface_id = p_interface_id;
12562: