[Home] [Help]
3677: 'PJM_CSTBP_INV_NO_ACCOUNTS','PJM_CSTBP_WIP_NO_ACCOUNTS', /*Bug4202839*/
3678: 'PJM_CSTBP_WIP_ACCOUNTS','PJM_CSTBP_INV_ACCOUNTS',
3679: 'PJM_CSTBP_ST_ACCOUNTS','PJM_NON_CSTBP_ST_ACCOUNTS','PJM_CSTBP_ST_NO_ACCOUNTS',/*Bug4202839*/
3680: 'PO RECEIPT NRTAX PRICE ADJ', 'PO RECEIPT PRICE ADJ',
3681: 'INTERPROJECT_AP_INVOICES','INTERCOMPANY_AP_INVOICES') THEN /* Added the 2 transaction sources for bug 3461993 */
3682: -- pricing changes
3683:
3684: IF abs(l_converted_amount - X_acct_raw_cost) >
3685: abs(nvl(X_acct_exchange_rounding_limit,0)) THEN
7182: ELSE
7183:
7184: /*9823110 Start*/
7185:
7186: If (X_transaction_source in ('AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE'))
7187: and (G_person_id is NOT NULL)
7188: and (current_system_linkage <> 'ER') /*Added for the Bug 16451280*/ then
7189: G_person_id:=NULL;
7190: end if;
7577: l_parent_dist_id := NULL ;
7578:
7579:
7580: IF X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
7581: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
7582: -- {
7583: IF G_cash_based_accounting = 'Y' THEN
7584: -- {{{
7585: IF l_DocumentDistTypeTab(p_indx) = 'PREPAY' THEN
7744: -- know who is calling it. By initializing v_calling_module
7745: -- accordingly, we can let validateitem know that the item
7746: -- we're validating comes from AP, thus validation is
7747: -- is not necessary because AP does validation at entry time.
7748: IF (X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
7749: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
7750: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
7751: -- pricing changes
7752: --added for 1503237
7745: -- accordingly, we can let validateitem know that the item
7746: -- we're validating comes from AP, thus validation is
7747: -- is not necessary because AP does validation at entry time.
7748: IF (X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
7749: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
7750: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
7751: -- pricing changes
7752: --added for 1503237
7753: v_calling_module := 'PAAPIMP';
8192: -- : R12.PJ:XB1:QA:BC:INCORRECT AMOUNTS INTERFACED TO PROJECTS IN CASH BASED ACC
8193: --
8194: IF G_cash_based_accounting = 'Y' and
8195: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
8196: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
8197: G_Profile_Discount_Start_date := fnd_date.canonical_to_date(PAAPIMP_PKG.return_profile_discount_date);
8198: G_Discount_Method := PAAPIMP_PKG.return_discount_method;
8199: END IF ;
8200:
8216: -- Cash based accounting support
8217: --
8218: IF G_cash_based_accounting = 'Y' and
8219: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
8220: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
8221:
8222: l_invoice_id := NVL(l_SysRef2Tab(j) ,0) ;
8223: l_payment_status_flag := 'N' ;
8224:
8607: -- Cash based accounting support
8608: --
8609: IF G_cash_based_accounting = 'Y' and
8610: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
8611: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
8612: --
8613: -- If one payment rejected then all the payments following it for the given
8614: -- invoice distribution id should be rejected.
8615: --
9117: -- 4927696 PAYABLES INTERFACE TO POPULATE SR_5 WITH PAYMENT_HIST_DIST_ID
9118: l_vendor_id := NVL(l_VendorIdTab(j), l_SysRef1Tab(j)) ;
9119:
9120: IF X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
9121: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES',
9122: 'AP VARIANCE' ) THEN
9123: l_doc_header_id := l_SysRef2Tab(j) ;
9124: l_doc_distribution_id := l_SysRef5Tab(j) ;
9125: l_Doc_line_number := l_SysRef3Tab(j) ;
9917: END IF;
9918:
9919: -- 5235363 R12.PJ:XB4:DEV:APL:EXP ITEM DATE VALIDATIONS FOR SUPPLIER COST.
9920: --
9921: IF (X_transaction_source in ( 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
9922: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
9923: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
9924: set_supplier_cost_eidate(X_transaction_source,X_batch,X_xface_id) ;
9925: END IF ;
9918:
9919: -- 5235363 R12.PJ:XB4:DEV:APL:EXP ITEM DATE VALIDATIONS FOR SUPPLIER COST.
9920: --
9921: IF (X_transaction_source in ( 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
9922: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
9923: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
9924: set_supplier_cost_eidate(X_transaction_source,X_batch,X_xface_id) ;
9925: END IF ;
9926: --
11014: l_project_id NUMBER(15);
11015: l_base_qv NUMBER;
11016: l_base_av NUMBER;
11017: l_period_year pa_bc_packets.period_year%type; --REL12
11018: l_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
11019: l_line_type_lookup_code ap_invoice_distributions_all.line_type_lookup_code%TYPE;
11020:
11021: -- R12 AP lines uptake : Prepayment changes :Cursor to fetch AP related details.
11022: CURSOR C_ap_details (p_invoice_id NUMBER,
11027: NVL(dist.base_amount_variance,0),
11028: inv.invoice_type_lookup_code,
11029: dist.line_type_lookup_code
11030: FROM ap_invoice_distributions dist,
11031: ap_invoices inv
11032: WHERE dist.invoice_id = p_invoice_id
11033: AND dist.invoice_distribution_id = p_invoice_distribution_id
11034: AND inv.invoice_id = dist.invoice_id
11035: union /*Self Assessed Tax Changes*/
11039: NVL(dist.base_amount_variance,0),
11040: inv.invoice_type_lookup_code,
11041: dist.line_type_lookup_code
11042: FROM ap_self_assessed_tax_dist dist,
11043: ap_invoices inv
11044: WHERE dist.invoice_id = p_invoice_id
11045: AND dist.invoice_distribution_id = p_invoice_distribution_id
11046: AND inv.invoice_id = dist.invoice_id
11047: ;
11150: -- accrual based accounting invoices.
11151: -- b. R12 Data : Only payments will be interfaced.
11152: -- For these records g_cdl_system_reference4 will be NOT NULL
11153:
11154: IF (l_txn_source in ('AP INVOICE', 'AP NRTAX','AP EXPENSE','INTERCOMPANY_AP_INVOICES', 'AP ERV',
11155: 'INTERPROJECT_AP_INVOICES','AP VARIANCE') )
11156: AND G_cash_based_accounting = 'Y'
11157: AND NVL(g_cdl_system_reference4,0) <> 0 THEN
11158:
11151: -- b. R12 Data : Only payments will be interfaced.
11152: -- For these records g_cdl_system_reference4 will be NOT NULL
11153:
11154: IF (l_txn_source in ('AP INVOICE', 'AP NRTAX','AP EXPENSE','INTERCOMPANY_AP_INVOICES', 'AP ERV',
11155: 'INTERPROJECT_AP_INVOICES','AP VARIANCE') )
11156: AND G_cash_based_accounting = 'Y'
11157: AND NVL(g_cdl_system_reference4,0) <> 0 THEN
11158:
11159: IF PG_DEBUG = 'Y' THEN
12659: AND PayDIST.invoice_payment_id = p_sys_ref4
12660: AND EXISTS
12661: (SELECT 1
12662: FROM ap_invoice_payments Pay,
12663: ap_invoices_all inv
12664: WHERE pay.invoice_payment_id = p_sys_ref4
12665: AND pay.invoice_id = inv.invoice_id
12666: AND NVL(pay.exchange_rate,0) <> NVL(inv.exchange_rate,0));
12667:
13062: WHERE po_distribution_id = p_po_dist_id;
13063:
13064: CURSOR c_get_vendor_id IS
13065: SELECT a.vendor_id
13066: FROM ap_invoices_all A, ap_invoice_distributions_all aid
13067: WHERE A.invoice_id = aid.invoice_id
13068: AND A.invoice_id = p_sys_ref2
13069: AND aid.invoice_distribution_id = p_sys_ref5
13070: UNION /* Added for bug 13859614 */
13068: AND A.invoice_id = p_sys_ref2
13069: AND aid.invoice_distribution_id = p_sys_ref5
13070: UNION /* Added for bug 13859614 */
13071: SELECT a.vendor_id
13072: FROM ap_invoices_all A, ap_self_assessed_tax_dist_all aid
13073: WHERE A.invoice_id = aid.invoice_id
13074: AND A.invoice_id = p_sys_ref2
13075: AND aid.invoice_distribution_id = p_sys_ref5;
13076:
13186: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
13187: L_RAW_BC_PACKET_ID NUMBER;
13188: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
13189: l_po_line_id po_distributions_all.po_line_id%TYPE;
13190: l_vendor_id ap_invoices_all.vendor_id%TYPE; /*bug 13601768*/
13191:
13192: CURSOR c_curr_raw_pkt IS
13193: SELECT bc_packet_id
13194: FROM pa_bc_packets
13976:
13977: /*bug 13601768*/
13978: CURSOR c_get_vendor_id IS
13979: SELECT a.vendor_id
13980: FROM ap_invoices_all A, ap_invoice_distributions_all aid
13981: WHERE A.invoice_id = aid.invoice_id
13982: AND A.invoice_id = p_sys_ref2
13983: AND aid.invoice_distribution_id = p_sys_ref5
13984: UNION /* Added for bug 13859614 */
13982: AND A.invoice_id = p_sys_ref2
13983: AND aid.invoice_distribution_id = p_sys_ref5
13984: UNION /* Added for bug 13859614 */
13985: SELECT a.vendor_id
13986: FROM ap_invoices_all A, ap_self_assessed_tax_dist_all aid
13987: WHERE A.invoice_id = aid.invoice_id
13988: AND A.invoice_id = p_sys_ref2
13989: AND aid.invoice_distribution_id = p_sys_ref5;
13990:
14065: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
14066: l_Raw_Bc_Packet_Id pa_bc_packets.bc_packet_id%TYPE;
14067: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
14068: l_po_line_id po_distributions_all.po_line_id%TYPE;
14069: l_vendor_id ap_invoices_all.vendor_id%TYPE; /*bug 13601768*/
14070:
14071: BEGIN
14072:
14073: IF PG_DEBUG = 'Y' THEN