[Home] [Help]
1: PACKAGE BODY pn_leases_pkg AS
2: -- $Header: PNTLEASB.pls 120.2 2005/12/01 07:37:07 appldev 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,
73: l_leaseDetailId NUMBER := NULL;
74: l_leaseChangeNumber NUMBER := NULL;
75:
76: BEGIN
77: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
78:
79: -- Check IF lease NUMBER IS unique
80: l_return_status := NULL;
81: pn_leases_pkg.check_unique_lease_number(l_return_status,
77: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
78:
79: -- Check IF lease NUMBER IS unique
80: l_return_status := NULL;
81: pn_leases_pkg.check_unique_lease_number(l_return_status,
82: x_lease_id,
83: x_lease_num,
84: x_org_id);
85:
222: ,x_ATTRIBUTE15 => x_ATTRIBUTE15
223: ,x_org_id => x_org_id
224: );
225:
226: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (-)');
227:
228: END Insert_Row;
229:
230:
289:
290: tlinfo c1%ROWTYPE;
291:
292: BEGIN
293: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (+)');
294: OPEN c1;
295: FETCH c1 INTO tlinfo;
296: IF (c1%NOTFOUND) THEN
297: CLOSE c1;
394: );
395:
396: -- NOTE: We will not check for the lease PN_LEASE_CHANGES table
397:
398: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (-)');
399:
400: END Lock_Row;
401:
402:
412: -- Update pn_leases_all, for history creation of 3 columns
413: -- of pn_leases_all (name, lease_num, lease_status) in
414: -- table pn_lease_details_history.
415: -- 02-FEB-05 VIVESHAR o Added lease extension end date as input parameter in
416: -- pn_leases_pkg.Update_row and pn_lease_details_pkg.
417: -- Update_Row. Fix for bug# 4142423
418: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
419: -- _ALL table.
420: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number
416: -- pn_leases_pkg.Update_row and pn_lease_details_pkg.
417: -- Update_Row. Fix for bug# 4142423
418: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
419: -- _ALL table.
420: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number
421: -------------------------------------------------------------------------------
422: PROCEDURE Update_Row
423: (
424: X_LEASE_ID IN NUMBER,
473:
474: l_org_id NUMBER;
475:
476: BEGIN
477: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (+)');
478:
479: /* Check IF lease NUMBER IS unique */
480: FOR rec IN org_cur LOOP
481: l_org_id := rec.org_id;
481: l_org_id := rec.org_id;
482: END LOOP;
483:
484: l_return_status := NULL;
485: pn_leases_pkg.check_unique_lease_number
486: (
487: l_return_status,
488: x_lease_id,
489: x_lease_num,
552: location_id = x_location_id,
553: customer_id = x_customer_id
554: WHERE LEASE_ID = X_LEASE_ID;
555:
556: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (-)');
557:
558: END Update_Row;
559:
560:
562: -- PROCDURE : Delete_Row
563: -- INVOKED FROM : Delete_Row procedure
564: -- PURPOSE : Deletes the row
565: -- HISTORY :
566: -- 10-SEP-02 dthota o Replaced the predicate in PN_LEASES_PKG.delete_row
567: -- SELECT clause for performance issues
568: -- Fix for bug # 2558646
569: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases, pn_lease_details,
570: -- pn_lease_transactions, pn_lease_changes with
578: l_leaseDetailId NUMBER := NULL;
579: l_leaseTransactionId NUMBER := NULL;
580: l_leaseChangeId NUMBER := NULL;
581: BEGIN
582: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (+)');
583:
584: SELECT pd.lease_detail_id,
585: pt.lease_transaction_id,
586: pc.lease_change_id
610: IF (SQL%NOTFOUND) THEN
611: RAISE NO_DATA_FOUND;
612: END IF;
613:
614: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (-)');
615:
616: END Delete_Row;
617:
618: -------------------------------------------------------------------------------
629: )
630: IS
631: l_dummy NUMBER;
632: BEGIN
633: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (+)');
634:
635: SELECT 1
636: INTO l_dummy
637: FROM DUAL
640: WHERE pnl.lease_num = x_lease_number
641: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
642: );
643:
644: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');
645:
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
669: )
670: IS
671: l_dummy NUMBER;
672: BEGIN
673: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (+)');
674:
675: SELECT 1
676: INTO l_dummy
677: FROM DUAL
681: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
682: AND org_id = x_org_id
683: );
684:
685: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');
686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
689: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
691: x_return_status := 'E';
692: END check_unique_lease_number;
693: /* --- OVERLOADED functions and procedures for MOAC END --- */
694:
695: END pn_leases_pkg;