[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;
666:
667: END fetch_pf_var;
668:
669: FUNCTION create_new_batch_name
670: RETURN pa_transaction_interface.batch_name%TYPE IS
671:
672: v_old_stack VARCHAR2(630);
673: v_new_batch_name pa_transaction_interface.batch_name%TYPE;
674: v_interface_id NUMBER;
669: FUNCTION create_new_batch_name
670: RETURN pa_transaction_interface.batch_name%TYPE IS
671:
672: v_old_stack VARCHAR2(630);
673: v_new_batch_name pa_transaction_interface.batch_name%TYPE;
674: v_interface_id NUMBER;
675:
676: BEGIN
677:
1077: END get_mrc_flag;
1078:
1079:
1080: FUNCTION create_new_org_transref (
1081: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1082: p_invoice_id IN ap_invoices.invoice_id%TYPE,
1083: p_invoice_distribution_id IN ap_invoice_distributions.invoice_distribution_id%TYPE)
1084: RETURN pa_transaction_interface.orig_transaction_reference%TYPE IS
1085:
1080: FUNCTION create_new_org_transref (
1081: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1082: p_invoice_id IN ap_invoices.invoice_id%TYPE,
1083: p_invoice_distribution_id IN ap_invoice_distributions.invoice_distribution_id%TYPE)
1084: RETURN pa_transaction_interface.orig_transaction_reference%TYPE IS
1085:
1086: BEGIN
1087:
1088: RETURN p_batch_name || '-' || to_char(p_invoice_id) || '-' || to_char(p_invoice_distribution_id, '099');
1182: END print_stat_and_submit_report;
1183:
1184:
1185: PROCEDURE trans_import (
1186: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1187: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1188: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1189: p_user_id IN NUMBER) IS
1190:
1183:
1184:
1185: PROCEDURE trans_import (
1186: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1187: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1188: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1189: p_user_id IN NUMBER) IS
1190:
1191: v_old_stack VARCHAR2(630);
1184:
1185: PROCEDURE trans_import (
1186: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
1187: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
1188: p_interface_id IN pa_transaction_interface.interface_id%TYPE,
1189: p_user_id IN NUMBER) IS
1190:
1191: v_old_stack VARCHAR2(630);
1192: BEGIN
1227:
1228: p_trans_import_failed := 'Y';
1229:
1230: ROLLBACK TO SAVEPOINT import; /* 2138340 - we will rollback whatever has been done by trx import */
1231: UPDATE pa_transaction_interface
1232: SET transaction_status_code = 'R',
1233: transaction_rejection_code = 'TRX_IMPORT_ABORTED'
1234: WHERE interface_id = p_interface_id
1235: AND transaction_status_code = 'P'
1248: --The logic of Invoice processing can be undestood as:
1249: -- 1) Update PA_addition_flag on AP Invoice distribution lines to 'Z' if sum of lines
1250: -- net to zero
1251: -- 2) Update PA_addition_flag on AP Invoice distribution lines to 'O' to lock the record
1252: -- 3) Transfer_inv_to_pa populates PA transaction_interface table and call trx import
1253: -- 4) Tieback procedure called to update invoice distribution lines after trx import
1254:
1255: /*----------------------Net Zero Adjustment Phase----------------------*/
1256: /*
2496: v_var_batch_size NUMBER := 0;
2497: v_frt_batch_size NUMBER := 0;
2498:
2499: -- For PA IP Invoices
2500: L_IP_TRANSACTION_SOURCE pa_transaction_interface.transaction_source%TYPE;
2501: l_ap_inv_flag VARCHAR2(1):= 'N';
2502: l_ip_inv_flag VARCHAR2(1):= 'N';
2503:
2504: CURSOR Num_Dist_Marked_O (p_invoice_id IN NUMBER) IS
2705: End If;
2706:
2707: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
2708:
2709: INSERT INTO pa_transaction_interface_all(
2710: transaction_source
2711: , user_transaction_source
2712: , system_linkage
2713: , batch_name
2853: write_log(LOG, 'Inserting adjustment records..');
2854:
2855:
2856: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
2857: INSERT INTO pa_transaction_interface_all(
2858: transaction_source
2859: , user_transaction_source
2860: , system_linkage
2861: , batch_name
2990: ,l_fc_document_type_tbl(i) --NEW for funds check
2991: ,l_inv_type_code_tbl(i)
2992: ,l_ln_type_lookup_tbl(i)
2993: ,(select xface.txn_interface_id
2994: from pa_transaction_interface xface
2995: where xface.interface_id = l_interface_id_tbl(i)
2996: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
2997: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
2998: and NVL(xface.adjusted_expenditure_item_id,0) = 0 ) -- R12 funds management Uptake
3011: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
3012:
3013: IF l_rev_child_dist_id_tbl(i) > 0 THEN
3014:
3015: UPDATE pa_transaction_interface_all xface
3016: SET xface.net_zero_adjustment_flag ='Y',
3017: xface.adjusted_txn_interface_id =
3018: (select xface1.txn_interface_id
3019: from pa_transaction_interface xface1
3015: UPDATE pa_transaction_interface_all xface
3016: SET xface.net_zero_adjustment_flag ='Y',
3017: xface.adjusted_txn_interface_id =
3018: (select xface1.txn_interface_id
3019: from pa_transaction_interface xface1
3020: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
3021: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
3022: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
3023: )
3988: END transfer_inv_to_pa;
3989:
3990: /*---------------------------Tieback to AP Phase----------------------------*/
3991: PROCEDURE tieback_AP_ER(
3992: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
3993: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
3994: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
3995:
3996: l_assets_addflag VARCHAR2(1):=NULL;
3989:
3990: /*---------------------------Tieback to AP Phase----------------------------*/
3991: PROCEDURE tieback_AP_ER(
3992: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
3993: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
3994: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
3995:
3996: l_assets_addflag VARCHAR2(1):=NULL;
3997: l_prev_assets_addflag VARCHAR2(1):=NULL;
3990: /*---------------------------Tieback to AP Phase----------------------------*/
3991: PROCEDURE tieback_AP_ER(
3992: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
3993: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
3994: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
3995:
3996: l_assets_addflag VARCHAR2(1):=NULL;
3997: l_prev_assets_addflag VARCHAR2(1):=NULL;
3998: l_project_id NUMBER :=0;
4026: ,transaction_status_code
4027: ,project_id
4028: ,l_pa_addflag
4029: ,l_assets_addflag
4030: FROM pa_transaction_interface_all txnintf
4031: WHERE txnintf.transaction_source = p_txn_src
4032: AND txnintf.batch_name = p_batch_name
4033: AND txnintf.interface_id = p_interface_id;
4034:
4381: /*==========================================================================*/
4382: --The following section contains procedures for Supplier Invoice Discounts
4383: --The logic of doscount processing can be undestood as:
4384: -- 1) Update PA_addition_flag on Discount payment lines to 'O' to lock the record
4385: -- 3) Transfer_disc_to_pa populates PA transaction_interface table and call trx import
4386: -- 4) Tieback procedure called to update discount payment lines after trx import
4387: /*==========================================================================*/
4388:
4389: /*-----Function checks the profile setup of cutoff date for which discounts to be pulled----*/
4755:
4756: --FORALL i IN l_inv_pay_id_tbl.FIRST..l_inv_pay_id_tbl.LAST
4757: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
4758:
4759: INSERT INTO pa_transaction_interface_all(
4760: transaction_source
4761: , user_transaction_source
4762: , system_linkage
4763: , batch_name
4894: write_log(LOG, 'Inserting adjustment records..');
4895: --FORALL i IN l_inv_pay_id_tbl.FIRST..l_inv_pay_id_tbl.LAST
4896: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
4897:
4898: INSERT INTO pa_transaction_interface_all(
4899: transaction_source
4900: , user_transaction_source
4901: , system_linkage
4902: , batch_name
5024: ,l_inv_type_code_tbl(i)
5025: ,l_ln_type_lookup_tbl(i)
5026: , 'T' --l_si_assts_add_flg_tbl(i)
5027: ,(select xface.txn_interface_id
5028: from pa_transaction_interface xface
5029: where xface.interface_id = l_interface_id_tbl(i)
5030: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
5031: and xface.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(i))
5032: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
5045: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
5046:
5047: IF l_rev_child_dist_id_tbl(i) > 0 THEN
5048:
5049: UPDATE pa_transaction_interface_all xface
5050: SET xface.net_zero_adjustment_flag ='Y',
5051: xface.adjusted_txn_interface_id =
5052: (select xface1.txn_interface_id
5053: from pa_transaction_interface xface1
5049: UPDATE pa_transaction_interface_all xface
5050: SET xface.net_zero_adjustment_flag ='Y',
5051: xface.adjusted_txn_interface_id =
5052: (select xface1.txn_interface_id
5053: from pa_transaction_interface xface1
5054: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
5055: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
5056: and xface1.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(l_rev_parent_dist_ind_tbl(i)))
5057: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
5791: BEGIN
5792:
5793: FORALL i IN l_rcv_txn_id_tbl.FIRST..l_rcv_txn_id_tbl.LAST
5794:
5795: INSERT INTO pa_transaction_interface_all(
5796: transaction_source
5797: , user_transaction_source
5798: , system_linkage
5799: , batch_name
5931: write_log(LOG, 'Inserting adjustment records..');
5932:
5933: FORALL i IN l_rcv_txn_id_tbl.FIRST..l_rcv_txn_id_tbl.LAST
5934:
5935: INSERT INTO pa_transaction_interface_all(
5936: transaction_source
5937: , user_transaction_source
5938: , system_linkage
5939: , batch_name
6060: ,l_fc_document_type_tbl(i) --NEW for funds check
6061: ,l_dest_typ_code_tbl(i)
6062: ,l_trx_type_tbl(i)
6063: ,(select xface.txn_interface_id
6064: from pa_transaction_interface xface
6065: where xface.interface_id = l_interface_id_tbl(i)
6066: and xface.transaction_source = l_txn_src_tbl(i)
6067: and xface.cdl_system_reference2 = l_po_head_id_tbl(i)
6068: and xface.cdl_system_reference3 = l_po_dist_id_tbl(i)
7066:
7067: END transfer_receipts_to_pa;
7068:
7069: PROCEDURE tieback_rcv_Txn (
7070: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
7071: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
7072: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
7073:
7074: l_pa_addflag VARCHAR2(1):=NULL;
7067: END transfer_receipts_to_pa;
7068:
7069: PROCEDURE tieback_rcv_Txn (
7070: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
7071: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
7072: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
7073:
7074: l_pa_addflag VARCHAR2(1):=NULL;
7075: l_rows_tiebacked NUMBER :=0;
7068:
7069: PROCEDURE tieback_rcv_Txn (
7070: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
7071: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
7072: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
7073:
7074: l_pa_addflag VARCHAR2(1):=NULL;
7075: l_rows_tiebacked NUMBER :=0;
7076:
7101: ,project_id
7102: ,l_pa_addflag
7103: ,orig_exp_txn_reference2 -- pricing changes
7104: ,dr_code_combination_id
7105: FROM pa_transaction_interface_all txnintf
7106: WHERE txnintf.transaction_source = p_txn_src
7107: AND txnintf.batch_name = p_batch_name
7108: AND txnintf.interface_id = p_interface_id;
7109:
7285:
7286: END tieback_rcv_Txn;
7287:
7288: PROCEDURE check_failed_receipts (
7289: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
7290: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
7291:
7292: v_num_receipts_failed NUMBER:=0;
7293: v_po_head_id VARCHAR2(35);
7286: END tieback_rcv_Txn;
7287:
7288: PROCEDURE check_failed_receipts (
7289: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
7290: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
7291:
7292: v_num_receipts_failed NUMBER:=0;
7293: v_po_head_id VARCHAR2(35);
7294: v_po_dist_id VARCHAR2(35);
7300: SELECT cdl_system_reference2
7301: ,cdl_system_reference3
7302: ,cdl_system_reference4
7303: ,orig_exp_txn_reference2 -- pricing changes
7304: FROM pa_transaction_interface
7305: WHERE transaction_status_code = 'R'
7306: AND transaction_source IN ('PO RECEIPT', 'PO RECEIPT PRICE ADJ')
7307: AND batch_name = p_batch_name
7308: AND interface_id = p_interface_id;
7333: for NRTAX */
7334:
7335: write_log(LOG,'Batch Name and Interface Id is : '||G_RCVTAX_BATCH_NAME||' '||G_UNIQUE_ID);
7336:
7337: UPDATE pa_transaction_interface_all
7338: SET transaction_status_code = 'T'
7339: WHERE batch_name = G_RCVTAX_BATCH_NAME /* p_batch_name changed for #2912545 */
7340: AND interface_id = G_RCVNRT_INTERFACE_ID /* p_interface_id changed for #2912545 */
7341: AND transaction_source = 'PO RECEIPT NRTAX' /* PO RECEIPT TAX. changed for #2912545 */
7343: AND cdl_system_reference3 = v_po_dist_id
7344: AND cdl_system_reference4 = v_txn_id;
7345:
7346: -- pricing changes
7347: UPDATE pa_transaction_interface_all
7348: SET transaction_status_code = 'T'
7349: WHERE batch_name = G_RCVTAX_BATCH_NAME /* p_batch_name changed for #2912545 */
7350: AND interface_id = G_RCVNRT_INTERFACE_ID /* p_interface_id changed for #2912545 */
7351: AND transaction_source = 'PO RECEIPT NRTAX PRICE ADJ' /* PO RECEIPT TAX. changed for #2912545 */
7831: BEGIN
7832:
7833: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
7834:
7835: INSERT INTO pa_transaction_interface_all(
7836: transaction_source
7837: , user_transaction_source
7838: , system_linkage
7839: , batch_name
7975: write_log(LOG, 'Inserting adjustment records..');
7976: End if;
7977:
7978: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
7979: INSERT INTO pa_transaction_interface_all(
7980: transaction_source
7981: , user_transaction_source
7982: , system_linkage
7983: , batch_name
8106: ,l_bus_grp_id_tbl(i)
8107: ,l_adj_exp_item_id_tbl(i) --NEW for reversals
8108: ,l_fc_document_type_tbl(i) --NEW for funds checking
8109: ,(select xface.txn_interface_id
8110: from pa_transaction_interface xface
8111: where xface.interface_id = l_interface_id_tbl(i)
8112: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
8113: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
8114: and NVL(xface.adjusted_expenditure_item_id,0) =0 ) -- R12 funds management Uptake
8468:
8469: END transfer_inv_var_to_pa;
8470:
8471: PROCEDURE tieback_invoice_variances (
8472: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8473: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8474: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8475:
8476: l_assets_addflag VARCHAR2(1):=NULL;
8469: END transfer_inv_var_to_pa;
8470:
8471: PROCEDURE tieback_invoice_variances (
8472: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8473: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8474: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8475:
8476: l_assets_addflag VARCHAR2(1):=NULL;
8477: l_prev_assets_addflag VARCHAR2(1):=NULL;
8470:
8471: PROCEDURE tieback_invoice_variances (
8472: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
8473: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
8474: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
8475:
8476: l_assets_addflag VARCHAR2(1):=NULL;
8477: l_prev_assets_addflag VARCHAR2(1):=NULL;
8478: l_project_id NUMBER :=0;
8502: ,transaction_status_code
8503: ,project_id
8504: ,l_pa_addflag
8505: ,l_assets_addflag
8506: FROM pa_transaction_interface_all txnintf
8507: WHERE txnintf.transaction_source = p_txn_src
8508: AND txnintf.batch_name = p_batch_name
8509: AND txnintf.interface_id = p_interface_id;
8510:
9353: v_var_batch_size NUMBER := 0;
9354: v_frt_batch_size NUMBER := 0;
9355:
9356: -- For PA IP Invoices
9357: L_IP_TRANSACTION_SOURCE pa_transaction_interface.transaction_source%TYPE;
9358: l_ap_inv_flag VARCHAR2(1):= 'N';
9359: l_ip_inv_flag VARCHAR2(1):= 'N';
9360:
9361: l_create_adj_recs VARCHAR2(1) := 'N';
9492: BEGIN
9493:
9494: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
9495:
9496: INSERT INTO pa_transaction_interface_all(
9497: transaction_source
9498: , user_transaction_source
9499: , system_linkage
9500: , batch_name
9638: write_log(LOG, 'Inserting adjustment records..');
9639:
9640: FORALL i IN l_invoice_id_tbl.FIRST..l_invoice_id_tbl.LAST
9641:
9642: INSERT INTO pa_transaction_interface_all(
9643: transaction_source
9644: , user_transaction_source
9645: , system_linkage
9646: , batch_name
9776: ,l_fc_document_type_tbl(i) --NEW for funds check
9777: ,l_inv_type_code_tbl(i)
9778: ,l_ln_type_lookup_tbl(i)
9779: ,(select xface.txn_interface_id
9780: from pa_transaction_interface xface
9781: where xface.interface_id = l_interface_id_tbl(i)
9782: and xface.cdl_system_reference2 = l_invoice_id_tbl(i)
9783: and xface.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(i))
9784: and xface.cdl_system_reference5 = l_invoice_dist_id_tbl(i)
9795: write_log(LOG, 'Updating adjustment records..');
9796: IF l_rev_child_dist_id_tbl.exists(1) THEN
9797: FOR i in l_rev_child_dist_id_tbl.FIRST ..l_rev_child_dist_id_tbl.LAST LOOP
9798: IF l_rev_child_dist_id_tbl(i) > 0 THEN
9799: UPDATE pa_transaction_interface_all xface
9800: SET xface.net_zero_adjustment_flag ='Y',
9801: xface.adjusted_txn_interface_id =
9802: (select xface1.txn_interface_id
9803: from pa_transaction_interface xface1
9799: UPDATE pa_transaction_interface_all xface
9800: SET xface.net_zero_adjustment_flag ='Y',
9801: xface.adjusted_txn_interface_id =
9802: (select xface1.txn_interface_id
9803: from pa_transaction_interface xface1
9804: where xface1.interface_id = l_interface_id_tbl(l_rev_parent_dist_ind_tbl(i))
9805: and xface1.cdl_system_reference2 = l_invoice_id_tbl(l_rev_parent_dist_ind_tbl(i))
9806: and xface1.cdl_system_reference4 = to_char(l_inv_pay_id_tbl(l_rev_parent_dist_ind_tbl(i)))
9807: and xface1.cdl_system_reference5 = l_invoice_dist_id_tbl(l_rev_parent_dist_ind_tbl(i))
10756: END transfer_pay_to_pa;
10757:
10758: /*---------------------------Tieback to AP Phase----------------------------*/
10759: PROCEDURE tieback_payment_AP_ER(
10760: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10761: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10762: p_batch_type IN VARCHAR2,
10763: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10764:
10757:
10758: /*---------------------------Tieback to AP Phase----------------------------*/
10759: PROCEDURE tieback_payment_AP_ER(
10760: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10761: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10762: p_batch_type IN VARCHAR2,
10763: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10764:
10765: l_assets_addflag VARCHAR2(1):=NULL;
10759: PROCEDURE tieback_payment_AP_ER(
10760: p_transaction_source IN pa_transaction_interface.transaction_source%TYPE,
10761: p_batch_name IN pa_transaction_interface.batch_name%TYPE,
10762: p_batch_type IN VARCHAR2,
10763: p_interface_id IN pa_transaction_interface.interface_id%TYPE) IS
10764:
10765: l_assets_addflag VARCHAR2(1):=NULL;
10766: l_prev_assets_addflag VARCHAR2(1):=NULL;
10767: l_project_id NUMBER :=0;
10793: ,transaction_status_code
10794: ,project_id
10795: ,l_pa_addflag
10796: ,l_assets_addflag
10797: FROM pa_transaction_interface_all txnintf
10798: WHERE txnintf.transaction_source = p_txn_src
10799: AND txnintf.batch_name = p_batch_name
10800: AND txnintf.interface_id = p_interface_id;
10801: