1: PACKAGE BODY PN_MTM_ROLLFORWARD_PKG AS
2: /* $Header: PNRLFWDB.pls 120.4 2011/08/23 10:48:27 acprakas ship $ */
3: g_reqId_sched NUMBER := NULL;
4: -------------------------------------------------------------------------------
5: -- PROCEDURE : ROLLFORWARD_LEASES
46: l_lease_change_id NUMBER;
47:
48: BEGIN
49:
50: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_leases +Start+ (+)');
51: pnp_debug_pkg.log('Lease Number Low : '||p_lease_no_low);
52: pnp_debug_pkg.log('Lease Number Low : '||p_lease_no_high);
53: pnp_debug_pkg.log('Lease extension end date : '||p_lease_ext_end_dt);
54: pnp_debug_pkg.log('Lease Option : '||p_lease_option);
214: IF dbms_sql.is_open (l_cursor) THEN
215: dbms_sql.close_cursor (l_cursor);
216: END IF;
217:
218: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_leases +End+ (-)');
219: EXCEPTION
220: WHEN INCORECT_LEASE_EXCEPTION THEN
221: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
222: errbuf := fnd_message.get;
336: l_attribute15 VARCHAR2(250);
337:
338: BEGIN
339:
340: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.create_amendment +Start+ (+)');
341:
342: FOR rec IN get_lease_details( p_lease_id ) LOOP
343: l_lease_num := rec.lease_num;
344: l_responsibleUser := rec.responsible_user;
453: ,x_attribute14 => l_attribute14
454: ,x_attribute15 => l_attribute15
455: );
456:
457: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.create_amendment +End+ (-)');
458:
459: END create_amendment;
460:
461:
515: l_lease_class_code VARCHAR2(30);
516: l_loc_type_code VARCHAR2(30);
517:
518: BEGIN
519: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_tenancies +Start+ (+)');
520:
521: IF fnd_profile.value('PN_CHG_TEN_WHEN_LEASE_CHG') = 'Y' THEN
522:
523: <
567:
568: END LOOP outer_loop;
569: END IF;
570:
571: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_tenancies +End+ (-)');
572:
573: END ROLLFORWARD_TENANCIES;
574:
575: -------------------------------------------------------------------------------
589: l_lease_ext_dt_can VARCHAR2(100) := fnd_date.date_to_canonical(p_lease_ext_end_dt);
590: l_old_ext_dt_can VARCHAR2(100) := fnd_date.date_to_canonical(p_old_ext_end_dt);
591:
592: BEGIN
593: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_var_rent +Start+ (+)');
594:
595: l_requestId := fnd_request.submit_request ( 'PN',
596: 'PNVREXCO',
597: NULL,
621: pnp_debug_pkg.put_log_msg(fnd_message.get);
622: END IF;
623:
624: g_reqId_sched := null;
625: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_var_rent +End+ (-)');
626:
627: END ROLLFORWARD_VAR_RENT;
628:
629:
641: IS
642: l_requestId NUMBER := NULL;
643:
644: BEGIN
645: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_terms +Start+ (+)');
646:
647: l_requestId := fnd_request.submit_request ( 'PN',
648: 'PNSCHITM',
649: NULL,
672: pnp_debug_pkg.put_log_msg(fnd_message.get);
673: END IF;
674:
675: g_reqId_sched := l_requestId;
676: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_terms +End+ (-)');
677:
678: END ROLLFORWARD_TERMS;
679:
680:
726:
727:
728: BEGIN
729:
730: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.print_output +Start+ (+)');
731:
732: fnd_message.set_name ('PN','PN_ROLFWD_PROP');
733: l_message := fnd_message.get||' ';
734: fnd_message.set_name ('PN','PN_ROLFWD_LOC');
771: );
772:
773: END LOOP;
774:
775: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.print_output +End+ (-)');
776:
777: END PRINT_OUTPUT;
778:
779:
776:
777: END PRINT_OUTPUT;
778:
779:
780: END PN_MTM_ROLLFORWARD_PKG;