[Home] [Help]
21: is
22:
23: begin
24:
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: END IF;
28:
29: end;
22:
23: begin
24:
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: END IF;
28:
29: end;
30:
85: l_msg_data VARCHAR2(2000);
86:
87: BEGIN
88: l_action_id := p_approval_action_rec.action_id;
89: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_create_approval_action procedure');
90:
91: -- if primary key value is passed, check for uniqueness.
92: IF l_action_id IS NOT NULL AND
93: l_action_id <> FND_API.G_MISS_NUM
108: NULL;
109: END;
110: END IF;
111:
112: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Insert_Row');
113:
114: -- call table-handler.
115: LNS_APPROVAL_ACTIONS_PKG.Insert_Row(X_ACTION_ID => p_approval_action_rec.action_id
116: ,P_OBJECT_VERSION_NUMBER => 1
140: ,P_ATTRIBUTE19 => p_approval_action_rec.attribute19
141: ,P_ATTRIBUTE20 => p_approval_action_rec.attribute20);
142:
143: x_action_id := p_approval_action_rec.action_id;
144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_approval_action procedure: After call to LNS_APPROVAL_ACTION.Insert_Row');
145:
146: END do_create_approval_action;
147:
148: /*===========================================================================+
182: ldup_rowid ROWID;
183:
184: BEGIN
185:
186: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_update_approval_action procedure');
187:
188: -- check whether record has been updated by another user. If not, lock it.
189: BEGIN
190: SELECT OBJECT_VERSION_NUMBER,
220: FND_MSG_PUB.ADD;
221: RAISE FND_API.G_EXC_ERROR;
222: END;
223:
224: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Update_Row');
225:
226: -- log history
227: LNS_LOAN_HISTORY_PUB.log_record_pre(p_approval_action_rec.action_id,
228: 'ACTION_ID',
263: 'ACTION_ID',
264: 'LNS_APPROVAL_ACTIONS',
265: p_approval_action_rec.loan_id);
266:
267: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_approval_action procedure: After call to LNS_APPROVAL_ACTIONS_PKG.Update_Row');
268:
269: END do_update_approval_action;
270:
271: /*===========================================================================+
302:
303: l_dummy VARCHAR2(1);
304: BEGIN
305:
306: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_delete_approval_action procedure');
307:
308: IF p_action_id IS NOT NULL AND
309: p_action_id <> FND_API.G_MISS_NUM
310: THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END;
326: END IF;
327:
328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Delete_Row');
329:
330: --Call to table-handler
331: LNS_APPROVAL_ACTIONS_PKG.Delete_Row (P_ACTION_ID => p_action_id);
332:
329:
330: --Call to table-handler
331: LNS_APPROVAL_ACTIONS_PKG.Delete_Row (P_ACTION_ID => p_action_id);
332:
333: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_approval_action procedure: After call to LNS_APPROVAL_ACTIONS_PKG.Delete_Row');
334:
335: END do_delete_approval_action;
336:
337: PROCEDURE validate_loan (
567:
568: BEGIN
569: l_last_api_called := '';
570: l_approval_action_rec := p_approval_action_rec;
571: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
572: -- standard start of API savepoint
573: SAVEPOINT create_approval_action;
574:
575: -- initialize message list if p_init_msg_list is set to TRUE.
587: dbms_lob.open(g_last_all_statements, dbms_lob.lob_readwrite);
588:
589: -- init;
590:
591: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to do_create_approval_action proc');
592: -- call to business logic.
593: IF l_approval_action_rec.action_type <> 'APPROVE_SINGLE' THEN
594: do_create_approval_action(l_approval_action_rec
595: ,x_action_id
595: ,x_action_id
596: ,x_return_status);
597:
598: END IF;
599: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to do_create_approval_action proc');
600: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_LOAN_HEADER_PUB.update_loan proc');
601: OPEN C_Get_Loan_Info(l_approval_action_rec.loan_id);
602: FETCH C_Get_Loan_Info
603: INTO l_object_version_number
596: ,x_return_status);
597:
598: END IF;
599: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to do_create_approval_action proc');
600: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_LOAN_HEADER_PUB.update_loan proc');
601: OPEN C_Get_Loan_Info(l_approval_action_rec.loan_id);
602: FETCH C_Get_Loan_Info
603: INTO l_object_version_number
604: ,l_status
639: IF l_status = 'INCOMPLETE' THEN
640: l_loan_header_rec.loan_status := 'PENDING';
641: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
642:
643: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to generate bill for SubmtForApproval Fee');
644:
645: LNS_BILLING_BATCH_PUB.BILL_SING_LOAN_SUBMIT_APPR_FEE(P_API_VERSION => 1.0
646: ,P_INIT_MSG_LIST => FND_API.G_TRUE
647: ,P_COMMIT => FND_API.G_FALSE
652: ,X_MSG_COUNT => x_msg_count
653: ,X_MSG_DATA => x_msg_data);
654:
655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
656: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_BILLING_BATCH_PUB.BILL_SUBMIT_APPROVAL_FEE failed with status ' || x_return_status);
657:
658: l_last_api_called := 'LNS_BILLING_BATCH_PUB.BILL_SUBMIT_APPROVAL_FEE';
659: RAISE FND_API.G_EXC_ERROR;
660:
664: fetch get_statement_cur into l_statement_xml;
665: close get_statement_cur;
666:
667: IF (l_statement_xml IS NULL) THEN
668: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'There is no xml for Bill Statement');
669: ELSE
670: /* remove xml header */
671: l_offset := DBMS_LOB.INSTR(lob_loc => l_statement_xml,
672: pattern => '>',
671: l_offset := DBMS_LOB.INSTR(lob_loc => l_statement_xml,
672: pattern => '>',
673: offset => 1,
674: nth => 1);
675: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Have removed header from the statement');
676: dbms_lob.Append(g_last_all_statements, l_statement_xml);
677: END IF;
678:
679: END IF;
696: END IF;
697:
698: ELSIF (l_approval_action_rec.action_type = 'SUBMIT_FOR_CNCL') THEN
699: IF (l_loan_class_code = 'DIRECT') THEN
700: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
701:
702: LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE(P_API_VERSION => 1.0
703: ,P_INIT_MSG_LIST => FND_API.G_TRUE
704: ,P_COMMIT => FND_API.G_FALSE
707: ,X_RETURN_STATUS => x_return_status
708: ,X_MSG_COUNT => x_msg_count
709: ,X_MSG_DATA => x_msg_data);
710:
711: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
715: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
710:
711: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
715: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718: ELSE
757:
758: -- approval action type = 'APPROVE'
759: ELSIF l_status = 'PENDING_CANCELLATION' THEN
760:
761: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
762:
763: LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB(P_API_VERSION => 1.0
764: ,P_INIT_MSG_LIST => FND_API.G_TRUE
765: ,P_COMMIT => FND_API.G_FALSE
768: ,X_RETURN_STATUS => x_return_status
769: ,X_MSG_COUNT => x_msg_count
770: ,X_MSG_DATA => x_msg_data);
771:
772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
773:
774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
775: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
776: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
771:
772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
773:
774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
775: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
776: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779:
780: -- approval action type = 'APPROVE'
781: ELSIF (l_status = 'ACTIVE' AND l_current_phase = 'OPEN' AND l_multiple_funding_flag = 'Y' AND l_open_to_term_flag = 'Y') THEN
782:
783: /**********************Begin Permanent Conversion to Term Phase*************/
784: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling LNS_FINANCIALS.shiftLoanDates');
785:
786: -- we are moving the loan to the TERM PHASE -- first shift the dates based on conversion date
787: -- Bug#6169438 Added new parameter to the shiftLoanDates API Invocation
788: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
794: ,x_msg_count => x_msg_count
795: ,x_msg_data => x_msg_data);
796:
797: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
798: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - LNS_FINANCIALS.shiftLoanDates failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
799: l_last_api_called := 'LNS_FINANCIALS.shiftLoanDates';
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
799: l_last_api_called := 'LNS_FINANCIALS.shiftLoanDates';
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New loan start date: ' || l_loan_details.loan_start_date);
804: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New first payment date: ' || l_loan_details.first_payment_Date);
805: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New maturity date: ' || l_loan_details.maturity_date);
806:
807: /* query term version */
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New loan start date: ' || l_loan_details.loan_start_date);
804: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New first payment date: ' || l_loan_details.first_payment_Date);
805: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New maturity date: ' || l_loan_details.maturity_date);
806:
807: /* query term version */
808: open term_version_cur(l_loan_header_rec.loan_id);
801: END IF;
802:
803: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New loan start date: ' || l_loan_details.loan_start_date);
804: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New first payment date: ' || l_loan_details.first_payment_Date);
805: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'New maturity date: ' || l_loan_details.maturity_date);
806:
807: /* query term version */
808: open term_version_cur(l_loan_header_rec.loan_id);
809: fetch term_version_cur into l_TERM_ID, l_TERM_VERSION_NUMBER;
814: l_term_rec.LOAN_ID := l_loan_header_rec.loan_id;
815: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
816: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
817:
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Updating lns_terms w following values:');
819: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'TERM_ID: ' || l_term_rec.TERM_ID);
820: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
815: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
816: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
817:
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Updating lns_terms w following values:');
819: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'TERM_ID: ' || l_term_rec.TERM_ID);
820: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
823:
816: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
817:
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Updating lns_terms w following values:');
819: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'TERM_ID: ' || l_term_rec.TERM_ID);
820: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
823:
824: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER
817:
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Updating lns_terms w following values:');
819: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'TERM_ID: ' || l_term_rec.TERM_ID);
820: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
823:
824: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER
825: ,p_init_msg_list => FND_API.G_FALSE
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Updating lns_terms w following values:');
819: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'TERM_ID: ' || l_term_rec.TERM_ID);
820: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
823:
824: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER
825: ,p_init_msg_list => FND_API.G_FALSE
826: ,p_loan_term_rec => l_term_rec
827: ,X_RETURN_STATUS => x_return_status
828: ,X_MSG_COUNT => x_msg_count
829: ,X_MSG_DATA => x_msg_data);
830:
831: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'x_return_status: ' || x_return_status);
832:
833: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
834: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully update LNS_TERMS');
835: ELSE
830:
831: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'x_return_status: ' || x_return_status);
832:
833: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
834: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully update LNS_TERMS');
835: ELSE
836: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
837: FND_MSG_PUB.Add;
838: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - LNS_TERMS_PUB.update_term failed with message: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
834: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully update LNS_TERMS');
835: ELSE
836: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
837: FND_MSG_PUB.Add;
838: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - LNS_TERMS_PUB.update_term failed with message: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
839: l_last_api_called := 'LNS_TERMS_PUB.update_term';
840: RAISE FND_API.G_EXC_ERROR;
841: END IF;
842:
847: l_loan_header_rec.secondary_status := 'CONVERTED_TO_TERM_PHASE';
848: l_loan_header_rec.LAST_PAYMENT_NUMBER := FND_API.G_MISS_NUM;
849: l_loan_header_rec.LAST_AMORTIZATION_ID := FND_API.G_MISS_NUM;
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
848: l_loan_header_rec.LAST_PAYMENT_NUMBER := FND_API.G_MISS_NUM;
849: l_loan_header_rec.LAST_AMORTIZATION_ID := FND_API.G_MISS_NUM;
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
849: l_loan_header_rec.LAST_AMORTIZATION_ID := FND_API.G_MISS_NUM;
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
858: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
858: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
859:
852: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'loan_id: ' || l_loan_header_rec.loan_id);
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
858: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
859:
860: /* Bug#9255294 - No need to call this now, as the below method inserts records of conversionFees into feeSchds table
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
858: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
859:
860: /* Bug#9255294 - No need to call this now, as the below method inserts records of conversionFees into feeSchds table
861: However, now the conversionFees insert into feeScheds when this fee is assigned to the loan
854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
855: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'current_phase: ' || l_loan_header_rec.current_phase);
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'secondary_status: ' || l_loan_header_rec.secondary_status);
857: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
858: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
859:
860: /* Bug#9255294 - No need to call this now, as the below method inserts records of conversionFees into feeSchds table
861: However, now the conversionFees insert into feeScheds when this fee is assigned to the loan
862:
860: /* Bug#9255294 - No need to call this now, as the below method inserts records of conversionFees into feeSchds table
861: However, now the conversionFees insert into feeScheds when this fee is assigned to the loan
862:
863: --Process Conversion Fees
864: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before calling lns_fee_engine.processDisbursementFees to process Conversion fees for permanent conversion to TERM phase');
865: lns_fee_engine.processDisbursementFees(p_init_msg_list => FND_API.G_TRUE
866: ,p_commit => FND_API.G_FALSE
867: ,p_phase => 'TERM'
868: ,p_loan_id => l_loan_header_rec.loan_id
870: ,x_return_status => x_return_status
871: ,x_msg_count => x_msg_count
872: ,x_msg_data => x_msg_data);
873:
874: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - lns_fee_engine.processDisbursementFees to process Conversion fees for permanent conversion to TERM phase');
875:
876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
877: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - lns_fee_engine.processDisbursementFees to process Conversion fees for TERM phase failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
878: l_last_api_called := 'lns_fee_engine.processDisbursementFees';
873:
874: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - lns_fee_engine.processDisbursementFees to process Conversion fees for permanent conversion to TERM phase');
875:
876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
877: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - lns_fee_engine.processDisbursementFees to process Conversion fees for TERM phase failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
878: l_last_api_called := 'lns_fee_engine.processDisbursementFees';
879: RAISE FND_API.G_EXC_ERROR;
880: END IF;
881: */
892: IF ( l_status = 'PENDING' OR (l_status = 'INCOMPLETE' AND l_loan_needs_approval = 'N') ) THEN
893: l_loan_header_rec.loan_status := 'REJECTED';
894: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
895: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
896: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
897:
898: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
899: ,P_INIT_MSG_LIST => FND_API.G_TRUE
900: ,P_COMMIT => FND_API.G_FALSE
903: ,X_RETURN_STATUS => x_return_status
904: ,X_MSG_COUNT => x_msg_count
905: ,X_MSG_DATA => x_msg_data);
906:
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
908:
909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
911: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
906:
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
908:
909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
911: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914: ELSIF (l_status = 'ACTIVE' and l_secondary_status = 'PENDING_CONVERSION') THEN
932: ELSIF l_status = 'PENDING' THEN
933: l_loan_header_rec.loan_status := 'INCOMPLETE';
934:
935: /* Bug#8937530get Billed and Reversed 'Submit For Approval' Fees using getSubmitForApprFeeSchedule*/
936: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling Billed LNS_FEES_ENGINE.getSubmitForApprFeeSchedule...');
937:
938: LNS_FEE_ENGINE.getSubmitForApprFeeSchedule(p_init_msg_list => FND_API.G_TRUE,
939: p_loan_Id => l_approval_action_rec.loan_id,
940: p_billed_flag => 'Y',
942: X_RETURN_STATUS => l_return_status,
943: X_MSG_COUNT => l_msg_count,
944: X_MSG_DATA => l_msg_data);
945:
946: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data: ' || substr(l_msg_data,1,225));
948:
949: if l_return_status <> 'S' then
950: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed in API LNS_FEES_ENGINE.getSubmitForApprFeeSchedule');
943: X_MSG_COUNT => l_msg_count,
944: X_MSG_DATA => l_msg_data);
945:
946: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data: ' || substr(l_msg_data,1,225));
948:
949: if l_return_status <> 'S' then
950: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed in API LNS_FEES_ENGINE.getSubmitForApprFeeSchedule');
951: RAISE FND_API.G_EXC_ERROR;
946: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data: ' || substr(l_msg_data,1,225));
948:
949: if l_return_status <> 'S' then
950: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed in API LNS_FEES_ENGINE.getSubmitForApprFeeSchedule');
951: RAISE FND_API.G_EXC_ERROR;
952: end if;
953:
954: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Toal No. of Eligible Billed and Reversed SubmitApproval Fees are: ' || l_fee_tbl.count);
950: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed in API LNS_FEES_ENGINE.getSubmitForApprFeeSchedule');
951: RAISE FND_API.G_EXC_ERROR;
952: end if;
953:
954: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Toal No. of Eligible Billed and Reversed SubmitApproval Fees are: ' || l_fee_tbl.count);
955:
956: FOR l_Count IN 1..l_fee_tbl.count LOOP
957: LNS_FEE_SCHEDULES_PKG.UPDATE_ROW(P_FEE_SCHEDULE_ID => l_fee_tbl(l_Count).fee_schedule_id
958: ,P_FEE_ID => null
969: ,P_LAST_UPDATE_LOGIN => LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
970: ,P_PROGRAM_ID => null
971: ,P_REQUEST_ID => null
972: ,P_OBJECT_VERSION_NUMBER => null);
973: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' fee_schedule_id : '|| l_fee_tbl(l_Count).fee_schedule_id||' updated succesfully ');
974:
975: END LOOP;
976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Toal No. of Billed and Reversed SubmitApproval Fees are: ' || l_fee_tbl.count);
977:
972: ,P_OBJECT_VERSION_NUMBER => null);
973: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' fee_schedule_id : '|| l_fee_tbl(l_Count).fee_schedule_id||' updated succesfully ');
974:
975: END LOOP;
976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Toal No. of Billed and Reversed SubmitApproval Fees are: ' || l_fee_tbl.count);
977:
978: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Uncompleting all custom conditions...');
979: update LNS_COND_ASSIGNMENTS
980: set CONDITION_MET_FLAG = 'N',
974:
975: END LOOP;
976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Toal No. of Billed and Reversed SubmitApproval Fees are: ' || l_fee_tbl.count);
977:
978: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Uncompleting all custom conditions...');
979: update LNS_COND_ASSIGNMENTS
980: set CONDITION_MET_FLAG = 'N',
981: FULFILLMENT_DATE = null,
982: FULFILLMENT_UPDATED_BY = null
988: (select CONDITION_ID
989: from LNS_CONDITIONS
990: where CONDITION_TYPE = 'APPROVAL'
991: and CUSTOM_PROCEDURE is not null);
992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
993:
994:
995: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
996: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
993:
994:
995: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
996: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
997:
998: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
999: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1000: ,P_COMMIT => FND_API.G_FALSE
1003: ,X_RETURN_STATUS => x_return_status
1004: ,X_MSG_COUNT => x_msg_count
1005: ,X_MSG_DATA => x_msg_data);
1006:
1007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
1008:
1009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
1011: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
1006:
1007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
1008:
1009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
1011: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1028: ELSIF (l_approval_action_rec.action_type = 'APPROVE_SINGLE') THEN
1029: -- Create an Approval Actions with 'APPROVE'
1030:
1031: IF (l_status = 'PENDING' ) THEN
1032: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Approval Action created for action_type = APPROVE_SINGLE');
1033: --Change Action Type = 'APPROVE' instead of current value of 'APPROVE_SINGLE'
1034: l_approval_action_rec.action_type := 'APPROVE';
1035: do_create_approval_action(l_approval_action_rec
1036: ,x_action_id
1035: do_create_approval_action(l_approval_action_rec
1036: ,x_action_id
1037: ,x_return_status);
1038: ELSE
1039: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Incorrect Loan status ' || l_status || ' for action_type = APPROVE_SINGLE');
1040: END IF;
1041: END IF;
1042:
1043: /* 08-12-2005 raverma added defaultDistributions call for DIRECT loan */
1057: CLOSE cur_getApprDistCount;
1058:
1059: IF (l_appr_dist_cnt < 2) THEN
1060:
1061: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - before default distributions');
1062: Lns_distributions_pub.defaultDistributions(p_api_version => 1.0
1063: ,p_init_msg_list => FND_API.G_TRUE
1064: ,p_commit => FND_API.G_FALSE
1065: ,p_loan_id => l_loan_header_rec.loan_id
1066: ,p_loan_class_code => l_loan_class_code
1067: ,x_return_status => x_return_status
1068: ,x_msg_count => x_msg_count
1069: ,x_msg_data => x_msg_data);
1070: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - after default distributions ' || x_return_status);
1071: END IF;
1072:
1073: -- Bug#9685116 - Only for federal/encumbrance customers, it should do the budgetary_control
1074: -- Bug#10126147 - For Encumbrance also
1074: -- Bug#10126147 - For Encumbrance also
1075: IF (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' OR lns_utility_pub.IS_ENCUM_FIN_ENABLED = 'Y') THEN
1076: begin
1077: l_last_api_called := null;
1078: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'calling lns_distributions_pub.budgetary_control');
1079: lns_distributions_pub.budgetary_control(p_init_msg_list => FND_API.G_FALSE
1080: ,p_commit => FND_API.G_FALSE
1081: ,p_loan_id => l_approval_action_rec.loan_id
1082: ,p_budgetary_control_mode => 'R'
1083: ,x_budgetary_status_code => l_budgetary_status
1084: ,x_return_status => x_return_status
1085: ,x_msg_count => x_msg_count
1086: ,x_msg_data => x_msg_data);
1087: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to Lns_distributions_pub.budgetary_control return status ' || x_return_status);
1088: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'l_budgetary_status' || l_budgetary_status);
1089: --FND_MSG_PUB.initialize;
1090: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1091: RAISE FND_API.G_EXC_ERROR;
1084: ,x_return_status => x_return_status
1085: ,x_msg_count => x_msg_count
1086: ,x_msg_data => x_msg_data);
1087: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to Lns_distributions_pub.budgetary_control return status ' || x_return_status);
1088: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'l_budgetary_status' || l_budgetary_status);
1089: --FND_MSG_PUB.initialize;
1090: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1091: RAISE FND_API.G_EXC_ERROR;
1092:
1091: RAISE FND_API.G_EXC_ERROR;
1092:
1093: else -- BC Call Returned 'S'
1094: if l_budgetary_status = 'ADVISORY' or l_budgetary_status = 'SUCCESS' then
1095: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'budget reserved');
1096: l_loan_header_rec.secondary_status := 'BUDGET_RESERVED';
1097:
1098: elsif l_budgetary_status = 'FAIL' or l_budgetary_status = 'PARTIAL' or l_budgetary_status = 'XLA_ERROR' then
1099: if l_budget_req_approval = 'Y' then
1096: l_loan_header_rec.secondary_status := 'BUDGET_RESERVED';
1097:
1098: elsif l_budgetary_status = 'FAIL' or l_budgetary_status = 'PARTIAL' or l_budgetary_status = 'XLA_ERROR' then
1099: if l_budget_req_approval = 'Y' then
1100: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'budget required: NO BUDGET');
1101: RAISE FND_API.G_EXC_ERROR;
1102: else
1103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NO BUDGET');
1104: FND_MSG_PUB.initialize;
1099: if l_budget_req_approval = 'Y' then
1100: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'budget required: NO BUDGET');
1101: RAISE FND_API.G_EXC_ERROR;
1102: else
1103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'NO BUDGET');
1104: FND_MSG_PUB.initialize;
1105: l_loan_header_rec.secondary_status := 'NO_BUDGET';
1106: end if;
1107:
1125: from lns_terms
1126: where loan_id = l_loan_header_rec.loan_id;
1127:
1128: -- Updating terms
1129: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms...');
1131: END IF;
1132:
1133: l_term_rec.TERM_ID := l_term_id;
1126: where loan_id = l_loan_header_rec.loan_id;
1127:
1128: -- Updating terms
1129: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1130: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms...');
1131: END IF;
1132:
1133: l_term_rec.TERM_ID := l_term_id;
1134: l_term_rec.LOAN_ID := l_loan_header_rec.loan_id;
1141: X_MSG_COUNT => x_msg_count,
1142: X_MSG_DATA => x_msg_data);
1143:
1144:
1145: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || x_return_status);
1146: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148:
1149: ELSE
1146: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148:
1149: ELSE
1150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
1151: END IF;
1152:
1153: end if;
1154:
1151: END IF;
1152:
1153: end if;
1154:
1155: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to submit adjustment request');
1156: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1157:
1158: LNS_BILLING_BATCH_PUB.ADJUST_ORIGINAL_RECEIVABLE(P_API_VERSION => 1.0
1159: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1164: ,X_MSG_COUNT => x_msg_count
1165: ,X_MSG_DATA => x_msg_data);
1166:
1167: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1168: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_BILLING_BATCH_PUB.ADJUST_ORIGINAL_RECEIVABLE failed with status ' || x_return_status);
1169: l_last_api_called := 'LNS_BILLING_BATCH_PUB.ADJUST_ORIGINAL_RECEIVABLE';
1170: RAISE FND_API.G_EXC_ERROR;
1171:
1172: END IF;
1174: -- fix for bug 16278332: set new loan gl_date
1175: open c_gl_date(l_loan_header_rec.loan_id);
1176: fetch c_gl_date into l_loan_header_rec.gl_date;
1177: close c_gl_date;
1178: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'new l_gl_date = ' || l_loan_header_rec.gl_date);
1179:
1180: end if;
1181:
1182: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1181:
1182: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1183:
1184: -- moved the defaultDistributions call to Concurrent Process
1185: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to submit gen distributions request');
1186: l_notify := FND_REQUEST.ADD_NOTIFICATION(FND_GLOBAL.USER_NAME);
1187: --call fnd_request_api....
1188: FND_REQUEST.SET_ORG_ID(MO_GLOBAL.GET_CURRENT_ORG_ID());
1189: l_request_id := FND_REQUEST.SUBMIT_REQUEST('LNS'
1189: l_request_id := FND_REQUEST.SUBMIT_REQUEST('LNS'
1190: ,'LNS_GEN_DIST'
1191: ,'', '', FALSE
1192: ,l_loan_header_rec.loan_id);
1193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - after call to submit gen distributions request ' || l_request_id);
1194:
1195: end if; --END if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1196:
1197: END IF; -- END IF (l_approval_action_rec.action_type = 'APPROVE' and l_loan_header_rec.loan_status = 'ACTIVE' and l_loan_class_code = 'ERS') THEN
1201: (l_loan_header_rec.loan_status = 'ACTIVE' or l_loan_header_rec.loan_status = 'APPROVED')) then
1202:
1203: -- generate Loan Agreement Report
1204: l_last_api_called := 'LNS_REP_UTILS.STORE_LOAN_AGREEMENT';
1205: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_REP_UTILS.STORE_LOAN_AGREEMENT');
1206: LNS_REP_UTILS.STORE_LOAN_AGREEMENT(l_loan_header_rec.loan_id);
1207: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_REP_UTILS.STORE_LOAN_AGREEMENT');
1208: /*
1209: -- begin submit request to generate Loan Agreement Report
1203: -- generate Loan Agreement Report
1204: l_last_api_called := 'LNS_REP_UTILS.STORE_LOAN_AGREEMENT';
1205: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_REP_UTILS.STORE_LOAN_AGREEMENT');
1206: LNS_REP_UTILS.STORE_LOAN_AGREEMENT(l_loan_header_rec.loan_id);
1207: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_REP_UTILS.STORE_LOAN_AGREEMENT');
1208: /*
1209: -- begin submit request to generate Loan Agreement Report
1210: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Before calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1211: l_notify := FND_REQUEST.ADD_NOTIFICATION(FND_GLOBAL.USER_NAME);
1206: LNS_REP_UTILS.STORE_LOAN_AGREEMENT(l_loan_header_rec.loan_id);
1207: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_REP_UTILS.STORE_LOAN_AGREEMENT');
1208: /*
1209: -- begin submit request to generate Loan Agreement Report
1210: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Before calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1211: l_notify := FND_REQUEST.ADD_NOTIFICATION(FND_GLOBAL.USER_NAME);
1212: FND_REQUEST.SET_ORG_ID(MO_GLOBAL.GET_CURRENT_ORG_ID());
1213: -- Bug#5936252 : Invoke the function add_layout to specify the template type,code etc., before submitting request
1214: SELECT
1220: WHERE
1221: language_code = USERENV('LANG');
1222:
1223:
1224: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Before calling FND_REQUEST.ADD_LAYOUT for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1225:
1226: l_xml_output:= fnd_request.add_layout(
1227: template_appl_name => 'LNS',
1228: template_code => 'LNSRPTAG',
1229: template_language => l_iso_language,
1230: template_territory => l_iso_territory,
1231: output_format => 'PDF'
1232: );
1233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' After calling FND_REQUEST.ADD_LAYOUT for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1234:
1235:
1236: l_request_id := FND_REQUEST.SUBMIT_REQUEST('LNS'
1237: ,'LNS_AGREEMENT'
1244: FND_MSG_PUB.Add;
1245: l_last_api_called := 'FND_REQUEST.SUBMIT_REQUEST for Loan Agreement Report Generation';
1246: RAISE FND_API.G_EXC_ERROR;
1247: else
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
1249: end if;
1250:
1251: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' After calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1252: -- end submit request to generate Loan Agreement Report
1247: else
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
1249: end if;
1250:
1251: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' After calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
1252: -- end submit request to generate Loan Agreement Report
1253: */
1254: end if;
1255:
1258: open loan_version_cur(l_loan_header_rec.loan_id);
1259: fetch loan_version_cur into l_object_version_number;
1260: close loan_version_cur;
1261:
1262: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_HEADER_PUB.update_loan');
1263: LNS_LOAN_HEADER_PUB.update_loan(p_init_msg_list => FND_API.G_FALSE
1264: ,p_loan_header_rec => l_loan_header_rec
1265: ,p_object_version_number => l_object_version_number
1266: ,x_return_status => x_return_status
1265: ,p_object_version_number => l_object_version_number
1266: ,x_return_status => x_return_status
1267: ,x_msg_count => x_msg_count
1268: ,x_msg_data => x_msg_data);
1269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan proc');
1270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1273: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1266: ,x_return_status => x_return_status
1267: ,x_msg_count => x_msg_count
1268: ,x_msg_data => x_msg_data);
1269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan proc');
1270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1273: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1268: ,x_msg_data => x_msg_data);
1269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan proc');
1270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1273: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276:
1277: -- activate loan if BILL_ON_APPR_AMOUNT_FLAG = 'Y'
1278: open c_get_bill_opt(l_loan_header_rec.loan_id);
1279: fetch c_get_bill_opt into l_bill_on_appr_amounts;
1280: close c_get_bill_opt;
1281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
1282:
1283: IF (l_bill_on_appr_amounts = 'Y' and
1284: l_approval_action_rec.action_type = 'APPROVE' and
1285: l_loan_header_rec.loan_status = 'APPROVED' and
1293: l_loan_header_rec := null;
1294: l_loan_header_rec.loan_id := l_approval_action_rec.loan_id;
1295: l_loan_header_rec.loan_status := 'ACTIVE';
1296:
1297: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_HEADER_PUB.update_loan 2');
1298: LNS_LOAN_HEADER_PUB.update_loan(p_init_msg_list => FND_API.G_FALSE
1299: ,p_loan_header_rec => l_loan_header_rec
1300: ,p_object_version_number => l_object_version_number
1301: ,x_return_status => x_return_status
1300: ,p_object_version_number => l_object_version_number
1301: ,x_return_status => x_return_status
1302: ,x_msg_count => x_msg_count
1303: ,x_msg_data => x_msg_data);
1304: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan 2 proc');
1305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1306: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1307: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1308: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1301: ,x_return_status => x_return_status
1302: ,x_msg_count => x_msg_count
1303: ,x_msg_data => x_msg_data);
1304: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan 2 proc');
1305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1306: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1307: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1308: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ,x_msg_data => x_msg_data);
1304: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan 2 proc');
1305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - x_return_status = ' || x_return_status);
1306: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1307: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
1308: l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
1309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1310: END IF;
1311:
1312: END IF;
1313:
1314: END IF;
1315:
1316: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - End ');
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'before rollback');
1316: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - End ');
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'before rollback');
1321: ROLLBACK TO create_approval_action;
1322: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'after rollback');
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: if l_last_api_called is not null then
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'before rollback');
1321: ROLLBACK TO create_approval_action;
1322: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'after rollback');
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: if l_last_api_called is not null then
1325: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1326: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1398: l_approval_action_rec APPROVAL_ACTION_REC_TYPE;
1399: l_old_approval_action_rec APPROVAL_ACTION_REC_TYPE;
1400: BEGIN
1401: l_approval_action_rec := p_approval_action_rec;
1402: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_approval_action procedure');
1403:
1404: -- standard start of API savepoint
1405: SAVEPOINT update_approval_action;
1406:
1425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: END IF;
1428:
1429: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_approval_action procedure: Before call to do_update_approval_action proc');
1430:
1431: -- call to business logic.
1432: do_update_approval_action(
1433: l_approval_action_rec,
1433: l_approval_action_rec,
1434: p_object_version_number,
1435: x_return_status);
1436:
1437: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_approval_action procedure: After call to do_update_approval_action proc');
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: ROLLBACK TO update_approval_action;
1460: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1461: p_count => x_msg_count,
1462: p_data => x_msg_data);
1463:
1464: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_approval_action procedure');
1465:
1466: END update_approval_action;
1467:
1468: /*===========================================================================+
1505: l_action_id NUMBER;
1506:
1507: BEGIN
1508: l_action_id := p_action_id;
1509: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Delete_approval_action procedure');
1510:
1511: -- standard start of API savepoint
1512: SAVEPOINT delete_approval_action;
1513:
1518:
1519: -- initialize API return status to success.
1520: x_return_status := FND_API.G_RET_STS_SUCCESS;
1521:
1522: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_approval_action procedure: Before call to do_delete_approval_action proc');
1523:
1524: -- call to business logic.
1525: do_delete_approval_action(
1526: l_action_id,
1525: do_delete_approval_action(
1526: l_action_id,
1527: x_return_status);
1528:
1529: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_approval_action procedure: After call to do_delete_approval_action proc');
1530:
1531: EXCEPTION
1532: WHEN FND_API.G_EXC_ERROR THEN
1533: ROLLBACK TO delete_approval_action;
1552: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1553: p_count => x_msg_count,
1554: p_data => x_msg_data);
1555:
1556: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Delete_approval_action procedure');
1557:
1558: END delete_approval_action;
1559:
1560:
1664: (end_date_active is null or trunc(end_date_active) > trunc(sysdate));
1665:
1666: BEGIN
1667:
1668: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
1669:
1670: -- Standard start of API savepoint
1671: SAVEPOINT APPROVE_ADD_RECEIVABLE;
1672: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
1668: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
1669:
1670: -- Standard start of API savepoint
1671: SAVEPOINT APPROVE_ADD_RECEIVABLE;
1672: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
1673:
1674: -- Standard call to check for call compatibility
1675: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1685: l_return_status := FND_API.G_RET_STS_SUCCESS;
1686:
1687: -- START OF BODY OF API
1688:
1689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_LINE_ID = ' || P_LOAN_LINE_ID);
1690:
1691: /* verify input parameters */
1692: if P_LOAN_LINE_ID is null then
1693:
1693:
1694: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1695: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_LINE_ID' );
1696: FND_MSG_PUB.Add;
1697: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1698: RAISE FND_API.G_EXC_ERROR;
1699:
1700: end if;
1701:
1709: FND_MSG_PUB.Add;
1710: RAISE FND_API.G_EXC_ERROR;
1711: end if;
1712:
1713: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_BILLING_BATCH_PUB.ADJUST_ADD_RECEIVABLE...');
1714: LNS_BILLING_BATCH_PUB.ADJUST_ADD_RECEIVABLE(P_API_VERSION => 1.0
1715: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1716: ,P_COMMIT => FND_API.G_FALSE
1717: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
1719: ,X_RETURN_STATUS => l_return_status
1720: ,X_MSG_COUNT => l_msg_count
1721: ,X_MSG_DATA => l_msg_data);
1722:
1723: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
1724: IF l_return_status <> 'S' THEN
1725: RAISE FND_API.G_EXC_ERROR;
1726: END IF;
1727:
1745: ,P_LOAN_LINE_ID => P_LOAN_LINE_ID
1746: ,X_RETURN_STATUS => l_return_status
1747: ,X_MSG_COUNT => l_msg_count
1748: ,X_MSG_DATA => l_msg_data);
1749: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
1750: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_count = ' || l_msg_count);
1751: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data = ' || l_msg_data);
1752: IF l_return_status <> 'S' THEN
1753: RAISE FND_API.G_EXC_ERROR;
1746: ,X_RETURN_STATUS => l_return_status
1747: ,X_MSG_COUNT => l_msg_count
1748: ,X_MSG_DATA => l_msg_data);
1749: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
1750: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_count = ' || l_msg_count);
1751: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data = ' || l_msg_data);
1752: IF l_return_status <> 'S' THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: END IF;
1747: ,X_MSG_COUNT => l_msg_count
1748: ,X_MSG_DATA => l_msg_data);
1749: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
1750: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_count = ' || l_msg_count);
1751: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data = ' || l_msg_data);
1752: IF l_return_status <> 'S' THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: END IF;
1755:
1764: then
1765: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
1766: end if;
1767:
1768: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating loan header info w following values:');
1769: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS: ' || l_loan_header_rec.LOAN_STATUS);
1770: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'funded_amount: ' || l_loan_header_rec.funded_amount);
1771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_REQUESTED_AMOUNT: ' || l_loan_header_rec.ADD_REQUESTED_AMOUNT);
1772:
1765: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
1766: end if;
1767:
1768: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating loan header info w following values:');
1769: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS: ' || l_loan_header_rec.LOAN_STATUS);
1770: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'funded_amount: ' || l_loan_header_rec.funded_amount);
1771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_REQUESTED_AMOUNT: ' || l_loan_header_rec.ADD_REQUESTED_AMOUNT);
1772:
1773: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version_number,
1766: end if;
1767:
1768: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating loan header info w following values:');
1769: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS: ' || l_loan_header_rec.LOAN_STATUS);
1770: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'funded_amount: ' || l_loan_header_rec.funded_amount);
1771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_REQUESTED_AMOUNT: ' || l_loan_header_rec.ADD_REQUESTED_AMOUNT);
1772:
1773: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version_number,
1774: P_LOAN_HEADER_REC => l_loan_header_rec,
1767:
1768: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating loan header info w following values:');
1769: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS: ' || l_loan_header_rec.LOAN_STATUS);
1770: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'funded_amount: ' || l_loan_header_rec.funded_amount);
1771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_REQUESTED_AMOUNT: ' || l_loan_header_rec.ADD_REQUESTED_AMOUNT);
1772:
1773: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version_number,
1774: P_LOAN_HEADER_REC => l_loan_header_rec,
1775: P_INIT_MSG_LIST => FND_API.G_FALSE,
1776: X_RETURN_STATUS => l_return_status,
1777: X_MSG_COUNT => l_msg_count,
1778: X_MSG_DATA => l_msg_data);
1779:
1780: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
1781:
1782: IF l_return_status <> 'S' THEN
1783: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
1784: FND_MSG_PUB.Add;
1781:
1782: IF l_return_status <> 'S' THEN
1783: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
1784: FND_MSG_PUB.Add;
1785: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1786: RAISE FND_API.G_EXC_ERROR;
1787: END IF;
1788:
1789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_AGR_REASON');
1798: LNS_REP_UTILS.STORE_LOAN_AGREEMENT_CP(l_loan_id, l_agreement_reason);
1799:
1800: if P_COMMIT = FND_API.G_TRUE then
1801: COMMIT WORK;
1802: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Commited');
1803: end if;
1804:
1805: -- END OF BODY OF API
1806: x_return_status := FND_API.G_RET_STS_SUCCESS;
1804:
1805: -- END OF BODY OF API
1806: x_return_status := FND_API.G_RET_STS_SUCCESS;
1807:
1808: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Successfully approved additional receivable ' || l_trx_number);
1809:
1810: -- Standard call to get message count and if count is 1, get message info
1811: FND_MSG_PUB.Count_And_Get(
1812: p_encoded => FND_API.G_FALSE,
1812: p_encoded => FND_API.G_FALSE,
1813: p_count => x_msg_count,
1814: p_data => x_msg_data);
1815:
1816: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
1817:
1818: EXCEPTION
1819: WHEN FND_API.G_EXC_ERROR THEN
1820: ROLLBACK TO APPROVE_ADD_RECEIVABLE;
1819: WHEN FND_API.G_EXC_ERROR THEN
1820: ROLLBACK TO APPROVE_ADD_RECEIVABLE;
1821: x_return_status := FND_API.G_RET_STS_ERROR;
1822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1823: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
1824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1825: ROLLBACK TO APPROVE_ADD_RECEIVABLE;
1826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1825: ROLLBACK TO APPROVE_ADD_RECEIVABLE;
1826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1828: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
1829: WHEN OTHERS THEN
1830: ROLLBACK TO APPROVE_ADD_RECEIVABLE;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1832: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1832: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1833: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1834: END IF;
1835: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1836: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
1837: END;
1838:
1839:
1840:
1935: (end_date_active is null or trunc(end_date_active) > trunc(sysdate));
1936:
1937: BEGIN
1938:
1939: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
1940:
1941: -- Standard start of API savepoint
1942: SAVEPOINT APPROVE_LOAN_AM_ADJ;
1943: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
1939: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
1940:
1941: -- Standard start of API savepoint
1942: SAVEPOINT APPROVE_LOAN_AM_ADJ;
1943: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
1944:
1945: -- Standard call to check for call compatibility
1946: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1956: l_return_status := FND_API.G_RET_STS_SUCCESS;
1957:
1958: -- START OF BODY OF API
1959:
1960: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_AMOUNT_ADJ_ID = ' || P_LOAN_AMOUNT_ADJ_ID);
1961:
1962: /* verify input parameters */
1963: if P_LOAN_AMOUNT_ADJ_ID is null then
1964:
1964:
1965: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1966: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_AMOUNT_ADJ_ID' );
1967: FND_MSG_PUB.Add;
1968: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1969: RAISE FND_API.G_EXC_ERROR;
1970:
1971: end if;
1972:
2001: LNS_REP_UTILS.STORE_LOAN_AGREEMENT_CP(l_loan_id, l_agreement_reason);
2002:
2003: if P_COMMIT = FND_API.G_TRUE then
2004: COMMIT WORK;
2005: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Commited');
2006: end if;
2007:
2008: -- END OF BODY OF API
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2007:
2008: -- END OF BODY OF API
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2010:
2011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Successfully loan amount adjustment ' || l_DESCRIPTION);
2012:
2013: -- Standard call to get message count and if count is 1, get message info
2014: FND_MSG_PUB.Count_And_Get(
2015: p_encoded => FND_API.G_FALSE,
2015: p_encoded => FND_API.G_FALSE,
2016: p_count => x_msg_count,
2017: p_data => x_msg_data);
2018:
2019: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2020:
2021: EXCEPTION
2022: WHEN FND_API.G_EXC_ERROR THEN
2023: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2022: WHEN FND_API.G_EXC_ERROR THEN
2023: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2026: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2028: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2030: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2028: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2030: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2031: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2032: WHEN OTHERS THEN
2033: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2035: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2035: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2036: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2037: END IF;
2038: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2040: END;
2041:
2042:
2043: /*========================================================================
2083:
2084:
2085:
2086: BEGIN
2087: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2088: l_transaction_type := FND_PROFILE.value('LNS_AME_TRANSACTION_TYPE');
2089: l_result := 'N';
2090:
2091:
2090:
2091:
2092:
2093: -- START OF BODY OF API
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOGGED_IN_USER_NAME: ' || P_LOGGED_IN_USER_NAME);
2097:
2098: l_is_ame_profile_set := fnd_profile.value('AME_INSTALLED_FLAG');
2091:
2092:
2093: -- START OF BODY OF API
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOGGED_IN_USER_NAME: ' || P_LOGGED_IN_USER_NAME);
2097:
2098: l_is_ame_profile_set := fnd_profile.value('AME_INSTALLED_FLAG');
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Is AME_INSTALLED_FLAG set : ' || l_is_ame_profile_set);
2092:
2093: -- START OF BODY OF API
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOGGED_IN_USER_NAME: ' || P_LOGGED_IN_USER_NAME);
2097:
2098: l_is_ame_profile_set := fnd_profile.value('AME_INSTALLED_FLAG');
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Is AME_INSTALLED_FLAG set : ' || l_is_ame_profile_set);
2100:
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOGGED_IN_USER_NAME: ' || P_LOGGED_IN_USER_NAME);
2097:
2098: l_is_ame_profile_set := fnd_profile.value('AME_INSTALLED_FLAG');
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Is AME_INSTALLED_FLAG set : ' || l_is_ame_profile_set);
2100:
2101: --The below api wont work for us as it gets the next non-notified approver.
2102: /* ame_api2.getNextApprovers4(
2103: applicationIdIn => 206 ,
2114: transactionIdIn => p_loan_id,
2115: approvalProcessCompleteYNOut => l_approval_complete,
2116: approversOut => l_next_approver);
2117:
2118: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After calling ame_api2.getPendingApprovers');
2119: i := 1;
2120:
2121: --GPARUCHU - The following approach is for serial mode of approvals. For parallel approvals we should loop
2122: --around the l_next_approver and find if the current logged in user is same as any of the notified
2124:
2125: IF (l_next_approver.count < 1)
2126: THEN
2127: -- no more approvers left
2128: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'No Approvers Found');
2129: RETURN l_result;
2130: ELSE
2131: l_next_approver_name := l_next_approver(i).name;
2132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Next Approver User Name : ' || l_next_approver_name);
2128: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'No Approvers Found');
2129: RETURN l_result;
2130: ELSE
2131: l_next_approver_name := l_next_approver(i).name;
2132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Next Approver User Name : ' || l_next_approver_name);
2133:
2134: END IF;
2135:
2136: IF NVL(l_is_ame_profile_set,'N') = 'Y' AND p_logged_in_user_name = l_next_approver_name
2139: ELSE
2140: l_result := 'N';
2141: END IF;
2142:
2143: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned Value : ' || l_result);
2144: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2145: return l_result;
2146:
2147: EXCEPTION
2140: l_result := 'N';
2141: END IF;
2142:
2143: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned Value : ' || l_result);
2144: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2145: return l_result;
2146:
2147: EXCEPTION
2148: WHEN OTHERS THEN
2145: return l_result;
2146:
2147: EXCEPTION
2148: WHEN OTHERS THEN
2149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_APPROVAL_ACTION_PUB.IS_AME_ENABLED: Unexpected ERROR in the function call. SQLERRM is: ' || SQLERRM);
2151: END IF;
2152:
2153: return l_result;
2146:
2147: EXCEPTION
2148: WHEN OTHERS THEN
2149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_APPROVAL_ACTION_PUB.IS_AME_ENABLED: Unexpected ERROR in the function call. SQLERRM is: ' || SQLERRM);
2151: END IF;
2152:
2153: return l_result;
2154:
2221:
2222:
2223: BEGIN
2224:
2225: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2226:
2227: -- START OF BODY OF API
2228:
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2225: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2226:
2227: -- START OF BODY OF API
2228:
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2230: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_ACTION_TYPE = ' || P_ACTION_TYPE);
2231: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_MESSAGE_NAME = ' || P_MESSAGE_NAME);
2232: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_CURRENT_APPROVER = ' || P_CURRENT_APPROVER);
2233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_NOTES = ' || P_NOTES);
2226:
2227: -- START OF BODY OF API
2228:
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2230: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_ACTION_TYPE = ' || P_ACTION_TYPE);
2231: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_MESSAGE_NAME = ' || P_MESSAGE_NAME);
2232: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_CURRENT_APPROVER = ' || P_CURRENT_APPROVER);
2233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_NOTES = ' || P_NOTES);
2234:
2227: -- START OF BODY OF API
2228:
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2230: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_ACTION_TYPE = ' || P_ACTION_TYPE);
2231: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_MESSAGE_NAME = ' || P_MESSAGE_NAME);
2232: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_CURRENT_APPROVER = ' || P_CURRENT_APPROVER);
2233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_NOTES = ' || P_NOTES);
2234:
2235: /* verify input parameters */
2228:
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2230: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_ACTION_TYPE = ' || P_ACTION_TYPE);
2231: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_MESSAGE_NAME = ' || P_MESSAGE_NAME);
2232: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_CURRENT_APPROVER = ' || P_CURRENT_APPROVER);
2233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_NOTES = ' || P_NOTES);
2234:
2235: /* verify input parameters */
2236: if P_LOAN_NUMBER is null then
2229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_LOAN_NUMBER = ' || P_LOAN_NUMBER);
2230: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_ACTION_TYPE = ' || P_ACTION_TYPE);
2231: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_MESSAGE_NAME = ' || P_MESSAGE_NAME);
2232: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_CURRENT_APPROVER = ' || P_CURRENT_APPROVER);
2233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input P_NOTES = ' || P_NOTES);
2234:
2235: /* verify input parameters */
2236: if P_LOAN_NUMBER is null then
2237:
2237:
2238: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2239: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_NUMBER' );
2240: FND_MSG_PUB.Add;
2241: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
2242: RAISE FND_API.G_EXC_ERROR;
2243:
2244: end if;
2245:
2247:
2248: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2249: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_ACTION_TYPE' );
2250: FND_MSG_PUB.Add;
2251: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
2252: RAISE FND_API.G_EXC_ERROR;
2253:
2254: end if;
2255:
2257:
2258: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2259: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_CURRENT_APPROVER' );
2260: FND_MSG_PUB.Add;
2261: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
2262: RAISE FND_API.G_EXC_ERROR;
2263:
2264: end if;
2265:
2280: open get_notification_id_cur(l_loan_number, P_MESSAGE_NAME, P_CURRENT_APPROVER);
2281: fetch get_notification_id_cur into l_notification_id;
2282: close get_notification_id_cur;
2283:
2284: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Notification Id fetched - '|| l_notification_id);
2285: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before completing the notification activity');
2286:
2287: WF_NOTIFICATION.SETATTRTEXT(l_notification_id,'RESULT',l_action_type);
2288: --Test code to check whether following code captures the notes entered by the user--
2281: fetch get_notification_id_cur into l_notification_id;
2282: close get_notification_id_cur;
2283:
2284: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Notification Id fetched - '|| l_notification_id);
2285: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before completing the notification activity');
2286:
2287: WF_NOTIFICATION.SETATTRTEXT(l_notification_id,'RESULT',l_action_type);
2288: --Test code to check whether following code captures the notes entered by the user--
2289: --WF_NOTIFICATION.SETATTRTEXT(l_notification_id,'LNS_LOAN_NOTE',P_NOTES);
2291: --End Test Code
2292:
2293: WF_NOTIFICATION.RESPOND(l_notification_id,P_NOTES,P_CURRENT_APPROVER);
2294:
2295: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After completing the notification activity');
2296:
2297:
2298: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2299:
2294:
2295: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After completing the notification activity');
2296:
2297:
2298: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2299:
2300: EXCEPTION
2301: WHEN FND_API.G_EXC_ERROR THEN
2302: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_ERROR exception block');
2298: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2299:
2300: EXCEPTION
2301: WHEN FND_API.G_EXC_ERROR THEN
2302: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_ERROR exception block');
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_UNEXPECTED_ERROR exception block');
2305: WHEN OTHERS THEN
2306: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2300: EXCEPTION
2301: WHEN FND_API.G_EXC_ERROR THEN
2302: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_ERROR exception block');
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_UNEXPECTED_ERROR exception block');
2305: WHEN OTHERS THEN
2306: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2307: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'OTHERS exception block');
2308: END;
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'FND_API.G_EXC_UNEXPECTED_ERROR exception block');
2305: WHEN OTHERS THEN
2306: ROLLBACK TO APPROVE_LOAN_AM_ADJ;
2307: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'OTHERS exception block');
2308: END;
2309:
2310: END LNS_APPROVAL_ACTION_PUB;