eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PN_LEASES_PKG dependencies on PN_LEASES

Line 1: PACKAGE BODY pn_leases_pkg AS

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

Line 11: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with

7: -- PURPOSE : inserts the row
8: -- HISTORY :
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

Line 13: -- 01-DEC-05 kiran o passed org_id in pn_leases_pkg.check_unique_lease_number

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,

Line 69: FROM pn_leases_all

65: IS
66:
67: CURSOR c IS
68: SELECT ROWID
69: FROM pn_leases_all
70: WHERE lease_id = x_lease_id;
71:
72: l_return_status VARCHAR2(30) := NULL;
73: l_rowId VARCHAR2(18) := NULL;

Line 78: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');

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,

Line 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:

Line 91: INSERT INTO pn_leases_all

87: IF (l_return_status IS NOT NULL) THEN
88: APP_EXCEPTION.Raise_Exception;
89: END IF;
90:
91: INSERT INTO pn_leases_all
92: (
93: LEASE_ID,
94: LAST_UPDATE_DATE,
95: LAST_UPDATED_BY,

Line 115: NVL(X_LEASE_ID,pn_leases_s.NEXTVAL),

111: cal_start
112: )
113: VALUES
114: (
115: NVL(X_LEASE_ID,pn_leases_s.NEXTVAL),
116: sysdate,
117: X_LAST_UPDATED_BY,
118: sysdate,
119: X_CREATED_BY,

Line 122: NVL(X_LEASE_NUM,pn_leases_s.CURRVAL),

118: sysdate,
119: X_CREATED_BY,
120: X_LAST_UPDATE_LOGIN,
121: X_NAME,
122: NVL(X_LEASE_NUM,pn_leases_s.CURRVAL),
123: X_PARENT_LEASE_ID,
124: X_LEASE_TYPE_CODE,
125: X_LEASE_CLASS_CODE,
126: X_PAYMENT_TERM_PRORATION_RULE,

Line 229: pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (-)');

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:

Line 241: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with

237: -- PURPOSE : locks the row
238: -- HISTORY :
239: -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
240: -- as per the 'DO NOT SEND' enhancement requirement.
241: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with
242: -- _ALL table.
243: -------------------------------------------------------------------------------
244: PROCEDURE Lock_Row
245: (

Line 290: FROM pn_leases_all --sdm_MOAC

286: )
287: IS
288: CURSOR c1 IS
289: SELECT *
290: FROM pn_leases_all --sdm_MOAC
291: WHERE lease_id = x_lease_id
292: FOR UPDATE OF lease_id NOWAIT;
293:
294: tlinfo c1%ROWTYPE;

Line 297: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (+)');

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;

Line 407: pnp_debug_pkg.debug ('PN_LEASES_PKG.Lock_Row (-)');

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:

Line 421: -- Update pn_leases_all, for history creation of 3 columns

417: -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
418: -- as per the 'DO NOT SEND' enhancement requirement.
419: -- 25-OCT-02 STRIPATH o Modified Update_Row for Lease Number/Name and MTM.
420: -- Now first call pn_lease_details_pkg.Update_row and then
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.

Line 422: -- of pn_leases_all (name, lease_num, lease_status) in

418: -- as per the 'DO NOT SEND' enhancement requirement.
419: -- 25-OCT-02 STRIPATH o Modified Update_Row for Lease Number/Name and MTM.
420: -- Now first call pn_lease_details_pkg.Update_row and then
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

Line 425: -- pn_leases_pkg.Update_row and pn_lease_details_pkg.

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

Line 427: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases with

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
430: -------------------------------------------------------------------------------
431: PROCEDURE Update_Row

Line 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,

Line 482: SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;

478: IS
479: l_return_status VARCHAR2(30) := NULL;
480:
481: CURSOR org_cur IS
482: SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
483:
484: l_org_id NUMBER;
485:
486: BEGIN

Line 487: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (+)');

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;

Line 495: pn_leases_pkg.check_unique_lease_number

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,

Line 549: UPDATE pn_leases_all

545: ,X_ATTRIBUTE15 => X_ATTRIBUTE15
546: ,x_lease_extension_end_date => x_lease_extension_end_date
547: );
548:
549: UPDATE pn_leases_all
550: SET NAME = X_NAME,
551: LEASE_NUM = X_LEASE_NUM,
552: PARENT_LEASE_ID = X_PARENT_LEASE_ID,
553: LEASE_TYPE_CODE = X_LEASE_TYPE_CODE,

Line 567: pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (-)');

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:

Line 577: -- 10-SEP-02 dthota o Replaced the predicate in PN_LEASES_PKG.delete_row

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

Line 580: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_leases, pn_lease_details,

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
582: -- _ALL table.
583: -------------------------------------------------------------------------------
584: PROCEDURE Delete_Row

Line 593: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (+)');

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

Line 618: DELETE FROM pn_leases_all

614:
615: -- we need to DELETE the lease changes rows.
616: pn_lease_changes_pkg.Delete_Row (X_LEASE_CHANGE_ID =>l_leaseChangeId);
617:
618: DELETE FROM pn_leases_all
619: WHERE lease_id = x_lease_id;
620:
621: IF (SQL%NOTFOUND) THEN
622: RAISE NO_DATA_FOUND;

Line 625: pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (-)');

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: -------------------------------------------------------------------------------

Line 644: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (+)');

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

Line 650: FROM pn_leases pnl

646: SELECT 1
647: INTO l_dummy
648: FROM DUAL
649: WHERE NOT EXISTS (SELECT 1
650: FROM pn_leases pnl
651: WHERE pnl.lease_num = x_lease_number
652: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
653: );
654:

Line 655: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');

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');

Line 684: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_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

Line 690: FROM pn_leases_all pnl

686: SELECT 1
687: INTO l_dummy
688: FROM DUAL
689: WHERE NOT EXISTS (SELECT 1
690: FROM pn_leases_all pnl
691: WHERE pnl.lease_num = x_lease_number
692: AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
693: AND org_id = x_org_id
694: );

Line 696: pnp_debug_pkg.debug ('PN_LEASES_PKG.check_UNIQUE_lease_number (-)');

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');

Line 706: END pn_leases_pkg;

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;