[Home] [Help]
1509: )
1510: IS
1511: CURSOR c1 IS
1512: SELECT ppi.payment_item_id
1513: FROM pn_payment_items_all ppi
1514: WHERE ppi.payment_term_id = X_PAYMENT_TERM_ID
1515: AND ppi.transferred_to_ap_flag IS NULL
1516: AND ppi.transferred_to_ar_flag IS NULL
1517: FOR UPDATE OF ppi.payment_item_id NOWAIT;
1520: pnp_debug_pkg.debug('PNT_PAYMENT_TERMS_PKG.UPDATE_VENDOR_AND_CUST (+)');
1521: -- UPDATE each item with the new vendor AND vendor site
1522: FOR eachItem IN c1 LOOP
1523:
1524: UPDATE pn_payment_items_all
1525: SET VENDOR_ID = X_VENDOR_ID
1526: ,VENDOR_SITE_ID = X_VENDOR_SITE_ID
1527: ,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
1528: ,LAST_UPDATED_BY = X_LAST_UPDATED_BY
1654: , ppi.actual_amount
1655: , ppi.estimated_amount
1656: , pps.schedule_date
1657: , ppi.currency_code
1658: FROM pn_payment_items_all ppi,
1659: pn_payment_schedules_all pps
1660: WHERE ppi.payment_term_id = p_pnt_term_id
1661: AND ppi.payment_item_type_lookup_code = 'CASH'
1662: AND pps.payment_schedule_id = ppi.payment_schedule_id
1687: ,min_acct_unit => l_min_acct_unit);
1688: l_first := FALSE;
1689: END IF;
1690:
1691: UPDATE pn_payment_items_all
1692: SET estimated_amount = ROUND(l_est_amt, l_precision)
1693: ,actual_amount = ROUND(l_act_amt, l_precision)
1694: ,export_currency_amount = ROUND(l_act_amt, l_precision)
1695: ,last_update_date = SYSDATE
1786:
1787: /** updates estimated amount AND actual amount accordingly in the items table */
1788: l_context := 'updates items table';
1789:
1790: UPDATE pn_payment_items_all
1791: SET estimated_amount = ROUND(l_est_amt, l_precision)
1792: ,actual_amount = ROUND(l_act_amt, l_precision)
1793: ,export_currency_amount = ROUND(l_act_amt, l_precision)
1794: ,last_update_date = SYSDATE
1830: l_context VARCHAR2(240);
1831:
1832: CURSOR pnt_cursor IS
1833: SELECT payment_item_id
1834: FROM pn_payment_items_all ppi
1835: WHERE ppi.payment_term_id = p_pnt_term_id
1836: AND ppi.export_to_ap_flag IS NULL
1837: AND ppi.export_to_ar_flag IS NULL;
1838:
1843:
1844: FOR pnt_rec IN pnt_cursor LOOP
1845:
1846: l_context := 'updating payment item ID: '||pnt_rec.payment_item_id||' with new rate';
1847: UPDATE pn_payment_items_all
1848: SET rate = p_new_rate
1849: WHERE payment_item_id = pnt_rec.payment_item_id;
1850:
1851: END LOOP;