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);
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);
55:
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);
55:
56: l_lease_ext_end_dt := fnd_date.canonical_to_date(p_lease_ext_end_dt);
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);
55:
56: l_lease_ext_end_dt := fnd_date.canonical_to_date(p_lease_ext_end_dt);
57:
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);
55:
56: l_lease_ext_end_dt := fnd_date.canonical_to_date(p_lease_ext_end_dt);
57:
58: IF l_lease_ext_end_dt IS NULL THEN
96: WHERE lease.lease_id = det.lease_id ';
97:
98: Q_lease_details := Q_lease_details || l_where_clause;
99:
100: /*pnp_debug_pkg.log(' Q_lease_details :'||Q_lease_details);*/
101:
102: dbms_sql.parse(l_cursor, Q_lease_details, dbms_sql.native);
103:
104: IF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NOT NULL THEN
187: END IF;
188:
189: EXCEPTION
190: WHEN INVALID_LEASE_RECORD THEN
191: pnp_debug_pkg.log(' invalid lease record ');
192: l_fail := l_fail + 1;
193: END;
194: END LOOP;
195:
197: l_success := l_total - l_fail;
198:
199: fnd_message.set_name('PN', 'PN_CAFM_SPACE_SUCCESS');
200: fnd_message.set_token('SUCCESS', l_success);
201: pnp_debug_pkg.put_log_msg(fnd_message.get);
202:
203: fnd_message.set_name('PN', 'PN_CAFM_SPACE_FAILURE');
204: fnd_message.set_token('FAILURE', l_fail);
205: pnp_debug_pkg.put_log_msg(fnd_message.get);
201: pnp_debug_pkg.put_log_msg(fnd_message.get);
202:
203: fnd_message.set_name('PN', 'PN_CAFM_SPACE_FAILURE');
204: fnd_message.set_token('FAILURE', l_fail);
205: pnp_debug_pkg.put_log_msg(fnd_message.get);
206:
207: fnd_message.set_name('PN', 'PN_CAFM_SPACE_TOTAL');
208: fnd_message.set_token('TOTAL', l_total);
209: pnp_debug_pkg.put_log_msg(fnd_message.get);
205: pnp_debug_pkg.put_log_msg(fnd_message.get);
206:
207: fnd_message.set_name('PN', 'PN_CAFM_SPACE_TOTAL');
208: fnd_message.set_token('TOTAL', l_total);
209: pnp_debug_pkg.put_log_msg(fnd_message.get);
210:
211: END IF;
212:
213: IF dbms_sql.is_open (l_cursor) THEN
213: IF dbms_sql.is_open (l_cursor) THEN
214: dbms_sql.close_cursor (l_cursor);
215: END IF;
216:
217: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_leases +End+ (-)');
218: EXCEPTION
219: WHEN INCORECT_LEASE_EXCEPTION THEN
220: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
221: errbuf := fnd_message.get;
218: EXCEPTION
219: WHEN INCORECT_LEASE_EXCEPTION THEN
220: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
221: errbuf := fnd_message.get;
222: pnp_debug_pkg.put_log_msg (errbuf);
223: retcode := 2;
224:
225: WHEN INCORRECT_EXTENSION_END_DATE THEN
226: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
224:
225: WHEN INCORRECT_EXTENSION_END_DATE THEN
226: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
227: errbuf := fnd_message.get;
228: pnp_debug_pkg.put_log_msg (errbuf);
229: retcode := 2;
230:
231: WHEN INCORRECT_LEASE_OPTION THEN
232: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
230:
231: WHEN INCORRECT_LEASE_OPTION THEN
232: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
233: errbuf := fnd_message.get;
234: pnp_debug_pkg.put_log_msg (errbuf);
235: retcode := 2;
236:
237: WHEN INVALID_LEASE_RECORD THEN
238: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
236:
237: WHEN INVALID_LEASE_RECORD THEN
238: fnd_message.set_name ('PN', 'MISSING_SETUP_CONTEXT');
239: errbuf := fnd_message.get;
240: pnp_debug_pkg.put_log_msg (errbuf);
241: retcode := 2;
242:
243: WHEN OTHERS THEN
244: Errbuf := SQLERRM;
303: l_leaseExecutionDate DATE;
304:
305: BEGIN
306:
307: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.create_amendment +Start+ (+)');
308:
309: FOR rec IN get_lease_details( p_lease_id ) LOOP
310: l_lease_num := rec.lease_num;
311: l_responsibleUser := rec.responsible_user;
404: ,x_attribute14 => NULL
405: ,x_attribute15 => NULL
406: );
407:
408: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.create_amendment +End+ (-)');
409:
410: END create_amendment;
411:
412:
464: l_lease_class_code VARCHAR2(30);
465: l_loc_type_code VARCHAR2(30);
466:
467: BEGIN
468: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_tenancies +Start+ (+)');
469:
470: IF fnd_profile.value('PN_CHG_TEN_WHEN_LEASE_CHG') = 'Y' THEN
471:
472: <
516:
517: END LOOP outer_loop;
518: END IF;
519:
520: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_tenancies +End+ (-)');
521:
522: END ROLLFORWARD_TENANCIES;
523:
524: -------------------------------------------------------------------------------
538: l_lease_ext_dt_can VARCHAR2(100) := fnd_date.date_to_canonical(p_lease_ext_end_dt);
539: l_old_ext_dt_can VARCHAR2(100) := fnd_date.date_to_canonical(p_old_ext_end_dt);
540:
541: BEGIN
542: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_var_rent +Start+ (+)');
543:
544: l_requestId := fnd_request.submit_request ( 'PN',
545: 'PNVREXCO',
546: NULL,
562: );
563:
564: IF (l_requestId = 0 ) THEN
565: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
566: pnp_debug_pkg.put_log_msg(fnd_message.get);
567: ELSE
568: fnd_message.set_name ( 'PN', 'PN_REQUEST_SUBMITTED' );
569: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
570: pnp_debug_pkg.put_log_msg(fnd_message.get);
566: pnp_debug_pkg.put_log_msg(fnd_message.get);
567: ELSE
568: fnd_message.set_name ( 'PN', 'PN_REQUEST_SUBMITTED' );
569: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
570: pnp_debug_pkg.put_log_msg(fnd_message.get);
571: END IF;
572:
573: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_var_rent +End+ (-)');
574:
569: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
570: pnp_debug_pkg.put_log_msg(fnd_message.get);
571: END IF;
572:
573: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_var_rent +End+ (-)');
574:
575: END ROLLFORWARD_VAR_RENT;
576:
577:
589: IS
590: l_requestId NUMBER := NULL;
591:
592: BEGIN
593: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_terms +Start+ (+)');
594:
595: l_requestId := fnd_request.submit_request ( 'PN',
596: 'PNSCHITM',
597: NULL,
612: );
613:
614: IF (l_requestId = 0 ) THEN
615: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
616: pnp_debug_pkg.put_log_msg(fnd_message.get);
617: ELSE
618: fnd_message.set_name ( 'PN', 'PN_REQUEST_SUBMITTED' );
619: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
620: pnp_debug_pkg.put_log_msg(fnd_message.get);
616: pnp_debug_pkg.put_log_msg(fnd_message.get);
617: ELSE
618: fnd_message.set_name ( 'PN', 'PN_REQUEST_SUBMITTED' );
619: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
620: pnp_debug_pkg.put_log_msg(fnd_message.get);
621: END IF;
622:
623: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_terms +End+ (-)');
624:
619: fnd_message.set_token ( 'REQUEST_ID', TO_CHAR(l_requestId), FALSE);
620: pnp_debug_pkg.put_log_msg(fnd_message.get);
621: END IF;
622:
623: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_terms +End+ (-)');
624:
625: END ROLLFORWARD_TERMS;
626:
627:
673:
674:
675: BEGIN
676:
677: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.print_output +Start+ (+)');
678:
679: fnd_message.set_name ('PN','PN_ROLFWD_PROP');
680: l_message := fnd_message.get||' ';
681: fnd_message.set_name ('PN','PN_ROLFWD_LOC');
691: fnd_message.set_name ('PN','PN_ROLFWD_INDEX_NUM');
692: l_message := l_message||fnd_message.get||' ';
693: fnd_message.set_name ('PN','PN_ROLFWD_VAR_NUM');
694: l_message := l_message||fnd_message.get||' ';
695: pnp_debug_pkg.put_log_msg(l_message);
696:
697: pnp_debug_pkg.put_log_msg
698: ('============== '
699: ||' ============= '
693: fnd_message.set_name ('PN','PN_ROLFWD_VAR_NUM');
694: l_message := l_message||fnd_message.get||' ';
695: pnp_debug_pkg.put_log_msg(l_message);
696:
697: pnp_debug_pkg.put_log_msg
698: ('============== '
699: ||' ============= '
700: ||' ========= '
701: ||' ====================== '
706: );
707:
708: FOR rec IN get_lease_details (p_lease_id) LOOP
709:
710: pnp_debug_pkg.put_log_msg(rec.property_name || ' '
711: ||rec.location_name|| ' '
712: ||rec.lease_num || ' '
713: ||TO_CHAR(rec.lease_termination_date) || ' '
714: ||TO_CHAR(rec.lease_extension_end_date)|| ' '
718: );
719:
720: END LOOP;
721:
722: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.print_output +End+ (-)');
723:
724: END PRINT_OUTPUT;
725:
726: