[Home] [Help]
183: l_legal_entity_id pn_payment_terms.legal_entity_id%TYPE;
184: l_return_status VARCHAR2(2) := NULL;
185:
186: CURSOR org_cur IS
187: SELECT org_id FROM pn_leases_all WHERE lease_id = X_LEASE_ID;
188: l_org_id NUMBER;
189:
190: l_precision NUMBER;
191: l_ext_precision NUMBER;
1079: -- PURPOSE : updates a term
1080: -- HISTORY :
1081: -- 04-DEC-03 ftanudja o Added parameter area_type_code, area. 3257508.
1082: -- 15-JUL-05 ftanudja o R12 changes. #4495054, #4497295
1083: -- 25-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_terms, pn_leases
1084: -- with _ALL table.
1085: -- 24-NOV-05 Kiran o rounding for amounts done based on currency precision
1086: -- 01-DEC-05 Hareesha o Fetched legal_entity_id into l_legal_entity_id
1087: -- for handling incase it has distributions.
1201: l_org_id pn_payment_terms.org_id%TYPE;
1202: l_find_le BOOLEAN;
1203: l_return_status VARCHAR2 (2) := NULL;
1204: l_old_est NUMBER;
1205: l_status PN_LEASES.status%TYPE;
1206: l_context varchar2(240);
1207: l_rate pn_payment_terms.rate%TYPE;
1208: l_precision NUMBER;
1209: l_ext_precision NUMBER;
1261: l_context := 'SELECTing lease status';
1262:
1263: SELECT status
1264: INTO l_status
1265: FROM pn_leases_all
1266: WHERE lease_id = X_LEASE_ID;
1267:
1268: l_context := 'SELECTing estimated amt';
1269:
1550: -- 23-SEP-03 ATUPPAD o Changed the procedure to handle the One Time terms as in
1551: -- this case start and end dates are the same.
1552: -- Also, the query now executes through Cursor.
1553: -- Also, optmized the query by not joining with tables
1554: -- pn_payment_items and pn_leases. (bug#3140238)
1555: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with _ALL table.
1556: -------------------------------------------------------------------------------
1557: PROCEDURE Check_Approved_Schedule_Exists (
1558: x_return_status IN OUT NOCOPY VARCHAR2
1551: -- this case start and end dates are the same.
1552: -- Also, the query now executes through Cursor.
1553: -- Also, optmized the query by not joining with tables
1554: -- pn_payment_items and pn_leases. (bug#3140238)
1555: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with _ALL table.
1556: -------------------------------------------------------------------------------
1557: PROCEDURE Check_Approved_Schedule_Exists (
1558: x_return_status IN OUT NOCOPY VARCHAR2
1559: ,x_lease_id IN NUMBER
1568:
1569: -- Get the details of Approved Schedules
1570: CURSOR c_chk_app_sch IS
1571: SELECT lease_num
1572: FROM pn_leases_all
1573: WHERE lease_id = x_lease_id
1574: AND EXISTS
1575: (
1576: SELECT pps.lease_id
1599:
1600: CLOSE c_chk_app_sch;
1601:
1602: x_return_status := 'E';
1603: fnd_message.set_name('PN','PN_LEASES_APPROVED_PMT_EXISTS');
1604: fnd_message.set_token('LEASE_NUMBER', l_leaseNumber);
1605: fnd_message.set_token('START_DATE', l_startDate);
1606: fnd_message.set_token('END_DATE', l_endDate);
1607:
1626: -- 11-OCT-04 STripathi o Fixed for BUG# 3942284. Changed paramater p_freq
1627: -- to p_freq_code. For OT terms, update amount with
1628: -- the p_new_est_amt.
1629: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_items,
1630: -- pn_payment_schedules, pn_leases with _ALL table.
1631: -- 24-NOV-05 Kiran o rounding for amounts done based on currency precision
1632: --------------------------------------------------------------------------------
1633:
1634: PROCEDURE UPDATE_PNT_ITEMS_AMT (
1710: l_freq := pn_schedules_items.get_frequency(p_freq_code);
1711:
1712: SELECT payment_term_proration_rule
1713: INTO l_prorate_rule
1714: FROM pn_leases_all
1715: WHERE lease_id = p_lease_id;
1716:
1717: l_context:= 'entering UPDATE loop';
1718: