13: is
14:
15: begin
16:
17: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
18: FND_LOG.STRING(log_level, module, message);
19: END IF;
20:
21: end;
14:
15: begin
16:
17: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
18: FND_LOG.STRING(log_level, module, message);
19: END IF;
20:
21: end;
22:
99: l_last_api_called varchar2(500); --Store the last api that was called before exception
100:
101: BEGIN
102:
103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
104: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_mode: ' || p_mode);
105:
106:
107: l_last_api_called := 'validateParticipant';
100:
101: BEGIN
102:
103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
104: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_mode: ' || p_mode);
105:
106:
107: l_last_api_called := 'validateParticipant';
108: l_participant_id := p_loan_participant_rec.participant_id;
256: end if;
257: end if;
258:
259:
260: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'create participant validation passed OK');
262: END IF;
263:
264: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
257: end if;
258:
259:
260: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'create participant validation passed OK');
262: END IF;
263:
264: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
265:
260: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'create participant validation passed OK');
262: END IF;
263:
264: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
265:
266: EXCEPTION
267: WHEN FND_API.G_EXC_ERROR THEN
268: --ROLLBACK TO validateParticipant;
290: l_msg_data VARCHAR2(2000);
291: l_return_Status VARCHAR2(1);
292: l_api_name CONSTANT VARCHAR2(30) := 'do_create_participant';
293: BEGIN
294: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
295:
296: -- initialize API return status to success.
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
338: );
339: --dbms_output.put_line('after tblH');
340: x_participant_id := p_loan_participant_rec.PARTICIPANT_ID;
341:
342: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
343: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_participant procedure: After call to lns_participants_pkg.Insert_Row');
344: END IF;
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
346:
339: --dbms_output.put_line('after tblH');
340: x_participant_id := p_loan_participant_rec.PARTICIPANT_ID;
341:
342: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
343: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_participant procedure: After call to lns_participants_pkg.Insert_Row');
344: END IF;
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
346:
347: END do_create_participant;
341:
342: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
343: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_participant procedure: After call to lns_participants_pkg.Insert_Row');
344: END IF;
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
346:
347: END do_create_participant;
348:
349:
397:
398:
399: BEGIN
400:
401: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
402:
403: l_init_msg_list := p_init_msg_list;
404: if (l_init_msg_list is null) then
405: l_init_msg_list := FND_API.G_FALSE;
446: FND_MSG_PUB.ADD;
447: RAISE FND_API.G_EXC_ERROR;
448: end if;
449:
450: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In createParticipant: Before call to validateParticipant');
452: END IF;
453: l_last_api_called := 'LNS_PARTICIPANTS_PUB.validateParticipant';
454: validateParticipant(p_loan_participant_rec => p_loan_participant_rec,
447: RAISE FND_API.G_EXC_ERROR;
448: end if;
449:
450: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In createParticipant: Before call to validateParticipant');
452: END IF;
453: l_last_api_called := 'LNS_PARTICIPANTS_PUB.validateParticipant';
454: validateParticipant(p_loan_participant_rec => p_loan_participant_rec,
455: p_mode => 'CREATE',
455: p_mode => 'CREATE',
456: x_return_status => l_return_status,
457: x_msg_count => l_msg_count,
458: x_msg_data => l_msg_data);
459: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In createParticipant: After call to validateParticipant');
461: END IF;
462:
463: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
456: x_return_status => l_return_status,
457: x_msg_count => l_msg_count,
458: x_msg_data => l_msg_data);
459: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In createParticipant: After call to validateParticipant');
461: END IF;
462:
463: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479: if (l_loan_credit_review_flag = 'Y' and l_loan_status = 'INCOMPLETE' and (l_loan_sec_status is null OR l_loan_sec_status NOT IN ('IN_CREDIT_REVIEW','CREDIT_REVIEW_COMPLETE'))) then
480: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling createCreditRequest');
481: l_last_api_called := 'LNS_PARTICIPANTS_PUB.createCreditRequest';
482: createCreditRequest(p_loan_participant_rec => l_loan_participant_rec,
483: x_return_status => l_return_status,
484: x_msg_count => l_msg_count,
485: x_msg_data => l_msg_data);
486: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: end if;
489: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling createCreditRequest');
490:
491: else
492: --default the credit_request_id to -1 for the financial data component
493: l_loan_participant_rec.credit_request_id := -1;
492: --default the credit_request_id to -1 for the financial data component
493: l_loan_participant_rec.credit_request_id := -1;
494: end if; -- end if (l_loan_credit_review_flag = 'Y' and l_loan_status = 'INCOMPLETE' and (l_loan_sec_status is null OR l_loan_sec_status NOT IN ('IN_CREDIT_REVIEW','CREDIT_REVIEW_COMPLETE'))) then
495:
496: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_create_participant procedure');
498: END IF;
499:
500: -- call to business logic.
493: l_loan_participant_rec.credit_request_id := -1;
494: end if; -- end if (l_loan_credit_review_flag = 'Y' and l_loan_status = 'INCOMPLETE' and (l_loan_sec_status is null OR l_loan_sec_status NOT IN ('IN_CREDIT_REVIEW','CREDIT_REVIEW_COMPLETE'))) then
495:
496: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_create_participant procedure');
498: END IF;
499:
500: -- call to business logic.
501: l_last_api_called := 'LNS_PARTICIPANTS_PUB.do_create_participant';
498: END IF;
499:
500: -- call to business logic.
501: l_last_api_called := 'LNS_PARTICIPANTS_PUB.do_create_participant';
502: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling do_create_participant');
503: do_create_participant(
504: l_loan_participant_rec,
505: x_participant_id,
506: x_return_status
505: x_participant_id,
506: x_return_status
507: );
508:
509: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call do_create_participant');
510:
511: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling denormalizePrimaryInfo');
512: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
513: x_return_status => l_return_status,
507: );
508:
509: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call do_create_participant');
510:
511: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling denormalizePrimaryInfo');
512: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
513: x_return_status => l_return_status,
514: x_msg_count => l_msg_count,
515: x_msg_data => l_msg_data);
512: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
513: x_return_status => l_return_status,
514: x_msg_count => l_msg_count,
515: x_msg_data => l_msg_data);
516: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling denormalizePrimaryInfo');
517:
518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
519:
520: Exception
514: x_msg_count => l_msg_count,
515: x_msg_data => l_msg_data);
516: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling denormalizePrimaryInfo');
517:
518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
519:
520: Exception
521: WHEN FND_API.G_EXC_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_ERROR;
561: l_loan_participant_rec loan_participant_rec_type;
562: l_last_api_called varchar2(500); --Store the last api that was called before exception
563: l_api_name CONSTANT VARCHAR2(30) := 'updateParticipant';
564: BEGIN
565: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
566:
567: l_init_msg_list := p_init_msg_list;
568: if (l_init_msg_list is null) then
569: l_init_msg_list := FND_API.G_FALSE;
572: l_last_api_called := 'LNS_PARTICIPANTS_PUB.updateParticipant';
573: l_loan_participant_rec := p_loan_participant_rec;
574: savepoint updateParticipant;
575:
576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin update participant');
578: END IF;
579:
580: -- initialize message list if l_init_msg_list is set to TRUE.
573: l_loan_participant_rec := p_loan_participant_rec;
574: savepoint updateParticipant;
575:
576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin update participant');
578: END IF;
579:
580: -- initialize message list if l_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean(l_init_msg_list) THEN
629: END;
630:
631: if (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
632:
633: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Before calling validateParticipant');
634: l_last_api_called := 'validateParticipant';
635: validateParticipant(p_loan_participant_rec => p_loan_participant_rec,
636: p_mode => 'UPDATE',
637: x_return_status => l_return_status,
640:
641: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: end if;
644: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling validateParticipant');
645:
646: end if; -- end if (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
647:
648:
645:
646: end if; -- end if (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
647:
648:
649: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Before calling LNS_PARTICIPANTS_PKG.Update_Row');
650: l_last_api_called := 'LNS_PARTICIPANTS_PKG.Update_Row';
651: LNS_PARTICIPANTS_PKG.Update_Row(x_rowid => l_rowid
652: ,p_PARTICIPANT_ID => l_loan_participant_rec.PARTICIPANT_ID
653: ,p_LOAN_ID => l_loan_participant_rec.LOAN_ID
686: ,p_CASE_FOLDER_ID => l_loan_participant_rec.CASE_FOLDER_ID
687: ,p_REVIEW_TYPE => l_loan_participant_rec.REVIEW_TYPE
688: ,p_CREDIT_CLASSIFICATION => l_loan_participant_rec.CREDIT_CLASSIFICATION
689: );
690: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'After calling LNS_PARTICIPANTS_PKG.Update_Row');
691:
692: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling denormalizePrimaryInfo');
693: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
694: x_return_status => l_return_status,
688: ,p_CREDIT_CLASSIFICATION => l_loan_participant_rec.CREDIT_CLASSIFICATION
689: );
690: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'After calling LNS_PARTICIPANTS_PKG.Update_Row');
691:
692: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling denormalizePrimaryInfo');
693: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
694: x_return_status => l_return_status,
695: x_msg_count => l_msg_count,
696: x_msg_data => l_msg_data);
693: denormalizePrimaryInfo(p_loan_participant_rec => l_loan_participant_rec,
694: x_return_status => l_return_status,
695: x_msg_count => l_msg_count,
696: x_msg_data => l_msg_data);
697: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling denormalizePrimaryInfo');
698:
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
697: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling denormalizePrimaryInfo');
698:
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
702:
703: Exception
704: WHEN FND_API.G_EXC_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR;
764: LNS_LOAN_HEADERS_ALL
765: WHERE LOAN_ID = pLoanId;
766:
767: BEGIN
768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
769:
770: l_last_api_called := 'LNS_PARTICIPANTS_PUB.createAppealCreditRequest';
771: -- Standard Start of API savepoint
772: SAVEPOINT createAppealCreditRequest;
785: if (l_old_credit_request_id is null) then
786: return;
787: end if;
788:
789: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling ');
790: l_last_api_called := 'LNS_PARTICIPANTS_PUB.createCreditRequest';
791: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
792: createCreditRequest(p_loan_participant_rec => l_loan_participant_rec,
793: x_return_status => l_return_status,
787: end if;
788:
789: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling ');
790: l_last_api_called := 'LNS_PARTICIPANTS_PUB.createCreditRequest';
791: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
792: createCreditRequest(p_loan_participant_rec => l_loan_participant_rec,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
795: x_msg_data => l_msg_data);
796:
797: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: end if;
800: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
801:
802: l_new_credit_request_id := l_loan_participant_rec.credit_request_id;
803: if (l_old_credit_request_id = l_new_credit_request_id) then
804: --new credit request has not been submitted!
805: return;
806: end if;
807:
808: l_last_api_called := 'LNS_PARTICIPANTS_PUB.updateParticipant';
809: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
810: l_object_version := l_loan_participant_rec.object_version_number;
811: updateParticipant(p_init_msg_list => 'T',
812: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
813: p_loan_participant_rec => l_loan_participant_rec,
818:
819: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
821: end if;
822: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
823:
824: l_loan_header_rec.loan_id := l_loan_id;
825: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
826: open C_GET_LOAN_OVN(l_loan_id);
826: open C_GET_LOAN_OVN(l_loan_id);
827: fetch C_GET_LOAN_OVN into l_object_version;
828: close C_GET_LOAN_OVN;
829: l_last_api_called := 'lns_loan_header_pub.update_loan';
830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
831: lns_loan_header_pub.update_loan(p_init_msg_list => FND_API.G_FALSE
832: ,P_LOAN_HEADER_REC => l_loan_header_rec
833: ,P_OBJECT_VERSION_NUMBER => l_object_version
834: ,X_RETURN_STATUS => x_return_status
840: x_msg_data := l_msg_data;
841: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: end if;
844: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
845:
846: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
847:
848:
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: end if;
844: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
845:
846: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
847:
848:
849: EXCEPTION
850: WHEN FND_API.G_EXC_ERROR THEN
913: where loan_id = p_loan_id;
914:
915: BEGIN
916:
917: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
918:
919: l_last_api_called := 'LNS_PARTICIPANTS_PUB.createCreditRequest';
920: l_participant_type := p_loan_participant_rec.LOAN_PARTICIPANT_TYPE;
921: l_loan_id := p_loan_participant_rec.loan_id;
953: --need to call credit request api
954: --if (AR_CMGT_CREDIT_REQUEST_API.IS_CREDIT_MANAGEMENT_INSTALLED = true) then
955:
956: l_last_api_called := 'AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST';
957: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
958: AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST(
959: P_API_VERSION => 1.0
960: ,P_INIT_MSG_LIST => FND_API.G_FALSE
961: ,P_COMMIT => FND_API.G_FALSE
998: ,P_SCORE_MODEL_ID => null
999: ,P_PARENT_CREDIT_REQUEST_ID => l_parent_credit_request_id
1000: ,P_CREDIT_REQUEST_TYPE => l_credit_request_type
1001: );
1002: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
1003:
1004: x_return_status := l_return_status;
1005: x_msg_count := l_msg_count;
1006: x_msg_data := l_msg_data;
1044: and end_date_active is null;
1045:
1046: if (l_parent_credit_request_id is not null) then
1047:
1048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In checkPrimary: Before calling OCM_GUARANTOR_PUB.CREATE_GUARANTOR_CREDITREQUEST api');
1050: END IF;
1051:
1052: --Create Credit Request for Guarantor
1045:
1046: if (l_parent_credit_request_id is not null) then
1047:
1048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In checkPrimary: Before calling OCM_GUARANTOR_PUB.CREATE_GUARANTOR_CREDITREQUEST api');
1050: END IF;
1051:
1052: --Create Credit Request for Guarantor
1053: l_last_api_called := 'OCM_GUARANTOR_PUB.CREATE_GUARANTOR_CREDITREQUEST';
1050: END IF;
1051:
1052: --Create Credit Request for Guarantor
1053: l_last_api_called := 'OCM_GUARANTOR_PUB.CREATE_GUARANTOR_CREDITREQUEST';
1054: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1055: l_guarantor_application_number := l_loan_number;
1056: OCM_GUARANTOR_PUB.CREATE_GUARANTOR_CREDITREQUEST(
1057: P_API_VERSION => 1.0
1058: ,P_INIT_MSG_LIST => FND_API.G_FALSE
1101: ,P_VALUATION_DATE => null
1102: ,P_ACQUISITION_DATE => null
1103: ,P_ASSET_IDENTIFIER => null
1104: );
1105: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
1106:
1107:
1108: x_return_status := l_return_status;
1109: x_msg_count := l_msg_count;
1121: end if; -- if (p_loan_participant_rec.credit_request_id is null) then
1122:
1123: end if; --if (l_participant_type = 'PRIMARY_BORROWER') then
1124:
1125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1126:
1127: EXCEPTION
1128: WHEN FND_API.G_EXC_ERROR THEN
1129: x_return_status := FND_API.G_RET_STS_ERROR;
1176: LNS_LOAN_HEADERS_ALL
1177: WHERE LOAN_ID = pLoanId;
1178:
1179: BEGIN
1180: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1181: l_last_api_called := 'LNS_PARTICIPANTS_PUB.denormalizePrimaryInfo';
1182: l_participant_type := p_loan_participant_rec.LOAN_PARTICIPANT_TYPE;
1183: l_loan_id := p_loan_participant_rec.loan_id;
1184:
1199: open C_GET_LOAN_OVN(l_loan_id);
1200: fetch C_GET_LOAN_OVN into l_object_version;
1201: close C_GET_LOAN_OVN;
1202: l_last_api_called := 'lns_loan_header_pub.update_loan';
1203: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1204: lns_loan_header_pub.update_loan(p_init_msg_list => FND_API.G_FALSE
1205: ,P_LOAN_HEADER_REC => l_loan_header_rec
1206: ,P_OBJECT_VERSION_NUMBER => l_object_version
1207: ,X_RETURN_STATUS => x_return_status
1206: ,P_OBJECT_VERSION_NUMBER => l_object_version
1207: ,X_RETURN_STATUS => x_return_status
1208: ,X_MSG_COUNT => x_msg_count
1209: ,X_MSG_DATA => x_msg_data);
1210: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
1211: x_return_status := l_return_status;
1212: x_msg_count := l_msg_count;
1213: x_msg_data := l_msg_data;
1214: end if; -- end if (l_participant_type = 'PRIMARY_BORROWER') then
1211: x_return_status := l_return_status;
1212: x_msg_count := l_msg_count;
1213: x_msg_data := l_msg_data;
1214: end if; -- end if (l_participant_type = 'PRIMARY_BORROWER') then
1215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1216: EXCEPTION
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1271: l_object_version number;
1272:
1273: BEGIN
1274: l_last_api_called := 'submitCreditRequest';
1275: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1276:
1277: x_return_status := FND_API.G_RET_STS_ERROR;
1278:
1279: open C_GET_PRIMARY_CREQ_ID(p_loan_id);
1281: close C_GET_PRIMARY_CREQ_ID;
1282:
1283: if (l_primary_credit_request_id is not null) then
1284:
1285: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status api');
1287: END IF;
1288: l_last_api_called := 'OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status';
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1282:
1283: if (l_primary_credit_request_id is not null) then
1284:
1285: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status api');
1287: END IF;
1288: l_last_api_called := 'OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status';
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1290: OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status (
1285: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status api');
1287: END IF;
1288: l_last_api_called := 'OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status';
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1290: OCM_CREDIT_REQUEST_UPDATE_PUB.update_credit_request_status (
1291: p_api_version => 1.0,
1292: p_init_msg_list => FND_API.G_TRUE,
1293: p_commit => FND_API.G_TRUE,
1296: x_msg_count => x_msg_count,
1297: x_msg_data => x_msg_data,
1298: p_credit_request_id => l_primary_credit_request_id,
1299: p_credit_request_status => 'SUBMIT');
1300: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
1301:
1302:
1303: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1304: l_loan_header_rec.loan_id := p_loan_id;
1306: open C_GET_LOAN_OVN(p_loan_id);
1307: fetch C_GET_LOAN_OVN into l_object_version;
1308: close C_GET_LOAN_OVN;
1309:
1310: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling lns_loan_header_pub.update_loan api');
1312: END IF;
1313:
1314: l_last_api_called := 'lns_loan_header_pub.update_loan';
1307: fetch C_GET_LOAN_OVN into l_object_version;
1308: close C_GET_LOAN_OVN;
1309:
1310: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling lns_loan_header_pub.update_loan api');
1312: END IF;
1313:
1314: l_last_api_called := 'lns_loan_header_pub.update_loan';
1315: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In submitCreditRequest: Before calling lns_loan_header_pub.update_loan api');
1312: END IF;
1313:
1314: l_last_api_called := 'lns_loan_header_pub.update_loan';
1315: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before calling '|| l_last_api_called);
1316: lns_loan_header_pub.update_loan(
1317: p_init_msg_list => FND_API.G_TRUE
1318: ,P_LOAN_HEADER_REC => l_loan_header_rec
1319: ,P_OBJECT_VERSION_NUMBER => l_object_version
1319: ,P_OBJECT_VERSION_NUMBER => l_object_version
1320: ,X_RETURN_STATUS => x_return_status
1321: ,X_MSG_COUNT => x_msg_count
1322: ,X_MSG_DATA => x_msg_data);
1323: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After calling '|| l_last_api_called);
1324:
1325: COMMIT;
1326:
1327: else
1339: FND_MSG_PUB.Add;
1340: RAISE FND_API.G_EXC_ERROR;
1341:
1342: end if;
1343: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1344: END submitCreditRequest;
1345:
1346:
1347: ----------------------------------------------------------------
1387: AND type = 'CASE'
1388: AND status = 'CLOSED';
1389:
1390: BEGIN
1391: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1392:
1393: l_return_flag := 'N';
1394:
1395: open check_loan_sec_status(p_loan_id);
1407: l_return_flag := 'I';
1408: return l_return_flag;
1409: end if;
1410:
1411: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Before calling update for lns_participants to update case_folder_id');
1413: END IF;
1414:
1415: l_user_id := LNS_UTILITY_PUB.created_by;
1408: return l_return_flag;
1409: end if;
1410:
1411: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Before calling update for lns_participants to update case_folder_id');
1413: END IF;
1414:
1415: l_user_id := LNS_UTILITY_PUB.created_by;
1416: l_login_id := LNS_UTILITY_PUB.last_update_login;
1426: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
1427: WHERE PARTICIPANT_ID = case_folder_rec.participant_id;
1428: END LOOP;
1429:
1430: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1431: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: After calling update for lns_participants to update case_folder_id');
1432: END IF;
1433:
1434: --Call to record history
1427: WHERE PARTICIPANT_ID = case_folder_rec.participant_id;
1428: END LOOP;
1429:
1430: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1431: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: After calling update for lns_participants to update case_folder_id');
1432: END IF;
1433:
1434: --Call to record history
1435: LNS_LOAN_HISTORY_PUB.log_record_pre(
1437: p_primary_key_name => 'LOAN_ID',
1438: p_table_name => 'LNS_LOAN_HEADERS_ALL'
1439: );
1440:
1441: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1442: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Before calling update for lns_loan_headers_all to update new secondary status');
1443: END IF;
1444:
1445: UPDATE LNS_LOAN_HEADERS_ALL
1438: p_table_name => 'LNS_LOAN_HEADERS_ALL'
1439: );
1440:
1441: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1442: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Before calling update for lns_loan_headers_all to update new secondary status');
1443: END IF;
1444:
1445: UPDATE LNS_LOAN_HEADERS_ALL
1446: SET SECONDARY_STATUS = 'CREDIT_REVIEW_COMPLETE',
1453: AND EXISTS (SELECT case_folder_id
1454: FROM LNS_PARTICIPANTS
1455: WHERE loan_id = LNS_LOAN_HEADERS_ALL.loan_id and hz_party_id = LNS_LOAN_HEADERS_ALL.primary_borrower_id);
1456:
1457: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1458: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: After calling update for lns_loan_headers_all to update new secondary status');
1459: END IF;
1460:
1461: --Call to record history
1454: FROM LNS_PARTICIPANTS
1455: WHERE loan_id = LNS_LOAN_HEADERS_ALL.loan_id and hz_party_id = LNS_LOAN_HEADERS_ALL.primary_borrower_id);
1456:
1457: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1458: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: After calling update for lns_loan_headers_all to update new secondary status');
1459: END IF;
1460:
1461: --Call to record history
1462: LNS_LOAN_HISTORY_PUB.log_record_post(
1475: if (l_secondary_status = 'CREDIT_REVIEW_COMPLETE') then
1476: l_return_flag := 'Y';
1477: end if;
1478:
1479: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1480:
1481: return l_return_flag;
1482:
1483: EXCEPTION
1482:
1483: EXCEPTION
1484: WHEN OTHERS THEN
1485:
1486: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1487: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Unexpected ERROR in the function call. SQLERRM is: ' || SQLERRM);
1488: END IF;
1489:
1490: return l_return_flag;
1483: EXCEPTION
1484: WHEN OTHERS THEN
1485:
1486: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1487: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In LNS_PARTICIPANTS_PUB.CASE_FOLDER_UPDATE: Unexpected ERROR in the function call. SQLERRM is: ' || SQLERRM);
1488: END IF;
1489:
1490: return l_return_flag;
1491:
1576: open C_GET_LOAN_OVN(l_loan_id);
1577: fetch C_GET_LOAN_OVN into l_object_version;
1578: close C_GET_LOAN_OVN;
1579:
1580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In OCM_WORKFLOW_CREDIT_RECO_EVENT: Before calling lns_loan_header_pub.update_loan api');
1582: END IF;
1583:
1584: lns_loan_header_pub.update_loan(
1577: fetch C_GET_LOAN_OVN into l_object_version;
1578: close C_GET_LOAN_OVN;
1579:
1580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In OCM_WORKFLOW_CREDIT_RECO_EVENT: Before calling lns_loan_header_pub.update_loan api');
1582: END IF;
1583:
1584: lns_loan_header_pub.update_loan(
1585: p_init_msg_list => FND_API.G_TRUE
1594: else
1595: COMMIT;
1596: end if;
1597:
1598: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In OCM_WORKFLOW_CREDIT_RECO_EVENT: After calling lns_loan_header_pub.update_loan api: return_status:'||l_return_status);
1600: END IF;
1601:
1602:
1595: COMMIT;
1596: end if;
1597:
1598: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In OCM_WORKFLOW_CREDIT_RECO_EVENT: After calling lns_loan_header_pub.update_loan api: return_status:'||l_return_status);
1600: END IF;
1601:
1602:
1603: END IF; -- IF (l_case_folder_id IS NOT NULL) THEN
1643: where party_id = p_party_id;
1644:
1645: BEGIN
1646:
1647: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1648: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, p_loan_participant_rec.LOAN_PARTICIPANT_TYPE);
1649: IF p_loan_participant_rec.LOAN_PARTICIPANT_TYPE <> 'PRIMARY_BORROWER' THEN
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: END IF;
1644:
1645: BEGIN
1646:
1647: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1648: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, p_loan_participant_rec.LOAN_PARTICIPANT_TYPE);
1649: IF p_loan_participant_rec.LOAN_PARTICIPANT_TYPE <> 'PRIMARY_BORROWER' THEN
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: END IF;
1652:
1649: IF p_loan_participant_rec.LOAN_PARTICIPANT_TYPE <> 'PRIMARY_BORROWER' THEN
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: END IF;
1652:
1653: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Contact Person '||p_loan_participant_rec.CONTACT_PERS_PARTY_ID||' and Rel PartyId is '||p_loan_participant_rec.CONTACT_REL_PARTY_ID);
1654:
1655: IF (p_loan_participant_rec.CONTACT_PERS_PARTY_ID IS NULL or p_loan_participant_rec.CONTACT_PERS_PARTY_ID = FND_API.G_MISS_NUM) AND
1656: (p_loan_participant_rec.CONTACT_REL_PARTY_ID IS NULL OR p_loan_participant_rec.CONTACT_REL_PARTY_ID = FND_API.G_MISS_NUM) THEN
1657: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Contact Person and PartyId are NULL');
1653: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Contact Person '||p_loan_participant_rec.CONTACT_PERS_PARTY_ID||' and Rel PartyId is '||p_loan_participant_rec.CONTACT_REL_PARTY_ID);
1654:
1655: IF (p_loan_participant_rec.CONTACT_PERS_PARTY_ID IS NULL or p_loan_participant_rec.CONTACT_PERS_PARTY_ID = FND_API.G_MISS_NUM) AND
1656: (p_loan_participant_rec.CONTACT_REL_PARTY_ID IS NULL OR p_loan_participant_rec.CONTACT_REL_PARTY_ID = FND_API.G_MISS_NUM) THEN
1657: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Contact Person and PartyId are NULL');
1658: p_loan_participant_rec.CONTACT_REL_PARTY_ID := p_loan_participant_rec.HZ_PARTY_ID;
1659:
1660: open c_get_party_type(p_loan_participant_rec.HZ_PARTY_ID);
1661: fetch c_get_party_type into l_party_type;
1660: open c_get_party_type(p_loan_participant_rec.HZ_PARTY_ID);
1661: fetch c_get_party_type into l_party_type;
1662: close c_get_party_type;
1663:
1664: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Party Type is '||l_party_type ||' for '||p_loan_participant_rec.HZ_PARTY_ID);
1665: IF l_party_type = 'PERSON' THEN
1666: p_loan_participant_rec.CONTACT_PERS_PARTY_ID := p_loan_participant_rec.HZ_PARTY_ID;
1667: END IF;
1668: END IF;
1665: IF l_party_type = 'PERSON' THEN
1666: p_loan_participant_rec.CONTACT_PERS_PARTY_ID := p_loan_participant_rec.HZ_PARTY_ID;
1667: END IF;
1668: END IF;
1669: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1670:
1671: END getDefaultPrimaryContact;
1672:
1673: