[Home] [Help]
3267: 'PJM_CSTBP_INV_NO_ACCOUNTS','PJM_CSTBP_WIP_NO_ACCOUNTS', /*Bug4202839*/
3268: 'PJM_CSTBP_WIP_ACCOUNTS','PJM_CSTBP_INV_ACCOUNTS',
3269: 'PJM_CSTBP_ST_ACCOUNTS','PJM_NON_CSTBP_ST_ACCOUNTS','PJM_CSTBP_ST_NO_ACCOUNTS',/*Bug4202839*/
3270: 'PO RECEIPT NRTAX PRICE ADJ', 'PO RECEIPT PRICE ADJ',
3271: 'INTERPROJECT_AP_INVOICES','INTERCOMPANY_AP_INVOICES') THEN /* Added the 2 transaction sources for bug 3461993 */
3272: -- pricing changes
3273:
3274: IF abs(l_converted_amount - X_acct_raw_cost) >
3275: abs(nvl(X_acct_exchange_rounding_limit,0)) THEN
6966: l_parent_dist_id := NULL ;
6967:
6968:
6969: IF X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
6970: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
6971: -- {
6972: IF G_cash_based_accounting = 'Y' THEN
6973: -- {{{
6974: IF l_DocumentDistTypeTab(p_indx) = 'PREPAY' THEN
7125: -- know who is calling it. By initializing v_calling_module
7126: -- accordingly, we can let validateitem know that the item
7127: -- we're validating comes from AP, thus validation is
7128: -- is not necessary because AP does validation at entry time.
7129: IF (X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
7130: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
7131: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
7132: -- pricing changes
7133: --added for 1503237
7126: -- accordingly, we can let validateitem know that the item
7127: -- we're validating comes from AP, thus validation is
7128: -- is not necessary because AP does validation at entry time.
7129: IF (X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
7130: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
7131: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
7132: -- pricing changes
7133: --added for 1503237
7134: v_calling_module := 'PAAPIMP';
7547: -- : R12.PJ:XB1:QA:BC:INCORRECT AMOUNTS INTERFACED TO PROJECTS IN CASH BASED ACC
7548: --
7549: IF G_cash_based_accounting = 'Y' and
7550: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
7551: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
7552: G_Profile_Discount_Start_date := fnd_date.canonical_to_date(PAAPIMP_PKG.return_profile_discount_date);
7553: G_Discount_Method := PAAPIMP_PKG.return_discount_method;
7554: END IF ;
7555:
7570: -- Cash based accounting support
7571: --
7572: IF G_cash_based_accounting = 'Y' and
7573: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
7574: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
7575:
7576: l_invoice_id := NVL(l_SysRef2Tab(j) ,0) ;
7577: l_payment_status_flag := 'N' ;
7578:
7924: -- Cash based accounting support
7925: --
7926: IF G_cash_based_accounting = 'Y' and
7927: X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
7928: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' ) THEN
7929: --
7930: -- If one payment rejected then all the payments following it for the given
7931: -- invoice distribution id should be rejected.
7932: --
8386: -- 4927696 PAYABLES INTERFACE TO POPULATE SR_5 WITH PAYMENT_HIST_DIST_ID
8387: l_vendor_id := NVL(l_VendorIdTab(j), l_SysRef1Tab(j)) ;
8388:
8389: IF X_transaction_source in ( 'AP EXPENSE', 'AP INVOICE', 'AP NRTAX' , 'AP ERV',
8390: 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES',
8391: 'AP VARIANCE' ) THEN
8392: l_doc_header_id := l_SysRef2Tab(j) ;
8393: l_doc_distribution_id := l_SysRef5Tab(j) ;
8394: l_Doc_line_number := l_SysRef3Tab(j) ;
9126: END IF;
9127:
9128: -- 5235363 R12.PJ:XB4:DEV:APL:EXP ITEM DATE VALIDATIONS FOR SUPPLIER COST.
9129: --
9130: IF (X_transaction_source in ( 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
9131: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
9132: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
9133: set_supplier_cost_eidate(X_transaction_source,X_batch,X_xface_id) ;
9134: END IF ;
9127:
9128: -- 5235363 R12.PJ:XB4:DEV:APL:EXP ITEM DATE VALIDATIONS FOR SUPPLIER COST.
9129: --
9130: IF (X_transaction_source in ( 'AP INVOICE', 'AP NRTAX', 'AP DISCOUNTS', 'INTERCOMPANY_AP_INVOICES',
9131: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE', 'AP ERV', 'PO RECEIPT', 'PO RECEIPT NRTAX',
9132: 'PO RECEIPT PRICE ADJ', 'PO RECEIPT NRTAX PRICE ADJ')) THEN
9133: set_supplier_cost_eidate(X_transaction_source,X_batch,X_xface_id) ;
9134: END IF ;
9135: --
10196: l_project_id NUMBER(15);
10197: l_base_qv NUMBER;
10198: l_base_av NUMBER;
10199: l_period_year pa_bc_packets.period_year%type; --REL12
10200: l_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
10201: l_line_type_lookup_code ap_invoice_distributions_all.line_type_lookup_code%TYPE;
10202:
10203: -- R12 AP lines uptake : Prepayment changes :Cursor to fetch AP related details.
10204: CURSOR C_ap_details (p_invoice_id NUMBER,
10209: NVL(dist.base_amount_variance,0),
10210: inv.invoice_type_lookup_code,
10211: dist.line_type_lookup_code
10212: FROM ap_invoice_distributions dist,
10213: ap_invoices inv
10214: WHERE dist.invoice_id = p_invoice_id
10215: AND dist.invoice_distribution_id = p_invoice_distribution_id
10216: AND inv.invoice_id = dist.invoice_id;
10217:
10308: -- accrual based accounting invoices.
10309: -- b. R12 Data : Only payments will be interfaced.
10310: -- For these records g_cdl_system_reference4 will be NOT NULL
10311:
10312: IF (l_txn_source in ('AP INVOICE', 'AP NRTAX','AP EXPENSE','INTERCOMPANY_AP_INVOICES', 'AP ERV',
10313: 'INTERPROJECT_AP_INVOICES','AP VARIANCE') )
10314: AND G_cash_based_accounting = 'Y'
10315: AND NVL(g_cdl_system_reference4,0) <> 0 THEN
10316:
10309: -- b. R12 Data : Only payments will be interfaced.
10310: -- For these records g_cdl_system_reference4 will be NOT NULL
10311:
10312: IF (l_txn_source in ('AP INVOICE', 'AP NRTAX','AP EXPENSE','INTERCOMPANY_AP_INVOICES', 'AP ERV',
10313: 'INTERPROJECT_AP_INVOICES','AP VARIANCE') )
10314: AND G_cash_based_accounting = 'Y'
10315: AND NVL(g_cdl_system_reference4,0) <> 0 THEN
10316:
10317: ap_cash_based_funds_check (
11766: AND PayDIST.invoice_payment_id = p_sys_ref4
11767: AND EXISTS
11768: (SELECT 1
11769: FROM ap_invoice_payments Pay,
11770: ap_invoices_all inv
11771: WHERE pay.invoice_payment_id = p_sys_ref4
11772: AND pay.invoice_id = inv.invoice_id
11773: AND NVL(pay.exchange_rate,0) <> NVL(inv.exchange_rate,0));
11774: