86: x_return_status := 'S';
87: SAVEPOINT create_term;
88: --dbms_output.put_line('Testing');
89:
90: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
91:
92: l_context := 'Validating input parameters';
93:
94: IF (p_est_payment_id IS NULL OR
92: l_context := 'Validating input parameters';
93:
94: IF (p_est_payment_id IS NULL OR
95: p_lease_id IS NULL ) THEN
96: pnp_debug_pkg.put_log_msg ('Input Prameters missing');
97: END IF;
98:
99:
100:
112: AND pld.lease_id = p_lease_id;
113:
114: EXCEPTION
115: WHEN TOO_MANY_ROWS THEN
116: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
117: WHEN NO_DATA_FOUND THEN
118: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
119: WHEN OTHERS THEN
120: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
114: EXCEPTION
115: WHEN TOO_MANY_ROWS THEN
116: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
117: WHEN NO_DATA_FOUND THEN
118: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
119: WHEN OTHERS THEN
120: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
121: END;
122:
116: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
117: WHEN NO_DATA_FOUND THEN
118: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
119: WHEN OTHERS THEN
120: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
121: END;
122:
123: l_context := 'Getting set of books id';
124: --dbms_output.put_line('getting set of books');
125:
126: l_set_of_books_id := to_number(pn_mo_cache_utils.get_profile_value('PN_SET_OF_BOOKS_ID'
127: ,l_org_id));
128:
129: pnp_debug_pkg.put_log_msg ('create_payment_terms - Set of books id :'||l_set_of_books_id);
130:
131: IF p_term_template_id IS NOT NULL THEN
132:
133: l_context := 'opening cursor csr_template';
133: l_context := 'opening cursor csr_template';
134: OPEN term_template_cur(p_term_template_id);
135: FETCH term_template_cur INTO template_rec;
136: IF term_template_cur%NOTFOUND THEN
137: pnp_debug_pkg.put_log_msg ('No template dat found');
138: RAISE NO_DATA_FOUND;
139: END IF;
140: CLOSE term_template_cur;
141: END IF;
146:
147: OPEN opex_est_pay_cur(p_est_payment_id);
148: FETCH opex_est_pay_CUR INTO opex_est_pay_rec;
149: IF opex_est_pay_cur%NOTFOUND THEN
150: pnp_debug_pkg.put_log_msg ('No template dat found');
151: RAISE NO_DATA_FOUND;
152: END IF;
153: CLOSE opex_est_pay_cur;
154:
158:
159: OPEN agreement_cur(opex_est_pay_rec.agreement_id);
160: FETCH agreement_cur INTO agreement_rec;
161: IF agreement_cur%NOTFOUND THEN
162: pnp_debug_pkg.put_log_msg ('No template dat found');
163: RAISE NO_DATA_FOUND ;
164: END IF;
165: CLOSE agreement_cur;
166:
168:
169: OPEN prev_pay_term_cur(opex_est_pay_rec.agreement_id);
170: FETCH prev_pay_term_cur INTO pay_term_rec;
171: IF prev_pay_term_cur%NOTFOUND THEN
172: pnp_debug_pkg.put_log_msg ('No template dat found');
173: pay_term_rec := NULL;
174: END IF;
175: CLOSE prev_pay_term_cur;
176:
260: --dbms_output.put_line('x_end_date' || l_payment_end_date);
261: --dbms_output.put_line('x_currency_code' || l_currency_code);
262: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
263:
264: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
261: --dbms_output.put_line('x_currency_code' || l_currency_code);
262: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
263:
264: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
262: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
263:
264: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
263:
264: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
264: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
265: pnp_debug_pkg.put_log_msg('inserting row 1');
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
266: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
267: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
268: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
276: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
269: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
276: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
277:
270: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
276: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
277:
278: -- We retain the previous term's changes made. hence
271: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
276: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
277:
278: -- We retain the previous term's changes made. hence
279: -- if a previous term exists we store the values present
272: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
273: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
274: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
275: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
276: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
277:
278: -- We retain the previous term's changes made. hence
279: -- if a previous term exists we store the values present
280: -- in the previous term , else we store the values of the
497:
498: IF l_est_payment_term_id IS NOT NULL THEN
499: FOR rec_distributions in distributions_cur(p_term_template_id)
500: LOOP
501: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
502: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
503: l_context := 'Inserting into pn_distributions';
504: pn_distributions_pkg.insert_row (
505: x_rowid => l_rowid
498: IF l_est_payment_term_id IS NOT NULL THEN
499: FOR rec_distributions in distributions_cur(p_term_template_id)
500: LOOP
501: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
502: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
503: l_context := 'Inserting into pn_distributions';
504: pn_distributions_pkg.insert_row (
505: x_rowid => l_rowid
506: ,x_distribution_id => l_distribution_id
542:
543: IF l_catch_up_payment_term_id IS NOT NULL THEN
544: FOR rec_distributions in distributions_cur(p_term_template_id)
545: LOOP
546: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
547: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
548: l_context := 'Inserting into pn_distributions';
549: pn_distributions_pkg.insert_row (
550: x_rowid => l_rowid
543: IF l_catch_up_payment_term_id IS NOT NULL THEN
544: FOR rec_distributions in distributions_cur(p_term_template_id)
545: LOOP
546: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
547: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
548: l_context := 'Inserting into pn_distributions';
549: pn_distributions_pkg.insert_row (
550: x_rowid => l_rowid
551: ,x_distribution_id => l_distribution_id
596:
597: EXCEPTION
598: WHEN OTHERS THEN
599: ROLLBACK TO create_term;
600: pnp_debug_pkg.put_log_msg(substrb('pn_variable_term_pkg.Error in opex_create_payment_term - ' ||
601: to_char(sqlcode)||' : '||sqlerrm || ' - '|| l_context,1,244));
602: --dbms_output.put_line('Exception');
603: x_return_status := 'E';
604: END create_opex_payment_terms;
684: BEGIN
685: x_return_status := 'S';
686: --dbms_output.put_line('Testing');
687:
688: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
689:
690: l_context := 'Validating input parameters';
691:
692: IF (p_recon_id IS NULL OR
690: l_context := 'Validating input parameters';
691:
692: IF (p_recon_id IS NULL OR
693: p_agreement_id is NULL) THEN
694: pnp_debug_pkg.put_log_msg ('Input Prameters missing');
695: END IF;
696:
697:
698: l_context := 'opening agreement_cur';
699:
700: OPEN agreement_cur(p_agreement_id);
701: FETCH agreement_cur INTO agreement_rec;
702: IF agreement_cur%NOTFOUND THEN
703: pnp_debug_pkg.put_log_msg ('No template dat found');
704: RAISE NO_DATA_FOUND ;
705: END IF;
706: CLOSE agreement_cur;
707:
721: WHERE pl.lease_id = pld.lease_id
722: AND pld.lease_id = agreement_rec.lease_id;
723: EXCEPTION
724: WHEN TOO_MANY_ROWS THEN
725: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
726: WHEN NO_DATA_FOUND THEN
727: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
728: WHEN OTHERS THEN
729: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
723: EXCEPTION
724: WHEN TOO_MANY_ROWS THEN
725: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
726: WHEN NO_DATA_FOUND THEN
727: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
728: WHEN OTHERS THEN
729: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
730: END;
731:
725: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - TOO_MANY_ROWS');
726: WHEN NO_DATA_FOUND THEN
727: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - NO_DATA_FOUND');
728: WHEN OTHERS THEN
729: pnp_debug_pkg.put_log_msg ('Cannot Get Main Lease Details - Unknown Error:'|| SQLERRM);
730: END;
731:
732: l_context := 'Getting set of books id';
733: --dbms_output.put_line('getting set of books');
734:
735: l_set_of_books_id := to_number(pn_mo_cache_utils.get_profile_value('PN_SET_OF_BOOKS_ID'
736: ,l_org_id));
737:
738: pnp_debug_pkg.put_log_msg ('create_payment_terms - Set of books id :'||l_set_of_books_id);
739:
740: IF agreement_rec.term_template_id IS NOT NULL THEN
741:
742: l_context := 'opening cursor csr_template';
742: l_context := 'opening cursor csr_template';
743: OPEN term_template_cur(agreement_rec.term_template_id);
744: FETCH term_template_cur INTO template_rec;
745: IF term_template_cur%NOTFOUND THEN
746: pnp_debug_pkg.put_log_msg ('No template dat found');
747: RAISE NO_DATA_FOUND;
748: END IF;
749: CLOSE term_template_cur;
750: END IF;
755: --N
756: --N OPEN opex_est_pay_cur(p_est_payment_id);
757: --N FETCH opex_est_pay_CUR INTO opex_est_pay_rec;
758: --N IF opex_est_pay_cur%NOTFOUND THEN
759: --N pnp_debug_pkg.put_log_msg ('No template dat found');
760: --N RAISE NO_DATA_FOUND;
761: --N END IF;
762: --N CLOSE opex_est_pay_cur;
763:
765:
766: OPEN prev_pay_term_cur(p_agreement_id);
767: FETCH prev_pay_term_cur INTO pay_term_rec;
768: IF prev_pay_term_cur%NOTFOUND THEN
769: pnp_debug_pkg.put_log_msg ('No template dat found');
770: pay_term_rec := NULL;
771: END IF;
772: CLOSE prev_pay_term_cur;
773:
855: --dbms_output.put_line('x_end_date' || l_payment_end_date);
856: --dbms_output.put_line('x_currency_code' || l_currency_code);
857: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
858:
859: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
856: --dbms_output.put_line('x_currency_code' || l_currency_code);
857: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
858:
859: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
857: --dbms_output.put_line('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
858:
859: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
858:
859: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
859: pnp_debug_pkg.put_log_msg ('opex_create_payment_term');
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
860: pnp_debug_pkg.put_log_msg('inserting row 1');
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
861: pnp_debug_pkg.put_log_msg('x_last_update_login' || NVL(fnd_profile.value('LOGIN_ID'),0));
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
862: pnp_debug_pkg.put_log_msg('x_last_updated_by '|| NVL (fnd_profile.VALUE ('USER_ID'), 0));
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
863: pnp_debug_pkg.put_log_msg('x_payment_purpose_code' || NVL(agreement_rec.payment_purpose_code ,template_rec.payment_purpose_code) );
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
871: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
864: pnp_debug_pkg.put_log_msg('x_payment_term_type_code' || NVL(agreement_rec.payment_type_code , template_rec.payment_term_type_code));
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
871: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
872:
865: pnp_debug_pkg.put_log_msg('x_frequency_code' || NVL(agreement_rec.est_pay_freq_code , l_frequency));
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
871: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
872:
873:
866: pnp_debug_pkg.put_log_msg('x_lease_id' || agreement_rec.lease_id);
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
871: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
872:
873:
874:
867: pnp_debug_pkg.put_log_msg('x_lease_change_id' || l_lease_change_id);
868: pnp_debug_pkg.put_log_msg('l_payment_start_date' || l_payment_start_date);
869: pnp_debug_pkg.put_log_msg('x_end_date' || l_payment_end_date);
870: pnp_debug_pkg.put_log_msg('x_currency_code' || l_currency_code);
871: pnp_debug_pkg.put_log_msg('x_set_of_books_id' || NVL(template_rec.set_of_books_id,l_set_of_books_id));
872:
873:
874:
875: pnt_payment_terms_pkg.insert_row (
979:
980: IF l_payment_term_id IS NOT NULL THEN
981: FOR rec_distributions in distributions_cur(agreement_rec.term_template_id)
982: LOOP
983: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
984: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
985: l_context := 'Inserting into pn_distributions';
986: pn_distributions_pkg.insert_row (
987: x_rowid => l_rowid
980: IF l_payment_term_id IS NOT NULL THEN
981: FOR rec_distributions in distributions_cur(agreement_rec.term_template_id)
982: LOOP
983: pnp_debug_pkg.put_log_msg(' account_id '||rec_distributions.account_id);
984: pnp_debug_pkg.put_log_msg(' account_class '||rec_distributions.account_id);
985: l_context := 'Inserting into pn_distributions';
986: pn_distributions_pkg.insert_row (
987: x_rowid => l_rowid
988: ,x_distribution_id => l_distribution_id
1026:
1027:
1028: EXCEPTION
1029: WHEN OTHERS THEN
1030: pnp_debug_pkg.put_log_msg(substrb('pn_variable_term_pkg.Error in opex_create_payment_term - ' ||
1031: to_char(sqlcode)||' : '||sqlerrm || ' - '|| l_context,1,244));
1032: --dbms_output.put_line('Exception');
1033: x_return_status := 'E';
1034: END create_recon_pay_term;
1115: x_return_status := 'S';
1116: OPEN opex_est_pay_cur(p_est_payment_id);
1117: FETCH opex_est_pay_cur INTO opex_est_pay_rec;
1118: IF opex_est_pay_cur%NOTFOUND THEN
1119: pnp_debug_pkg.put_log_msg('No Est Term Err' );
1120: RAISE NO_DATA_FOUND;
1121: END IF;
1122:
1123:
1133: AND est_payment_id <> p_est_payment_id)
1134: AND ROWNUM = 1;
1135: EXCEPTION
1136: WHEN NO_DATA_FOUND THEN
1137: pnp_debug_pkg.put_log_msg('No Prev Term to be contracted' );
1138: RETURN; -- No term to be contracted;
1139: END;
1140:
1141: pnp_debug_pkg.put_log_msg('Payment term to be contracted ' || prev_pay_term_id);
1137: pnp_debug_pkg.put_log_msg('No Prev Term to be contracted' );
1138: RETURN; -- No term to be contracted;
1139: END;
1140:
1141: pnp_debug_pkg.put_log_msg('Payment term to be contracted ' || prev_pay_term_id);
1142:
1143: FOR payment_rec1 IN payment_cur(prev_pay_term_id) LOOP
1144: payment_rec := payment_rec1 ;
1145: END LOOP;
1143: FOR payment_rec1 IN payment_cur(prev_pay_term_id) LOOP
1144: payment_rec := payment_rec1 ;
1145: END LOOP;
1146:
1147: pnp_debug_pkg.put_log_msg('Prev Payment term to be contracted 1' || payment_rec.payment_term_id);
1148: pnp_debug_pkg.put_log_msg('Prev Payment term end date' || payment_rec.end_date);
1149: pnp_debug_pkg.put_log_msg('New payment_term start date ' || opex_est_pay_rec.start_date);
1150:
1151: IF payment_rec.end_date >= opex_est_pay_rec.start_date THEN
1144: payment_rec := payment_rec1 ;
1145: END LOOP;
1146:
1147: pnp_debug_pkg.put_log_msg('Prev Payment term to be contracted 1' || payment_rec.payment_term_id);
1148: pnp_debug_pkg.put_log_msg('Prev Payment term end date' || payment_rec.end_date);
1149: pnp_debug_pkg.put_log_msg('New payment_term start date ' || opex_est_pay_rec.start_date);
1150:
1151: IF payment_rec.end_date >= opex_est_pay_rec.start_date THEN
1152: --do all this only if the parev end date is greater than the start date
1145: END LOOP;
1146:
1147: pnp_debug_pkg.put_log_msg('Prev Payment term to be contracted 1' || payment_rec.payment_term_id);
1148: pnp_debug_pkg.put_log_msg('Prev Payment term end date' || payment_rec.end_date);
1149: pnp_debug_pkg.put_log_msg('New payment_term start date ' || opex_est_pay_rec.start_date);
1150:
1151: IF payment_rec.end_date >= opex_est_pay_rec.start_date THEN
1152: --do all this only if the parev end date is greater than the start date
1153: pnp_debug_pkg.put_log_msg('Into if for contraction');
1149: pnp_debug_pkg.put_log_msg('New payment_term start date ' || opex_est_pay_rec.start_date);
1150:
1151: IF payment_rec.end_date >= opex_est_pay_rec.start_date THEN
1152: --do all this only if the parev end date is greater than the start date
1153: pnp_debug_pkg.put_log_msg('Into if for contraction');
1154:
1155: -- Getting the last approved schedule date
1156: pnp_debug_pkg.put_log_msg('Getting the last approved schedule date');
1157:
1152: --do all this only if the parev end date is greater than the start date
1153: pnp_debug_pkg.put_log_msg('Into if for contraction');
1154:
1155: -- Getting the last approved schedule date
1156: pnp_debug_pkg.put_log_msg('Getting the last approved schedule date');
1157:
1158: /* pn_opex_terms_pkg.last_schedule_day(p_lease_id => p_lease_id,
1159: p_payment_term_id => prev_pay_term_id,
1160: x_end_date => last_sch_date);
1157:
1158: /* pn_opex_terms_pkg.last_schedule_day(p_lease_id => p_lease_id,
1159: p_payment_term_id => prev_pay_term_id,
1160: x_end_date => last_sch_date);
1161: pnp_debug_pkg.put_log_msg('last approved schedule date ' || last_sch_date); */
1162:
1163: /*
1164: FOR last_sch_day_rec in last_sch_day_cur(p_lease_id ,prev_pay_term_id) LOOP
1165: IF payment_rec.frequency_code = 'MON' THEN
1168: last_sch_date := last_sch_day_rec.last_sch_date - 1;
1169: END IF;
1170: END LOOP;
1171: */
1172: pnp_debug_pkg.put_log_msg('last approved schedule date ' || last_sch_date);
1173:
1174:
1175:
1176: -- Contract previous estpmt Id to last approved schedule date.
1207: FOR sch_rec in pay_sch_cur(p_lease_id , prev_trm_end_date ) LOOP
1208:
1209: l_sch_id := sch_rec.payment_schedule_id;
1210:
1211: pnp_debug_pkg.put_log_msg('Deleting Schedule_id ' || l_sch_id);
1212:
1213: DELETE FROM pn_payment_items_all
1214: WHERE payment_term_id = prev_pay_term_id
1215: AND payment_schedule_id = l_sch_id
1224: END LOOP; /*sch cursor */
1225:
1226:
1227:
1228: pnp_debug_pkg.put_log_msg('Updating pn_opex_est_payments_all and pn_payment_terms_all with date ' || prev_trm_end_date );
1229:
1230: IF (prev_trm_end_date IS NOT NULL) THEN
1231:
1232: IF l_approved_item_count = 0
1253: END IF;
1254:
1255:
1256: ELSE
1257: pnp_debug_pkg.put_log_msg('Terms are independent and need not be contracted.');
1258: END IF; --payment_rec.end_date >= opex_est_pay_rec.start_date
1259:
1260: EXCEPTION
1261: WHEN OTHERS THEN
1258: END IF; --payment_rec.end_date >= opex_est_pay_rec.start_date
1259:
1260: EXCEPTION
1261: WHEN OTHERS THEN
1262: pnp_debug_pkg.put_log_msg('contract_prev_est_term Errored' );
1263: --dbms_output.put_line('Exception');
1264: x_return_status := 'E';
1265:
1266: END contract_prev_est_term;
1343:
1344:
1345: BEGIN
1346:
1347: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1348:
1349:
1350: FOR rec IN opex_est_pay_cur(p_payment_term_id) LOOP
1351: l_pay_term_id := rec.payment_term_id;
1390: --dbms_output.put_line('end date = '||end_date);
1391:
1392: x_end_date := to_char(end_date);*/
1393:
1394: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1395:
1396: EXCEPTION
1397: WHEN OTHERS THEN
1398: RAISE;
1427:
1428:
1429: BEGIN
1430:
1431: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1432:
1433: FOR rec IN schedule_end_date_cur LOOP
1434: --dbms_output.put_line('schedule_date = L1');
1435: schedule_date := rec.schedule_date ;
1449: --dbms_output.put_line('end date = '||end_date);
1450:
1451: x_end_date := to_char(end_date);
1452:
1453: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1454:
1455: EXCEPTION
1456: WHEN OTHERS THEN
1457: RAISE;
1763: WHEN NO_DATA_FOUND THEN
1764: l_deletion_allowed := 'Y';
1765: END;
1766: IF l_deletion_allowed = 'Y' THEN
1767: pnp_debug_pkg.debug ('Deleting.agreement');
1768: -- Deleting agreement tables
1769:
1770: DELETE FROM PN_OPEX_NOTES_ALL
1771: WHERE agreement_id = p_agreement_id;
1815: DELETE FROM PN_OPEX_EST_PAYMENTS_ALL
1816: WHERE agreement_id = p_agreement_id;
1817:
1818: ELSE
1819: pnp_debug_pkg.debug ('Agreemnt cannot be deleted');
1820: x_return_status := 'E';
1821: END IF;
1822:
1823: EXCEPTION
1870: ------------------------------------------------------------------------
1871:
1872: PROCEDURE put_log ( p_string IN VARCHAR2 ) IS
1873: BEGIN
1874: pnp_debug_pkg.log(p_string);
1875: END put_log;
1876:
1877:
1878: ------------------------------------------------------------------------
1884: ------------------------------------------------------------------------
1885:
1886: PROCEDURE put_output ( p_string IN VARCHAR2 ) IS
1887: BEGIN
1888: pnp_debug_pkg.put_log_msg(p_string);
1889: END put_output;
1890:
1891:
1892: ------------------------------------------------------------------------