[Home] [Help]
1: PACKAGE BODY pn_leases_pkg AS
2: -- $Header: PNTLEASB.pls 120.2.12010000.3 2010/02/18 08:11:41 vgovvala ship $
3:
4: -------------------------------------------------------------------------------
5: -- PROCDURE : INSERT_ROW
9: -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
10: -- as per the 'DO NOT SEND' enhancement requirement.
11: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
12: -- _ALL table.
13: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number
14: -------------------------------------------------------------------------------
15: PROCEDURE Insert_Row
16: (
17: X_ROWID IN OUT NOCOPY VARCHAR2,
74: l_leaseDetailId NUMBER := NULL;
75: l_leaseChangeNumber NUMBER := NULL;
76:
77: BEGIN
78: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
79:
80: -- Check IF lease NUMBER IS unique
81: l_return_status := NULL;
82: pn_leases_pkg.check_unique_lease_number(l_return_status,
78: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
79:
80: -- Check IF lease NUMBER IS unique
81: l_return_status := NULL;
82: pn_leases_pkg.check_unique_lease_number(l_return_status,
83: x_lease_id,
84: x_lease_num,
85: x_org_id);
86:
225: ,x_ATTRIBUTE15 => x_ATTRIBUTE15
226: ,x_org_id => x_org_id
227: );
228:
229: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (-)');
230:
231: END Insert_Row;
232:
233:
293:
294: tlinfo c1%ROWTYPE;
295:
296: BEGIN
297: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (+)');
298: OPEN c1;
299: FETCH c1 INTO tlinfo;
300: IF (c1%NOTFOUND) THEN
301: CLOSE c1;
403: );
404:
405: -- NOTE: We will not check for the lease PN_LEASE_CHANGES table
406:
407: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (-)');
408:
409: END Lock_Row;
410:
411:
421: -- Update pn_leases_all, for history creation of 3 columns
422: -- of pn_leases_all (name, lease_num, lease_status) in
423: -- table pn_lease_details_history.
424: -- 02-FEB-05 VIVESHAR o Added lease extension end date as input parameter in
425: -- pn_leases_pkg.Update_row and pn_lease_details_pkg.
426: -- Update_Row. Fix for bug# 4142423
427: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
428: -- _ALL table.
429: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number
425: -- pn_leases_pkg.Update_row and pn_lease_details_pkg.
426: -- Update_Row. Fix for bug# 4142423
427: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
428: -- _ALL table.
429: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number
430: -------------------------------------------------------------------------------
431: PROCEDURE Update_Row
432: (
433: X_LEASE_ID IN NUMBER,
483:
484: l_org_id NUMBER;
485:
486: BEGIN
487: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (+)');
488:
489: /* Check IF lease NUMBER IS unique */
490: FOR rec IN org_cur LOOP
491: l_org_id := rec.org_id;
491: l_org_id := rec.org_id;
492: END LOOP;
493:
494: l_return_status := NULL;
495: pn_leases_pkg.check_unique_lease_number
496: (
497: l_return_status,
498: x_lease_id,
499: x_lease_num,
563: customer_id = x_customer_id,
564: cal_start = x_calendar_year_start_date
565: WHERE LEASE_ID = X_LEASE_ID;
566:
567: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (-)');
568:
569: END Update_Row;
570:
571:
573: -- PROCDURE : Delete_Row
574: -- INVOKED FROM : Delete_Row procedure
575: -- PURPOSE : Deletes the row
576: -- HISTORY :
577: -- 10-SEP-02 dthota o Replaced the predicate in PN_LEASES_PKG.delete_row
578: -- SELECT clause for performance issues
579: -- Fix for bug # 2558646
580: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases, pn_lease_details,
581: -- pn_lease_transactions, pn_lease_changes with
589: l_leaseDetailId NUMBER := NULL;
590: l_leaseTransactionId NUMBER := NULL;
591: l_leaseChangeId NUMBER := NULL;
592: BEGIN
593: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (+)');
594:
595: SELECT pd.lease_detail_id,
596: pt.lease_transaction_id,
597: pc.lease_change_id
621: IF (SQL%NOTFOUND) THEN
622: RAISE NO_DATA_FOUND;
623: END IF;
624:
625: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (-)');
626:
627: END Delete_Row;
628:
629: -------------------------------------------------------------------------------
640: )
641: IS
642: l_dummy NUMBER;
643: BEGIN
644: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (+)');
645:
646: SELECT 1
647: INTO l_dummy
648: FROM DUAL
651: WHERE pnl.lease_num = x_lease_number
652: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
653: );
654:
655: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');
656:
657: EXCEPTION
658: WHEN NO_DATA_FOUND THEN
659: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
680: )
681: IS
682: l_dummy NUMBER;
683: BEGIN
684: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (+)');
685:
686: SELECT 1
687: INTO l_dummy
688: FROM DUAL
692: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
693: AND org_id = x_org_id
694: );
695:
696: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');
697:
698: EXCEPTION
699: WHEN NO_DATA_FOUND THEN
700: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
702: x_return_status := 'E';
703: END check_unique_lease_number;
704: /* --- OVERLOADED functions and procedures for MOAC END --- */
705:
706: END pn_leases_pkg;