15: p_api_version IN NUMBER
16: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
17: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
18: , p_validate IN VARCHAR2
19: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
16: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
17: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
18: , p_validate IN VARCHAR2
19: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
17: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
18: , p_validate IN VARCHAR2
19: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
18: , p_validate IN VARCHAR2
19: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
19: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
20: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
21: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
22: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
30: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
23: , p_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
30: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
31: , x_msg_count OUT NOCOPY NUMBER
24: , p_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
30: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
31: , x_msg_count OUT NOCOPY NUMBER
32: , x_msg_data OUT NOCOPY VARCHAR2
25: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
30: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
31: , x_msg_count OUT NOCOPY NUMBER
32: , x_msg_data OUT NOCOPY VARCHAR2
33: , x_return_status OUT NOCOPY VARCHAR2
26: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
27: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
28: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
29: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
30: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
31: , x_msg_count OUT NOCOPY NUMBER
32: , x_msg_data OUT NOCOPY VARCHAR2
33: , x_return_status OUT NOCOPY VARCHAR2
34: , p_lease_context IN VARCHAR2
289: -----+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
290: -----+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
291:
292: ----dbms_output.put_line('In Public:B4 PVT Create Lease:Contacts');--Rupak
293: pn_lease_pvt.create_lease
294: (p_commit => p_commit
295: , p_validate => p_validate
296: , p_lease_rec => p_lease_rec
297: , p_lease_exp_rev_accounts_rec => p_lease_exp_rev_accounts_rec
377: p_api_version IN NUMBER
378: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
379: , p_commit IN VARCHAR2 := fnd_api.g_false
380: , p_validate IN VARCHAR2 := fnd_api.g_false
381: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
378: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
379: , p_commit IN VARCHAR2 := fnd_api.g_false
380: , p_validate IN VARCHAR2 := fnd_api.g_false
381: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
379: , p_commit IN VARCHAR2 := fnd_api.g_false
380: , p_validate IN VARCHAR2 := fnd_api.g_false
381: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
380: , p_validate IN VARCHAR2 := fnd_api.g_false
381: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
381: , p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
382: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
383: , p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
384: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
385: , p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
393: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
386: , p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
393: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
394: -- , x_lease_id OUT NOCOPY NUMBER
387: , p_lease_context IN VARCHAR2 DEFAULT 'UPD'
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
393: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
394: -- , x_lease_id OUT NOCOPY NUMBER
395: -- , x_lease_number OUT NOCOPY VARCHAR2
388: , p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
393: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
394: -- , x_lease_id OUT NOCOPY NUMBER
395: -- , x_lease_number OUT NOCOPY VARCHAR2
396: -- , x_lease_name OUT NOCOPY VARCHAR2
389: , p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
390: , p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
391: , p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
392: , p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
393: , p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
394: -- , x_lease_id OUT NOCOPY NUMBER
395: -- , x_lease_number OUT NOCOPY VARCHAR2
396: -- , x_lease_name OUT NOCOPY VARCHAR2
397: , x_return_status OUT NOCOPY VARCHAR2
485: END IF;
486:
487:
488:
489: pn_lease_pvt.update_lease
490: (p_api_version => p_api_version
491: , p_init_msg_list => p_init_msg_list
492: , p_commit => p_commit
493: , p_validate => p_validate
560: p_api_version IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
562: , p_commit IN VARCHAR2 := fnd_api.g_false
563: , p_validate IN VARCHAR2 := fnd_api.g_false
564: , p_payment_terms_tbl IN OUT NOCOPY pn_lease_pvt.lease_terms_tbl
565: , p_lease_id IN NUMBER
566: , p_lease_context IN VARCHAR2 DEFAULT NULL
567: , x_return_status OUT NOCOPY VARCHAR2
568: , x_msg_count OUT NOCOPY NUMBER
600: END IF;
601:
602: x_return_status := fnd_api.g_ret_sts_success;
603: ------dbms_output.put_line (' IN Public :B4 Call of the Procedure:create_lease:p_payment_terms_tbl'||p_payment_terms_tbl(1).payment_purpose);
604: pn_lease_pvt.create_terms (p_api_version => p_api_version
605: , p_init_msg_list => p_init_msg_list
606: , p_commit => p_commit
607: , p_validate => p_validate
608: , p_payment_terms_tbl => p_payment_terms_tbl
667: p_api_version IN NUMBER
668: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
669: , p_commit IN VARCHAR2 := FND_API.G_FALSE
670: , p_validate IN VARCHAR2 := FND_API.G_FALSE
671: , p_payment_terms_tbl IN OUT NOCOPY pn_lease_pvt.lease_terms_tbl
672: , p_lease_id IN NUMBER
673: , p_lease_context IN VARCHAR2 DEFAULT NULL
674: , x_return_status OUT NOCOPY VARCHAR2
675: , x_msg_count OUT NOCOPY NUMBER
709:
710:
711: x_return_status := fnd_api.g_ret_sts_success;
712: ------dbms_output.put_line (' IN Public :B4 Call of the Procedure:update_lease:p_payment_terms_tbl'||p_payment_terms_tbl(1).payment_purpose);
713: pn_lease_pvt.update_terms (p_api_version => p_api_version
714: , p_init_msg_list => p_init_msg_list
715: , p_commit => p_commit
716: , p_validate => p_validate
717: , p_payment_terms_tbl => p_payment_terms_tbl
796:
797: BEGIN
798: -- Standard start of API savepoint
799:
800: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Start of status update procedure', 3);
801:
802: SAVEPOINT update_status;
803:
804: -- Set API return status to success
808:
809: IF fnd_api.to_boolean (p_init_msg_list)
810: THEN
811:
812: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Initializing message list', 3);
813:
814: fnd_msg_pub.initialize;
815: END IF;
816:
873: RAISE fnd_api.g_exc_error;
874: END IF;
875:
876:
877: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Calling update_status procedure.. ', 3);
878:
879: pn_lease_pvt.update_status( p_lease_id => p_lease_id
880: , p_new_approval_status_code => p_new_approval_status_code
881: , p_new_lease_status => p_new_lease_status
875:
876:
877: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Calling update_status procedure.. ', 3);
878:
879: pn_lease_pvt.update_status( p_lease_id => p_lease_id
880: , p_new_approval_status_code => p_new_approval_status_code
881: , p_new_lease_status => p_new_lease_status
882: , p_operation => p_operation
883: , x_return_status => x_return_status
883: , x_return_status => x_return_status
884: , x_msg_count => x_msg_count
885: , x_msg_data => x_msg_data
886: );
887: --pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - update_status procedure x_return_status: '||x_return_status, 3);
888: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - update_status procedure x_return_status: '||x_return_status, 3);
889:
890: -- Standard check of p_commit
891: IF fnd_api.to_boolean (p_commit)
884: , x_msg_count => x_msg_count
885: , x_msg_data => x_msg_data
886: );
887: --pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - update_status procedure x_return_status: '||x_return_status, 3);
888: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - update_status procedure x_return_status: '||x_return_status, 3);
889:
890: -- Standard check of p_commit
891: IF fnd_api.to_boolean (p_commit)
892: THEN
907: , p_data => x_msg_data
908: );
909: --ROLLBACK TO update_status;
910: x_return_status := fnd_api.g_ret_sts_error;
911: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: fnd_api.g_exc_error: '||x_return_status, 3);
912:
913: RAISE;
914: WHEN fnd_api.g_exc_unexpected_error
915: THEN
918: , p_data => x_msg_data
919: );
920: --ROLLBACK TO update_status;
921: x_return_status := fnd_api.g_ret_sts_unexp_error;
922: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: fnd_api.g_ret_sts_unexp_error: '||x_return_status, 3);
923: RAISE;
924: WHEN OTHERS
925: THEN
926: --ROLLBACK TO update_status;
927: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
928: fnd_message.set_token ('P_TEXT', SQLERRM);
929: fnd_msg_pub.ADD;
930: x_return_status := fnd_api.g_ret_sts_error;
931: pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: unknown error '||x_return_status, 3);
932: RAISE;
933: END update_status;
934:
935: END pn_lease_pub;